1000 	SCALE 4
1020 	SIGNIFICANCE 11
1040 	PRINT TAB(-1,0);"*** LUNAR LANDING SIMULATION - VER 1.0 ***"
1060 	PRINT
1080 	INPUT "DO YOU WANT INSTRUCTIONS (Y/N) ";A$
1100 	IF A$="N" THEN 282
1120 	PRINT
1140 	PRINT "YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL"
1160 	PRINT "CONTROL 500 FEET ABOVE A GOOD LANDING SPOT.  YOU HAVE A"
1180 	PRINT
1200 	PRINT "HERE ARE THE RULES THAT GOVERN YOUR SPACE VEHICLE:"
1220 	PRINT "(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND REMAINING"
1240 	PRINT "    FUEL WILL BE REPORTED."
1260 	PRINT "(2) AFTER THE REPORT, A '?' WILL BE DISPLAYED.  ENTER THE"
1280 	PRINT "    NUMBER OF UNITS OF FUEL YOU WISH TO BURN DURING THE"
1300 	PRINT "    NEXT SECOND.  EACH UNIT OF FUEL WILL SLOW YOUR DESCENT"
1320 	PRINT "    BY 1 FT/SEC.  THE MOON'S GARVITY IS 5 FT/SEC."
1340 	PRINT "(3) THE MAXIMUM THRUST OF YOU ENGINE IS 30 FT/SEC OR"
1360 	PRINT "    30 UNITS 0F FUEL PER SECOND."
1380 	PRINT "(4) WHEN YOU CONTACT THE LUNAR SURFACE, YOUR DESCENT ENGINE"
1400 	PRINT "    WILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIVEN A"
1420 	PRINT "    REPORT OF YOUR LANDING SPEED AND REMAINING FUEL."
1440 	PRINT "(5) IF YOU RUN OUT OF FUEL, THE '?' WILL NO LONGER APPEAR,"
1460 	PRINT "    BUT YOUR SECOND BY SECOND REPORT WILL CONTINUE UNTIL"
1480 	PRINT "    YOU CONTACT THE LUNAR SURFACE." :
1500         PRINT
1520 	INPUT "TYPE 'RETURN' WHEN YOU ARE READY TO BEGIN";A$
1540 	PRINT TAB(-1,0);
1560 		289	OFS=0
1580 		290	FC=0
1600 		291	HSC=10
1620 		300	FOR I=1 TO 24
1640 		310	PRINT "I"
1660 		320	NEXT I
1680 		340	REM
1700 		350	REM    INITIALIZE
1720 		360	REM
1740 		370	T=0 :
1760  H=500 : V=50 : F=150
1780 		380	GOSUB 504
1800 		390	INPUT "NEXT BURN: ";B
1820 		400	IF B<0 THEN 499
1840 		410	IF B>30 THEN B=30
1860 		420	IF B>F THEN B=F
1880 		430	V1=V-B+5
1900 		440	F=F-B
1920 		450	H=H-.5*(V+V1)
1940 		460	IF H<=0 THEN 550
1960 		470	T=T+1
1980 		480	V=V1
2000 		490	IF F>0 THEN 380
2020 		498	IF B=0 THEN GOSUB 504
2040 		499	B=0
2060 		500	GOTO 430
2080 		501	REM
2100 		502	REM    ANNOTATE SCREEN
2120 		503	REM
2140 		504	IF FC<24 THEN FC=FC+1
2160 		506	PRINT TAB(-1,1);
2180 		507	IF FC=1 THEN 511
2200 		508	FOR I=1 TO FC-1
2220 		509	PRINT CHR$(10);
2240 		510	NEXT I
2260 		511	J=INT(ABS(H/HSC))
2280 		512	IF J<=0 THEN J=1
2300 		513	IF J>79 THEN J=79
2320 		514	IF H>195 THEN 525
2340 		515	IF HSC=2.5 THEN 525
2360 		516	IF F=0 THEN 525
2380 		522	HSC=2.5
2400 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
2420 		524	GOTO 511
2440 		525	IF F<>0 OR OFS<>0 THEN 529
2460 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
2480 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
2500 		528	OFS=1
2520 		529	PRINT :
2540  PRINT "I";TAB(J);"*";
2560 		530	PRINT TAB(-1,1);"#########################################################"
2580 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
2600 		540	RETURN
2620 		541	REM
2640 =79
2660 		514	IF H>195 THEN 525
2680 		515	IF HSC=2.5 THEN 525
2700 		516	IF F=0 THEN 525
2720 		522	HSC=2.5
2740 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
2760 		524	GOTO 511
2780 		525	IF F<>0 OR OFS<>0 THEN 529
2800 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
2820 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
2840 		528	OFS=1
2860 		529	PRINT : PRINT "I";TAB(J);"*";
2880 		530	PRINT TAB(-1,1);"#########################################################"
2900 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
2920 		540	RETURN
2940 		541	REM
2960 =79
2980 		514	IF H>195 THEN 525
3000 		515	IF HSC=2.5 THEN 525
3020 		516	IF F=0 THEN 525
3040 		522	HSC=2.5
3060 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
3080 		524	GOTO 511
3100 		525	IF F<>0 OR OFS<>0 THEN 529
3120 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
3140 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
3160 		528	OFS=1
3180 		529	PRINT : PRINT "I";TAB(J);"*";
3200 		530	PRINT TAB(-1,1);"#########################################################"
3220 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
3240 		540	RETURN
3260 		541	REM
3280 =79
3300 		514	IF H>195 THEN 525
3320 		515	IF HSC=2.5 THEN 525
3340 		516	IF F=0 THEN 525
3360 		522	HSC=2.5
3380 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
3400 		524	GOTO 511
3420 		525	IF F<>0 OR OFS<>0 THEN 529
3440 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
3460 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
3480 		528	OFS=1
3500 		529	PRINT : PRINT "I";TAB(J);"*";
3520 		530	PRINT TAB(-1,1);"#########################################################"
3540 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
3560 		540	RETURN
3580 		541	REM
3600 =79
3620 		514	IF H>195 THEN 525
3640 		515	IF HSC=2.5 THEN 525
3660 		516	IF F=0 THEN 525
3680 		522	HSC=2.5
3700 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
3720 		524	GOTO 511
3740 		525	IF F<>0 OR OFS<>0 THEN 529
3760 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
3780 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
3800 		528	OFS=1
3820 		529	PRINT : PRINT "I";TAB(J);"*";
3840 		530	PRINT TAB(-1,1);"#########################################################"
3860 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
3880 		540	RETURN
3900 		541	REM
3920 =79
3940 		514	IF H>195 THEN 525
3960 		515	IF HSC=2.5 THEN 525
3980 		516	IF F=0 THEN 525
4000 		522	HSC=2.5
4020 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
4040 		524	GOTO 511
4060 		525	IF F<>0 OR OFS<>0 THEN 529
4080 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
4100 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
4120 		528	OFS=1
4140 		529	PRINT : PRINT "I";TAB(J);"*";
4160 		530	PRINT TAB(-1,1);"#########################################################"
4180 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
4200 		540	RETURN
4220 		541	REM
4240 =79
4260 		514	IF H>195 THEN 525
4280 		515	IF HSC=2.5 THEN 525
4300 		516	IF F=0 THEN 525
4320 		522	HSC=2.5
4340 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
4360 		524	GOTO 511
4380 		525	IF F<>0 OR OFS<>0 THEN 529
4400 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
4420 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
4440 		528	OFS=1
4460 		529	PRINT : PRINT "I";TAB(J);"*";
4480 		530	PRINT TAB(-1,1);"#########################################################"
4500 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
4520 		540	RETURN
4540 		541	REM
4560 =79
4580 		514	IF H>195 THEN 525
4600 		515	IF HSC=2.5 THEN 525
4620 		516	IF F=0 THEN 525
4640 		522	HSC=2.5
4660 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
4680 		524	GOTO 511
4700 		525	IF F<>0 OR OFS<>0 THEN 529
4720 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
4740 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
4760 		528	OFS=1
4780 		529	PRINT : PRINT "I";TAB(J);"*";
4800 		530	PRINT TAB(-1,1);"#########################################################"
4820 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
4840 		540	RETURN
4860 		541	REM
4880 =79
4900 		514	IF H>195 THEN 525
4920 		515	IF HSC=2.5 THEN 525
4940 		516	IF F=0 THEN 525
4960 		522	HSC=2.5
4980 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
5000 		524	GOTO 511
5020 		525	IF F<>0 OR OFS<>0 THEN 529
5040 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
5060 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
5080 		528	OFS=1
5100 		529	PRINT : PRINT "I";TAB(J);"*";
5120 		530	PRINT TAB(-1,1);"#########################################################"
5140 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
5160 		540	RETURN
5180 		541	REM
5200 =79
5220 		514	IF H>195 THEN 525
5240 		515	IF HSC=2.5 THEN 525
5260 		516	IF F=0 THEN 525
5280 		522	HSC=2.5
5300 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
5320 		524	GOTO 511
5340 		525	IF F<>0 OR OFS<>0 THEN 529
5360 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
5380 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
5400 		528	OFS=1
5420 		529	PRINT : PRINT "I";TAB(J);"*";
5440 		530	PRINT TAB(-1,1);"#########################################################"
5460 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
5480 		540	RETURN
5500 		541	REM
5520 =79
5540 		514	IF H>195 THEN 525
5560 		515	IF HSC=2.5 THEN 525
5580 		516	IF F=0 THEN 525
5600 		522	HSC=2.5
5620 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
5640 		524	GOTO 511
5660 		525	IF F<>0 OR OFS<>0 THEN 529
5680 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
5700 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
5720 		528	OFS=1
5740 		529	PRINT : PRINT "I";TAB(J);"*";
5760 		530	PRINT TAB(-1,1);"#########################################################"
5780 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
5800 		540	RETURN
5820 		541	REM
5840 =79
5860 		514	IF H>195 THEN 525
5880 		515	IF HSC=2.5 THEN 525
5900 		516	IF F=0 THEN 525
5920 		522	HSC=2.5
5940 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
5960 		524	GOTO 511
5980 		525	IF F<>0 OR OFS<>0 THEN 529
6000 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
6020 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
6040 		528	OFS=1
6060 		529	PRINT : PRINT "I";TAB(J);"*";
6080 		530	PRINT TAB(-1,1);"#########################################################"
6100 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
6120 		540	RETURN
6140 		541	REM
6160 =79
6180 		514	IF H>195 THEN 525
6200 		515	IF HSC=2.5 THEN 525
6220 		516	IF F=0 THEN 525
6240 		522	HSC=2.5
6260 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
6280 		524	GOTO 511
6300 		525	IF F<>0 OR OFS<>0 THEN 529
6320 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
6340 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
6360 		528	OFS=1
6380 		529	PRINT : PRINT "I";TAB(J);"*";
6400 		530	PRINT TAB(-1,1);"#########################################################"
6420 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
6440 		540	RETURN
6460 		541	REM
6480 =79
6500 		514	IF H>195 THEN 525
6520 		515	IF HSC=2.5 THEN 525
6540 		516	IF F=0 THEN 525
6560 		522	HSC=2.5
6580 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
6600 		524	GOTO 511
6620 		525	IF F<>0 OR OFS<>0 THEN 529
6640 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
6660 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
6680 		528	OFS=1
6700 		529	PRINT : PRINT "I";TAB(J);"*";
6720 		530	PRINT TAB(-1,1);"#########################################################"
6740 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
6760 		540	RETURN
6780 		541	REM
6800 =79
6820 		514	IF H>195 THEN 525
6840 		515	IF HSC=2.5 THEN 525
6860 		516	IF F=0 THEN 525
6880 		522	HSC=2.5
6900 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
6920 		524	GOTO 511
6940 		525	IF F<>0 OR OFS<>0 THEN 529
6960 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
6980 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
7000 		528	OFS=1
7020 		529	PRINT : PRINT "I";TAB(J);"*";
7040 		530	PRINT TAB(-1,1);"#########################################################"
7060 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
7080 		540	RETURN
7100 		541	REM
7120 =79
7140 		514	IF H>195 THEN 525
7160 		515	IF HSC=2.5 THEN 525
7180 		516	IF F=0 THEN 525
7200 		522	HSC=2.5
7220 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
7240 		524	GOTO 511
7260 		525	IF F<>0 OR OFS<>0 THEN 529
7280 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
7300 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
7320 		528	OFS=1
7340 		529	PRINT : PRINT "I";TAB(J);"*";
7360 		530	PRINT TAB(-1,1);"#########################################################"
7380 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
7400 		540	RETURN
7420 		541	REM
7440 =79
7460 		514	IF H>195 THEN 525
7480 		515	IF HSC=2.5 THEN 525
7500 		516	IF F=0 THEN 525
7520 		522	HSC=2.5
7540 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
7560 		524	GOTO 511
7580 		525	IF F<>0 OR OFS<>0 THEN 529
7600 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
7620 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
7640 		528	OFS=1
7660 		529	PRINT : PRINT "I";TAB(J);"*";
7680 		530	PRINT TAB(-1,1);"#########################################################"
7700 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
7720 		540	RETURN
7740 		541	REM
7760 =79
7780 		514	IF H>195 THEN 525
7800 		515	IF HSC=2.5 THEN 525
7820 		516	IF F=0 THEN 525
7840 		522	HSC=2.5
7860 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
7880 		524	GOTO 511
7900 		525	IF F<>0 OR OFS<>0 THEN 529
7920 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
7940 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
7960 		528	OFS=1
7980 		529	PRINT : PRINT "I";TAB(J);"*";
8000 		530	PRINT TAB(-1,1);"#########################################################"
8020 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
8040 		540	RETURN
8060 		541	REM
8080 =79
8100 		514	IF H>195 THEN 525
8120 		515	IF HSC=2.5 THEN 525
8140 		516	IF F=0 THEN 525
8160 		522	HSC=2.5
8180 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
8200 		524	GOTO 511
8220 		525	IF F<>0 OR OFS<>0 THEN 529
8240 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
8260 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
8280 		528	OFS=1
8300 		529	PRINT : PRINT "I";TAB(J);"*";
8320 		530	PRINT TAB(-1,1);"#########################################################"
8340 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
8360 		540	RETURN
8380 		541	REM
8400 =79
8420 		514	IF H>195 THEN 525
8440 		515	IF HSC=2.5 THEN 525
8460 		516	IF F=0 THEN 525
8480 		522	HSC=2.5
8500 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
8520 		524	GOTO 511
8540 		525	IF F<>0 OR OFS<>0 THEN 529
8560 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
8580 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
8600 		528	OFS=1
8620 		529	PRINT : PRINT "I";TAB(J);"*";
8640 		530	PRINT TAB(-1,1);"#########################################################"
8660 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
8680 		540	RETURN
8700 		541	REM
8720 =79
8740 		514	IF H>195 THEN 525
8760 		515	IF HSC=2.5 THEN 525
8780 		516	IF F=0 THEN 525
8800 		522	HSC=2.5
8820 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
8840 		524	GOTO 511
8860 		525	IF F<>0 OR OFS<>0 THEN 529
8880 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
8900 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
8920 		528	OFS=1
8940 		529	PRINT : PRINT "I";TAB(J);"*";
8960 		530	PRINT TAB(-1,1);"#########################################################"
8980 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
9000 		540	RETURN
9020 		541	REM
9040 =79
9060 		514	IF H>195 THEN 525
9080 		515	IF HSC=2.5 THEN 525
9100 		516	IF F=0 THEN 525
9120 		522	HSC=2.5
9140 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
9160 		524	GOTO 511
9180 		525	IF F<>0 OR OFS<>0 THEN 529
9200 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
9220 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
9240 		528	OFS=1
9260 		529	PRINT : PRINT "I";TAB(J);"*";
9280 		530	PRINT TAB(-1,1);"#########################################################"
9300 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
9320 		540	RETURN
9340 		541	REM
9360 =79
9380 		514	IF H>195 THEN 525
9400 		515	IF HSC=2.5 THEN 525
9420 		516	IF F=0 THEN 525
9440 		522	HSC=2.5
9460 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
9480 		524	GOTO 511
9500 		525	IF F<>0 OR OFS<>0 THEN 529
9520 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
9540 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
9560 		528	OFS=1
9580 		529	PRINT : PRINT "I";TAB(J);"*";
9600 		530	PRINT TAB(-1,1);"#########################################################"
9620 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
9640 		540	RETURN
9660 		541	REM
9680 =79
9700 		514	IF H>195 THEN 525
9720 		515	IF HSC=2.5 THEN 525
9740 		516	IF F=0 THEN 525
9760 		522	HSC=2.5
9780 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
9800 		524	GOTO 511
9820 		525	IF F<>0 OR OFS<>0 THEN 529
9840 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
9860 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
9880 		528	OFS=1
9900 		529	PRINT : PRINT "I";TAB(J);"*";
9920 		530	PRINT TAB(-1,1);"#########################################################"
9940 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
9960 		540	RETURN
9980 		541	REM
10000 =79
10020 		514	IF H>195 THEN 525
10040 		515	IF HSC=2.5 THEN 525
10060 		516	IF F=0 THEN 525
10080 		522	HSC=2.5
10100 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
10120 		524	GOTO 511
10140 		525	IF F<>0 OR OFS<>0 THEN 529
10160 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
10180 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
10200 		528	OFS=1
10220 		529	PRINT : PRINT "I";TAB(J);"*";
10240 		530	PRINT TAB(-1,1);"#########################################################"
10260 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
10280 		540	RETURN
10300 		541	REM
10320 =79
10340 		514	IF H>195 THEN 525
10360 		515	IF HSC=2.5 THEN 525
10380 		516	IF F=0 THEN 525
10400 		522	HSC=2.5
10420 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
10440 		524	GOTO 511
10460 		525	IF F<>0 OR OFS<>0 THEN 529
10480 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
10500 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
10520 		528	OFS=1
10540 		529	PRINT : PRINT "I";TAB(J);"*";
10560 		530	PRINT TAB(-1,1);"#########################################################"
10580 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
10600 		540	RETURN
10620 		541	REM
10640 =79
10660 		514	IF H>195 THEN 525
10680 		515	IF HSC=2.5 THEN 525
10700 		516	IF F=0 THEN 525
10720 		522	HSC=2.5
10740 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
10760 		524	GOTO 511
10780 		525	IF F<>0 OR OFS<>0 THEN 529
10800 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
10820 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
10840 		528	OFS=1
10860 		529	PRINT : PRINT "I";TAB(J);"*";
10880 		530	PRINT TAB(-1,1);"#########################################################"
10900 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
10920 		540	RETURN
10940 		541	REM
10960 =79
10980 		514	IF H>195 THEN 525
11000 		515	IF HSC=2.5 THEN 525
11020 		516	IF F=0 THEN 525
11040 		522	HSC=2.5
11060 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
11080 		524	GOTO 511
11100 		525	IF F<>0 OR OFS<>0 THEN 529
11120 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
11140 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
11160 		528	OFS=1
11180 		529	PRINT : PRINT "I";TAB(J);"*";
11200 		530	PRINT TAB(-1,1);"#########################################################"
11220 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
11240 		540	RETURN
11260 		541	REM
11280 =79
11300 		514	IF H>195 THEN 525
11320 		515	IF HSC=2.5 THEN 525
11340 		516	IF F=0 THEN 525
11360 		522	HSC=2.5
11380 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
11400 		524	GOTO 511
11420 		525	IF F<>0 OR OFS<>0 THEN 529
11440 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
11460 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
11480 		528	OFS=1
11500 		529	PRINT : PRINT "I";TAB(J);"*";
11520 		530	PRINT TAB(-1,1);"#########################################################"
11540 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
11560 		540	RETURN
11580 		541	REM
11600 =79
11620 		514	IF H>195 THEN 525
11640 		515	IF HSC=2.5 THEN 525
11660 		516	IF F=0 THEN 525
11680 		522	HSC=2.5
11700 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
11720 		524	GOTO 511
11740 		525	IF F<>0 OR OFS<>0 THEN 529
11760 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
11780 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
11800 		528	OFS=1
11820 		529	PRINT : PRINT "I";TAB(J);"*";
11840 		530	PRINT TAB(-1,1);"#########################################################"
11860 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
11880 		540	RETURN
11900 		541	REM
11920 =79
11940 		514	IF H>195 THEN 525
11960 		515	IF HSC=2.5 THEN 525
11980 		516	IF F=0 THEN 525
12000 		522	HSC=2.5
12020 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
12040 		524	GOTO 511
12060 		525	IF F<>0 OR OFS<>0 THEN 529
12080 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
12100 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
12120 		528	OFS=1
12140 		529	PRINT : PRINT "I";TAB(J);"*";
12160 		530	PRINT TAB(-1,1);"#########################################################"
12180 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
12200 		540	RETURN
12220 		541	REM
12240 =79
12260 		514	IF H>195 THEN 525
12280 		515	IF HSC=2.5 THEN 525
12300 		516	IF F=0 THEN 525
12320 		522	HSC=2.5
12340 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
12360 		524	GOTO 511
12380 		525	IF F<>0 OR OFS<>0 THEN 529
12400 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
12420 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
12440 		528	OFS=1
12460 		529	PRINT : PRINT "I";TAB(J);"*";
12480 		530	PRINT TAB(-1,1);"#########################################################"
12500 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
12520 		540	RETURN
12540 		541	REM
12560 =79
12580 		514	IF H>195 THEN 525
12600 		515	IF HSC=2.5 THEN 525
12620 		516	IF F=0 THEN 525
12640 		522	HSC=2.5
12660 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
12680 		524	GOTO 511
12700 		525	IF F<>0 OR OFS<>0 THEN 529
12720 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
12740 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
12760 		528	OFS=1
12780 		529	PRINT : PRINT "I";TAB(J);"*";
12800 		530	PRINT TAB(-1,1);"#########################################################"
12820 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
12840 		540	RETURN
12860 		541	REM
12880 =79
12900 		514	IF H>195 THEN 525
12920 		515	IF HSC=2.5 THEN 525
12940 		516	IF F=0 THEN 525
12960 		522	HSC=2.5
12980 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
13000 		524	GOTO 511
13020 		525	IF F<>0 OR OFS<>0 THEN 529
13040 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
13060 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
13080 		528	OFS=1
13100 		529	PRINT : PRINT "I";TAB(J);"*";
13120 		530	PRINT TAB(-1,1);"#########################################################"
13140 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
13160 		540	RETURN
13180 		541	REM
13200 =79
13220 		514	IF H>195 THEN 525
13240 		515	IF HSC=2.5 THEN 525
13260 		516	IF F=0 THEN 525
13280 		522	HSC=2.5
13300 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
13320 		524	GOTO 511
13340 		525	IF F<>0 OR OFS<>0 THEN 529
13360 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
13380 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
13400 		528	OFS=1
13420 		529	PRINT : PRINT "I";TAB(J);"*";
13440 		530	PRINT TAB(-1,1);"#########################################################"
13460 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
13480 		540	RETURN
13500 		541	REM
13520 =79
13540 		514	IF H>195 THEN 525
13560 		515	IF HSC=2.5 THEN 525
13580 		516	IF F=0 THEN 525
13600 		522	HSC=2.5
13620 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
13640 		524	GOTO 511
13660 		525	IF F<>0 OR OFS<>0 THEN 529
13680 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
13700 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
13720 		528	OFS=1
13740 		529	PRINT : PRINT "I";TAB(J);"*";
13760 		530	PRINT TAB(-1,1);"#########################################################"
13780 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
13800 		540	RETURN
13820 		541	REM
13840 =79
13860 		514	IF H>195 THEN 525
13880 		515	IF HSC=2.5 THEN 525
13900 		516	IF F=0 THEN 525
13920 		522	HSC=2.5
13940 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
13960 		524	GOTO 511
13980 		525	IF F<>0 OR OFS<>0 THEN 529
14000 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
14020 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
14040 		528	OFS=1
14060 		529	PRINT : PRINT "I";TAB(J);"*";
14080 		530	PRINT TAB(-1,1);"#########################################################"
14100 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
14120 		540	RETURN
14140 		541	REM
14160 =79
14180 		514	IF H>195 THEN 525
14200 		515	IF HSC=2.5 THEN 525
14220 		516	IF F=0 THEN 525
14240 		522	HSC=2.5
14260 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
14280 		524	GOTO 511
14300 		525	IF F<>0 OR OFS<>0 THEN 529
14320 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
14340 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
14360 		528	OFS=1
14380 		529	PRINT : PRINT "I";TAB(J);"*";
14400 		530	PRINT TAB(-1,1);"#########################################################"
14420 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
14440 		540	RETURN
14460 		541	REM
14480 =79
14500 		514	IF H>195 THEN 525
14520 		515	IF HSC=2.5 THEN 525
14540 		516	IF F=0 THEN 525
14560 		522	HSC=2.5
14580 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
14600 		524	GOTO 511
14620 		525	IF F<>0 OR OFS<>0 THEN 529
14640 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
14660 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
14680 		528	OFS=1
14700 		529	PRINT : PRINT "I";TAB(J);"*";
14720 		530	PRINT TAB(-1,1);"#########################################################"
14740 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
14760 		540	RETURN
14780 		541	REM
14800 =79
14820 		514	IF H>195 THEN 525
14840 		515	IF HSC=2.5 THEN 525
14860 		516	IF F=0 THEN 525
14880 		522	HSC=2.5
14900 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
14920 		524	GOTO 511
14940 		525	IF F<>0 OR OFS<>0 THEN 529
14960 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
14980 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
15000 		528	OFS=1
15020 		529	PRINT : PRINT "I";TAB(J);"*";
15040 		530	PRINT TAB(-1,1);"#########################################################"
15060 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
15080 		540	RETURN
15100 		541	REM
15120 =79
15140 		514	IF H>195 THEN 525
15160 		515	IF HSC=2.5 THEN 525
15180 		516	IF F=0 THEN 525
15200 		522	HSC=2.5
15220 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
15240 		524	GOTO 511
15260 		525	IF F<>0 OR OFS<>0 THEN 529
15280 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
15300 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
15320 		528	OFS=1
15340 		529	PRINT : PRINT "I";TAB(J);"*";
15360 		530	PRINT TAB(-1,1);"#########################################################"
15380 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
15400 		540	RETURN
15420 		541	REM
15440 =79
15460 		514	IF H>195 THEN 525
15480 		515	IF HSC=2.5 THEN 525
15500 		516	IF F=0 THEN 525
15520 		522	HSC=2.5
15540 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
15560 		524	GOTO 511
15580 		525	IF F<>0 OR OFS<>0 THEN 529
15600 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
15620 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
15640 		528	OFS=1
15660 		529	PRINT : PRINT "I";TAB(J);"*";
15680 		530	PRINT TAB(-1,1);"#########################################################"
15700 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
15720 		540	RETURN
15740 		541	REM
15760 =79
15780 		514	IF H>195 THEN 525
15800 		515	IF HSC=2.5 THEN 525
15820 		516	IF F=0 THEN 525
15840 		522	HSC=2.5
15860 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
15880 		524	GOTO 511
15900 		525	IF F<>0 OR OFS<>0 THEN 529
15920 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
15940 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
15960 		528	OFS=1
15980 		529	PRINT : PRINT "I";TAB(J);"*";
16000 		530	PRINT TAB(-1,1);"#########################################################"
16020 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
16040 		540	RETURN
16060 		541	REM
16080 =79
16100 		514	IF H>195 THEN 525
16120 		515	IF HSC=2.5 THEN 525
16140 		516	IF F=0 THEN 525
16160 		522	HSC=2.5
16180 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
16200 		524	GOTO 511
16220 		525	IF F<>0 OR OFS<>0 THEN 529
16240 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
16260 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
16280 		528	OFS=1
16300 		529	PRINT : PRINT "I";TAB(J);"*";
16320 		530	PRINT TAB(-1,1);"#########################################################"
16340 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
16360 		540	RETURN
16380 		541	REM
16400 =79
16420 		514	IF H>195 THEN 525
16440 		515	IF HSC=2.5 THEN 525
16460 		516	IF F=0 THEN 525
16480 		522	HSC=2.5
16500 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
16520 		524	GOTO 511
16540 		525	IF F<>0 OR OFS<>0 THEN 529
16560 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
16580 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
16600 		528	OFS=1
16620 		529	PRINT : PRINT "I";TAB(J);"*";
16640 		530	PRINT TAB(-1,1);"#########################################################"
16660 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
16680 		540	RETURN
16700 		541	REM
16720 =79
16740 		514	IF H>195 THEN 525
16760 		515	IF HSC=2.5 THEN 525
16780 		516	IF F=0 THEN 525
16800 		522	HSC=2.5
16820 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
16840 		524	GOTO 511
16860 		525	IF F<>0 OR OFS<>0 THEN 529
16880 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
16900 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
16920 		528	OFS=1
16940 		529	PRINT : PRINT "I";TAB(J);"*";
16960 		530	PRINT TAB(-1,1);"#########################################################"
16980 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
17000 		540	RETURN
17020 		541	REM
17040 =79
17060 		514	IF H>195 THEN 525
17080 		515	IF HSC=2.5 THEN 525
17100 		516	IF F=0 THEN 525
17120 		522	HSC=2.5
17140 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
17160 		524	GOTO 511
17180 		525	IF F<>0 OR OFS<>0 THEN 529
17200 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
17220 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
17240 		528	OFS=1
17260 		529	PRINT : PRINT "I";TAB(J);"*";
17280 		530	PRINT TAB(-1,1);"#########################################################"
17300 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
17320 		540	RETURN
17340 		541	REM
17360 =79
17380 		514	IF H>195 THEN 525
17400 		515	IF HSC=2.5 THEN 525
17420 		516	IF F=0 THEN 525
17440 		522	HSC=2.5
17460 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
17480 		524	GOTO 511
17500 		525	IF F<>0 OR OFS<>0 THEN 529
17520 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
17540 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
17560 		528	OFS=1
17580 		529	PRINT : PRINT "I";TAB(J);"*";
17600 		530	PRINT TAB(-1,1);"#########################################################"
17620 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
17640 		540	RETURN
17660 		541	REM
17680 =79
17700 		514	IF H>195 THEN 525
17720 		515	IF HSC=2.5 THEN 525
17740 		516	IF F=0 THEN 525
17760 		522	HSC=2.5
17780 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
17800 		524	GOTO 511
17820 		525	IF F<>0 OR OFS<>0 THEN 529
17840 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
17860 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
17880 		528	OFS=1
17900 		529	PRINT : PRINT "I";TAB(J);"*";
17920 		530	PRINT TAB(-1,1);"#########################################################"
17940 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
17960 		540	RETURN
17980 		541	REM
18000 =79
18020 		514	IF H>195 THEN 525
18040 		515	IF HSC=2.5 THEN 525
18060 		516	IF F=0 THEN 525
18080 		522	HSC=2.5
18100 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
18120 		524	GOTO 511
18140 		525	IF F<>0 OR OFS<>0 THEN 529
18160 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
18180 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
18200 		528	OFS=1
18220 		529	PRINT : PRINT "I";TAB(J);"*";
18240 		530	PRINT TAB(-1,1);"#########################################################"
18260 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
18280 		540	RETURN
18300 		541	REM
18320 =79
18340 		514	IF H>195 THEN 525
18360 		515	IF HSC=2.5 THEN 525
18380 		516	IF F=0 THEN 525
18400 		522	HSC=2.5
18420 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
18440 		524	GOTO 511
18460 		525	IF F<>0 OR OFS<>0 THEN 529
18480 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
18500 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
18520 		528	OFS=1
18540 		529	PRINT : PRINT "I";TAB(J);"*";
18560 		530	PRINT TAB(-1,1);"#########################################################"
18580 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
18600 		540	RETURN
18620 		541	REM
18640 =79
18660 		514	IF H>195 THEN 525
18680 		515	IF HSC=2.5 THEN 525
18700 		516	IF F=0 THEN 525
18720 		522	HSC=2.5
18740 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
18760 		524	GOTO 511
18780 		525	IF F<>0 OR OFS<>0 THEN 529
18800 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
18820 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
18840 		528	OFS=1
18860 		529	PRINT : PRINT "I";TAB(J);"*";
18880 		530	PRINT TAB(-1,1);"#########################################################"
18900 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
18920 		540	RETURN
18940 		541	REM
18960 =79
18980 		514	IF H>195 THEN 525
19000 		515	IF HSC=2.5 THEN 525
19020 		516	IF F=0 THEN 525
19040 		522	HSC=2.5
19060 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
19080 		524	GOTO 511
19100 		525	IF F<>0 OR OFS<>0 THEN 529
19120 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
19140 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
19160 		528	OFS=1
19180 		529	PRINT : PRINT "I";TAB(J);"*";
19200 		530	PRINT TAB(-1,1);"#########################################################"
19220 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
19240 		540	RETURN
19260 		541	REM
19280 =79
19300 		514	IF H>195 THEN 525
19320 		515	IF HSC=2.5 THEN 525
19340 		516	IF F=0 THEN 525
19360 		522	HSC=2.5
19380 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
19400 		524	GOTO 511
19420 		525	IF F<>0 OR OFS<>0 THEN 529
19440 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
19460 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
19480 		528	OFS=1
19500 		529	PRINT : PRINT "I";TAB(J);"*";
19520 		530	PRINT TAB(-1,1);"#########################################################"
19540 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
19560 		540	RETURN
19580 		541	REM
19600 =79
19620 		514	IF H>195 THEN 525
19640 		515	IF HSC=2.5 THEN 525
19660 		516	IF F=0 THEN 525
19680 		522	HSC=2.5
19700 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
19720 		524	GOTO 511
19740 		525	IF F<>0 OR OFS<>0 THEN 529
19760 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
19780 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
19800 		528	OFS=1
19820 		529	PRINT : PRINT "I";TAB(J);"*";
19840 		530	PRINT TAB(-1,1);"#########################################################"
19860 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
19880 		540	RETURN
19900 		541	REM
19920 =79
19940 		514	IF H>195 THEN 525
19960 		515	IF HSC=2.5 THEN 525
19980 		516	IF F=0 THEN 525
20000 		522	HSC=2.5
20020 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
20040 		524	GOTO 511
20060 		525	IF F<>0 OR OFS<>0 THEN 529
20080 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
20100 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
20120 		528	OFS=1
20140 		529	PRINT : PRINT "I";TAB(J);"*";
20160 		530	PRINT TAB(-1,1);"#########################################################"
20180 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
20200 		540	RETURN
20220 		541	REM
20240 =79
20260 		514	IF H>195 THEN 525
20280 		515	IF HSC=2.5 THEN 525
20300 		516	IF F=0 THEN 525
20320 		522	HSC=2.5
20340 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
20360 		524	GOTO 511
20380 		525	IF F<>0 OR OFS<>0 THEN 529
20400 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
20420 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
20440 		528	OFS=1
20460 		529	PRINT : PRINT "I";TAB(J);"*";
20480 		530	PRINT TAB(-1,1);"#########################################################"
20500 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
20520 		540	RETURN
20540 		541	REM
20560 =79
20580 		514	IF H>195 THEN 525
20600 		515	IF HSC=2.5 THEN 525
20620 		516	IF F=0 THEN 525
20640 		522	HSC=2.5
20660 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
20680 		524	GOTO 511
20700 		525	IF F<>0 OR OFS<>0 THEN 529
20720 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
20740 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
20760 		528	OFS=1
20780 		529	PRINT : PRINT "I";TAB(J);"*";
20800 		530	PRINT TAB(-1,1);"#########################################################"
20820 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
20840 		540	RETURN
20860 		541	REM
20880 =79
20900 		514	IF H>195 THEN 525
20920 		515	IF HSC=2.5 THEN 525
20940 		516	IF F=0 THEN 525
20960 		522	HSC=2.5
20980 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
21000 		524	GOTO 511
21020 		525	IF F<>0 OR OFS<>0 THEN 529
21040 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
21060 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
21080 		528	OFS=1
21100 		529	PRINT : PRINT "I";TAB(J);"*";
21120 		530	PRINT TAB(-1,1);"#########################################################"
21140 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
21160 		540	RETURN
21180 		541	REM
21200 =79
21220 		514	IF H>195 THEN 525
21240 		515	IF HSC=2.5 THEN 525
21260 		516	IF F=0 THEN 525
21280 		522	HSC=2.5
21300 		523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
21320 		524	GOTO 511
21340 		525	IF F<>0 OR OFS<>0 THEN 529
21360 		526	IF J>20 THEN PRINT "*** OUT OF FUEL";
21380 		527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
21400 		528	OFS=1
21420 		529	PRINT : PRINT "I";TAB(J);"*";
21440 		530	PRINT TAB(-1,1);"#########################################################"
21460 		535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
21480 		540	RETURN
21500 		541	REM
21520 =79
21540 		514	IF H>195 THEN 525
21560 		515	IF HSC=2.5 THEN 525
21580 					MAP516	IF F=0 THEN 525
21600 					MAP522	HSC=2.5
21620 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
21640 					MAP524	GOTO 511
21660 					MAP525	IF F<>0 OR OFS<>0 THEN 529
21680 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
21700 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
21720 					MAP528	OFS=1
21740 					MAP529	PRINT : PRINT "I";TAB(J);"*";
21760 					MAP530	PRINT TAB(-1,1);"#########################################################"
21780 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
21800 					MAP540	RETURN
21820 					MAP541	REM
21840 =79
21860 					MAP514	IF H>195 THEN 525
21880 					MAP515	IF HSC=2.5 THEN 525
21900 					MAP516	IF F=0 THEN 525
21920 					MAP522	HSC=2.5
21940 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
21960 					MAP524	GOTO 511
21980 					MAP525	IF F<>0 OR OFS<>0 THEN 529
22000 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
22020 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
22040 					MAP528	OFS=1
22060 					MAP529	PRINT : PRINT "I";TAB(J);"*";
22080 					MAP530	PRINT TAB(-1,1);"#########################################################"
22100 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
22120 					MAP540	RETURN
22140 					MAP541	REM
22160 =79
22180 					MAP514	IF H>195 THEN 525
22200 					MAP515	IF HSC=2.5 THEN 525
22220 					MAP516	IF F=0 THEN 525
22240 					MAP522	HSC=2.5
22260 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
22280 					MAP524	GOTO 511
22300 					MAP525	IF F<>0 OR OFS<>0 THEN 529
22320 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
22340 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
22360 					MAP528	OFS=1
22380 					MAP529	PRINT : PRINT "I";TAB(J);"*";
22400 					MAP530	PRINT TAB(-1,1);"#########################################################"
22420 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
22440 					MAP540	RETURN
22460 					MAP541	REM
22480 =79
22500 					MAP514	IF H>195 THEN 525
22520 					MAP515	IF HSC=2.5 THEN 525
22540 					MAP516	IF F=0 THEN 525
22560 					MAP522	HSC=2.5
22580 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
22600 					MAP524	GOTO 511
22620 					MAP525	IF F<>0 OR OFS<>0 THEN 529
22640 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
22660 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
22680 					MAP528	OFS=1
22700 					MAP529	PRINT : PRINT "I";TAB(J);"*";
22720 					MAP530	PRINT TAB(-1,1);"#########################################################"
22740 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
22760 					MAP540	RETURN
22780 					MAP541	REM
22800 =79
22820 					MAP514	IF H>195 THEN 525
22840 					MAP515	IF HSC=2.5 THEN 525
22860 					MAP516	IF F=0 THEN 525
22880 					MAP522	HSC=2.5
22900 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
22920 					MAP524	GOTO 511
22940 					MAP525	IF F<>0 OR OFS<>0 THEN 529
22960 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
22980 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
23000 					MAP528	OFS=1
23020 					MAP529	PRINT : PRINT "I";TAB(J);"*";
23040 					MAP530	PRINT TAB(-1,1);"#########################################################"
23060 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
23080 					MAP540	RETURN
23100 					MAP541	REM
23120 =79
23140 					MAP514	IF H>195 THEN 525
23160 					MAP515	IF HSC=2.5 THEN 525
23180 					MAP516	IF F=0 THEN 525
23200 					MAP522	HSC=2.5
23220 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
23240 					MAP524	GOTO 511
23260 					MAP525	IF F<>0 OR OFS<>0 THEN 529
23280 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
23300 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
23320 					MAP528	OFS=1
23340 					MAP529	PRINT : PRINT "I";TAB(J);"*";
23360 					MAP530	PRINT TAB(-1,1);"#########################################################"
23380 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
23400 					MAP540	RETURN
23420 					MAP541	REM
23440 =79
23460 					MAP514	IF H>195 THEN 525
23480 					MAP515	IF HSC=2.5 THEN 525
23500 					MAP516	IF F=0 THEN 525
23520 					MAP522	HSC=2.5
23540 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
23560 					MAP524	GOTO 511
23580 					MAP525	IF F<>0 OR OFS<>0 THEN 529
23600 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
23620 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
23640 					MAP528	OFS=1
23660 					MAP529	PRINT : PRINT "I";TAB(J);"*";
23680 					MAP530	PRINT TAB(-1,1);"#########################################################"
23700 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
23720 					MAP540	RETURN
23740 					MAP541	REM
23760 =79
23780 					MAP514	IF H>195 THEN 525
23800 					MAP515	IF HSC=2.5 THEN 525
23820 					MAP516	IF F=0 THEN 525
23840 					MAP522	HSC=2.5
23860 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
23880 					MAP524	GOTO 511
23900 					MAP525	IF F<>0 OR OFS<>0 THEN 529
23920 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
23940 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
23960 					MAP528	OFS=1
23980 					MAP529	PRINT : PRINT "I";TAB(J);"*";
24000 					MAP530	PRINT TAB(-1,1);"#########################################################"
24020 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
24040 					MAP540	RETURN
24060 					MAP541	REM
24080 =79
24100 					MAP514	IF H>195 THEN 525
24120 					MAP515	IF HSC=2.5 THEN 525
24140 					MAP516	IF F=0 THEN 525
24160 					MAP522	HSC=2.5
24180 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
24200 					MAP524	GOTO 511
24220 					MAP525	IF F<>0 OR OFS<>0 THEN 529
24240 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
24260 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
24280 					MAP528	OFS=1
24300 					MAP529	PRINT : PRINT "I";TAB(J);"*";
24320 					MAP530	PRINT TAB(-1,1);"#########################################################"
24340 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
24360 					MAP540	RETURN
24380 					MAP541	REM
24400 =79
24420 					MAP514	IF H>195 THEN 525
24440 					MAP515	IF HSC=2.5 THEN 525
24460 					MAP516	IF F=0 THEN 525
24480 					MAP522	HSC=2.5
24500 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
24520 					MAP524	GOTO 511
24540 					MAP525	IF F<>0 OR OFS<>0 THEN 529
24560 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
24580 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
24600 					MAP528	OFS=1
24620 					MAP529	PRINT : PRINT "I";TAB(J);"*";
24640 					MAP530	PRINT TAB(-1,1);"#########################################################"
24660 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
24680 					MAP540	RETURN
24700 					MAP541	REM
24720 =79
24740 					MAP514	IF H>195 THEN 525
24760 					MAP515	IF HSC=2.5 THEN 525
24780 					MAP516	IF F=0 THEN 525
24800 					MAP522	HSC=2.5
24820 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
24840 					MAP524	GOTO 511
24860 					MAP525	IF F<>0 OR OFS<>0 THEN 529
24880 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
24900 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
24920 					MAP528	OFS=1
24940 					MAP529	PRINT : PRINT "I";TAB(J);"*";
24960 					MAP530	PRINT TAB(-1,1);"#########################################################"
24980 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
25000 					MAP540	RETURN
25020 					MAP541	REM
25040 =79
25060 					MAP514	IF H>195 THEN 525
25080 					MAP515	IF HSC=2.5 THEN 525
25100 					MAP516	IF F=0 THEN 525
25120 					MAP522	HSC=2.5
25140 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
25160 					MAP524	GOTO 511
25180 					MAP525	IF F<>0 OR OFS<>0 THEN 529
25200 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
25220 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
25240 					MAP528	OFS=1
25260 					MAP529	PRINT : PRINT "I";TAB(J);"*";
25280 					MAP530	PRINT TAB(-1,1);"#########################################################"
25300 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
25320 					MAP540	RETURN
25340 					MAP541	REM
25360 =79
25380 					MAP514	IF H>195 THEN 525
25400 					MAP515	IF HSC=2.5 THEN 525
25420 					MAP516	IF F=0 THEN 525
25440 					MAP522	HSC=2.5
25460 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
25480 					MAP524	GOTO 511
25500 					MAP525	IF F<>0 OR OFS<>0 THEN 529
25520 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
25540 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
25560 					MAP528	OFS=1
25580 					MAP529	PRINT : PRINT "I";TAB(J);"*";
25600 					MAP530	PRINT TAB(-1,1);"#########################################################"
25620 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
25640 					MAP540	RETURN
25660 					MAP541	REM
25680 =79
25700 					MAP514	IF H>195 THEN 525
25720 					MAP515	IF HSC=2.5 THEN 525
25740 					MAP516	IF F=0 THEN 525
25760 					MAP522	HSC=2.5
25780 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
25800 					MAP524	GOTO 511
25820 					MAP525	IF F<>0 OR OFS<>0 THEN 529
25840 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
25860 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
25880 					MAP528	OFS=1
25900 					MAP529	PRINT : PRINT "I";TAB(J);"*";
25920 					MAP530	PRINT TAB(-1,1);"#########################################################"
25940 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
25960 					MAP540	RETURN
25980 					MAP541	REM
26000 =79
26020 					MAP514	IF H>195 THEN 525
26040 					MAP515	IF HSC=2.5 THEN 525
26060 					MAP516	IF F=0 THEN 525
26080 					MAP522	HSC=2.5
26100 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
26120 					MAP524	GOTO 511
26140 					MAP525	IF F<>0 OR OFS<>0 THEN 529
26160 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
26180 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
26200 					MAP528	OFS=1
26220 					MAP529	PRINT : PRINT "I";TAB(J);"*";
26240 					MAP530	PRINT TAB(-1,1);"#########################################################"
26260 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
26280 					MAP540	RETURN
26300 					MAP541	REM
26320 =79
26340 					MAP514	IF H>195 THEN 525
26360 					MAP515	IF HSC=2.5 THEN 525
26380 					MAP516	IF F=0 THEN 525
26400 					MAP522	HSC=2.5
26420 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
26440 					MAP524	GOTO 511
26460 					MAP525	IF F<>0 OR OFS<>0 THEN 529
26480 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
26500 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
26520 					MAP528	OFS=1
26540 					MAP529	PRINT : PRINT "I";TAB(J);"*";
26560 					MAP530	PRINT TAB(-1,1);"#########################################################"
26580 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
26600 					MAP540	RETURN
26620 					MAP541	REM
26640 =79
26660 					MAP514	IF H>195 THEN 525
26680 					MAP515	IF HSC=2.5 THEN 525
26700 					MAP516	IF F=0 THEN 525
26720 					MAP522	HSC=2.5
26740 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
26760 					MAP524	GOTO 511
26780 					MAP525	IF F<>0 OR OFS<>0 THEN 529
26800 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
26820 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
26840 					MAP528	OFS=1
26860 					MAP529	PRINT : PRINT "I";TAB(J);"*";
26880 					MAP530	PRINT TAB(-1,1);"#########################################################"
26900 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
26920 					MAP540	RETURN
26940 					MAP541	REM
26960 =79
26980 					MAP514	IF H>195 THEN 525
27000 					MAP515	IF HSC=2.5 THEN 525
27020 					MAP516	IF F=0 THEN 525
27040 					MAP522	HSC=2.5
27060 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
27080 					MAP524	GOTO 511
27100 					MAP525	IF F<>0 OR OFS<>0 THEN 529
27120 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
27140 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
27160 					MAP528	OFS=1
27180 					MAP529	PRINT : PRINT "I";TAB(J);"*";
27200 					MAP530	PRINT TAB(-1,1);"#########################################################"
27220 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
27240 					MAP540	RETURN
27260 					MAP541	REM
27280 =79
27300 					MAP514	IF H>195 THEN 525
27320 					MAP515	IF HSC=2.5 THEN 525
27340 					MAP516	IF F=0 THEN 525
27360 					MAP522	HSC=2.5
27380 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
27400 					MAP524	GOTO 511
27420 					MAP525	IF F<>0 OR OFS<>0 THEN 529
27440 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
27460 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
27480 					MAP528	OFS=1
27500 					MAP529	PRINT : PRINT "I";TAB(J);"*";
27520 					MAP530	PRINT TAB(-1,1);"#########################################################"
27540 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
27560 					MAP540	RETURN
27580 					MAP541	REM
27600 =79
27620 					MAP514	IF H>195 THEN 525
27640 					MAP515	IF HSC=2.5 THEN 525
27660 					MAP516	IF F=0 THEN 525
27680 					MAP522	HSC=2.5
27700 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
27720 					MAP524	GOTO 511
27740 					MAP525	IF F<>0 OR OFS<>0 THEN 529
27760 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
27780 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
27800 					MAP528	OFS=1
27820 					MAP529	PRINT : PRINT "I";TAB(J);"*";
27840 					MAP530	PRINT TAB(-1,1);"#########################################################"
27860 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
27880 					MAP540	RETURN
27900 					MAP541	REM
27920 =79
27940 					MAP514	IF H>195 THEN 525
27960 					MAP515	IF HSC=2.5 THEN 525
27980 					MAP516	IF F=0 THEN 525
28000 					MAP522	HSC=2.5
28020 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
28040 					MAP524	GOTO 511
28060 					MAP525	IF F<>0 OR OFS<>0 THEN 529
28080 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
28100 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
28120 					MAP528	OFS=1
28140 					MAP529	PRINT : PRINT "I";TAB(J);"*";
28160 					MAP530	PRINT TAB(-1,1);"#########################################################"
28180 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
28200 					MAP540	RETURN
28220 					MAP541	REM
28240 =79
28260 					MAP514	IF H>195 THEN 525
28280 					MAP515	IF HSC=2.5 THEN 525
28300 					MAP516	IF F=0 THEN 525
28320 					MAP522	HSC=2.5
28340 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
28360 					MAP524	GOTO 511
28380 					MAP525	IF F<>0 OR OFS<>0 THEN 529
28400 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
28420 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
28440 					MAP528	OFS=1
28460 					MAP529	PRINT : PRINT "I";TAB(J);"*";
28480 					MAP530	PRINT TAB(-1,1);"#########################################################"
28500 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
28520 					MAP540	RETURN
28540 					MAP541	REM
28560 =79
28580 					MAP514	IF H>195 THEN 525
28600 					MAP515	IF HSC=2.5 THEN 525
28620 					MAP516	IF F=0 THEN 525
28640 					MAP522	HSC=2.5
28660 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
28680 					MAP524	GOTO 511
28700 					MAP525	IF F<>0 OR OFS<>0 THEN 529
28720 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
28740 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
28760 					MAP528	OFS=1
28780 					MAP529	PRINT : PRINT "I";TAB(J);"*";
28800 					MAP530	PRINT TAB(-1,1);"#########################################################"
28820 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
28840 					MAP540	RETURN
28860 					MAP541	REM
28880 =79
28900 					MAP514	IF H>195 THEN 525
28920 					MAP515	IF HSC=2.5 THEN 525
28940 					MAP516	IF F=0 THEN 525
28960 					MAP522	HSC=2.5
28980 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
29000 					MAP524	GOTO 511
29020 					MAP525	IF F<>0 OR OFS<>0 THEN 529
29040 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
29060 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
29080 					MAP528	OFS=1
29100 					MAP529	PRINT : PRINT "I";TAB(J);"*";
29120 					MAP530	PRINT TAB(-1,1);"#########################################################"
29140 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
29160 					MAP540	RETURN
29180 					MAP541	REM
29200 =79
29220 					MAP514	IF H>195 THEN 525
29240 					MAP515	IF HSC=2.5 THEN 525
29260 					MAP516	IF F=0 THEN 525
29280 					MAP522	HSC=2.5
29300 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
29320 					MAP524	GOTO 511
29340 					MAP525	IF F<>0 OR OFS<>0 THEN 529
29360 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
29380 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
29400 					MAP528	OFS=1
29420 					MAP529	PRINT : PRINT "I";TAB(J);"*";
29440 					MAP530	PRINT TAB(-1,1);"#########################################################"
29460 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
29480 					MAP540	RETURN
29500 					MAP541	REM
29520 =79
29540 					MAP514	IF H>195 THEN 525
29560 					MAP515	IF HSC=2.5 THEN 525
29580 					MAP516	IF F=0 THEN 525
29600 					MAP522	HSC=2.5
29620 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
29640 					MAP524	GOTO 511
29660 					MAP525	IF F<>0 OR OFS<>0 THEN 529
29680 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
29700 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
29720 					MAP528	OFS=1
29740 					MAP529	PRINT : PRINT "I";TAB(J);"*";
29760 					MAP530	PRINT TAB(-1,1);"#########################################################"
29780 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
29800 					MAP540	RETURN
29820 					MAP541	REM
29840 =79
29860 					MAP514	IF H>195 THEN 525
29880 					MAP515	IF HSC=2.5 THEN 525
29900 					MAP516	IF F=0 THEN 525
29920 					MAP522	HSC=2.5
29940 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
29960 					MAP524	GOTO 511
29980 					MAP525	IF F<>0 OR OFS<>0 THEN 529
30000 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
30020 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
30040 					MAP528	OFS=1
30060 					MAP529	PRINT : PRINT "I";TAB(J);"*";
30080 					MAP530	PRINT TAB(-1,1);"#########################################################"
30100 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
30120 					MAP540	RETURN
30140 					MAP541	REM
30160 =79
30180 					MAP514	IF H>195 THEN 525
30200 					MAP515	IF HSC=2.5 THEN 525
30220 					MAP516	IF F=0 THEN 525
30240 					MAP522	HSC=2.5
30260 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
30280 					MAP524	GOTO 511
30300 					MAP525	IF F<>0 OR OFS<>0 THEN 529
30320 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
30340 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
30360 					MAP528	OFS=1
30380 					MAP529	PRINT : PRINT "I";TAB(J);"*";
30400 					MAP530	PRINT TAB(-1,1);"#########################################################"
30420 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
30440 					MAP540	RETURN
30460 					MAP541	REM
30480 =79
30500 					MAP514	IF H>195 THEN 525
30520 					MAP515	IF HSC=2.5 THEN 525
30540 					MAP516	IF F=0 THEN 525
30560 					MAP522	HSC=2.5
30580 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
30600 					MAP524	GOTO 511
30620 					MAP525	IF F<>0 OR OFS<>0 THEN 529
30640 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
30660 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
30680 					MAP528	OFS=1
30700 					MAP529	PRINT : PRINT "I";TAB(J);"*";
30720 					MAP530	PRINT TAB(-1,1);"#########################################################"
30740 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
30760 					MAP540	RETURN
30780 					MAP541	REM
30800 =79
30820 					MAP514	IF H>195 THEN 525
30840 					MAP515	IF HSC=2.5 THEN 525
30860 					MAP516	IF F=0 THEN 525
30880 					MAP522	HSC=2.5
30900 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
30920 					MAP524	GOTO 511
30940 					MAP525	IF F<>0 OR OFS<>0 THEN 529
30960 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
30980 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
31000 					MAP528	OFS=1
31020 					MAP529	PRINT : PRINT "I";TAB(J);"*";
31040 					MAP530	PRINT TAB(-1,1);"#########################################################"
31060 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
31080 					MAP540	RETURN
31100 					MAP541	REM
31120 =79
31140 					MAP514	IF H>195 THEN 525
31160 					MAP515	IF HSC=2.5 THEN 525
31180 					MAP516	IF F=0 THEN 525
31200 					MAP522	HSC=2.5
31220 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
31240 					MAP524	GOTO 511
31260 					MAP525	IF F<>0 OR OFS<>0 THEN 529
31280 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
31300 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
31320 					MAP528	OFS=1
31340 					MAP529	PRINT : PRINT "I";TAB(J);"*";
31360 					MAP530	PRINT TAB(-1,1);"#########################################################"
31380 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
31400 					MAP540	RETURN
31420 					MAP541	REM
31440 =79
31460 					MAP514	IF H>195 THEN 525
31480 					MAP515	IF HSC=2.5 THEN 525
31500 					MAP516	IF F=0 THEN 525
31520 					MAP522	HSC=2.5
31540 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
31560 					MAP524	GOTO 511
31580 					MAP525	IF F<>0 OR OFS<>0 THEN 529
31600 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
31620 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
31640 					MAP528	OFS=1
31660 					MAP529	PRINT : PRINT "I";TAB(J);"*";
31680 					MAP530	PRINT TAB(-1,1);"#########################################################"
31700 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
31720 					MAP540	RETURN
31740 					MAP541	REM
31760 =79
31780 					MAP514	IF H>195 THEN 525
31800 					MAP515	IF HSC=2.5 THEN 525
31820 					MAP516	IF F=0 THEN 525
31840 					MAP522	HSC=2.5
31860 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
31880 					MAP524	GOTO 511
31900 					MAP525	IF F<>0 OR OFS<>0 THEN 529
31920 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
31940 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
31960 					MAP528	OFS=1
31980 					MAP529	PRINT : PRINT "I";TAB(J);"*";
32000 					MAP530	PRINT TAB(-1,1);"#########################################################"
32020 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
32040 					MAP540	RETURN
32060 					MAP541	REM
32080 =79
32100 					MAP514	IF H>195 THEN 525
32120 					MAP515	IF HSC=2.5 THEN 525
32140 					MAP516	IF F=0 THEN 525
32160 					MAP522	HSC=2.5
32180 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
32200 					MAP524	GOTO 511
32220 					MAP525	IF F<>0 OR OFS<>0 THEN 529
32240 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
32260 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
32280 					MAP528	OFS=1
32300 					MAP529	PRINT : PRINT "I";TAB(J);"*";
32320 					MAP530	PRINT TAB(-1,1);"#########################################################"
32340 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
32360 					MAP540	RETURN
32380 					MAP541	REM
32400 =79
32420 					MAP514	IF H>195 THEN 525
32440 					MAP515	IF HSC=2.5 THEN 525
32460 					MAP516	IF F=0 THEN 525
32480 					MAP522	HSC=2.5
32500 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
32520 					MAP524	GOTO 511
32540 					MAP525	IF F<>0 OR OFS<>0 THEN 529
32560 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
32580 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
32600 					MAP528	OFS=1
32620 					MAP529	PRINT : PRINT "I";TAB(J);"*";
32640 					MAP530	PRINT TAB(-1,1);"#########################################################"
32660 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
32680 					MAP540	RETURN
32700 					MAP541	REM
32720 =79
32740 					MAP514	IF H>195 THEN 525
32760 					MAP515	IF HSC=2.5 THEN 525
32780 					MAP516	IF F=0 THEN 525
32800 					MAP522	HSC=2.5
32820 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
32840 					MAP524	GOTO 511
32860 					MAP525	IF F<>0 OR OFS<>0 THEN 529
32880 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
32900 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
32920 					MAP528	OFS=1
32940 					MAP529	PRINT : PRINT "I";TAB(J);"*";
32960 					MAP530	PRINT TAB(-1,1);"#########################################################"
32980 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
33000 					MAP540	RETURN
33020 					MAP541	REM
33040 =79
33060 					MAP514	IF H>195 THEN 525
33080 					MAP515	IF HSC=2.5 THEN 525
33100 					MAP516	IF F=0 THEN 525
33120 					MAP522	HSC=2.5
33140 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
33160 					MAP524	GOTO 511
33180 					MAP525	IF F<>0 OR OFS<>0 THEN 529
33200 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
33220 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
33240 					MAP528	OFS=1
33260 					MAP529	PRINT : PRINT "I";TAB(J);"*";
33280 					MAP530	PRINT TAB(-1,1);"#########################################################"
33300 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
33320 					MAP540	RETURN
33340 					MAP541	REM
33360 =79
33380 					MAP514	IF H>195 THEN 525
33400 					MAP515	IF HSC=2.5 THEN 525
33420 					MAP516	IF F=0 THEN 525
33440 					MAP522	HSC=2.5
33460 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
33480 					MAP524	GOTO 511
33500 					MAP525	IF F<>0 OR OFS<>0 THEN 529
33520 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
33540 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
33560 					MAP528	OFS=1
33580 					MAP529	PRINT : PRINT "I";TAB(J);"*";
33600 					MAP530	PRINT TAB(-1,1);"#########################################################"
33620 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
33640 					MAP540	RETURN
33660 					MAP541	REM
33680 =79
33700 					MAP514	IF H>195 THEN 525
33720 					MAP515	IF HSC=2.5 THEN 525
33740 					MAP516	IF F=0 THEN 525
33760 					MAP522	HSC=2.5
33780 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
33800 					MAP524	GOTO 511
33820 					MAP525	IF F<>0 OR OFS<>0 THEN 529
33840 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
33860 					MAP527	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
33880 					MAP528	OFS=1
33900 					MAP529	PRINT : PRINT "I";TAB(J);"*";
33920 					MAP530	PRINT TAB(-1,1);"#########################################################"
33940 					MAP535	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
33960 					MAP540	RETURN
33980 					MAP541	REM
34000 =79
34020 					MAP514	IF H>195 THEN 525
34040 					MAP515	IF HSC=2.5 THEN 525
34060 					MAP516	IF F=0 THEN 525
34080 					MAP522	HSC=2.5
34100 					MAP523	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
34120 					MAP524	GOTO 511
34140 					MAP525	IF F<>0 OR OFS<>0 THEN 529
34160 					MAP526	IF J>20 THEN PRINT "*** OUT OF FUEL";
34180 					MAP527	IF J<20 THEN 
.