home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 212 / 212.d81 / b.superbike (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  34 lines
  1. 10 d=peek(186):ifd<8thend=8
  2. 15 poke53280,0:poke53281,0:print"[147]":poke53272,22
  3. 20 gosub61000
  4. 30 a$="c.superbike"
  5. 40 print"[144]loada$,d":print"run"
  6. 41 printtab(08)"[212]his program does not
  7. 42 [153][163]09)"return to e(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL).
  8. 43 print:printtab(10)"[208]ress <[209]> to [209]uit
  9. 44 [153][163]06)"atnny other key to continuestop"
  10. 50 [151]198,0:[146]198,1:[161]z$:[139]z$[178]"q"[167]40000
  11. 70 [151]198,2:[151]631,13:[151]632,13:[128]
  12. 10000 d[178][194](186):n$[178]"b.superbike":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  13. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  14. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  15. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  16. 40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  17. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  18. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  19. 40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  20. 40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  21. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  22. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  23. 61000 [151]214,15:[153]
  24. 61110 [153]"  listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  25. 61120 [153]"  print#                                    "
  26. 61130 [153]"           (NULL) (NULL) (NULL) val (NULL) peek right$ (NULL) val          "
  27. 61140 [153]"            by (NULL)cott vallder            "
  28. 61150 [153]"    (c) 1990, 2002 mid$ & asc (NULL)ublishing   "
  29. 61160 [153]"    (NULL)riginally (NULL)ublished on (NULL)(NULL) #069   "
  30. 61170 [153]"            www.loadstar.com          "
  31. 61180 [153]"                                      "
  32. 61190 [153]"  pokepospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospos"
  33. 61195 [142]
  34.