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