home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 226 / 226.d81 / b.acquire (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  613b  |  25 lines
  1. 10 d=peek(186):ifd<8thend=8
  2. 20 gosub41000
  3. 30 a$="acquire
  4. 40 [153]"stoploada$,d":[153]"run"
  5. 70 [151]198,2:[151]631,13:[151]632,13:[128]
  6. 10000 d[178][194](186):n$[178]"b.acquire":[159]1,d,15,"i0":[160]1
  7. 10001 [159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  8. 41000 [151]53280,0:[151]53281,0:[151]53272,22:[153]"load"
  9. 41002 [151]214,14:[153]
  10. 41004 [153][163]1)"list                                     "
  11. 41005 [129]x[178]1[164]6
  12. 41006 [153][163]1)"print#                                     "
  13. 41007 [130]
  14. 41013 [153][163]1)"poke                                     "
  15. 41020 [129]x[178]1[164]4:[135]a$:[151]214,15[170]x:[153]
  16. 41022 [153][163]19[171][195](a$)[173]2)"print#"a$
  17. 41024 [130]
  18. 41030 t[178]ti[170]60
  19. 41031 [139]t[177]ti[167]41031
  20. 41032 [153]"":[142]
  21. 41050 [131]"atn len (NULL) (NULL) right$close(NULL) val
  22. 41051 data"by [211]id [211]ackson & [199]. [195]. [195]rawshay
  23. 41052 [131]"from atnvalon left$ill
  24. 41053 data"www.loadstar.com
  25.