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 >
Commodore BASIC  |  2023-02-26  |  1KB  |  40 lines
  1. 3 rem dieses prg ist fuer rof-fd serie
  2. 4 rem --------------------------------
  3. 8 printchr$(142)
  4. 10 print"[155][147]";:poke808,237:poke53280,0:poke53281,0  : rem   ^ disable 'stop'
  5. 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]";
  6. 120 print" programm zum ausdrucken von seq-texten "
  7. 125 :
  8. 130 print"     bitte geben sie den filenamen"
  9. 131 print"      des textes ein, welchen sie"
  10. 132 print"      nun ausdrucken wollen!"
  11. 140 input"      ?";b$
  12. 230 open1,4,7:q=1
  13. 240 open5,8,5,b$+",s,r":gosub420
  14. 245 print"[155]":poke53280,0:poke53281,0
  15. 250 print"                                   "
  16. 260 print"      druecken sie eine beliebige  "
  17. 270 print"      taste um den ausdruck anzu-  "
  18. 280 print"      halten/fortzusetzen. q=ende! "
  19. 290 print"                                   "
  20. 300 get#5,f$
  21. 310 ifst=0then330
  22. 320 ifst=64then440
  23. 330 ifq<>1thenprintf$;:goto350
  24. 340 print#1,f$;
  25. 350 geta$
  26. 360 ifa$<>""thengosub380
  27. 370 goto300
  28. 380 ifa$="q"then440
  29. 390 geta$:ifa$=""then390
  30. 400 ifa$="q"then440
  31. 410 return
  32. 420 close15:open15,8,15:input#15,d,e$,f,g
  33. 430 return
  34. 440 q=0:close1:close5:print"      bitte druecken sie nun ..y.. "
  35. 450 fora=1to10000:geta$:ifa$<>"y"anda$<>"n"thennext
  36. 460 ifa$="y"then480
  37. 470 poke808,237:print"[145]":goto4
  38. 480 print"[147]load"chr$(34)"menu"chr$(34)",8":print"run";
  39. 490 poke631,13:poke632,13:poke198,2:end
  40.