home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 September / Ahoy_Magazine_86-09_1986_Double_L.d64 / Trapped (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  224 lines
  1. 10 dimc(14),l(10,7,7),b(7,7):printchr$(142)chr$(8):goto5000
  2. 70 xp=int(rnd(1)*7)+1:yp=int(rnd(1)*7)+1:ifb(xp,yp)=0then70
  3. 80 pokev+21,2:gosub840:x=xp*32+11:y=yp*24+36:pokev,x:pokev+1,y:pokev+21,3:tu=1
  4. 100 if((yp<1oryp>7)or(xp<1orxp>7))orxa=xpandya=ypthen900
  5. 101 ifb(xp,yp)=5or(b(xp,yp)=2andtu=1)then180
  6. 102 ifb(xp,yp)=0then900
  7. 103 ifb(xp,yp)=2then70
  8. 104 ifb(xp,yp)=1andn=2thenb(xp,yp)=4:goto118
  9. 105 ifb(xp,yp)=1orb(xp,yp)=4thenb(xp,yp)=5:goto107
  10. 106 goto118
  11. 107 print"";:poke214,yp*3-2:print:poke211,xp*3+xp-2
  12. 110 printmid$("[150][129][158][153][159][154][154]",lv,1)"[206][183][205][157][157][157][205][175][206]":poke2040,14
  13. 112 bt=bt+1:ifbt=tthen400
  14. 114 sc=sc+2*lv:ifsc>hsthenhs=sc
  15. 116 print""tab(31)"score[157][157][157][157][157]"sc:print"[129]"tab(31)"high[157][157][157][157]"hs
  16. 117 ifb=1thenb=0:goto120
  17. 118 goto180
  18. 120 ifpeek(653)=1then120
  19. 128 j=peek(56320)and15:ifj=14thenpoke2040,14:sys49168:yp=yp-1:gosub800:goto100
  20. 130 ifj=13thenpoke2040,14:sys49182:yp=yp+1:gosub800:goto100
  21. 140 ifj=11thenpoke2040,14:sys49196:xp=xp-1:gosub800:goto100
  22. 150 ifj=7thenpoke2040,14:sys49210:xp=xp+1:gosub800:goto100
  23. 180 ifint(rnd(1)*5)>2then300
  24. 190 d=5:onint(rnd(1)*2)+1goto200,230
  25. 200 ifxa>xpthenxa=xa-1:d=1:ifb(xa,ya)=6thenxa=xa+1:d=5
  26. 210 ifxa<xpthenxa=xa+1:d=2:ifb(xa,ya)=6thenxa=xa-1:d=5
  27. 220 goto250
  28. 230 ifya<ypthenya=ya+1:d=3:ifb(xa,ya)=6thenya=ya-1:d=5
  29. 240 ifya>ypthenya=ya-1:d=4:ifb(xa,ya)=6thenya=ya+1:d=5
  30. 250 ondgoto260,270,280,290,300
  31. 260 sys49252:goto300
  32. 270 sys49266:goto300
  33. 280 sys49238:goto300
  34. 290 sys49224
  35. 300 pokev+40,rnd(1)*15+1:ifxp=xaandyp=yathen900
  36. 310 goto120
  37. 400 pokes+5,0:pokes+6,240
  38. 410 fori=1to30:poke53281,i:pokes,rnd(1)*255:pokes+1,rnd(1)*255
  39. 420 pokes+4,17:forj=1tornd(1)*25:next:pokes+4,16
  40. 430 next:poke53281,0
  41. 480 pokev+21,0:l=l+1:ifl>20thenl=20
  42. 490 n=1:ifl>10thenn=2
  43. 500 lv=l:ifl>10thenlv=l-10
  44. 510 fori=1to2000:next:t=0:goto1000
  45. 800 pokes+5,5:pokes+6,53:pokes+1,25:pokes+12,5:pokes+13,53
  46. 810 pokes+7,30:pokes+8,30:pokes+4,129:pokes+11,128
  47. 820 pokes+4,33:fori=1to50step10:pokes+1,i:forj=1to5:next:next:pokes+4,32
  48. 830 poke2040,13:return
  49. 840 pokes+5,15:pokes+6,0:pokes,67:pokes+4,17:fori=1to40:forj=0to255stepi+5
  50. 850 pokes+1,j:next:next:pokes+4,16:return
  51. 900 fori=1to100:next
  52. 905 pokes+5,0:pokes+6,28:pokes,1:pokes+1,2:pokes+4,129:pokes+4,128
  53. 910 fori=1to180:pokev+39,rnd(1)*16+1:next
  54. 920 b=1:sh=sh-1:print"[158]"tab(31)sh:pokev+21,0
  55. 930 ifsh>0then980
  56. 940 print"[152]"tab(10)"           "
  57. 950 printtab(10)" game over ":printtab(10)"           "
  58. 960 fori=1to3000:next:goto5480
  59. 980 goto1100
  60. 1000 poke53281,0:print"[147]"
  61. 1010 poke53280,12:fori=1to7:print"  ";:forj=1to7:b(j,i)=l(lv,j,i)
  62. 1020 ifb(j,i)=0thena$="    "
  63. 1030 ifb(j,i)=1thena$="[169] [223][146][157][157][157][223] [146][169][145] "
  64. 1040 ifb(j,i)=2thena$="   [157][157][157]   [146][145] "
  65. 1050 printmid$("[150][129][158][153][159][154][154]",lv,1)a$;:next:print:print:print:next
  66. 1060 print""tab(31)"score[157][157][157][157][157]"sc
  67. 1070 print"[129]"tab(31)"high[157][157][157][157]"hs
  68. 1080 print"[150]"tab(31)"level[157][157][157][157][157]"l
  69. 1090 print"[158]"tab(31)"shields[157][157][157][157][157][157][157]"sh
  70. 1100 xp=int(rnd(1)*7)+1:yp=int(rnd(1)*7)+1:ifb(xp,yp)=0orb(xp,yp)=2then1100
  71. 1110 xa=int(rnd(1)*7)+1:ya=int(rnd(1)*7)+1:ifb(xa,ya)=0orb(xa,ya)=2then1110
  72. 1120 ifxp=xaandyp=yathen1110
  73. 1130 x=xp*32+11:y=yp*24+36:a=xa*32+11:b=ya*24+39:pokev+39,11
  74. 1140 pokev+23,0:pokev+29,0:pokev+21,3:pokev,x:pokev+1,y:pokev+2,a:pokev+3,b
  75. 1145 ift<>0then1170
  76. 1150 bt=0:t=0:tu=0:fori=1to7:forj=1to7:ifb(j,i)=1thent=t+1
  77. 1160 next:next:b=1
  78. 1170 pokes+5,16:pokes+6,9
  79. 1180 fori=3to1step-1:print""tab(14)""i
  80. 1190 pokes,i:pokes+1,i*10:pokes+4,17:forj=1to20:next:pokes+4,16
  81. 1200 forj=1to900:next:next
  82. 1210 print""tab(15)" "
  83. 1220 goto100
  84. 5000 print"[147][129]";:poke53280,0:v=53248:pokev+21,0:poke53281,0:c=9
  85. 5002 fori=49152to49279:readj:pokei,j:next
  86. 5004 fori=832to1022:readj:pokei,j:next:poke2040,13:poke2041,15:sc=0:hs=0:l=1
  87. 5006 fori=1to10:forj=1to7:fork=1to7:reada:l(i,k,j)=a:next:next:next:print"[147]"
  88. 5010 pokev+39,11:pokev+40,2:s=54272:fori=stos+23:pokei,0:next:pokes+24,15
  89. 5020 l$(1)="   [157][157] [157] [146]":l$(3)=" [185] [157][157][157] [184] [157][157][157]  [146]":l$(4)=" [185] [157][157][157] [184] [157][157][157] [146]"
  90. 5030 l$(5)="   [157][157][157] [146][192][157][157]   [146]":l$(6)="  [223][157][157][157]  [157][157][157]  [146][169][146]"
  91. 5040 l$(2)=" [185] [157][157][157] [184][185][157][157][157]  [146]"
  92. 5480 pokev+21,0:poke53280,0:poke53281,9:print"[147]":pokes+4,0:sh=4:cl=0:co=0
  93. 5482 poke646,cl:print""l$(1)"[145][145]"l$(2)"[145][145]"l$(3)"[145][145]"l$(4)"[145][145]"l$(4);
  94. 5484 print"[145][145]"l$(5)"[145][145]"l$(6)
  95. 5490 printtab(4)"[158]score:"sctab(22)"high score:"hs
  96. 5500 print""tab(14)"level:"l:print""tab(13)"shields:"sh
  97. 5510 print" press  f1 [146][158] to select difficulty level"
  98. 5515 print""tab(6)"press  f3 [146][158] to select shields"
  99. 5520 print""tab(10)"press  f5 [146][158] to start"
  100. 5525 co=co+1:ifco=15thencl=cl+1:ifcl=16thencl=0
  101. 5528 ifco=15thenco=0:goto5482
  102. 5530 geta$:ifa$=""then5525
  103. 5540 ifa$="[133]"thenl=l+1:ifl=21thenl=1
  104. 5550 ifa$<>"[134]"then5555
  105. 5551 ifsh=2thensh=4:goto5560
  106. 5552 ifsh=4thensh=6:goto5560
  107. 5553 ifsh=6thensh=8:goto5560
  108. 5554 ifsh=8thensh=2:goto5560
  109. 5555 ifa$="[135]"then5570
  110. 5560 print""tab(20)l"[157] ":print""tab(21)sh
  111. 5565 goto5530
  112. 5570 t=0:sc=0:n=1:lv=l:ifl>10thenn=2:lv=l-10
  113. 5580 poke53280,11:pokes+24,15:goto1000
  114. 6000 data 160,0,200,192,255,208,251,96
  115. 6001 data 0,0,0,0,0,0,0,0
  116. 6002 data 162,0,206,1,208,232,32,0
  117. 6003 data 192,224,24,208,245,96,162,0
  118. 6004 data 238,1,208,232,32,0,192,224
  119. 6005 data 24,208,245,96,162,0,206,0
  120. 6006 data 208,232,32,0,192,224,32,208
  121. 6007 data 245,96,162,0,238,0,208,232
  122. 6008 data 32,0,192,224,32,208,245,96
  123. 6009 data 162,0,206,3,208,232,32,0
  124. 6010 data 192,224,24,208,245,96,162,0
  125. 6011 data 238,3,208,232,32,0,192,224
  126. 6012 data 24,208,245,96,162,0,206,2
  127. 6013 data 208,232,32,0,192,224,32,208
  128. 6014 data 245,96,162,0,238,2,208,232
  129. 6015 data 32,0,192,224,32,208,245,96
  130. 6016 data 3,240,0,39,249,0,44,13
  131. 6017 data 0,46,29,0,127,255,128,31
  132. 6018 data 254,0,63,255,0,35,49,0
  133. 6019 data 12,204,0,12,204,0,14,220
  134. 6020 data 0,25,230,0,48,195,0,241
  135. 6021 data 227,192,241,227,192,0,0,0
  136. 6022 data 0,0,0,0,0,0,0,0
  137. 6023 data 0,0,0,0,0,0,0,0
  138. 6024 data 3,240,0,39,249,0,44,13
  139. 6025 data 0,46,29,0,127,255,128,31
  140. 6026 data 254,0,63,255,0,35,49,0
  141. 6027 data 12,204,0,14,220,0,25,230
  142. 6028 data 0,48,195,0,241,227,192,241
  143. 6029 data 227,192,0,0,0,0,0,0
  144. 6030 data 0,0,0,0,0,0,0,0
  145. 6031 data 0,0,0,0,0,0,0,0
  146. 6032 data 1,152,0,3,252,0,15,255
  147. 6033 data 0,30,247,128,30,7,128,124
  148. 6034 data 243,224,252,3,240,223,15,176
  149. 6035 data 203,253,48,213,106,176,206,7
  150. 6036 data 48,227,252,112,224,0,112,0
  151. 6037 data 0,0,0,0,0,0,0,0
  152. 6038 data 0,0,0,0,0,0,0,0
  153. 6039 data 0,0,0,0,0,0,0
  154. 6100 data 1,1,1,1,1,1,1
  155. 6101 data 1,1,1,1,1,1,1
  156. 6102 data 1,1,1,1,1,1,1
  157. 6103 data 1,1,1,2,1,1,1
  158. 6104 data 1,1,1,1,1,1,1
  159. 6105 data 1,1,1,1,1,1,1
  160. 6106 data 1,1,1,1,1,1,1
  161. 6107 data 0,1,1,0,1,1,0
  162. 6108 data 1,1,1,1,1,1,1
  163. 6109 data 1,1,1,1,1,1,1
  164. 6110 data 0,1,1,2,1,1,0
  165. 6112 data 1,1,1,1,1,1,1
  166. 6113 data 1,1,1,1,1,1,1
  167. 6114 data 0,1,1,0,1,1,0
  168. 6115 data 1,1,0,0,0,1,1
  169. 6116 data 0,1,1,1,1,1,0
  170. 6117 data 1,1,1,1,1,1,1
  171. 6118 data 1,1,1,2,1,1,1
  172. 6119 data 1,1,1,1,1,1,1
  173. 6120 data 0,1,1,1,1,1,0
  174. 6121 data 1,1,0,0,0,1,1
  175. 6122 data 1,1,0,0,0,1,1
  176. 6123 data 1,1,1,1,1,1,1
  177. 6124 data 0,1,1,1,1,1,0
  178. 6125 data 0,0,1,2,1,0,0
  179. 6126 data 0,1,1,1,1,1,0
  180. 6127 data 1,1,1,1,1,1,1
  181. 6128 data 1,1,0,0,0,1,1
  182. 6129 data 1,1,1,1,1,1,1
  183. 6130 data 1,0,1,0,1,0,1
  184. 6131 data 1,1,1,1,1,1,1
  185. 6132 data 1,0,1,2,1,0,1
  186. 6133 data 1,1,1,1,1,1,1
  187. 6134 data 1,0,1,0,1,0,1
  188. 6135 data 1,1,1,1,1,1,1
  189. 6136 data 1,0,1,0,1,0,1
  190. 6137 data 1,1,1,1,1,1,1
  191. 6138 data 1,0,1,0,1,0,1
  192. 6139 data 1,1,1,2,1,1,1
  193. 6140 data 1,0,1,0,1,0,1
  194. 6141 data 1,1,1,1,1,1,1
  195. 6142 data 1,0,1,0,1,0,1
  196. 6143 data 1,1,1,0,1,1,1
  197. 6144 data 1,0,1,0,1,0,1
  198. 6145 data 1,1,1,1,1,1,1
  199. 6146 data 0,0,0,2,0,0,0
  200. 6147 data 1,1,1,1,1,1,1
  201. 6148 data 1,0,1,0,1,0,1
  202. 6149 data 1,1,1,0,1,1,1
  203. 6150 data 0,0,0,1,0,0,0
  204. 6151 data 0,0,1,1,1,0,0
  205. 6152 data 1,1,0,1,0,1,1
  206. 6153 data 1,0,1,1,1,0,1
  207. 6154 data 1,1,0,1,0,1,1
  208. 6155 data 0,1,1,1,1,1,0
  209. 6156 data 0,0,0,2,0,0,0
  210. 6157 data 0,0,1,1,1,0,0
  211. 6158 data 0,1,1,0,1,1,0
  212. 6159 data 1,1,0,1,0,1,1
  213. 6160 data 0,1,1,2,1,1,0
  214. 6161 data 1,1,0,1,0,1,1
  215. 6162 data 0,1,1,0,1,1,0
  216. 6163 data 0,0,1,1,1,0,0
  217. 6164 data 1,1,0,1,1,1,1
  218. 6165 data 0,1,1,1,0,1,1
  219. 6166 data 1,1,0,1,1,0,1
  220. 6167 data 0,1,1,2,1,1,1
  221. 6168 data 1,1,0,1,1,0,1
  222. 6169 data 0,1,1,1,0,1,1
  223. 6170 data 1,1,0,1,1,1,1
  224.