home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 200 / 200.d81 / b.gemo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  46 lines
  1. 5 poke53281,0:poke53280,0: print"[147]"
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 20 gosub41000:b$="gemo/retro 64"
  4. 30 print"[144]loadb$,dv
  5. 35 [153]"run":[153]"cont     str$oes (NULL)(NULL)(NULL) (NULL)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  6. 40 [153]"        (NULL)ress <(NULL)> to (NULL)uit nowsys"
  7. 41 [129]x[178]0[164]5:[135]a$:[153][163]19[171][195](a$)[173]2)a$:[130]
  8. 44 [161]z$:[139]z$[179][177]""[167]49
  9. 45 q[178]q[170]1:[139]q[179]30[167]44
  10. 46 q[178]0:[151]646,([194](646)[170]8)[175]15:[153][163]19[171][195](a$)[173]2)a$:[137]44
  11. 49 [153]"stop":[139]z$[178]"q"[167]40000
  12. 50 [151]631,13:[151]632,13:[151]198,2:[128]
  13. 9999 [128]
  14. 10000 d[178][194](186):n$[178]"0:b.gemo":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  15. 40000 [151]53280,0:[151]53281,0:[151]53265,27:dv[178][194](186):q$[178][199](34):[153]"loadstop";
  16. 40010 a$[178]"hello connect":r$[178][199](13)[170]"r(NULL)"[170][199](13):q$[178][199](34)
  17. 40020 [160]2:[159]2,dv,2,a$:[161]#2,b$:[160]2:[139]st[178]0[167]40050
  18. 40030 [159]15,dv,15,"i0":[132]15,en:[160]15
  19. 40035 [151]53280,14:[151]53281,6:[153]"loadcont"
  20. 40040 [151]44,8:[151]8[172]256,0:[151]55,0:[151]56,160:[156]:[162]
  21. 40050 [153]"load"q$a$q$","dv""
  22. 40055 [129]x[178]1[164]4:[151]630[170]x,[198]([202](r$,x)):[130]:[151]198,4:[137]40040
  23. 41000 [151]53280,0:[151]53281,0:[151]53272,22:[153]"load"
  24. 41002 [151]214,14:[153]
  25. 41004 [153][163]1)"list                                     "
  26. 41005 [129]x[178]1[164]6
  27. 41006 [153][163]1)"print#                                     "
  28. 41007 [130]
  29. 41013 [153][163]1)"poke                                     "
  30. 41020 [129]x[178]1[164]4:[135]a$:[151]214,15[170]x:[153]
  31. 41022 [153][163]19[171][195](a$)[173]2)"print#"a$
  32. 41024 [130]
  33. 41030 t[178]ti[170]60
  34. 41031 [139]t[177]ti[167]41031
  35. 41032 [153]"":[142]
  36. 41050 [131]"chr$ val (NULL) (NULL)
  37. 41051 data"by [210]etro 64
  38. 41052 [131]"(c) 2000 by mid$ & asc (NULL)ublishing, right$nc.
  39. 41053 data"www.loadstar.com
  40. 50000 [131]"sys
  41. 50001 data""
  42. 50002 data""
  43. 50003 data""
  44. 50004 data""
  45. 50005 data"[208]ress a [203]ey to [195]ontinue[145]"
  46.