home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 13 / 013.d81 / get-print (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  745b  |  24 lines
  1. 10 print"[147][215]ould you like a demo of [199][197][212]-[208][210][201][206][212][160]?"
  2. 20 poke198,0:wait198,1:geta$
  3. 30 ifa$="n"then63010
  4. 32 print"[196]o you have a printer[160]?":poke198,0:wait198,1:geta$
  5. 34 ifa$="n"thenprint"[211]orry..you need a printer for this.":fordl=1to2000:next:goto63010
  6. 35 print"[147][212]urn on your printer and press a key.":poke198,0:wait198,1:geta$
  7. 37 open4,4,7:print#4:close4
  8. 40 print"[147]list7000-7060":print"goto50":poke631,13:poke632,13:poke198,2:end
  9. 50 print"      [200]ere is the program"
  10. 60 :
  11. 7000 open1,3:open2,4:print#1,chr$(19);
  12. 7010 form=1to25:a$="               "
  13. 7020 forl=1to40:get#1,b$:a$=a$+b$:next
  14. 7030 r$=chr$(13):ifb$=r$then7050
  15. 7040 print#2,a$:nextm:goto7060
  16. 7050 print#2,a$;:nextm
  17. 7060 print#1:close1:print#2:close2
  18. 7070 :   rem    end
  19. 63000 print"[147][215]ould you like another copy?":poke198,0:wait198,1:geta$
  20. 63002 ifa$="y"then35
  21. 63004 :
  22. 63010 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  23. 63020 poke631,13:poke632,13:poke198,2:end
  24.