home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib33a.dsk
/
DECEMBER.1987
/
READ.MON.TXT.bas
< prev
Wrap
BASIC Source File
|
2023-02-26
|
364b
|
17 lines
10 D$ = CHR$(4):Q$ = CHR$(34)
20 PRINT D$"NOMON"
30 PRINT D$"MON I"
40 INPUT "TEXT FILE NAME: ";F$
50 ONERR GOTO 150
60 PRINT D$"VERIFY"F$
70 PRINT
80 PRINT D$"OPEN"F$
90 PRINT D$"READ"F$
100 FOR I = 1 TO 100000
110 INPUT A$
120 NEXT I
130 PRINT D$"CLOSE"
140 END
150 POKE 216,0
160 IF PEEK(222) = 5 OR PEEK(222) = 255 THEN 130
170 RESUME