1 REM******************************************************************
 2 REM*****************************************************************
 3 REM*****************************************************************
 4 REM*****************************************************************
 5 REM*****************************************************************
 6 REM -SUBSTRIKE-
 7 REM*****************************************************************
 8 REM*****************************************************************
 9 REM*****************************************************************
 10 PRINTCHR$(30):GOSUB500
 15 POKE53413,32
 20 K=57088:POKE530,1:POKEK,251
 30 TL=53381:TR=53403:BL=54085:BR=54107:LL=32
 40 LB=7:LF=8:RF=5:RB=6:ES=188:TS=139:MS=4
 50 T=0:S=0:BF=0:BE=0:MP=BL+INT((BR-BL)/2)
 55 POKEMP,MS
 60 DL=INT((BL-TL)/LL):MN=MP
 70 RN=LL*(INT(RND(1)*.8*DL)+1)
 80 SP=TL+RN:S1=LB:S2=LF:SM=1:SF=TR+RN
 90 IFRND(1)>.5GOTO110
 100 SP=TR+RN:S1=RB:S2=RF:SM=-1:SF=TL+RN
 110 SV=INT(RND(1)*3+2):SC=0       
 120 SC=SC+1:IFSC=SVTHENSC=0:GOTO140
 130 GOTO160
 140 SN=SP+SM:IFSN=SFTHENPOKESP,32:POKESP+SM,32:GOTO70
 150 POKESP,32:POKESP+SM,32:SP=SN:POKESP,S1:POKESP+SM,S2
 160 IFPEEK(K)=191THENMN=MP-1
 180 IFPEEK(K)=223THENMN=MP+1
 200 IFMN=MPORMN<BLORMN>BRGOTO220
 210 POKEMP,32:MP=MN:POKEMP,MS
 220 T=T+1:IFT=4000GOTO400
 230 IFTF=1GOTO260
 240 IFPEEK(K)<>239GOTO120
 250 TP=MP-LL:TF=1
 260 IFPEEK(TP)<>32THEN300
 270 POKETP,TS:FORX=0TO50:NEXTX
 280 TN=TP-LL
 290 IFPEEK(TN)=32ANDTN>TRGOTO350
 300 POKETP,32:POKETN-1,ES:POKETN,ES:POKETN+1,ES
 310 FORX=0TO10:NEXTX
 320 POKETN-1,32:POKETN,32:POKETN+1,32
 325 TF=0:IFTN<=TRGOTO120
 330 NS=INT(S/10)+5-NV:S=S+NS
 340 GOTO70
 350 POKETP,32:TP=TN:GOTO120
 400 PRINT"YOUR SCORE WAS ";S
 410 PRINT"ANOTHER GAME";:INPUTA$
 420 IFLEFT$(A$,1)="Y"THENFORX=0TO25:PRINT:NEXTX:GOTO20
 430 POKE530,0:END
 500 PRINT"SUBSTRIKE"
 510 PRINT"TRY TO DESTROY AS MANY SUBS AS YOU CAN IN"
 520 PRINT"THE TIME LIMIT. C MOVES TORPEDO LAUNCH LEFT"
 530 PRINT"V MOVES IT RIGHT, B FIRES TORPEDO. YOUCAN"
 540 PRINT"ONLY FIRE A NEW TORPEDO WHEN THE PREVIOUS"
 550 PRINT"ONE HAS EXPLODED. THE FASTER SUBS COUNT MORE"
 560 PRINT"TOWARDS YOUR SCORE."
 565 FORX=0TO10000:NEXT
 570 PRINTCHR$(30):RETURN 
OK