home *** CD-ROM | disk | FTP | other *** search
- 1 PRINT"[147]":POKE53280,2:POKE53281,7
- 2 PRINTTAB(9)"SEQUENTIAL FILE READER[146]"
- 3 PRINTTAB(12)"WRITTEN BY ZAX1[146]"
- 4 PRINT:PRINTTAB(9)"DISTRIBUTED AS [144]FREEWARE[146]"
- 5 PRINTTAB(10)"WITH THANKS TO SPOT[146]"
- 6 PRINT: PRINTTAB(6)"INSERT DISK AND PRESS RETURN":INPUTA$:IFA$=CHR$(13)THEN 7
- 7 GOSUB500
- 8 GOSUB1600
- 10 POKE53272,23:INPUT"[198]ILE [206]AME ";N$
- 15 PRINT"[208])RINTER OR [211])CREEN ?"
- 17 GETI$:IFI$=""THEN17
- 18 IFI$="P"THENPF=1:OPEN4,4
- 19 PRINT"[193]NY KEY TO PAUSE OR CONTINUE."
- 20 PRINT"[208]RESS [198]1 TO END READING.":PRINT
- 22 OPEN15,8,15:OPEN2,8,2,"0:"+N$+",S,R"
- 25 INPUT#15,EN$,EM$,ET$,ES$:IFEN$<>"00"THEN70
- 30 GET#2,D$:FLAG=ST:IFD$=""THEND$=D$+CHR$(0)
- 35 PRINTD$;
- 40 IFPFTHENPRINT#4,CHR$(17);D$;
- 45 IFFLAGTHEN80
- 50 GETI$:IFI$=""THEN30
- 55 IFI$="[133]"THEN80
- 60 GETI$:IFI$=""THEN60
- 65 IFI$<>"[133]"THEN30
- 66 GOTO80
- 70 PRINT"[147] I/O ERROR: "EN$" "EM$" "ET$" "ES$
- 80 CLOSE2:CLOSE4:CLOSE15:END
- 500 FORC=55296TO56295:POKEC,0:NEXT :FORD=1023TO2023:POKED,160:NEXT
- 501 FORD=2023TO1024STEP-3:POKED,96:NEXT
- 502 FORT=1025TO2023STEP3:POKET,96:NEXT
- 503 FORH=2022TO1024STEP-3:POKEH,96:NEXT
- 504 RETURN
- 1600 PRINT"[147]":POKE53280,0:POKE53281,0
- 1610 OPEN5,8,0,"$":GET#5,A$,A$
- 1620 GET#5,A$,A$:IFA$=""THENCLOSE5:GOTO1660
- 1625 GET#5,B$,L$
- 1630 LN$=STR$(ASC(B$+CHR$(0))+ASC(L$+CHR$(0))*256):PRINTLN$" ";
- 1640 GET#5,A$:PRINTL$;A$;:IFA$=""THENPRINT:GOTO1620
- 1650 GOTO1640
- 1655 CLOSE5
- 1660 RETURN
-