home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 214 / 214.d81 / b.fargo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  621b  |  25 lines
  1. 10 d=peek(186):ifd<8thend8
  2. 20 gosub41000:poke646,peek(53281)
  3. 30 a$="fargo
  4. 40 b$[178]"l(NULL)a$,d"[170][199](13)[170]"r(NULL)"[170][199](13)
  5. 50 [129]x[178]1[164]10:[151]630[170]x,[198]([202](b$,x)):[130]:[151]198,10
  6. 9999 [128]
  7. 10000 d[178][194](186):n$[178]"b.fargo":[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]"asc atn (NULL) chr$ (NULL)
  22. 41051 data"by [210]obert [205]undschau
  23. 41052 [131]"(c) 2002 by mid$ & asc (NULL)ublishing, right$nc.
  24. 41053 data"www.loadstar.com
  25.