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