0 CLS0:CLEAR100:L=1:DIMK(255):K(65)=-2:K(83)=2:K(87)=-64:K(90)=64:M=16384:P=M+15:F=50:S=-14:Q=128:GOTO2
1 POKEA-32,70:RETURN
2 C=RND(8):D=RND(L)+5:FORV=1TO50+L*13:POKEP,Q:X=X+RND(0):Y=X+C:A=INT(SIN(X)*5)+D:B=INT(SIN(Y)*5)+D
3 ?@480,RIGHT$("",A);RIGHT$("",32-(A+B))RIGHT$("",B-1);
4 ?"FUEL"F,"DEPTH"S;:E=PEEK(P):POKEP,13:IFRND(L)=1THENFORA=16833TO16861STEP2:ON-(PEEK(A)=191ANDPEEK(A-32)=Q)GOSUB1:NEXT
5 K=PEEK(2)ANDPEEK(17023):IFKTHENN=P+K(K):IFN>MANDN<16864THENPOKEP,Q:POKEN,13:P=N:IFK=32THENN=P:GOTO8
6 IFE=191ORF<0THENFORN=1TO14:POKEP,176+N:SOUNDRND(100),2:NEXT:?@0,"DEAD!","TRY AGAIN";:INPUTI$:ON-(LEFT$(I$,1)="Y")GOTO0:END
7 F=F-1:S=S+1:NEXT:SOUNDS/3,4:L=L+1:ON-(L<7)GOTO2:?@480,;:FORV=1TO14:?"";:SOUND1,5:NEXT:GOTO9
8 N=N+32:K=PEEK(N):POKEN,202:ON-(K=QANDN<16864)GOTO8:F=F-(K=70)*20:POKEN,K:GOTO6
9 ?"YOU MADE IT!";:FORN=16400TO16832STEP32:POKEN,13:SOUND1,5:POKEN,Q:NEXT:POKEN-32,13:?S*F
