https://htmleditor.online/
---------------------------------------
10 REM ** PELI ALKAA **
11 REM ** Qbasic source code **
12 COLOR 7, 1
14 CLS
18 PRINT CHR$(28)
20 PRINT " ======================="
21 PRINT " = ="
22 PRINT " = Airline ="
23 PRINT " = ="
24 PRINT " ======================="
25 PRINT CHR$(28)
100 PRINT " Welcome to Belorussian airline 'Sibir Airways'."
102 PRINT CHR$(28)
103 PRINT " This is probably the worst game in human history."
104 PRINT " The idea is taken from 'High Flyer' (Commodore 64)"
105 PRINT " created in 1983. In this game you are the Company's"
106 PRINT " president Boris Vladimirov, later his son, Sergei."
107 PRINT CHR$(28)
108 PRINT " The year is 1984."
109 PRINT CHR$(28)
110 PRINT " Sibir Airways has only one plane, A-310 and only one"
111 PRINT " route: Minsk - Moscow. Your job is to run the company,"
112 PRINT " Make profit, buy new planes, proceed to next year, and"
113 PRINT " if you are lucky, you will reach the final year: 2084."
114 PRINT " It is end of the world."
115 PRINT CHR$(28)
117 PRINT " Press SPACE"
118 SLEEP 0
120 CLS
121 PRINT CHR$(28)
122 PRINT " There are eight levels:"
123 PRINT CHR$(28)
130 PRINT " Level 1: Minsk - Moscow"
131 PRINT " Level 2: Minsk - Novosibirsk"
132 PRINT " Level 3: Minsk - St. Petersburg"
133 PRINT " Level 4: Minsk - Vladivostok"
134 PRINT " Level 5: Minsk - Beijing"
135 PRINT " Level 6: Minsk - Shanghai"
136 PRINT " Level 7: Minsk - Ulan Bator"
137 PRINT " Level 8: Minsk - Tokyo"
140 PRINT CHR$(28)
150 PRINT " DC-6 has the highest risk of plane crash, 1/310"
151 PRINT " and it grows every year. A-350 is the most safe,"
152 PRINT " 1/900 but it is also the most expensive, plane,"
153 PRINT " but also the most fuel efficient, which increases"
154 PRINT " your profit. You can buy a new plane and route as"
155 PRINT " soon as you have enough money but you can also"
156 PRINT " wait until you have money for a better plane."
160 PRINT CHR$(28)
162 PRINT " Press SPACE"
163 SLEEP 0
200 CLS
202 PRINT CHR$(28)
204 PRINT " SAFETY AND FUEL CONSUMPTION VALUE BY PLANE"
205 PRINT CHR$(28)
207 PRINT " Plane (za ... zh) (efa ... efh)"
209 PRINT " -------------------------------------"
211 PRINT " A-310: 760 110"
212 PRINT " DC-6: 310 50"
213 PRINT " DC-7: 370 70"
214 PRINT " B-707: 450 10"
215 PRINT " DC-8: 490 40"
216 PRINT " DC-9: 550 60"
217 PRINT " B-727: 600 30"
218 PRINT " B-737: 700 100"
219 PRINT " B-757: 750 120"
220 PRINT " B-777: 840 90"
221 PRINT " A-350: 900 130"
230 PRINT CHR$(28)
232 PRINT " Press SPACE"
233 SLEEP 0
310 CLS
311 PRINT CHR$(28)
312 PRINT " I chose year 1984 because A-310 was introduced that year"
313 PRINT " and it was probably the most safe and fuel saving plane"
314 PRINT " of the time. And it has highest change to stay alive for"
315 PRINT " hundred years, if you decide to play so long. In this"
316 PRINT " version, you can't sell the plane once you have purchased"
317 PRINT " it (very limited options at level eight). It remains"
318 PRINT " mystery how you were able to create a competitor to State"
319 PRINT " owned Aeroflot in Juri Andropov's USSR and from where"
320 PRINT " you got money for such modern plane. Foreign investor?"
321 PRINT CHR$(28)
322 PRINT " You can find original 'High Flyer' from YouTube. Try to"
323 PRINT " Google - HIGH FLYER COMMODORE 64."
324 PRINT CHR$(28)
325 PRINT " Created by: Pasi Toivonen, Mänttä-Vilppula, Finland."
326 PRINT " Email: hurricaneharvey64@gmail.com."
327 PRINT CHR$(28)
333 PRINT " CHOOSE LEVEL"
340 PRINT CHR$(28)
341 PRINT " 1 - Novice (profit up to 980k USD)"
342 PRINT " 2 - Advanced (profit up to 780k USD)"
343 PRINT " 3 - Expert (profit up to 680k USD)"
344 PRINT CHR$(28)
350 INPUT " Type '1' to '3' ", t%
351 IF t% = 1 THEN
GOTO 400
END IF
352 IF t% = 2 THEN
GOTO 500
END IF
353 IF t% = 3 THEN
GOTO 600
354 ELSE
PRINT "Out of range."
GOTO 344
355 END IF
400 la% = 850
401 lb% = 350
402 GOTO 900
500 la% = 650
501 lb% = 400
502 GOTO 900
600 la% = 550
601 lb% = 450
602 GOTO 900
900 CLS
901 PRINT CHR$(28)
902 PRINT " Do you want normal or reduced accident rate?"
903 PRINT CHR$(28)
904 PRINT " 1 - Normal"
905 PRINT " 2 - Reduced (50% off)"
910 PRINT CHR$(28)
911 INPUT " Type '1' or '2' ", t%
912 IF t% = 1 THEN
ac% = 1
GOTO 1000
END IF
913 IF t% = 2 THEN
ac% = 2
GOTO 1000
915 ELSE
PRINT "Out of range."
GOTO 910
916 END IF
998 REM Taso 1: One Route
1000 SLEEP 1
1010 za% = 760 * ac%
1011 r% = 0
1012 ann% = 19840
1013 usd& = 2100
1014 efa% = 110
1020 SLEEP 1
1021 CLS
1022 PRINT CHR$(28)
1023 PRINT " ============"
1024 PRINT " = LEVEL 1 ="
1025 PRINT " ============"
1026 PRINT CHR$(28)
1027 PRINT " Minsk - Moscow"
1028 PRINT CHR$(28)
1034 PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
1042 PRINT CHR$(28)
1100 PRINT " -----------------------------------------"
1105 PRINT " 1 - Buy DC-6 (1000 thousand USD)"
1110 PRINT " 2 - Buy DC-7 (3000 thousand USD)"
1115 PRINT " 3 - Buy B-707 (6000 thousand USD)"
1120 PRINT " 4 - Buy DC-8 (8000 thousand USD)"
1125 PRINT " 5 - Buy DC-9 (12000 thousand USD)"
1130 PRINT " 6 - Buy B-727 (14000 thousand USD)"
1135 PRINT " 7 - Buy B-737 (20000 thousand USD)"
1140 PRINT " 8 - Buy B-757 (22000 thousand USD)"
1160 PRINT " -----------------------------------------"
1170 PRINT " 9 - Proceed for 146 days ahead"
1180 PRINT " -----------------------------------------"
1182 PRINT CHR$(28)
1184 INPUT " Type '1' to '9' ", t%
1186 IF t% = 1 THEN
GOTO 1500
END IF
1187 IF t% = 2 THEN
GOTO 1600
END IF
1188 IF t% = 3 THEN
GOTO 1700
END IF
1189 IF t% = 4 THEN
GOTO 1800
END IF
1190 IF t% = 5 THEN
GOTO 1900
END IF
1191 IF t% = 6 THEN
GOTO 2000
END IF
1192 IF t% = 7 THEN
GOTO 2100
END IF
1193 IF t% = 8 THEN
GOTO 2200
END IF
1194 IF t% = 9 THEN
GOTO 1300
1195 ELSE
PRINT "Out of range."
GOTO 1182
1196 END IF
1300 CLS
1301 SLEEP 1
1302 RANDOMIZE TIMER
1303 zaa% = INT(RND * za%) + 1
1304 IF zaa% = 1 THEN
GOTO 92000
1305 ELSE
GOTO 1308
1307 END IF
1308 PRINT " A-110: No plane crash."
1309 PRINT " Risk was one per "; za%
1310 PRINT CHR$(28)
1311 SLEEP 1
1312 v% = INT(RND * 4) + 1
1314 IF v% = 1 THEN
GOTO 1330
1315 ELSE
GOTO 1320
1316 END IF
1320 REM Voittoa
1321 va% = INT(RND * la%) + 1
1322 vb% = va% + efa%
1324 PRINT CHR$(28)
1325 PRINT " You made profit (thousand USD): "; vb%
1327 usd& = usd& + vb%
1328 GOTO 1340
1330 REM Tappiota
1331 va% = INT(RND * lb%) + 150
1332 vb% = va% - efa%
1334 PRINT CHR$(28)
1335 PRINT " You made loss (thousand USD): "; vb%
1336 usd& = usd& - vb%
1337 IF usd& < 1 THEN
GOTO 93000
1338 ELSE
GOTO 1340
1339 END IF
1340 REM Want to quit?
1341 PRINT CHR$(28)
1342 PRINT " 1 - Quit"
1343 PRINT " 2 - Continue"
1344 PRINT CHR$(28)
1345 INPUT " Type '1' or '2' ", t%
1346 IF t% = 1 THEN
GOTO 94000
END IF
1347 IF t% = 2 THEN
GOTO 1360
1348 ELSE PRINT "Out of range."
GOTO 1341
1349 END IF
1360 PRINT "Please wait...."
1363 r% = r% + 1
1364 za% = za% - 1
1365 ann% = ann% + 4
1366 IF ann% > 20840 THEN
GOTO 94000
1367 ELSE
GOTO 1020
1369 END IF
1500 REM DC-6: Onko Rahaa?
1501 IF usd& < 2000 THEN
GOTO 1510
1502 ELSE
GOTO 1520
1503 END IF
1510 REM Rahaa ei ole
1511 PRINT CHR$(28)
1512 PRINT " Bank account must be over 2000k USD."
1517 GOTO 1020
1520 REM rahaa on ostat DC-6
1521 usd& = usd& - 1000
1523 zb% = (310 * ac%) - r%
1524 efb% = 50
1526 GOTO 3000
1600 REM DC-7: Onko Rahaa?
1601 IF usd& < 4000 THEN
GOTO 1610
1602 ELSE
GOTO 1620
1603 END IF
1610 REM Rahaa ei ole
1611 PRINT CHR$(28)
1612 PRINT " Bank account must be over 4000k USD."
1617 GOTO 1020
1620 REM rahaa on ostat DC-7
1621 usd& = usd& - 3000
1623 zb% = (370 * ac%) - r%
1624 efb% = 70
1626 GOTO 3000
1700 REM B-707: Onko Rahaa?
1701 IF usd& < 7000 THEN
GOTO 1710
1702 ELSE
GOTO 1720
1703 END IF
1710 REM Rahaa ei ole
1711 PRINT CHR$(28)
1712 PRINT " Bank account must be over 7000k USD."
1717 GOTO 1020
1720 REM rahaa on ostat B-707
1721 usd& = usd& - 6000
1723 zb% = (450 * ac%) - r%
1724 efb% = 10
1726 GOTO 3000
1800 REM DC-8: Onko Rahaa?
1801 IF usd& < 9000 THEN
GOTO 1810
1802 ELSE
GOTO 1820
1803 END IF
1810 REM Rahaa ei ole
1811 PRINT CHR$(28)
1812 PRINT " Bank account must be over 9000k USD."
1817 GOTO 1020
1820 REM rahaa on ostat DC-8
1821 usd& = usd& - 8000
1823 zb% = (490 * ac%) - r%
1824 efb% = 40
1826 GOTO 3000
1900 REM DC-9: Onko Rahaa?
1901 IF usd& < 13000 THEN
GOTO 1910
1902 ELSE
GOTO 1920
1903 END IF
1910 REM Rahaa ei ole
1911 PRINT CHR$(28)
1912 PRINT " Bank account must be over 13000k USD."
1917 GOTO 1020
1920 REM rahaa on ostat DC-9
1921 usd& = usd& - 12000
1923 zb% = (550 * ac%) - r%
1924 efb% = 60
1926 GOTO 3000
2000 REM B-727: Onko Rahaa?
2001 IF usd& < 15000 THEN
GOTO 2010
2002 ELSE
GOTO 2020
2003 END IF
2010 REM Rahaa ei ole
2011 PRINT CHR$(28)
2012 PRINT " Bank account must be over 15000k USD."
2017 GOTO 1020
2020 REM rahaa on ostat B-727
2021 usd& = usd& - 14000
2023 zb% = (600 * ac%) - r%
2024 efb% = 30
2026 GOTO 3000
2100 REM B-737: Onko Rahaa?
2101 IF usd& < 21000 THEN
GOTO 2110
2102 ELSE
GOTO 2120
2103 END IF
2110 REM Rahaa ei ole
2111 PRINT CHR$(28)
2112 PRINT " Bank account must be over 21000k USD."
2117 GOTO 1020
2120 REM rahaa on ostat B-737
2121 usd& = usd& - 20000
2123 zb% = (700 * ac%) - r%
2124 efb% = 100
2126 GOTO 3000
2200 REM B-757: Onko Rahaa?
2201 IF usd& < 23000 THEN
GOTO 2210
2202 ELSE
GOTO 2220
2203 END IF
2210 REM Rahaa ei ole
2211 PRINT CHR$(28)
2212 PRINT " Bank account must be over 23000k USD."
2217 GOTO 1020
2220 REM rahaa on ostat B-757
2221 usd& = usd& - 22000
2223 zb% = (750 * ac%) - r%
2224 efb% = 120
2226 GOTO 3000
2998 REM Taso 2: Two Routes
3000 SLEEP 1
3020 CLS
3021 PRINT CHR$(28)
3023 PRINT " ============"
3024 PRINT " = LEVEL 2 ="
3025 PRINT " ============"
3026 PRINT CHR$(28)
3027 PRINT " Minsk - Moscow"
3028 PRINT " Minsk - Novosibirsk"
3036 PRINT CHR$(28)
3037 PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
3038 PRINT CHR$(28)
3100 PRINT " -----------------------------------------"
3105 PRINT " 1 - Buy DC-6 (1000 thousand USD)"
3110 PRINT " 2 - Buy DC-7 (3000 thousand USD)"
3115 PRINT " 3 - Buy B-707 (6000 thousand USD)"
3120 PRINT " 4 - Buy DC-8 (8000 thousand USD)"
3125 PRINT " 5 - Buy DC-9 (12000 thousand USD)"
3130 PRINT " 6 - Buy B-727 (14000 thousand USD)"
3135 PRINT " 7 - Buy B-737 (20000 thousand USD)"
3140 PRINT " 8 - Buy B-757 (22000 thousand USD)"
3160 PRINT " -----------------------------------------"
3170 PRINT " 9 - Proceed for 146 days ahead"
3180 PRINT " -----------------------------------------"
3182 PRINT CHR$(28)
3184 INPUT " Type '1' to '9' ", t%
3186 IF t% = 1 THEN
GOTO 3500
END IF
3187 IF t% = 2 THEN
GOTO 3600
END IF
3188 IF t% = 3 THEN
GOTO 3700
END IF
3189 IF t% = 4 THEN
GOTO 3800
END IF
3190 IF t% = 5 THEN
GOTO 3900
END IF
3191 IF t% = 6 THEN
GOTO 4000
END IF
3192 IF t% = 7 THEN
GOTO 4100
END IF
3193 IF t% = 8 THEN
GOTO 4200
END IF
3194 IF t% = 9 THEN
GOTO 3300
3195 ELSE
PRINT "Out of range."
GOTO 3182
3196 END IF
3300 CLS
3301 SLEEP 1
3302 RANDOMIZE TIMER
3303 zaa% = INT(RND * za%) + 1
3304 IF zaa% = 1 THEN
GOTO 92000
3305 ELSE
GOTO 3308
3307 END IF
3308 PRINT " A-310: No crash."
3309 PRINT " Risk was one per "; za%
3310 PRINT CHR$(28)
3311 SLEEP 1
3312 zba% = INT(RND * zb%) + 1
3313 IF zba% = 1 THEN
GOTO 92000
3314 ELSE
GOTO 3318
3315 END IF
3318 PRINT " Plane 2: No crash."
3319 PRINT " Risk was one per "; zb%
3400 REM Voittoa vai tappiota: A-310?
3401 v% = INT(RND * 4) + 1
3402 IF v% = 1 THEN
GOTO 3420
3403 ELSE
GOTO 3410
3404 END IF
3410 REM Voittoa: A-310
3411 va% = INT(RND * la%) + 1
3412 vb% = va% + efa%
3413 PRINT CHR$(28)
3414 PRINT " Plane 1: You made profit (thousand USD): "; vb%
3415 usd& = usd& + vb%
3416 GOTO 3450
3420 REM Tappiota: A-310
3421 va% = INT(RND * lb%) + 150
3422 vb% = va% + efa%
3423 PRINT CHR$(28)
3424 PRINT " Plane 1: You made loss (thousand USD): "; va%
3425 usd& = usd& - vb%
3426 IF usd& < 1 THEN
GOTO 93000
3427 ELSE
GOTO 3450
3428 END IF
3450 REM Voittoa vai tappiota: Kone-2?
3451 v% = INT(RND * 4) + 1
3452 IF v% = 1 THEN
GOTO 3470
3453 ELSE
GOTO 3460
3454 END IF
3460 REM Voittoa: Kone-2
3461 va% = INT(RND * la%) + 1
3462 vb% = va% + efb%
3463 PRINT CHR$(28)
3464 PRINT " Plane 2: You made profit (thousand USD): "; vb%
3465 usd& = usd& + vb%
3466 GOTO 3480
3470 REM Tappiota: Kone-2
3471 va% = INT(RND * lb%) + 150
3472 vb% = va% - efb%
3473 PRINT CHR$(28)
3474 PRINT " Plane 2: You made loss (thousand USD): "; vb%
3475 usd& = usd& - vb%
3476 IF usd& < 1 THEN
GOTO 93000
3477 ELSE
GOTO 3480
3478 END IF
3480 REM Want to quit?
3481 PRINT CHR$(28)
3482 PRINT " 1 - Quit"
3483 PRINT " 2 - Continue"
3484 PRINT CHR$(28)
3485 INPUT " Type '1' or '2' ", t%
3486 IF t% = 1 THEN
GOTO 94000
END IF
3487 IF t% = 2 THEN
GOTO 3490
3488 ELSE PRINT "Out of range."
GOTO 3481
3489 END IF
3490 PRINT "Please wait...."
3493 r% = r% + 1
3494 za% = za% - 1
3495 zb% = zb% - 1
3496 ann% = ann% + 4
3497 IF ann% > 20840 THEN
GOTO 94000
3498 ELSE
GOTO 3000
3499 END IF
3500 REM DC-6: Onko Rahaa?
3501 IF usd& < 2000 THEN
GOTO 3510
3502 ELSE
GOTO 3520
3503 END IF
3510 REM Rahaa ei ole
3511 PRINT CHR$(28)
3512 PRINT " Bank account must be over 2000k USD."
3517 GOTO 3000
3520 REM rahaa on ostat DC-6
3521 usd& = usd& - 1000
3523 zc% = (310 * ac%) - r%
3524 efc% = 50
3526 GOTO 5000
3600 REM DC-7: Onko Rahaa?
3601 IF usd& < 4000 THEN
GOTO 3610
3602 ELSE
GOTO 3620
3603 END IF
3610 REM Rahaa ei ole
3611 PRINT CHR$(28)
3612 PRINT " Bank account must be over 4000k USD."
3617 GOTO 3000
3620 REM rahaa on ostat DC-7
3621 usd& = usd& - 3000
3623 zc% = (370 * ac%) - r%
3624 efc% = 70
3626 GOTO 5000
3700 REM B-707: Onko Rahaa?
3701 IF usd& < 7000 THEN
GOTO 3710
3702 ELSE
GOTO 3720
3703 END IF
3710 REM Rahaa ei ole
3711 PRINT CHR$(28)
3712 PRINT " Bank account must be over 7000k USD."
3717 GOTO 3000
3720 REM rahaa on ostat B-707
3721 usd& = usd& - 6000
3723 zc% = (450 * ac%) - r%
3724 efc% = 10
3726 GOTO 5000
3800 REM DC-8: Onko Rahaa?
3801 IF usd& < 9000 THEN
GOTO 3810
3802 ELSE
GOTO 3820
3803 END IF
3810 REM Rahaa ei ole
3811 PRINT CHR$(28)
3812 PRINT " Bank account must be over 9000k USD."
3817 GOTO 3000
3820 REM rahaa on ostat DC-8
3821 usd& = usd& - 8000
3823 zc% = (490 * ac%) - r%
3824 efc% = 40
3826 GOTO 5000
3900 REM DC-9: Onko Rahaa?
3901 IF usd& < 13000 THEN
GOTO 3910
3902 ELSE
GOTO 3920
3903 END IF
3910 REM Rahaa ei ole
3911 PRINT CHR$(28)
3912 PRINT " Bank account must be over 13000k USD."
3917 GOTO 3000
3920 REM rahaa on ostat DC-9
3921 usd& = usd& - 12000
3923 zc% = (550 * ac%) - r%
3924 efc% = 60
3926 GOTO 5000
4000 REM B-727: Onko Rahaa?
4001 IF usd& < 15000 THEN
GOTO 4010
4002 ELSE
GOTO 4020
4003 END IF
4010 REM Rahaa ei ole
4011 PRINT CHR$(28)
4012 PRINT " Bank account must be over 15000k USD."
4017 GOTO 3000
4020 REM rahaa on ostat B-727
4021 usd& = usd& - 14000
4023 zc% = (600 * ac%) - r%
4024 efc% = 30
4026 GOTO 5000
4100 REM B-737: Onko Rahaa?
4101 IF usd& < 21000 THEN
GOTO 4110
4102 ELSE
GOTO 4120
4103 END IF
4110 REM Rahaa ei ole
4111 PRINT CHR$(28)
4112 PRINT " Bank account must be over 21000k USD."
4117 GOTO 3000
4120 REM rahaa on ostat B-737
4121 usd& = usd& - 20000
4123 zc% = (700 * ac%) - r%
4124 efc% = 100
4126 GOTO 5000
4200 REM B-757: Onko Rahaa?
4201 IF usd& < 23000 THEN
GOTO 4210
4202 ELSE
GOTO 4220
4203 END IF
4210 REM Rahaa ei ole
4211 PRINT CHR$(28)
4212 PRINT " Bank account must be over 23000k USD."
4217 GOTO 3000
4220 REM rahaa on ostat B-757
4221 usd& = usd& - 22000
4223 zc% = (750 * ac%) - r%
4224 efc% = 120
4226 GOTO 5000
4998 REM Taso 3: Three Routes
5000 SLEEP 1
5020 CLS
5026 PRINT CHR$(28)
5027 PRINT " Minsk - Moscow ============"
5028 PRINT " Minsk - Novosibirsk = LEVEL 3 ="
5029 PRINT " Minsk - St. Petersburg ============"
5036 PRINT CHR$(28)
5037 PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
5042 PRINT CHR$(28)
5100 PRINT " -----------------------------------------"
5105 PRINT " 1 - Buy DC-6 (1000 thousand USD)"
5110 PRINT " 2 - Buy DC-7 (3000 thousand USD)"
5115 PRINT " 3 - Buy B-707 (6000 thousand USD)"
5120 PRINT " 4 - Buy DC-8 (8000 thousand USD)"
5125 PRINT " 5 - Buy DC-9 (12000 thousand USD)"
5130 PRINT " 6 - Buy B-727 (14000 thousand USD)"
5135 PRINT " 7 - Buy B-737 (20000 thousand USD)"
5140 PRINT " 8 - Buy B-757 (22000 thousand USD)"
5160 PRINT " -----------------------------------------"
5170 PRINT " 9 - Proceed for 146 days ahead"
5180 PRINT " -----------------------------------------"
5182 PRINT CHR$(28)
5184 INPUT " Type '1' to '9' ", t%
5186 IF t% = 1 THEN
GOTO 6000
END IF
5187 IF t% = 2 THEN
GOTO 6100
END IF
5188 IF t% = 3 THEN
GOTO 6200
END IF
5189 IF t% = 4 THEN
GOTO 6300
END IF
5190 IF t% = 5 THEN
GOTO 6400
END IF
5191 IF t% = 6 THEN
GOTO 6500
END IF
5192 IF t% = 7 THEN
GOTO 6600
END IF
5193 IF t% = 8 THEN
GOTO 6700
END IF
5194 IF t% = 9 THEN
GOTO 5300
5195 ELSE
PRINT "Out of range."
GOTO 5182
5196 END IF
5300 CLS
5301 SLEEP 1
5302 RANDOMIZE TIMER
5303 zaa% = INT(RND * za%) + 1
5304 IF zaa% = 1 THEN
GOTO 92000
5305 ELSE
GOTO 5308
5307 END IF
5308 PRINT " A-310: No crash."
5309 PRINT " Risk was one per "; za%
5310 PRINT CHR$(28)
5311 SLEEP 1
5312 zba% = INT(RND * zb%) + 1
5313 IF zba% = 1 THEN
GOTO 92000
5314 ELSE
GOTO 5318
5315 END IF
5318 PRINT " Plane 2: No crash."
5319 PRINT " Risk was one per "; zb%
5320 PRINT CHR$(28)
5321 SLEEP 1
5322 zca% = INT(RND * zc%) + 1
5323 IF zca% = 1 THEN
GOTO 92000
5324 ELSE
GOTO 5328
5325 END IF
5328 PRINT " Plane 3: No crash."
5329 PRINT " Risk was one per "; zc%
5400 REM Voittoa vai tappiota: A-310?
5401 v% = INT(RND * 4) + 1
5402 IF v% = 1 THEN
GOTO 5420
5403 ELSE
GOTO 5410
5404 END IF
5410 REM Voittoa: A-310
5411 va% = INT(RND * la%) + 1
5412 vb% = va% + efa%
5413 PRINT CHR$(28)
5414 PRINT " Plane 1: You made profit (thousand USD): "; vb%
5415 usd& = usd& + vb%
5416 GOTO 5450
5420 REM Tappiota: A-310
5421 va% = INT(RND * lb%) + 150
5422 vb% = va% + efa%
5423 PRINT CHR$(28)
5424 PRINT " Plane 1: You made loss (thousand USD): "; vb%
5425 usd& = usd& - vb%
5426 IF usd& < 1 THEN
GOTO 93000
5427 ELSE
GOTO 5450
5428 END IF
5450 REM Voittoa vai tappiota: Kone-2?
5451 v% = INT(RND * 4) + 1
5452 IF v% = 1 THEN
GOTO 5470
5453 ELSE
GOTO 5460
5454 END IF
5460 REM Voittoa: Kone-2
5461 va% = INT(RND * la%) + 1
5462 vb% = va% + efb%
5463 PRINT CHR$(28)
5464 PRINT " Plane 2: You made profit (thousand USD): "; vb%
5465 usd& = usd& + vb%
5466 GOTO 5500
5470 REM Tappiota: Kone-2
5471 va% = INT(RND * lb%) + 150
5472 vb% = va% + efb%
5473 PRINT CHR$(28)
5474 PRINT " Plane 2: You made loss (thousand USD): "; vb%
5475 usd& = usd& - vb%
5476 IF usd& < 1 THEN
GOTO 93000
5477 ELSE
GOTO 5500
5478 END IF
5500 REM Voittoa vai tappiota: Kone-3?
5501 v% = INT(RND * 4) + 1
5502 IF v% = 1 THEN
GOTO 5520
5503 ELSE
GOTO 5510
5504 END IF
5510 REM Voittoa: Kone-3
5511 va% = INT(RND * la%) + 1
5512 vb% = va% + efc%
5513 PRINT CHR$(28)
5514 PRINT " Plane 3: You made profit (thousand USD): "; vb%
5515 usd& = usd& + vb%
5516 GOTO 5970
5520 REM Tappiota: Kone-3
5521 va% = INT(RND * lb%) + 150
5522 vb% = va% + efc%
5523 PRINT CHR$(28)
5524 PRINT " Plane 3: You made loss (thousand USD): "; vb%
5525 usd& = usd& - vb%
5526 IF usd& < 1 THEN
GOTO 93000
5527 ELSE
GOTO 5970
5528 END IF
5970 REM Want to quit?
5971 PRINT CHR$(28)
5972 PRINT " 1 - Quit"
5973 PRINT " 2 - Continue"
5974 PRINT CHR$(28)
5975 INPUT " Type '1' or '2' ", t%
5976 IF t% = 1 THEN
GOTO 94000
END IF
5977 IF t% = 2 THEN
GOTO 5980
5978 ELSE PRINT "Out of range."
GOTO 5971
5979 END IF
5980 PRINT "Please wait...."
5983 r% = r% + 1
5984 za% = za% - 1
5985 zb% = zb% - 1
5986 zc% = zc% - 1
5996 ann% = ann% + 4
5997 IF ann% > 20840 THEN
GOTO 94000
5998 ELSE
GOTO 5000
5999 END IF
6000 REM DC-6: Onko Rahaa?
6001 IF usd& < 2000 THEN
GOTO 6010
6002 ELSE
GOTO 6020
6003 END IF
6010 REM Rahaa ei ole
6011 PRINT CHR$(28)
6012 PRINT " Bank account must be over 2000k USD."
6017 GOTO 5000
6020 REM rahaa on ostat DC-6
6021 usd& = usd& - 1000
6023 zd% = (310 * ac%) - r%
6024 efd% = 50
6026 GOTO 7000
6100 REM DC-7: Onko Rahaa?
6101 IF usd& < 4000 THEN
GOTO 6110
6102 ELSE
GOTO 6120
6103 END IF
6110 REM Rahaa ei ole
6111 PRINT CHR$(28)
6112 PRINT " Bank account must be over 4000k USD."
6117 GOTO 5000
6120 REM rahaa on ostat DC-7
6121 usd& = usd& - 3000
6123 zd% = (370 * ac%) - r%
6124 efd% = 70
6126 GOTO 7000
6200 REM B-707: Onko Rahaa?
6201 IF usd& < 7000 THEN
GOTO 6210
6202 ELSE
GOTO 6220
6203 END IF
6210 REM Rahaa ei ole
6211 PRINT CHR$(28)
6212 PRINT " Bank account must be over 7000k USD."
6217 GOTO 5000
6220 REM rahaa on ostat B-707
6221 usd& = usd& - 6000
6223 zd% = 450 - r%
6224 efd% = 10
6226 GOTO 7000
6300 REM DC-8: Onko Rahaa?
6301 IF usd& < 9000 THEN
GOTO 6310
6302 ELSE
GOTO 6320
6303 END IF
6310 REM Rahaa ei ole
6311 PRINT CHR$(28)
6312 PRINT " Bank account must be over 9000k USD."
6317 GOTO 5000
6320 REM rahaa on ostat DC-8
6321 usd& = usd& - 8000
6323 zd% = (490 * ac%) - r%
6324 efd% = 40
6326 GOTO 7000
6400 REM DC-9: Onko Rahaa?
6401 IF usd& < 13000 THEN
GOTO 6410
6402 ELSE
GOTO 6420
6403 END IF
6410 REM Rahaa ei ole
6411 PRINT CHR$(28)
6412 PRINT " Bank account must be over 13000k USD."
6417 GOTO 5000
6420 REM rahaa on ostat DC-9
6421 usd& = usd& - 12000
6423 zd% = (550 * ac%) - r%
6424 efd% = 60
6426 GOTO 7000
6500 REM B-727: Onko Rahaa?
6501 IF usd& < 15000 THEN
GOTO 6510
6502 ELSE
GOTO 6520
6503 END IF
6510 REM Rahaa ei ole
6511 PRINT CHR$(28)
6512 PRINT " Bank account must be over 15000k USD."
6517 GOTO 5000
6520 REM rahaa on ostat B-727
6521 usd& = usd& - 14000
6523 zd% = (600 * ac%) - r%
6524 efd% = 30
6526 GOTO 7000
6600 REM B-737: Onko Rahaa?
6601 IF usd& < 21000 THEN
GOTO 6610
6602 ELSE
GOTO 6620
6603 END IF
6610 REM Rahaa ei ole
6611 PRINT CHR$(28)
6612 PRINT " Bank account must be over 21000k USD."
6617 GOTO 5000
6620 REM rahaa on ostat B-737
6621 usd& = usd& - 20000
6623 zd% = (700 * ac%) - r%
6624 efd% = 100
6626 GOTO 7000
6700 REM B-757: Onko Rahaa?
6701 IF usd& < 23000 THEN
GOTO 6710
6702 ELSE
GOTO 6720
6703 END IF
6710 REM Rahaa ei ole
6711 PRINT CHR$(28)
6712 PRINT " Bank account must be over 23000k USD."
6717 GOTO 5000
6720 REM rahaa on ostat B-757
6721 usd& = usd& - 22000
6723 zd% = (750 * ac%) - r%
6724 efd% = 120
6726 GOTO 7000
6998 REM Taso 4: Four Routes
7000 SLEEP 1
7020 CLS
7021 PRINT CHR$(28)
7026 PRINT " Minsk - Moscow ============"
7027 PRINT " Minsk - Novosibirsk = LEVEL 4 ="
7028 PRINT " Minsk - St. Petersburg ============"
7029 PRINT " Minsk - Vladivostok"
7036 PRINT CHR$(28)
7037 PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
7042 PRINT CHR$(28)
7100 PRINT " -----------------------------------------"
7110 PRINT " 1 - Buy DC-8 (8000 thousand USD)"
7115 PRINT " 2 - Buy DC-9 (12000 thousand USD)"
7120 PRINT " 3 - Buy B-727 (14000 thousand USD)"
7125 PRINT " 4 - Buy B-737 (20000 thousand USD)"
7130 PRINT " 5 - Buy B-757 (22000 thousand USD)"
7135 PRINT " 6 - Buy B-777 (28000 thousand USD)"
7140 PRINT " + Compensation 10000k USD."
7160 PRINT " -----------------------------------------"
7170 PRINT " 9 - Proceed for 146 days ahead"
7180 PRINT " -----------------------------------------"
7182 PRINT CHR$(28)
7184 INPUT " Type '1' to '6' or '9' ", t%
7186 IF t% = 1 THEN
GOTO 8300
END IF
7187 IF t% = 2 THEN
GOTO 8400
END IF
7188 IF t% = 3 THEN
GOTO 8500
END IF
7189 IF t% = 4 THEN
GOTO 8600
END IF
7190 IF t% = 5 THEN
GOTO 8700
END IF
7191 IF t% = 6 THEN
GOTO 8800
END IF
7194 IF t% = 9 THEN
GOTO 7300
7195 ELSE
PRINT "Out of range."
7196 END IF
7300 CLS
7301 SLEEP 1
7302 RANDOMIZE TIMER
7303 zaa% = INT(RND * za%) + 1
7304 IF zaa% = 1 THEN
GOTO 92000
7305 ELSE
GOTO 7308
7307 END IF
7308 PRINT " A-310: No crash."
7309 PRINT " Risk was one per "; za%
7310 PRINT CHR$(28)
7311 SLEEP 1
7312 zba% = INT(RND * zb%) + 1
7313 IF zba% = 1 THEN
GOTO 92000
7314 ELSE
GOTO 7318
7315 END IF
7318 PRINT " Plane 2: No crash."
7319 PRINT " Risk was one per "; zb%
7320 PRINT CHR$(28)
7321 SLEEP 1
7322 zca% = INT(RND * zc%) + 1
7323 IF zca% = 1 THEN
GOTO 92000
7324 ELSE
GOTO 7328
7325 END IF
7328 PRINT " Plane 3: No crash."
7329 PRINT " Risk was one per "; zc%
7330 PRINT CHR$(28)
7331 SLEEP 1
7332 zda% = INT(RND * zd%) + 1
7333 IF zda% = 1 THEN
GOTO 92000
7334 ELSE
GOTO 7338
7335 END IF
7338 PRINT " Plane 4: No crash."
7339 PRINT " Risk was one per "; zd%
7400 REM Voittoa vai tappiota: A-310?
7401 v% = INT(RND * 4) + 1
7402 IF v% = 1 THEN
GOTO 7420
7403 ELSE
GOTO 7410
7404 END IF
7410 REM Voittoa: A-310
7411 va% = INT(RND * 500) + 1
7412 vb% = va% + efa%
7413 PRINT CHR$(28)
7414 PRINT " Plane 1: You made profit (thousand USD): "; vb%
7415 usd& = usd& + vb%
7416 GOTO 7450
7420 REM Tappiota: A-310
7421 va% = INT(RND * 500) + 150
7422 vb% = va% + efa%
7423 PRINT CHR$(28)
7424 PRINT " Plane 1: You made loss (thousand USD): "; vb%
7425 usd& = usd& - vb%
7426 IF usd& < 1 THEN
GOTO 93000
7427 ELSE
GOTO 7450
7428 END IF
7450 REM Voittoa vai tappiota: Kone-2?
7451 v% = INT(RND * 4) + 1
7452 IF v% = 1 THEN
GOTO 7470
7453 ELSE
GOTO 7460
7454 END IF
7460 REM Voittoa: Kone-2
7461 va% = INT(RND * 500) + 1
7462 vb% = va% + efb%
7463 PRINT CHR$(28)
7464 PRINT " Plane 2: You made profit (thousand USD): "; vb%
7465 usd& = usd& + vb%
7466 GOTO 7500
7470 REM Tappiota: Kone-2
7471 va% = INT(RND * 500) + 150
7472 vb% = va% + efb%
7473 PRINT CHR$(28)
7474 PRINT " Plane 2: You made loss (thousand USD): "; vb%
7475 usd& = usd& - vb%
7476 IF usd& < 1 THEN
GOTO 93000
7477 ELSE
GOTO 7500
7478 END IF
7500 REM Voittoa vai tappiota: Kone-3?
7501 v% = INT(RND * 4) + 1
7502 IF v% = 1 THEN
GOTO 7520
7503 ELSE
GOTO 7510
7504 END IF
7510 REM Voittoa: Kone-3
7511 va% = INT(RND * 500) + 1
7512 vb% = va% + efc%
7513 PRINT CHR$(28)
7514 PRINT " Plane 3: You made profit (thousand USD): "; vb%
7515 usd& = usd& + vb%
7516 GOTO 7550
7520 REM Tappiota: Kone-3
7521 va% = INT(RND * 500) + 150
7522 vb% = va% + efc%
7523 PRINT CHR$(28)
7524 PRINT " Plane 3: You made loss (thousand USD): "; vb%
7525 usd& = usd& - vb%
7526 IF usd& < 1 THEN
GOTO 93000
7527 ELSE
GOTO 7550
7528 END IF
7550 REM Voittoa vai tappiota: Kone-4?
7551 v% = INT(RND * 4) + 1
7552 IF v% = 1 THEN
GOTO 7570
7553 ELSE
GOTO 7560
7554 END IF
7560 REM Voittoa: Kone-4
7561 va% = INT(RND * 500) + 1
7562 vb% = va% + efd%
7563 PRINT CHR$(28)
7564 PRINT " Plane 4: You made profit (thousand USD): "; vb%
7565 usd& = usd& + vb%
7566 GOTO 7970
7570 REM Tappiota: Kone-4
7571 va% = INT(RND * 500) + 150
7572 vb% = va% + efd%
7573 PRINT CHR$(28)
7574 PRINT " Plane 4: You made loss (thousand USD): "; vb%
7575 usd& = usd& - vb%
7576 IF usd& < 1 THEN
GOTO 93000
7577 ELSE
GOTO 7970
5578 END IF
7970 REM Want to quit?
7971 PRINT CHR$(28)
7972 PRINT " 1 - Quit"
7973 PRINT " 2 - Continue"
7974 PRINT CHR$(28)
7975 INPUT " Type '1' or '2' ", t%
7976 IF t% = 1 THEN
GOTO 94000
END IF
7977 IF t% = 2 THEN
GOTO 7980
7978 ELSE PRINT "Out of range."
GOTO 7971
7979 END IF
7980 PRINT "Please wait...."
7983 r% = r% + 1
7984 za% = za% - 1
7985 zb% = zb% - 1
7986 zc% = zc% - 1
7987 zd% = zd% - 1
7996 ann% = ann% + 4
7997 IF ann% > 20840 THEN
GOTO 94000
7998 ELSE
GOTO 7000
7999 END IF
8300 REM DC-8: Onko Rahaa?
8301 IF usd& < 9000 THEN
GOTO 8310
8302 ELSE
GOTO 8320
8303 END IF
8310 REM Rahaa ei ole
8311 PRINT CHR$(28)
8312 PRINT " Bank account must be over 9000k USD."
8317 GOTO 7000
8320 REM rahaa on ostat DC-8
8321 usd& = usd& - 8000
8323 ze% = (490 * ac%) - r%
8324 efe% = 40
8326 GOTO 9000
8400 REM DC-9: Onko Rahaa?
8401 IF usd& < 13000 THEN
GOTO 8410
8402 ELSE
GOTO 8420
8403 END IF
8410 REM Rahaa ei ole
8411 PRINT CHR$(28)
8412 PRINT " Bank account must be over 13000k USD."
8417 GOTO 7000
8420 REM rahaa on ostat DC-9
8421 usd& = usd& - 12000
8423 ze% = (550 * ac%) - r%
8424 efe% = 60
8426 GOTO 9000
8500 REM B-727: Onko Rahaa?
8501 IF usd& < 15000 THEN
GOTO 8510
8502 ELSE
GOTO 8520
8503 END IF
8510 REM Rahaa ei ole
8511 PRINT CHR$(28)
8512 PRINT " Bank account must be over 15000k USD."
8517 GOTO 7000
8520 REM rahaa on ostat B-727
8521 usd& = usd& - 14000
8523 ze% = (600 * ac%) - r%
8524 efe% = 30
8526 GOTO 9000
8600 REM B-737: Onko Rahaa?
8601 IF usd& < 21000 THEN
GOTO 8610
8602 ELSE
GOTO 8620
8603 END IF
8610 REM Rahaa ei ole
8611 PRINT CHR$(28)
8612 PRINT " Bank account must be over 21000k USD."
8617 GOTO 7000
8620 REM rahaa on ostat B-737
8621 usd& = usd& - 20000
8623 ze% = (700 * ac%) - r%
8624 efe% = 100
8626 GOTO 9000
8700 REM B-757: Onko Rahaa?
8701 IF usd& < 23000 THEN
GOTO 8710
8702 ELSE
GOTO 8720
8703 END IF
8710 REM Rahaa ei ole
8711 PRINT CHR$(28)
8712 PRINT " Bank account must be over 23000k USD."
8717 GOTO 7000
8720 REM rahaa on ostat B-757
8721 usd& = usd& - 22000
8723 ze% = (750 * ac%) - r%
8724 efe% = 120
8726 GOTO 9000
8800 REM B-777: Onko Rahaa?
8801 IF usd& < 29000 THEN
GOTO 8810
8802 ELSE
GOTO 8820
8803 END IF
8810 REM Rahaa ei ole
8811 PRINT CHR$(28)
8812 PRINT " Bank account must be over 29000k USD."
8817 GOTO 7000
8820 REM rahaa on ostat B-777
8821 usd& = usd& - 28000
8823 ze% = (840 * ac%) - r%
8824 efe% = 90
8826 GOTO 9000
8998 REM Taso 5: Five Routes
9000 SLEEP 1
9020 CLS
9021 PRINT CHR$(28)
9026 PRINT " Minsk - Moscow ============"
9027 PRINT " Minsk - Novosibirsk = Level 5 ="
9028 PRINT " Minsk - St. Petersburg ============"
9029 PRINT " Minsk - Vladivostok"
9030 PRINT " Minsk - Beijing"
9036 PRINT CHR$(28)
9037 PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
9042 PRINT CHR$(28)
9100 PRINT " -----------------------------------------"
9120 PRINT " 1 - Buy DC-8 (8000 thousand USD)"
9125 PRINT " 2 - Buy DC-9 (12000 thousand USD)"
9130 PRINT " 3 - Buy B-727 (14000 thousand USD)"
9135 PRINT " 4 - Buy B-737 (20000 thousand USD)"
9140 PRINT " 5 - Buy B-757 (22000 thousand USD)"
9150 PRINT " 6 - Buy B-777 (28000 thousand USD)"
9155 PRINT " + Compensation 10000k USD."
9160 PRINT " -----------------------------------------"
9170 PRINT " 9 - Proceed for 146 days ahead"
9180 PRINT " -----------------------------------------"
9182 PRINT CHR$(28)
9184 INPUT " Type '1' to '6' or '9' ", t%
9186 IF t% = 1 THEN
GOTO 10300
END IF
9187 IF t% = 2 THEN
GOTO 10400
END IF
9188 IF t% = 3 THEN
GOTO 10500
END IF
9189 IF t% = 4 THEN
GOTO 10600
END IF
9190 IF t% = 5 THEN
GOTO 10700
END IF
9191 IF t% = 6 THEN
GOTO 10800
END IF
9194 IF t% = 9 THEN
GOTO 9300
9195 ELSE
PRINT "Out of range."
9196 END IF
9300 CLS
9301 SLEEP 1
9302 RANDOMIZE TIMER
9303 zaa% = INT(RND * za%) + 1
9304 IF zaa% = 1 THEN
GOTO 92000
9305 ELSE
GOTO 9308
9307 END IF
9308 PRINT " A-310: No crash."
9309 PRINT " Risk was one per "; za%
9310 PRINT CHR$(28)
9311 SLEEP 1
9312 zba% = INT(RND * zb%) + 1
9313 IF zba% = 1 THEN
GOTO 92000
9314 ELSE
GOTO 9318
9315 END IF
9318 PRINT " Plane 2: No crash."
9319 PRINT " Risk was one per "; zb%
9320 PRINT CHR$(28)
9321 SLEEP 1
9322 zca% = INT(RND * zc%) + 1
9323 IF zca% = 1 THEN
GOTO 92000
9324 ELSE
GOTO 9328
9325 END IF
9328 PRINT " Plane 3: No crash."
9329 PRINT " Risk was one per "; zc%
9330 PRINT CHR$(28)
9331 SLEEP 1
9332 zda% = INT(RND * zd%) + 1
9333 IF zda% = 1 THEN
GOTO 92000
9334 ELSE
GOTO 9338
9335 END IF
9338 PRINT " Plane 4: No crash."
9339 PRINT " Risk was one per "; zd%
9340 PRINT CHR$(28)
9341 SLEEP 1
9342 zea% = INT(RND * ze%) + 1
9343 IF zea% = 1 THEN
GOTO 92000
9344 ELSE
GOTO 9348
9345 END IF
9348 PRINT " Plane 5: No crash."
9349 PRINT " Risk was one per "; ze%
9400 REM Voittoa vai tappiota: A-310?
9401 v% = INT(RND * 4) + 1
9402 IF v% = 1 THEN
GOTO 9420
9403 ELSE
GOTO 9410
9404 END IF
9410 REM Voittoa: A-310
9411 va% = INT(RND * 500) + 1
9412 vb% = va% + efa%
9413 PRINT CHR$(28)
9414 PRINT " Plane 1: You made profit (thousand USD): "; vb%
9415 usd& = usd& + vb%
9416 GOTO 9450
9420 REM Tappiota: A-310
9421 va% = INT(RND * 500) + 150
9422 vb% = va% + efa%
9423 PRINT CHR$(28)
9424 PRINT " Plane 1: You made loss (thousand USD): "; vb%
9425 usd& = usd& - vb%
9426 IF usd& < 1 THEN
GOTO 93000
9427 ELSE
GOTO 9450
9428 END IF
9450 REM Voittoa vai tappiota: Kone-2?
9451 v% = INT(RND * 4) + 1
9452 IF v% = 1 THEN
GOTO 9470
9453 ELSE
GOTO 9460
9454 END IF
9460 REM Voittoa: Kone-2
9461 va% = INT(RND * 500) + 1
9462 vb% = va% + efb%
9463 PRINT CHR$(28)
9464 PRINT " Plane 2: You made profit (thousand USD): "; vb%
9465 usd& = usd& + vb%
9466 GOTO 9500
9470 REM Tappiota: Kone-2
9471 va% = INT(RND * 500) + 150
9472 vb% = va% + efb%
9473 PRINT CHR$(28)
9474 PRINT " Plane 2: You made loss (thousand USD): "; vb%
9475 usd& = usd& - vb%
9476 IF usd& < 1 THEN
GOTO 93000
9477 ELSE
GOTO 9500
9478 END IF
9500 REM Voittoa vai tappiota: Kone-3?
9501 v% = INT(RND * 4) + 1
9502 IF v% = 1 THEN
GOTO 9520
9503 ELSE
GOTO 9510
9504 END IF
9510 REM Voittoa: Kone-3
9511 va% = INT(RND * 500) + 1
9512 vb% = va% + efc%
9513 PRINT CHR$(28)
9514 PRINT " Plane 3: You made profit (thousand USD): "; vb%
9515 usd& = usd& + vb%
9516 GOTO 9550
9520 REM Tappiota: Kone-3
9521 va% = INT(RND * 500) + 150
9522 vb% = va% + efc%
9523 PRINT CHR$(28)
9524 PRINT " Plane 3: You made loss (thousand USD): "; vb%
9525 usd& = usd& - vb%
9526 IF usd& < 1 THEN
GOTO 93000
9527 ELSE
GOTO 9550
9528 END IF
9550 REM Voittoa vai tappiota: Kone-4?
9551 v% = INT(RND * 4) + 1
9552 IF v% = 1 THEN
GOTO 9570
9553 ELSE
GOTO 9560
9554 END IF
9560 REM Voittoa: Kone-4
9561 va% = INT(RND * 500) + 1
9562 vb% = va% + efd%
9563 PRINT CHR$(28)
9564 PRINT " Plane 4: You made profit (thousand USD): "; vb%
9565 usd& = usd& + vb%
9566 GOTO 9600
9570 REM Tappiota: Kone-4
9571 va% = INT(RND * 500) + 150
9572 vb% = va% + efd%
9573 PRINT CHR$(28)
9574 PRINT " Plane 4: You made loss (thousand USD): "; vb%
9575 usd& = usd& - vb%
9576 IF usd& < 1 THEN
GOTO 93000
9577 ELSE
GOTO 9600
9578 END IF
9600 REM Voittoa vai tappiota: Kone-5?
9601 v% = INT(RND * 4) + 1
9602 IF v% = 1 THEN
GOTO 9620
9603 ELSE
GOTO 9610
9604 END IF
9610 REM Voittoa: Kone-5
9611 va% = INT(RND * 500) + 1
9612 vb% = va% + efe%
9613 PRINT CHR$(28)
9614 PRINT " Plane 5: You made profit (thousand USD): "; vb%
9615 usd& = usd& + vb%
9616 GOTO 9970
9620 REM Tappiota: Kone-5
9621 va% = INT(RND * 500) + 150
9622 vb% = va% + efe%
9623 PRINT CHR$(28)
9624 PRINT " Plane 5: You made loss (thousand USD): "; vb%
9625 usd& = usd& - vb%
9626 IF usd& < 1 THEN
GOTO 93000
9627 ELSE
GOTO 9970
9628 END IF
9970 REM Want to quit?
9971 PRINT CHR$(28)
9972 PRINT " 1 - Quit"
9973 PRINT " 2 - Continue"
9974 PRINT CHR$(28)
9975 INPUT " Type '1' or '2' ", t%
9976 IF t% = 1 THEN
GOTO 94000
END IF
9977 IF t% = 2 THEN
GOTO 9980
9978 ELSE PRINT "Out of range."
GOTO 9971
9979 END IF
9980 PRINT "Please wait...."
9983 r% = r% + 1
9984 za% = za% - 1
9985 zb% = zb% - 1
9986 zc% = zc% - 1
9987 zd% = zd% - 1
9988 ze% = ze% - 1
9996 ann% = ann% + 4
9997 IF ann% > 20840 THEN
GOTO 94000
9998 ELSE
GOTO 9000
9999 END IF
10300 REM DC-8: Onko Rahaa?
10301 IF usd& < 9000 THEN
GOTO 10310
10302 ELSE
GOTO 10320
10303 END IF
10310 REM Rahaa ei ole
10311 PRINT CHR$(28)
10312 PRINT " Bank account must be over 9000k USD."
10317 GOTO 9000
10320 REM rahaa on ostat DC-8
10321 usd& = usd& - 8000
10323 zf% = (490 * ac%) - r%
10324 eff% = 40
10326 GOTO 11000
10400 REM DC-9: Onko Rahaa?
10401 IF usd& < 13000 THEN
GOTO 10410
10402 ELSE
GOTO 10420
10403 END IF
10410 REM Rahaa ei ole
10411 PRINT CHR$(28)
10412 PRINT " Bank account must be over 13000k USD."
10417 GOTO 9000
10420 REM rahaa on ostat DC-9
10421 usd& = usd& - 12000
10423 zf% = (550 * ac%) - r%
10424 eff% = 60
10426 GOTO 9000
10500 REM B-727: Onko Rahaa?
10501 IF usd& < 15000 THEN
GOTO 10510
10502 ELSE
GOTO 10520
10503 END IF
10510 REM Rahaa ei ole
10511 PRINT CHR$(28)
10512 PRINT " Bank account must be over 15000k USD."
10517 GOTO 9000
10520 REM rahaa on ostat B-727
10521 usd& = usd& - 14000
10523 zf% = (600 * ac%) - r%
10524 eff% = 30
10526 GOTO 11000
10600 REM B-737: Onko Rahaa?
10601 IF usd& < 21000 THEN
GOTO 10610
10602 ELSE
GOTO 10620
10603 END IF
10610 REM Rahaa ei ole
10611 PRINT CHR$(28)
10612 PRINT " Bank account must be over 21000k USD."
10617 GOTO 9000
10620 REM rahaa on ostat B-737
10621 usd& = usd& - 20000
10623 zf% = (700 * ac%) - r%
10624 eff% = 100
10626 GOTO 11000
10700 REM B-757: Onko Rahaa?
10701 IF usd& < 23000 THEN
GOTO 10710
10702 ELSE
GOTO 10720
10703 END IF
10710 REM Rahaa ei ole
10711 PRINT CHR$(28)
10712 PRINT " Bank account must be over 23000k USD."
10717 GOTO 9000
10720 REM rahaa on ostat B-757
10721 usd& = usd& - 22000
10723 zf% = (750 * ac%) - r%
10724 eff% = 120
10726 GOTO 11000
10800 REM B-777: Onko Rahaa?
10801 IF usd& < 29000 THEN
GOTO 10810
10802 ELSE
GOTO 10820
10803 END IF
10810 REM Rahaa ei ole
10811 PRINT CHR$(28)
10812 PRINT " Bank account must be over 29000k USD."
10817 GOTO 9000
10820 REM rahaa on ostat B-777
10821 usd& = usd& - 28000
10823 zf% = (840 * ac%) - r%
10824 eff% = 90
10826 GOTO 11000
10998 REM Taso 6: Six Routes
11000 SLEEP 1
11020 CLS
11021 PRINT CHR$(28)
11026 PRINT " Minsk - Moscow ============"
11027 PRINT " Minsk - Novosibirsk = Level 6 ="
11028 PRINT " Minsk - St. Petersburg ============"
11029 PRINT " Minsk - Vladivostok"
11030 PRINT " Minsk - Beijing"
11031 PRINT " Minsk - Shanghai"
11036 PRINT CHR$(28)
11037 PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
11042 PRINT CHR$(28)
11100 PRINT " -----------------------------------------"
11120 PRINT " 1 - Buy DC-8 (8000 thousand USD)"
11125 PRINT " 2 - Buy DC-9 (12000 thousand USD)"
11130 PRINT " 3 - Buy B-727 (14000 thousand USD)"
11135 PRINT " 4 - Buy B-737 (20000 thousand USD)"
11140 PRINT " 5 - Buy B-757 (22000 thousand USD)"
11150 PRINT " 6 - Buy B-777 (28000 thousand USD)"
11155 PRINT " 7 - Buy A-350 (32000 thousand USD)"
11157 PRINT " + Compensation 20000k USD."
11160 PRINT " -----------------------------------------"
11170 PRINT " 9 - Proceed for 146 days ahead"
11180 PRINT " -----------------------------------------"
11182 PRINT CHR$(28)
11184 INPUT " Type '1' to '7' or '9' ", t%
11186 IF t% = 1 THEN
GOTO 12300
END IF
11187 IF t% = 2 THEN
GOTO 12400
END IF
11188 IF t% = 3 THEN
GOTO 12500
END IF
11189 IF t% = 4 THEN
GOTO 12600
END IF
11190 IF t% = 5 THEN
GOTO 12700
END IF
11191 IF t% = 6 THEN
GOTO 12800
END IF
11192 IF t% = 7 THEN
GOTO 12900
END IF
11194 IF t% = 9 THEN
GOTO 11300
11195 ELSE
PRINT "Out of range."
11196 END IF
11300 CLS
11301 SLEEP 1
11302 RANDOMIZE TIMER
11303 zaa% = INT(RND * za%) + 1
11304 IF zaa% = 1 THEN
GOTO 92000
11305 ELSE
GOTO 11308
11307 END IF
11308 PRINT " A-310: No crash."
11309 PRINT " Risk was one per "; za%
11310 PRINT CHR$(28)
11311 SLEEP 1
11312 zba% = INT(RND * zb%) + 1
11313 IF zba% = 1 THEN
GOTO 92000
11314 ELSE
GOTO 11318
11315 END IF
11318 PRINT " Plane 2: No crash."
11319 PRINT " Risk was one per "; zb%
11320 PRINT CHR$(28)
11321 SLEEP 1
11322 zca% = INT(RND * zc%) + 1
11323 IF zca% = 1 THEN
GOTO 92000
11324 ELSE
GOTO 11328
11325 END IF
11328 PRINT " Plane 3: No crash."
11329 PRINT " Risk was one per "; zc%
11330 PRINT CHR$(28)
11331 SLEEP 1
11332 zda% = INT(RND * zd%) + 1
11333 IF zda% = 1 THEN
GOTO 92000
11334 ELSE
GOTO 11338
11335 END IF
11338 PRINT " Plane 4: No crash."
11339 PRINT " Risk was one per "; zd%
11340 PRINT CHR$(28)
11341 SLEEP 1
11342 zea% = INT(RND * ze%) + 1
11343 IF zea% = 1 THEN
GOTO 92000
11344 ELSE
GOTO 11348
11345 END IF
11348 PRINT " Plane 5: No crash."
11349 PRINT " Risk was one per "; ze%
11350 PRINT CHR$(28)
11351 SLEEP 1
11352 zfa% = INT(RND * zf%) + 1
11353 IF zfa% = 1 THEN
GOTO 92000
11354 ELSE
GOTO 11358
11355 END IF
11358 PRINT " Plane 6: No crash."
11359 PRINT " Risk was one per "; zf%
11400 REM Voittoa vai tappiota: A-310?
11401 v% = INT(RND * 4) + 1
11402 IF v% = 1 THEN
GOTO 11420
11403 ELSE
GOTO 11410
11404 END IF
11410 REM Voittoa: A-310
11411 va% = INT(RND * 500) + 1
11412 vb% = va% + efa%
11413 PRINT CHR$(28)
11414 PRINT " Plane 1: You made profit (thousand USD): "; vb%
11415 usd& = usd& + vb%
11416 GOTO 11450
11420 REM Tappiota: A-310
11421 va% = INT(RND * 500) + 150
11422 vb% = va% + efa%
11423 PRINT CHR$(28)
11424 PRINT " Plane 1: You made loss (thousand USD): "; vb%
11425 usd& = usd& - vb%
11426 IF usd& < 1 THEN
GOTO 93000
11427 ELSE
GOTO 11450
11428 END IF
11450 REM Voittoa vai tappiota: Kone-2?
11451 v% = INT(RND * 4) + 1
11452 IF v% = 1 THEN
GOTO 11470
11453 ELSE
GOTO 11460
11454 END IF
11460 REM Voittoa: Kone-2
11461 va% = INT(RND * 500) + 1
11462 vb% = va% + efb%
11463 PRINT CHR$(28)
11464 PRINT " Plane 2: You made profit (thousand USD): "; vb%
11465 usd& = usd& + vb%
11466 GOTO 11500
11470 REM Tappiota: Kone-2
11471 va% = INT(RND * 500) + 150
11472 vb% = va% + efb%
11473 PRINT CHR$(28)
11474 PRINT " Plane 2: You made loss (thousand USD): "; vb%
11475 usd& = usd& - vb%
11476 IF usd& < 1 THEN
GOTO 93000
11477 ELSE
GOTO 11500
11478 END IF
11500 REM Voittoa vai tappiota: Kone-3?
11501 v% = INT(RND * 4) + 1
11502 IF v% = 1 THEN
GOTO 11520
11503 ELSE
GOTO 11510
11504 END IF
11510 REM Voittoa: Kone-3
11511 va% = INT(RND * 500) + 1
11512 vb% = va% + efc%
11513 PRINT CHR$(28)
11514 PRINT " Plane 3: You made profit (thousand USD): "; vb%
11515 usd& = usd& + vb%
11516 GOTO 11550
11520 REM Tappiota: Kone-3
11521 va% = INT(RND * 500) + 150
11522 vb% = va% + efc%
11523 PRINT CHR$(28)
11524 PRINT " Plane 3: You made loss (thousand USD): "; vb%
11525 usd& = usd& - vb%
11526 IF usd& < 1 THEN
GOTO 93000
11527 ELSE
GOTO 11550
11528 END IF
11550 REM Voittoa vai tappiota: Kone-4?
11551 v% = INT(RND * 4) + 1
11552 IF v% = 1 THEN
GOTO 11570
11553 ELSE
GOTO 11560
11554 END IF
11560 REM Voittoa: Kone-4
11561 va% = INT(RND * 500) + 1
11562 vb% = va% + efd%
11563 PRINT CHR$(28)
11564 PRINT " Plane 4: You made profit (thousand USD): "; vb%
11565 usd& = usd& + vb%
11566 GOTO 11600
11570 REM Tappiota: Kone-4
11571 va% = INT(RND * 500) + 150
11572 vb% = va% + efd%
11573 PRINT CHR$(28)
11574 PRINT " Plane 4: You made loss (thousand USD): "; vb%
11575 usd& = usd& - vb%
11576 IF usd& < 1 THEN
GOTO 93000
11577 ELSE
GOTO 11600
11578 END IF
11600 REM Voittoa vai tappiota: Kone-5?
11601 v% = INT(RND * 4) + 1
11602 IF v% = 1 THEN
GOTO 11620
11603 ELSE
GOTO 11610
11604 END IF
11610 REM Voittoa: Kone-5
11611 va% = INT(RND * 500) + 1
11612 vb% = va% + efe%
11613 PRINT CHR$(28)
11614 PRINT " Plane 5: You made profit (thousand USD): "; vb%
11615 usd& = usd& + vb%
11616 GOTO 11650
11620 REM Tappiota: Kone-5
11621 va% = INT(RND * 500) + 150
11622 vb% = va% + efe%
11623 PRINT CHR$(28)
11624 PRINT " Plane 5: You made loss (thousand USD): "; vb%
11625 usd& = usd& - vb%
11626 IF usd& < 1 THEN
GOTO 93000
11627 ELSE
GOTO 11650
11628 END IF
11650 REM Voittoa vai tappiota: Kone-6?
11651 v% = INT(RND * 4) + 1
11652 IF v% = 1 THEN
GOTO 11670
11653 ELSE
GOTO 11660
11654 END IF
11660 REM Voittoa: Kone-6
11661 va% = INT(RND * 500) + 1
11662 vb% = va% + eff%
11663 PRINT CHR$(28)
11664 PRINT " Plane 6: You made profit (thousand USD): "; vb%
11665 usd& = usd& + vb%
11666 GOTO 11970
11670 REM Tappiota: Kone-6
11671 va% = INT(RND * 500) + 150
11672 vb% = va% + eff%
11673 PRINT CHR$(28)
11674 PRINT " Plane 6: You made loss (thousand USD): "; vb%
11675 usd& = usd& - vb%
11676 IF usd& < 1 THEN
GOTO 93000
11677 ELSE
GOTO 11970
11678 END IF
11970 REM Want to quit?
11971 PRINT CHR$(28)
11972 PRINT " 1 - Quit"
11973 PRINT " 2 - Continue"
11974 PRINT CHR$(28)
11975 INPUT " Type '1' or '2' ", t%
11976 IF t% = 1 THEN
GOTO 94000
END IF
11977 IF t% = 2 THEN
GOTO 11980
11978 ELSE PRINT "Out of range."
GOTO 11971
11979 END IF
11980 PRINT "Please wait...."
11983 r% = r% + 1
11984 za% = za% - 1
11985 zb% = zb% - 1
11986 zc% = zc% - 1
11987 zd% = zd% - 1
11988 ze% = ze% - 1
11989 zf% = zf% - 1
11996 ann% = ann% + 4
11997 IF ann% > 20840 THEN
GOTO 94000
11998 ELSE
GOTO 11000
11999 END IF
12300 REM DC-8: Onko Rahaa?
12301 IF usd& < 9000 THEN
GOTO 12310
12302 ELSE
GOTO 12320
12303 END IF
12310 REM Rahaa ei ole
12311 PRINT CHR$(28)
12312 PRINT " Bank account must be over 9000k USD."
12317 GOTO 11000
12320 REM rahaa on ostat DC-8
12321 usd& = usd& - 8000
12323 zg% = (490 * ac%) - r%
12324 efg% = 40
12326 GOTO 13000
12400 REM DC-9: Onko Rahaa?
12401 IF usd& < 13000 THEN
GOTO 12410
12402 ELSE
GOTO 12420
12403 END IF
12410 REM Rahaa ei ole
12411 PRINT CHR$(28)
12412 PRINT " Bank account must be over 13000k USD."
12417 GOTO 11000
12420 REM rahaa on ostat DC-9
12421 usd& = usd& - 12000
12423 zg% = (550 * ac%) - r%
12424 efg% = 60
12426 GOTO 13000
12500 REM B-727: Onko Rahaa?
12501 IF usd& < 15000 THEN
GOTO 12510
12502 ELSE
GOTO 12520
12503 END IF
12510 REM Rahaa ei ole
12511 PRINT CHR$(28)
12512 PRINT " Bank account must be over 15000k USD."
12517 GOTO 11000
12520 REM rahaa on ostat B-727
12521 usd& = usd& - 14000
12523 zg% = (600 * ac%) - r%
12524 efg% = 30
12526 GOTO 13000
12600 REM B-737: Onko Rahaa?
12601 IF usd& < 21000 THEN
GOTO 12610
12602 ELSE
GOTO 12620
12603 END IF
12610 REM Rahaa ei ole
12611 PRINT CHR$(28)
12612 PRINT " Bank account must be over 21000k USD."
12617 GOTO 11000
12620 REM rahaa on ostat B-737
12621 usd& = usd& - 20000
12623 zg% = (700 * ac%) - r%
12624 efg% = 100
12626 GOTO 13000
12700 REM B-757: Onko Rahaa?
12701 IF usd& < 23000 THEN
GOTO 12710
12702 ELSE
GOTO 12720
12703 END IF
12710 REM Rahaa ei ole
12711 PRINT CHR$(28)
12712 PRINT " Bank account must be over 23000k USD."
12717 GOTO 11000
12720 REM rahaa on ostat B-757
12721 usd& = usd& - 22000
12723 zg% = (750 * ac%) - r%
12724 efg% = 120
12726 GOTO 13000
12800 REM B-777: Onko Rahaa?
12801 IF usd& < 29000 THEN
GOTO 12810
12802 ELSE
GOTO 12820
12803 END IF
12810 REM Rahaa ei ole
12811 PRINT CHR$(28)
12812 PRINT " Bank account must be over 29000k USD."
12817 GOTO 11000
12820 REM rahaa on ostat B-777
12821 usd& = usd& - 28000
12823 zg% = (840 * ac%) - r%
12824 efg% = 90
12826 GOTO 13000
12900 REM A-350: Onko Rahaa?
12901 IF usd& < 33000 THEN
GOTO 12910
12902 ELSE
GOTO 12920
12903 END IF
12910 REM Rahaa ei ole
12911 PRINT CHR$(28)
12912 PRINT " Bank account must be over 33000k USD."
12917 GOTO 11000
12920 REM rahaa on ostat A-350
12921 usd& = usd& - 32000
12923 zg% = (900 * ac%) - r%
12924 efg% = 130
12926 GOTO 13000
12998 REM Taso 7: Seven Routes
13000 SLEEP 1
13020 CLS
13021 PRINT CHR$(28)
13026 PRINT " Minsk - Moscow ============"
13027 PRINT " Minsk - Novosibirsk = Level 7 ="
13028 PRINT " Minsk - St. Petersburg ============"
13029 PRINT " Minsk - Vladivostok"
13030 PRINT " Minsk - Beijing"
13031 PRINT " Minsk - Shanghai"
13032 PRINT " Minsk - Ulan Bator"
13036 PRINT CHR$(28)
13037 PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
13042 PRINT CHR$(28)
13100 PRINT " -----------------------------------------"
13125 PRINT " 1 - Buy DC-9 (12000 thousand USD)"
13130 PRINT " 2 - Buy B-727 (14000 thousand USD)"
13135 PRINT " 3 - Buy B-737 (20000 thousand USD)"
13140 PRINT " 4 - Buy B-757 (22000 thousand USD)"
13150 PRINT " 5 - Buy B-777 (28000 thousand USD)"
13155 PRINT " 6 - Buy A-350 (32000 thousand USD)"
13157 PRINT " + Compensation 20000k USD."
13160 PRINT " -----------------------------------------"
13170 PRINT " 9 - Proceed for 146 days ahead"
13180 PRINT " -----------------------------------------"
13182 PRINT CHR$(28)
13184 INPUT " Type '1' to '6' or '9' ", t%
13186 IF t% = 1 THEN
GOTO 14400
END IF
13187 IF t% = 2 THEN
GOTO 14500
END IF
13188 IF t% = 3 THEN
GOTO 14600
END IF
13189 IF t% = 4 THEN
GOTO 14700
END IF
13190 IF t% = 5 THEN
GOTO 14800
END IF
13191 IF t% = 6 THEN
GOTO 14900
END IF
13194 IF t% = 9 THEN
GOTO 13300
13195 ELSE
PRINT "Out of range."
13196 END IF
13300 CLS
13301 SLEEP 1
13302 RANDOMIZE TIMER
13303 zaa% = INT(RND * za%) + 1
13304 IF zaa% = 1 THEN
GOTO 92000
13305 ELSE
GOTO 13308
13307 END IF
13308 PRINT " A-310: No crash."
13309 PRINT " Risk was one per "; za%
13310 PRINT CHR$(28)
13311 SLEEP 1
13312 zba% = INT(RND * zb%) + 1
13313 IF zba% = 1 THEN
GOTO 92000
13314 ELSE
GOTO 13318
13315 END IF
13318 PRINT " Plane 2: No crash."
13319 PRINT " Risk was one per "; zb%
13320 PRINT CHR$(28)
13321 SLEEP 1
13322 zca% = INT(RND * zc%) + 1
13323 IF zca% = 1 THEN
GOTO 92000
13324 ELSE
GOTO 13328
13325 END IF
13328 PRINT " Plane 3: No crash."
13329 PRINT " Risk was one per "; zc%
13330 PRINT CHR$(28)
13331 SLEEP 1
13332 zda% = INT(RND * zd%) + 1
13333 IF zda% = 1 THEN
GOTO 92000
13334 ELSE
GOTO 13338
13335 END IF
13338 PRINT " Plane 4: No crash."
13339 PRINT " Risk was one per "; zd%
13340 PRINT CHR$(28)
13341 SLEEP 1
13342 zea% = INT(RND * ze%) + 1
13343 IF zea% = 1 THEN
GOTO 92000
13344 ELSE
GOTO 13348
13345 END IF
13348 PRINT " Plane 5: No crash."
13349 PRINT " Risk was one per "; ze%
13350 PRINT CHR$(28)
13351 SLEEP 1
13352 zfa% = INT(RND * zf%) + 1
13353 IF zfa% = 1 THEN
GOTO 92000
13354 ELSE
GOTO 13358
13355 END IF
13358 PRINT " Plane 6: No crash."
13359 PRINT " Risk was one per "; zf%
13360 PRINT CHR$(28)
13361 SLEEP 1
13362 zga% = INT(RND * zg%) + 1
13363 IF zga% = 1 THEN
GOTO 92000
13364 ELSE
GOTO 13368
13365 END IF
13368 PRINT " Plane 7: No crash."
13369 PRINT " Risk was one per "; zg%
13400 REM Voittoa vai tappiota: A-310?
13401 v% = INT(RND * 4) + 1
13402 IF v% = 1 THEN
GOTO 13420
13403 ELSE
GOTO 13410
13404 END IF
13410 REM Voittoa: A-310
13411 va% = INT(RND * 500) + 1
13412 vb% = va% + efa%
13413 PRINT CHR$(28)
13414 PRINT " Plane 1: You made profit (thousand USD): "; vb%
13415 usd& = usd& + vb%
13416 GOTO 13450
13420 REM Tappiota: A-310
13421 va% = INT(RND * 500) + 150
13422 vb% = va% + efa%
13423 PRINT CHR$(28)
13424 PRINT " Plane 1: You made loss (thousand USD): "; vb%
13425 usd& = usd& - vb%
13426 IF usd& < 1 THEN
GOTO 93000
13427 ELSE
GOTO 13450
13428 END IF
13450 REM Voittoa vai tappiota: Kone-2?
13451 v% = INT(RND * 4) + 1
13452 IF v% = 1 THEN
GOTO 13470
13453 ELSE
GOTO 13460
13454 END IF
13460 REM Voittoa: Kone-2
13461 va% = INT(RND * 500) + 1
13462 vb% = va% + efb%
13463 PRINT CHR$(28)
13464 PRINT " Plane 2: You made profit (thousand USD): "; vb%
13465 usd& = usd& + vb%
13466 GOTO 13500
13470 REM Tappiota: Kone-2
13471 va% = INT(RND * 500) + 150
13472 vb% = va% + efb%
13473 PRINT CHR$(28)
13474 PRINT " Plane 2: You made loss (thousand USD): "; vb%
13475 usd& = usd& - vb%
13476 IF usd& < 1 THEN
GOTO 93000
13477 ELSE
GOTO 13500
13478 END IF
13500 REM Voittoa vai tappiota: Kone-3?
13501 v% = INT(RND * 4) + 1
13502 IF v% = 1 THEN
GOTO 13520
13503 ELSE
GOTO 13510
13504 END IF
13510 REM Voittoa: Kone-3
13511 va% = INT(RND * 500) + 1
13512 vb% = va% + efc%
13513 PRINT CHR$(28)
13514 PRINT " Plane 3: You made profit (thousand USD): "; vb%
13515 usd& = usd& + vb%
13516 GOTO 13550
13520 REM Tappiota: Kone-3
13521 va% = INT(RND * 500) + 150
13522 vb% = va% + efc%
13523 PRINT CHR$(28)
13524 PRINT " Plane 3: You made loss (thousand USD): "; vb%
13525 usd& = usd& - vb%
13526 IF usd& < 1 THEN
GOTO 93000
13527 ELSE
GOTO 13550
13528 END IF
13550 REM Voittoa vai tappiota: Kone-4?
13551 v% = INT(RND * 4) + 1
13552 IF v% = 1 THEN
GOTO 13570
13553 ELSE
GOTO 13560
13554 END IF
13560 REM Voittoa: Kone-4
13561 va% = INT(RND * 500) + 1
13562 vb% = va% + efd%
13563 PRINT CHR$(28)
13564 PRINT " Plane 4: You made profit (thousand USD): "; vb%
13565 usd& = usd& + vb%
13566 GOTO 13600
13570 REM Tappiota: Kone-4
13571 va% = INT(RND * 500) + 150
13572 vb% = va% + efd%
13573 PRINT CHR$(28)
13574 PRINT " Plane 4: You made loss (thousand USD): "; vb%
13575 usd& = usd& - vb%
13576 IF usd& < 1 THEN
GOTO 93000
13577 ELSE
GOTO 13600
13578 END IF
13600 REM Voittoa vai tappiota: Kone-5?
13601 v% = INT(RND * 4) + 1
13602 IF v% = 1 THEN
GOTO 13620
13603 ELSE
GOTO 13610
13604 END IF
13610 REM Voittoa: Kone-5
13611 va% = INT(RND * 500) + 1
13612 vb% = va% + efe%
13613 PRINT CHR$(28)
13614 PRINT " Plane 5: You made profit (thousand USD): "; vb%
13615 usd& = usd& + vb%
13616 GOTO 13650
13620 REM Tappiota: Kone-5
13621 va% = INT(RND * 500) + 150
13622 vb% = va% + efe%
13623 PRINT CHR$(28)
13624 PRINT " Plane 5: You made loss (thousand USD): "; vb%
13625 usd& = usd& - vb%
13626 IF usd& < 1 THEN
GOTO 93000
13627 ELSE
GOTO 13650
13628 END IF
13650 REM Voittoa vai tappiota: Kone-6?
13651 v% = INT(RND * 4) + 1
13652 IF v% = 1 THEN
GOTO 13670
13653 ELSE
GOTO 13660
13654 END IF
13660 REM Voittoa: Kone-6
13661 va% = INT(RND * 500) + 1
13662 vb% = va% + eff%
13663 PRINT CHR$(28)
13664 PRINT " Plane 6: You made profit (thousand USD): "; vb%
13665 usd& = usd& + vb%
13666 GOTO 13700
13670 REM Tappiota: Kone-6
13671 va% = INT(RND * 500) + 150
13672 vb% = va% + eff%
13673 PRINT CHR$(28)
13674 PRINT " Plane 6: You made loss (thousand USD): "; vb%
13675 usd& = usd& - vb%
13676 IF usd& < 1 THEN
GOTO 93000
13677 ELSE
GOTO 13700
13678 END IF
13700 REM Voittoa vai tappiota: Kone-7?
13701 v% = INT(RND * 4) + 1
13702 IF v% = 1 THEN
GOTO 13720
13703 ELSE
GOTO 13710
17604 END IF
13710 REM Voittoa: Kone-7
13711 va% = INT(RND * 500) + 1
13712 vb% = va% + efg%
13713 PRINT CHR$(28)
13714 PRINT " Plane 7: You made profit (thousand USD): "; vb%
13715 usd& = usd& + vb%
13716 GOTO 13970
13720 REM Tappiota: Kone-7
13721 va% = INT(RND * 500) + 150
13722 vb% = va% + efg%
13723 PRINT CHR$(28)
13724 PRINT " Plane 7: You made loss (thousand USD): "; vb%
13725 usd& = usd& - vb%
13726 IF usd& < 1 THEN
GOTO 93000
13727 ELSE
GOTO 13970
13728 END IF
13970 REM Want to quit?
13971 PRINT CHR$(28)
13972 PRINT " 1 - Quit"
13973 PRINT " 2 - Continue"
13974 PRINT CHR$(28)
13975 INPUT " Type '1' or '2' ", t%
13976 IF t% = 1 THEN
GOTO 94000
END IF
13977 IF t% = 2 THEN
GOTO 13980
13978 ELSE PRINT "Out of range."
GOTO 13971
13979 END IF
13980 PRINT "Please wait...."
13983 r% = r% + 1
13984 za% = za% - 1
13985 zb% = zb% - 1
13986 zc% = zc% - 1
13987 zd% = zd% - 1
13988 ze% = ze% - 1
13989 zf% = zf% - 1
13990 zg% = zg% - 1
13996 ann% = ann% + 4
13997 IF ann% > 20840 THEN
GOTO 94000
13998 ELSE
GOTO 13000
13999 END IF
14400 REM DC-9: Onko Rahaa?
14401 IF usd& < 13000 THEN
GOTO 14410
14402 ELSE
GOTO 14420
14403 END IF
14410 REM Rahaa ei ole
14411 PRINT CHR$(28)
14412 PRINT " Bank account must be over 13000k USD."
14417 GOTO 13000
14420 REM rahaa on ostat DC-9
14421 usd& = usd& - 12000
14423 zh% = (550 * ac%) - r%
14424 efh% = 60
14426 GOTO 15000
14500 REM B-727: Onko Rahaa?
14501 IF usd& < 15000 THEN
GOTO 14510
14502 ELSE
GOTO 14520
14503 END IF
14510 REM Rahaa ei ole
14511 PRINT CHR$(28)
14512 PRINT " Bank account must be over 15000k USD."
14517 GOTO 13000
14520 REM rahaa on ostat B-727
14521 usd& = usd& - 14000
14523 zh% = (600 * ac%) - r%
14524 efh% = 30
14526 GOTO 15000
14600 REM B-737: Onko Rahaa?
14601 IF usd& < 21000 THEN
GOTO 14610
14602 ELSE
GOTO 14620
14603 END IF
14610 REM Rahaa ei ole
14611 PRINT CHR$(28)
14612 PRINT " Bank account must be over 21000k USD."
14617 GOTO 13000
14620 REM rahaa on ostat B-737
14621 usd& = usd& - 20000
14623 zh% = (700 * ac%) - r%
14624 efh% = 100
14626 GOTO 15000
14700 REM B-757: Onko Rahaa?
14701 IF usd& < 23000 THEN
GOTO 14710
14702 ELSE
GOTO 14720
14703 END IF
14710 REM Rahaa ei ole
14711 PRINT CHR$(28)
14712 PRINT " Bank account must be over 23000k USD."
14717 GOTO 13000
14720 REM rahaa on ostat B-757
14721 usd& = usd& - 22000
14723 zh% = (750 * ac%) - r%
14724 efh% = 120
14726 GOTO 15000
14800 REM B-777: Onko Rahaa?
14801 IF usd& < 29000 THEN
GOTO 14810
14802 ELSE
GOTO 14820
14803 END IF
14810 REM Rahaa ei ole
14811 PRINT CHR$(28)
14812 PRINT " Bank account must be over 29000k USD."
14817 GOTO 13000
14820 REM rahaa on ostat B-777
14821 usd& = usd& - 28000
14823 zh% = (840 * ac%) - r%
14824 efh% = 90
14826 GOTO 15000
14900 REM A-350: Onko Rahaa?
14901 IF usd& < 33000 THEN
GOTO 14910
14902 ELSE
GOTO 14920
14903 END IF
14910 REM Rahaa ei ole
14911 PRINT CHR$(28)
14912 PRINT " Bank account must be over 33000k USD."
14917 GOTO 13000
14920 REM rahaa on ostat A-350
14921 usd& = usd& - 32000
14923 zh% = (900 * ac%) - r%
14924 efh% = 130
14926 GOTO 15000
14998 REM Taso 8: Eight Routes
15000 SLEEP 1
15020 CLS
15021 PRINT CHR$(28)
15026 PRINT " Minsk - Moscow ============"
15027 PRINT " Minsk - Novosibirsk = Level 8 ="
15028 PRINT " Minsk - St. Petersburg ============"
15029 PRINT " Minsk - Vladivostok"
15030 PRINT " Minsk - Beijing"
15031 PRINT " Minsk - Shanghai"
15032 PRINT " Minsk - Ulan Bator"
15033 PRINT " Minsk - Tokyo"
15036 PRINT CHR$(28)
15037 PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
15042 PRINT CHR$(28)
15100 PRINT " -------------------------------------------"
15105 PRINT " 1 - Dump plane #2 and replace it with B-737"
15106 PRINT " 2 - Dump plane #3 and replace it with B-737"
15108 PRINT " 3 - Dump plane #4 and replace it with B-737"
15160 PRINT " -------------------------------------------"
15170 PRINT " 9 - Proceed for 146 days ahead."
15180 PRINT " -------------------------------------------"
15182 PRINT CHR$(28)
15184 INPUT " Type '1' to '3' or '9' ", t%
15186 IF t% = 1 THEN
GOTO 20000
END IF
15187 IF t% = 2 THEN
GOTO 21000
END IF
15188 IF t% = 3 THEN
GOTO 22000
END IF
15194 IF t% = 9 THEN
GOTO 15300
15195 ELSE
PRINT "Out of range."
15196 END IF
15300 CLS
15301 SLEEP 1
15302 RANDOMIZE TIMER
15303 zaa% = INT(RND * za%) + 1
15304 IF zaa% = 1 THEN
GOTO 92000
15305 ELSE
GOTO 15308
15307 END IF
15308 PRINT " A-310: No crash."
15309 PRINT " Risk was one per "; za%
15310 PRINT CHR$(28)
15311 SLEEP 1
15312 zba% = INT(RND * zb%) + 1
15313 IF zba% = 1 THEN
GOTO 92000
15314 ELSE
GOTO 15318
15315 END IF
15318 PRINT " Plane 2: No crash."
15319 PRINT " Risk was one per "; zb%
15320 PRINT CHR$(28)
15321 SLEEP 1
15322 zca% = INT(RND * zc%) + 1
15323 IF zca% = 1 THEN
GOTO 92000
15324 ELSE
GOTO 15328
15325 END IF
15328 PRINT " Plane 3: No crash."
15329 PRINT " Risk was one per "; zc%
15330 PRINT CHR$(28)
15331 SLEEP 1
15332 zda% = INT(RND * zd%) + 1
15333 IF zda% = 1 THEN
GOTO 92000
15334 ELSE
GOTO 15338
15335 END IF
15338 PRINT " Plane 4: No crash."
15339 PRINT " Risk was one per "; zd%
15340 PRINT CHR$(28)
15341 SLEEP 1
15342 zea% = INT(RND * ze%) + 1
15343 IF zea% = 1 THEN
GOTO 92000
15344 ELSE
GOTO 15348
15345 END IF
15348 PRINT " Plane 5: No crash."
15349 PRINT " Risk was one per "; ze%
15350 PRINT CHR$(28)
15351 SLEEP 1
15352 zfa% = INT(RND * zf%) + 1
15353 IF zfa% = 1 THEN
GOTO 92000
15354 ELSE
GOTO 15358
15355 END IF
15358 PRINT " Plane 6: No crash."
15359 PRINT " Risk was one per "; zf%
15360 PRINT CHR$(28)
15361 SLEEP 1
15362 zga% = INT(RND * zg%) + 1
15363 IF zga% = 1 THEN
GOTO 92000
15364 ELSE
GOTO 15368
15365 END IF
15368 PRINT " Plane 7: No crash."
15369 PRINT " Risk was one per "; zg%
15370 PRINT CHR$(28)
15371 SLEEP 1
15372 zha% = INT(RND * zh%) + 1
15373 IF zha% = 1 THEN
GOTO 92000
15374 ELSE
GOTO 15378
15375 END IF
15378 PRINT " Plane 8: No crash."
15379 PRINT " Risk was one per "; zh%
15400 REM Voittoa vai tappiota: A-310?
15401 v% = INT(RND * 4) + 1
15402 IF v% = 1 THEN
GOTO 15420
15403 ELSE
GOTO 15410
15404 END IF
15410 REM Voittoa: A-310
15411 va% = INT(RND * 500) + 1
15412 vb% = va% + efa%
15413 PRINT CHR$(28)
15414 PRINT " Plane 1: You made profit (thousand USD): "; vb%
15415 usd& = usd& + vb%
15416 GOTO 15450
15420 REM Tappiota: A-310
15421 va% = INT(RND * 500) + 150
15422 vb% = va% + efa%
15423 PRINT CHR$(28)
15424 PRINT " Plane 1: You made loss (thousand USD): "; vb%
15425 usd& = usd& - vb%
15426 IF usd& < 1 THEN
GOTO 93000
15427 ELSE
GOTO 15450
15428 END IF
15450 REM Voittoa vai tappiota: Kone-2?
15451 v% = INT(RND * 4) + 1
15452 IF v% = 1 THEN
GOTO 15470
15453 ELSE
GOTO 15460
15454 END IF
15460 REM Voittoa: Kone-2
15461 va% = INT(RND * 500) + 1
15462 vb% = va% + efb%
15463 PRINT CHR$(28)
15464 PRINT " Plane 2: You made profit (thousand USD): "; vb%
15465 usd& = usd& + vb%
15466 GOTO 15500
15470 REM Tappiota: Kone-2
15471 va% = INT(RND * 500) + 150
15472 vb% = va% + efb%
15473 PRINT CHR$(28)
15474 PRINT " Plane 2: You made loss (thousand USD): "; vb%
15475 usd& = usd& - vb%
15476 IF usd& < 1 THEN
GOTO 93000
15477 ELSE
GOTO 15500
15478 END IF
15500 REM Voittoa vai tappiota: Kone-3?
15501 v% = INT(RND * 4) + 1
15502 IF v% = 1 THEN
GOTO 15520
15503 ELSE
GOTO 15510
15504 END IF
15510 REM Voittoa: Kone-3
15511 va% = INT(RND * 500) + 1
15512 vb% = va% + efc%
15513 PRINT CHR$(28)
15514 PRINT " Plane 3: You made profit (thousand USD): "; vb%
15515 usd& = usd& + vb%
15516 GOTO 15550
15520 REM Tappiota: Kone-3
15521 va% = INT(RND * 500) + 150
15522 vb% = va% + efc%
15523 PRINT CHR$(28)
15524 PRINT " Plane 3: You made loss (thousand USD): "; vb%
15525 usd& = usd& - vb%
15526 IF usd& < 1 THEN
GOTO 93000
15527 ELSE
GOTO 15550
15528 END IF
15550 REM Voittoa vai tappiota: Kone-4?
15551 v% = INT(RND * 4) + 1
15552 IF v% = 1 THEN
GOTO 15570
15553 ELSE
GOTO 15560
15554 END IF
15560 REM Voittoa: Kone-4
15561 va% = INT(RND * 500) + 1
15562 vb% = va% + efd%
15563 PRINT CHR$(28)
15564 PRINT " Plane 4: You made profit (thousand USD): "; vb%
15565 usd& = usd& + vb%
15566 GOTO 15600
15570 REM Tappiota: Kone-4
15571 va% = INT(RND * 500) + 150
15572 vb% = va% + efd%
15573 PRINT CHR$(28)
15574 PRINT " Plane 4: You made loss (thousand USD): "; vb%
15575 usd& = usd& - vb%
15576 IF usd& < 1 THEN
GOTO 93000
15577 ELSE
GOTO 15600
15578 END IF
15600 REM Voittoa vai tappiota: Kone-5?
15601 v% = INT(RND * 4) + 1
15602 IF v% = 1 THEN
GOTO 15620
15603 ELSE
GOTO 15610
15604 END IF
15610 REM Voittoa: Kone-5
15611 va% = INT(RND * 500) + 1
15612 vb% = va% + efe%
15613 PRINT CHR$(28)
15614 PRINT " Plane 5: You made profit (thousand USD): "; vb%
15615 usd& = usd& + vb%
15616 GOTO 15650
15620 REM Tappiota: Kone-5
15621 va% = INT(RND * 500) + 150
15622 vb% = va% + efe%
15623 PRINT CHR$(28)
15624 PRINT " Plane 5: You made loss (thousand USD): "; vb%
15625 usd& = usd& - vb%
15626 IF usd& < 1 THEN
GOTO 93000
15627 ELSE
GOTO 15650
15628 END IF
15650 REM Voittoa vai tappiota: Kone-6?
15651 v% = INT(RND * 4) + 1
15652 IF v% = 1 THEN
GOTO 15670
15653 ELSE
GOTO 15660
15654 END IF
15660 REM Voittoa: Kone-6
15661 va% = INT(RND * 500) + 1
15662 vb% = va% + eff%
15663 PRINT CHR$(28)
15664 PRINT " Plane 6: You made profit (thousand USD): "; vb%
15665 usd& = usd& + vb%
15666 GOTO 15700
15670 REM Tappiota: Kone-6
15671 va% = INT(RND * 500) + 150
15672 vb% = va% + eff%
15673 PRINT CHR$(28)
15674 PRINT " Plane 6: You made loss (thousand USD): "; vb%
15675 usd& = usd& - vb%
15676 IF usd& < 1 THEN
GOTO 93000
15677 ELSE
GOTO 15700
15678 END IF
15700 REM Voittoa vai tappiota: Kone-7?
15701 v% = INT(RND * 4) + 1
15702 IF v% = 1 THEN
GOTO 15720
15703 ELSE
GOTO 15710
15704 END IF
15710 REM Voittoa: Kone-7
15711 va% = INT(RND * 500) + 1
15712 vb% = va% + efg%
15713 PRINT CHR$(28)
15714 PRINT " Plane 7: You made profit (thousand USD): "; vb%
15715 usd& = usd& + vb%
15716 GOTO 15750
15720 REM Tappiota: Kone-7
15721 va% = INT(RND * 500) + 150
15722 vb% = va% + efg%
15723 PRINT CHR$(28)
15724 PRINT " Plane 7: You made loss (thousand USD): "; vb%
15725 usd& = usd& - vb%
15726 IF usd& < 1 THEN
GOTO 93000
15727 ELSE
GOTO 15750
15728 END IF
15750 REM Voittoa vai tappiota: Kone-8?
15751 v% = INT(RND * 4) + 1
15752 IF v% = 1 THEN
GOTO 15770
15753 ELSE
GOTO 15760
15754 END IF
15760 REM Voittoa: Kone-8
15761 va% = INT(RND * 500) + 1
15762 vb% = va% + efh%
15763 PRINT CHR$(28)
15764 PRINT " Plane 8: You made profit (thousand USD): "; vb%
15765 usd& = usd& + vb%
15766 GOTO 15970
15770 REM Tappiota: Kone-8
15771 va% = INT(RND * 500) + 150
15772 vb% = va% + efh%
15773 PRINT CHR$(28)
15774 PRINT " Plane 8: You made loss (thousand USD): "; vb%
15775 usd& = usd& - vb%
15776 IF usd& < 1 THEN
GOTO 93000
15777 ELSE
GOTO 15970
15778 END IF
15970 REM Want to quit?
15971 PRINT CHR$(28)
15972 PRINT " 1 - Quit"
15973 PRINT " 2 - Continue"
15974 PRINT CHR$(28)
15975 INPUT " Type '1' or '2' ", t%
15976 IF t% = 1 THEN
GOTO 94000
END IF
15977 IF t% = 2 THEN
GOTO 15980
15978 ELSE PRINT "Out of range."
GOTO 15971
15979 END IF
15980 PRINT "Please wait...."
15983 r% = r% + 1
15984 za% = za% - 1
15985 zb% = zb% - 1
15986 zc% = zc% - 1
15987 zd% = zd% - 1
15988 ze% = ze% - 1
15989 zf% = zf% - 1
15990 zg% = zg% - 1
15991 zh% = zh% - 1
15996 ann% = ann% + 4
15997 IF ann% > 20840 THEN
GOTO 94000
15998 ELSE
GOTO 15000
15999 END IF
20000 REM B-737: Onko Rahaa?
20001 IF usd& < 21000 THEN
GOTO 20010
20002 ELSE
GOTO 20020
20003 END IF
20010 REM Rahaa ei ole
20011 PRINT CHR$(28)
20012 PRINT " Bank account must be over 21000k USD."
20017 GOTO 15000
20020 REM rahaa on ostat B-737
20021 usd& = usd& - 20000
20023 zb% = (700 * ac%) - r%
20024 efb% = 100
20025 PRINT CHR$(28)
20026 PRINT " Minsk - Novosibirsk: B-737."
20030 GOTO 15000
21000 REM B-737: Onko Rahaa?
21001 IF usd& < 21000 THEN
GOTO 21010
21002 ELSE
GOTO 21020
21003 END IF
21010 REM Rahaa ei ole
21011 PRINT CHR$(28)
21012 PRINT " Bank account must be over 21000k USD."
21017 GOTO 15000
21020 REM rahaa on ostat B-737
21021 usd& = usd& - 20000
21023 zc% = (700 * ac%) - r%
21024 efc% = 100
21015 PRINT CHR$(28)
21026 PRINT " Minsk - St. Petersburg: B-737."
21030 GOTO 15000
22000 REM B-737: Onko Rahaa?
22001 IF usd& < 21000 THEN
GOTO 22010
22002 ELSE
GOTO 22020
22003 END IF
22010 REM Rahaa ei ole
22011 PRINT CHR$(28)
22012 PRINT " Bank account must be over 21000k USD."
22017 GOTO 15000
22020 REM rahaa on ostat B-737
22021 usd& = usd& - 20000
22023 zd% = (700 * ac%) - r%
22024 efd% = 100
22025 PRINT CHR$(28)
22026 PRINT " Minsk - Vladivostok: B-737."
22030 GOTO 15000
34010 PRINT CHR$(28)
34011 PRINT " Money in the Bank: "; usd&
34012 PRINT CHR$(28)
34100 PRINT " Compensation for A-350 (if you have)..."
34102 SLEEP 1
34150 IF efg% = 130 THEN
GOTO 34200
34151 ELSE
GOTO 34248
34152 END IF
34200 PRINT CHR$(28)
34201 PRINT " Compensation (plane #7) : 20000k USD."
34202 usd& = usd& + 20000
34203 GOTO 34250
34248 PRINT CHR$(28)
34249 PRINT " No compensation for plane #7."
34250 SLEEP 1
34251 IF efh% = 130 THEN
GOTO 34300
34252 ELSE
GOTO 34348
34253 END IF
34300 PRINT CHR$(28)
34301 PRINT " Compensation (plane #8) : 20000k USD."
34302 usd& = usd& + 20000
34303 GOTO 34400
34348 PRINT CHR$(28)
34349 PRINT " No compensation for plane #8."
34350 SLEEP 1
34400 PRINT CHR$(28)
34401 PRINT " Compensation for B-777 (if you have)..."
34403 SLEEP 1
34450 IF efe% = 90 THEN
GOTO 34500
34451 ELSE
GOTO 34548
34452 END IF
34500 PRINT CHR$(28)
34501 PRINT " Compensation (plane #5) : 10000k USD."
34502 usd& = usd& + 10000
34503 GOTO 34550
34548 PRINT CHR$(28)
34549 PRINT " No compensation for plane #5."
34550 SLEEP 1
34551 IF eff% = 90 THEN
GOTO 34600
34552 ELSE
GOTO 34648
34553 END IF
34600 PRINT CHR$(28)
34601 PRINT " Compensation (plane #6) : 10000k USD."
34602 usd& = usd& + 10000
34603 GOTO 34650
34648 PRINT CHR$(28)
34649 PRINT " No compensation for plane #6."
34650 SLEEP 1
34651 IF efg% = 90 THEN
GOTO 34700
34652 ELSE
GOTO 34748
34653 END IF
34700 PRINT CHR$(28)
34701 PRINT " Compensation (plane #7) : 10000k USD."
34702 usd& = usd& + 10000
34703 GOTO 34750
34748 PRINT CHR$(28)
34749 PRINT " No compensation for plane #7."
34750 SLEEP 1
34751 IF efh% = 90 THEN
GOTO 34800
34752 ELSE
GOTO 34848
34753 END IF
34800 PRINT CHR$(28)
34801 PRINT " Compensation (plane #8) : 10000k USD."
34802 usd& = usd& + 10000
34803 GOTO 35000
34848 PRINT CHR$(28)
34849 PRINT " No compensation for plane #8."
34850 PRINT CHR$(28)
34851 PRINT " Press SPACE."
34852 SLEEP 0
34860 CLS
35000 PRINT CHR$(28)
35001 PRINT " Score: "; usd&
35002 PRINT CHR$(28)
35005 PRINT CHR$(28)
35006 PRINT " Do you want to play again?"
35007 PRINT CHR$(28)
35008 PRINT CHR$(28)
35009 PRINT " 1 - Play again"
35010 PRINT " 2 - Quit"
35011 PRINT CHR$(28)
35012 INPUT " Type '1' or '2' ", t%
35013 IF t% = 1 THEN
GOTO 10
END IF
35014 IF t% = 2 THEN
GOTO 35020
35015 ELSE PRINT "Out of range."
GOTO 35009
35016 END IF
35020 END
92000 SLEEP 2
92001 CLS
92002 PRINT CHR$(28)
92003 PRINT " ============================="
92004 PRINT " = ="
92006 PRINT " = Plane crash - Game over ="
92007 PRINT " = ="
92008 PRINT " ============================="
92009 PRINT CHR$(28)
92015 usd& = usd& - ann%
92019 PRINT CHR$(28)
92020 GOTO 35000
93000 CLS
93002 PRINT CHR$(28)
93003 PRINT " ============================="
93004 PRINT " = ="
93006 PRINT " = Game over ="
93007 PRINT " = Out of money! ="
93008 PRINT " = ="
93009 PRINT " ============================="
93030 GOTO 35000
94000 CLS
94001 PRINT CHR$(28)
94002 PRINT " ============================="
94003 PRINT " = ="
94004 PRINT " = Game over ="
94005 PRINT " = ="
94006 PRINT " ============================="
94007 GOTO 34010