home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_022_19xx_-_de_Disk_2_of_4_Side_A.d64
/
mag-anzeiger!!!
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
48 lines
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" <s>creen"spc(3)" <p>rinter"spc(3)" <q>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