Listing of file='DAYFLT.BAS;01' on disk='vmedia/chip_1-sector.ccvf'
70 REM FLIGHT-409 REVISED AND COVERTED TO COMPUCOLOR II BY
75 REM RUSSELL B. HOLLEY, P.O. BOX 3437, BAYTOWN, TEX. 8/5/80
77 REM FROM A LISTING BY THOMAS CARBONE APPEARING IN AUG.1980
78 REM ISSUE OF INTERFACE AGE
79 REM MAIN PROGRAM
90 PLOT 12,15,29
96 DEF FN D(VX)= INT (12* RND (1)+ VX)
100 PLOT 27,4:PRINT "LOAD B747.PIC;01":PLOT 27,27
110 C= 0:L= 0:K3= 1:B= 4:T= 40.69:N= 73.39:K= 75:D= 95:G= 1915:R= 11450:U= 100000
112 CO= 0
115 Y= PEEK (33209):IF Y= 0THEN 115
116 Y= RND (- Y)
120 H9= INT (RND (1)* 10+ 5):W9= INT (RND (1)* 180+ 180):POKE 33209,0
130 Z1= 2:X= 6:Y= 21:Z2= T:GOSUB 210:X= 10:Z2= 100* (T- INT (T)):GOSUB 210
140 X= 6:Y= 20:Z2= N:GOSUB 210:X= 10:Z2= 100* (N- INT (N)):GOSUB 210
150 X= 6:Y= 23:Z2= H:GOSUB 210:X= 0:Y= 8:Z2= P:GOSUB 210
160 Z1= 3:X= 14:Y= 12:Z2= S:GOSUB 210:X= 7:Y= 14:Z2= D:PLOT 6,1:GOSUB 210
170 Z1= 4:X= 51:Y= 14:Z2= V:GOSUB 210:PLOT 6,2:X= 6:Y= 25:Z2= G:GOSUB 210
180 X= 7:Y= 16:Z1= 6:Z2= U:GOSUB 210:X= 50:Y= 12:Z1= 5:Z2= L:GOSUB 210
190 X= 23:Y= 14:Z1= 2:Z2= K:GOSUB 210
200 GOTO 290
210 PLOT 3,X,Y,32,32,32,32,32,32,26,26,26,26,26,26:IF Z1= 0THEN RETURN
220 IF Z2< 0THEN PRINT "-";:Z2= - Z2:GOTO 240
230 PRINT " ";
240 K$= LEFT$ ("00000",Z1- (LEN (STR$ (INT (Z2)))- 2))
250 Z$= MID$ (STR$ (INT (Z2)),2,LEN (STR$ (INT (Z2)))- 1)
260 NC= LEN (Z$):IF NC< Z1THEN 280
270 PRINT Z$:RETURN
280 Z$= LEFT$ (K$,1)+ MID$ (STR$ (INT (Z2)),2,LEN (STR$ (INT (Z2)))- 1):PRINT Z$:RETURN
290 PLOT 3,58,22,6,67:PRINT "`":PLOT 3,0,0,6,0
320 POKE 33278,0:FOR CT= 1TO 500:CC= PEEK (33278)
330 IF CC= 0THEN NEXT CT
340 PLOT 3,58,22,6,0:PRINT "*":PLOT 6,2
365 IF CC= 83THEN C1= 67:PLOT 6,3:GOTO 900
366 C1= CC
370 IF C1= 45THEN S1= 1:GOTO 900
380 IF C1= 8THEN S1= 0:GOTO 900
390 IF C1= 28THEN S1= 2:GOTO 900
400 IF C1= 26THEN S1= 4:GOTO 900
410 IF C1= 25THEN S1= 3:GOTO 900
420 IF C1< > 32AND C1< > 90THEN 470
430 X= 39:Y= 21+ B:Z1= 0:GOSUB 210:PLOT 6,4:PRINT "+":B= B+ 1:IF C1= 90THEN B= B- 2
440 IF B> 4THEN B= 4
450 IF B< 0THEN B= 0
460 Y= 21+ B:Z1= 0:GOSUB 210:PLOT 6,1:PRINT "s":GOTO 900
470 IF C1< > 77AND C1< > 78THEN 520
480 PLOT 3,25,12:IF C1= 77THEN A1= 0:PLOT 6,63:PRINT "XXXXXXXXXX":PLOT 6,2:GOTO 900
490 A1= 1:PLOT 6,89:PRINT "AUTO-PILOT":PLOT 6,2:GOTO 900
520 IF C1< > 65AND C1< > 68THEN 550
530 Z1= 0:X= 17:Y= 26:GOSUB 210:IF C1= 65THEN C= 1:PLOT 6,57:PRINT " ON ":PLOT 6,2:GOTO 900
540 C= 0:PLOT 6,56:PRINT " OFF":GOTO 900
550 IF C1< > 71AND C1< > 72THEN 590
560 LG= C1- 71
570 Z1= 0:X= 0:Y= 2:GOSUB 210:IF C1= 71THEN PLOT 6,2:PRINT "DOWN d d d":GOTO 900
580 PLOT 6,1:PRINT "UP d d d":GOTO 900
590 IF C1< > 67THEN 610
600 PLOT 3,41,22,6,65:PRINT "tu
vw":PLOT 6,2:E= 1:GOTO 900
610 IF C1< > 88THEN 630
620 K3= 1:PLOT 3,41,22,6,0:PRINT "XX
XX":PLOT 6,2:E= 0:GOTO 900
630 IF C1< > 70THEN 650
640 PLOT 3,56,8,6,2:PRINT "ON d":W= 1:GOTO 900
650 IF C1< > 69THEN 670
660 PLOT 3,56,8,6,1:PRINT "OFF d":W= 0:GOTO 900
670 IF C1< > 89THEN 790
680 GOSUB 6000:PLOT 6,65:PRINT "INPUT FREQUENCY READY";:PLOT 6,6
685 PRINT " SET TUNER(PRESS T): ";:INPUT " ";G$
690 IF G$< > "T"THEN 680
700 REM
730 GOSUB 6000:PLOT 6,65:PRINT TAB( 10);"ENTER REQUIRED RADIO FREQUENCY ";:PLOT 6,6:INPUT " ";R
740 X= 55:Y= 2:Z2= R:Z1= 5:GOSUB 210:GOTO 900
790 IF C1= 55THEN E1= - 1:GOTO 900
800 IF C1= 56THEN E1= 1:GOTO 900
810 IF C1< > 57THEN 830
820 FOR Z= 1TO 4:E(Z)= - E(Z):NEXT Z:O9= E(1)+ E(2)+ E(3)+ E(4):GOTO 900
830 FOR Z= 1TO 4:IF C1< > 48+ ZAND C1< > 53THEN 890
840 PLOT 3,43+ Z* 2,25- ABS (E(Z)),6,4:PRINT "+"
850 IF E(Z)= 0THEN E(Z)= E(Z)+ E1:GOTO 870
860 E(Z)= SGN (E(Z))* ABS (E(Z))+ E1:IF ABS (E(Z))> 4THEN E(Z)= 4* SGN (E(Z))
870 IF E(Z)< 0THEN E(Z)= 0
880 PLOT 3,43+ Z* 2,25- ABS (E(Z)),6,1:PRINT "q"
890 NEXT Z:O9= E(1)+ E(2)+ E(3)+ E(4)
900 T1= PEEK (33209)* .513726:POKE 33209,0:IF C= 0THEN 915
910 ON R9+ 1GOTO 2570,2590,2610,2630,2650,2670,2690,2709,2730,2750
915 PLOT 6,2:IF V> 7500OR (L= 0AND V< - 750)THEN Z= 0:GOTO 1520
916 IF L< 2000AND LD< > 1AND XX= 1THEN SD= 5:GOTO 926
917 IF L< 8000AND L> 100AND T> 41.69AND T< 42.05AND N< 72.9AND N> 72.5AND V= 0AND SD< > 5THEN SD= 4:XX= 1:GOTO 927
918 IF LD= 1AND T< 41.99AND T> 41.92AND N< 72.78AND N> 72.65THEN 928
921 IF V> - 100AND V< 200AND L> 0THEN SD= 1
922 IF V> = 200THEN SD= 2
923 IF V< - 2000THEN SD= 3
924 IF L> 10000AND V> 300THEN SD= 6:GOTO 927
925 IF L< 10000AND L> 150AND V< - 1500THEN SD= 7:CO= 2
926 IF L< = 0THEN 928
927 IF JK< > SDTHEN GOSUB 7000:PLOT 6,2
928 IF R9= 8AND R7< > 0AND D> 5AND D< 15THEN CO= 0:GOSUB 2540
929 IF R9= 8AND R7= 0AND (D< 42OR D> 48)AND KK= 0THEN GOSUB 2540:KK= 1
930 IF L= 0AND LG= 1THEN Z= 2:GOTO 1520
932 IF L< 500AND R9< 7AND R9> 5THEN Z= 5:GOTO 1520
935 IF LG= 0AND L> 8000THEN GOSUB 6000:PRINT "ON BOARD COMPUTER HAS DETECTED UNSECURED LANDING GEARS.":FK= FK+ 1
936 IF L> 10000AND W= 0THEN PLOT 6,65,3,56,8:PRINT "OFF":PLOT 6,3:FK= FK+ 1
938 IF V> 6000THEN FK= FK+ 1
940 IF E(Q9)> 0AND RND (1)> .85THEN Z= 3:GOTO 1520
945 GOSUB 6060
946 IF S> 0AND FT< > 1THEN GOSUB 2540:FT= 1
950 Z1= 100* (INT (G/ 100)):Z= G- Z1:Z= Z+ T1/ 60::IF Z> = 60THEN Z= Z- 60:Z1= Z1+ 100
960 G= Z1+ Z:U= U- 105* T1/ 60* O9/ 16:IF U< = 0THEN FOR Z= 1TO 4:E(Z)= 0:NEXT Z
970 IF L= 0AND G8= 1AND (T> 41.99OR T< 41.93OR N> 72.77OR N< 72.66)THEN Z= 1:GOTO 1520
980 Z= S- 160:IF Z< 0THEN Z= 0
990 T8= T8+ (P* Z/ 900):IF T8< - 90THEN T8= - 90
1000 T9= T8* .01745:T3= 850000:IF L= 0THEN T3= 1500000
1010 IF E= 1THEN B= 4:K3= 75
1020 A= O9/ 16* T3/ (TAN (T9)+ 1)/ ((200000+ U)* (TAN (P* .01745)+ 1))
1030 IF (S< 180OR O9= 0)AND L> 0THEN T8= T8- 10:A= 32:GOTO 1080
1040 IF A1= 0AND O9/ 2* 125+ (W8* H8* SIN (W3* .01745))< STHEN S= S- (RND (1)* 50):A= 0
1050 IF V> 5000OR T8> 30THEN S= S- (RND (1)* 130)
1060 IF G= 0THEN A= A- .1
1070 IF L= 0THEN A= A- ((K* K3* B)/ 80)
1080 IF A1= 1AND A< > 32THEN A= 0:T8= 0:T9= 0:P= 0
1090 S= A/ 5280* 3600* T1+ S:IF S> 999THEN S= 999
1100 IF S< 0THEN S= 0
1110 Z= S- 40:IF Z< 0THEN Z= 0
1120 IF R9> 2AND R9< 5AND L= 0THEN V9= V9+ (Z* T1/ 3600* 5280):IF V9> 9500THEN Z= 4:GOTO 1520
1130 IF R9= 7AND L= 0THEN V8= V8+ ((S- 40)* T1/ 3600* 5280):IF V8> 9500THEN Z= 4:GOTO 1520
1140 V= S* 88* SIN (T9):IF ABS (V)> 9999THEN V= SGN (V)* 9999
1145 IF V= - 9999THEN FK= FK+ 1
1150 L= V/ 60* T1+ L:IF L< = 0THEN T8= 0:L= 0
1160 IF G8= 0AND L> 0THEN G8= 2
1170 IF G8= 2THEN GOSUB 2520
1180 W8= H9* L/ 3000
1190 IF C1= 8OR C1= 25OR C1= 26OR C1= 28OR C1= 45THEN 1200
1195 GOTO 1270
1200 IF S1= 1THEN P= P+ 5
1210 IF S1= 2THEN P= P- 5
1220 IF S1= 0THEN P= 0:H= 0
1230 IF ABS (P)> 45THEN P= 45* SGN (P)
1240 IF S= 0THEN 1290
1250 IF S1= 3THEN H= H+ (5* (RND (1)+ .5))
1260 IF S1= 4THEN H= H- (5* (RND (1)+ .5))
1270 D= H/ 2* (RND (1)+ .5)+ D:IF D> 360THEN D= D- 360
1280 IF D< 0THEN D= D+ 360
1290 W3= W9+ 180- D:IF W3> 360THEN W3= W3- 360
1300 IF W3< 0THEN W3= W3+ 360
1310 H8= 1:IF (W3> 90AND W3< 180)OR W3> 270THEN H8= - 1
1320 W6= W8* H8* SIN (W3* .01745)+ S:W7= W8* H8* COS (W3* .01745):W5= SGN (W6):W6= ABS (W6)
1330 IF W5= 0THEN W2= 0:GOTO 1350
1340 W2= W5* 57.295* ATN (W7/ W6)
1350 D5= S* T1/ 4800:B5= D+ W2:IF B5> 360THEN B5= B5- 360
1360 IF B5< 0THEN B5= B5+ 360
1370 B5= B5* .01745:N= N- (D5* SIN (B5)/ 51):T= T+ (D5* COS (B5)/ 72):IF C3= 0THEN 1400
1380 K= K- (RND (1)* 20):IF K< 0THEN K= 0
1390 Z1= 2:X= 22:Y= 14:Z2= K:PLOT 6,1:GOSUB 210:GOTO 1410
1400 IF RND (1)< .0005THEN C3= 1
1410 IF RND (1)< .0007THEN 1460
1420 IF L= 0OR U9= 1OR (G8= 1AND L> 100)OR (D< 357AND D> 48)THEN 130
1430 IF D> 3AND D< 42THEN 130
1440 IF T> 41.92AND T< 41.99AND N> 72.66AND N< 72.77THEN GOSUB 2130
1450 PLOT 6,2:GOTO 130
1460 Z= RND (1):X= INT (4* RND (1))+ 1:Q9= X
1470 Z1= 0:IF Z< .25THEN O(X)= 1:Y= 18:GOTO 1510
1480 IF Z< .5THEN H(X)= 1:Y= 20:GOTO 1510
1490 IF Z< .75THEN W(X)= 1:Y= 22:GOTO 1510
1500 F(X)= 1:Y= 24
1510 PLOT 3,X* 2+ 22+ (X- 1),Y:PLOT 6,65:PRINT "`":PLOT 6,7:GOTO 1450
1520 PLOT 6,1:FOR I= 1TO 80:PLOT 2,60,101,242,INT (79* RND (1))+ 20,INT (39* RND (1))+ 84,255:NEXT
1521 FK= FK+ 1
1525 PLOT 3,15,28,14,6,65:PRINT "YOUR AIRCRAFT HAS CRASHED":FOR I= 1TO 2000:NEXT
1530 PLOT 11,28,6,6:PRINT TAB( 10);"IN 30 SEC. COCKPIT WILL BE ERASED!":PLOT 6,1
1531 PLOT 3,0,25:PRINT "PILOT ERRORS: ";FK
1540 FILE "R",1,"VCRASH",2:PUT 1,1;Z,Q9,FK,V:FILE "C",1
1545 LOAD "CRASH":RUN
1550 END
1940 GOSUB 6000
1950 PLOT 12,14,3,10,14:PRINT "THANK YOU FOR FLYING TRANS-WORLD AIRLINES.":END
1960 REM
1970 R8= RND (1):IF R8< .1THEN 1970
1980 R8= INT (R8* 100000):GOSUB 6000:PRINT TAB( 10);"PLEASE TUNE TO FEQUENCY TO ";:PLOT 6,57
1985 PRINT " ";R8;" ";:PLOT 6,5:PRINT " MHZ.":PRINT TAB( 15);"PRESS 'Y' TO SET FREQUENCY."
2000 R9= 1:GOTO 915
2010 GOSUB 6000:PRINT "TRANS WORLD 409, PROCEED TO RUNWAY";
2030 R7= INT (RND (1)* 3):IF R7= 0THEN PRINT " 00":GOTO 2050
2040 PRINT INT (R7* 45)
2050 PLOT 6,6:PRINT "WEATHER REP: GROUND WINDS: ";W9+ INT ((RND (1)* 20)- 10);" DEGREES AT ";H9;" MPH."
2080 PRINT "SKY CONDITIONS: 10,000 FT. HEAVY CLOUDS: 20,000 CLEAR"
2081 PRINT "UPPER WINDS: 30,000 FT. ";W9;" DEGREES AT ";H9+ 11;" MPH.";:PLOT 8:PRINT :R9= 2:GOTO 915
2110 GOSUB 6000:PRINT "TRANS WORLD 409, HOLD FOR CLEARANCE.":GOSUB 2130
2120 GOTO 2170
2130 IF G8= 1AND W= 0THEN RETURN
2131 CO= 0
2135 GOSUB 2540:IF LT= 1THEN LT= 0:LD= 1:GOTO 2140
2136 LT= 65
2140 PLOT 3,18,10,6,7:FOR I= 1TO 10:PRINT " ~";:PLOT 28:NEXT
2142 PLOT 3,40,10:FOR I= 1TO 10:PRINT "|";:PLOT 28,26,26:NEXT
2143 PLOT 3,29,10,6,3:FOR I= 1TO 10:PRINT "!";:PLOT 28,26:NEXT
2144 PLOT 14,29,3,17,8,6,LT:PRINT " p":PLOT 3,41,8,6,LT:PRINT "p":PLOT 15
2145 PLOT 6,2:LT= 1
2160 IF G8= 1THEN U9= 1:RETURN
2170 R9= 3:GOTO 915
2190 GOSUB 6000:PRINT "TRANS WORLD 409, YOU WILL PROCEED ON FLIGHT PATTERN";
2195 PLOT 6,3
2210 IF R7= 0THEN PRINT " B"
2220 IF R7= 1THEN PRINT " A"
2230 IF R7= 2THEN PRINT " C"
2240 PLOT 6,5:PRINT "YOU ARE ";:PLOT 6,1:PRINT "CLEARED";:PLOT 6,5:PRINT " FOR TAKEOFF! LEVEL AT ";
2242 CL= (INT (5* RND (1))+ 15)* 1000:PLOT 6,7:PRINT CL;:PLOT 6,5:PRINT " FEET."
2245 PLOT 14,3,17,8,6,0:PRINT " ":PLOT 3,41,8:PRINT "X":PLOT 6,2,15
2250 R9= 4:GOTO 915
2260 GOSUB 6000
2270 PRINT "TRANS WORLD 409, THIS IS JFK FLIGHT CONTROL."
2280 PRINT "YOU ARE NOW LEAVING OUR RADAR SCAN.":R9= 5:GOTO 915
2290 GOSUB 6000:IF L> CL- 200AND L< CL+ 200THEN 2310
2292 PRINT "YOU HAVE FAILED TO LEVEL AT PROPER ALTITUDE."
2295 FK= FK+ 1
2296 PRINT "VIOLATION WILL BE REPORTED TO F.A.A.":FOR I= 1TO 5000:NEXT :GOSUB 6000
2310 PRINT "TRANS WORLD 409, YOU ARE NOW ENTERING BRADLEY RADAR FIELD."
2320 PRINT "PROCEED TO ";:PL= INT (RND (1)* 5+ 4)* 1000:PRINT PL;" FEET."
2330 R9= 6:GOTO 915
2340 GOSUB 6000
2345 IF L< (PL- 200)OR L> (PL+ 200)THEN FK= FK+ 1:PLOT 6,1:PRINT "ALTITUDE VIOLATION!":PLOT 6,5
2350 PRINT "TRANS WORLD 409, YOU ARE CLEARED INTO RUNWAY ";
2360 IF R7= 0THEN PRINT "45"
2370 IF R7< > 0THEN PRINT "00"
2380 PRINT "BEGIN DESCENT AT THIS TIME.":R9= 7:GOTO 915
2390 GOSUB 6000
2400 PRINT "TRANS WORLD 409, TURN TO 90 AND PROCEED TO GATE 1A."
2405 IF R7= 0AND (D< 42OR D> 48)THEN FK= FK+ 1:GOSUB 8300:GOTO 2410
2406 IF D> 3AND D< 357THEN FK= FK+ 1:GOSUB 8300
2410 G8= 0:R9= 8:IF LT= 1THEN PLOT 6,0:GOSUB 8010:GOSUB 7720
2415 GOTO 915
2420 PLOT 3,28,3,6,65:PRINT "*";:PLOT 6,4:PRINT "eeeeeeeee";:PLOT 6,66:PRINT "*"
2425 PLOT 6,4
2426 PLOT 3,29,6:PRINT "_________":PLOT 6,5:FOR I= 7TO 9:PLOT 3,29,I:PRINT "////////":NEXT :PLOT 3,30,5,6,3:PRINT "GATE 1A"
2427 PLOT 3,18,10,6,7:PRINT "c";:PLOT 6,65:PRINT ".";:PLOT 6,5:PRINT "//////////////////////"
2470 R9= 9:GOTO 915
2480 REM
2490 GOSUB 6000
2495 PRINT "WELCOME TO HARTFORD. YOU HAVE SUCESSFULLY LANDED YOUR CRAFT."
2500 PLOT 3,0,25:PRINT "PILOT ERRORS: ";FK
2505 FOR I= 1TO 10000:NEXT :GOTO 1950
2510 RETURN
2520 IF G8= 1AND W= 0THEN RETURN
2530 IF G8= 2THEN G8= 1
2531 CO= 0
2540 PLOT 6,CO:FOR I= 123TO 84STEP - 1:PLOT 2,250,33+ (I- 123)/ 2,I,90- (I- 123)/ 2,255:NEXT :PLOT 6,2
2550 IF CO= 2THEN FOR I= 1TO 20:PLOT 3,FN D(20),INT (4* RND (1)+ 7),6,19:PRINT "``":NEXT :PLOT 6,2
2560 RETURN
2570 IF G8< > 0THEN 915
2580 GOTO 1960
2590 IF R< > R8THEN 915
2595 PLOT 3,20,3,6,66:PRINT "* *":PLOT 6,2
2600 GOTO 2010
2610 IF D> R7* 45+ 3OR D< R7* 45- 3THEN 915
2620 GOTO 2110
2630 IF S< > 0OR RND (1)< .75THEN 915
2640 GOTO 2190
2650 IF T< 41.2AND N> 72.85THEN 915
2660 GOTO 2260
2670 IF T< 41.35OR N> 73.25THEN 915
2680 GOTO 2290
2690 IF T< 41.70OR N> 72.93THEN 915
2700 GOTO 2340
2709 IF L= 0AND V< - 750THEN Z= 0:GOTO 1520
2710 IF L< > 0OR S< > 0THEN 915
2720 GOTO 2390
2730 K9= S* T1/ 3600+ K9:IF K9< .5THEN 915
2740 GOSUB 2540:GOTO 2420
2750 IF S< > 0OR B< > 4THEN 950
2760 GOTO 2480
6000 FOR CT= 1TO 3
6010 PLOT 3,2,27+ CT,11:NEXT CT:PLOT 3,2,28
6030 PLOT 6,65:PRINT "d";:PLOT 6,3:PRINT " INCOMING TOWER COMMUNICATION"
6040 FOR I= 1TO 1000:NEXT :PLOT 3,0,28,11,3,2,28,6,5:RETURN
6060 IF T< 40.60OR N> 73.5OR N< 72.5OR T> 42.1THEN 6170
6065 RETURN
6170 GOSUB 6000:PRINT "YOU ARE IN COURSE VIOLATION: F.A.A HAS BEEN NOTIFIED.":FK= FK+ 1
6175 RETURN
7000 REM
7005 JK= SD
7010 ON SDGOTO 7015,7037,7045,7070,7060,7038,7039
7015 GOSUB 8000:IF L< 10000THEN CO= 2:GOSUB 8100
7020 REM
7025 IF L> = 10000THEN CO= 7:GOSUB 8100:GOSUB 8000:GOSUB 8500:GOTO 7035
7026 GOSUB 8200
7035 RETURN
7037 IF L< 10000THEN CO= 6:GOTO 7039
7038 CO= 4
7039 GOSUB 2540:RETURN
7045 REM
7050 CO= 2:IF L> = 10000THEN CO= 7
7051 GOSUB 2540:RETURN
7052 RETURN
7055 REM
7060 GOSUB 8000:GOSUB 8200:PLOT 3,21,10,6,28:FOR I= 1TO 4:PRINT "/'/";:PLOT 28,26,26:NEXT
7065 PLOT 3,26,8:PRINT "jjjjjjjjl--`"
7066 PLOT 3,22,8,6,61:PRINT "`":PLOT 6,2
7067 RETURN
7070 GOSUB 8000:GOSUB 8200:PLOT 3,22,9,6,28:PRINT " ~ ";:PLOT 28,26:PRINT " ' ~______ "
7100 SD= 1:RETURN
7720 PLOT 6,60,3,18,5:PRINT "```````````````````````"
7730 PLOT 6,3,3,20,3:PRINT "--> GATE 1A ------->"
7740 PLOT 3,18,6:PRINT "/\/\/\/\/\/\/\/\/\/\"
7750 PLOT 3,16,5,6,65:PRINT "p"
7755 PLOT 3,25,1:PRINT "p p p":PLOT 6,2
7760 RETURN
8000 PLOT 6,4
8010 FOR I= 123TO 101STEP - 1
8020 PLOT 2,250,33+ (I- 123)/ 2,I,90- (I- 123)/ 2,255:NEXT
8030 RETURN
8100 PLOT 6,CO
8110 FOR I= 101TO 84STEP - 1
8120 PLOT 2,250,33+ (I- 120)/ 2,I,90- (I- 123)/ 2,255:NEXT
8125 RETURN
8200 PLOT 3,FN D(20),2,6,39:PRINT "vutwvwuuw";:PLOT 10:PRINT " tvuw"
8210 IF RND (1)< .6THEN PLOT 3,FN D(30),4:PRINT "vu vuw"
8211 PLOT 6,2:RETURN
8300 PLOT 3,0,30,6,1:PRINT "YOU MISSED PROPER RUNWAY! BUT GRASS IS SOLID":RETURN
8500 PLOT 6,39,3,10,7:FOR I= 1TO 20:PRINT "tu";:NEXT :RETURN