home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_026_19xx_-_de_Disk_1_of_2_Side_B.d64
/
txt.drucker
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
40 lines
3 rem dieses prg ist fuer rof-fd serie
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" programm zum ausdrucken von seq-texten "
125 :
130 print" bitte geben sie den filenamen"
131 print" des textes ein, welchen sie"
132 print" nun ausdrucken wollen!"
140 input" ?";b$
230 open1,4,7:q=1
240 open5,8,5,b$+",s,r":gosub420
245 print"[155]":poke53280,0:poke53281,0
250 print" "
260 print" druecken sie eine beliebige "
270 print" taste um den ausdruck anzu- "
280 print" halten/fortzusetzen. q=ende! "
290 print" "
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" bitte druecken sie nun ..y.. "
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