home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_033_19xx_-_de_Disk_1_of_5_Side_B.d64 / z40-texti-v2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  51 lines
  1. 1 rem freeware - 17.04.1995 by alex zop
  2. 2 rem amselweg 1, d-85293 reichertshsn.
  3. 3 rem rockford-fd serie vc20-disk 033.1
  4. 4 rem
  5. 8 printchr$(142)
  6. 10 print"[155][147][144]";:poke53280,0:poke53281,0  :
  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"    vc20 pet-ascii-text-anzeiger v2     "
  9. 122 print"  speziell fuer den 40 zeichen hack!"
  10. 125 :
  11. 130 print"     welchen text soll ich lesen   "
  12. 140 input"           ";b$
  13. 150 :
  14. 160 print"  wo soll der text ausgegeben werden??"
  15. 170 print"   <b>ildschirm"spc(3)"<d>rucker"spc(3)"<e>nde"
  16. 190 getg$:ifg$=""then190
  17. 200 ifg$="e"then470
  18. 210 ifg$="b"goto240
  19. 220 ifg$<>"d"then190
  20. 230 open1,4,7:q=1
  21. 240 open5,8,5,b$+",s,r":gosub420
  22. 245 print"[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"           [214][195]20 [211][197][209]-[212][197][216][212][201] [214]2      "
  25. 261 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]"
  26. 270 print"          [211][208][193][195][197] = [208]ause und [199]o    "
  27. 280 print"              '[209]' = [197][206][196][197]          "
  28. 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]"
  29. 292 ifg$="b" goto 298
  30. 293 ifg$="d" goto 294
  31. 294 print"":print"        [201]ch drucke, bitte warten"
  32. 296 goto 300
  33. 298 for t=1 to 3000:nextt
  34. 299 print"[147][144]"
  35. 300 get#5,f$
  36. 310 ifst=0then330
  37. 320 ifst=64then440
  38. 330 ifq<>1thenprintf$;:goto350
  39. 340 print#1,f$;
  40. 350 geta$
  41. 360 ifa$<>""thengosub380
  42. 370 goto300
  43. 380 ifa$="q"then440
  44. 390 geta$:ifa$=""then390
  45. 400 ifa$="q"then440
  46. 410 return
  47. 420 close15:open15,8,15:input#15,d,e$,f,g
  48. 430 return
  49. 440 q=0:close1:close5:forw=1to5000:nextw:run
  50. 470 print"[145]":goto8
  51.