10 DEFINT A-Z:DIM X(3):DIM Y(3):DIM D(3):DIM N(3):DIM C(3):SYMBOL 240,126,24,90,126,90,60,60,36:SYMBOL 241,36,102,126,126,126,24,126,126:SYMBOL 242,56,16,56,84,84,76,68,56:INK 0,13:INK 1,6,26:INK 2,26,6:INK 3,9:INK 4,0:INK 5,6:INK 6,18:S$=CHR$(143) 20 RESTORE:MODE 0:SPEED INK 12,12:P=320:S=20:V=2:K=0:A=12:FOR I=1TO 3:READ X(I):READ Y(I):READ D(I):READ C(I):N(I)=248:NEXT:M=500:T=180:FOR I=1TO 25:PEN 3:LOCATE 1,I:?S$S$S$S$;:PEN I MOD 2+1:?S$;:LOCATE 16,I:?S$;:PEN 3:?S$S$S$S$;:NEXT 30 PEN 4:LOCATE 1,1:?"M";:LOCATE 1,25:?"T";:LOCATE 17,1:?"S";:LOCATE 17,25:?"K";:TAG:MOVE P,96,4:?CHR$(240);:MOVE P,80:?CHR$(241);:DATA 320,400,8,5,240,300,0,5,380,200,-8,5:ENV 4,15,1,1,15,-1,1:ENT -4,2,1,1,2,-1,1 40 WHILE M>0AND T>0:O=-O*(O<3):O=O+1:MOVE X(O),Y(O),1,0:?" ";:Y(O)=(-Y(O)+V)*(Y(O)>V)-400*(Y(O)<V):DS=(INKEY(2)=0AND S>20)-(INKEY(0)=0AND S<240):IF DS<>0THEN S=S+10*DS:V=S\10:A=(26-V)\2:SPEED INK A,A:TAGOFF:PEN 4:LOCATE 18,1:?USING"###";S;:TAG 50 DP=(INKEY(8)=0 AND P>160)-(INKEY(1)=0 AND P<448):IF DP<>0 THEN P=P+4*DP:MOVE P,96,4,0:?CHR$(240);:MOVE P,80:?CHR$(241); 60 IF((Y(O)<112)AND(Y(O)>48)AND(X(O)>P-30)AND(X(O)<P+30))THEN Y(O)=400:IF N(O)<>248THEN T=T+20:SOUND 1,50ELSE SOUND 1,2000,50,0,4,4,15:IF C(O)=5THEN K=K+1:TAGOFF:PEN 4:LOCATE 18,25:?USING"###";K;:TAG ELSE T=0 70 IF Y(O)=400 THEN X(O)=RND*288+160:D(O)=(INT(16*RND)-8):N(O)=248+6*(RND<(0.1-0.3*(T<40))):C(O)=4-((N(O)>242)*(1-(RND<0.5))) ELSE X(O)=X(O)+D(O)*((X(O)<444)AND(X(O)>168)):MOVE X(O),Y(O),C(O),3:?CHR$(N(O)); 80 SOUND 2,800-2*S,20,5,0,4,10:IF (O=1) THEN M=M-(V/10):TAGOFF:PEN 4:LOCATE 2,1:? USING "###";M;:TAG ELSE IF(O=2) THEN T=T-1:TAGOFF:PEN 4:LOCATE 2,25:? USING "###";(T\2);:TAG 90 WEND:CLS:TAGOFF:INK 0,9:IF (T=0) THEN LOCATE 5,10:?"YOU FAILED":LOCATE 5,12:?"KILLED"K ELSE LOCATE 5,10:?"YOU MADE IT!":LOCATE 7,12:?"KILLED"K:LOCATE 5,14:?"TIME LEFT"T:LOCATE 3,16:?"FINAL SCORE"T*5+K*10 100 WHILE INKEY(47):WEND:INK 0,13:GOTO 20