home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / commodor / slither (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-05-20  |  8.9 KB  |  254 lines
  1. 1 REM ALL TIME HIGH 43,840
  2. 10 POKE53281,0:POKE53280,0:POKE52,56:POKE56,56:I=RND(-TI):PRINTCHR$(142)
  3. 20 J0=127:J2=56320:S=1024:SI=54272:C=SI:S1=SI+1:S4=SI+4:S5=SI+5:S6=SI+6:SV=SI+24
  4. 22 BH=33:BS=34:BC=32:NS=40:C$=CHR$(96)
  5. 30 FORI=SITOSV:POKEI,0:NEXT:POKES6,242:POKESV,15
  6. 32 POKE56334,0:POKE1,51
  7. 34 A=14336:B=53248:FORI=0TO1487:POKEI+A,PEEK(I+B):NEXT
  8. 36 POKE1,55:POKE56334,1:POKE53272,30
  9. 38 FORI=0TO30:READP:POKE49152+I,P:NEXT
  10. 40 FORI=14600TO14631:READP:POKEI,P:NEXT
  11. 42 FORI=15064TO15159:READP:POKEI,P:NEXT
  12. 44 FORI=14720TO14799:READP:POKEI,P:NEXT
  13. 60 DIMJD(32),L$(NS),FC(12),FS(13),BC(5)
  14. 64 JD(1)=-40:JD(2)=40:JD(4)=-1:JD(8)=1
  15. 66 FORJ=1TONS:READL$(J):NEXT
  16. 68 FORI=1TO12:READFC(I):NEXT
  17. 70 FORI=1TO13:READFS(I):NEXT
  18. 72 FORI=1TO5:READCB(I):NEXT
  19. 99 :
  20. 100 PRINT"[147]"
  21. 120 PRINT"[156]  [195][195][195][195][195] [195]     [195] [195][195][195][195][195] [195]   [195] [195][195][195][195][195] [195][195][195][195] "
  22. 122 PRINT"  [195]     [195]     [195]   [195]   [195]   [195] [195]     [195]   [195]"
  23. 124 PRINT"[154]   [195][195][195]  [195]     [195]   [195]   [195][195][195][195][195] [195][195][195][195]  [195][195][195][195]"
  24. 126 PRINT"[159]      [195] [195]     [195]   [195]   [195]   [195] [195]     [195]  [195]"
  25. 127 PRINT"  [195][195][195][195]  [195][195][195][195][195] [195]   [195]   [195]   [195] [195][195][195][195][195] [195]   [195]"
  26. 130 FORI=1TO200:NEXT
  27. 132 PRINT""TAB(12)"DIFFICULTY 12345":P=S+183
  28. 134 J=PEEK(J2):IFJ=119THENP=P+1:IFP>S+187THENP=P-1
  29. 136 IFJ=123THENP=P-1:IFP<S+183THENP=P+1
  30. 138 IFJ=111THEN160
  31. 140 POKEP,PEEK(P)OR128:FORI=1TO30:NEXT:POKEP,PEEK(P)AND127:GOTO134
  32. 160 DI=P-(S+182):DU=DI:W=7:SC=0:L=1
  33. 162 POKE53270,216:POKE53282,6:POKE53283,5
  34. 190 GOSUB700
  35. 192 P=S+165:PD=1
  36. 199 :
  37. 200 J=PEEK(J2):IFJ=J0THEN250
  38. 202 J=J0-J:IFJD(J)THENPD=JD(J)
  39. 250 Q=PEEK(P+PD):IFQ<>BCTHEN300
  40. 252 POKEP,BS:P=P+PD:POKEP+C,CB:POKEP,BH
  41. 260 FORD=1TO50:NEXT:GOTO200
  42. 298 :
  43. 299 : * COLLISION *
  44. 300 IFQ<91THEN400
  45. 302 Q=Q-90:SC=SC+FS(Q):POKEP,BS:FORI=Q*12+10TO0STEP-Q/2:POKES1,I:POKES4,17:NEXT
  46. 304 P=P+PD:POKEP,BH:FORI=0TOQ*12+10STEPQ/2:POKES1,I:POKES4,17:NEXT:POKES4,16
  47. 310 POKEP+C,CB:GOSUB350:DU=DU-1:IFDU=0THEN800
  48. 312 GOTO200
  49. 348 :
  50. 349 : * STATUS LINE *
  51. 350 PRINT"SCORE  ";:N=SC:GOTO940
  52. 360 PRINT""TAB(19)"("CHR$(48+W)")"TAB(28)"HIGH  ";:N=SH:GOSUB940
  53. 362 PRINT"":RETURN
  54. 398 :
  55. 399 : * CRASHED *
  56. 400 POKES1,5:POKES4,129:FORI=15TO0STEP-1:POKESV,I:POKEP+C,I:POKE53281,I
  57. 402 POKE53280,I:POKE53282,15-I:POKE53283,I:FORJ=1TO20:NEXT:NEXT
  58. 406 POKE53282,6:POKE53283,5:POKESV,15:POKES4,0:W=W-1:GOSUB360:IFW=0THEN410
  59. 408 POKEP,BC:SYS49152:FORI=1TO800:NEXT:GOTO192
  60. 410 PRINT"":PRINTTAB(15)"GAME  OVER"
  61. 412 IFSC>SHTHENSH=SC:GOSUB450
  62. 420 PRINTTAB(7)"PRESS BUTTON TO PLAY AGAIN":GOSUB360
  63. 430 IFPEEK(J2)<>111THEN430
  64. 440 GOSUB3100:GOTO130
  65. 450 FORJ=1TO15:PRINTTAB(15)"[145]HIGH SCORE":FORI=1TO20:NEXT:POKES1,38:POKES4,33
  66. 452 PRINTTAB(15)"[145][158]HIGH SCORE":FORI=1TO20:NEXT:POKES1,40:POKES4,33:NEXT
  67. 454 POKES4,32:RETURN
  68. 598 :
  69. 599 : * PLACE PRIZES *
  70. 600 R=INT(RND(1)*19)*40+INT(RND(1)*36)+122+S:IFPEEK(R)<>BCORR=S+165THEN600
  71. 610 L1=L:IFL>12THENL1=12
  72. 620 POKER,L1+90:POKER+C,FC(L1):RETURN
  73. 698 :
  74. 699 : * SET UP SCREEN *
  75. 700 IFL=1THENGOSUB900
  76. 701 PRINT"[147][155]$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$";
  77. 702 FORI=1TO21:PRINT"$                                      $";:NEXT
  78. 704 PRINT"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$";:POKE2023,36:POKE56295,15
  79. 705 L1=L:IFL>12THENL1=12
  80. 706 PRINT""TAB(17-LEN(L$(L))/2)"#"MID$(STR$(L),2)"-"L$(L)" ";
  81. 707 POKE646,FC(L1):PRINTCHR$(L1+218)
  82. 710 READA,B:IFA=0THEN720
  83. 711 N=1:IFB-A>39THENN=40
  84. 712 FORI=A+STOB+SSTEPN:POKEI,36:POKEI+C,15:NEXT:GOTO710
  85. 720 FORJ=1TODU:GOSUB600:NEXT:GOSUB350:GOSUB360:CB=CB(DI):FORI=1TO400:NEXT
  86. 732 RETURN
  87. 798 :
  88. 799 : * COMPLETED A SCREEN *
  89. 800 DU=DI:FORI=1TO200:NEXT:L1=L:IFL>12THENL1=12
  90. 810 PRINT""
  91. 812 PRINTTAB(15)"BONUS  "RIGHT$("  "+STR$(FS(L1+1)),3)
  92. 814 SC=SC+FS(L1+1):GOSUB350:FORI=1TO800:NEXT:L=L+1:IFL<=NSTHEN190
  93. 820 K=0:L=1:GOSUB3100:PRINT"[147]":POKES6,240
  94. 822 A=80:B=960:N=40:GOSUB960:A=961:B=999:N=1:GOSUB960:A=959:B=119:N=-40:GOSUB960
  95. 824 A=118:B=81:N=-1:GOSUB960
  96. 830 GOSUB350:GOSUB360:M=0:A$="LEVEL"+C$+CHR$(DI+112)+C$+C$+"BONUS"
  97. 832 POKES6,251:FORJ=1TO14:POKES1,J+70:POKES4,21:POKES4,20
  98. 834 FORI=1196TO1476STEP40:POKEI+J-40,32:POKEI+J,ASC(MID$(A$,J,1))-64:NEXT:NEXT
  99. 836 FORI=1TO800:NEXT:POKES6,242:FORI=1TO12:POKEI+1597,I+90:POKEI+55869,FC(I)
  100. 838 POKES1,I+5:POKES4,129:FORJ=1TO10:NEXT:M=M+FS(I)*DI:POKES4,128
  101. 840 FORJ=1TO20:NEXT:PRINT""TAB(18)RIGHT$("   "+STR$(M),4)
  102. 842 SC=SC+FS(I)*DI:GOSUB350:NEXT:DI=DI+1:DU=DU+1:IFDI>5THENDI=5:DU=5
  103. 854 FORI=1TO200:NEXT:PRINT""TAB(12)DI" BONUS LIVES":W=W+DI:IFW>9THENW=9
  104. 860 GOSUB360:PRINT""TAB(7)"GET READY FOR DIFFICULTY"DI
  105. 870 FORI=1TO2000:NEXT:GOTO190
  106. 899 :
  107. 900 PRINT"[147]"TAB(9)NS"SCREENS THIS LEVEL":POKES6,252:POKES1,75
  108. 902 POKES1+14,DI*15+30:POKES4,21:POKES4,20:FORI=1TO2300:NEXT:POKES6,242:RETURN
  109. 940 PRINTRIGHT$("     "+STR$(N),6);:RETURN
  110. 960 FORI=A+STOB+SSTEPN:POKEI,42:POKEI+C,2+K:K=NOTK:POKES1,5+K:POKES4,129
  111. 962 FORJ=1TO4:NEXT:POKES4,128:FORJ=1TO2:NEXT:NEXT:RETURN
  112. 998 :
  113. 999 : * ML DATA *
  114. 1000 DATA169,0,133,253,169,4,133,254,160,0,162,4
  115. 1002 DATA177,253,201,34,208,4,169,32,145,253,200,208,243,230,254,202,208,238,96
  116. 1099 : * CHARACTER DATA *
  117. 1100 DATA40,158,158,190,190,158,158,40
  118. 1102 DATA40,190,190,190,190,190,190,40
  119. 1104 DATA36,254,36,36,36,254,36,0
  120. 1106 DATA85,85,85,85,85,85,85,85
  121. 1119 :
  122. 1120 DATA130,40,60,255,255,60,60,0
  123. 1122 DATA130,40,255,255,255,60,60,0
  124. 1124 DATA0,0,56,124,254,124,56,0
  125. 1126 DATA60,40,170,190,170,190,170,40
  126. 1128 DATA160,160,60,247,255,255,60,0
  127. 1130 DATA3,3,7,14,14,28,56,96
  128. 1132 DATA60,60,60,60,60,60,247,247
  129. 1134 DATA60,60,60,60,60,60,247,247
  130. 1136 DATA28,193,3,1,3,1,3,1
  131. 1138 DATA20,20,60,195,195,195,60,0
  132. 1140 DATA20,20,60,195,195,195,60,0
  133. 1142 DATA0,56,131,194,131,194,44,0
  134. 1159 :
  135. 1160 DATA254,198,198,198,198,198,254,0
  136. 1162 DATA6,6,6,6,6,6,6,0
  137. 1164 DATA254,6,6,254,192,192,254,0
  138. 1166 DATA254,6,6,254,6,6,254,0
  139. 1168 DATA198,198,198,254,6,6,6,0
  140. 1170 DATA254,192,192,254,6,6,254,0
  141. 1172 DATA192,192,192,254,198,198,254,0
  142. 1174 DATA254,6,6,6,6,6,6,0
  143. 1176 DATA254,198,198,254,198,198,254,0
  144. 1178 DATA254,198,198,254,6,6,6,0
  145. 1199 : * NAMES *
  146. 1201 DATA"THE COURTYARD"
  147. 1202 DATA"THE GATEHOUSE"
  148. 1203 DATA"THE BARRACKS"
  149. 1204 DATA"THE GARDEN"
  150. 1205 DATA"THE CHAPEL"
  151. 1206 DATA"THE PIT"
  152. 1207 DATA"GALLERY I"
  153. 1208 DATA"THE LIBRARY"
  154. 1209 DATA"THE SNAKE"
  155. 1210 DATA"THE COLONADE"
  156. 1211 DATA"THE WINE CELLAR"
  157. 1212 DATA"THE THREE ROOMS"
  158. 1213 DATA"THE DOUBLE-E ROOM"
  159. 1214 DATA"GALLERY II"
  160. 1215 DATA"THE OVAL ROOM"
  161. 1216 DATA"THE GREENHOUSE"
  162. 1217 DATA"THE MESH ROOM"
  163. 1218 DATA"THE PRISON"
  164. 1219 DATA"THE I-J-K ROOM"
  165. 1220 DATA"THE CUBICLES"
  166. 1221 DATA"TRIPLE-T"
  167. 1222 DATA"THE VESTIBULE"
  168. 1223 DATA"THE ARENA"
  169. 1224 DATA"DEATHTRAP I"
  170. 1225 DATA"THE S-CHAMBER"
  171. 1226 DATA"THE SPIRAL HALL"
  172. 1227 DATA"THE WEB"
  173. 1228 DATA"THE MAZE"
  174. 1229 DATA"THE PIT II"
  175. 1230 DATA"THE ATRIUM"
  176. 1231 DATA"THE CLOAKROOMS"
  177. 1232 DATA"THE DUNGEON"
  178. 1233 DATA"THE SHIFTING HALL"
  179. 1234 DATA"THE SUITE"
  180. 1235 DATA"THE PANTRY"
  181. 1236 DATA"GALLERY III"
  182. 1237 DATA"THE WINDBREAK"
  183. 1238 DATA"DEATHTRAP II"
  184. 1239 DATA"THE WALL"
  185. 1240 DATA"DEATHTRAP III"
  186. 2999 : * MISCELLANEOUS *
  187. 3010 DATA10,12,7,15,10,7,9,15,9,9,15,10
  188. 3020 DATA10,25,50,75,100,125,150,175,200,250,300,400,500
  189. 3030 DATA15,10,12,14,13
  190. 3099 : * COORDINATE DATA *
  191. 3100 POKE65,PEEK(61):POKE66,PEEK(62):RETURN
  192. 3110 DATA0,0
  193. 3120 DATA135,455,495,498,145,465,502,505,0,0
  194. 3130 DATA139,379,140,380,410,429,650,669,699,939,700,940,0,0
  195. 3140 DATA401,420,659,678,0,0
  196. 3150 DATA330,730,350,750,521,536,543,558,0,0
  197. 3160 DATA250,269,250,810,269,829,811,816,822,828,455,458,461,464,455,655
  198. 3162 DATA504,664,656,663,0,0
  199. 3170 DATA130,410,650,930,149,429,669,949,339,739,340,740,0,0
  200. 3180 DATA287,767,312,792,290,309,410,429,530,549,650,669,770,789,0,0
  201. 3190 DATA285,314,325,405,445,474,474,594,605,634,645,725,765,794,0,0
  202. 3200 DATA446,606,250,450,610,930,454,614,458,618,461,621,465,625,149,469
  203. 3202 DATA629,949,473,633,0,0
  204. 3210 DATA210,229,361,374,385,398,530,549,681,694,705,718,850,869,0,0
  205. 3220 DATA415,424,521,530,549,558,570,650,850,930,455,655,855,935,464,664
  206. 3222 DATA864,944,589,669,869,949,0,0
  207. 3230 DATA244,257,262,275,524,532,547,555,804,817,822,835,297,777,302,782,0,0
  208. 3240 DATA241,250,254,265,269,278,418,421,765,770,789,794,290,730,294,774
  209. 3242 DATA458,778,461,781,305,785,309,789,0,0
  210. 3250 DATA378,381,415,417,422,424,453,454,465,466,492,493,506,507,531,532
  211. 3252 DATA547,548,691,692,707,708,732,733
  212. 3254 DATA746,747,773,774,785,786,815,817,822,824,858,861,0,0
  213. 3260 DATA205,234,405,434,605,634,805,834,245,785,0,0
  214. 3270 DATA325,925,250,730,335,935,140,740,345,945,150,750,355,955,0,0
  215. 3280 DATA130,410,650,930,149,429,669,949,334,345,374,385,414,428
  216. 3282 DATA651,665,694,705,734,745,0,0
  217. 3290 DATA286,304,330,730,766,774,339,739,777,779,344,784,545,546
  218. 3292 DATA312,312,351,351,390,390,429,429,468,468,507,507,587,587,628,628,669,669
  219. 3294 DATA710,710,751,751,792,792,0,0
  220. 3300 DATA135,255,140,260,145,265,150,270,155,275,805,925,810,930,815,935
  221. 3302 DATA820,940,825,945,830,950,835,955,0,0
  222. 3310 DATA286,486,580,940,314,514,521,530,535,545,550,558,0,0
  223. 3320 DATA326,338,341,353,526,553,726,738,741,753,141,301,366,406,646,686
  224. 3322 DATA393,433,673,713,778,938,0,0
  225. 3330 DATA137,142,253,257,262,266,410,413,426,429,610,613,626,629,773,777,782
  226. 3332 DATA786,897,902,177,217,182,222,450,570,469,589,817,857,822,862,0,0
  227. 3340 DATA243,843,290,810,297,937,142,822,309,829,316,876,248,257,267,276
  228. 3342 DATA843,852,862,871,0,0
  229. 3350 DATA241,263,416,423,576,583,736,743,896,918,936,958,456,536,623,703,0,0
  230. 3360 DATA216,224,376,381,540,544,696,701,860,864,145,865,416,936,0,0
  231. 3370 DATA325,725,136,456,616,936,347,747,158,478,638,958,521,530,542,552
  232. 3372 DATA331,341,353,357,731,741,753,757,0,0
  233. 3380 DATA404,412,427,435,452,932,140,820,467,947,0,0
  234. 3390 DATA410,416,423,429,655,668,821,824,450,930,695,735,895,935,861,941
  235. 3392 DATA469,949,0,0
  236. 3400 DATA321,329,335,337,342,344,350,358,526,536,543,553,766,776,783,793
  237. 3402 DATA376,496,383,503,566,726,593,753,816,936,823,943,0,0
  238. 3410 DATA241,246,250,256,263,275,454,456,463,465,614,616,623,625,804,829
  239. 3412 DATA833,838,290,770,296,416,656,776,303,423,663,783,309,789,0,0
  240. 3420 DATA244,275,284,315,655,664,695,704,324,924,325,925,339,739,340,740
  241. 3422 DATA899,939,900,940,354,714,355,715,0,0
  242. 3430 DATA361,376,384,398,681,696,704,718,297,457,617,777,140,300,460,620
  243. 3432 DATA780,940,303,463,623,783,0,0
  244. 3440 DATA408,413,648,653,425,431,665,671,295,297,302,304,775,777,782,784
  245. 3442 DATA134,414,654,934,145,425,665,945,0,0
  246. 3450 DATA325,925,330,930,335,935,145,745,150,750,155,755,336,338,742,744,0,0
  247. 3460 DATA241,255,264,278,801,815,824,838,288,528,535,775,259,819,260,820
  248. 3462 DATA311,551,544,784,0,0
  249. 3470 DATA565,925,490,850,415,775,340,700,265,625,190,550,155,475,0,0
  250. 3480 DATA281,292,295,307,533,536,543,546,772,784,787,798,332,652,812,932
  251. 3482 DATA339,419,340,420,659,739,660,740,147,267,427,747,0,0
  252. 3490 DATA523,556,0,0
  253. 3500 DATA260,278,444,454,459,463,616,620,625,635,801,819,135,615,464,944,0,0
  254.