home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / SPIDER-TRAP (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.1 KB  |  175 lines
  1. 50 LV=5:F=0
  2. 100 GOSUB 1000
  3. 104 GOSUB 1050
  4. 110 PRINT"[147]"
  5. 112 PRINT"SPIDER                      [158]SCORE";F
  6. 114 PRINT"TRAP                        [158]LIVES";LV
  7. 116 FOR T=0 TO 1:PRINT"[159]******************    *****************":NEXT
  8. 118 FOR T=0 TO 16:PRINT"**                                   **":NEXT
  9. 120 PRINT"******************    *****************"
  10. 122 PRINT"***************************************"
  11. 130 FOR T=0 TO 35:X=680*RND(5):POKE 1224+X,42:NEXT
  12. 135 POKE 1762,32:POKE 1763,32:POKE 1764,32:POKE 1765,32
  13. 140 POKE 1802,32:POKE 1803,32:POKE 1804,32:POKE 1805,32
  14. 142 POKE 1842,32:POKE 1843,32:POKE 1844,32:POKE 1835,32
  15. 144 POKE 1882,32:POKE 1883,32:POKE 1884,32:POKE 1885,32
  16. 146 POKE 1922,32:POKE 1923,32:POKE 1924,32:POKE 1925,32
  17. 150 POKE 53269,15
  18. 160 W=PEEK(53279):Y=PEEK(53278)
  19. 170 Q=192
  20. 180 FOR T=0 TO 800:NEXT
  21. 200 SYS(937)
  22. 210 Q=Q+1:IF Q=194 THEN Q=192
  23. 214 POKE 2040,Q
  24. 215 SYS(937)
  25. 216 D=INT(4*RND(2)+1)
  26. 217 POKE 49522,D
  27. 218 SYS(937)
  28. 220 SYS 49152
  29. 225 W=PEEK(53279)
  30. 226 IF W=1 THEN 300
  31. 227 Y=PEEK(53278)
  32. 228 IF Y=3 THEN 300
  33. 229 IF Y=5 THEN 500
  34. 230 SYS(937)
  35. 240 W=PEEK(53279):IF W=1 THEN 300
  36. 245 F=F+1:PRINT""TAB(33)F
  37. 250 GOTO 200
  38. 300 LV=LV-1:PRINT""TAB(33);LV
  39. 302 FOR T=0 TO 10:POKE 53286,2:FOR G=0 TO 50:NEXT G:POKE 53286,13
  40. 305 FOR G=0 TO 50:NEXT G:NEXT T
  41. 310 POKE 54290,128:POKE 54272,75:POKE 54277,0:POKE 54278,240
  42. 312 POKE 54286,12:POKE 54287,5
  43. 314 POKE 54296,207:POKE 54276,21
  44. 320 FOR L=0 TO 15:POKE 54273,PEEK(54299)AND 224
  45. 322 FOR T=0 TO 100:NEXT:NEXT:POKE 54276,0
  46. 324 FOR T=0 TO 500:NEXT
  47. 325 IF LV=0 THEN 328
  48. 326 GOSUB 1034
  49. 327 GOTO 110
  50. 328 POKE 53269,0:PRINT"[147]"
  51. 330 PRINT"SORRY,THE SPIDER GOT YOU."
  52. 332 PRINT:PRINT:PRINT TAB(15)"SCORE ";F
  53. 340 GOTO 600
  54. 500 Z=54272
  55. 502 RESTORE
  56. 504 FOR L=0 TO 24:POKE Z+L,0:NEXT
  57. 506 POKE Z+3,8:POKE Z+5,41:POKE Z+6,89:POKE Z+14,117:POKE Z+18,16
  58. 508 POKE Z+24,143
  59. 510 READ FR,DR
  60. 512 IF FR=0 THEN 540
  61. 514 POKE Z+4,65
  62. 516 FOR T=1 TO DR*2
  63. 518 FQ=FR+PEEK(Z+27)/2
  64. 520 HF=INT(FQ/256):LF=FQ AND 255
  65. 522 POKE Z+0,LF:POKE Z+1,HF
  66. 524 NEXT
  67. 526 POKE Z+4,64
  68. 528 GOTO 510
  69. 540 FOR L=0 TO 24:POKE Z+L,0:NEXT
  70. 542 F=F+250:PRINT""TAB(33)F
  71. 550 GOSUB 1034
  72. 552 GOTO 110
  73. 600 PRINT:PRINT TAB(10)"PLAY AGAIN  Y OR N"
  74. 610 GET JUNK$:IF JUNK$<>""THEN 610
  75. 620 GET A$
  76. 621 IF A$=""THEN 620
  77. 622 IF A$="Y" THEN 640
  78. 630 END
  79. 640 F=0:LV=5
  80. 644 GOSUB 1034
  81. 660 GOTO 110
  82. 1000 PRINT"[147]":POKE 53281,0:POKE 53280,0
  83. 1002 PRINT"[159]PLEASE WAIT ONE MOMENT...."
  84. 1003 READ FR,DR:IF FR=0 THEN 1005
  85. 1004 GOTO 1003
  86. 1005 REM    READ ML SCROLL DATA
  87. 1006 FOR X=49152 TO 49528:READ A:POKE X,A:NEXT
  88. 1008 POKE 49523,2:POKE 49524,36:POKE 49525,5:POKE 49526,21
  89. 1010 REM   READ ML JOYSTICK DATA
  90. 1012 FOR X=828 TO 949:READ A:POKE X,A:NEXT
  91. 1014 REM   READ SMITH SPRITE DATA 1
  92. 1016 FOR X=12288 TO 12350:READ A:POKE X,A:NEXT
  93. 1018 REM   READ SMITH SPRITE DATA 2
  94. 1020 FOR X=12352 TO 12414:READ A:POKE X,A:NEXT
  95. 1022 REM   READ SPIDER SPRITE DATA
  96. 1024 FOR X=12416 TO 12478:READ A:POKE X,A:NEXT
  97. 1026 REM   READ MICHIGAN SPRITE DATA
  98. 1028 FOR X=12480 TO 12542:READ A:POKE X,A:NEXT
  99. 1030 REM   READ SAVE ME SPRITE DATA
  100. 1032 FOR X=12544 TO 12606:READ A:POKE X,A:NEXT
  101. 1034 REM   PREPARE SPRITES
  102. 1036 POKE 2041,194:POKE 2042,195:POKE 2043,196:P=192:POKE 2040,P
  103. 1038 POKE 53285,10:POKE 53286,13:POKE 53287,8:POKE 53288,14:POKE 53289,7
  104. 1040 POKE 53290,3
  105. 1042 POKE 53248,170:POKE 53249,210:         POKE 53251,135:POKE 53252,170
  106. 1043 POKE 53250,168
  107. 1044 POKE 53253,62:POKE 53254,196:POKE 53255,52
  108. 1046 POKE 53276,7
  109. 1047 POKE 53264,0
  110. 1048 RETURN
  111. 1050 PRINT"[147]":PRINT""TAB(12)"SPIDER TRAP"
  112. 1052 RM=30:POKE 54273,15:POKE 54277,16:POKE 54278,240
  113. 1054 POKE 54287,RM:POKE 54296,31:POKE 54276,21
  114. 1056 RM=RM-1:IF RM=10 THEN 1060
  115. 1057 FOR T=0 TO 100:NEXT
  116. 1058 GOTO 1054
  117. 1060 FOR I=0 TO 24:POKE 54272+I,0:NEXT
  118. 1061 W=PEEK(53279):Y=PEEK(53278)
  119. 1062 RETURN
  120. 1090 REM    MUSIC DATA
  121. 1092 DATA 4817,2,5103,2,5407,2,8583,4,5407,2,8583,4
  122. 1094 DATA 5407,4,8583,12,9634,2,10207,2,10814,2,8583,2
  123. 1096 DATA 9634,4,10814,2,8583,2,9634,4,8583,12,0,0
  124. 1100 REM    ML SCROLL DATA
  125. 1102 DATA 174,114,193,224,3,144,3,76,117,192,188,114,193,140,121,193,174
  126. 1104 DATA 118,193,232,202,32,30,193,172,121,193,173,119,193,201,2,208,10
  127. 1106 DATA 169,32,72,173,33,208,72,76,50,192,177,90,72,177,92,72,204
  128. 1108 DATA 116,193,240,20,200,177,90,72,177,92,136,145,92,104,145,90,200
  129. 1110 DATA 204,116,193,208,238,240,18,136,177,90,72,177,92,200,145,92,104
  130. 1112 DATA 145,90,136,204,115,193,208,238,173,119,193,201,0,208,5,104,104
  131. 1114 DATA 76,111,192,104,145,92,104,145,90,236,117,193,208,160,96,172,116
  132. 1116 DATA 193,200,189,114,193,170,32,30,193,173,120,193,201,2,208,19,136
  133. 1118 DATA 169,32,153,122,193,173,33,208,153,162,193,204,115,193,208,239,240
  134. 1120 DATA 16,136,177,90,153,122,193,177,92,153,162,193,204,115,193,208,240
  135. 1122 DATA 236,117,193,240,37,202,32,30,193,172,116,193,200,136,177,90,72
  136. 1124 DATA 177,92,32,48,193,145,93,104,145,90,32,56,193,204,115,193,208
  137. 1126 DATA 234,236,117,193,208,221,240,46,202,206,118,193,232,32,30,193,172
  138. 1128 DATA 116,193,200,136,32,48,193,177,90,72,177,92,32,56,193,145,92,104
  139. 1130 DATA 145,90,204,115,193,208,234,236,118,193,208,221,238,118,193,232
  140. 1132 DATA 32,30,193,173,120,193,201,0,240,20,172,115,193,136,200,185,162
  141. 1134 DATA 193,145,92,185,122,193,145,90,204,116,193,208,240,96,189,89,193
  142. 1136 DATA 133,91,24,105,212,133,93,189,64,193,133,90,133,92,96,72,152
  143. 1138 DATA 24,105,40,168,104,96,72,152,56,233,40,168,104,96,0,40,80
  144. 1140 DATA 120,160,200,240,24,64,104,144,184,224,8,48,88,128,168,208,248
  145. 1142 DATA 32,72,112,152,192,4,4,4,4,4,4,4,5,5,5,5,5
  146. 1144 DATA 5,6,6,6,6,6,6,6,7,7,7,7,7,3,0,4,0,4,1,1
  147. 1150 REM     ML JOYSTICK DATA
  148. 1152 DATA 173,1,220,74,176,3,206,1,208,74,176,3,238,1,208,74,176,42,173
  149. 1154 DATA 0,208,208,31,173,16,208,41,1,208,16,173,16,208,9,1,141,16,208
  150. 1156 DATA 169,80,141,0,208,96,234,234,173,16,208,41,254,141,16,208,206
  151. 1158 DATA 0,208,96,234,234,74,176,32,238,0,208,240,30,169,80,205,0,208
  152. 1160 DATA 208,20,173,16,208,41,1,240,13,173,16,208,41,254,141,16,208,169
  153. 1162 DATA 0,141,0,208,96,234,234,173,16,208,9,1,141,16,208,96,234,234
  154. 1164 DATA 32,60,3,32,60,3,32,60,3,32,60,3,96
  155. 1170 REM     SMITH SPRITE DATA1
  156. 1172 DATA 0,0,0,0,60,0,4,255,0,4,235,0,4,20,0,4,20,0,5,255,80,5,255,80
  157. 1174 DATA 0,255,16,0,60,16,0,60,16,0,60,16,0,40,0,0,60,0,0,60,0,0
  158. 1176 DATA 60,0,0,56,0,0,48,0,0,48,0,0,48,0,0,32,0
  159. 1180 REM     SMITH SPRITE DATA 2
  160. 1182 DATA 0,0,0,0,60,0,0,255,16,0,235,16,0,20,16,0,20,16,5,255,80,5,255,80
  161. 1184 DATA 4,255,0,4,60,0,4,60,0,4,60,0,0,40,0,0,60,0,0,60,0,0,60,0
  162. 1186 DATA 0,44,0,0,12,0,0,12,0,0,12,0,0,12,0
  163. 1190 REM     SPIDER SPRITE DATA
  164. 1192 DATA 0,0,0,0,0,0,64,0,1,80,0,5,68,0,17,65,0,65,0,170,0
  165. 1194 DATA 0,170,0,170,130,170,128,170,2,128,170,2,131,40,194,12,40,48
  166. 1196 DATA 48,40,12,48,0,12,48,0,12,48,0,12,0,0,0,0,0,0,0,0,0,0,0,0
  167. 1200 REM     MICHIGAN SPRITE DATA
  168. 1202 DATA 0,10,0,0,42,0,0,37,0,0,37,0,0,37,0,0,164,0,0,4,0,5,255,212
  169. 1204 DATA 5,255,212,0,255,192,0,63,0,0,63,0,0,63,0,0,63,0,0,42,0
  170. 1206 DATA 0,51,0,0,51,0,0,51,0,0,51,0,0,51,0,0,34,0
  171. 1210 REM     SAVE ME SPRITE DATA
  172. 1212 DATA 0,0,0,0,0,0,28,228,156,16,164,144,28,228,152,4,163,16,28,163,28
  173. 1214 DATA 0,0,0,0,0,0,0,0,0,32,159,24,49,144,24,42,144,24,36,156,24
  174. 1216 DATA 36,144,24,32,144,24,32,144,0,32,144,0,32,159,24,0,0,0,0,0,0
  175.