home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 100 / 100.d81 / marketplace100 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  908b  |  33 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 7 dimw$(300)
  3. 10 poke53281,0:poke53280,0:print""
  4. 12 sys57812"inp/cm ce00",dv,0:poke780,0:poke781,0:poke782,206:sys65493
  5. 16 sys52736,"ordform 100",dv
  6. 18 h=peek(252)*256+peek(251)
  7. 100 print"[147][158]     [212] [200] [197]    [205] [193] [210] [203] [197] [212] [208] [204] [193] [195] [197]
  8. 102 [153]"          (NULL) (NULL) str$ val (NULL)   asc (NULL) (NULL) (NULL)"
  9. 104 [153]"         1  cont(NULL)rint order form
  10. 106 print"         2  [154][210]eturn to [204][207][193][196][211][212][193][210]
  11. 110 [161]a$:[139]a$[179]"1"[176]a$[177]"2"[167]110
  12. 112 [139]a$[178]"2"[167]300
  13. 120 [153]"open   (NULL)et your printer at the top of a
  14. 130 print"   page and press a key.
  15. 135 [161]a$:[139]a$[178]""[167]135
  16. 140 [159]4,4,7:[160]4
  17. 150 [139]st[178]0[167]200
  18. 160 [151]214,16:[153]:[153]"def (NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL) (NULL)(NULL)right$(NULL)(NULL)val(NULL) (NULL)(NULL) and press a key."
  19. 170 [161]a$:[139]a$[178]""[167]170
  20. 180 [137]100
  21. 200 [159]4,4,7
  22. 210 [129]i[178]0[164]h
  23. 220 [152]4,"   "w$(i)
  24. 230 [130]:[160]4
  25. 240 [137]100
  26. 300 [129]i[178]8[164]9:[159]15,i,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  27. 310 [139]er[178]63[167]dv[178]i:i[178]9:[130]:[137]320
  28. 315 [130]:[153]"load":[128]
  29. 320 [153]"loadstopload"[199](34)"hello connect"[199](34)","dv
  30. 330 [153]"run"
  31. 340 [151]631,13:[151]632,13:[151]198,2:[128]
  32. 10000 [159]15,8,15,"s0:marketplace100":[160]15:[148]"marketplace100",8:[128]
  33.