1   rem write a test file

2   rem read it back in and print it on serial device

10  OPEN "TEST.DAT" FOR OUTPUT AS #1

20  FOR i% = 1 TO 10

30      WRITE #1, i%, 2 * i%, 5 * i%

40  NEXT i%

50  CLOSE #1

60  OPEN "TEST.DAT" FOR INPUT AS #1

70  WHILE  EOF(1) = 0

80      LINE INPUT #1, a$

90      LPRINT a$

100 WEND