10 CLS:PRINT"SCORCHED EARTH VZ":PRINT:D=RND(16):K=RND(7)+9:L=RND(20)+30
20 INPUT"ELEVATION (40-90)";B:INPUT"POWER (40-99)";A:A=A/100:I=1
30 B=B/100:S=S+1:MODE(1):FORJ=58TO63:POKE28672+J*32,255
40 POKE28688+J*32+D,170:NEXT:FORJ=LTO63:POKE28672+J*32+K,85
50 POKE28672+J*32+K+1,85:NEXT
60 I=I+2:X=I*A:Y=(63-SIN(2*(I*B/180*3.1416))*50)
70 IFX<1ORX>127ORY<1ORY>63,GOTO20
80 E=POINT(X,Y):IFE=3,CLS:PRINT"YOU WIN AFTER";S;"ATTEMPTS":END
90 IFPOINT(X,Y)=2,SOUND16,7:GOTO20
100 SET(X,Y):GOTO60
