1 REM USA ORIGINALVERSION AUF ROF22.2B
2 REM READS & PRINTS SEQUENTIAL FILES
3 REM THIS TOOL IS WORLDWIDE FREEWARE
4 REM --------------------------------
8 PRINTCHR$(142)
10 PRINT"[155][147]";:POKE808,237:POKE53280,0:POKE53281,0 : REM ^ DISABLE 'STOP'
118 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
120 PRINT" SEQUENTIAL FILE READER "
122 PRINT" READS MOST SEQUENTIAL FILES
125 :
130 [153]" WHICH SEQUENTIAL
140 INPUT" FILE TO READ";B$
150 :
160 PRINT"[147]"TAB(13)"[155]YOUR OPTIONS -"
170 PRINT" CREEN"SPC(3)"
RINTER"SPC(3)" UIT"
190 GETG$:IFG$=""THEN190
200 IFG$="Q"THEN470
210 IFG$="S"GOTO240
220 IFG$<>"P"THEN190
230 OPEN1,4,7:Q=1
240 OPEN5,8,5,B$+",S,R":GOSUB420
245 PRINT"[147][155]":POKE53280,0:POKE53281,0
250 PRINT" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
260 PRINT" [208]RESS ANY KEY TO PAUSE, "
270 PRINT" [208]RESS AGAIN TO CONTINUE "
280 PRINT" '[209]' ENDS PROGRAM OR LOADS "
290 PRINT" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
300 GET#5,F$
310 IFST=0THEN330
320 IFST=64THEN440
330 IFQ<>1THENPRINTF$;:GOTO350
340 PRINT#1,F$;
350 GETA$
360 IFA$<>""THENGOSUB380
370 GOTO300
380 IFA$="Q"THEN440
390 GETA$:IFA$=""THEN390
400 IFA$="Q"THEN440
410 RETURN
420 CLOSE15:OPEN15,8,15:INPUT#15,D,E$,F,G
430 RETURN
440 Q=0:CLOSE1:CLOSE5:PRINT"[147][155] [196]O YOU WISH TO LOAD MENU (Y/N)?"
450 FORA=1TO10000:GETA$:IFA$<>"Y"ANDA$<>"N"THENNEXT
460 IFA$="Y"THEN480
470 POKE808,237:PRINT" [145]":GOTO4
480 PRINT"[147]LOAD"CHR$(34)"MENU"CHR$(34)",8":PRINT"RUN";
490 POKE631,13:POKE632,13:POKE198,2:END