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 2 ="
23 PRINT " = ="
24 PRINT " ======================="
25 PRINT CHR$(28)
100 PRINT " Welcome to Canadian airline 'Emerson Airways'."
102 PRINT CHR$(28)
103 PRINT " It is a small local airline founded in 1964, in Winnipeg, Canada."
104 PRINT " However, it has big plans. At first, it is supposed to fly local"
105 PRINT " routes: from Winnipeg to Toronto, Vancouver, and North. But later"
106 PRINT " international flights, like London, Moscow, Tokyo, and Sydney."
107 PRINT CHR$(28)
110 PRINT " Emerson Airways has only one plane, B-727 and only one route: from"
111 PRINT " Winnipeg to Toronto. Your job is to make profit, buy new planes"
112 PRINT " and proceed to next year, and if you are lucky to reach the final"
113 PRINT " year: 2064. 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 nine levels:"
123 PRINT CHR$(28)
130 PRINT " Level 1: Winnipeg - Toronto"
131 PRINT " Level 2: Winnipeg - Vancouver"
132 PRINT " Level 3: Winnipeg - Yellowknife"
133 PRINT " Level 4: Winnipeg - Whitehorse"
134 PRINT " Level 5: Toronto - London (UK)"
135 PRINT " Level 6: Toronto - Moscow (Rus)"
136 PRINT " Level 7: Vancouver - Tokyo"
137 PRINT " Level 8: Vancouver - Beijing"
138 PRINT " Level 9: Toronto - New York"
140 PRINT CHR$(28)
150 PRINT " DC-6 has the highest risk of plane crash, 1/410 and it grows a little"
151 PRINT " every year. A-350 is the most safe, 1/1000 at the beginning. It is"
152 PRINT " also the most expensive to buy, but you get 20000k USD compensation"
153 PRINT " when you deside to quit the game. It is also the most fuel saving plane."
154 PRINT CHR$(28)
155 PRINT " You can't sell the plane, except at the level 9. But you can apply"
156 PRINT " that only to planes #2 to #4. However, your first plane is B-727, a very"
157 PRINT " safe plane in the year 1964, but the fuel consumption pretty high."
159 PRINT CHR$(28)
160 PRINT " Press SPACE"
161 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 ... zi) (efa ... efi)"
209 PRINT " -------------------------------------"
212 PRINT " DC-6: 410 50"
213 PRINT " DC-7: 470 70"
214 PRINT " B-707: 550 10"
215 PRINT " DC-8: 690 40"
216 PRINT " DC-9: 700 60"
218 PRINT " B-727: 750 30"
219 PRINT " B-737: 830 100"
220 PRINT " B-757: 850 120"
221 PRINT " B-777: 950 90"
222 PRINT " A-350: 1000 130"
225 PRINT CHR$(28)
226 PRINT " AV-rate means how suitable a plane is for certain route"
227 PRINT " varies, naturally. If the plane has to make stop-overs,"
228 PRINT " the rate is smaller, and it shrinks the profit, too."
230 PRINT CHR$(28)
232 PRINT " Press SPACE"
233 SLEEP 0
310 CLS
311 PRINT CHR$(28)
333 PRINT " CHOOSE LEVEL"
340 PRINT CHR$(28)
341 PRINT " 1 - Novice (profit up to 1180k USD)"
342 PRINT " 2 - Advanced (profit up to 980k USD)"
343 PRINT " 3 - Expert (profit up to 780k 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% = 1050
401 lb% = 350
402 GOTO 900
500 la% = 850
501 lb% = 400
502 GOTO 900
600 la% = 650
601 lb% = 450
602 GOTO 900
900 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
1000 za% = 750 * ac%
1011 r% = 0
1012 ann% = 19640
1013 usd& = 2100
1014 efa% = 40
1015 ava% = 110
1016 dub% = 0
1017 duc% = 0
1018 dud% = 0
1020 SLEEP 1
1021 CLS
1023 PRINT CHR$(28)
1024 PRINT " ============"
1025 PRINT " = LEVEL 1 ="
1026 PRINT " ============"
1027 PRINT CHR$(28)
1028 PRINT " Winnipeg - Toronto"
1029 PRINT CHR$(28)
1034 PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
1042 PRINT CHR$(28)
1098 PRINT " NEXT: Winnipeg - Vancouver EF-r AV-r"
1100 PRINT " -----------------------------------------"
1105 PRINT " 1 - Buy DC-6 (1000 thousand USD) 80 80"
1110 PRINT " 2 - Buy DC-7 (3000 thousand USD) 100 90"
1115 PRINT " 3 - Buy B-707 (6000 thousand USD) 10 100"
1120 PRINT " 4 - Buy DC-8 (8000 thousand USD) 40 80"
1125 PRINT " 5 - Buy DC-9 (12000 thousand USD) 60 110"
1130 PRINT " 6 - Buy B-727 (14000 thousand USD) 30 110"
1160 PRINT " -----------------------------------------"
1170 PRINT " 9 - Proceed for 146 days ahead"
1180 PRINT " -----------------------------------------"
1182 PRINT CHR$(28)
1184 INPUT " Type '1' to '6' or '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
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 " B-727: 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 va% = INT(RND * la%) + 1
1322 vb% = (va% + efa%) * (ava% / 100)
1324 PRINT CHR$(28)
1325 PRINT " You made profit (thousand USD): "; vb%
1327 usd& = usd& + vb%
1328 GOTO 1340
1330 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 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 1340
1349 END IF
1360 PRINT "Please wait...."
1363 r% = r% + 1
1364 za% = za% - 1
1365 ann% = ann% + 4
1366 IF ann% > 20640 THEN
GOTO 94000
1367 ELSE
GOTO 1020
1369 END IF
1500 IF usd& < 2000 THEN
GOTO 1510
1502 ELSE
GOTO 1520
1503 END IF
1510 PRINT CHR$(28)
1512 PRINT " Bank account must be over 2000k USD."
1517 GOTO 1020
1520 usd& = usd& - 1000
1523 zb% = (410 * ac%) - r%
1524 efb% = 80
1525 avb% = 80
1526 GOTO 3000
1600 IF usd& < 4000 THEN
GOTO 1610
1602 ELSE
GOTO 1620
1603 END IF
1610 PRINT CHR$(28)
1612 PRINT " Bank account must be over 4000k USD."
1617 GOTO 1020
1620 usd& = usd& - 3000
1623 zb% = (470 * ac%) - r%
1624 efb% = 100
1625 avb% = 90
1626 GOTO 3000
1700 IF usd& < 7000 THEN
GOTO 1710
1702 ELSE
GOTO 1720
1703 END IF
1710 PRINT CHR$(28)
1712 PRINT " Bank account must be over 7000k USD."
1717 GOTO 1020
1720 usd& = usd& - 6000
1723 zb% = (550 * ac%) - r%
1724 efb% = 10
1725 avb% = 100
1726 GOTO 3000
1800 IF usd& < 9000 THEN
GOTO 1810
1802 ELSE
GOTO 1820
1803 END IF
1810 PRINT CHR$(28)
1812 PRINT " Bank account must be over 9000k USD."
1817 GOTO 1020
1820 usd& = usd& - 8000
1823 zb% = (690 * ac%) - r%
1824 efb% = 40
1825 avb% = 80
1826 GOTO 3000
1900 IF usd& < 13000 THEN
GOTO 1910
1902 ELSE
GOTO 1920
1903 END IF
1910 PRINT CHR$(28)
1912 PRINT " Bank account must be over 13000k USD."
1917 GOTO 1020
1920 usd& = usd& - 12000
1923 zb% = (700 * ac%) - r%
1924 efb% = 60
1925 avb% = 110
1926 GOTO 3000
2000 IF usd& < 15000 THEN
GOTO 2010
2002 ELSE
GOTO 2020
2003 END IF
2010 PRINT CHR$(28)
2012 PRINT " Bank account must be over 15000k USD."
2017 GOTO 1020
2020 usd& = usd& - 14000
2023 zb% = (750 * ac%) - r%
2024 efb% = 30
2025 avb% = 110
2026 GOTO 3000
3000 SLEEP 1
3020 CLS
3021 PRINT CHR$(28)
3023 PRINT " ============"
3024 PRINT " = LEVEL 2 ="
3025 PRINT " ============"
3026 PRINT CHR$(28)
3027 PRINT " Winnipeg - Toronto"
3028 PRINT " Winnipeg - Vancouver"
3036 PRINT CHR$(28)
3037 PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
3038 PRINT CHR$(28)
3098 PRINT " NEXT: Winnipeg - Yellowknife EF-r AV-r"
3100 PRINT " -----------------------------------------"
3105 PRINT " 1 - Buy DC-6 (1000 thousand USD) 80 100"
3110 PRINT " 2 - Buy DC-7 (3000 thousand USD) 100 110"
3125 PRINT " 3 - Buy DC-9 (12000 thousand USD) 60 120"
3160 PRINT " -----------------------------------------"
3170 PRINT " 9 - Proceed for 146 days ahead"
3180 PRINT " -----------------------------------------"
3182 PRINT CHR$(28)
3184 INPUT " Type '1' to '3' or '9' ", t%
3186 IF t% = 1 THEN
GOTO 3500
END IF
3187 IF t% = 2 THEN
GOTO 3600
END IF
3190 IF t% = 3 THEN
GOTO 3900
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 " B-727: 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 v% = INT(RND * 4) + 1
3402 IF v% = 1 THEN
GOTO 3420
3403 ELSE
GOTO 3410
3404 END IF
3410 va% = INT(RND * la%) + 1
3412 vb% = (va% + efa%) * (ava% / 100)
3413 PRINT CHR$(28)
3414 PRINT " Plane 1: You made profit (thousand USD): "; vb%
3415 usd& = usd& + vb%
3416 GOTO 3450
3420 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 v% = INT(RND * 4) + 1
3452 IF v% = 1 THEN
GOTO 3470
3453 ELSE
GOTO 3460
3454 END IF
3460 va% = INT(RND * la%) + 1
3462 vb% = (va% + efb%) * (avb% / 100)
3463 PRINT CHR$(28)
3464 PRINT " Plane 2: You made profit (thousand USD): "; vb%
3465 usd& = usd& + vb%
3466 GOTO 3480
3470 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 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 3480
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% > 20640 THEN
GOTO 94000
3498 ELSE
GOTO 3000
3499 END IF
3500 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 usd& = usd& - 1000
3523 zc% = (410 * ac%) - r%
3524 efc% = 80
3525 avc% = 100
3526 GOTO 5000
3600 IF usd& < 4000 THEN
GOTO 3610
3602 ELSE
GOTO 3620
3603 END IF
3610 PRINT CHR$(28)
3612 PRINT " Bank account must be over 4000k USD."
3617 GOTO 3000
3620 usd& = usd& - 3000
3623 zc% = (470 * ac%) - r%
3624 efc% = 100
3625 avc% = 110
3626 GOTO 5000
3900 IF usd& < 13000 THEN
GOTO 3910
3902 ELSE
GOTO 3920
3903 END IF
3910 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% = (700 * ac%) - r%
3924 efc% = 60
3925 avc% = 120
3926 GOTO 5000
5000 SLEEP 1
5020 CLS
5021 PRINT CHR$(28)
5023 PRINT " ============"
5024 PRINT " = LEVEL 3 ="
5025 PRINT " ============"
5026 PRINT CHR$(28)
5027 PRINT " Winnipeg - Toronto"
5028 PRINT " Winnipeg - Vancouver"
5029 PRINT " Winnipeg - Yellowknife"
5036 PRINT CHR$(28)
5037 PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
5042 PRINT CHR$(28)
5098 PRINT " NEXT: Winnipeg - Whitehorse EF-r AV-r"
5100 PRINT " -----------------------------------------"
5105 PRINT " 1 - Buy DC-6 (1000 thousand USD) 80 100"
5110 PRINT " 2 - Buy DC-7 (3000 thousand USD) 100 110"
5125 PRINT " 3 - Buy DC-9 (12000 thousand USD) 60 120"
5160 PRINT " -----------------------------------------"
5170 PRINT " 9 - Proceed for 146 days ahead"
5180 PRINT " -----------------------------------------"
5182 PRINT CHR$(28)
5184 INPUT " Type '1' to '3' or '9' ", t%
5186 IF t% = 1 THEN
GOTO 6000
END IF
5187 IF t% = 2 THEN
GOTO 6100
END IF
5190 IF t% = 3 THEN
GOTO 6400
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 " B-727: 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 v% = INT(RND * 4) + 1
5402 IF v% = 1 THEN
GOTO 5420
5403 ELSE
GOTO 5410
5404 END IF
5410 va% = INT(RND * la%) + 1
5412 vb% = (va% + efa%) * (ava% / 100)
5413 PRINT CHR$(28)
5414 PRINT " Plane 1: You made profit (thousand USD): "; vb%
5415 usd& = usd& + vb%
5416 GOTO 5450
5420 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 v% = INT(RND * 4) + 1
5452 IF v% = 1 THEN
GOTO 5470
5453 ELSE
GOTO 5460
5454 END IF
5460 va% = INT(RND * la%) + 1
5462 vb% = (va% + efb%) * (avb% / 100)
5463 PRINT CHR$(28)
5464 PRINT " Plane 2: You made profit (thousand USD): "; vb%
5465 usd& = usd& + vb%
5466 GOTO 5500
5470 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 v% = INT(RND * 4) + 1
5502 IF v% = 1 THEN
GOTO 5520
5503 ELSE
GOTO 5510
5504 END IF
5510 va% = INT(RND * la%) + 1
5512 vb% = (va% + efc%) * (avc% / 100)
5513 PRINT CHR$(28)
5514 PRINT " Plane 3: You made profit (thousand USD): "; vb%
5515 usd& = usd& + vb%
5516 GOTO 5970
5520 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 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 5970
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% > 20640 THEN
GOTO 94000
5998 ELSE
GOTO 5000
5999 END IF
6000 IF usd& < 2000 THEN
GOTO 6010
6002 ELSE
GOTO 6020
6003 END IF
6010 PRINT CHR$(28)
6012 PRINT " Bank account must be over 2000k USD."
6017 GOTO 5000
6020 usd& = usd& - 1000
6023 zd% = (410 * ac%) - r%
6024 efd% = 80
6025 avd% = 100
6026 GOTO 7000
6100 IF usd& < 4000 THEN
GOTO 6110
6102 ELSE
GOTO 6120
6103 END IF
6110 PRINT CHR$(28)
6112 PRINT " Bank account must be over 4000k USD."
6117 GOTO 5000
6120 usd& = usd& - 3000
6123 zd% = (470 * ac%) - r%
6124 efd% = 100
6125 avd% = 110
6126 GOTO 7000
6400 IF usd& < 13000 THEN
GOTO 6410
6402 ELSE
GOTO 6420
6403 END IF
6410 PRINT CHR$(28)
6412 PRINT " Bank account must be over 13000k USD."
6417 GOTO 5000
6420 usd& = usd& - 12000
6423 zd% = (700 * ac%) - r%
6424 efd% = 60
6425 avd% = 120
6426 GOTO 7000
7000 SLEEP 1
7020 CLS
7021 PRINT CHR$(28)
7026 PRINT " Winnipeg - Toronto ============"
7027 PRINT " Winnipeg - Vancouver = LEVEL 4 ="
7028 PRINT " Winnipeg - Yellowknife ============"
7029 PRINT " Winnipeg - Whitehorse"
7036 PRINT CHR$(28)
7037 PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
7042 PRINT CHR$(28)
7098 PRINT " NEXT: Toronto - London (UK) EF-r AV-r"
7100 PRINT " -----------------------------------------"
7110 PRINT " 1 - Buy DC-8 (8000 thousand USD) 40 100"
7115 PRINT " 2 - Buy B-707 (6000 Thousand USD) 10 80"
7120 PRINT " 3 - Buy B-727 (14000 thousand USD) 30 80"
7125 PRINT " 4 - Buy B-737 (20000 thousand USD) 100 80"
7130 PRINT " 5 - Buy B-757 (22000 thousand USD) 120 120"
7160 PRINT " -----------------------------------------"
7170 PRINT " 9 - Proceed for 146 days ahead"
7180 PRINT " -----------------------------------------"
7182 PRINT CHR$(28)
7184 INPUT " Type '1' to '5' 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
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 " B-727: 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 v% = INT(RND * 4) + 1
7402 IF v% = 1 THEN
GOTO 7420
7403 ELSE
GOTO 7410
7404 END IF
7410 va% = INT(RND * 500) + 1
7412 vb% = (va% + efa%) * (ava% / 100)
7413 PRINT CHR$(28)
7414 PRINT " Plane 1: You made profit (thousand USD): "; vb%
7415 usd& = usd& + vb%
7416 GOTO 7450
7420 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 v% = INT(RND * 4) + 1
7452 IF v% = 1 THEN
GOTO 7470
7453 ELSE
GOTO 7460
7454 END IF
7460 va% = INT(RND * 500) + 1
7462 vb% = (va% + efb%) * (avb% / 100)
7463 PRINT CHR$(28)
7464 PRINT " Plane 2: You made profit (thousand USD): "; vb%
7465 usd& = usd& + vb%
7466 GOTO 7500
7470 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 v% = INT(RND * 4) + 1
7502 IF v% = 1 THEN
GOTO 7520
7503 ELSE
GOTO 7510
7504 END IF
7510 va% = INT(RND * 500) + 1
7512 vb% = (va% + efc%) * (avc% / 100)
7513 PRINT CHR$(28)
7514 PRINT " Plane 3: You made profit (thousand USD): "; vb%
7515 usd& = usd& + vb%
7516 GOTO 7550
7520 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 v% = INT(RND * 4) + 1
7552 IF v% = 1 THEN
GOTO 7570
7553 ELSE
GOTO 7560
7554 END IF
7560 va% = INT(RND * 500) + 1
7562 vb% = (va% + efd%) * (avd% / 100)
7563 PRINT CHR$(28)
7564 PRINT " Plane 4: You made profit (thousand USD): "; vb%
7565 usd& = usd& + vb%
7566 GOTO 7970
7570 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 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 7970
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% > 20640 THEN
GOTO 94000
7998 ELSE
GOTO 7000
7999 END IF
8300 IF usd& < 9000 THEN
GOTO 8310
8302 ELSE
GOTO 8320
8303 END IF
8310 PRINT CHR$(28)
8312 PRINT " Bank account must be over 9000k USD."
8317 GOTO 7000
8320 usd& = usd& - 8000
8323 ze% = (690 * ac%) - r%
8324 efe% = 40
8325 ave% = 100
8326 GOTO 9000
8400 IF usd& < 7000 THEN
GOTO 8410
8402 ELSE
GOTO 8420
8403 END IF
8410 PRINT CHR$(28)
8412 PRINT " Bank account must be over 7000k USD."
8417 GOTO 7000
8420 usd& = usd& - 6000
8423 ze% = (550 * ac%) - r%
8424 efe% = 10
8425 ave% = 80
8426 GOTO 9000
8500 IF usd& < 15000 THEN
GOTO 8510
8502 ELSE
GOTO 8520
8503 END IF
8510 PRINT CHR$(28)
8512 PRINT " Bank account must be over 15000k USD."
8517 GOTO 7000
8520 usd& = usd& - 14000
8523 ze% = (750 * ac%) - r%
8524 efe% = 30
8525 ave% = 80
8526 GOTO 9000
8600 IF usd& < 21000 THEN
GOTO 8610
8602 ELSE
GOTO 8620
8603 END IF
8610 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% = (830 * ac%) - r%
8624 efe% = 100
8625 ave% = 80
8626 GOTO 9000
8700 IF usd& < 23000 THEN
GOTO 8710
8702 ELSE
GOTO 8720
8703 END IF
8710 PRINT CHR$(28)
8712 PRINT " Bank account must be over 23000k USD."
8717 GOTO 7000
8720 usd& = usd& - 22000
8723 ze% = (850 * ac%) - r%
8724 efe% = 120
8725 ave% = 120
8726 GOTO 9000
9000 SLEEP 1
9020 CLS
9021 PRINT CHR$(28)
9026 PRINT " Winnipeg - Toronto ============"
9027 PRINT " Winnipeg - Vancouver = Level 5 ="
9028 PRINT " Winnipeg - Whitehorse ============"
9029 PRINT " Winnipeg - Yellowknife"
9030 PRINT " Toronto - London"
9036 PRINT CHR$(28)
9037 PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
9042 PRINT CHR$(28)
9098 PRINT " NEXT: Toronto - Moscow (Rus) EF-r AV-r"
9100 PRINT " -----------------------------------------"
9110 PRINT " 1 - Buy DC-8 (8000 thousand USD) 40 100"
9115 PRINT " 2 - Buy B-707 (6000 thousand USD) 10 80"
9120 PRINT " 3 - Buy B-727 (14000 thousand USD) 30 80"
9125 PRINT " 4 - Buy B-737 (20000 thousand USD) 100 80"
9130 PRINT " 5 - Buy B-757 (22000 thousand USD) 120 80"
9135 PRINT " 6 - Buy B-777 (28000 thousand USD) 90 130"
9140 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 " B-727: 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 v% = INT(RND * 4) + 1
9402 IF v% = 1 THEN
GOTO 9420
9403 ELSE
GOTO 9410
9404 END IF
9410 va% = INT(RND * 500) + 1
9412 vb% = (va% + efa%) * (ava% / 100)
9413 PRINT CHR$(28)
9414 PRINT " Plane 1: You made profit (thousand USD): "; vb%
9415 usd& = usd& + vb%
9416 GOTO 9450
9420 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 v% = INT(RND * 4) + 1
9452 IF v% = 1 THEN
GOTO 9470
9453 ELSE
GOTO 9460
9454 END IF
9460 va% = INT(RND * 500) + 1
9462 vb% = (va% + efb%) * (avb% / 100)
9463 PRINT CHR$(28)
9464 PRINT " Plane 2: You made profit (thousand USD): "; vb%
9465 usd& = usd& + vb%
9466 GOTO 9500
9470 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 v% = INT(RND * 4) + 1
9502 IF v% = 1 THEN
GOTO 9520
9503 ELSE
GOTO 9510
9504 END IF
9510 va% = INT(RND * 500) + 1
9512 vb% = (va% + efc%) * (avc% / 100)
9513 PRINT CHR$(28)
9514 PRINT " Plane 3: You made profit (thousand USD): "; vb%
9515 usd& = usd& + vb%
9516 GOTO 9550
9520 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 v% = INT(RND * 4) + 1
9552 IF v% = 1 THEN
GOTO 9570
9553 ELSE
GOTO 9560
9554 END IF
9560 va% = INT(RND * 500) + 1
9562 vb% = (va% + efd%) * (avd% / 100)
9563 PRINT CHR$(28)
9564 PRINT " Plane 4: You made profit (thousand USD): "; vb%
9565 usd& = usd& + vb%
9566 GOTO 9600
9570 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 v% = INT(RND * 4) + 1
9602 IF v% = 1 THEN
GOTO 9620
9603 ELSE
GOTO 9610
9604 END IF
9610 va% = INT(RND * 500) + 1
9612 vb% = (va% + efe%) * (ave% / 100)
9613 PRINT CHR$(28)
9614 PRINT " Plane 5: You made profit (thousand USD): "; vb%
9615 usd& = usd& + vb%
9616 GOTO 9970
9620 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 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 9970
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% > 20640 THEN
GOTO 94000
9998 ELSE
GOTO 9000
9999 END IF
10300 IF usd& < 9000 THEN
GOTO 10310
10302 ELSE
GOTO 10320
10303 END IF
10310 PRINT CHR$(28)
10312 PRINT " Bank account must be over 9000k USD."
10317 GOTO 9000
10320 usd& = usd& - 8000
10323 zf% = (690 * ac%) - r%
10324 eff% = 40
10325 avf% = 100
10326 GOTO 11000
10400 IF usd& < 7000 THEN
GOTO 10410
10402 ELSE
GOTO 10420
10403 END IF
10410 PRINT CHR$(28)
10412 PRINT " Bank account must be over 7000k USD."
10417 GOTO 9000
10420 usd& = usd& - 6000
10423 zf% = (550 * ac%) - r%
10424 eff% = 10
10425 avf% = 80
10426 GOTO 11000
10500 IF usd& < 15000 THEN
GOTO 10510
10502 ELSE
GOTO 10520
10503 END IF
10510 PRINT CHR$(28)
10512 PRINT " Bank account must be over 15000k USD."
10517 GOTO 9000
10520 usd& = usd& - 14000
10523 zf% = (750 * ac%) - r%
10524 eff% = 30
10525 avf% = 80
10526 GOTO 11000
10600 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 usd& = usd& - 20000
10623 zf% = (830 * ac%) - r%
10624 eff% = 100
10625 avf% = 80
10626 GOTO 11000
10700 IF usd& < 23000 THEN
GOTO 10710
10702 ELSE
GOTO 10720
10703 END IF
10710 PRINT CHR$(28)
10712 PRINT " Bank account must be over 23000k USD."
10717 GOTO 9000
10720 usd& = usd& - 22000
10723 zf% = (850 * ac%) - r%
10724 eff% = 120
10725 avf% = 80
10726 GOTO 11000
10800 IF usd& < 29000 THEN
GOTO 10810
10802 ELSE
GOTO 10820
10803 END IF
10810 PRINT CHR$(28)
10812 PRINT " Bank account must be over 29000k USD."
10817 GOTO 9000
10820 usd& = usd& - 28000
10823 zf% = (950 * ac%) - r%
10824 eff% = 90
10825 avf% = 130
10826 GOTO 11000
11000 SLEEP 1
11020 CLS
11021 PRINT CHR$(28)
11026 PRINT " Winnipeg - Toronto ============"
11027 PRINT " Winnipeg - Vancouver = Level 6 ="
11028 PRINT " Winnipeg - Whitehorse ============"
11029 PRINT " Winnipeg - Yellowknife"
11030 PRINT " Toronto - London"
11031 PRINT " Toronto - Moscow"
11036 PRINT CHR$(28)
11037 PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
11042 PRINT CHR$(28)
11098 PRINT " NEXT: Vancouver - Tokyo EF-r AV-r"
11100 PRINT " -----------------------------------------"
11110 PRINT " 1 - Buy DC-7 (3000 thousand USD) 100 80"
11120 PRINT " 2 - Buy DC-8 (8000 thousand USD) 40 110"
11150 PRINT " 3 - Buy B-777 (28000 thousand USD) 90 130"
11155 PRINT " 4 - Buy A-350 (32000 thousand USD) 130 140"
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 '4' or '9' ", t%
11187 IF t% = 1 THEN
GOTO 12600
END IF
11189 IF t% = 2 THEN
GOTO 12700
END IF
11191 IF t% = 3 THEN
GOTO 12800
END IF
11192 IF t% = 4 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 " B-727: 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: DC-8?
11401 v% = INT(RND * 4) + 1
11402 IF v% = 1 THEN
GOTO 11420
11403 ELSE
GOTO 11410
11404 END IF
11410 va% = INT(RND * 500) + 1
11412 vb% = (va% + efa%) * (ava% / 100)
11413 PRINT CHR$(28)
11414 PRINT " Plane 1: You made profit (thousand USD): "; vb%
11415 usd& = usd& + vb%
11416 GOTO 11450
11420 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 v% = INT(RND * 4) + 1
11452 IF v% = 1 THEN
GOTO 11470
11453 ELSE
GOTO 11460
11454 END IF
11460 va% = INT(RND * 500) + 1
11462 vb% = (va% + efb%) * (avb% / 100)
11463 PRINT CHR$(28)
11464 PRINT " Plane 2: You made profit (thousand USD): "; vb%
11465 usd& = usd& + vb%
11466 GOTO 11500
11470 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 v% = INT(RND * 4) + 1
11502 IF v% = 1 THEN
GOTO 11520
11503 ELSE
GOTO 11510
11504 END IF
11510 va% = INT(RND * 500) + 1
11512 vb% = (va% + efc%) * (avc% / 100)
11513 PRINT CHR$(28)
11514 PRINT " Plane 3: You made profit (thousand USD): "; vb%
11515 usd& = usd& + vb%
11516 GOTO 11550
11520 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 v% = INT(RND * 4) + 1
11552 IF v% = 1 THEN
GOTO 11570
11553 ELSE
GOTO 11560
11554 END IF
11560 va% = INT(RND * 500) + 1
11562 vb% = (va% + efd%) * (avd% / 100)
11563 PRINT CHR$(28)
11564 PRINT " Plane 4: You made profit (thousand USD): "; vb%
11565 usd& = usd& + vb%
11566 GOTO 11600
11570 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 v% = INT(RND * 4) + 1
11602 IF v% = 1 THEN
GOTO 11620
11603 ELSE
GOTO 11610
11604 END IF
11610 va% = INT(RND * 500) + 1
11612 vb% = (va% + efe%) * (ave% / 100)
11613 PRINT CHR$(28)
11614 PRINT " Plane 5: You made profit (thousand USD): "; vb%
11615 usd& = usd& + vb%
11616 GOTO 11650
11620 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 v% = INT(RND * 4) + 1
11652 IF v% = 1 THEN
GOTO 11670
11653 ELSE
GOTO 11660
11654 END IF
11660 va% = INT(RND * 500) + 1
11662 vb% = (va% + eff%) * (avf% / 100)
11663 PRINT CHR$(28)
11664 PRINT " Plane 6: You made profit (thousand USD): "; vb%
11665 usd& = usd& + vb%
11666 GOTO 11970
11670 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 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 11970
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% > 20640 THEN
GOTO 94000
11998 ELSE
GOTO 11000
11999 END IF
12600 IF usd& < 3000 THEN
GOTO 12610
12602 ELSE
GOTO 12620
12603 END IF
12610 PRINT CHR$(28)
12612 PRINT " Bank account must be over 4000k USD."
12617 GOTO 11000
12620 usd& = usd& - 3000
12623 zg% = (470 * ac%) - r%
12624 efg% = 100
12625 avg% = 80
12626 GOTO 13000
12700 IF usd& < 9000 THEN
GOTO 12710
12702 ELSE
GOTO 12720
12703 END IF
12710 PRINT CHR$(28)
12712 PRINT " Bank account must be over 9000k USD."
12717 GOTO 11000
12720 usd& = usd& - 8000
12723 zg% = (690 * ac%) - r%
12724 efg% = 40
12725 avg% = 110
12726 GOTO 13000
12800 IF usd& < 29000 THEN
GOTO 12810
12802 ELSE
GOTO 12820
12803 END IF
12810 PRINT CHR$(28)
12812 PRINT " Bank account must be over 29000k USD."
12817 GOTO 11000
12820 usd& = usd& - 28000
12823 zg% = (950 * ac%) - r%
12824 efg% = 90
12825 avg% = 130
12826 GOTO 13000
12900 IF usd& < 33000 THEN
GOTO 12910
12902 ELSE
GOTO 12920
12903 END IF
12910 PRINT CHR$(28)
12912 PRINT " Bank account must be over 33000k USD."
12917 GOTO 11000
12920 usd& = usd& - 32000
12923 zg% = (1000 * ac%) - r%
12924 efg% = 130
12925 avg% = 140
12926 GOTO 13000
13000 SLEEP 1
13020 CLS
13021 PRINT CHR$(28)
13026 PRINT " Winnipeg - Toronto ============"
13027 PRINT " Winnipeg - Vancouver = Level 7 ="
13028 PRINT " Winnipeg - Whitehorse ============"
13029 PRINT " Winnipeg - Yellowknife"
13030 PRINT " Toronto - London"
13031 PRINT " Toronto - Moscow"
13032 PRINT " Vancouver - Tokyo"
13036 PRINT CHR$(28)
13037 PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
13042 PRINT CHR$(28)
13098 PRINT " NEXT: Vancouver - Beijing EF-r AV-r"
13100 PRINT " -----------------------------------------"
13110 PRINT " 1 - Buy DC-7 (3000 thousand USD) 100 80"
13120 PRINT " 2 - Buy DC-8 (8000 thousand USD) 40 110"
13150 PRINT " 3 - Buy B-777 (28000 thousand USD) 90 130"
13155 PRINT " 4 - Buy A-350 (32000 thousand USD) 130 140"
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 '4' or '9' ", t%
13187 IF t% = 1 THEN
GOTO 14600
END IF
13189 IF t% = 2 THEN
GOTO 14700
END IF
13191 IF t% = 3 THEN
GOTO 14800
END IF
13192 IF t% = 4 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 " B-727: 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: DC-8?
13401 v% = INT(RND * 4) + 1
13402 IF v% = 1 THEN
GOTO 13420
13403 ELSE
GOTO 13410
13404 END IF
13410 va% = INT(RND * 500) + 1
13412 vb% = (va% + efa%) * (ava% / 100)
13413 PRINT CHR$(28)
13414 PRINT " Plane 1: You made profit (thousand USD): "; vb%
13415 usd& = usd& + vb%
13416 GOTO 13450
13420 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 v% = INT(RND * 4) + 1
13452 IF v% = 1 THEN
GOTO 13470
13453 ELSE
GOTO 13460
13454 END IF
13460 va% = INT(RND * 500) + 1
13462 vb% = (va% + efb%) * (avb% / 100)
13463 PRINT CHR$(28)
13464 PRINT " Plane 2: You made profit (thousand USD): "; vb%
13465 usd& = usd& + vb%
13466 GOTO 13500
13470 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 v% = INT(RND * 4) + 1
13502 IF v% = 1 THEN
GOTO 13520
13503 ELSE
GOTO 13510
13504 END IF
13510 va% = INT(RND * 500) + 1
13512 vb% = (va% + efc%) * (avc% / 100)
13513 PRINT CHR$(28)
13514 PRINT " Plane 3: You made profit (thousand USD): "; vb%
13515 usd& = usd& + vb%
13516 GOTO 13550
13520 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 v% = INT(RND * 4) + 1
13552 IF v% = 1 THEN
GOTO 13570
13553 ELSE
GOTO 13560
13554 END IF
13560 va% = INT(RND * 500) + 1
13562 vb% = (va% + efd%) * (avd% / 100)
13563 PRINT CHR$(28)
13564 PRINT " Plane 4: You made profit (thousand USD): "; vb%
13565 usd& = usd& + vb%
13566 GOTO 13600
13570 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 v% = INT(RND * 4) + 1
13602 IF v% = 1 THEN
GOTO 13620
13603 ELSE
GOTO 13610
13604 END IF
13610 va% = INT(RND * 500) + 1
13612 vb% = (va% + efe%) * (ave% / 100)
13613 PRINT CHR$(28)
13614 PRINT " Plane 5: You made profit (thousand USD): "; vb%
13615 usd& = usd& + vb%
13616 GOTO 13650
13620 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 v% = INT(RND * 4) + 1
13652 IF v% = 1 THEN
GOTO 13670
13653 ELSE
GOTO 13660
13654 END IF
13660 va% = INT(RND * 500) + 1
13662 vb% = (va% + eff%) * (avf% / 100)
13663 PRINT CHR$(28)
13664 PRINT " Plane 6: You made profit (thousand USD): "; vb%
13665 usd& = usd& + vb%
13666 GOTO 13700
13670 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 v% = INT(RND * 4) + 1
13702 IF v% = 1 THEN
GOTO 13720
13703 ELSE
GOTO 13710
13704 END IF
13710 va% = INT(RND * 500) + 1
13712 vb% = (va% + efg%) * (avg% / 100)
13713 PRINT CHR$(28)
13714 PRINT " Plane 7: You made profit (thousand USD): "; vb%
13715 usd& = usd& + vb%
13716 GOTO 13970
13720 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 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 13970
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% > 20640 THEN
GOTO 94000
13998 ELSE
GOTO 13000
13999 END IF
14600 IF usd& < 3000 THEN
GOTO 14610
14602 ELSE
GOTO 14620
14603 END IF
14610 PRINT CHR$(28)
14612 PRINT " Bank account must be over 4000k USD."
14617 GOTO 13000
14620 usd& = usd& - 3000
14623 zh% = (470 * ac%) - r%
14624 efh% = 100
14625 avh% = 80
14626 GOTO 17000
14700 IF usd& < 9000 THEN
GOTO 14710
14702 ELSE
GOTO 14720
14703 END IF
14710 PRINT CHR$(28)
14712 PRINT " Bank account must be over 9000k USD."
14717 GOTO 13000
14720 usd& = usd& - 8000
14723 zh% = (690 * ac%) - r%
14724 efh% = 40
14725 avh% = 110
14726 GOTO 17000
14800 IF usd& < 29000 THEN
GOTO 14810
14802 ELSE
GOTO 14820
14803 END IF
14810 PRINT CHR$(28)
14812 PRINT " Bank account must be over 29000k USD."
14817 GOTO 13000
14820 usd& = usd& - 28000
14823 zh% = (950 * ac%) - r%
14824 efh% = 90
14825 avh% = 130
14826 GOTO 17000
14900 IF usd& < 33000 THEN
GOTO 14910
14902 ELSE
GOTO 14920
14903 END IF
14910 PRINT CHR$(28)
14912 PRINT " Bank account must be over 33000k USD."
14917 GOTO 13000
14920 usd& = usd& - 32000
14923 zh% = (1000 * ac%) - r%
14924 efh% = 130
14925 avh% = 140
14926 GOTO 17000
15000 SLEEP 1
15201 CLS
15021 PRINT CHR$(28)
15026 PRINT " Winnipeg - Toronto ============"
15027 PRINT " Winnipeg - Vancouver = Level 9 ="
15028 PRINT " Winnipeg - Whitehorse ============"
15029 PRINT " Winnipeg - Yellowknife"
15030 PRINT " Toronto - London"
15031 PRINT " Toronto - Moscow"
15032 PRINT " Vancouver - Tokyo"
15033 PRINT " Vancouver - Beijing"
15034 PRINT " Toronto - New York"
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 16050
END IF
15187 IF t% = 2 THEN
GOTO 16150
END IF
15188 IF t% = 3 THEN
GOTO 16250
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 " B-727: 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 v% = INT(RND * 4) + 1
15402 IF v% = 1 THEN
GOTO 15420
15403 ELSE
GOTO 15410
15404 END IF
15410 va% = INT(RND * 500) + 1
15412 vb% = (va% + efa%) * (ava% / 100)
15413 PRINT CHR$(28)
15414 PRINT " Plane 1: You made profit (thousand USD): "; vb%
15415 usd& = usd& + vb%
15416 GOTO 15450
15420 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 v% = INT(RND * 4) + 1
15452 IF v% = 1 THEN
GOTO 15470
15453 ELSE
GOTO 15460
15454 END IF
15460 va% = INT(RND * 500) + 1
15462 vb% = (va% + efb%) * (avb% / 100)
15463 PRINT CHR$(28)
15464 PRINT " Plane 2: You made profit (thousand USD): "; vb%
15465 usd& = usd& + vb%
15466 GOTO 15500
15470 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 v% = INT(RND * 4) + 1
15502 IF v% = 1 THEN
GOTO 15520
15503 ELSE
GOTO 15510
15504 END IF
15510 va% = INT(RND * 500) + 1
15512 vb% = (va% + efc%) * (avc% / 100)
15513 PRINT CHR$(28)
15514 PRINT " Plane 3: You made profit (thousand USD): "; vb%
15515 usd& = usd& + vb%
15516 GOTO 15550
15520 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 v% = INT(RND * 4) + 1
15552 IF v% = 1 THEN
GOTO 15570
15553 ELSE
GOTO 15560
15554 END IF
15560 va% = INT(RND * 500) + 1
15562 vb% = (va% + efd%) * (avd% / 100)
15563 PRINT CHR$(28)
15564 PRINT " Plane 4: You made profit (thousand USD): "; vb%
15565 usd& = usd& + vb%
15566 GOTO 15600
15570 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 v% = INT(RND * 4) + 1
15602 IF v% = 1 THEN
GOTO 15620
15603 ELSE
GOTO 15610
15604 END IF
15610 va% = INT(RND * 500) + 1
15612 vb% = (va% + efe%) * (ave% / 100)
15613 PRINT CHR$(28)
15614 PRINT " Plane 5: You made profit (thousand USD): "; vb%
15615 usd& = usd& + vb%
15616 GOTO 15650
15620 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 v% = INT(RND * 4) + 1
15652 IF v% = 1 THEN
GOTO 15670
15653 ELSE
GOTO 15660
15654 END IF
15660 va% = INT(RND * 500) + 1
15662 vb% = (va% + eff%) * (avf% / 100)
15663 PRINT CHR$(28)
15664 PRINT " Plane 6: You made profit (thousand USD): "; vb%
15665 usd& = usd& + vb%
15666 GOTO 15700
15670 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 v% = INT(RND * 4) + 1
15702 IF v% = 1 THEN
GOTO 15720
15703 ELSE
GOTO 15710
15704 END IF
15710 va% = INT(RND * 500) + 1
15712 vb% = (va% + efg%) * (avg% / 100)
15713 PRINT CHR$(28)
15714 PRINT " Plane 7: You made profit (thousand USD): "; vb%
15715 usd& = usd& + vb%
15716 GOTO 15750
15720 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 v% = INT(RND * 4) + 1
15752 IF v% = 1 THEN
GOTO 15770
15753 ELSE
GOTO 15760
15754 END IF
15760 va% = INT(RND * 500) + 1
15762 vb% = (va% + efh%) * (avh% / 100)
15763 PRINT CHR$(28)
15764 PRINT " Plane 8: You made profit (thousand USD): "; vb%
15765 usd& = usd& + vb%
15766 GOTO 15800
15770 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 15800
15778 END IF
15800 v% = INT(RND * 4) + 1
15802 IF v% = 1 THEN
GOTO 15820
15803 ELSE
GOTO 15810
15804 END IF
15810 va% = INT(RND * 500) + 1
15812 vb% = (va% + efi%) * (avi% / 100)
15813 PRINT CHR$(28)
15814 PRINT " Plane 9: You made profit (thousand USD): "; vb%
15815 usd& = usd& + vb%
15816 GOTO 15970
15820 va% = INT(RND * 500) + 150
15822 vb% = va% + efi%
15823 PRINT CHR$(28)
15824 PRINT " Plane 7: You made loss (thousand USD): "; vb%
15825 usd& = usd& - vb%
15826 IF usd& < 1 THEN
GOTO 93000
15827 ELSE
GOTO 15970
15828 END IF
15970 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 15970
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
15992 zi% = zi% - 1
15996 ann% = ann% + 4
15997 IF ann% > 20640 THEN
GOTO 94000
15998 ELSE
GOTO 15000
15999 END IF
16000 IF usd& < 21000 THEN
GOTO 16010
16002 ELSE
GOTO 16020
16003 END IF
16010 PRINT CHR$(28)
16012 PRINT " Bank account must be over 21000k USD."
16017 GOTO 15000
16020 usd& = usd& - 20000
16022 dub% = 1
16023 zb% = (830 * ac%) - r%
16024 efb% = 100
16025 avb% = 100
16026 PRINT " Winnipeg - Vancouver: B-737."
16027 SLEEP 1
16028 GOTO 15000
16050 IF dub% = 1 THEN
GOTO 16060
16051 ELSE
GOTO 16000
16052 END IF
16060 PRINT CHR$(28)
16062 PRINT " You already have that plane."
16067 GOTO 15000
16100 IF usd& < 21000 THEN
GOTO 16110
16102 ELSE
GOTO 16120
16103 END IF
16110 PRINT CHR$(28)
16112 PRINT " Bank account must be over 21000k USD."
16117 GOTO 15000
16120 usd& = usd& - 20000
16122 duc% = 1
16123 zc% = (830 * ac%) - r%
16124 efc% = 100
16125 avc% = 90
16126 PRINT " Winnipeg - Yellowknife: B-737."
16127 SLEEP 1
16128 GOTO 15000
16150 IF duc% = 1 THEN
GOTO 16160
16151 ELSE
GOTO 16100
16152 END IF
16160 PRINT CHR$(28)
16162 PRINT " You already have that plane."
16167 GOTO 15000
16200 IF usd& < 21000 THEN
GOTO 16210
16202 ELSE
GOTO 16220
16203 END IF
16210 PRINT CHR$(28)
16212 PRINT " Bank account must be over 21000k USD."
16217 GOTO 15000
16220 usd& = usd& - 20000
16222 dud% = 1
16223 zd% = (830 * ac%) - r%
16224 efd% = 100
16225 avd% = 90
16226 PRINT " Winnipeg - Whitehorse: B-737."
16227 SLEEP 1
16228 GOTO 15000
16250 IF dud% = 1 THEN
GOTO 16260
16251 ELSE
GOTO 16200
16252 END IF
16260 PRINT CHR$(28)
16262 PRINT " You already have that plane."
16267 GOTO 15000
17000 SLEEP 1
17020 CLS
17021 PRINT CHR$(28)
17026 PRINT " Winnipeg - Toronto ============"
17027 PRINT " Winnipeg - Vancouver = Level 8 ="
17028 PRINT " Winnipeg - Whitehorse ============"
17029 PRINT " Winnipeg - Yellowknife"
17030 PRINT " Toronto - London"
17031 PRINT " Toronto - Moscow"
17032 PRINT " Vancouver - Tokyo"
17034 PRINT " Vancouver - Beijing"
17036 PRINT CHR$(28)
17037 PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
17042 PRINT CHR$(28)
17098 PRINT " NEXT: Toronto - New York EF-r AV-r"
17100 PRINT " -----------------------------------------"
17105 PRINT " 1 - Buy B-727 (14000 thousand USD) 30 90"
17110 PRINT " 2 - Buy B-737 (20000 thousand USD) 100 110"
17120 PRINT " 3 - Buy B-757 (22000 thousand USD) 120 120"
17150 PRINT " 4 - Buy B-777 (28000 thousand USD) 90 80"
17155 PRINT " 5 - Buy A-350 (32000 thousand USD) 130 80"
17160 PRINT " -----------------------------------------"
17170 PRINT " 9 - Proceed for 146 days ahead"
17180 PRINT " -----------------------------------------"
17182 PRINT CHR$(28)
17184 INPUT " Type '1' to '5' or '9' ", t%
17186 IF t% = 1 THEN
GOTO 18500
END IF
17187 IF t% = 2 THEN
GOTO 18600
END IF
17188 IF t% = 3 THEN
GOTO 18700
END IF
17191 IF t% = 4 THEN
GOTO 18800
END IF
17192 IF t% = 5 THEN
GOTO 18900
END IF
17194 IF t% = 9 THEN
GOTO 17300
17195 ELSE
PRINT "Out of range."
17196 END IF
17300 CLS
17301 SLEEP 1
17302 RANDOMIZE TIMER
17303 zaa% = INT(RND * za%) + 1
17304 IF zaa% = 1 THEN
GOTO 92000
17305 ELSE
GOTO 17308
17307 END IF
17308 PRINT " B-727: No crash."
17309 PRINT " Risk was one per "; za%
17310 PRINT CHR$(28)
17311 SLEEP 1
17312 zba% = INT(RND * zb%) + 1
17313 IF zba% = 1 THEN
GOTO 92000
17314 ELSE
GOTO 17318
17315 END IF
17318 PRINT " Plane 2: No crash."
17319 PRINT " Risk was one per "; zb%
17320 PRINT CHR$(28)
17321 SLEEP 1
17322 zca% = INT(RND * zc%) + 1
17323 IF zca% = 1 THEN
GOTO 92000
17324 ELSE
GOTO 17328
17325 END IF
17328 PRINT " Plane 3: No crash."
17329 PRINT " Risk was one per "; zc%
17330 PRINT CHR$(28)
17331 SLEEP 1
17332 zda% = INT(RND * zd%) + 1
17333 IF zda% = 1 THEN
GOTO 92000
17334 ELSE
GOTO 17338
17335 END IF
17338 PRINT " Plane 4: No crash."
17339 PRINT " Risk was one per "; zd%
17340 PRINT CHR$(28)
17341 SLEEP 1
17342 zea% = INT(RND * ze%) + 1
17343 IF zea% = 1 THEN
GOTO 92000
17344 ELSE
GOTO 17348
17345 END IF
17348 PRINT " Plane 5: No crash."
17349 PRINT " Risk was one per "; ze%
17350 PRINT CHR$(28)
17351 SLEEP 1
17352 zfa% = INT(RND * zf%) + 1
17353 IF zfa% = 1 THEN
GOTO 92000
17354 ELSE
GOTO 17358
17355 END IF
17358 PRINT " Plane 6: No crash."
17359 PRINT " Risk was one per "; zf%
17360 PRINT CHR$(28)
17361 SLEEP 1
17362 zga% = INT(RND * zg%) + 1
17363 IF zga% = 1 THEN
GOTO 92000
17364 ELSE
GOTO 17368
17365 END IF
17368 PRINT " Plane 7: No crash."
17369 PRINT " Risk was one per "; zg%
17370 PRINT CHR$(28)
17371 SLEEP 1
17372 zha% = INT(RND * zg%) + 1
17373 IF zha% = 1 THEN
GOTO 92000
17374 ELSE
GOTO 17378
17375 END IF
17378 PRINT " Plane 8: No crash."
17379 PRINT " Risk was one per "; zh%
17401 v% = INT(RND * 4) + 1
17402 IF v% = 1 THEN
GOTO 17420
17403 ELSE
GOTO 17410
17404 END IF
17410 va% = INT(RND * 500) + 1
17412 vb% = (va% + efa%) * (ava% / 100)
17413 PRINT CHR$(28)
17414 PRINT " Plane 1: You made profit (thousand USD): "; vb%
17415 usd& = usd& + vb%
17416 GOTO 17450
17420 va% = INT(RND * 500) + 150
17422 vb% = va% + efa%
17423 PRINT CHR$(28)
17424 PRINT " Plane 1: You made loss (thousand USD): "; vb%
17425 usd& = usd& - vb%
17426 IF usd& < 1 THEN
GOTO 93000
17427 ELSE
GOTO 17450
17428 END IF
17450 v% = INT(RND * 4) + 1
17452 IF v% = 1 THEN
GOTO 17470
17453 ELSE
GOTO 17460
17454 END IF
17460 va% = INT(RND * 500) + 1
17462 vb% = (va% + efb%) * (avb% / 100)
17463 PRINT CHR$(28)
17464 PRINT " Plane 2: You made profit (thousand USD): "; vb%
17465 usd& = usd& + vb%
17466 GOTO 17500
17470 va% = INT(RND * 500) + 150
17472 vb% = va% + efb%
17473 PRINT CHR$(28)
17474 PRINT " Plane 2: You made loss (thousand USD): "; vb%
17475 usd& = usd& - vb%
17476 IF usd& < 1 THEN
GOTO 93000
17477 ELSE
GOTO 17500
17478 END IF
17500 v% = INT(RND * 4) + 1
17502 IF v% = 1 THEN
GOTO 17520
17503 ELSE
GOTO 17510
17504 END IF
17510 va% = INT(RND * 500) + 1
17512 vb% = (va% + efc%) * (avc% / 100)
17513 PRINT CHR$(28)
17514 PRINT " Plane 3: You made profit (thousand USD): "; vb%
17515 usd& = usd& + vb%
17516 GOTO 17550
17520 va% = INT(RND * 500) + 150
17522 vb% = va% + efc%
17523 PRINT CHR$(28)
17524 PRINT " Plane 3: You made loss (thousand USD): "; vb%
17525 usd& = usd& - vb%
17526 IF usd& < 1 THEN
GOTO 93000
17527 ELSE
GOTO 17550
17528 END IF
17550 v% = INT(RND * 4) + 1
17552 IF v% = 1 THEN
GOTO 17570
17553 ELSE
GOTO 17560
17554 END IF
17560 va% = INT(RND * 500) + 1
17562 vb% = (va% + efd%) * (avd% / 100)
17563 PRINT CHR$(28)
17564 PRINT " Plane 4: You made profit (thousand USD): "; vb%
17565 usd& = usd& + vb%
17566 GOTO 17600
17570 va% = INT(RND * 500) + 150
17572 vb% = va% + efd%
17573 PRINT CHR$(28)
17574 PRINT " Plane 4: You made loss (thousand USD): "; vb%
17575 usd& = usd& - vb%
17576 IF usd& < 1 THEN
GOTO 93000
17577 ELSE
GOTO 17600
17578 END IF
17600 v% = INT(RND * 4) + 1
17602 IF v% = 1 THEN
GOTO 17620
17603 ELSE
GOTO 17610
17604 END IF
17610 va% = INT(RND * 500) + 1
17612 vb% = (va% + efe%) * (ave% / 100)
17613 PRINT CHR$(28)
17614 PRINT " Plane 5: You made profit (thousand USD): "; vb%
17615 usd& = usd& + vb%
17616 GOTO 17650
17620 va% = INT(RND * 500) + 150
17622 vb% = va% + efe%
17623 PRINT CHR$(28)
17624 PRINT " Plane 5: You made loss (thousand USD): "; vb%
17625 usd& = usd& - vb%
17626 IF usd& < 1 THEN
GOTO 93000
17627 ELSE
GOTO 17650
17628 END IF
17650 v% = INT(RND * 4) + 1
17652 IF v% = 1 THEN
GOTO 17670
17653 ELSE
GOTO 17660
17654 END IF
17660 va% = INT(RND * 500) + 1
17662 vb% = (va% + eff%) * (avf% / 100)
17663 PRINT CHR$(28)
17664 PRINT " Plane 6: You made profit (thousand USD): "; vb%
17665 usd& = usd& + vb%
17666 GOTO 17700
17670 va% = INT(RND * 500) + 150
17672 vb% = va% + eff%
17673 PRINT CHR$(28)
17674 PRINT " Plane 6: You made loss (thousand USD): "; vb%
17675 usd& = usd& - vb%
17676 IF usd& < 1 THEN
GOTO 93000
17677 ELSE
GOTO 17700
17678 END IF
17700 v% = INT(RND * 4) + 1
17702 IF v% = 1 THEN
GOTO 17720
17703 ELSE
GOTO 17710
17704 END IF
17710 va% = INT(RND * 500) + 1
17712 vb% = (va% + efg%) * (avg% / 100)
17713 PRINT CHR$(28)
17714 PRINT " Plane 7: You made profit (thousand USD): "; vb%
17715 usd& = usd& + vb%
17716 GOTO 17750
17720 va% = INT(RND * 500) + 150
17722 vb% = va% + efg%
17723 PRINT CHR$(28)
17724 PRINT " Plane 7: You made loss (thousand USD): "; vb%
17725 usd& = usd& - vb%
17726 IF usd& < 1 THEN
GOTO 93000
17727 ELSE
GOTO 17750
17728 END IF
17750 v% = INT(RND * 4) + 1
17752 IF v% = 1 THEN
GOTO 17770
17753 ELSE
GOTO 17760
17754 END IF
17760 va% = INT(RND * 500) + 1
17762 vb% = (va% + efh%) * (avh% / 100)
17763 PRINT CHR$(28)
17764 PRINT " Plane 6: You made profit (thousand USD): "; vb%
17765 usd& = usd& + vb%
17766 GOTO 17970
17770 va% = INT(RND * 500) + 150
17772 vb% = va% + efh%
17773 PRINT CHR$(28)
17774 PRINT " Plane 6: You made loss (thousand USD): "; vb%
17775 usd& = usd& - vb%
17776 IF usd& < 1 THEN
GOTO 93000
17777 ELSE
GOTO 17970
17778 END IF
17970 PRINT CHR$(28)
17972 PRINT " 1 - Quit"
17973 PRINT " 2 - Continue"
17974 PRINT CHR$(28)
17975 INPUT " Type '1' or '2' ", t%
17976 IF t% = 1 THEN
GOTO 94000
END IF
17977 IF t% = 2 THEN
GOTO 17980
17978 ELSE PRINT "Out of range."
GOTO 17970
17979 END IF
17980 PRINT "Please wait...."
17983 r% = r% + 1
17984 za% = za% - 1
17985 zb% = zb% - 1
17986 zc% = zc% - 1
17987 zd% = zd% - 1
17988 ze% = ze% - 1
17989 zf% = zf% - 1
17990 zg% = zg% - 1
17991 zh% = zh% - 1
17996 ann% = ann% + 4
17997 IF ann% > 20640 THEN
GOTO 94000
17998 ELSE
GOTO 17000
17999 END IF
18500 IF usd& < 15000 THEN
GOTO 18510
18502 ELSE
GOTO 18520
18503 END IF
18510 PRINT CHR$(28)
18512 PRINT " Bank account must be over 15000k USD."
18517 GOTO 17000
18520 usd& = usd& - 14000
18523 zi% = (750 * ac%) - r%
18524 efi% = 30
18525 avi% = 90
18526 GOTO 15000
18600 IF usd& < 21000 THEN
GOTO 18610
18602 ELSE
GOTO 18620
18603 END IF
18610 PRINT CHR$(28)
18612 PRINT " Bank account must be over 21000k USD."
18617 GOTO 17000
18620 usd& = usd& - 20000
18623 zi% = (830 * ac%) - r%
18624 efi% = 100
18625 avi% = 110
18626 GOTO 15000
18700 IF usd& < 23000 THEN
GOTO 18710
18702 ELSE
GOTO 18720
18703 END IF
18710 PRINT CHR$(28)
18712 PRINT " Bank account must be over 23000k USD."
18717 GOTO 17000
18720 usd& = usd& - 22000
18723 zi% = (850 * ac%) - r%
18724 efi% = 120
18725 avi% = 120
18726 GOTO 15000
18800 IF usd& < 29000 THEN
GOTO 18810
18802 ELSE
GOTO 18820
18803 END IF
18810 PRINT CHR$(28)
18812 PRINT " Bank account must be over 29000k USD."
18817 GOTO 17000
18820 usd& = usd& - 28000
18823 zi% = (950 * ac%) - r%
18824 efi% = 90
18825 avi% = 130
18826 GOTO 15000
18900 IF usd& < 33000 THEN
GOTO 18910
18902 ELSE
GOTO 18920
18903 END IF
18910 PRINT CHR$(28)
18912 PRINT " Bank account must be over 33000k USD."
18917 GOTO 17000
18920 usd& = usd& - 32000
18923 zi% = (1000 * ac%) - r%
18924 efi% = 130
18925 avi% = 140
18926 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 34448
34253 END IF
34300 PRINT CHR$(28)
34301 PRINT " Compensation (plane #8) : 20000k USD."
34302 usd& = usd& + 20000
34303 GOTO 34350
34348 PRINT CHR$(28)
34349 PRINT " No compensation for plane #8."
34350 SLEEP 1
34351 IF efh% = 130 THEN
GOTO 34400
34352 ELSE
GOTO 34448
34353 END IF
34400 PRINT CHR$(28)
34401 PRINT " Compensation (plane #9) : 20000k USD."
34402 usd& = usd& + 20000
34448 PRINT CHR$(28)
34449 PRINT " No compensation for plane #9."
34500 PRINT CHR$(28)
34501 PRINT " Compensation for B-777 (if you have)..."
34503 SLEEP 1
34550 IF eff% = 90 THEN
GOTO 34600
34551 ELSE
GOTO 34648
34552 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 34850
34848 PRINT CHR$(28)
34849 PRINT " No compensation for plane #8."
34850 SLEEP 1
34851 IF efi% = 90 THEN
GOTO 34900
34852 ELSE
GOTO 34948
34853 END IF
34900 PRINT CHR$(28)
34901 PRINT " Compensation (plane #9) : 10000k USD."
34902 usd& = usd& + 10000
34903 GOTO 35000
34948 PRINT CHR$(28)
34949 PRINT " No compensation for plane #9."
34950 PRINT CHR$(28)
34951 PRINT " Press SPACE."
34952 SLEEP 0
34960 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