new

20 K=14350:C=1024:H=0:Q=127:Q$=CHR$(Q)
45 GOSUB1000:GOSUB900:S=0:A=0:?
50 ?:B=13188:D=12388:POKEB,139:POKED,9:GOTO70
55 A=INT(3*RND(1)):IFA=2THENA=-1
60 B=B+A:IFB<13171THENB=13171
65 IFB>13204THENB=13204
70 FORX=200TO100STEP-20:SOUND(1,X):NEXT
75 F=D:POKEK,0:IFPEEK(K)=12ANDPEEK(D+C-1)<>0THEND=D-1
80 IFPEEK(K)=40ANDD<13166THEND=D+40:IFPEEK(D)=139THEN800
90 IFPEEK(K)=6ANDPEEK(D+C+1)<>0THEND=D+1
100POKEB-1,Q:POKEB,Q:POKEB+1,Q:POKEB+2,Q:POKEF,32:?:IFPEEK(D)=32THEN700
105 IFS>199THEN700
110 POKED,9:POKEB,139:S=S+1:GOTO55
700 POKEB,139:POKED,209:FORX=0TO3:FORY=0TO16:POKE13312,Y:SOUND(1,1):NEXT
710 NEXT:POKE13312,0:IFS=200THEN?"   No fuel left";:GOTO720
715 ?"   Lost trail";
720 ?" so self destroyed":S=S*10
730 GOSUB1100:GOTO45
800 POKEF,32:POKED,150:FORX=1TO4:FORY=200TO50STEP-5:SOUND(1,Y):NEXT:NEXT
810 FORX=1TO100:POKED,209:SOUND(1,X):POKED,208:SOUND(1,(100-X)):NEXT
820 ?TAB(24)"INTERCEPTED":S=(400-S)*15:GOTO730
900 ?CHR$(11);:A=13390:FORX=A-88TOA-37:POKEX,0:NEXT:FORY=1TO23:FORX=0TO3
910 POKEX+A,0:NEXT:A=A+40:NEXT:POKE14310,0:POKE14311,0
920 FORX=1TO21:?TAB(18)Q$Q$Q$:NEXT:FORX=14194TO14229:POKEX,22
925 NEXT:RETURN
1000 ?CHR$(11):?TAB(3)"TRACKER   ";CHR$(5);" Digital Output 1984":?
1010 ?:?TAB(4)"See packaging for instructions":?
1011 ?TAB(12)"Follow the trail"
1012 ?TAB(8)"and intercept the plane"
1012 ?TAB(11)"Use z to move down"
1013 ?TAB(5)"Use ,. to move left and right":?
1020 ?:?TAB(11)"Best Score =";H:?TAB(11)"Last Score =";S:?:?
1030 IFS>HTHENH=S:?TAB(9)"This is a New Best !":?:?
1100 INPUT" RTN continues ";A:RETURN

rem hand edited
rem for unexpanded Aquarius
