home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / SPACE-DODGE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.8 KB  |  162 lines
  1. 20 C=54272:POKE54296,15
  2. 30 FORA=1TO8:READB$(A):NEXT:DATA SPACE CADET, CORPORAL,SERGEANT,CAPTAIN,MAJOR
  3. 35 DATA LIEUTENANT,GENERAL,MASTER
  4. 40 FORA=16064TO16319:READB:POKEA,B:NEXT
  5. 50 FORA=16256TO16319:POKEA+64,PEEK(A):NEXT:FORA=16347TO16352:POKEA,250:NEXT
  6. 60 POKE53276,255:POKE2040,13:FORA=2041TO2045
  7. 70 POKEA,251:NEXT:POKE2046,13
  8. 80 FORA=832TO959:READB:POKEA,B:NEXT
  9. 90 POKE53280,15:POKE53281,0:POKE53251,125:GOSUB880
  10. 100 PRINT"[147][144]SPACE DODGER"
  11. 110 POKE53269,255:POKE53249,125:FORA=90TO255:POKE53248,A
  12. 120 POKE53250,345-A:IFA=155THENPOKE53249,120:POKE53251,130
  13. 130 POKE55696+(A-24)/8,7
  14. 140 NEXT:FORTD=1TO800:NEXT:POKE53269,0
  15. 150 RA=1:POKE253,5:SC=0:L=200:POKE53285,7:POKE53286,2:POKE53287,7
  16. 160 B=50:FORA=53249TO53261STEP2:POKEA,B:B=B+30:NEXT:PRINT"[147]":FORA=1TO65
  17. 170 Q=1024+RND(1)*999:POKEQ,46:POKEQ+C,RND(1)*15:NEXT
  18. 180 POKE53278,0:POKE2047,255:POKE254,0:SYS49152:POKE53269,255
  19. 190 SC=SC+(PEEK(253)-4)/2:IFSC>=LTHENGOSUB330:L=L*3:RA=RA+1:GOTO190
  20. 200 IFPEEK(53278)<128THEN190
  21. 210 POKE254,1:POKE54273,4:POKE54277,27:POKE54278,0:POKE54276,128:POKE54276,129
  22. 220 POKE2047,14:POKE53294,8
  23. 230 FORTD=1TO200:NEXT:POKE53269,127:FORTD=1TO500:NEXT:POKE53269,0
  24. 240 POKE56333,129:POKE53274,0
  25. 250 PRINT"[147]":PRINT"[159]SCORE:"INT(SC)
  26. 260 IFSC>HSTHENHS=SC
  27. 270 PRINT"HIGH SCORE:"INT(HS)
  28. 280 PRINT""SPC(17-LEN(B$(RA))/2)"RANK: "B$(RA)
  29. 290 PRINT"[158]PLAY AGAIN? (UP-YES DOWN-NO)
  30. 300 Q[178][194](56320):[139](Q[175]1)[178]0[167]150
  31. 310 [139](Q[175]2)[178]0[167][158]832
  32. 320 [137]300
  33. 330 [151]56333,129:[151]53274,0:[158] 65418:[151]53280,2:[151]53269,0
  34. 340 [129]A[178]53248[164]53260[169]2:[151]A,40
  35. 350 [151]A[171]52569,40:[130]:[151]252,127:[151]53264,127:[151]53269,255:[151]53263,140
  36. 360 [129]TD[178]1[164]180
  37. 370 [139]([194](56320)[175]16)[179][177]16[167][146]56320,16,0:[146]56320,16,16:TD[178]180
  38. 380 [130]TD:[158] 49152:[151]53280,15:[151]253,[194](253)[170]1
  39. 390 [151]53278,0:[142]
  40. 400 [131]0,0,0,0,0,0,0,0
  41. 410 [131]0,0,0,0,0,0,0,60
  42. 420 [131]0,60,59,0,236,14,130,176
  43. 430 [131]2,105,128,0,150,0,0,150
  44. 440 [131]0,2,105,128,14,130,176,59
  45. 450 [131]0,236,60,0,60,0,0,0
  46. 460 [131]0,0,0,0,0,0,0,0
  47. 470 [131]0,0,0,0,0,0,0,1
  48. 480 [131]0,0,0,0,0,0,0,0
  49. 490 [131]0,0,0,0,0,20,0,0
  50. 500 [131]85,0,1,105,64,5,235,80
  51. 510 [131]5,235,80,23,235,212,23,235
  52. 520 [131]212,22,190,148,22,190,148,23
  53. 530 [131]235,212,23,235,212,5,235,80
  54. 540 [131]5,235,80,1,105,64,0,85
  55. 550 [131]0,0,20,0,0,0,0,255
  56. 560 [131]0,0,0,0,85,0,1,85
  57. 570 [131]64,1,125,64,1,125,64,1
  58. 580 [131]85,64,0,170,0,0,40,0
  59. 590 [131]21,40,84,85,170,85,93,170
  60. 600 [131]117,85,170,85,21,40,84,0
  61. 610 [131]40,0,0,170,0,1,85,64
  62. 620 [131]1,125,64,1,125,64,1,85
  63. 630 [131]64,0,85,0,0,0,0,1
  64. 640 [131]0,0,0,0,0,0,0,0
  65. 650 [131]0,0,0,0,0,0,0,1
  66. 660 [131]85,64,5,85,80,21,85,84
  67. 670 [131]85,85,85,175,175,175,175,175
  68. 680 [131]175,85,85,85,21,85,84,5
  69. 690 [131]85,80,1,85,64,0,0,0
  70. 700 [131]0,0,0,0,0,0,0,0
  71. 710 [131]0,0,0,0,0,0,0,0
  72. 720 [131]0,0,0,0,0,0,0,255
  73. 730 [131]192,3,3,192,12,14,192,63
  74. 740 [131]250,192,53,122,192,53,122,192
  75. 750 [131]53,122,192,53,122,192,53,122
  76. 760 [131]192,53,122,192,53,123,0,53
  77. 770 [131]124,0,63,240,0,0,0,0
  78. 780 [131]0,0,0,0,0,0,0,0
  79. 790 [131]0,0,0,0,0,0,0,195
  80. 800 [131]0,0,0,0,0,0,0,0
  81. 810 [131]0,15,252,240,63,255,252,254
  82. 820 [131]171,188,250,234,188,250,174,240
  83. 830 [131]254,170,240,63,187,240,62,170
  84. 840 [131]240,62,150,240,14,150,252,14
  85. 850 [131]234,188,62,174,188,63,170,240
  86. 860 [131]63,255,192,15,252,0,0,0
  87. 870 [131]0,0,0,0,0,0,0,0
  88. 880 [153]"LOADSYS             PLEASE WAIT":I[178]49152
  89. 890 [135]A:[139]A[178]256[167][142]
  90. 900 [151] I,A:I[178]I[170]1:[137]890
  91. 910 [131] 120,169,164,141,20,3
  92. 920 [131] 169,192,141,21,3,169
  93. 930 [131] 127,141,13,220,169,129
  94. 940 [131] 141,26,208,169,27,141
  95. 950 [131] 17,208,88,169,140,141
  96. 960 [131] 182,2,32,71,192,169
  97. 970 [131] 10,133,251,169,127,133
  98. 980 [131] 252,169,90,141,14,208
  99. 990 [131] 160,12,169,70,153,0
  100. 1000 [131] 208,173,27,212,240,251
  101. 1010 [131] 197,253,176,247,153,192
  102. 1020 [131] 3,136,136,16,235,162
  103. 1030 [131] 0,189,139,192,157,0
  104. 1040 [131] 212,232,224,25,208,245
  105. 1050 [131] 169,0,141,59,199,141
  106. 1060 [131] 58,199,96,238,57,199
  107. 1070 [131] 173,57,199,141,22,212
  108. 1080 [131] 173,58,199,205,59,199
  109. 1090 [131] 176,6,206,59,199,76
  110. 1100 [131] 119,192,238,59,199,173
  111. 1110 [131] 59,199,41,63,24,105
  112. 1120 [131] 5,141,1,212,96,238
  113. 1130 [131] 58,199,96,206,58,199
  114. 1140 [131]96,100,7,0,0,0
  115. 1150 [131] 36,0,100,7,0,0
  116. 1160 [131] 21,15,240,100,255,0
  117. 1170 [131] 0,129,36,0,0,0
  118. 1180 [131] 242,47,169,1,141,25
  119. 1190 [131] 208,32,93,192,169,7
  120. 1200 [131] 141,192,3,141,204,3
  121. 1210 [131] 169,250,141,18,208,162
  122. 1220 [131] 25,172,27,212,173,27
  123. 1230 [131] 212,41,15,240,249,153
  124. 1240 [131] 0,216,153,0,217,153
  125. 1250 [131] 0,218,153,200,218,202
  126. 1260 [131] 16,231,160,12,185,167
  127. 1270 [131] 2,56,249,192,3,170
  128. 1280 [131] 185,167,2,48,72,138
  129. 1290 [131] 16,70,165,252,57,156
  130. 1300 [131] 193,240,10,165,252,89
  131. 1310 [131] 156,193,133,252,138,208
  132. 1320 [131] 53,165,252,25,156,193
  133. 1330 [131] 133,252,169,70,153,167
  134. 1340 [131] 2,173,27,212,240,251
  135. 1350 [131] 197,253,176,247,153,192
  136. 1360 [131] 3,152,74,170,240,27
  137. 1370 [131] 201,6,240,23,173,27
  138. 1380 [131] 212,74,74,74,74,74
  139. 1390 [131] 74,240,245,24,105,250
  140. 1400 [131] 157,248,7,208,4,138
  141. 1410 [131] 153,167,2,136,136,16
  142. 1420 [131] 163,198,251,208,65,169
  143. 1430 [131] 7,133,251,165,254,208
  144. 1440 [131] 57,173,255,7,73,1
  145. 1450 [131] 141,255,7,173,0,220
  146. 1460 [131] 74,176,21,32,131,192
  147. 1470 [131] 173,182,2,201,51,144
  148. 1480 [131] 33,173,182,2,56,233
  149. 1490 [131] 30,141,182,2,208,22
  150. 1500 [131] 74,176,19,32,135,192
  151. 1510 [131] 173,182,2,201,210,176
  152. 1520 [131] 9,173,182,2,24,105
  153. 1530 [131] 30,141,182,2,165,252
  154. 1540 [131] 141,16,208,160,12,185
  155. 1550 [131] 167,2,153,0,208,136
  156. 1560 [131] 136,16,246,173,182,2
  157. 1570 [131] 141,15,208,173,13,220
  158. 1580 [131] 41,1,240,3,76,49
  159. 1590 [131] 234,76,188,254,1,1
  160. 1600 [131] 2,2,4,4,8,8
  161. 1610 [131] 16,16,32,32,64,64,256
  162.