jsbasic/samples/sample.readsector.txt
2012-02-08 22:13:44 -05:00

12 lines
263 B
Plaintext

10 PR#0 : TEXT : HOME
20 INPUT "Sector filename: "; FI$
30 HOME
100 PRINT CHR$(4);"OPEN ";FI$;",L50"
110 PRINT CHR$(4);"READ ";FI$;",R0"
120 INPUT R : REM Number of records
130 FOR A = 1 TO R
140 PRINT CHR$(4);"READ ";FI$;",R";A
150 INPUT A$ : PRINT A$
160 NEXT