home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 September / Ahoy_Magazine_86-09_1986_Double_L.d64 / loader (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  63 lines
  1. 90 poke198,0
  2. 100 ifi=0theni=1:load"ddlogo",8,1
  3. 105 poke53280,2
  4. 110 poke55,0:poke56,92:clr
  5. 120 poke53265,59
  6. 130 poke53272,120
  7. 140 poke56576,peek(56576)and254
  8. 150 goto250
  9. 155 poke55,0:poke56,160
  10. 160 poke53265,27
  11. 170 poke53272,21
  12. 180 poke56576,peek(56576)or1
  13. 190 print"[147]";:poke53280,6:poke53281,0:printchr$(14);
  14. 195 print"[158][204]oading [205]ain [205]enu....[144]"
  15. 200 print"load";chr$(34);"dir 1";chr$(34);",8,1"
  16. 210 print"run":print"[145][145][145][145][145][145][145][145][145]"
  17. 220 poke631,13:poke632,13:poke198,2:end
  18. 250 dim hi(25),lo(25),du(25),h3(64),l3(64)
  19. 260 poke 54291,134:poke 54277,136:poke54284,136
  20. 270 poke 54292,136:poke 54278,134:poke54285,134
  21. 280 poke 54290,17:poke 54276,17:poke54283,17
  22. 290 poke 54272,00:poke 54273,33
  23. 300 poke54279,59:poke54280,33
  24. 310 for x=1 to 25:read hi(x),lo(x):next x
  25. 320 for x=1 to 25:read du(x):next x
  26. 330 for x=1 to 64:read h3(x),l3(x):next x
  27. 340 poke 54296,15
  28. 350 b=1:for x=1 to 25
  29. 360 getan$:ifan$=chr$(13)then460
  30. 370 poke 54272,lo(x):poke 54273,hi(x)
  31. 380 poke 54279,lo(x)+45:poke54280,hi(x)
  32. 390 for n=1 to du(x)
  33. 400 poke54286,l3(b):poke54287,h3(b)
  34. 410 b=b+1
  35. 420 for l=1 to 145:next
  36. 430 next n
  37. 440 next x
  38. 450 goto350
  39. 460 s=54272:fori=0to24:pokes+i,0:next:goto155
  40. 470 data 16,195,21,31,25,30
  41. 480 data 28,49,21,31,28,49
  42. 490 data 33,135,37,162,25,30
  43. 500 data 33,135
  44. 510 data 28,49,33,135,28,49
  45. 520 data 25,30,28,49,31,165
  46. 530 data 33,135,37,162,28,49
  47. 540 data 37,165,33,135,31,165
  48. 550 data 25,30,22,96,18,209
  49. 560 data 4,2,2,3,1,4,4,2,2,8
  50. 570 data 4,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  51. 580 data 8,97,16,195,8,97,16,195,8,97,16,195
  52. 590 data 8,97,16,195,8,97,16,195,8,97,16,195
  53. 600 data 8,97,16,195,8,97,16,195,8,97,16,195
  54. 610 data 8,97,16,195,8,97,16,195,8,97,16,195
  55. 620 data 8,97,16,195,8,97,16,195,8,97,16,195
  56. 630 data 8,97,16,195
  57. 640 data 5,152,11,48,5,152,11,48,5,152,11,48
  58. 650 data 5,152,11,48
  59. 660 data 6,71,12,143,6,71,12,143,6,71,12,143
  60. 670 data 6,71,12,143,6,71,12,143,6,71,12,143
  61. 680 data 6,71,12,143,6,71,12,143,6,71,12,143
  62. 690 data 6,71,12,143,6,71,12,143,6,71,12,143
  63.