1   rem read material file records and print to serial port

10  OPEN  "MATERIAL" FOR RANDOM AS #1 LEN = 37

20  FIELD #1, 5 AS MATID$, 16 AS MATNAME$, 8 AS INVENTRY$, 8 AS MATUSAGE$

30  WHILE EOF(1) = 0

40   GET #1

50   LPRINT MATID$; TAB(10); MATNAME$; TAB(35); INVENTRY$; TAB(45); MATUSAGE$

60   LPRINT "LOC=";LOC(1)

70  WEND

80  LPRINT "EOF"; EOF(1)

90  CLOSE #1

100 END