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   
Commodore BASIC  |  2023-02-26  |  1KB  |  48 lines
  1. 1 rem usa originalversion auf rof22.2b
  2. 2 rem reads & prints sequential files
  3. 3 rem this tool is worldwide freeware
  4. 4 rem --------------------------------
  5. 8 printchr$(142)
  6. 10 print"[155][147]";:poke808,237:poke53280,0:poke53281,0  : rem   ^ disable 'stop'
  7. 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]";
  8. 120 print"         sequential file reader         "
  9. 122 print"      reads most sequential files
  10. 125 :
  11. 130 [153]"  which sequential
  12. 140 input"    file to read";b$
  13. 150 :
  14. 160 print"[147]"tab(13)"[155]your options -"
  15. 170 print"    <s>creen"spc(3)" <p>rinter"spc(3)" <q>uit"
  16. 190 getg$:ifg$=""then190
  17. 200 ifg$="q"then470
  18. 210 ifg$="s"goto240
  19. 220 ifg$<>"p"then190
  20. 230 open1,4,7:q=1
  21. 240 open5,8,5,b$+",s,r":gosub420
  22. 245 print"[147][155]":poke53280,0:poke53281,0
  23. 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]"
  24. 260 print"        [208]ress  any key to pause,  "
  25. 270 print"        [208]ress  again to continue  "
  26. 280 print"        '[209]' ends program or loads "
  27. 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]"
  28. 300 get#5,f$
  29. 310 ifst=0then330
  30. 320 ifst=64then440
  31. 330 ifq<>1thenprintf$;:goto350
  32. 340 print#1,f$;
  33. 350 geta$
  34. 360 ifa$<>""thengosub380
  35. 370 goto300
  36. 380 ifa$="q"then440
  37. 390 geta$:ifa$=""then390
  38. 400 ifa$="q"then440
  39. 410 return
  40. 420 close15:open15,8,15:input#15,d,e$,f,g
  41. 430 return
  42. 440 q=0:close1:close5:print"[147][155] [196]o you wish to load menu (y/n)?"
  43. 450 fora=1to10000:geta$:ifa$<>"y"anda$<>"n"thennext
  44. 460 ifa$="y"then480
  45. 470 poke808,237:print"[145]":goto4
  46. 480 print"[147]load"chr$(34)"menu"chr$(34)",8":print"run";
  47. 490 poke631,13:poke632,13:poke198,2:end
  48.