home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 47 / 047.d81 / in.the.mail (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  848b  |  36 lines
  1. 1 rem snakeoil
  2. 2 rem print-out order form
  3. 3 ifa=.thena=1:load"subscribe form",8,1
  4. 4 poke16998,.:rem poke byte after end of                  file with a zero
  5. 5 print"[147][144]":poke53281,1:poke53280,5
  6. 10 print"  [212]o print-out a [204][207][193][196][211][212][193][210] [207]rder form,"
  7. 20 print"turn on your printer and press [[211][208][193][195][197]]."
  8. 30 print:printspc(15)"- [207][210] -"
  9. 40 print" [208]ress [[210][197][212][213][210][206]] to return to [204][207][193][196][211][212][193][210]."
  10. 50 :
  11. 60 poke198,0:wait198,1:geta$
  12. 62 ifa$=chr$(13)then60000
  13. 64 ifa$=chr$(32)then100
  14. 70 goto60
  15. 80 :
  16. 100 open15,4,15:close15:ifst=0then200
  17. 110 print"  !! [197]rror...[208]rinter not ready... !!"
  18. 120 fordl=1to3000:nextdl
  19. 130 goto5
  20. 140 :
  21. 200 open4,4,7
  22. 210 sys51137,16384
  23. 220 print#4
  24. 250 close4
  25. 260 run5
  26. 270 :
  27. 60000 print"[147]  [193]re you sure you want to quit [[217]/[206]]?"
  28. 60010 poke198,0:wait198,1:geta$
  29. 60020 ifa$="n"then5
  30. 60030 ifa$<>"y"then60000
  31. 60040 :
  32. 61000 print"[147]"spc(8)"[210]eturning to [204]oadstar..."
  33. 61060 :
  34. 61070 print"load"chr$(34)"hello connect"chr$(34)",8":print"run"
  35. 61080 poke178,.:poke631,13:poke632,13:poke198,2:end
  36.