IF C=3 THEN U=100
 3300 IF C=2 THEN U=90
 3400 IF C=1 THEN U=85 
 3410 IF C>5 OR C<1 THEN PRINT "  PARDON ?":PRINT:GOTO 100 
 3420 IF TM>20 OR TM<1 THEN PRINT "  PARDON ?":PRINT:GOTO 100
 3430 IF A1>90 OR A1<1 THEN PRINT "  PARDON ?":PRINT:GOTO 100 
 3500 A=A1*3.142/180 
 3600 RETURN  
 4000 FOR PS=53381 TO 53404
 4100 IF P=PS THEN B=1 
 4200 NEXT PS 
 4300 FOR PS=54117 TO 54140 
 4400 IF P=PS THEN B=1
 4500 NEXT PS 
 4600 PS1=54116
 4700 XS2=54108 
 4800 FOR F=1 TO 22 
 5200 PS1=PS1-32
 5300 XS2=XS2-32 
 5310 IF P>XS2 AND P<PS1 THEN B=1
 5400 NEXT F  
 5500 IF P<53381 THEN B=1
 5600 IF P>54140 THEN B=1
 5700 RETURN 
 6000 PRINT"RADAR SCOPE" 
 6100 PRINT"-----------" 
 6200 PRINT
 6300 PRINT"A plane is about to fly across your Radar Scope "
 6400 PRINT"You must guess the      CHARGE,DETONATION TIME"
 6500 PRINT" & ANGLE of a shot to    shoot down  the plane" 
 6600 PRINT
 6700 PRINT"PRESS ANY KEY TO START" 
 6800 INPUT A$
 6900 RETURN 
 8000 X=RND(1)
 8100 IFX<.1THENPL=53829   
 8200 IFX<.2ANDX>.1THENPL=53797  
 8300 IFX<.3ANDX>.2THENPL=53765  
 8400 IFX<.4ANDX>.3THENPL=53733   
 8500 IFX<.5ANDX>.4THENPL=53701   
 8600 IFX<.6ANDX>.5THENPL=53669   
 8700 IFX<.7ANDX>.6THENPL=53637  
 8800 IFX<.8ANDX>.7THENPL=53605 
 8900 IFX<.9ANDX>.8THENPL=53573   
 9000 IFX<1 ANDX>.9 THENPL=53541       
 9100 RETURN
 10000 PX(1)=P-31:PX(2)=P-32:PX(3)=P-33:PX(4)=P-1:PX(5)=P+1:PX(6)=P+31 
 11000 PX(7)=P+32:PX(8)=P+33
 12000 Z=0: FORX=1TO8:IFPX(X)=PL-1 GOTO 13000  
 12100 NEXTX
 12500 GOTO15000
 13000 FORJ=1TO10:POKEPL-1,233:POKEPL-1,32:NEXTJ    
 14000 Z=1
 15000 RETURN
 20000 TR=TR+1
 21000 IFZ=1THENSC=SC+1:IF P=PL-1THENSC=SC+1
 22000 PRINT"No. TRIES:";TR;" SCORE:";SC:FORDY=1TO2000:NEXTDY 
 23000 RETURN
OK