home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 18 / 018.d81 / comp.eyes.order (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  947b  |  34 lines
  1. 1 rem    comp.eyes.order
  2. 2 print"[147][193]re you sure you have a printer?"
  3. 3 poke198,0:wait198,1:geta$:ifa$<>"y"anda$<>"n"then3
  4. 4 ifa$="n"then150
  5. 5 open4,4,7:cmd4
  6. 10 print"          [195]omputer[197]yes [195]oupon"
  7. 20 print
  8. 30 print"[208]lease send me:"
  9. 40 print
  10. 50 print"[195]-64 [194]lack [194]ox with [211]pecial $20 hookup"
  11. 52 print" cable and standard software ----------------------- $119.00"
  12. 60 print:print"[195]ustom [201]nterface [211]oftware"
  13. 62 print" [208]lease specify [196]oodle, [208]rintshop, or [203]oala -------- $ 11.00"
  14. 70 print:print"[194]/[215] [208]anasonic or [201]kegami [195]amera -------------------  $139.00"
  15. 80 :
  16. 90 print
  17. 91 print"          <[206]ew [202]ersey [210]esidents add 6% sales tax>"
  18. 92 print"                                          [212]otal:     $"
  19. 94 print:print
  20. 100 print"[205]ail to:"
  21. 110 print
  22. 120 print" [200][193][204] [211]ystems"
  23. 122 print" [208].[207]. [194]ox 293"
  24. 124 print" [211]cotch [208]lains, [206][202]  07076"
  25. 126 print:print
  26. 128 print"[195]heck     [214]isa       [205]aster[195]ard  <== [195]ircle one"
  27. 130 print
  28. 132 print"   [195]ard #:"
  29. 134 print" [197]xp [196]ate:"
  30. 135 print#4
  31. 140 close4
  32. 150 print"[147]load"chr$(34)"comp.eyes.menu"chr$(34)",8":print"run"
  33. 160 poke631,13:poke632,13:poke198,2:end
  34.