RosettaCodeData/Task/Read-a-file-line-by-line/ZX-Spectrum-Basic/read-a-file-line-by-line.basic
2023-07-01 13:44:08 -04:00

7 lines
412 B
Text

10 REM open my file for input
20 OPEN #4;"m";1;"MYFILE": REM stream 4 is the first available for general purpose
30 INPUT #4; LINE a$: REM a$ will hold our line from the file
40 REM because we do not know how many lines are in the file, we need an error trap
50 REM to gracefully exit when the file is read. (omitted from this example)
60 REM to prevent an error at end of file, place a handler here
100 GOTO 30