jsbasic/samples/sample.readsector.txt

12 lines
263 B
Plaintext
Raw Normal View History

2012-02-09 03:13:44 +00:00
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