home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / RELEASE-ME (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  9.1 KB  |  277 lines
  1. 5 FORJS=828TO848:READP:POKEJS,P:NEXT
  2. 6 DATA173,0,220,41,31,73,31,133,3,173
  3. 7 DATA1,220,73,255,133,2,5,3,133,144,96
  4. 10 V=53248:S=54272:YL=7:RD=2:W=150
  5. 12 V1=V+1:V5=V+5:V7=V+7:V9=V+9:V4=V+4:V6=V+6:V8=V+8:JS=90:SJ=60:BZ=4:Z=10
  6. 14 FH=50:FV=225:F1=V+10:F2=V+11:F3=V+12:F4=V+13:Q=0:OK=40
  7. 15 BH=250:BV=102:SH=220:SV=110:RH=228:RV=108:HH=228:HV=108:LH=228:LV=108
  8. 16 SR=37:LF=49:RT=41:SP=V+21:FT=79:Q=12
  9. 17 PRINT"[147]":POKE53280,0:POKE53281,12
  10. 18 PRINT"[147]":INPUT"J[146][144]UNIOR S[146][144]ENIOR";JS$
  11. 19 FORA=0TO24:POKES+A,0:NEXT:POKEV+16,96
  12. 20 PRINT"[147]":GOSUB1000:GOSUB400:GOSUB700
  13. 21 POKES+1912,1:POKES+1920,1:POKES+1928,1
  14. 22 POKEV+10,FH:POKEV+12,FH:POKEV+11,FV:POKEV+13,FV
  15. 23 C$=""
  16. 28 IFJS$="J"THENJS=96:Q=6:Z=20:POKEV+41,6
  17. 30 POKEV,BH:POKEV+1,BV:POKEV+2,SH:POKEV+3,SV:POKEV+4,HH:POKEV+5,HV
  18. 35 POKEV+6,RH:POKEV+7,RV:POKEV+8,LH:POKEV+9,LV
  19. 40 POKEV+23,2:POKEV+29,30:POKESP,SR
  20. 45 GOSUB900:PRINT"BUTTON TO BEGIN"
  21. 50 PK=PEEK(V+31):SYS828:IFPEEK(3)<>16THEN50
  22. 51 FORMV=SHTO6STEP-3:POKEV,MV+18-(LL+DD):POKEV1,BV+UU+D:POKEV+4,MV
  23. 52 IFPEEK(V)>240THENDD=0:LL=0:MV=235
  24. 53 POKEV6,MV:POKEV8,MV:NT=RND(1)*250:POKES,NT:IFNT>220THENPOKES+6,0:GOSUB900
  25. 54 SYS828:K=PEEK(3):ONKGOSUB85,86,87,88,89,90,87,91,93,94,87,87,87,87,87,95
  26. 55 RL=RND(1)*100+1:RR=RND(1)*100:RS=RND(1)*100:CT=0:POKEV+44,RL/10
  27. 60 IFRL>JSTHENR1=1:R2=0:UU=0
  28. 61 IFR1=1THENPOKESP,LF:POKEV+1,PEEK(V1)-4:GOSUB200:PRINT"                   "
  29. 62 IFRR>JSTHENR2=1:R1=0:MD=0
  30. 63 IFR2=1THENPOKESP,RT:POKEV+1,PEEK(V1)-4:GOSUB250:PRINT"                   "
  31. 65 IFRS>JS-SJTHENR2=0:R1=0:MD=0:POKESP,SR
  32. 70 SYS828:K=PEEK(3):ONKGOSUB85,86,87,88,89,90,87,91,93,94,87,87,87,87,87,95
  33. 78 K=0
  34. 79 IFPEEK(V4)<15THENMV=35:LL=5:DD=5:POKEV,MV
  35. 80 NEXT
  36. 84 STOP
  37. 85 R1=0:R2=0:UU=0:POKEV+1,PEEK(V+5)-8:RETURN
  38. 86 POKEV1,PEEK(V1)+3:POKEV5,PEEK(V5)+3:POKEV7,PEEK(V7)+3:POKEV9,PEEK(V9)+3:D=D+3
  39. 87 RETURN
  40. 88 MV=MV-4:RETURN
  41. 89 R1=1:R2=0:RETURN
  42. 90 RETURN
  43. 91 MV=MV+7:IFPEEK(V)>235THENDD=0:LL=0:MV=235
  44. 92 RETURN
  45. 93 R2=1:R1=0:RETURN
  46. 94 RETURN
  47. 95 BT=15:GOSUB930:GOSUB100:RETURN
  48. 100 BB=PEEK(V+1):CT=0
  49. 105 FORX=BBTO91STEP-1:POKEV1,X:NEXT
  50. 110 IFPEEK(V)>96ANDPEEK(V)<108THENPOKE1234,32:POKE1114+S,0:POKE1114,98:B1=1
  51. 111 IFB1=1ANDPEEK(1689)<>32THENGOSUB550:POKE1689,32:POKE1690,32:Y=ABS(Y-2)
  52. 112 IFPEEK(V)>160ANDPEEK(V)<172THENPOKE1242,32:POKE1122+S,0:POKE1122,98:B2=1
  53. 113 IFB2=1ANDPEEK(1681)<>32THENGOSUB550:POKE1681,32:POKE1682,32:Y=ABS(Y-2)
  54. 114 IFPEEK(V)>224ANDPEEK(V)<236THENPOKE1250,32:POKE1130+S,0:POKE1130,98:B3=1
  55. 115 IFB3=1ANDPEEK(1673)<>32THENGOSUB550:POKE1673,32:POKE1674,32:Y=ABS(Y-2)
  56. 117 IFY=2THENPOKE53281,0:POKEV+41,0
  57. 118 IFY=0THENPOKE53281,12:POKEV+41,Q
  58. 120 FORX=91TOBB:POKEV1,X:NEXT:PK=PEEK(V+31)
  59. 149 RETURN
  60. 200 ML=PEEK(V):MU=PEEK(V+1):PK=PEEK(V+31)
  61. 205 POKEV,ML-3:LL=LL+3:POKEV+1,MU+.5:UU=UU+.5
  62. 210 POKESP,LF+32:POKEF1,INT(RND(1)*31)+30:POKEF2,INT(RND(1)*8)+218
  63. 220 IFPEEK(V)<PEEK(V+4)-5THENGOSUB500:GOTO280
  64. 235 IFPEEK(V+31)>0THENGOSUB300:POKEV+39,1
  65. 249 POKES+18,129:POKES+18,128: RETURN
  66. 250 ML=PEEK(V):MD=PEEK(V+1):PK=PEEK(V+31)
  67. 255 POKEV,ML-4:DD=DD-4:POKEV+1,MD+.5:MD=MD+.5  
  68. 260 POKESP,RT+32:POKEF1,INT(RND(1)*31)+30:POKEF2,INT(RND(1)*8)+218
  69. 270 IFPEEK(V)>PEEK(V+4)+42THENGOSUB500:GOTO280
  70. 275 IFPEEK(V+31)>0THENGOSUB300:POKEV+39,1
  71. 279 POKES+18,129:POKES+18,128: RETURN
  72. 280 FORJ=PEEK(V1)TO228STEP3:POKEV1,J
  73. 281 IFPEEK(V+31)>0THENER=1:GOSUB300:ER=0
  74. 282 NEXT:POKEV+39,1
  75. 283 IFPEEK(V)<105ANDPEEK(V)>91ANDPEEK(1673)=32THENPT=40:POKE1912+F,81:GOTO290
  76. 284 IFPEEK(V)<169ANDPEEK(V)>155ANDPEEK(1681)=32THENPT=80:POKE1920+G,81:GOTO290
  77. 286 IFPEEK(V)<233ANDPEEK(V)>219ANDPEEK(1689)=32THENPT=120:POKE1928+H,81:GOTO290
  78. 288 FORJ=PEEK(V1)TO242:POKEV1,J:NEXT:FORJ=PEEK(V)TO255:POKEV,J:NEXT:PT=-40
  79. 289 GOSUB930:GOTO292
  80. 290 GOSUB800:LB=1:BT=0:GOSUB750
  81. 291 IFOT=1THENOT=0:PT=0
  82. 292 OK=OK+PT:PT=0:GOSUB3000
  83. 295 SYS828:IFPEEK(3)=16THENPOKE2014,32:GOSUB600:GOTO298
  84. 296 POKEF3,INT(RND(1)*31)+30:POKEF4,INT(RND(1)*8)+218:POKEV+45,RND(1)*12
  85. 297 PRINTC$TAB(33)CHR$(W+C)"BUTTON[145]":C=ABS(C-1):GOTO295
  86. 298 POKES+11,128:POKES+4,84:POKE1616,32:GOSUB550:POKE1614,160:MV=SH
  87. 299 PRINT"[151]"TAB(33)"      [145]":RETURN
  88. 300 IFER=1THENBZ=1:FT=2
  89. 310 POKES+21,0:POKES+22,114:POKES+23,176:POKES+24,FT:POKES,163:POKES+1,4
  90. 313 POKES+2,0:POKES+3,BZ:POKES+5,110:POKES+6,251:POKES+7,24:POKES+8,3
  91. 316 POKES+9,0:POKES+10,BZ:POKES+12,14:POKES+13,251:POKES+11,129:POKES+4,85
  92. 318 IFER=1THENBZ=4:FT=79:POKEV+39,J:RETURN
  93. 320 FORT=1TO25:POKEV+41,T:POKEV+42,T:POKEV+43,T:NEXT
  94. 330 POKE 54283,128:POKE 54276,84
  95. 332 POKEV+41,Q:POKEV+42,RD:POKEV+43,YL
  96. 335 JG=INT(RND(1)*10)+4:POKEV1,PEEK(V1)-JG:POKEV5,PEEK(V5)-JG:POKEV7,PEEK(V7)-JG
  97. 337 POKEV9,PEEK(V9)-JG:D=D-JG
  98. 340 MV=MV+JG:LL=LL+JG:DD=DD+JG
  99. 345 IFPEEK(V5)<30THENPOKEV1,50:POKEV5,50:POKEV7,50:POKEV9,50:JG=0
  100. 346 IFPEEK(V)<20THENPOKEV,20:LL=0:DD=0
  101. 349 RETURN
  102. 400 PRINT"                              [146]"
  103. 402 FORBT=1TO3:PRINTCHR$(147+BT*2)"":PRINTTAB(8*BT)"[201]  [146][213]"
  104. 405 PRINTTAB(8*BT)"[194]  [194]"
  105. 410 PRINTTAB(6*BT+(BT-2)+BT)"[213][195][203]  [202][195][201]"
  106. 415 PRINTTAB(6*BT+(BT-2)+BT)"[194][160][160][160][160][160][160][194]"
  107. 420 PRINTTAB(6*BT+(BT-2)+BT)"[194]      [194]"
  108. 425 PRINTTAB(6*BT+(BT-2)+BT)"[194]      [194]"
  109. 430 PRINTTAB(6*BT+(BT-2)+BT)"[194]      [194]"
  110. 435 PRINTTAB(6*BT+(BT-2)+BT)"[202][195][195][195][195][195][195][203]":NEXT
  111. 440 POKE2014,117:POKES+2014,0:POKE1473,118:POKES+1473,0
  112. 445 FORLN=1434TO1463:POKES+LN,0:POKELN,100:NEXT:POKE1453,32
  113. 446 FORLN=1514TO1543:POKES+LN,0:POKELN,99:NEXT:POKE1533,32:POKE1493,32
  114. 448 FORLN=1024TO1984STEP40:POKES+LN,0:POKELN,92:NEXT
  115. 449 FORLN=1096TO1426STEP40:POKES+LN,0:POKELN,97:NEXT
  116. 450 FORBT=1TO3:PRINT""CHR$(155-BT*2)TAB(8*BT)"     [146]"
  117. 455 PRINTTAB(8*BT)"     [146]":PRINTTAB(8*BT)"[144]  [184]  "
  118. 460 NEXT
  119. 465 POKE1655,160:POKES+1655,0:POKE1615,160:POKES+1615,0:POKES+1655,0
  120. 467 POKE1575,160:POKES+1575,0:POKE1614,160:POKES+1614,2
  121. 470 PRINT""TAB(34)"[158][201] [213]":PRINTTAB(34)"[221] [221]"
  122. 472 PRINTTAB(32)"[213][195][203][156] [146][158][202][195][201]":PRINTTAB(32)"[221]     [221]":PRINTTAB(32)"[221]     [221]"
  123. 474 PRINTTAB(32)"[202][195][195][195][195][195][203]"
  124. 499 RETURN
  125. 500 IFPEEK(V1)<138ANDPEEK(V)>92THENFORR=PEEK(V1)TO128:POKEV1,R:NEXT:RZ=1
  126. 502 IFRZ=1THENRZ=0:FORR=PEEK(V)TO255:POKEV,R:NEXT:GOTO515
  127. 510 RETURN
  128. 515 LL=0:DD=0:D=0:UU=0:MV=SH
  129. 520 POKEV5,129:POKEV7,129:POKEV9,129
  130. 525 POKEV4,SH:POKEV6,SH:POKEV8,SH:POKEV1,PEEK(V5)-6
  131. 549 RETURN
  132. 550 POKES+21,4:POKES+22,21:POKES+23,64:POKES+24,47
  133. 552 POKES,209:POKES+1,18:POKES+2,0:POKES+3,4
  134. 554 POKES+5,7:POKES+6,0:POKES+7,162:POKES+8,37
  135. 556 POKES+9,0:POKES+10,4:POKES+12,7:POKES+13,0:POKES+11,129:POKES+4,129
  136. 560 FORT=1TO200:NEXT:PRINT"                     "
  137. 570 POKE S+11,128:POKES+4,128
  138. 575 IFB1=1THENPOKE1681,160:POKE1682,160:POKE1673,160:POKE1674,160
  139. 576 IFB1=1THENB1=0:POKE1242,226:POKE1122,32:POKE1250,226:POKE1130,32
  140. 577 IFB2=1THENPOKE1689,160:POKE1690,160:POKE1673,160:POKE1674,160
  141. 578 IFB2=1THENB2=0:POKE1234,226:POKE1114,32:POKE1250,226:POKE1130,32
  142. 579 IFB3=1THENPOKE1689,160:POKE1690,160:POKE1681,160:POKE1682,160
  143. 580 IFB3=1THENB3=0:POKE1234,226:POKE1114,32:POKE1242,226:POKE1122,32
  144. 590 IFAC=1THENB1=1:B2=1:AC=0:GOTO575
  145. 599 RETURN
  146. 600 POKEV1,242:POKEV+39,1:FORJ=PEEK(V)TO255STEP3:POKEV,J:POKES+18,21
  147. 601 POKES+18,20:POKES+15,J/10:POKEV+45,J:NEXT
  148. 602 POKEV+16,97:FORJ=1TO77STEP4:POKES+15,J:POKEV,J:POKES+18,21:POKES+18,20
  149. 603 POKEF3,INT(RND(1)*31)+30:POKEF4,INT(RND(1)*8)+218:POKEV+45,J/10
  150. 604 NEXT
  151. 605 FORJ=PEEK(V1)TO128STEP-4:POKES+15,255-J:POKEV1,J:POKES+18,21:POKES+18,20
  152. 607 POKEF3,INT(RND(1)*31)+30:POKEF4,INT(RND(1)*8)+218:POKEV+45,J/10
  153. 609 NEXT:FORJ=PEEK(V)TO0STEP-4:POKEV,J:POKES+18,21:POKES+18,20:POKES+15,150-J
  154. 610 POKEF3,INT(RND(1)*31)+30:POKEF4,INT(RND(1)*8)+218:POKEV+45,J/10
  155. 611 NEXT:POKEV+16,96
  156. 612 FORJ=255TO237STEP-2:POKEV,J:POKES+18,21:POKES+18,20:POKES+15,J/2:NEXT
  157. 615 POKEV4,232:POKEV6,232:POKEV8,232:POKEV5,129:POKEV7,129:POKEV9,129:GOSUB800
  158. 616 BV=123
  159. 617 LL=0:DD=0:UU=0:D=0:POKE2014,117
  160. 618 IFBL>5THENPRINT"OUT OF BALLS!":POKEV+39,12:POKES+24,0:END
  161. 620 RETURN
  162. 650 POKES+21,4:POKES+22,158:POKES+23,225:POKES+24,79
  163. 652 POKES,12:POKES+1,1:POKES+2,72:POKES+3,8
  164. 654 POKES+5,33:POKES+6,240:POKES+4,33
  165. 670 RETURN
  166. 700 POKES+21,0:POKES+22,15:POKES+23,240:POKES+24,47
  167. 702 POKES+14,30:POKES+15,25:POKES+16,216:POKES+17,9
  168. 704 POKES+19,1:POKES+20,0:POKES+18,129:POKES+18,128
  169. 749 RETURN
  170. 750 PRINT"PRESS RED BUTTON":ER=1:GOSUB300:POKEV+39,1:TI$="000000":VV=5
  171. 751 POKEV+39,12:FORVM=PEEK(V4)TO6STEP-5:POKEV4,VM:POKEV6,VM:POKEV8,VM
  172. 752 POKEV5,PEEK(V5)+VV:POKEV7,PEEK(V7)+VV:POKEV9,PEEK(V9)+VV
  173. 755 SYS828:K=PEEK(3):ONKGOSUB791,792,793,794,793,793,793,795
  174. 765 IFPEEK(V4)>210ANDPEEK(V5)>154ANDPEEK(V5)<166THENGOTO796
  175. 770 IFVV+PEEK(V5)>230ORVV+PEEK(V5)<50THENVV=0:GOSUB300:POKEV1,242:POKEV+39,1
  176. 772 IFVM<20ORVM>222THENVM=ABS(100-PEEK(V4)):VV=VV+1
  177. 773 POKEV1,242:POKEV+39,1
  178. 775 POKEF1,INT(RND(1)*31)+30:POKEF2,INT(RND(1)*8)+218:A%=TI/100
  179. 777 PRINT""A%:IFA%>ZTHENPRINT"[158]TIME'S UP":GOTO3092
  180. 780 POKEV+41,VM:POKEV+42,VM:POKEV+43,VM
  181. 789 NEXT
  182. 791 VV=VV-1:RETURN
  183. 792 VV=VV+1:RETURN
  184. 793 RETURN
  185. 794 VM=VM-1:RETURN
  186. 795 VM=VM+10:RETURN
  187. 796 POKE1673,160:POKE1674,160:POKE1681,160:POKE1682,160:POKE1689,160
  188. 797 POKE1690,160:POKE1614,32:POKE1616,160:POKES+1616,2:NI=1
  189. 798 ER=0:POKEV+41,Q:POKEV+42,RD:POKEV+43,YL:AC=1:GOSUB550
  190. 799 LL=0:DD=0:D=0:UU=0:POKEV4,212:POKEV6,212:POKEV8,212:MV=212:VV=0:VM=0:RETURN
  191. 800 POKES+21,0:POKES+22,3 :REM***PLINK
  192. 801 POKES+23,112:POKES+24,15:POKES+14,243:POKES+15,150
  193. 803 POKES+16,184:POKES+17,6:POKES+19,7:POKES+20,0
  194. 805 POKES+18,66:POKES+18,65:IFLB=1THENBL=BL+1:LB=0
  195. 810 IFPT=40THENF=F+1:POKES+1912+F,1
  196. 811 IFPT=80THENG=G+1:POKES+1920+G,1
  197. 812 IFPT=120THENH=H+1:POKES+1928+H,1
  198. 849 RETURN
  199. 850 POKES+6,0:POKES+13,0:POKES+21,0:POKES+22,171
  200. 851 POKES+23,227:POKES+24,47:POKES,169:POKES+1,1
  201. 853 POKES+2,24:POKES+3,7:POKES+5,55:POKES+6,250
  202. 855 POKES+7,1:POKES+8,1:POKES+9,84:POKES+10,6
  203. 857 POKES+12,118:POKES+13,220:POKES+11,81:POKES+4,81
  204. 870 POKES+11,80:POKES+4,80
  205. 899 RETURN
  206. 900 POKES+21,0:POKES+22,134:POKES+23,243:POKES+24,31
  207. 902 POKES,30:POKES+1,1:POKES+2,232:POKES+3,5
  208. 904 POKES+5,80:POKES+6,191:POKES+4,65
  209. 920 POKES+4,64
  210. 925 RETURN
  211. 930 POKES+6,0:POKES+21,5:POKES+22,172:POKES+23,194:POKES+24,31
  212. 932 POKES+7,210:POKES+8,BT:POKES+9,0:POKES+10,4:POKES+12,0:POKES+13,252
  213. 935 POKES+11,85:POKES+11,84
  214. 955 RETURN
  215. 1000 FOR I=12288 TO 12350:READ D:POKE I,D:NEXT
  216. 1005 FOR I=12416 TO 12734:READ E:POKE I,E:NEXT
  217. 1015 DATA 14,0,0,63,128,0,127,192
  218. 1020 DATA 0,255,224,0,255,224,0,255
  219. 1025 DATA 224,0,127,192,0,63,128,0
  220. 1030 DATA 14,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  221. 1100 DATA 0,0,0,0,0,0,255,255
  222. 1105 DATA 255,0,0,0,0,0,0,0
  223. 1110 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  224. 1140 DATA 248,0,0,7,192,0,0,60
  225. 1145 DATA 0,0,3,224,0,0,31,0
  226. 1150 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  227. 1180 DATA 0,0,31,0,3,224,0,60
  228. 1185 DATA 0,7,192,0,248,0,0,0
  229. 1190 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  230. 1220 POKE2040,192:POKE2042,194:POKE2043,195:POKE2044,196
  231. 1222 POKE2045,197:POKE2046,198
  232. 1225 POKEV+39,1:POKEV+41,Q:POKEV+42,RD:POKEV+43,YL
  233. 1227 POKEV+44,15:POKEV+45,15
  234. 1230 RETURN
  235. 1500 PRINT"OUT OF TIME":OT=1
  236. 1510 RETURN
  237. 2001 DATA 32,32,0,80,80,0,168,168
  238. 2002 DATA 0,87,80,0,47,160,0,18
  239. 2003 DATA 64,0,15,128,0,18,64,0
  240. 2004 DATA 39,32,0,8,128,0,48,96
  241. 2005 DATA 0,0,0,0,0,0,0,0
  242. 2006 DATA 0,0,0,0,0,0,0,0
  243. 2007 DATA 0,0,0,0,0,0,0,0
  244. 2008 DATA 0,0,0,0,0,0,0,0
  245. 2009 DATA 16,64,0,40,160,0,53,96
  246. 2010 DATA 0,23,64,0,47,160,0,18
  247. 2011 DATA 64,0,15,128,0,2,0,0
  248. 2012 DATA 7,0,0,8,128,0,24,192
  249. 2013 DATA 0,0,0,0,0,0,0,0
  250. 2014 DATA 0,0,0,0,0,0,0,0
  251. 2015 DATA 0,0,0,0,0,0,0,0
  252. 2016 DATA 0,0,0,0,0,0,0,0
  253. 3000 FORJ=0TO160STEP40:POKES+1859-J,4:POKE1859-J,32:NEXT
  254. 3002 IFOK<0THENOK=0
  255. 3005 POKE1859-OK,160:GOSUB650
  256. 3010 POKE53281,12:IFOK<160THENRETURN
  257. 3012 POKEF1,45:POKEF3,45:POKEF2,215:POKEF4,215
  258. 3015 FORJ=215TO100STEP-3:POKESP,37:POKEF2,J:POKEF4,J
  259. 3020 POKEV+44,J:POKEV+45,J+1
  260. 3025 FORT=1TO50:NEXT
  261. 3030 POKESP,69
  262. 3032 FORT=1TO50:NEXT
  263. 3035 NEXT
  264. 3040 FORJ=100TO126STEP2:POKEV+44,J/60:POKEV+45,J/40
  265. 3045 POKESP,37
  266. 3050 FORT=1TO100:NEXT
  267. 3055 POKEF2,J:POKEF4,J
  268. 3060 POKESP,69
  269. 3065 FORT=1TO100:NEXT
  270. 3070 NEXT:POKEV+44,15:POKEV+45,15
  271. 3080 POKESP,37:FORT=1TO150:NEXT
  272. 3085 POKES+4,32:GOSUB800
  273. 3090 PRINT""TAB(33)"[159]THANKS!":PRINT"[151]AGAIN? Y/N[146]"
  274. 3092 POKES+24,0:PRINT"[151]AGAIN? Y/N[146]"
  275. 3095 GETA$:POKESP,69:FORT=1TO99:NEXT:POKESP,37:FORT=1TO150:NEXT:IFA$=""THEN3095
  276. 3099 IFA$="Y"THENRUN
  277.