Exocet 71 240 SOUND 1,180,3 250 IF L>=80 THEN D=0 255 PLOT Y*2+64,1*2+48,3:PLOT Y*2+63,L*2 +48,3:PLOT Y*2+66,L*2+48,3 260 IF RND>0.8 THEN 290 270 L=L-8*(D=1)+8*(D=0) 280 Y=Y-(ABS(Y-T)/2)*(T>Y)+(ABS(Y-T)/2)* (T<=Y) 290 IF L>90 THEN PLOT YY*2+64,LL*2+48,2 300 IF L<=80 AND D=0 THEN GOSUB 690 310 IF FLAG=0 THEN FOR XX=1 TO 40:NEXT 320 IF EX<0 THEN 500 330 NEXT X,P 340 GOTO 500 350 STOP 360 CLS:PEN 2:LIN=11:COL=15:T=123:FLAG=0 :EX=10 370 FOR Y=1 TO 11 380 PEN 2:LOCATE 1,Y:PRINT STRING$(32,14 3); 390 NEXT 400 PEN 1 410 RETURN 420 STOP 430 FOR P=1 TO 4 440 S$(P)=0$ 450 FOR X=1 TO 30:S$(P)=S$(P)+G$(INT(RND *10)+1):NEXT X 460 S$(P)=S$(P)+0$ 470 NEXT P 4sca SC=0 490 RETURN 500 CLS:PEN 3:LOCATE 7,11:PRINT"YOUR SCO RE WAS";SC:PEN 1 510 SC=0:EX=10 520 LOCATE 4,21:PEN 2:PRINT CHR$(24);"PR ESS ANY KEY TO RESTART";CHR$(24);:PEN 1 530 IF INKEY$<>"" THEN 530 540 IF INKEY$="" THEN 540:ELSE GOSUB 360 550 GOSUB 430 560 GOTO 110 570 END 580 REM 590 PEN 3:PRINT:PRINT CHR$(24);" E X O C E T ";CHR$(2 4);:PEN 1