5 SCREEN 0
  COLOR 0, 7

10 ann% = 19584
11 lev% = 0
 usd& = 10200
 sc& = 10200
 inf = 1
 infb = 1

20 CLS
 LOCATE 3, 1
 PRINT "           =================================="
 PRINT "           =                                ="
 PRINT "           =      Soviet Air Transport      ="
 PRINT "           =                                ="
 PRINT "           =================================="

 LOCATE 10, 1

 PRINT "    This game is an improved version of Fukuoka Wings"
 PRINT "    which was created by same person about eight months"
 PRINT "    earlier. "

 LOCATE 14, 1

 PRINT "    Both games are loosely based on early Commodore 64"
 PRINT "    Airline Business Simulator 'High Flyer' (1983). You"
 PRINT "    can watch a sample of that game from YouTube."

 LOCATE 19, 1

 PRINT "    Pasi Toivonen, Mantta-Vilppula, Finland, Nov. 2024."
 LOCATE 19, 21
 PRINT CHR$(132)
 LOCATE 19, 25
 PRINT CHR$(132)

 LOCATE 21, 1
 PRINT "    ---------------------------------------------------"

 LOCATE 23, 1
 PRINT "    Press SPACE (or right SHIFT for example)."
 SLEEP 0

 GOTO 30

30 CLS
 PRINT CHR$(28)
 PRINT "   Give level."
 PRINT CHR$(28)
 PRINT "   1 - Easy.    (Yearly inflation:  2.5 %)"
 PRINT "   2 - Medium.  (Yearly inflation:  3.5 %)"
 PRINT "   3 - Hard.    (Yearly inflation:  4.0 %)"

 PRINT CHR$(28)
 PRINT CHR$(28)

32 INPUT "   Type '1' to '3' "; a$

 IF a$ = "1" THEN
 diff% = 1
 GOTO 40
 END IF

 IF a$ = "2" THEN
 diff% = 2
 GOTO 40
 END IF

 IF a$ = "3" THEN
 diff% = 3
 GOTO 40

 ELSE
 PRINT CHR$(28)
 PRINT "   Out of range."
 SLEEP 1
 GOTO 30
 END IF

40 PRINT CHR$(28)
 PRINT CHR$(28)
 INPUT "   Do you want to jump to the year 2030 (y/n) "; a$

45 IF a$ = "y" THEN
 GOTO 60
 END IF

 IF a$ = "n" THEN
 GOTO 71003

 ELSE
 PRINT CHR$(28)
 PRINT "   Out of range."
 SLEEP 1
 GOTO 45
 END IF

60 CLS
 kk% = 1
 jump% = 1

61 PRINT "  Year: "; ann% / 10; "  Your money: "; usd&; "  Inflation: "; infb

70 IF diff% = 1 THEN
 inf = inf + (inf / 100)
 infa% = inf * 100
 infb = infa% / 100
 END IF

71 IF diff% = 2 THEN
 inf = inf + (inf / 71)
 infa% = inf * 100
 infb = infa% / 100
 END IF

72 IF diff% = 3 THEN
 inf = inf + (inf / 65)
 infa% = inf * 100
 infb = infa% / 100
 END IF

73 rr% = rr% + 1
 tt& = tt& + rr%
 usd& = usd& + (usd& / 100)
 sc& = usd& + tt&
 ann% = ann% + 4

74 kk% = kk% + 1

 IF kk% = 180 THEN
 PRINT CHR$(28)
 PRINT "   Press SPACE."
 SLEEP 0
 GOTO 71003

 ELSE
 GOTO 61
 END IF

90 IF usd& > 5000 THEN
 GOTO 100

 ELSE
 PRINT "  You must have 5000k in the Bank."
 SLEEP 1
 GOTO 71003
 END IF

95 IF lev% = 26 THEN
 PRINT CHR$(28)
 PRINT "   You have already 26 planes."
 SLEEP 1
 GOTO 71003
 END IF

100 CLS
101 PRINT CHR$(28)
110 PRINT "      Level:  "; lev%; "     Year:  "; (ann% / 10)
112 PRINT CHR$(28)
114 PRINT "      Money in the Bank:  "; usd&; "     Inflation:  "; infb
116 PRINT CHR$(28)
118 PRINT "      Minsk - (Destination) : "

130 PRINT "      ---------------------------------------------------------------"
132 PRINT CHR$(28)
 PRINT "      A - Moscow           (676 km)         N - Beijing     (6465 km)"
 PRINT "      B - St. Petersburg   (671 km)         O - Hanoi       (7374 km)"
 PRINT "      C - Volgograd       (1258 km)         P - Pyongjang   (7322 km)"
 PRINT "      D - Kazan           (1390 km)         Q - Boston      (6821 km)"
 PRINT "      E - Samara          (1485 km)         R - New Delhi   (4868 km)"
 PRINT "      F - Jekaterinburg   (2092 km)         S - Sydney     (15140 km)"
 PRINT "      G - Novosibirsk     (3312 km)         T - Tokyo       (8143 km)"
 PRINT "      H - Omsk            (2858 km)         U - Helsinki     (731 km)"
 PRINT "      I - Irkutsk         (4739 km)         V - London      (1889 km)"
 PRINT "      J - Jakutsk         (5454 km)         W - Istanbul    (1439 km)"
 PRINT "      K - Verhojansk      (5196 km)         X - Dubai       (3926 km)"
 PRINT "      L - Vladivostok     (7063 km)         Y - Budapest     (930 km)"
 PRINT "      M - Montreal        (6697 km)         Z - Rome        (1736 km)"
 PRINT "      ---------------------------------------------------------------"

160 IF a% = 1 THEN
 LOCATE 9, 4
 PRINT "+"
 END IF

 IF b% = 1 THEN
 LOCATE 10, 4
 PRINT "+"
 END IF

 IF c% = 1 THEN
 LOCATE 11, 4
 PRINT "+"
 END IF

 IF d% = 1 THEN
 LOCATE 12, 4
 PRINT "+"
 END IF

 IF e% = 1 THEN
 LOCATE 13, 4
 PRINT "+"
 END IF

 IF f% = 1 THEN
 LOCATE 14, 4
 PRINT "+"
 END IF

 IF g% = 1 THEN
 LOCATE 15, 4
 PRINT "+"
 END IF

 IF h% = 1 THEN
 LOCATE 16, 4
 PRINT "+"
 END IF

 IF i% = 1 THEN
 LOCATE 17, 4
 PRINT "+"
 END IF

 IF j% = 1 THEN
 LOCATE 18, 4
 PRINT "+"
 END IF

 IF k% = 1 THEN
 LOCATE 19, 4
 PRINT "+"
 END IF

 IF l% = 1 THEN
 LOCATE 20, 4
 PRINT "+"
 END IF

 IF m% = 1 THEN
 LOCATE 21, 4
 PRINT "+"
 END IF

 IF n% = 1 THEN
 LOCATE 9, 42
 PRINT "+"
 END IF

 IF o% = 1 THEN
 LOCATE 10, 42
 PRINT "+"
 END IF

 IF p% = 1 THEN
 LOCATE 11, 42
 PRINT "+"
 END IF

 IF q% = 1 THEN
 LOCATE 12, 42
 PRINT "+"
 END IF

 IF r% = 1 THEN
 LOCATE 13, 42
 PRINT "+"
 END IF

 IF s% = 1 THEN
 LOCATE 14, 42
 PRINT "+"
 END IF

 IF t% = 1 THEN
 LOCATE 15, 42
 PRINT "+"
 END IF

 IF u% = 1 THEN
 LOCATE 16, 42
 PRINT "+"
 END IF

 IF v% = 1 THEN
 LOCATE 17, 42
 PRINT "+"
 END IF

 IF w% = 1 THEN
 LOCATE 18, 42
 PRINT "+"
 END IF

 IF x% = 1 THEN
 LOCATE 19, 42
 PRINT "+"
 END IF

 IF y% = 1 THEN
 LOCATE 20, 42
 PRINT "+"
 END IF

 IF z% = 1 THEN
 LOCATE 21, 42
 PRINT "+"
 END IF

190 LOCATE 24, 1
 INPUT "      Type 'a' to 'z' or '-' (back)  "; a$

200 IF a$ = "a" THEN
 GOTO 300
 END IF

 IF a$ = "b" THEN
 GOTO 301
 END IF

 IF a$ = "c" THEN
 GOTO 302
 END IF

 IF a$ = "d" THEN
 GOTO 303
 END IF

 IF a$ = "e" THEN
 GOTO 304
 END IF

 IF a$ = "f" THEN
 GOTO 305
 END IF

 IF a$ = "g" THEN
 GOTO 306
 END IF

 IF a$ = "h" THEN
 GOTO 307
 END IF

 IF a$ = "i" THEN
 GOTO 308
 END IF

 IF a$ = "j" THEN
 GOTO 309
 END IF

 IF a$ = "k" THEN
 GOTO 310
 END IF

 IF a$ = "l" THEN
 GOTO 311
 END IF

 IF a$ = "m" THEN
 GOTO 312
 END IF

 IF a$ = "n" THEN
 GOTO 313
 END IF

 IF a$ = "o" THEN
 GOTO 314
 END IF

 IF a$ = "p" THEN
 GOTO 315
 END IF

 IF a$ = "q" THEN
 GOTO 316
 END IF

 IF a$ = "r" THEN
 GOTO 317
 END IF

 IF a$ = "s" THEN
 GOTO 318
 END IF

 IF a$ = "t" THEN
 GOTO 319
 END IF

 IF a$ = "u" THEN
 GOTO 320
 END IF

 IF a$ = "v" THEN
 GOTO 321
 END IF

 IF a$ = "w" THEN
 GOTO 322
 END IF

 IF a$ = "x" THEN
 GOTO 323
 END IF

 IF a$ = "y" THEN
 GOTO 324
 END IF

 IF a$ = "z" THEN
 GOTO 325
 END IF

 IF a$ = "-" THEN
 GOTO 71003

 ELSE
 PRINT "Out of range."
 SLEEP 1
 GOTO 100
 END IF

300 IF a% = 0 THEN
 a% = 1
 di% = 676
 vo% = 300
 GOTO 1000

 ELSE
 GOTO 900
 END IF

301 IF b% = 0 THEN
 b% = 1
 di% = 671
 vo% = 300
 GOTO 1000

 ELSE
 GOTO 900
 END IF

302 IF c% = 0 THEN
 c% = 1
 di% = 1258
 vo% = 300
 GOTO 1000

 ELSE
 GOTO 900
 END IF

303 IF d% = 0 THEN
 d% = 1
 di% = 1390
 vo% = 300
 GOTO 1000

 ELSE
 GOTO 900
 END IF

304 IF e% = 0 THEN
 e% = 1
 di% = 1485
 vo% = 300
 GOTO 1000

 ELSE
 GOTO 900
 END IF

305 IF f% = 0 THEN
 f% = 1
 di% = 2092
 vo% = 300
 GOTO 1000

 ELSE
 GOTO 900
 END IF

306 IF g% = 0 THEN
 g% = 1
 di% = 3392
 vo% = 300
 GOTO 1000

 ELSE
 GOTO 900
 END IF

307 IF h% = 0 THEN
 h% = 1
 di% = 2858
 vo% = 300
 GOTO 1000

 ELSE
 GOTO 900
 END IF

308 IF i% = 0 THEN
 i% = 1
 di% = 4739
 vo% = 300
 GOTO 1000

 ELSE
 GOTO 900
 END IF

309 IF j% = 0 THEN
 j% = 1
 di% = 5454
 vo% = 300
 GOTO 1000

 ELSE
 GOTO 900
 END IF

310 IF k% = 0 THEN
 k% = 1
 di% = 5196
 vo% = 300
 GOTO 1000

 ELSE
 GOTO 900
 END IF

311 IF l% = 0 THEN
 l% = 1
 di% = 7063
 vo% = 300
 GOTO 1000

 ELSE
 GOTO 900
 END IF

312 IF m% = 0 THEN
 m% = 1
 di% = 6697
 vo% = 40
 GOTO 1000

 ELSE
 GOTO 900
 END IF

313 IF n% = 0 THEN
 n% = 1
 di% = 6465
 vo% = 40
 GOTO 1000

 ELSE
 GOTO 900
 END IF

314 IF o% = 0 THEN
 o% = 1
 di% = 7374
 vo% = 40
 GOTO 1000

 ELSE
 GOTO 900
 END IF

315 IF p% = 0 THEN
 p% = 1
 di% = 7322
 vo% = 40
 GOTO 1000

 ELSE
 GOTO 900
 END IF

316 IF q% = 0 THEN
 q% = 1
 di% = 6821
 vo% = 40
 GOTO 1000

 ELSE
 GOTO 900
 END IF

317 IF r% = 0 THEN
 r% = 1
 di% = 4868
 vo% = 40
 GOTO 1000

 ELSE
 GOTO 900
 END IF

318 IF s% = 0 THEN
 s% = 1
 di% = 15140
 vo% = 40
 GOTO 1000

 ELSE
 GOTO 900
 END IF

319 IF t% = 0 THEN
 t% = 1
 di% = 8143
 vo% = 40
 GOTO 1000

 ELSE
 GOTO 900
 END IF

320 IF u% = 0 THEN
 u% = 1
 di% = 731
 vo% = 40
 GOTO 1000

 ELSE
 GOTO 900
 END IF

321 IF v% = 0 THEN
 v% = 1
 di% = 1889
 vo% = 40
 GOTO 1000

 ELSE
 GOTO 900
 END IF

322 IF w% = 0 THEN
 w% = 1
 di% = 1439
 vo% = 40
 GOTO 1000

 ELSE
 GOTO 900
 END IF

323 IF x% = 0 THEN
 x% = 1
 di% = 3926
 vo% = 40
 GOTO 1000

 ELSE
 GOTO 900
 END IF

324 IF y% = 0 THEN
 y% = 1
 di% = 930
 vo% = 40
 GOTO 1000

 ELSE
 GOTO 900
 END IF

325 IF z% = 0 THEN
 z% = 1
 di% = 1736
 vo% = 40
 GOTO 1000

 ELSE
 GOTO 900
 END IF

900 PRINT CHR$(28)
 PRINT "        You already have that route."
 SLEEP 1
 GOTO 100


1000 CLS
 PRINT CHR$(28)
 PRINT "      Level:  "; lev%; "     Year:  "; (ann% / 10)
 PRINT CHR$(28)
 PRINT "      Money in the Bank:  "; usd&

 PRINT CHR$(28)
 PRINT CHR$(28)
 PRINT "     Choose your plane : "
 PRINT "     ---------------------------------------------------------------"
 PRINT CHR$(28)
 PRINT "     A - DC-4        (3000k USD)         K - B-737-200  (16000k USD)"
 PRINT "     B - DC-6        (4000k USD)         L - B-737-900  (26000k USD)"
 PRINT "     C - DC-7        (5000k USD)         M - B-757      (22000k USD)"
 PRINT "     D - B-707       (6000k USD)         N - B-767      (24000k USD)"
 PRINT "     E - DC-8       (10000k USD)         O - A-310      (28000k USD)"
 PRINT "     F - B-727-100  (12000k USD)         P - A-320      (29000k USD)"
 PRINT "     G - B-727-200  (14000k USD)         Q - B-777      (32000k USD)"
 PRINT "     H - DC-10-10   (16000k USD)         R - B-787      (36000k USD)"
 PRINT "     I - DC-10-30   (18000k USD)         S - A-350      (40000k USD)"
 PRINT "     J - L-1101     (20000k USD)         T - A-321-LR   (42000k USD)"
 PRINT CHR$(28)
 PRINT "     ---------------------------------------------------------------"

1010 IF ann% > 20270 THEN
 LOCATE 19, 40
 PRINT CHR$(2)
 END IF

 IF ann% > 20170 THEN
 LOCATE 18, 40
 PRINT CHR$(2)
 END IF

 IF ann% > 20110 THEN
 LOCATE 17, 40
 PRINT CHR$(2)
 END IF

 IF ann% > 19970 THEN
 LOCATE 11, 40
 PRINT CHR$(2)
 END IF

 IF ann% > 19950 THEN
 LOCATE 16, 40
 PRINT CHR$(2)
 END IF

 IF ann% > 19880 THEN
 LOCATE 15, 40
 PRINT CHR$(2)
 END IF

 IF ann% > 19840 THEN
 LOCATE 14, 40
 PRINT CHR$(2)
 END IF

 IF ann% > 19810 THEN
 LOCATE 13, 40
 PRINT CHR$(2)
 LOCATE 12, 40
 PRINT CHR$(2)
 END IF

 IF ann% > 19780 THEN
 LOCATE 19, 4
 PRINT CHR$(2)
 END IF

 IF ann% > 19730 THEN
 LOCATE 18, 4
 PRINT CHR$(2)
 END IF

 IF ann% > 19720 THEN
 LOCATE 16, 4
 PRINT CHR$(2)
 END IF

 IF ann% > 19710 THEN
 LOCATE 17, 4
 PRINT CHR$(2)
 END IF

 IF ann% > 19670 THEN
 LOCATE 10, 40
 PRINT CHR$(2)
 END IF

 IF ann% > 19640 THEN
 LOCATE 15, 4
 PRINT CHR$(2)
 END IF

 IF ann% > 19590 THEN
 LOCATE 14, 4
 PRINT CHR$(2)
 LOCATE 13, 4
 PRINT CHR$(2)
 END IF

 IF ann% > 19580 THEN
 LOCATE 12, 4
 PRINT CHR$(2)
 LOCATE 11, 4
 PRINT CHR$(2)
 LOCATE 10, 4
 PRINT CHR$(2)
 END IF

1050 LOCATE 23, 1
 INPUT "  Type 'a' to 't' "; a$

1061 IF a$ = "a" THEN
 km% = 5300
 yr% = 19520
 GOTO 1100
 END IF

 IF a$ = "b" THEN
 km% = 7600
 yr% = 19560
 GOTO 2100
 END IF

 IF a$ = "c" THEN
 km% = 9070
 yr% = 19570
 GOTO 3100
 END IF

 IF a$ = "d" THEN
 km% = 5600
 yr% = 19590
 GOTO 4100
 END IF

 IF a$ = "e" THEN
 km% = 8300
 yr% = 19590
 GOTO 5100
 END IF

 IF a$ = "f" THEN
 km% = 4170
 yr% = 19640
 GOTO 6100
 END IF

 IF a$ = "g" THEN
 km% = 4720
 yr% = 19720
 GOTO 7100
 END IF

 IF a$ = "h" THEN
 km% = 6500
 yr% = 19710
 GOTO 8100
 END IF

 IF a$ = "i" THEN
 km% = 9600
 yr% = 19720
 GOTO 9100
 END IF

 IF a$ = "j" THEN
 km% = 11280
 yr% = 19780
 GOTO 10100
 END IF

 IF a$ = "k" THEN
 km% = 4800
 yr% = 19670
 GOTO 11100
 END IF

 IF a$ = "l" THEN
 km% = 5575
 yr% = 19970
 GOTO 12100
 END IF

 IF a$ = "m" THEN
 km% = 6300
 yr% = 19810
 GOTO 13100
 END IF

 IF a$ = "n" THEN
 km% = 10415
 yr% = 19810
 GOTO 14100
 END IF

 IF a$ = "o" THEN
 km% = 9540
 yr% = 19840
 GOTO 15100
 END IF

 IF a$ = "p" THEN
 km% = 6100
 yr% = 19880
 GOTO 16100
 END IF

 IF a$ = "q" THEN
 km% = 13650
 yr% = 19950
 GOTO 17100
 END IF

 IF a$ = "r" THEN
 km% = 14010
 yr% = 20110
 GOTO 18100
 END IF

 IF a$ = "s" THEN
 km% = 16010
 yr% = 20170
 GOTO 19100
 END IF

 IF a$ = "t" THEN
 km% = 7410
 yr% = 20270
 GOTO 20100

 ELSE
 PRINT CHR$(28)
 PRINT "Out of range."
 SLEEP 1
 GOTO 1000
 END IF


1100 CLS
 PRINT CHR$(28)

 lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 51102
 END IF
 
 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 31102

 ELSE
 la% = lev%
 GOTO 1102
 END IF

1102 IF di% > km% THEN
 GOTO 1103

 ELSE
 cua%(la%) = 1
 GOTO 1120
 END IF

1103 IF di% < (km% * 2) THEN
 cua%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 1120

 ELSE
 cua%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

1120 usd& = usd& - 3000
 efa%(la%) = 64
 ara%(la%) = 1200
 pga%(la%) = 86
 voa%(la%) = vo%

1121 PRINT CHR$(28)
 PRINT "  You have:  DC-4."
 PRINT "  Travel:  5,300 km."
 PRINT "  Fuel consumption:  2.98 L."
 PRINT "  Passengers:  86."
 GOTO 71000


2100 CLS
 PRINT CHR$(28)

 lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 52102
 END IF

 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 32102

 ELSE
 la% = lev%
 GOTO 2102
 END IF

2102 IF di% > km% THEN
 GOTO 2103

 ELSE
 cua%(la%) = 1
 GOTO 2120
 END IF

2103 IF di% < (km% * 2) THEN
 cua%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 2120

 ELSE
 cua%(la%) = 100
 PRINT "  More than ome stop over."
 SLEEP 1
 END IF

2120 usd& = usd& - 4000
 efa%(la%) = 66
 ara%(la%) = 1400
 pga%(la%) = 89
 voa%(la%) = vo%

2121 PRINT CHR$(28)
 PRINT "  You have:  DC-6."
 PRINT "  Travel:  7,600 km."
 PRINT "  Fuel consumption:  2.96 L."
 PRINT "  Passengers:  89."
 GOTO 71000


3100 CLS
 PRINT CHR$(28)

 lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 53102
 END IF

 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 33102

 ELSE
 la% = lev%
 GOTO 3102
 END IF

3102 IF di% > km% THEN
 GOTO 3103

 ELSE
 cua%(la%) = 1
 GOTO 3120
 END IF

3103 IF di% < (km% * 2) THEN
 cua%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 3120

 ELSE
 cua%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

3120 usd& = usd& - 5000
 efa%(la%) = 105
 ara%(la%) = 1600
 pga%(la%) = 105
 voa%(la%) = vo%

3121 PRINT CHR$(28)
 PRINT "  You have:  DC-7."
 PRINT "  Travel:  9,070 km."
 PRINT "  Fuel consumption:  2.19 L."
 PRINT "  Passengers:  105."
 GOTO 71000


4100 CLS
 PRINT CHR$(28)

 IF usd& > 6000 THEN
 GOTO 4101

 ELSE
 PRINT "  You must have 6000k in the Bank."
 SLEEP 1
 GOTO 1000
 END IF

4101 IF ann% > yr% THEN
 GOTO 4102

 ELSE
 PRINT "  Year does not match."
 SLEEP 1
 GOTO 1000
 END IF

4102 lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 54102
 END IF

 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 34102

 ELSE
 la% = lev%
 GOTO 4103
 END IF

4103 IF di% > km% THEN
 GOTO 4104

 ELSE
 cua%(la%) = 1
 GOTO 4120
 END IF

4104 IF di% < (km% * 2) THEN
 cua%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 4120

 ELSE
 cua%(la%) = 100
 PRINT "  More than ome stop over."
 SLEEP 1
 END IF

4120 usd& = usd& - 6000
 efa%(la%) = 20
 ara%(la%) = 1800
 pga%(la%) = 189
 voa%(la%) = vo%

4121 PRINT CHR$(28)
 PRINT "  You have:  B-707-120."
 PRINT "  Travel:  5,600 km."
 PRINT "  Fuel consumption:  6.20 L."
 PRINT "  Passengers:  189."
 GOTO 71000


5100 CLS
 PRINT CHR$(28)

 IF usd& > 10000 THEN
 GOTO 5101

 ELSE
 PRINT "  You must have 10000k in the Bank."
 SLEEP 1
 GOTO 1000
 END IF

5101 IF ann% > yr% THEN
 GOTO 5102

 ELSE
 PRINT "  Year does not match."
 SLEEP 1
 GOTO 1000
 END IF

5102 lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 55102
 END IF

 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 35102

 ELSE
 la% = lev%
 GOTO 5103
 END IF

5103 IF di% > km% THEN
 GOTO 5104

 ELSE
 cua%(la%) = 1
 GOTO 5120
 END IF

5104 IF di% < (km% * 2) THEN
 cua%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 5120

 ELSE
 cua%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

5120 usd& = usd& - 10000
 efa%(la%) = 40
 ara%(la%) = 2000
 pga%(la%) = 259
 voa%(la%) = vo%

5121 PRINT CHR$(28)
 PRINT "  You have:  DC-8."
 PRINT "  Travel:  8,300 km."
 PRINT "  Fuel consumption:  4.27 L."
 PRINT "  Passengers:  259."
 GOTO 71000


6100 CLS
 PRINT CHR$(28)

 IF usd& > 12000 THEN
 GOTO 6101

 ELSE
 PRINT "  You must have 12000k in the Bank."
 SLEEP 1
 GOTO 1000
 END IF

6101 IF ann% > yr% THEN
 GOTO 6102

 ELSE
 PRINT "  Year does not match."
 SLEEP 1
 GOTO 1000
 END IF

6102 lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 56102
 END IF

 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 36102

 ELSE
 la% = lev%
 GOTO 6103
 END IF

6103 IF di% > km% THEN
 GOTO 6104

 ELSE
 cua%(la%) = 1
 GOTO 6120
 END IF

6104 IF di% < (km% * 2) THEN
 cua%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 6120

 ELSE
 cua%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

6120 usd& = usd& - 12000
 efa%(la%) = 28
 ara%(la%) = 2200
 pga%(la%) = 131
 voa%(la%) = vo%

6121 PRINT CHR$(28)
 PRINT "  You have:  B-727-100."
 PRINT "  Travel:  4,170 km."
 PRINT "  Fuel consumption:  5.32 L."
 PRINT "  Passengers:  131."
 GOTO 71000


7100 CLS
 PRINT CHR$(28)

 IF usd& > 14000 THEN
 GOTO 7101

 ELSE
 PRINT "  You must have 14000k in the Bank."
 SLEEP 1
 GOTO 1000
 END IF

7101 IF ann% > yr% THEN
 GOTO 7102

 ELSE
 PRINT "  Year does not match."
 SLEEP 1
 GOTO 1000
 END IF

7102 lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 57102
 END IF

 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 37102

 ELSE
 la% = lev%
 GOTO 7103
 END IF

7103 IF di% > km% THEN
 GOTO 7104

 ELSE
 cua%(la%) = 1
 GOTO 7120
 END IF

7104 IF di% < (km% * 2) THEN
 cua%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 7120

 ELSE
 cua%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

7120 usd& = usd& - 14000
 efa%(la%) = 36
 ara%(la%) = 2400
 pga%(la%) = 189
 voa%(la%) = vo%

7121 PRINT CHR$(28)
 PRINT "  You have:  B-727-200."
 PRINT "  Travel:  4,720 km."
 PRINT "  Fuel consumption:  4.58 L."
 PRINT "  Passengers:  189."
 GOTO 71000


8100 CLS
 PRINT CHR$(28)

 IF usd& > 16000 THEN
 GOTO 8101

 ELSE
 PRINT "  You must have 16000k in the Bank."
 SLEEP 1
 GOTO 1000
 END IF

8101 IF ann% > yr% THEN
 GOTO 8102

 ELSE
 PRINT "  Year does not match."
 SLEEP 1
 GOTO 1000
 END IF

8102 lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 58102
 END IF

 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 38102

 ELSE
 la% = lev%
 GOTO 8103
 END IF

8103 IF di% > km% THEN
 GOTO 8104

 ELSE
 cua%(la%) = 1
 GOTO 8120
 END IF

8104 IF di% < (km% * 2) THEN
 cua%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 8120

 ELSE
 cua%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

8120 usd& = usd& - 16000
 efa%(la%) = 70
 ara%(la%) = 2200
 pga%(la%) = 399
 voa%(la%) = vo%

8121 PRINT CHR$(28)
 PRINT "  You have:  DC-10-10."
 PRINT "  Travel:  6,500 km."
 PRINT "  Fuel consumption:  3.18 L."
 PRINT "  Passengers:  399."
 GOTO 71000


9100 CLS
 PRINT CHR$(28)

 IF usd& > 18000 THEN
 GOTO 9101

 ELSE
 PRINT "  You must have 18000k in the Bank."
 SLEEP 1
 GOTO 1000
 END IF

9101 IF ann% > yr% THEN
 GOTO 9102

 ELSE
 PRINT "  Year does not match."
 SLEEP 1
 GOTO 1000
 END IF

9102 lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 59102
 END IF

 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 39102

 ELSE
 la% = lev%
 GOTO 9103
 END IF

9103 IF di% > km% THEN
 GOTO 9104

 ELSE
 cua%(la%) = 1
 GOTO 9120
 END IF

9104 IF di% < (km% * 2) THEN
 PRINT "  One stop over."
 SLEEP 1
 GOTO 9120

 ELSE
 cua%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

9120 usd& = usd& - 18000
 efa%(la%) = 58
 ara%(la%) = 2400
 pga%(la%) = 399
 voa%(la%) = vo%

9121 PRINT CHR$(28)
 PRINT "  You have:  DC-10-30."
 PRINT "  Travel:  9,600 km."
 PRINT "  Fuel consumption:  3.59 L."
 PRINT "  Passengers:  399."
 GOTO 71000


10100 CLS
 PRINT CHR$(28)

 IF usd& > 20000 THEN
 GOTO 10101

 ELSE
 PRINT "  You must have 20000k in the Bank."
 SLEEP 1
 GOTO 1000
 END IF

10101 IF ann% > yr% THEN
 GOTO 10102

 ELSE
 PRINT "  Year does not match."
 SLEEP 1
 GOTO 1000
 END IF

10102 lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 60102
 END IF

 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 40102

 ELSE
 la% = lev%
 GOTO 10103
 END IF

10103 IF di% > km% THEN
 GOTO 10104

 ELSE
 cua%(la%) = 1
 GOTO 10120
 END IF

10104 IF di% < (km% * 2) THEN
 cua%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 10120

 ELSE
 cua%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

10120 usd& = usd& - 20000
 efa%(la%) = 68
 ara%(la%) = 2600
 pga%(la%) = 330
 voa%(la%) = vo%

10121 PRINT CHR$(28)
 PRINT "  You have:  L-1011-500."
 PRINT "  Travel:  11,280 km."
 PRINT "  Fuel consumption:  3.22 L."
 PRINT "  Passengers:  330."
 GOTO 71000


11100 CLS
 PRINT CHR$(28)

 IF usd& > 16000 THEN
 GOTO 11101

 ELSE
 PRINT "  You must have 16000k in the Bank."
 SLEEP 1
 GOTO 1000
 END IF

11101 IF ann% > yr% THEN
 GOTO 11102

 ELSE
 PRINT "  Year does not match."
 SLEEP 1
 GOTO 1000
 END IF

11102 lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 61102
 END IF

 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 41102

 ELSE
 la% = lev%
 GOTO 11103
 END IF

11103 IF di% > km% THEN
 GOTO 11104

 ELSE
 cua%(la%) = 1
 GOTO 11120
 END IF

11104 IF di% < (km% * 2) THEN
 cua%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 11120

 ELSE
 cua%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

11120 usd& = usd& - 16000
 efa%(la%) = 60
 ara%(la%) = 2500
 pga%(la%) = 130
 voa%(la%) = vo%

11121 PRINT CHR$(28)
 PRINT "  You have:  B-737-200."
 PRINT "  Travel:  4,800 km."
 PRINT "  Fuel consumption:  3.62 L."
 PRINT "  Passengers:  130."
 GOTO 71000


12100 CLS
 PRINT CHR$(28)

 IF usd& > 26000 THEN
 GOTO 12101

 ELSE
 PRINT "  You must have 26000k in the Bank."
 SLEEP 1
 GOTO 1000
 END IF

12101 IF ann% > yr% THEN
 GOTO 12102

 ELSE
 PRINT "  Year does not match."
 SLEEP 1
 GOTO 1000
 END IF

12102 lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 62102
 END IF

 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 42102

 ELSE
 la% = lev%
 GOTO 12103
 END IF

12103 IF di% > km% THEN
 GOTO 12104

 ELSE
 cua%(la%) = 1
 GOTO 12120
 END IF

12104 IF di% < (km% * 2) THEN
 cua%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 12120

 ELSE
 cua%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

12120 usd& = usd& - 26000
 efa%(la%) = 92
 ara%(la%) = 3700
 pga%(la%) = 220
 voa%(la%) = vo%

12121 PRINT CHR$(28)
 PRINT "  You have:  B-737-900."
 PRINT "  Travel:  5,575 km."
 PRINT "  Fuel consumption:  2.42 L."
 PRINT "  Passengers:  220."
 GOTO 71000


13100 CLS
 PRINT CHR$(28)

 IF usd& > 22000 THEN
 GOTO 13101

 ELSE
 PRINT "  You must have 22000k in the Bank."
 SLEEP 1
 GOTO 1000
 END IF

13101 IF ann% > yr% THEN
 GOTO 13102

 ELSE
 PRINT "  Year does not match."
 SLEEP 1
 GOTO 1000
 END IF

13102 lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 63102
 END IF

 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 43102

 ELSE
 la% = lev%
 GOTO 13103
 END IF

13103 IF di% > km% THEN
 GOTO 13104

 ELSE
 cua%(la%) = 1
 GOTO 13120
 END IF

13104 IF di% < (km% * 2) THEN
 cua%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 13120

 ELSE
 cua%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

13120 usd& = usd& - 22000
 efa%(la%) = 100
 ara%(la%) = 3300
 pga%(la%) = 295
 voa%(la%) = vo%

13121 PRINT CHR$(28)
 PRINT "  You have:  B-757."
 PRINT "  Travel:  6,300 km."
 PRINT "  Fuel consumption:  2.33 L."
 PRINT "  Passengers:  295."
 GOTO 71000


14100 CLS
 PRINT CHR$(28)

 IF usd& > 24000 THEN
 GOTO 14101

 ELSE
 PRINT "  You must have 24000k in the Bank."
 SLEEP 1
 GOTO 1000
 END IF

14101 IF ann% > yr% THEN
 GOTO 14102

 ELSE
 PRINT "  Year does not match."
 SLEEP 1
 GOTO 1000
 END IF

14102 lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 64102
 END IF

 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 44102

 ELSE
 la% = lev%
 GOTO 14103
 END IF

14103 IF di% > km% THEN
 GOTO 14104

 ELSE
 cua%(la%) = 1
 GOTO 14120
 END IF

14104 IF di% < (km% * 2) THEN
 cua%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 14120

 ELSE
 cua%(la%) = 100
 PRINT "  More than ome stop over."
 SLEEP 1
 END IF


14120 usd& = usd& - 24000
 efa%(la%) = 110
 ara%(la%) = 3200
 pga%(la%) = 400
 voa%(la%) = vo%

14121 PRINT CHR$(28)
 PRINT "  You have:  B-767-400."
 PRINT "  Travel:  10,415 km."
 PRINT "  Fuel consumption:  2.15 L."
 PRINT "  Passengers:  400."
 GOTO 71000


15100 CLS
 PRINT CHR$(28)

 IF usd& > 28000 THEN
 GOTO 15101

 ELSE
 PRINT "  You must have 28000k in the Bank."
 SLEEP 1
 GOTO 1000
 END IF

15101 IF ann% > yr% THEN
 GOTO 15102

 ELSE
 PRINT "  Year does not match."
 SLEEP 1
 GOTO 1000
 END IF

15102 lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 65102
 END IF

 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 45102

 ELSE
 la% = lev%
 GOTO 15103
 END IF

15103 IF di% > km% THEN
 GOTO 15104

 ELSE
 cua%(la%) = 1
 GOTO 15120
 END IF

15104 IF di% < (km% * 2) THEN
 cua%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 15120

 ELSE
 cua%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

15120 usd& = usd& - 28000
 efa%(la%) = 120
 ara%(la%) = 3400
 pga%(la%) = 243
 voa%(la%) = vo%

15121 PRINT CHR$(28)
 PRINT "  You have:  A-310."
 PRINT "  Travel:  9,540 km."
 PRINT "  Fuel consumption:  2.07 L."
 PRINT "  Passengers:  243."
 GOTO 71000


16100 CLS
 PRINT CHR$(28)

 IF usd& > 29000 THEN
 GOTO 16101
                          
 ELSE
 PRINT "  You must have 29000k in the Bank."
 SLEEP 1
 GOTO 1000
 END IF

16101 IF ann% > yr% THEN
 GOTO 16102

 ELSE
 PRINT "  Year does not match."
 SLEEP 1
 GOTO 1000
 END IF

16102 lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 66102
 END IF

 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 46102

 ELSE
 la% = lev%
 GOTO 16103
 END IF

16103 IF di% > km% THEN
 GOTO 16104

 ELSE
 cua%(la%) = 1
 GOTO 16120
 END IF

16104 IF di% < (km% * 2) THEN
 cua%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 16120

 ELSE
 cua%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

16120 usd& = usd& - 29000
 efa%(la%) = 98
 ara%(la%) = 3600
 pga%(la%) = 190
 voa%(la%) = vo%

16121 PRINT CHR$(28)
 PRINT "  You have:  A-320."
 PRINT "  Travel:  6,100 km."
 PRINT "  Fuel consumption:  2.34 L."
 PRINT "  Passengers:  190."
 GOTO 71000


17100 CLS
 PRINT CHR$(28)

 IF usd& > 32000 THEN
 GOTO 17101

 ELSE
 PRINT "  You must have 32000k in the Bank."
 SLEEP 1
 GOTO 1000
 END IF

17101 IF ann% > yr% THEN
 GOTO 17102

 ELSE
 PRINT "  Year does not match."
 SLEEP 1
 GOTO 1000
 END IF

17102 lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 67102
 END IF

 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 47102

 ELSE
 la% = lev%
 GOTO 17103
 END IF

17103 IF di% > km% THEN
 GOTO 17104

 ELSE
 cua%(la%) = 1
 GOTO 17120
 END IF

17104 IF di% < (km% * 2) THEN
 cua%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 17120

 ELSE
 cua%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

17120 usd& = usd& - 32000
 efa%(la%) = 94
 ara%(la%) = 3800
 pga%(la%) = 550
 voa%(la%) = vo%

17121 PRINT CHR$(28)
 PRINT "  You have:  B-777-300."
 PRINT "  Travel:  13,649 km."
 PRINT "  Fuel consumption:  2.41 L."
 PRINT "  Passengers:  550."
 GOTO 71000


18100 CLS
 PRINT CHR$(28)

 IF usd& > 36000 THEN
 GOTO 18101

 ELSE
 PRINT "  You must have 36000k in the Bank."
 SLEEP 1
 GOTO 1000
 END IF

18101 IF ann% > yr% THEN
 GOTO 18102

 ELSE
 PRINT "  Year does not match."
 SLEEP 1
 GOTO 1000
 END IF

18102  lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 68102
 END IF

 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 48102

 ELSE
 la% = lev%
 GOTO 18103
 END IF

18103 IF di% > km% THEN
 GOTO 18104

 ELSE
 cua%(la%) = 1
 GOTO 18120
 END IF

18104 IF di% < (km% * 2) THEN
 cua%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 18120

 ELSE
 cua%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

18120 usd& = usd& - 36000
 efa%(la%) = 112
 ara%(la%) = 4300
 pga%(la%) = 420
 voa%(la%) = vo%

18121 PRINT CHR$(28)
 PRINT "  You have:  B-787-9."
 PRINT "  Travel:  14,010 km."
 PRINT "  Fuel consumption:  2.16 L."
 PRINT "  Passengers:  420."
 GOTO 71000


19100 CLS
 PRINT CHR$(28)

 IF usd& > 40000 THEN
 GOTO 19101

 ELSE
 PRINT "  You must have 40000k in the Bank."
 SLEEP 1
 GOTO 1000
 END IF

19101 IF ann% > yr% THEN
 GOTO 19102

 ELSE
 PRINT "  Year does not match."
 SLEEP 1
 GOTO 1000
 END IF

19102 lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 69120
 END IF

 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 49120

 ELSE
 la% = lev%
 GOTO 19120
 END IF

19120 usd& = usd& - 40000
 efa%(la%) = 124
 ara%(la%) = 4100
 pga%(la%) = 480
 voa%(la%) = vo%

19121 PRINT CHR$(28)
 PRINT "  You have:  A-350-1000."
 PRINT "  Travel:  16,100 km."
 PRINT "  Fuel consumption:  2.06 L."
 PRINT "  Passengers:  480."
 GOTO 71000


20100 CLS
 PRINT CHR$(28)

 IF usd& > 42000 THEN
 GOTO 20101

 ELSE
 PRINT "  You must have 42000k in the Bank."
 SLEEP 1
 GOTO 1000
 END IF

20101 IF ann% > yr% THEN
 GOTO 20102

 ELSE
 PRINT "  Year does not match."
 SLEEP 1
 GOTO 1000
 END IF

20102 lev% = lev% + 1

 IF lev% > 20 THEN
 la% = lev% - 20
 GOTO 70102
 END IF

 IF lev% > 10 THEN
 la% = lev% - 10
 GOTO 50102

 ELSE
 la% = lev%
 GOTO 20103
 END IF

20103 IF di% > km% THEN
 GOTO 20104

 ELSE
 cua%(la%) = 1
 GOTO 20120
 END IF

20104 IF di% < (km% * 2) THEN
 cua%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 20120

 ELSE
 cua%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

20120 usd& = usd& - 42000
 efa%(la%) = 162
 ara%(la%) = 4200
 pga%(la%) = 240
 voa%(la%) = vo%

20121 PRINT CHR$(28)
 PRINT "  You have:  A-321-LR."
 PRINT "  Travel:  7,410 km."
 PRINT "  Fuel consumption:  1.32 L."
 PRINT "  Passengers:  240."
 GOTO 71000


31102 IF di% > km% THEN
 GOTO 31103

 ELSE
 cub%(la%) = 1
 GOTO 31120
 END IF

31103 IF di% < (km% * 2) THEN
 cub%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 31120

 ELSE
 cub%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

31120 usd& = usd& - 3000
 efb%(la%) = 64
 arb%(la%) = 1200
 pgb%(la%) = 86
 vob%(la%) = vo%
 GOTO 1121


32102 IF di% > km% THEN
 GOTO 32103

 ELSE
 cub%(la%) = 1
 GOTO 32120
 END IF

32103 IF di% < (km% * 2) THEN
 cub%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 32120

 ELSE
 cub%(la%) = 100
 PRINT "  More than ome stop over."
 SLEEP 1
 END IF

32120 usd& = usd& - 4000
 efb%(la%) = 66
 arb%(la%) = 1400
 pgb%(la%) = 89
 vob%(la%) = vo%
 GOTO 2121


33102 IF di% > km% THEN
 GOTO 33103

 ELSE
 cub%(la%) = 1
 GOTO 33120
 END IF

33103 IF di% < (km% * 2) THEN
 cub%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 33120

 ELSE
 cub%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

33120 usd& = usd& - 5000
 efb%(la%) = 105
 arb%(la%) = 1600
 pgb%(la%) = 105
 vob%(la%) = vo%
 GOTO 3121


34102 IF di% > km% THEN
 GOTO 34103

 ELSE
 cub%(la%) = 1
 GOTO 34120
 END IF

34103 IF di% < (km% * 2) THEN
 cub%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 34120

 ELSE
 cub%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

34120 usd& = usd& - 6000
 efb%(la%) = 20
 arb%(la%) = 1800
 pgb%(la%) = 189
 vob%(la%) = vo%
 GOTO 4121


35102 IF di% > km% THEN
 GOTO 35103

 ELSE
 cub%(la%) = 1
 GOTO 35120
 END IF

35103 IF di% < (km% * 2) THEN
 cub%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 35120

 ELSE
 cub%(la%) = 100
 PRINT "  More than one stop overs."
 SLEEP 1
 END IF

35120 usd& = usd& - 10000
 efb%(la%) = 40
 arb%(la%) = 1800
 pgb%(la%) = 259
 vob%(la%) = vo%
 GOTO 5121


36102 IF di% > km% THEN
 GOTO 36103

 ELSE
 cub%(la%) = 1
 GOTO 36120
 END IF

36103 IF di% < (km% * 2) THEN
 cub%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 36120

 ELSE
 cub%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

36120 usd& = usd& - 12000
 efb%(la%) = 28
 arb%(la%) = 2200
 pgb%(la%) = 131
 vob%(la%) = vo%
 GOTO 6121


37102 IF di% > km% THEN
 GOTO 37103

 ELSE
 cub%(la%) = 1
 GOTO 37120
 END IF

37103 IF di% < (km% * 2) THEN
 cub%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 37120

 ELSE
 cub%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

37120 usd& = usd& - 14000
 efb%(la%) = 36
 arb%(la%) = 2400
 pgb%(la%) = 189
 vob%(la%) = vo%
 GOTO 7121


38102 IF di% > km% THEN
 GOTO 38103

 ELSE
 cub%(la%) = 1
 GOTO 38120
 END IF

38103 IF di% < (km% * 2) THEN
 cub%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 38120

 ELSE
 cub%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

38120 usd& = usd& - 16000
 efb%(la%) = 70
 arb%(la%) = 2200
 pgb%(la%) = 399
 vob%(la%) = vo%
 GOTO 8121


39102 IF di% > km% THEN
 GOTO 39103

 ELSE
 cub%(la%) = 1
 GOTO 39120
 END IF

39103 IF di% < (km% * 2) THEN
 cub%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 39120

 ELSE
 cub%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

39120 usd& = usd& - 18000
 efb%(la%) = 58
 arb%(la%) = 2400
 pgb%(la%) = 399
 vob%(la%) = vo%
 GOTO 9121


40102 IF di% > km% THEN
 GOTO 40103

 ELSE
 cub%(la%) = 1
 GOTO 40120
 END IF

40103 IF di% < (km% * 2) THEN
 cub%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 40120

 ELSE
 cub%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

40120 usd& = usd& - 20000
 efb%(la%) = 68
 arb%(la%) = 2600
 pgb%(la%) = 330
 vob%(la%) = vo%
 GOTO 10121


41102 IF di% > km% THEN
 GOTO 41103

 ELSE
 cub%(la%) = 1
 GOTO 41120
 END IF

41103 IF di% < (km% * 2) THEN
 cub%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 41120

 ELSE
 cub%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

41120 usd& = usd& - 16000
 efb%(la%) = 60
 arb%(la%) = 2500
 pgb%(la%) = 130
 vob%(la%) = vo%
 GOTO 11121


42102 IF di% > km% THEN
 GOTO 42103

 ELSE
 cub%(la%) = 1
 GOTO 42120
 END IF

42103 IF di% < (km% * 2) THEN
 cub%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 42120

 ELSE
 cub%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

42120 usd& = usd& - 26000
 efb%(la%) = 92
 arb%(la%) = 3700
 pgb%(la%) = 220
 vob%(la%) = vo%
 GOTO 12121


43102 IF di% > km% THEN
 GOTO 43103

 ELSE
 cub%(la%) = 1
 GOTO 43120
 END IF

43103 IF di% < (km% * 2) THEN
 PRINT "  One stop over."
 SLEEP 1
 cub%(la%) = 50
 GOTO 43120

 ELSE
 cub%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

43120 usd& = usd& - 22000
 efb%(la%) = 100
 arb%(la%) = 3300
 pgb%(la%) = 295
 vob%(la%) = vo%
 GOTO 13121


44102 IF di% > km% THEN
 GOTO 44103

 ELSE
 cub%(la%) = 1
 GOTO 44120
 END IF

44103 IF di% < (km% * 2) THEN
 cub%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 44120

 ELSE
 cub%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

44120 usd& = usd& - 24000
 efb%(la%) = 110
 arb%(la%) = 3200
 pgb%(la%) = 400
 vob%(la%) = vo%
 GOTO 14121


45102 IF di% > km% THEN
 GOTO 45103

 ELSE
 cub%(la%) = 1
 GOTO 45120
 END IF

45103 IF di% < (km% * 2) THEN
 cub%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 45120

 ELSE
 cub%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

45120 usd& = usd& - 28000
 efb%(la%) = 120
 arb%(la%) = 3400
 pgb%(la%) = 243
 vob%(la%) = vo%
 GOTO 15121


46102 IF di% > km% THEN
 GOTO 46103

 ELSE
 cub%(la%) = 1
 GOTO 46120
 END IF

46103 IF di% < (km% * 2) THEN
 cub%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 46120

 ELSE
 cub%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

46120 usd& = usd& - 29000
 efb%(la%) = 98
 arb%(la%) = 3600
 pgb%(la%) = 190
 vob%(la%) = vo%
 GOTO 16121


47102 IF di% > km% THEN
 GOTO 47103

 ELSE
 cub%(la%) = 1
 GOTO 47120
 END IF

47103 IF di% < (km% * 2) THEN
 cub%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 47120

 ELSE
 cub%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

47120 usd& = usd& - 32000
 efb%(la%) = 94
 arb%(la%) = 3800
 pgb%(la%) = 550
 vob%(la%) = vo%
 GOTO 17121


48102 IF di% > km% THEN
 GOTO 48103

 ELSE
 cub%(la%) = 1
 GOTO 48120
 END IF

48103 IF di% < (km% * 2) THEN
 cub%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 48120

 ELSE
 cub%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

48120 usd& = usd& - 36000
 efb%(la%) = 112
 arb%(la%) = 4300
 pgb%(la%) = 420
 vob%(la%) = vo%
 GOTO 18121


49120 usd& = usd& - 40000
 efb%(la%) = 124
 arb%(la%) = 4100
 pgb%(la%) = 480
 vob%(la%) = vo%
 GOTO 19121


50102 IF di% > km% THEN
 GOTO 50103

 ELSE
 cub%(la%) = 1
 GOTO 50120
 END IF

50103 IF di% < (km% * 2) THEN
 cub%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 50120

 ELSE
 cub%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

50120 usd& = usd& - 42000
 efb%(la%) = 162
 arb%(la%) = 4200
 pgb%(la%) = 240
 vob%(la%) = vo%
 GOTO 20121


51102 IF di% > km% THEN
 GOTO 51103

 ELSE
 cuc%(la%) = 1
 GOTO 51120
 END IF

51103 IF di% < (km% * 2) THEN
 cuc%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 51120

 ELSE
 cuc%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

51120 usd& = usd& - 3000
 efc%(la%) = 64
 arc%(la%) = 1200
 pgc%(la%) = 86
 voc%(la%) = vo%
 GOTO 1121


52102 IF di% > km% THEN
 GOTO 52103

 ELSE
 cuc%(la%) = 1
 GOTO 52120
 END IF

52103 IF di% < (km% * 2) THEN
 cuc%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 52120

 ELSE
 cuc%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

52120 usd& = usd& - 4000
 efc%(la%) = 66
 arc%(la%) = 1400
 pgc%(la%) = 89
 voc%(la%) = vo%
 GOTO 2121


53102 IF di% > km% THEN
 GOTO 53103

 ELSE
 cuc%(la%) = 1
 GOTO 53120
 END IF

53103 IF di% < (km% * 2) THEN
 cuc%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 53120

 ELSE
 cuc%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

53120 usd& = usd& - 5000
 efc%(la%) = 105
 arc%(la%) = 1600
 pgc%(la%) = 105
 voc%(la%) = vo%
 GOTO 3121


54102 IF di% > km% THEN
 GOTO 54103

 ELSE
 cuc%(la%) = 1
 GOTO 54120
 END IF

54103 IF di% < (km% * 2) THEN
 cuc%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 54120

 ELSE
 cuc%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

54120 usd& = usd& - 6000
 efc%(la%) = 20
 arc%(la%) = 1800
 pgc%(la%) = 189
 voc%(la%) = vo%
 GOTO 4121


55102 IF di% > km% THEN
 GOTO 55103

 ELSE
 cuc%(la%) = 1
 GOTO 55120
 END IF

55103 IF di% < (km% * 2) THEN
 cuc%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 55120

 ELSE
 cuc%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

55120 usd& = usd& - 10000
 efc%(la%) = 40
 arc%(la%) = 1800
 pgc%(la%) = 259
 voc%(la%) = vo%
 GOTO 5121


56102 IF di% > km% THEN
 GOTO 56103

 ELSE
 cuc%(la%) = 1
 GOTO 56120
 END IF

56103 IF di% < (km% * 2) THEN
 cuc%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 56120

 ELSE
 cuc%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

56120 usd& = usd& - 12000
 efc%(la%) = 28
 arc%(la%) = 2200
 pgc%(la%) = 131
 voc%(la%) = vo%
 GOTO 6121


57102 IF di% > km% THEN
 GOTO 57103

 ELSE
 cuc%(la%) = 1
 GOTO 57120
 END IF

57103 IF di% < (km% * 2) THEN
 cuc%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 57120

 ELSE
 cuc%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

57120 usd& = usd& - 14000
 efc%(la%) = 36
 arc%(la%) = 2400
 pgc%(la%) = 189
 voc%(la%) = vo%
 GOTO 7121


58102 IF di% > km% THEN
 GOTO 58103

 ELSE
 cuc%(la%) = 1
 GOTO 58120
 END IF

58103 IF di% < (km% * 2) THEN
 cuc%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 58120

 ELSE
 cuc%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

58120 usd& = usd& - 16000
 efc%(la%) = 70
 arc%(la%) = 2200
 pgc%(la%) = 399
 voc%(la%) = vo%
 GOTO 8121


59102 IF di% > km% THEN
 GOTO 59103

 ELSE
 cuc%(la%) = 1
 GOTO 59120
 END IF

59103 IF di% < (km% * 2) THEN
 cuc%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 59120

 ELSE
 cuc%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

59120 usd& = usd& - 18000
 efc%(la%) = 58
 arc%(la%) = 2400
 pgc%(la%) = 399
 voc%(la%) = vo%
 GOTO 9121


60102 IF di% > km% THEN
 GOTO 60103

 ELSE
 cuc%(la%) = 1
 GOTO 60120
 END IF

60103 IF di% < (km% * 2) THEN
 cuc%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 60120

 ELSE
 cuc%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

60120 usd& = usd& - 20000
 efc%(la%) = 68
 arc%(la%) = 2600
 pgc%(la%) = 330
 voc%(la%) = vo%
 GOTO 10121


61102 IF di% > km% THEN
 GOTO 61103

 ELSE
 cuc%(la%) = 1
 GOTO 61120
 END IF

61103 IF di% < (km% * 2) THEN
 cuc%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 61120

 ELSE
 cuc%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

61120 usd& = usd& - 16000
 efa%(la%) = 60
 arc%(la%) = 2500
 pgc%(la%) = 130
 voc%(la%) = vo%
 GOTO 11121


62102 IF di% > km% THEN
 GOTO 62103

 ELSE
 cuc%(la%) = 1
 GOTO 62120
 END IF

62103 IF di% < (km% * 2) THEN
 cuc%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 62120

 ELSE
 cuc%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

62120 usd& = usd& - 26000
 efc%(la%) = 92
 arc%(la%) = 3700
 pgc%(la%) = 220
 voc%(la%) = vo%
 GOTO 12121


63102 IF di% > km% THEN
 GOTO 63103

 ELSE
 cuc%(la%) = 1
 GOTO 63120
 END IF

63103 IF di% < (km% * 2) THEN
 cuc%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 63120

 ELSE
 cuc%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

63120 usd& = usd& - 22000
 efc%(la%) = 100
 arc%(la%) = 3300
 pgc%(la%) = 295
 voc%(la%) = vo%
 GOTO 13121


64102 IF di% > km% THEN
 GOTO 64103

 ELSE
 cuc%(la%) = 1
 GOTO 64120
 END IF

64103 IF di% < (km% * 2) THEN
 cuc%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 64120

 ELSE
 cuc%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

64120 usd& = usd& - 24000
 efc%(la%) = 110
 arc%(la%) = 3200
 pgc%(la%) = 400
 voc%(la%) = vo%
 GOTO 14121


65102 IF di% > km% THEN
 GOTO 65103

 ELSE
 cuc%(la%) = 1
 GOTO 65120
 END IF

65103 IF di% < (km% * 2) THEN
 cuc%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 65120

 ELSE
 cuc%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

65120 usd& = usd& - 28000
 efc%(la%) = 120
 arc%(la%) = 3400
 pgc%(la%) = 243
 voc%(la%) = vo%
 GOTO 15121


66102 IF di% > km% THEN
 GOTO 66103

 ELSE
 cuc%(la%) = 1
 GOTO 66120
 END IF

66103 IF di% < (km% * 2) THEN
 cuc%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 66120

 ELSE
 cuc%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

66120 usd& = usd& - 29000
 efc%(la%) = 98
 arc%(la%) = 3600
 pgc%(la%) = 190
 voc%(la%) = vo%
 GOTO 16121


67102 IF di% > km% THEN
 GOTO 67103

 ELSE
 cuc%(la%) = 1
 GOTO 67120
 END IF

67103 IF di% < (km% * 2) THEN
 cuc%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 67120

 ELSE
 cuc%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

67120 usd& = usd& - 32000
 efc%(la%) = 94
 arc%(la%) = 3800
 pgc%(la%) = 550
 voc%(la%) = vo%
 GOTO 17121


68102 IF di% > km% THEN
 GOTO 68103

 ELSE
 cuc%(la%) = 1
 GOTO 68120
 END IF

68103 IF di% < (km% * 2) THEN
 cuc%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 68120

 ELSE
 cuc%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

68120 usd& = usd& - 36000
 efc%(la%) = 112
 arc%(la%) = 4300
 pgc%(la%) = 420
 voc%(la%) = vo%
 GOTO 18121


69120 usd& = usd& - 40000
 efc%(la%) = 124
 arc%(la%) = 4100
 pgc%(la%) = 480
 voc%(la%) = vo%
 GOTO 19121


70102 IF di% > km% THEN
 GOTO 70103

 ELSE
 cuc%(la%) = 1
 GOTO 70120
 END IF

70103 IF di% < (km% * 2) THEN
 cuc%(la%) = 50
 PRINT "  One stop over."
 SLEEP 1
 GOTO 70120

 ELSE
 cuc%(la%) = 100
 PRINT "  More than one stop over."
 SLEEP 1
 END IF

70120 usd& = usd& - 42000
 efc%(la%) = 162
 arc%(la%) = 4200
 pgc%(la%) = 240
 voc%(la%) = vo%
 GOTO 20121


71000 PRINT CHR$(28)
 PRINT CHR$(28)
 PRINT "  Press SPACE."
 SLEEP 0

71003 CLS
 ext% = 40 * infb
 PRINT CHR$(28)
 PRINT "      Level:  "; lev%; "     Year:  "; (ann% / 10)
 PRINT CHR$(28)
 PRINT "      Money in the Bank:  "; usd&; "     Inflation:  "; infb
 PRINT CHR$(28)
 PRINT "      Score:  "; usd& + tt&; "                Cost for Int. Flights:  "; ext%
 PRINT CHR$(28)
 PRINT "      -----------------------------------------------------"
 PRINT CHR$(28)
 PRINT "      A - Buy a new plane & new destination."
 PRINT "      B - Check your fleet & Total repair."
 PRINT "      C - Replace your old plane with a new one."
 PRINT "      D - Move ahead for 146 days (0.4 year)."
 PRINT "      E - Holiday destinations (Planes 27-30)."
 PRINT "      F - Quit."
 PRINT CHR$(28)
 PRINT "      -----------------------------------------------------"
 PRINT CHR$(28)

71010 INPUT "      Type 'a' to 'f' "; a$

 IF a$ = "a" THEN
 GOTO 90
 END IF

 IF a$ = "b" THEN
 GOTO 74000
 END IF

 IF a$ = "c" THEN
 GOTO 75000
 END IF

 IF a$ = "d" THEN
 GOTO 72000
 END IF

 IF a$ = "e" THEN
 GOTO 76000
 END IF

 IF a$ = "f" THEN
 GOTO 80010

 ELSE
 PRINT CHR$(28)
 PRINT "  Out of range."
 SLEEP 1
 GOTO 71003
 END IF


72000 CLS
 SLEEP 1

72100 LOCATE 3, 1
 PRINT "      Planes 1-10 (Crash if Accident random = 1)."
 PRINT "      ------------------------------------------"

72110 ql% = 1
 num% = 1

 IF efa%(ql%) = 0 THEN
 PRINT CHR$(28)
 PRINT "   You have not bought any planes at all."
 GOTO 73500
 END IF

72111 GOTO 73400

72115 LOCATE 7, 12
 PRINT "Plane"
 LOCATE 7, 22
 PRINT "Accident rate"
 LOCATE 7, 38
 PRINT "Random"

72120 RANDOMIZE TIMER
72121 rip% = INT(((ara%(ql%)) - rr%) * RND) + 1

 LOCATE ql% + 9, 11
 PRINT ql%

 LOCATE ql% + 9, 21
 PRINT ara%(ql%) - rr%

 LOCATE ql% + 9, 37
 PRINT rip%

 IF rip% = 1 THEN
 GOTO 80000
 END IF

72122 ql% = ql% + 1

 IF ql% = 11 THEN
 GOTO 72200
 END IF

 IF efa%(ql%) = 0 THEN
 LOCATE 21, 1
 PRINT "    No more planes so far..."
 GOTO 73000

 ELSE
 GOTO 72121
 END IF

72200 LOCATE 24, 1
 PRINT "   Press SPACE."
 SLEEP 0

 CLS
 LOCATE 3, 1
 PRINT "      Planes 11-20 (Crash if Accident random = 1)."
 PRINT "      -------------------------------------------"

72210 ql% = 1
 num% = 2

 IF efb%(ql%) = 0 THEN
 PRINT CHR$(28)
 GOTO 73001
 END IF

72211 GOTO 73400

72215 LOCATE 7, 12
 PRINT "Plane"
 LOCATE 7, 22
 PRINT "Accident rate"
 LOCATE 7, 38
 PRINT "Random"

72220 RANDOMIZE TIMER
72221 rip% = INT(((arb%(ql%)) - rr%) * RND) + 1

 LOCATE ql% + 9, 11
 PRINT (ql% + 10)

 LOCATE ql% + 9, 21
 PRINT arb%(ql%) - rr%

 LOCATE ql% + 9, 37
 PRINT rip%

 IF rip% = 1 THEN
 GOTO 80000
 END IF

72222 ql% = ql% + 1

 IF ql% = 11 THEN
 GOTO 72300
 END IF

 IF efb%(ql%) = 0 THEN
 LOCATE 21, 1
 PRINT "    No more planes so far..."
 GOTO 73000

 ELSE
 GOTO 72221
 END IF

72300 LOCATE 24, 1
 PRINT "   Press SPACE."
 SLEEP 0

72301 CLS

 LOCATE 3, 1
 PRINT "      Planes 21-30 (Crash if Accident random = 1)."
 PRINT "     --------------------------------------------"

72310 ql% = 1
 num% = 3

 IF efc%(ql%) = 0 THEN
 PRINT CHR$(28)
 GOTO 73001
 END IF

72311 GOTO 73400

72315 LOCATE 7, 12
 PRINT "Plane"
 LOCATE 7, 22
 PRINT "Accident rate"
 LOCATE 7, 38
 PRINT "Random"

72320 RANDOMIZE TIMER
72321 rip% = INT(((arc%(ql%)) - rr%) * RND) + 1

 LOCATE ql% + 9, 11
 PRINT (ql% + 20)

 LOCATE ql% + 9, 21
 PRINT arc%(ql%) - rr%

 LOCATE ql% + 9, 37
 PRINT rip%

 IF rip% = 1 THEN
 GOTO 80000
 END IF

72322 ql% = ql% + 1

 IF ql% = 11 THEN
 LOCATE 21, 1
 PRINT "   You have got all 30 planes."
 GOTO 73000
 END IF

 IF efc%(ql%) = 0 THEN
 LOCATE 21, 1
 PRINT "    No more planes so far..."
 GOTO 73000

 ELSE
 GOTO 72321
 END IF

73000 LOCATE 24, 1
 PRINT "   Press SPACE."
 SLEEP 0

73001 CLS

73100 LOCATE 3, 1
 PRINT "      Planes 1-10 (Profit or loss)."
 PRINT "      ----------------------------"

73115 ql% = 1
 num% = 4
 GOTO 73400

73116 LOCATE 7, 12
 PRINT "Plane"
 LOCATE 7, 22
 PRINT "Profit & Loss"
 LOCATE 7, 38
 PRINT "Money left"

73120 RANDOMIZE TIMER
73121 wo% = (INT(600) * RND) + 1
  usda% = wo% - (cua%(ql%) * 2)
  usdb% = usda% + (efa%(ql%) * 4)
  usdc% = usdb% + (pga%(ql%) / 5)
  usd& = usd& + usdc%

 IF voa%(ql%) = 300 THEN
 usde% = 300
 usd& = usd& - usde%
 END IF

 IF voa%(ql%) = 40 THEN
 usde% = 40 * infb
 usd& = usd& - usde%
 END IF

 LOCATE ql% + 9, 11
 PRINT ql%

 LOCATE ql% + 9, 21
 PRINT usdc% - usde%

 LOCATE ql% + 9, 37
 PRINT usd&

73122 ql% = ql% + 1

 IF ql% = 11 THEN
 GOTO 73200
 END IF

 IF efa%(ql%) = 0 THEN
 LOCATE 21, 1
 PRINT "    No more planes so far..."
 GOTO 73500

 ELSE
 GOTO 73121
 END IF

73200 LOCATE 24, 1
 PRINT "   Press SPACE."
 SLEEP 0
 
 CLS

 LOCATE 3, 1
 PRINT "      Planes 11-20 (Profit or loss)."
 PRINT "      -----------------------------"

73210 ql% = 1
 num% = 5

 IF efb%(ql%) = 0 THEN
 GOTO 73501
 END IF

73211 GOTO 73400

73215 LOCATE 7, 12
 PRINT "Plane"
 LOCATE 7, 22
 PRINT "Profit & Loss"
 LOCATE 7, 38
 PRINT "Money left"

73220 RANDOMIZE TIMER
73221 wo% = (INT(600) * RND) + 1
  usda% = wo% - (cub%(ql%) * 2)
  usdb% = usda% + (efb%(ql%) * 4)
  usdc% = usdb% + (pgb%(ql%) / 5)
  usd& = usd& + usdc%

 IF vob%(ql%) = 300 THEN
 usde% = 300
 usd& = usd& - usde%
 END IF

 IF vob%(ql%) = 40 THEN
 usde% = 40 * infb
 usd& = usd& - usde%
 END IF

 LOCATE ql% + 9, 11
 PRINT (ql% + 10)

 LOCATE ql% + 9, 21
 PRINT usdc% - usde%

 LOCATE ql% + 9, 37
 PRINT usd&

73222 ql% = ql% + 1

 IF ql% = 11 THEN
 GOTO 73300
 END IF

 IF efb%(ql%) = 0 THEN
 LOCATE 21, 1
 PRINT "    No more planes so far..."
 GOTO 73500

 ELSE
 GOTO 73221
 END IF

73300 LOCATE 24, 1
 PRINT "   Press SPACE."
 SLEEP 0
 
 CLS

 LOCATE 3, 1
 PRINT "      Planes 21-30 (Profit or loss)."
 PRINT "      -----------------------------"

73310 ql% = 1
 num% = 6

 IF efc%(ql%) = 0 THEN
 PRINT CHR$(28)
 GOTO 73501
 END IF

73111 GOTO 73400

73315 LOCATE 7, 12
 PRINT "Plane"
 LOCATE 7, 22
 PRINT "Profit & Loss"
 LOCATE 7, 38
 PRINT "Money left"

73320 RANDOMIZE TIMER
73321 wo% = (INT(600) * RND) + 1
  usda% = wo% - (cuc%(ql%) * 2)
  usdb% = usda% + (efc%(ql%) * 4)
  usdc% = usdb% + (pgc%(ql%) / 5)
  usd& = usd& + usdc%

 IF voc%(ql%) = 300 THEN
 usde% = 300
 usd& = usd& - usde%
 END IF

 IF voc%(ql%) = 40 THEN
 usde% = 40 * infb
 usd& = usd& - usde%
 END IF

 IF voc%(ql%) = 30 THEN
 usde% = 30 * infb
 usd& = usd& - usde%
 END IF

 LOCATE ql% + 9, 11
 PRINT (ql% + 20)

 LOCATE ql% + 9, 21
 PRINT usdc% - usde%

 LOCATE ql% + 9, 37
 PRINT usd&

73322 ql% = ql% + 1

 IF ql% = 11 THEN
 LOCATE 21, 1
 PRINT "   You have got all 30 planes."
 GOTO 73500
 END IF

 IF efc%(ql%) = 0 THEN
 LOCATE 21, 1
 PRINT "    No more planes so far..."
 GOTO 73500

 ELSE
 GOTO 73321
 END IF

73400 LOCATE 6, 10
 PRINT CHR$(218)
 LOCATE 6, 51
 PRINT CHR$(191)
 sky% = 6
 skx% = 11

73422 LOCATE sky%, skx%
 PRINT CHR$(196)
 IF skx% = 50 THEN
 GOTO 73425

 ELSE
 skx% = skx% + 1
 GOTO 73422
 END IF

73425 LOCATE 7, 10
 PRINT CHR$(179)
 LOCATE 7, 20
 PRINT CHR$(179)
 LOCATE 7, 36
 PRINT CHR$(179)
 LOCATE 7, 51
 PRINT CHR$(179)

73430 LOCATE 8, 10
 PRINT CHR$(192)
 LOCATE 8, 51
 PRINT CHR$(217)
 sky% = 8
 skx% = 11

73432 LOCATE sky%, skx%
 PRINT CHR$(196)
 IF skx% = 50 THEN
 GOTO 73435

 ELSE
 skx% = skx% + 1
 GOTO 73432
 END IF

73435 LOCATE 6, 20
 PRINT CHR$(194)
 LOCATE 8, 20
 PRINT CHR$(193)
 LOCATE 6, 36
 PRINT CHR$(194)
 LOCATE 8, 36
 PRINT CHR$(193)

73440 LOCATE 9, 10
 PRINT CHR$(218)
 LOCATE 9, 51
 PRINT CHR$(191)
 sky% = 9
 skx% = 11

73442 LOCATE sky%, skx%
 PRINT CHR$(196)
 IF skx% = 50 THEN
 GOTO 73445

 ELSE
 skx% = skx% + 1
 GOTO 73442
 END IF

73445 sky% = 10
 skx% = 10

73446 LOCATE sky%, skx%
 PRINT CHR$(179)
 IF sky% = 20 THEN
 GOTO 73450

 ELSE
 sky% = sky% + 1
 GOTO 73446
 END IF

73450 sky% = 10
 skx% = 20

73451 LOCATE sky%, skx%
 PRINT CHR$(179)
 IF sky% = 20 THEN
 GOTO 73455

 ELSE
 sky% = sky% + 1
 GOTO 73451
 END IF

73455 sky% = 10
 skx% = 36

73456 LOCATE sky%, skx%
 PRINT CHR$(179)
 IF sky% = 20 THEN
 GOTO 73460

 ELSE
 sky% = sky% + 1
 GOTO 73456
 END IF

73460 sky% = 10
 skx% = 51

73461 LOCATE sky%, skx%
 PRINT CHR$(179)
 IF sky% = 20 THEN
 GOTO 73470

 ELSE
 sky% = sky% + 1
 GOTO 73461
 END IF

73470 LOCATE 20, 10
 PRINT CHR$(192)
 LOCATE 20, 51
 PRINT CHR$(217)
 sky% = 20
 skx% = 11

73472 LOCATE sky%, skx%
 PRINT CHR$(196)
 IF skx% = 50 THEN
 GOTO 73475

 ELSE
 skx% = skx% + 1
 GOTO 73472
 END IF

73475 LOCATE 9, 20
 PRINT CHR$(194)
 LOCATE 20, 20
 PRINT CHR$(193)
 LOCATE 9, 36
 PRINT CHR$(194)
 LOCATE 20, 36
 PRINT CHR$(193)

73480 IF num% = 1 THEN
 GOTO 72115
 END IF

 IF num% = 2 THEN
 GOTO 72215
 END IF

 IF num% = 3 THEN
 GOTO 72315
 END IF

 IF num% = 4 THEN
 GOTO 73116
 END IF

 IF num% = 5 THEN
 GOTO 73215
 END IF

 IF num% = 6 THEN
 GOTO 73315
 END IF


73500 LOCATE 24, 1
 PRINT "   Press SPACE."
 SLEEP 0

73501 IF usd& < 0 THEN
 PRINT CHR$(28)
 PRINT "   You are out of money..."
 SLEEP 1
 CLS
 GOTO 80020
 END IF

73502 rr% = rr% + 1

 IF diff% = 1 THEN
 inf = inf + (inf / 100)
 infa% = inf * 100
 infb = infa% / 100
 END IF

 IF diff% = 2 THEN
 inf = inf + (inf / 71)
 infa% = inf * 100
 infb = infa% / 100
 END IF

 IF diff% = 3 THEN
 inf = inf + (inf / 64)
 infa% = inf * 100
 infb = infa% / 100
 END IF

73503 tt& = tt& + rr%
 usd& = usd& + (usd& / 100)
 sc& = usd& + tt&
 ann% = ann% + 4
 GOTO 73600

73600 IF ann% > 20979 THEN
 GOTO 80010

 ELSE
 GOTO 71003
 END IF


74000 CLS
 PRINT CHR$(28)
 INPUT "  Give plane number (1-30) "; in%

 IF in% > 0 AND in% < 31 THEN
 GOTO 74010

 ELSE
 PRINT CHR$(28)
 PRINT "   Impossible."
 SLEEP 1
 GOTO 74000
 END IF

74010 IF in% > 20 THEN
 GOTO 74300
 END IF

 IF in% > 10 THEN
 GOTO 74200
 END IF

74100 PRINT CHR$(28)

 IF efa%(in%) = 0 THEN
 PRINT CHR$(28)
 PRINT "  You have no such plane."
 SLEEP 1
 GOTO 71003
 END IF

 IF efa%(in%) = 64 THEN
 PRINT "  DC-4."
 GOTO 74110
 END IF

 IF efa%(in%) = 66 THEN
 PRINT "  DC-6."
 GOTO 74110
 END IF

 IF efa%(in%) = 105 THEN
 PRINT "  DC-7."
 GOTO 74110
 END IF

 IF efa%(in%) = 20 THEN
 PRINT "  B-707-120."
 GOTO 74110
 END IF

 IF efa%(in%) = 40 THEN
 PRINT "  DC-8."
 GOTO 74110
 END IF

 IF efa%(in%) = 28 THEN
 PRINT "  B-727-100."
 GOTO 74110
 END IF

 IF efa%(in%) = 36 THEN
 PRINT "  B-727-200."
 GOTO 74110
 END IF

 IF efa%(in%) = 70 THEN
 PRINT "  DC-10-10."
 GOTO 74110
 END IF

 IF efa%(in%) = 58 THEN
 PRINT "  DC-10-30."
 GOTO 74110
 END IF

 IF efa%(in%) = 68 THEN
 PRINT "  L-1011-500."
 GOTO 74110
 END IF

 IF efa%(in%) = 60 THEN
 PRINT "  B-737-200."
 GOTO 74110
 END IF

 IF efa%(in%) = 92 THEN
 PRINT "  B-737-900."
 GOTO 74110
 END IF

 IF efa%(in%) = 100 THEN
 PRINT "  B-757."
 GOTO 74110
 END IF

 IF efa%(in%) = 110 THEN
 PRINT "  B-767-400."
 GOTO 74110
 END IF

 IF efa%(in%) = 120 THEN
 PRINT "  A-310."
 GOTO 74110
 END IF

 IF efa%(in%) = 98 THEN
 PRINT "  A-320."
 GOTO 74110
 END IF

 IF efa%(in%) = 94 THEN
 PRINT "  B-777-300."
 GOTO 74110
 END IF

 IF efa%(in%) = 112 THEN
 PRINT "  B-787-9."
 GOTO 74110
 END IF

 IF efa%(in%) = 124 THEN
 PRINT "  A-350-1000."
 GOTO 74110
 END IF

 IF efa%(in%) = 162 THEN
 PRINT "  A-321-LR."
 GOTO 74110
 END IF

 IF efa%(in%) = 80 THEN
 PRINT "  MD-11."
 GOTO 74110
 END IF


74110 IF rpa%(in%) < 2 THEN
 GOTO 74112

 ELSE
 PRINT CHR$(28)
 PRINT "   The plane has already been repaired twice."
 SLEEP 1
 GOTO 71003
 END IF

74112 PRINT CHR$(28)
 PRINT "   Accident rate now: "; ara%(in%) - rr%
 PRINT CHR$(28)
 PRINT "   Do you want to make a total inspection/repair?"
 PRINT CHR$(28)
 PRINT "   It improves the accident rate by: "; rr%; "points."
 PRINT CHR$(28)
 PRINT "   You can do it only twice."
 PRINT CHR$(28)

 rep& = 500 * infb

 PRINT "   It costs: "; rep&
 PRINT CHR$(28)

74114 INPUT "  Type (y/n) "; a$

 IF a$ = "y" THEN
 GOTO 74120
 END IF

 IF a$ = "n" THEN
 GOTO 71003

 ELSE
 PRINT CHR$(28)
 PRINT "   Out of range."
 SLEEP 1
 GOTO 74114
 END IF

74120 IF usd& < rep& THEN
 PRINT CHR$(28)
 PRINT "   You don't have enough money."
 GOTO 71000
 END IF

74130 ara%(in%) = ara%(in%) + rr%
 usd& = usd& - rep&
 rpa%(in%) = rpa%(in%) + 1
 PRINT CHR$(28)
 PRINT "   Engines dismantled & built again."
 PRINT CHR$(28)
 PRINT "   Improved accident rate: "; ara%(in%) - rr%
 GOTO 71000


74200 PRINT CHR$(28)

 IF efb%(in% - 10) = 0 THEN
 PRINT CHR$(28)
 PRINT "  You have no such plane."
 SLEEP 1
 GOTO 71003
 END IF

 IF efb%(in% - 10) = 64 THEN
 PRINT "  DC-4."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 66 THEN
 PRINT "  DC-6."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 105 THEN
 PRINT "  DC-7."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 20 THEN
 PRINT "  B-707-120."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 40 THEN
 PRINT "  DC-8."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 28 THEN
 PRINT "  B-727-100."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 36 THEN
 PRINT "  B-727-200."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 70 THEN
 PRINT "  DC-10-10."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 58 THEN
 PRINT "  DC-10-30."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 68 THEN
 PRINT "  L-1011-500."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 60 THEN
 PRINT "  B-737-200."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 92 THEN
 PRINT "  B-737-900."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 100 THEN
 PRINT "  B-757."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 110 THEN
 PRINT "  B-767-400."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 120 THEN
 PRINT "  A-310."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 98 THEN
 PRINT "  A-320."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 94 THEN
 PRINT "  B-777-300."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 112 THEN
 PRINT "  B-787-9."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 124 THEN
 PRINT "  A-350-1000."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 162 THEN
 PRINT "  A-321-LR."
 GOTO 74210
 END IF

 IF efb%(in% - 10) = 80 THEN
 PRINT "  MD-11."
 GOTO 74210
 END IF

74210 IF rpb%(in% - 10) < 2 THEN
 GOTO 74212

 ELSE
 PRINT CHR$(28)
 PRINT "   The plane has already been repaired twice."
 SLEEP 1
 GOTO 71003
 END IF

74212 PRINT CHR$(28)
 PRINT "   Accident rate now: "; arb%(in% - 10) - rr%
 PRINT CHR$(28)
 PRINT "   Do you want to make a total inspection/repair?"
 PRINT CHR$(28)
 PRINT "   It improves the accident rate by: "; rr%; "points."
 PRINT CHR$(28)
 PRINT "   You can do it only twice."
 PRINT CHR$(28)

 rep& = 500 * infb

 PRINT "   It costs: "; rep&
 PRINT CHR$(28)

74214 INPUT "  Type (y/n) "; a$

 IF a$ = "y" THEN
 GOTO 74220
 END IF

 IF a$ = "n" THEN
 GOTO 71003

 ELSE
 PRINT CHR$(28)
 PRINT "   Out of range."
 SLEEP 1
 GOTO 74214
 END IF

74220 IF usd& < rep& THEN
 PRINT CHR$(28)
 PRINT "   You don't have enough money."
 SLEEP 1
 GOTO 71003
 END IF

74230 arb%(in% - 10) = arb%(in% - 10) + rr%
 usd& = usd& - rep&
 rpb%(in% - 10) = rpb%(in% - 10) + 1
 PRINT CHR$(28)
 PRINT "   Engines dismantled & built again."
 PRINT CHR$(28)
 PRINT "  Improved accident rate: "; arb%(in% - 10) - rr%
 GOTO 71000


74300 PRINT CHR$(28)

 IF efc%(in% - 20) = 0 THEN
 PRINT CHR$(28)
 PRINT "  You have no such plane."
 SLEEP 1
 GOTO 71003
 END IF

 IF efc%(in% - 20) = 64 THEN
 PRINT "  DC-4."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 66 THEN
 PRINT "  DC-6."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 105 THEN
 PRINT "  DC-7."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 20 THEN
 PRINT "  B-707-120."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 40 THEN
 PRINT "  DC-8."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 28 THEN
 PRINT "  B-727-100."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 36 THEN
 PRINT "  B-727-200."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 70 THEN
 PRINT "  DC-10-10."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 58 THEN
 PRINT "  DC-10-30."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 68 THEN
 PRINT "  L-1011-500."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 60 THEN
 PRINT "  B-737-200."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 92 THEN
 PRINT "  B-737-900."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 100 THEN
 PRINT "  B-757."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 110 THEN
 PRINT "  B-767-400."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 120 THEN
 PRINT "  A-310."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 98 THEN
 PRINT "  A-320."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 94 THEN
 PRINT "  B-777-300."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 112 THEN
 PRINT "  B-787-9."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 124 THEN
 PRINT "  A-350-1000."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 162 THEN
 PRINT "  A-321-LR."
 GOTO 74310
 END IF

 IF efc%(in% - 20) = 80 THEN
 PRINT "  MD-11."
 GOTO 74310
 END IF

74310 IF rpc%(in% - 20) < 2 THEN
 GOTO 74312

 ELSE
 PRINT CHR$(28)
 PRINT "   The plane has already been repaired twice."
 SLEEP 1
 GOTO 71003
 END IF

74312 PRINT CHR$(28)
 PRINT "   Accident rate now: "; arc%(in% - 20) - rr%
 PRINT CHR$(28)
 PRINT "   Do you want to make a total inspection/repair?"
 PRINT CHR$(28)
 PRINT "   It improves the accident rate by: "; rr%; "points."
 PRINT CHR$(28)
 PRINT "   You can do it only twice."
 PRINT CHR$(28)

 rep& = 500 * infb

 PRINT "   It costs: "; rep&
 PRINT CHR$(28)

74314 INPUT "  Type (y/n) "; a$

 IF a$ = "y" THEN
 GOTO 74320
 END IF

 IF a$ = "n" THEN
 GOTO 71003

 ELSE
 PRINT CHR$(28)
 PRINT "   Out of range."
 SLEEP 1
 GOTO 74314
 END IF

74320 IF usd& < rep& THEN
 PRINT CHR$(28)
 PRINT "   You don't have enough money."
 SLEEP 1
 GOTO 71003
 END IF

74330 arc%(in% - 20) = arc%(in% - 20) + rr%
 usd& = usd& - rep&
 rpc%(in% - 20) = rpc%(in% - 20) + 1
 PRINT CHR$(28)
 PRINT "   Engines dismantled & built again."
 PRINT CHR$(28)
 PRINT "   Improved accident rate: "; arc%(in% - 20) - rr%
 GOTO 71000


75000 CLS
 PRINT CHR$(28)
 INPUT "  Give plane number (1-30) "; in%

 IF in% > 0 AND in% < 31 THEN
 GOTO 75010

 ELSE
 PRINT CHR$(28)
 PRINT "   Impossible."
 SLEEP 1
 GOTO 75000
 END IF

75010 IF in% > 20 THEN
 GOTO 75300
 END IF

 IF in% > 10 THEN
 GOTO 75200
 END IF


75100 PRINT CHR$(28)

 IF efa%(in%) = 0 THEN
 PRINT CHR$(28)
 PRINT "  You must buy a plane first."
 PRINT CHR$(28)
 PRINT "  With number: "; in%
 GOTO 71000
 END IF

75101 CLS
 PRINT CHR$(28)
 PRINT "  You have two choices: "
 PRINT CHR$(28)
 PRINT "  1 - MD-11         30,000k USD  -  Year:  1990."
 PRINT "  2 - A-350-1000    40,000k USD  -  Year:  2017."
 PRINT CHR$(28)
 PRINT CHR$(28)
 INPUT "  Type '1' or '2'  "; a$

 IF a$ = "1" THEN
 GOTO 75110
 END IF

 IF a$ = "2" THEN
 GOTO 75120
 
 ELSE
 PRINT CHR$(28)
 PRINT "   Out of Range."
 SLEEP 1
 GOTO 75101
 END IF

75110 IF usd& < 30000 THEN
 PRINT CHR$(28)
 PRINT "  You need 30000k USD."
 GOTO 71000
 END IF

 IF efa%(in%) = 80 THEN
 PRINT CHR$(28)
 PRINT "  You already have this plane."
 GOTO 71000
 END IF

 IF ann% > 19899 THEN
 GOTO 75111

 ELSE
 PRINT CHR$(28)
 PRINT "  You must wait until the year 1990."
 GOTO 71000
 END IF

75111 usd& = usd& - 30000

 dmp& = 200 * infb

 IF dmp& > 10000 THEN
 dmp& = 10000
 END IF

 usd& = usd& + dmp&
 efa%(in%) = 80
 ara%(in%) = 2800
 pga%(in%) = 410
 cua%(in%) = 1
 rpa%(in%) = 0

 PRINT CHR$(28)
 PRINT "   For scrap metal (thousand USD): "; dmp&

 PRINT CHR$(28)
 PRINT CHR$(28)
 PRINT "  You have now MD-11."
 PRINT "  Travel:  15,500 km."
 PRINT "  Fuel Consumption:  2.86 L."
 GOTO 71000

75120 IF usd& < 40000 THEN
 PRINT CHR$(28)
 PRINT "  You need 40000k USD."
 GOTO 71000
 END IF

 IF efa%(in%) = 124 THEN
 PRINT CHR$(28)
 PRINT "  You already have this plane."
 GOTO 71000
 END IF

 IF ann% > 20169 THEN
 GOTO 75121

 ELSE
 PRINT CHR$(28)
 PRINT "  You must wait until the year 2017."
 GOTO 71000
 END IF

75121 usd& = usd& - 40000

 dmp& = 200 * infb

 IF dmp& > 10000 THEN
 dmp& = 10000
 END IF

 usd& = usd& + dmp&
 efa%(in%) = 124
 ara%(in%) = 4100
 pga%(in%) = 480
 cua%(in%) = 1
 rpa%(in%) = 0

 PRINT CHR$(28)
 PRINT "   For scrap metal (thousand USD): "; dmp&

 PRINT CHR$(28)
 PRINT CHR$(28)
 PRINT "  You have now A-350-1000."
 PRINT "  Travel:  16,010 km."
 PRINT "  Fuel Consumption:  2.06 L."
 GOTO 71000


75200 PRINT CHR$(28)

 IF efb%(in% - 10) = 0 THEN
 PRINT "  You must buy a plane first."
 PRINT CHR$(28)
 PRINT "  With number: "; in%
 GOTO 71000
 END IF

75201 CLS
 PRINT CHR$(28)
 PRINT "  You have two choices: "
 PRINT CHR$(28)
 PRINT "  1 - MD-11         30,000k USD  -  Year:  1990."
 PRINT "  2 - A-350-1000    40,000k USD  -  Year:  2017."
 PRINT CHR$(28)
 PRINT CHR$(28)
 INPUT "  Type '1' or '2'  "; a$

 IF a$ = "1" THEN
 GOTO 75210
 END IF

 IF a$ = "2" THEN
 GOTO 75220

 ELSE
 PRINT CHR$(28)
 PRINT "   Out of Range."
 SLEEP 1
 GOTO 75201
 END IF

75210 IF usd& < 30000 THEN
 PRINT CHR$(28)
 PRINT "  You need 30000k USD."
 GOTO 71000
 END IF

 IF efb%(in% - 10) = 80 THEN
 PRINT CHR$(28)
 PRINT "  You already have this plane."
 GOTO 71000
 END IF

 IF ann% > 19899 THEN
 GOTO 75211

 ELSE
 PRINT CHR$(28)
 PRINT "  You must wait until the year 1990."
 GOTO 71000
 END IF

75211 usd& = usd& - 30000

 dmp& = 200 * infb

 IF dmp& > 10000 THEN
 dmp& = 10000
 END IF

 usd& = usd& + dmp&
 efb%(in% - 10) = 80
 arb%(in% - 10) = 2800
 pgb%(in% - 10) = 410
 cub%(in% - 10) = 1
 rpb%(in% - 10) = 0

 PRINT CHR$(28)
 PRINT "   For scrap metal (thousand USD): "; dmp&

 PRINT CHR$(28)
 PRINT CHR$(28)
 PRINT "  You have now MD-11."
 PRINT "  Travel:  15,500 km."
 PRINT "  Fuel Consumption:  2.86 L."
 GOTO 71000

75220 IF usd& < 40000 THEN
 PRINT CHR$(28)
 PRINT "  You need 40000k USD."
 GOTO 71000
 END IF

 IF efb%(in% - 10) = 124 THEN
 PRINT CHR$(28)
 PRINT "  You already have this plane."
 GOTO 71000
 END IF

 IF ann% > 20169 THEN
 GOTO 75221

 ELSE
 PRINT CHR$(28)
 PRINT "  You must wait until the year 2017."
 GOTO 71000
 END IF

75221 usd& = usd& - 40000

 dmp& = 200 * infb

 IF dmp& > 10000 THEN
 dmp& = 10000
 END IF

 usd& = usd& + dmp&
 efb%(in% - 10) = 124
 arb%(in% - 10) = 4100
 pgb%(in% - 10) = 480
 cub%(in% - 10) = 1
 rpb%(in% - 10) = 0

 PRINT CHR$(28)
 PRINT "   For scrap metal (thousand USD): "; dmp&

 PRINT CHR$(28)
 PRINT CHR$(28)
 PRINT "  You have now A-350-1000."
 PRINT "  Travel:  16,010 km."
 PRINT "  Fuel Consumption:  2.06 L."
 GOTO 71000


75300 PRINT CHR$(28)

 IF efc%(in% - 20) = 0 THEN
 PRINT "  You must buy a plane first."
 PRINT CHR$(28)
 PRINT "  With number: "; in%
 GOTO 71000
 END IF

75301 CLS
 PRINT CHR$(28)
 PRINT "  You have two choices: "
 PRINT CHR$(28)
 PRINT "  1 - MD-11         30,000k USD  -  Year:  1990."
 PRINT "  2 - A-350-1000    40,000k USD  -  Year:  2017."
 PRINT CHR$(28)
 PRINT CHR$(28)
 INPUT "  Type '1' or '2'  "; a$

 IF a$ = "1" THEN
 GOTO 75310
 END IF

 IF a$ = "2" THEN
 GOTO 75320

 ELSE
 PRINT CHR$(28)
 PRINT "   Out of Range."
 SLEEP 1
 GOTO 75301
 END IF

75310 IF usd& < 30000 THEN
 PRINT CHR$(28)
 PRINT "  You need 30000k USD."
 GOTO 71000
 END IF

 IF efc%(in% - 20) = 80 THEN
 PRINT CHR$(28)
 PRINT "  You already have this plane."
 GOTO 71000
 END IF

 IF ann% > 19899 THEN
 GOTO 75311

 ELSE
 PRINT CHR$(28)
 PRINT "  You must wait until the year 1990."
 GOTO 71000
 END IF

75311 usd& = usd& - 30000

 dmp& = 200 * infb

 IF dmp& > 10000 THEN
 dmp& = 10000
 END IF

 usd& = usd& + dmp&
 efc%(in% - 20) = 80
 arc%(in% - 20) = 2800
 pgc%(in% - 20) = 410
 cuc%(in% - 20) = 1
 rpc%(in% - 20) = 0

 PRINT CHR$(28)
 PRINT "   For scrap metal (thousand USD): "; dmp&

 PRINT CHR$(28)
 PRINT CHR$(28)
 PRINT "  You have now MD-11."
 PRINT "  Travel:  15,500 km."
 PRINT "  Fuel Consumption:  2.86 L."
 GOTO 71000

75320 IF usd& < 40000 THEN
 PRINT CHR$(28)
 PRINT "  You need 40000k USD."
 GOTO 71000
 END IF

 IF efc%(in% - 20) = 124 THEN
 PRINT CHR$(28)
 PRINT "  You already have this plane."
 GOTO 71000
 END IF

 IF ann% > 20169 THEN
 GOTO 75310

 ELSE
 PRINT CHR$(28)
 PRINT "  You must wait until the year 2017."
 GOTO 71000
 END IF

75321 usd& = usd& - 40000

 dmp& = 200 * infb

 IF dmp& > 10000 THEN
 dmp& = 10000
 END IF

 usd& = usd& + dmp&
 efc%(in% - 20) = 124
 arc%(in% - 20) = 4100
 pgc%(in% - 20) = 480
 cuc%(in% - 20) = 1
 rpc%(in% - 20) = 0

 PRINT CHR$(28)
 PRINT "   For scrap metal (thousand USD): "; dmp&

 PRINT CHR$(28)
 PRINT CHR$(28)
 PRINT "  You have now A-350-1000."
 PRINT "  Travel:  16,010 km."
 PRINT "  Fuel Consumption:  2.06 L."
 GOTO 71000

76000 CLS
 PRINT CHR$(28)
 PRINT "   In the year 2000 Soviet Air Transport made a plan"
 PRINT "   to begin to fly to four holiday destinations for"
 PRINT "   travellers mainly from Europe and North America."
 PRINT CHR$(28)
 PRINT "   These routes are:"
 PRINT CHR$(28)
 PRINT "    - Goa, India                   Plane:  B-757."
 PRINT "    - Denpasar, Bali, Indonesia    Plane:  B-767."
 PRINT "    - Phuket, Thailand             Plane:  B-777."
 PRINT "    - Ishigaki, Okinawa, Japan     Plane:  B-767."
 PRINT CHR$(28)
 PRINT "   Total cost:  102,000k USD."
 PRINT CHR$(28)

76010 IF ann% > 19999 THEN
 GOTO 76020

 ELSE
 PRINT "   Year 2000 has not come yet."
 GOTO 71000
 END IF

76020 IF lev% = 26 THEN
 GOTO 76030

 ELSE
 PRINT "   You must first have all other routes (A to Z)."
 GOTO 71000
 END IF

76030 IF usd& > 102000 THEN
 GOTO 76040

 ELSE
 PRINT "   You don't have enough money."
 GOTO 71000
 END IF

76040 PRINT "   You have now total 30 flights."
 efc%(7) = 100
 arc%(7) = 3200
 pgc%(7) = 295
 voc%(7) = 30
 cuc%(7) = 1

 efc%(8) = 110
 arc%(8) = 3200
 pgc%(8) = 400
 voc%(8) = 30
 cuc%(8) = 1

 efc%(9) = 94
 arc%(9) = 3800
 pgc%(9) = 550
 voc%(9) = 30
 cuc%(9) = 1

 efc%(10) = 100
 arc%(10) = 3200
 pgc%(10) = 295
 voc%(10) = 30
 cuc%(10) = 1

 lev% = 30
 usd& = usd& - 102000
 GOTO 71000

80000 SLEEP 2
 CLS
 PRINT CHR$(28)
 PRINT "         ================================"
 PRINT "         =                              ="
 PRINT "         =          Plane Crash         ="
 PRINT "         =                              ="
 PRINT "         ================================"
 PRINT CHR$(28)
 PRINT CHR$(28)
 PRINT "     All passengers perished."
 PRINT CHR$(28)
 PRINT "     Your licence has been removed."
 PRINT CHR$(28)

 cmp& = (20000 * infb) / diff%

 PRINT "     You have to pay compensations: "; cmp&
 usd& = usd& - cmp&
 sc& = sc& - cmp&
 GOTO 80020

80010 SLEEP 1
 CLS
 PRINT CHR$(28)
 PRINT "         ================================"
 PRINT "         =                              ="
 PRINT "         =           Game Over          ="
 PRINT "         =                              ="
 PRINT "         ================================"
 PRINT CHR$(28)
 PRINT CHR$(28)
 PRINT "     You sold the Company / The time has expired."
 PRINT CHR$(28)
 PRINT "     You did great job."
 PRINT CHR$(28)

80011 IF lev% = 30 THEN
 PRINT "    You got all 30 routes."
 PRINT CHR$(28)
 PRINT "    Extra bonus: 50,000 points."
 sc& = sc& + 50000
 GOTO 80020
 END IF

 IF ann% > 20979 THEN
 GOTO 80012

 ELSE
 GOTO 80020
 END IF

80012 SLEEP 2
 CLS
 PRINT CHR$(28)
 PRINT CHR$(28)
 PRINT "    You have attained to the year 2098."
 PRINT CHR$(28)
 PRINT "    The globe has been deteriorated to the point..."
 PRINT "    There is no need for a civilian commercial airline."
 PRINT CHR$(28)

80014 IF jump% = 1 THEN
 GOTO 80018
 END IF

80016 PRINT "    Extra bonus: 500,000 points."
 sc& = sc& + 500000
 GOTO 80020

80018 PRINT "    No extra bonus (you jumped)."

80020  PRINT CHR$(28)

 dmp& = 200 * infb

 IF dmp& > 10000 THEN
 dmp& = 10000
 END IF

 PRINT "    From planes you get: "; dmp& * lev%
 usd& = usd& + (dmp& * lev%)
 sc& = sc& + (dmp& * lev%)
 PRINT CHR$(28)
 PRINT "    You earned money (1,000k): "; usd&
 PRINT CHR$(28)
 PRINT "    Score: "; (sc& + tt&) * diff%

 PRINT CHR$(28)
 PRINT CHR$(28)
 GOTO 81000

81000 INPUT "    Do you want to play again (y/n)  "; a$

 IF a$ = "y" THEN
 GOTO 81010
 END IF

 IF a$ = "n" THEN
 GOTO 81020

 ELSE
 GOTO 81000
 END IF

81010 RUN

81020 END