2 FORL=0TO35:PRINT:NEXT:K=57088:IFPEEK(K)>128THEN600 3 GOTO540 4 READP,PP:IFPP=0THENPRINT"HIT SHIFT TO START":GOTO46 6 POKEX+P+(V*(INT(.5+(P/32)))),PP:GOTO4 10 DATA1,189,2,135,3,190,32,201,36,200,64,199,68,202,0,198 12 DATA-1,196,30,195,29,196,61,197,62,198,95,197,96,195,33,232 14 DATA99,201,128,201,97,225,131,139,160,202,191,201,223,199,256,200 16 DATA288,199,321,190,163,199,196,197,198,196,199,195,168,128,197,198 18 DATA200,201,232,202,263,195,262,196,261,128,195,135,194,195,193,196 20 DATA224,192,257,197,258,198,259,128,260,128,264,197,265,198,298,194 22 DATA297,128,329,190,362,136,354,191,355,190,357,193,390,190,423,190 24 DATA164,202,132,201,101,202,69,201,38,202,165,189,134,189,103,189 26 DATA166,196,167,195,136,196,137,195,106,196 28 DATA424,128,425,208,393,227,361,198,392,197,359,198,358,197 30 DATA360,197,388,191,389,200,421,199,453,195,452,196,483,195 32 DATA513,135,514,135,452,196,482,196,385,202,353,201,384,199 34 DATA352,200,319,198,318,228,314,191,315,191,316,191,313,191 36 DATA-70,87,-69,73,-68,76,-67,68,-65,87,-64,69,-63,65,-62,83 38 DATA-61,69,-60,76,-58,73,-57,73,547,64,549,66,551,83,552,77,553,73 40 DATA554,84,555,72,0,0 46 IFPEEK(57100)=1ORPEEK(57100)=254THENN=RND(8):GOTO46 48 V=V+32:MA(1)=32:ME(1)=32:GOTO390 50 ZZ=135:FORM=8TO1STEP-1:DD(M)=ZZ:ZZ=ZZ-1:NEXT:AM=AM(2):EM=EM(2) 54 SL$="**SRAM**":MQ$="STAND BY":MR$="READY ":ML$="LAUNCHED" 58 CX=CA:CY=CE:MC(1)=140:MA=MA(2):ME=ME(2):FORL=0TO35:PRINT:NEXT 64 FORSD=ATOA+9+U:POKESD,1:POKESD+13+U,1:NEXT 66 FORSD=A+(19*V)TOA+(19*V)+9+U:POKESD,1:POKESD+13+U,1:NEXT 68 FORSD=ATOA+(19*V)STEPV:POKESD,1:POKESD+U+9,1 70 POKESD+13+U,1:POKESD+22+2*U,1:NEXT 80 POKERN,49:POKERN+1,53:POKERN+2,48:W=RN-(2*V)+1 82 RN=RN+(5*V):POKERN,49:POKERN+1,48:POKERN+2,48 84 RN=RN+(5*V):POKERN,48:POKERN+1,53:POKERN+2,48 86 POKEAN,65:POKEAN+1,122:POKEAN+13,69:POKEAN+14,108 88 POKEAN+3,22:POKEAN+4,49:POKEAN+6,50:POKEAN+7,18 90 POKEAN+9,82:POKEAN+10,78:POKEAN+11,71 92 POKEAN+16,22:POKEAN+17,56:POKEAN+19,57:POKEAN+20,18 94 AN=RN+2*V:POKEAN+1,16:POKEAN+V+1,79:POKEAN+(2*V)+1,73 96 POKEAN+(3*V)+1,20:POKEMQ,77:POKEMQ+1,83:POKEMQ+2,76:POKEMQ+3,58 98 V=V-32:FORX=1TO12:FORY=1TO8+U:IFRND(7)>.4THEN114 102 CL=INT((30)*RND(5)+144):IFCL>149ANDCL<152THEN112 106 IFCL>143ANDCL<146THEN112 108 IFCL>157ANDCL<165THEN112 110 GOTO114 112 POKEGL,CL 114 GL=GL+1:NEXTY:GL=GL+24-U+V:NEXTX 116 FORX=1TO12:FORY=1TO4+U:IFRND(7)>.5THEN132 120 CL=INT((30)*RND(6)+144):IFCL>149ANDCL<152THEN130 124 IFCL>143ANDCL<146THEN130 126 IFCL>157ANDCL<165THEN130 128 GOTO132 130 POKEGE,CL 132 GE=GE+1:NEXTY:GE=GE+28-U+V:NEXTX 134 V=V+32:CC=-1:CE(2)=PEEK(CE+2*V) 136 POKECA,215:POKECA+2*V,217:POKECE,215:POKECE+2*V,217 137 CA(1)=32:CA(2)=32:CE(1)=32:CE(2)=32 142 CC=CC+1:IFCC=0GOTO146 144 FORY=1TOCC:POKES+Y,239:NEXT 146 TG=INT((6)*RND(8)+V+A+U+1):TE=INT((6)*RND(7)+V+A+U+14) 150 SG=TG:SE=TE:TN(1)=TN(1)+1:IFTN+1=TN(1)THEN400 152 SX=0:SL=0:AU=0:LN=0:MA=MA(2):ME=ME(2):M=8 156 POKE530,1:POKEK,F1:POKEW+4*V,(TN-TN(1)+48) 160 IFPEEK(K)=F1ANDPEEK(CX-1)<>1THENCX=CX-1 162 IFPEEK(K)=E1ANDPEEK(CX+1)<>1THENCX=CX+1 164 POKEK,C1:IFPEEK(K)=A1ANDPEEK(CX+(3*V))<>1THENCX=CX+V:CY=CY+V 166 POKEK,D1 168 IFPEEK(K)=E1ANDCA1THENCX=CX-V:CY=CY-V 172 POKEK,E1 174 IFPEEK(K)=F1ANDPEEK(CY-1)<>1THENCY=CY-1 176 IFPEEK(K)=E1ANDPEEK(CY+1)<>1THENCY=CY+1 178 POKEK,A1 180 IFPEEK(K)=E1ANDCX+V=TGANDCY+V=TETHENAU=1:POKEW,65 182 IFPEEK(K)=C1ANDSL=1THENSX=1 183 IFSL=0THENFORY=1TO8:POKEMQ+3-V+Y,32:NEXT 184 POKEMA,MA(1):POKEME,ME(1) 186 IFCX=CATHEN194 188 POKECA,CA(1):POKECA+2*V,CA(2):CA=CX 190 CA(1)=PEEK(CA):CA(2)=PEEK(CA+2*V) 192 POKECA,215:POKECA+2*V,217 194 IFCY=CETHEN202 196 POKECE,CE(1):POKECE+2*V,CE(2):CE=CY 198 CE(1)=PEEK(CE):CE(2)=PEEK(CE+2*V) 200 POKE CE,215:POKECE+2*V,217 202 M=M-1:IFM<1THENM=8:TG=TG+V:TE=TE+V 204 POKEK,B1:IFPEEK(K)=F1THENSTOP 206 IFPEEK(TE+1)=1AND(PEEK(TG+1)=1ORPEEK(TG-1)=1)ANDLN=1THEN146 207 IFTG>A+(19*V)THEN146 208 IFRND(5)>.8ANDPEEK(TG+1)<>1THENTG=TG+1:GOTO212 210 IFRND(5)<.2ANDPEEK(TG-1)<>1THENTG=TG-1 212 IFRND(8)>.8ANDPEEK(TE+1)<>1THENTE=TE+1:GOTO216 214 IFRND(8)<.2ANDPEEK(TE-1)<>1THENTE=TE-1 216 IFSL<>1THENSE=TE:SG=TG 218 IFAU=1THENCX=TG-V:CY=TE-V 220 IFAU=0THENPOKEW,77 222 TG(2)=PEEK(TG):TE(2)=PEEK(TE):TG(3)=PEEK(TG-1):TE(3)=PEEK(TE-1) 223 IF(TG(2)>157ANDTG(2)<200)OR(TE(2)>157ANDTE(2)<200)THENAU=0 224 TG(4)=PEEK(TG+1):TE(4)=PEEK(TE+1) 226 IFTG(2)=32THENPOKETG,DD(M) 228 IFTE(2)=32THENPOKETE,DD(M) 230 FORT=0TO100:NEXT:POKETG,161:POKETE,161:FORT=0TO50:NEXT 231 IFRND(1)<.3ANDTG>53695THENAU=0 232 IFTG(3)<>1THENPOKETG-1,234 234 IFTE(3)<>1THENPOKETE-1,234 236 IFTG(4)<>1THENPOKETG+1,235 238 IFTE(4)<>1THENPOKETE+1,235 240 FORT=0TO100:NEXT 242 POKETG-1,TG(3):POKETE-1,TE(3):POKETG+1,TG(4):POKETE+1,TE(4) 244 FORT=0TO50:NEXT:IFTG(2)=32THENPOKETG,DD(M) 246 IFTE(2)=32THENPOKETE,DD(M) 248 IFSX<>1THENGOTO274 250 AA=(AM-SG)/V:AE=(EM-SE)/V 252 IFAA-INT(AA)=0THENAM=AM-V:AM(1)=PEEK(AM):POKEAM,46:GOTO256 254 AM=AM-V+1:AM(1)=PEEK(AM):POKEAM,46 256 IFAE-INT(AE)=0THENEM=EM-V:EM(1)=PEEK(EM):POKEEM,46:GOTO260 258 EM=EM-V+1:EM(1)=PEEK(EM):POKEEM,46 260 IF(AM=SGORAM=SG-V)AND(EM=SEOREM=SE-V)THEN264 262 GOTO270 264 FORD=188TO202:POKESG,D:POKESE,D:NEXT 266 SL=0:SX=0:POKESE,SE(1):POKESG,SG(1):SG=TG:SE=TE 270 POKEAM,AM(1):POKEEM,EM(1):IFSX=0THENAM=AM(2):EM=EM(2) 274 IFSL=1GOTO284 276 SA=(KA-TG)/V:SF=(KE-TE)/32 278 IFSA-INT(SA+.02)<.04ANDSF-INT(SF+.02)<.04THENSL=1:GOTO284 280 IFSA-INT(SA)<.1ANDSF-INT(SF)<.1ANDRND(2)<.5THENSL=1 282 IFSL<>1THEN300 284 FORY=1TO8:POKEMQ+3-V+Y,ASC(MID$(SL$,Y)):NEXT:SG=SG+2*V:SE=SE+2*V 286 SG(1)=PEEK(SG):SE(1)=PEEK(SE):POKESE,39:POKESG,39:FORT=0TO75:NEXT 290 POKESE,SE(1):POKESG,SG(1) 292 IF(SG=KA-1ORSG=KA-2)AND(SE=KE-1ORSE=KE-2)THENGOTO354 294 IF(SG=KA+V-1ORSG=KA+V-2)AND(SE=KE+V-1ORSE=KE+V-1)THEN354 296 IFSE>KETHENSL=0:SG=TG:SE=TE:AM=AM(2):EM=EM(2):SX=0 300 IFLN=0ANDCA>KA-8*VTHENFORY=1TO8:POKEMQ+Y+4,ASC(MID$(MQ$,Y)):NEXT 302 IFLN=0ANDCA.5THENMA=MA-V+1:MA(1)=PEEK(MA):GOTO316 314 MA=MA-V-1:MA(1)=PEEK(MA) 316 IFMA(1)<>1THENPOKEMA,MC(1) 318 IFTG=MATHENDA=1 320 IFTG=MA+1ORTG=MA-1ANDRND(7)<.45THENDA=1 322 IFGE-INT(GE)=0THENME=ME-V:ME(1)=PEEK(ME):GOTO328 324 IFGE-INT(GE)>.5THENME=ME-V+1:ME(1)=PEEK(ME):GOTO328 326 ME=ME-V-1:ME(1)=PEEK(ME) 328 IFME(1)<>1THENPOKEME,MC(1) 330 IFTE=METHENDE=1 332 IFTE=ME+1ORTE=ME-1ANDRND(7)<.45THENDE=1 334 IFDE+DA<>2THEN346 336 FORD=188TO202:POKETG,D:POKETE,D:NEXT 338 FORD=202TO188STEP-1:POKETG,D:POKETE,D:NEXT:POKEMA,32:POKEME,32 340 POKETG,TG(2):POKETE,TE(2):AU=0:MA(1)=32:ME(1)=32 344 DE=0:DA=0:MA=MA(2):ME=ME(2):LN=0:GOTO142 346 IFME