home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 September / Ahoy_Magazine_85-09_1985_Double_L.d64 / go-lister (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  63 lines
  1. 2 goto40
  2. 3 print"[147]":poke53280,9:poke53281,7:poke646,9
  3. 4 print "        go-lister installed...."
  4. 5 end:new
  5. 10 rem *** "go-lister" by john k.lunde ***
  6. 20 rem ** tgt.program must start at normal start-of-basic address (2049) **
  7. 30 rem ** uses file#1 to device#4:close manually if execution is halted **
  8. 40 forx=49152to49472:readz:pokex,z:next:goto 3
  9. 49152 data169,1,162,4,160,255
  10. 49158 data32,186,255,169,0,32
  11. 49164 data189,255,32,192,255,162
  12. 49170 data1,32,201,255,160,8
  13. 49176 data132,70,160,1,132,69
  14. 49182 data76,135,192,160,0,177
  15. 49188 data251,201,0,240,65,201
  16. 49194 data34,208,6,169,1,69
  17. 49200 data67,133,67,165,67,201
  18. 49206 data1,240,18,177,251,201
  19. 49212 data137,240,40,201,141,240
  20. 49218 data36,201,167,240,32,201
  21. 49224 data203,240,28,160,1,32
  22. 49230 data83,192,76,35,192,192
  23. 49236 data0,240,15,169,1,24
  24. 49242 data101,251,144,2,230,252
  25. 49248 data133,251,136,76,83,192
  26. 49254 data96,76,207,192,160,2
  27. 49260 data177,251,201,0,240,20
  28. 49266 data160,3,177,251,133,253
  29. 49272 data200,177,251,133,254,200
  30. 49278 data32,83,192,132,67,76
  31. 49284 data35,192,136,177,69,201
  32. 49290 data0,240,52,200,177,69
  33. 49296 data133,61,200,177,69,133
  34. 49302 data62,160,0,177,69,170
  35. 49308 data200,177,69,133,70,138
  36. 49314 data133,69,169,0,133,251
  37. 49320 data169,8,133,252,169,13
  38. 49326 data32,210,255,165,61,170
  39. 49332 data165,62,32,205,189,169
  40. 49338 data58,32,210,255,76,114
  41. 49344 data192,169,13,32,210,255
  42. 49350 data32,204,255,169,1,32
  43. 49356 data195,255,96,160,0,132
  44. 49362 data20,132,21,200,177,251
  45. 49368 data201,32,240,249,201,160
  46. 49374 data240,245,201,164,240,241
  47. 49380 data201,48,48,50,201,58
  48. 49386 data16,46,233,47,133,7
  49. 49392 data165,21,133,34,165,20
  50. 49398 data10,38,34,10,38,34
  51. 49404 data101,20,133,20,165,34
  52. 49410 data101,21,133,21,6,20
  53. 49416 data38,21,165,20,101,7
  54. 49422 data133,20,144,2,230,21
  55. 49428 data200,177,251,76,228,192
  56. 49434 data32,83,192,165,61,197
  57. 49440 data20,208,19,165,62,197
  58. 49446 data21,208,13,169,32,32
  59. 49452 data210,255,165,253,170,165
  60. 49458 data254,32,205,189,160,0
  61. 49464 data177,251,201,44,240,145
  62. 49470 data76,35,192
  63.