Fly to one of ten destinations.
Content
Image Gallery
Source Code
1 LET zx=0: LET x=0: LET y=0: LET z=0
10 GO SUB 1020
11 GO SUB 9500
15 LET m=l: LET tr=w: BORDER 7: PAPER 7: INK 2
20 PLOT 89,145: DRAW INK 3;7,0: PLOT (89+INT l/50),145: DRAW INK 3;INT w/50,0
30 PRINT AT 17,15;"DESTINATION:"
100 LET a=0: LET s=0: LET d=0: LET r=0: LET c=0: LET f=29: LET n=0
200 OVER 1: INK 2: PLOT 0,0: DRAW 255,0: DRAW 0,175: DRAW -255,0: DRAW 0,-175
210 PLOT 0,16: DRAW 255,0: PRINT AT 20,0; INK 0;"FUEL"
220 PLOT 32,0: DRAW 0,16: PLOT 32,8: DRAW 223,0
230 PRINT AT 20,4; INK 3;"0 50 100 150 200 250 300"
240 PLOT 88,16: DRAW 0,159: PLOT 0,144: DRAW 255,0
250 INK 0: PRINT AT 14,0;"ALTITUDE"
251 PRINT AT 10,0;"RANGE"
252 PRINT AT 2,0;"SPEED"
253 PRINT AT 6,0;"RUDDER"
254 PRINT AT 0,0; INK 3;"INSTRUMENTS"
255 PRINT AT 12,0;"RUNWAY LEFT"
256 PRINT AT 18,0;"FLAP ANGLE"
257 PRINT AT 8,0;"R/BEARING"
258 PRINT AT 4,0;"ACCELERATE"
259 PRINT AT 16,0;"DROP RATE"
310 PLOT 89,95: DRAW 166,0: PLOT 0,160: DRAW 88,0: PLOT 89,112: DRAW 166,0
340 FOR t=32 TO 128 STEP 16: PLOT 0,t: DRAW 86,0: NEXT t
390 PRINT AT 21,4;" ": OVER 0: GO SUB 700
520 IF s<150 AND a>0 THEN GO TO 5000
540 PRINT AT 5,13;"SELECT THRUST";AT 6,13;"(-75 to +75)"
560 INPUT x: IF x>75 THEN LET x=75
565 IF x<-75 THEN LET x=-75
570 LET s=s+x: LET c=x: LET x=0: IF s>600 THEN LET s=600
572 LET s=s-5: IF s<0 THEN LET s=0
573 LET l=l-INT (1.25*(s*(1-d/100)))
575 GO SUB 700
578 IF s<150 AND a>0 THEN GO TO 5000
580 LET x=0: PRINT AT 5,13;"CHANGE FLAPS? ";AT 6,13;"(-50 to +50)": INPUT y: LET n=n+y: IF n>50 THEN LET n=50
581 IF n<-50 THEN LET n=-50
582 LET a=a+INT (3.06*n): IF a<-5 THEN GO TO 5020
583 IF a>=500 THEN LET a=500
585 IF a<4 AND l>100 THEN LET a=0
590 LET r=INT (3.06*n): LET s=s-n
595 IF a<0 AND a>=-5 THEN LET a=0
600 GO SUB 700
605 LET zx=1
610 PRINT AT 5,13;"CHANGE RUDDER? ";AT 6,13;"(-45 to +45)": INPUT z: LET d=d+z: IF pe>179 THEN LET pe=-179
612 IF pe<-179 THEN LET pe=179
620 LET pe=pe-d
630 IF l<=0 THEN LET w=w-s
635 IF f<0 THEN GO TO 5040
640 IF a<0 AND l>0 THEN GO TO 5080
645 IF a<=0 AND pe<>0 AND l<=250 THEN GO TO 5100
660 LET f=f-INT ((n/10+s/20)/(e/2)): IF f<=0 THEN GO TO 5040
670 IF l>400 AND l<500 AND a>5 AND a<50 THEN LET a=100
675 IF s>230 AND a<=0 THEN LET a=50
680 IF w<=0 THEN GO TO 5060
700 PRINT AT 3,1; INK 0;s;" ";AT 15,1;a;" ";AT 11,1;l;" ";AT 7,1;d;" ";AT 19,1;n;" ";AT 5,1;c;" ";AT 17,1;r;" ";AT 9,1;pe;" ";AT 13,1;w;" "
810 FOR t=16 TO 144 STEP 16: PLOT 0,t: DRAW 86,0: NEXT t
860 PRINT AT 8,12; INK 4;" - R/BEARING +"
880 PRINT AT 9,12;" "
890 PRINT AT 9,21;"o": PRINT AT 9,21-INT (pe/20);"^"
892 IF zx<>0 THEN GO TO 900
895 RETURN
900 PLOT INK 0;INT ((m-l)/50)+89,INT a/18+146
905 LET zx=0
910 PRINT AT 21,f;" "
920 IF a<=0 AND w>=0 AND f>0 AND pe=0 AND l<0 AND s<=0 AND s>=-1 THEN GO TO 6000
935 IF a<=40 THEN PRINT AT 16,15; INK 2; PAPER 7; FLASH 1;"ALTITUDE"
940 IF s<165 THEN PRINT AT 14,15; INK 2; PAPER 7; FLASH 1;"SPEED"
945 IF l<100 THEN PRINT AT 12,15; INK 2; PAPER 7; FLASH 1;"RANGE"
950 IF l<300 AND pe<>0 THEN PRINT AT 13,15; INK 2; PAPER 7; FLASH 1;"R/BEARING"
955 IF w<200 THEN PRINT AT 12,15; INK 2; PAPER 7; FLASH 1;"RUNWAY LEFT"
960 FOR q=1 TO 100: BEEP .007,-22: NEXT q: FLASH 0: PRINT AT 12,15;" ";AT 13,15;" ";AT 14,15;" ";AT 15,15;" ";AT 16,15;" "
1000 GO TO 500
1020 PAPER 0: INK 7: BORDER 7: CLS
1037 PRINT TAB 12; FLASH 1;"AIRPLANE"
1040 BEEP .3,0: BEEP .3,0: BEEP .3,0: BEEP .8,-5
1050 BEEP .3,3: BEEP .3,3: BEEP .3,3: BEEP .8,-2
1060 FOR m=-7 TO 5: BEEP .1,m: NEXT m: PAUSE 20: BEEP .17,15: PAUSE 15: BEEP .4,-25
1070 PRINT AT 0,12;"AIRPLANE"''"* Fly to ONE of TEN destinations"''"* Stall speed is 150 Km/h"
1080 PRINT '"* Flaps change your altitude"''"* Rudder changes your bearing"
1090 PRINT '"* o is the destination"''"* ^ is your position"
1100 PRINT '"* FOR A SUCCESSFUL LANDING:";TAB 6;"Speed must be 0, altitude";TAB 6;"must be 0, AND you must";TAB 6;"be on the runway."
1110 PRINT AT 20,8;"ANY KEY TO START": IF INKEY$="" THEN GO TO 1110
1120 RETURN
4000 RETURN
5000 PAUSE 40: CLS : PRINT "You stalled at ";s;"KM/H"''"Fall down / go BOOM!": GO TO 5200
5020 PAUSE 40: CLS : PRINT "Your altitude is ";a;" meters"''"Can't keep it up, eh?": GO TO 5200
5040 PAUSE 40: CLS : PRINT "You ran out of fuel, FOOL!": GO TO 5200
5060 PAUSE 40: CLS : PRINT "You overshot the runway"'"by ";ABS w;" meters"''"Choose a farther destination!": GO TO 5200
5080 PAUSE 40: CLS : PRINT "You landed ";l; "miles short"'"of the runway"''"Choose a closer destination!": GO TO 5200
5100 PAUSE 40: CLS : PRINT "You missed the runway"'"by ";pe;" degrees"''"Please give up!": GO TO 5200
5200 SOUND 7,62;8,15: FOR q=50 TO 100: SOUND 0,q: PAUSE 3: NEXT q
5210 SOUND 6,6;7,7;8,16;9,16;10,16;12,56;13,8: PAUSE 90: SOUND 8,0;9,0;10,0
5290 PAUSE 250: CLS : GO TO 1
6000 LET k=INT f/3
6092 LET sc=INT (110*(w/tr)): LET k=(2*k)+sc
6100 PAUSE 100: CLS : PRINT "Well done! You scored ";INT k;" points out of a possible 100": STOP
8100 STOP
9500 INK 7: BORDER 7: PAPER 0: CLS : PRINT AT 1,1;"YOU WILL FLY"'" FROM: LONDON, ENGLAND"'" TO:"
9502 PRINT : PRINT "0) Istanbul"'"1) Chicago"'"2) Milan"'"3) Moscow"'"4) New York"'"5) Port Stanley"'"6) Oslo"'"7) Tel Aviv"'"8) Delhi"'"9) Toronto"
9505 INK 2: PAPER 7
9510 INPUT "Choose by NUMBER : ";ap
9515 IF ap>9 THEN GO TO 9510
9520 GO TO 9580+ap*20
9580 CLS : LET l=1562: LET e=9: LET w=480: LET pe=35: PRINT AT 18,16;"Istanbul": RETURN
9600 CLS : LET l=4235: LET e=15: LET w=700: LET pe=170: PRINT AT 18,16;"Chicago": RETURN
9620 CLS : LET l=581: LET e=4: LET w=700: LET pe=35: PRINT AT 18,16;"Milan": RETURN
9640 CLS : LET l=1549: LET e=9: LET w=640: LET pe=-10: PRINT AT 18,16;"Moscow": RETURN
9660 CLS : LET l=3500: LET e=13: LET w=750: LET pe=170: PRINT AT 18,16;"New York": RETURN
9680 CLS : LET l=7406: LET e=24: LET w=440: LET pe=110: PRINT AT 18,16;"Port Stanley": RETURN
9700 CLS : LET l=722: LET e=5: LET w=500: LET pe=-30: PRINT AT 18,16;"Oslo": RETURN
9720 CLS : LET l=2230: LET e=11: LET w=650: LET pe=40: PRINT AT 18,16;"Tel Aviv": RETURN
9740 CLS : LET l=5203: LET e=18: LET w=510: LET pe=34: PRINT AT 18,16;"Delhi": RETURN
9760 CLS : LET l=3728: LET e=14: LET w=550: LET pe=-150: PRINT AT 18,16;"Toronto": RETURN
9998 SAVE "PLANE" LINE 1: REM PRINT FLASH 1;"VERIFY...": VERIFY "": STOP