bwBASIC/BAS-EXAMPLES/lrset.bas

  10 ' Test LSET & RSET - contributed by ChipMaster
  20 OPEN "R", #1, "test.dat", 24
  30 FIELD #1, 24 AS F1$
  40 FOR X=1 TO 3
  50   READ S$, M$
  60   LSET F1$=S$
  70   IF F1$<>M$ THEN PRINT "ERROR @ LSET '"; S$; "'" : GOTO 900
  80 NEXT

 100 FOR X=1 TO 3
 110   READ S$, M$
 120   RSET F1$=S$
 130   IF F1$<>M$ THEN PRINT "ERROR @ LSET '"; S$; "'" : GOTO 900
 140 NEXT
 150 PRINT "pass"

 900 CLOSE #1
 910 END
 
1000 '*** TEST DATA ***
1010 DATA "THE RABBIT WENT LEFT",    "THE RABBIT WENT LEFT    "
1020 DATA "DOG",                     "DOG                     "
1030 DATA "",                        "                        "
1040 DATA "THE RABBIT WENT LEFT",    "    THE RABBIT WENT LEFT"
1050 DATA "DOG",                     "                     DOG"
1060 DATA "",                        "                        "