https://htmleditor.online/
---------------------------------------
5 SCREEN 0
10 COLOR 7, 1
14 CLS
18 PRINT CHR$(28)
PRINT " ========================"
PRINT " = ="
PRINT " = Fukuoka Wings ="
PRINT " = (Airline 3) ="
PRINT " = ="
PRINT " ========================"
PRINT CHR$(28)
PRINT " Written: Pasi Toivonen (2024)"
PRINT CHR$(28)
PRINT " email: hurricaneharvey64@gmail.com "
PRINT CHR$(28)
PRINT " Use the code and create a better one!"
PRINT CHR$(28)
PRINT " ======================================"
PRINT CHR$(28)
330 PRINT " CHOOSE LEVEL"
PRINT CHR$(28)
PRINT " 1 - Novice (profit up to 1480k USD)"
PRINT " 2 - Advanced (profit up to 1380k USD)"
PRINT " 3 - Expert (profit up to 1280k USD)"
PRINT CHR$(28)
350 INPUT " Type '1' to '3' ", t%
351 IF t% = 1 THEN
la% = 750
lb% = 350
GOTO 900
END IF
352 IF t% = 2 THEN
la% = 650
lb% = 400
GOTO 900
END IF
353 IF t% = 3 THEN
la% = 550
lb% = 450
GOTO 900
354 ELSE
PRINT "Out of range."
GOTO 350
355 END IF
900 CLS
PRINT CHR$(28)
PRINT " Do you want normal or reduced accident rate?"
PRINT CHR$(28)
PRINT " 1 - Normal"
PRINT " 2 - Reduced (50% off)"
PRINT CHR$(28)
910 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% = 780 * ac%
r% = 0
ann% = 19640
usd& = 3100
efa% = 30
ava% = 110
sc% = 1
dub% = 0
duc% = 0
dud% = 0
due% = 0
duf% = 0
1020 SLEEP 1
lev% = 1
CLS
PRINT CHR$(28)
PRINT " ============"
PRINT " = LEVEL 1 ="
PRINT " ============"
PRINT CHR$(28)
PRINT " Fukuoka - Tokyo"
PRINT CHR$(28)
PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
PRINT CHR$(28)
PRINT " NEXT: Fukuoka - Sapporo EF-r AV-r"
PRINT " -----------------------------------------"
PRINT " 1 - Buy DC-6 (1000 thousand USD) 80 80"
PRINT " 2 - Buy DC-7 (3000 thousand USD) 100 90"
PRINT " 3 - Buy B-707 (6000 thousand USD) 10 100"
PRINT " 4 - Buy DC-8 (8000 thousand USD) 40 80"
PRINT " 5 - Buy DC-9 (12000 thousand USD) 60 110"
PRINT " 6 - Buy B-727 (14000 thousand USD) 30 110"
PRINT " -----------------------------------------"
PRINT " 9 - Proceed for 146 days ahead"
PRINT " -----------------------------------------"
PRINT CHR$(28)
1180 INPUT " Type '1' to '6' or '9' ", t%
IF t% = 1 THEN
GOTO 1500
END IF
IF t% = 2 THEN
GOTO 1600
END IF
IF t% = 3 THEN
GOTO 1700
END IF
IF t% = 4 THEN
GOTO 1800
END IF
IF t% = 5 THEN
GOTO 1900
END IF
IF t% = 6 THEN
GOTO 2000
END IF
IF t% = 9 THEN
GOTO 30000
ELSE
PRINT "Out of range."
GOTO 1020
END IF
1340 PRINT CHR$(28)
PRINT " Total Score: "; usd& + sc%
1341 PRINT CHR$(28)
PRINT " 1 - Quit"
PRINT " 2 - Continue"
PRINT CHR$(28)
1345 INPUT " Type '1' or '2' ", t%
IF t% = 1 THEN
GOTO 94000
END IF
IF t% = 2 THEN
GOTO 1360
ELSE
PRINT "Out of range."
GOTO 1341
END IF
1360 PRINT "Please wait...."
1363 r% = r% + 1
sc% = sc% + r%
za% = za% - 1
ann% = ann% + 4
1365 IF ann% > 20640 THEN
GOTO 93500
ELSE
GOTO 1020
END IF
1500 IF usd& > 2000 THEN
GOTO 1520
ELSE
PRINT " Bank account must be over 2000k USD."
GOTO 1020
END IF
1520 usd& = usd& - 1000
zb% = (410 * ac%) - r%
efb% = 80
avb% = 80
GOTO 3000
1600 IF usd& > 4000 THEN
GOTO 1620
ELSE
PRINT " Bank account must be over 4000k USD."
GOTO 1020
END IF
1620 usd& = usd& - 3000
zb% = (470 * ac%) - r%
efb% = 100
avb% = 90
GOTO 3000
1700 IF usd& > 7000 THEN
GOTO 1720
ELSE
PRINT " Bank account must be over 7000k USD."
GOTO 1020
END IF
1720 usd& = usd& - 6000
zb% = (550 * ac%) - r%
efb% = 10
avb% = 100
GOTO 3000
1800 IF usd& > 9000 THEN
GOTO 1820
ELSE
PRINT " Bank account must be over 9000k USD."
GOTO 1020
END IF
1820 usd& = usd& - 8000
zb% = (690 * ac%) - r%
efb% = 40
avb% = 80
GOTO 3000
1900 IF usd& > 13000 THEN
GOTO 1920
ELSE
PRINT " Bank account must be over 13000k USD."
GOTO 1020
END IF
1920 usd& = usd& - 12000
zb% = (700 * ac%) - r%
efb% = 60
avb% = 110
GOTO 3000
2000 IF usd& > 15000 THEN
GOTO 2020
ELSE
PRINT " Bank account must be over 15000k USD."
GOTO 1020
END IF
2020 usd& = usd& - 14000
zb% = (780 * ac%) - r%
efb% = 30
avb% = 110
3000 SLEEP 1
lev% = 2
CLS
PRINT CHR$(28)
PRINT " ============"
PRINT " = LEVEL 2 ="
PRINT " ============"
PRINT CHR$(28)
PRINT " Fukuoka - Tokyo"
PRINT " Fukuoka - Sapporo"
PRINT CHR$(28)
PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
PRINT CHR$(28)
PRINT " NEXT: Tokyo - Sapporo EF-r AV-r"
PRINT " -----------------------------------------"
PRINT " 1 - Buy DC-7 (3000 thousand USD) 100 90"
PRINT " 2 - Buy B-707 (6000 thousand USD) 10 120"
PRINT " 3 - Buy DC-8 (8000 thousand USD) 40 80"
PRINT " 4 - Buy DC-9 (12000 thousand USD) 60 90"
PRINT " 5 - Buy B-727 (14000 thousand USD) 30 120"
PRINT " -----------------------------------------"
PRINT " 9 - Proceed for 146 days ahead"
PRINT " -----------------------------------------"
PRINT CHR$(28)
3180 INPUT " Type '1' to '5' or '9' ", t%
IF t% = 1 THEN
GOTO 3500
END IF
IF t% = 2 THEN
GOTO 3600
END IF
IF t% = 3 THEN
GOTO 3700
END IF
IF t% = 4 THEN
GOTO 3800
END IF
IF t% = 5 THEN
GOTO 3900
END IF
IF t% = 9 THEN
GOTO 30000
ELSE
PRINT "Out of range."
GOTO 3000
END IF
3480 PRINT CHR$(28)
PRINT " Total Score: "; usd& + sc%
3481 PRINT CHR$(28)
PRINT " 1 - Quit"
PRINT " 2 - Continue"
PRINT CHR$(28)
3485 INPUT " Type '1' or '2' ", t%
IF t% = 1 THEN
GOTO 94000
END IF
IF t% = 2 THEN
GOTO 3490
ELSE
PRINT "Out of range."
GOTO 3481
END IF
3490 PRINT "Please wait...."
3493 r% = r% + 1
sc% = sc% + r%
za% = za% - 1
zb% = zb% - 1
ann% = ann% + 4
3495 IF ann% > 20640 THEN
GOTO 93500
ELSE
GOTO 3000
END IF
3500 IF usd& > 4000 THEN
GOTO 3520
ELSE
PRINT " Bank account must be over 4000k USD."
GOTO 3000
END IF
3520 usd& = usd& - 3000
zc% = (470 * ac%) - r%
efc% = 100
avc% = 90
GOTO 5000
3600 IF usd& > 7000 THEN
GOTO 3620
ELSE
PRINT " Bank account must be over 7000k USD."
GOTO 3000
END IF
3620 usd& = usd& - 6000
zc% = (550 * ac%) - r%
efc% = 10
avc% = 120
GOTO 5000
3700 IF usd& > 9000 THEN
GOTO 3720
ELSE
PRINT " Bank account must be over 9000k USD."
GOTO 3000
END IF
3720 usd& = usd& - 8000
zc% = (690 * ac%) - r%
efc% = 40
avc% = 80
GOTO 5000
3800 IF usd& > 13000 THEN
GOTO 3820
ELSE
PRINT " Bank account must be over 13000k USD."
GOTO 3000
3803 END IF
3820 usd& = usd& - 12000
zc% = (700 * ac%) - r%
efc% = 60
avc% = 90
GOTO 5000
3900 IF usd& > 15000 THEN
GOTO 3920
ELSE
PRINT " Bank account must be over 15000k USD."
GOTO 3000
END IF
3920 usd& = usd& - 14000
zc% = (780 * ac%) - r%
efc% = 30
avc% = 120
5000 SLEEP 1
lev% = 3
CLS
PRINT CHR$(28)
PRINT " ============"
PRINT " = LEVEL 3 ="
PRINT " ============"
PRINT CHR$(28)
PRINT " Fukuoka - Tokyo"
PRINT " Fukuoka - Sapporo"
PRINT " Tokyo - Sapporo"
PRINT CHR$(28)
PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
PRINT CHR$(28)
PRINT " NEXT: Fukuoka - Taipei EF-r AV-r"
PRINT " -----------------------------------------"
PRINT " 1 - Buy DC-7 (3000 thousand USD) 100 80"
PRINT " 2 - Buy B-707 (6000 thousand USD) 10 120"
PRINT " 3 - Buy DC-8 (8000 thousand USD) 40 120"
PRINT " 4 - Buy DC-9 (12000 thousand USD) 60 80"
PRINT " 5 - Buy B-727 (14000 thousand USD) 30 120"
PRINT " -----------------------------------------"
PRINT " 9 - Proceed for 146 days ahead"
PRINT " -----------------------------------------"
PRINT CHR$(28)
5080 INPUT " Type '1' to '5' or '9' ", t%
IF t% = 1 THEN
GOTO 6000
END IF
IF t% = 2 THEN
GOTO 6100
END IF
IF t% = 3 THEN
GOTO 6200
END IF
IF t% = 4 THEN
GOTO 6300
END IF
IF t% = 5 THEN
GOTO 6400
END IF
IF t% = 9 THEN
GOTO 30000
ELSE
PRINT "Out of range."
GOTO 5000
END IF
5970 PRINT CHR$(28)
PRINT " Total Score: "; usd& + sc%
5971 PRINT CHR$(28)
PRINT " 1 - Quit"
PRINT " 2 - Continue"
PRINT CHR$(28)
5975 INPUT " Type '1' or '2' ", t%
IF t% = 1 THEN
GOTO 94000
END IF
IF t% = 2 THEN
GOTO 5980
ELSE
PRINT "Out of range."
GOTO 5971
5979 END IF
5980 PRINT "Please wait...."
5983 r% = r% + 1
sc% = sc% + r%
za% = za% - 1
zb% = zb% - 1
zc% = zc% - 1
ann% = ann% + 4
5985 IF ann% > 20640 THEN
GOTO 93500
ELSE
GOTO 5000
END IF
6000 IF usd& > 4000 THEN
GOTO 6020
ELSE
PRINT " Bank account must be over 4000k USD."
GOTO 5000
END IF
6020 usd& = usd& - 3000
zd% = (470 * ac%) - r%
efd% = 100
avd% = 80
GOTO 7000
6100 IF usd& > 7000 THEN
GOTO 6120
ELSE
PRINT " Bank account must be over 7000k USD."
GOTO 5000
END IF
6120 usd& = usd& - 6000
zd% = (550 * ac%) - r%
efd% = 10
avd% = 120
GOTO 7000
6200 IF usd& > 9000 THEN
GOTO 6220
ELSE
PRINT " Bank account must be over 9000k USD."
GOTO 5000
END IF
6220 usd& = usd& - 8000
zd% = (690 * ac%) - r%
efd% = 40
avd% = 120
GOTO 7000
6300 IF usd& > 13000 THEN
GOTO 6320
ELSE
PRINT " Bank account must be over 13000k USD."
GOTO 5000
END IF
6320 usd& = usd& - 12000
zd% = (700 * ac%) - r%
efd% = 60
avd% = 80
GOTO 7000
6400 IF usd& > 15000 THEN
GOTO 6420
ELSE
PRINT " Bank account must be over 15000k USD."
GOTO 5000
END IF
6420 usd& = usd& - 14000
zd% = (780 * ac%) - r%
efd% = 30
avd% = 120
7000 SLEEP 1
lev% = 4
CLS
PRINT CHR$(28)
PRINT " Fukuoka - Tokyo ============"
PRINT " Fukuoka - Sapporo = Level 4 ="
PRINT " Tokyo - Sapporo ============"
PRINT " Fukuoka - Taipei"
PRINT CHR$(28)
PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
PRINT CHR$(28)
PRINT " NEXT: Fukuoka - Anchorage EF-r AV-r"
PRINT " -----------------------------------------"
PRINT " 1 - Buy DC-6 (1000 thousand USD) 80 100"
PRINT " 2 - Buy DC-7 (3000 thousand USD) 100 120"
PRINT " 3 - Buy B-707 (6000 thousand USD) 10 80"
PRINT " 4 - Buy DC-8 (8000 thousand USD) 40 130"
PRINT " 5 - Buy DC-10 (18000 thousand USD) 70 160"
PRINT " -----------------------------------------"
PRINT " 9 - Proceed for 146 days ahead"
PRINT " -----------------------------------------"
PRINT CHR$(28)
7180 INPUT " Type '1' to '5' or '9' ", t%
IF t% = 1 THEN
GOTO 8300
END IF
IF t% = 2 THEN
GOTO 8400
END IF
IF t% = 3 THEN
GOTO 8500
END IF
IF t% = 4 THEN
GOTO 8600
END IF
IF t% = 5 THEN
GOTO 8700
END IF
IF t% = 9 THEN
GOTO 30000
ELSE
PRINT "Out of range."
GOTO 7000
END IF
7970 PRINT CHR$(28)
PRINT " Total Score: "; usd& + sc%
7971 PRINT CHR$(28)
PRINT " 1 - Quit"
PRINT " 2 - Continue"
PRINT CHR$(28)
7175 INPUT " Type '1' or '2' ", t%
IF t% = 1 THEN
GOTO 94000
END IF
IF t% = 2 THEN
GOTO 7980
ELSE
PRINT "Out of range."
GOTO 7971
END IF
7980 PRINT "Please wait...."
7983 r% = r% + 1
sc% = sc% + r%
za% = za% - 1
zb% = zb% - 1
zc% = zc% - 1
zd% = zd% - 1
ann% = ann% + 4
7995 IF ann% > 20640 THEN
GOTO 93500
ELSE
GOTO 7000
END IF
8300 IF usd& > 2000 THEN
GOTO 8320
ELSE
PRINT " Bank account must be over 2000k USD."
GOTO 7000
END IF
8320 usd& = usd& - 1000
ze% = (410 * ac%) - r%
efe% = 80
ave% = 100
GOTO 9000
8400 IF usd& > 4000 THEN
GOTO 8420
ELSE
PRINT " Bank account must be over 4000k USD."
GOTO 7000
END IF
8420 usd& = usd& - 3000
ze% = (470 * ac%) - r%
efe% = 100
ave% = 120
GOTO 9000
8500 IF usd& > 7000 THEN
GOTO 8520
ELSE
PRINT " Bank account must be over 7000k USD."
GOTO 7000
END IF
8520 usd& = usd& - 6000
ze% = (550 * ac%) - r%
efe% = 10
ave% = 80
GOTO 9000
8600 IF usd& > 9000 THEN
GOTO 8620
ELSE
PRINT " Bank account must be over 9000k USD."
GOTO 7000
END IF
8620 usd& = usd& - 8000
ze% = (690 * ac%) - r%
efe% = 40
ave% = 130
GOTO 9000
8700 IF usd& > 19000 THEN
GOTO 8720
ELSE
PRINT " Bank account must be over 19000k USD."
GOTO 7000
END IF
8720 usd& = usd& - 18000
ze% = (780 * ac%) - r%
efe% = 70
ave% = 160
9000 SLEEP 1
lev% = 5
CLS
PRINT CHR$(28)
PRINT " Fukuoka - Tokyo ============"
PRINT " Fukuoka - Sapporo = Level 5 ="
PRINT " Tokyo - Sapporo ============"
PRINT " Fukuoka - Taipei"
PRINT " Fukuoka - Anchorage"
PRINT CHR$(28)
PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
PRINT CHR$(28)
PRINT " NEXT: Tokyo - Moscow (RUS) EF-r AV-r"
PRINT " -----------------------------------------"
PRINT " 1 - Buy DC-7 (3000 thousand USD) 100 90"
PRINT " 2 - Buy B-707 (6000 thousand USD) 10 80"
PRINT " 3 - Buy DC-8 (8000 thousand USD) 40 120"
PRINT " 4 - Buy DC-9 (12000 thousand USD) 60 60"
PRINT " 5 - Buy B-727 (14000 thousand USD) 30 80"
PRINT " 6 - Buy DC-10 (18000 thousand USD) 70 160"
PRINT " -----------------------------------------"
PRINT " 9 - Proceed for 146 days ahead"
PRINT " -----------------------------------------"
PRINT CHR$(28)
9180 INPUT " Type '1' to '6' or '9' ", t%
IF t% = 1 THEN
GOTO 10300
END IF
IF t% = 2 THEN
GOTO 10400
END IF
IF t% = 3 THEN
GOTO 10500
END IF
IF t% = 4 THEN
GOTO 10600
END IF
IF t% = 5 THEN
GOTO 10700
END IF
IF t% = 6 THEN
GOTO 10800
END IF
IF t% = 9 THEN
GOTO 30000
ELSE
PRINT "Out of range."
GOTO 9000
END IF
9970 PRINT CHR$(28)
PRINT " Total Score: "; usd& + sc%
9971 PRINT CHR$(28)
PRINT " 1 - Quit"
PRINT " 2 - Continue"
PRINT CHR$(28)
9975 INPUT " Type '1' or '2' ", t%
IF t% = 1 THEN
GOTO 94000
END IF
IF t% = 2 THEN
GOTO 9980
ELSE
PRINT "Out of range."
GOTO 9971
END IF
9980 PRINT "Please wait...."
9983 r% = r% + 1
sc% = sc% + r%
za% = za% - 1
zb% = zb% - 1
zc% = zc% - 1
zd% = zd% - 1
ze% = ze% - 1
ann% = ann% + 4
9995 IF ann% > 20640 THEN
GOTO 93500
ELSE
GOTO 9000
END IF
10300 IF usd& > 4000 THEN
GOTO 10320
ELSE
PRINT " Bank account must be over 4000k USD."
GOTO 9000
END IF
10320 usd& = usd& - 3000
zf% = (470 * ac%) - r%
eff% = 100
avf% = 90
GOTO 11000
10400 IF usd& > 7000 THEN
GOTO 10420
ELSE
PRINT " Bank account must be over 7000k USD."
GOTO 9000
END IF
10420 usd& = usd& - 6000
zf% = (550 * ac%) - r%
eff% = 10
avf% = 80
GOTO 11000
10500 IF usd& > 9000 THEN
GOTO 10520
ELSE
PRINT " Bank account must be over 9000k USD."
GOTO 9000
END IF
10520 usd& = usd& - 8000
zf% = (690 * ac%) - r%
eff% = 40
avf% = 120
GOTO 11000
10600 IF usd& > 13000 THEN
GOTO 10620
ELSE
PRINT " Bank account must be over 13000k USD."
GOTO 9000
END IF
10620 usd& = usd& - 12000
zf% = (700 * ac%) - r%
eff% = 60
avf% = 60
GOTO 11000
10700 IF usd& > 15000 THEN
GOTO 10720
ELSE
PRINT " Bank account must be over 15000k USD."
GOTO 9000
END IF
10720 usd& = usd& - 14000
zf% = (780 * ac%) - r%
eff% = 30
avf% = 80
GOTO 11000
10800 IF usd& > 19000 THEN
GOTO 10820
ELSE
PRINT " Bank account must be over 19000k USD."
GOTO 9000
END IF
10820 usd& = usd& - 18000
zf% = (780 * ac%) - r%
eff% = 70
avf% = 160
11000 SLEEP 1
lev% = 6
CLS
PRINT CHR$(28)
PRINT " Fukuoka - Tokyo ============"
PRINT " Fukuoka - Sapporo = Level 6 ="
PRINT " Tokyo - Sapporo ============"
PRINT " Fukuoka - Taipei"
PRINT " Fukuoka - Anchorage"
PRINT " Tokyo - Moscow"
PRINT CHR$(28)
PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
PRINT CHR$(28)
PRINT " NEXT: Tokyo - Helsinki EF-r AV-r"
PRINT " -----------------------------------------"
PRINT " 1 - Buy DC-7 (3000 thousand USD) 100 90"
PRINT " 2 - Buy DC-8 (8000 thousand USD) 40 110"
PRINT " 3 - Buy DC-10 (18000 thousand USD) 70 130"
PRINT " 4 - Buy B-767 (24000 thousand USD) 110 140"
PRINT " -----------------------------------------"
PRINT " 9 - Proceed for 146 days ahead"
PRINT " -----------------------------------------"
PRINT CHR$(28)
11180 INPUT " Type '1' to '4' or '9' ", t%
IF t% = 1 THEN
GOTO 12600
END IF
IF t% = 2 THEN
GOTO 12700
END IF
IF t% = 3 THEN
GOTO 12800
END IF
IF t% = 4 THEN
GOTO 12890
END IF
IF t% = 9 THEN
GOTO 30000
ELSE
PRINT "Out of range."
GOTO 11000
END IF
11970 PRINT CHR$(28)
PRINT " Total Score: "; usd& + sc%
11971 PRINT CHR$(28)
PRINT " 1 - Quit"
PRINT " 2 - Continue"
PRINT CHR$(28)
11975 INPUT " Type '1' or '2' ", t%
IF t% = 1 THEN
GOTO 94000
END IF
IF t% = 2 THEN
GOTO 11980
ELSE
PRINT "Out of range."
GOTO 11971
END IF
11980 PRINT "Please wait...."
11983 r% = r% + 1
sc% = sc% + r%
za% = za% - 1
zb% = zb% - 1
zc% = zc% - 1
zd% = zd% - 1
ze% = ze% - 1
zf% = zf% - 1
ann% = ann% + 4
11995 IF ann% > 20640 THEN
GOTO 93500
ELSE
GOTO 11000
END IF
12600 IF usd& > 4000 THEN
GOTO 12620
ELSE
PRINT " Bank account must be over 4000k USD."
GOTO 11000
END IF
12620 usd& = usd& - 3000
zg% = (470 * ac%) - r%
efg% = 100
avg% = 90
GOTO 13000
12700 IF usd& > 9000 THEN
GOTO 12720
ELSE
PRINT " Bank account must be over 9000k USD."
GOTO 11000
END IF
12720 usd& = usd& - 8000
zg% = (690 * ac%) - r%
efg% = 40
avg% = 110
GOTO 13000
12800 IF usd& > 19000 THEN
GOTO 12820
ELSE
PRINT " Bank account must be over 19000k USD."
GOTO 11000
END IF
12820 usd& = usd& - 18000
zg% = (780 * ac%) - r%
efg% = 70
avg% = 130
GOTO 13000
12890 IF ann% > 19810 THEN
GOTO 12900
ELSE
PRINT " You must wait until year 1981."
SLEEP 1
GOTO 11000
END IF
12900 IF usd& > 25000 THEN
GOTO 12920
ELSE
PRINT " Bank account must be over 25000k USD."
GOTO 11000
END IF
12920 usd& = usd& - 24000
zg% = (840 * ac%) - r%
efg% = 110
avg% = 140
13000 SLEEP 1
lev% = 7
CLS
PRINT CHR$(28)
PRINT " ... ============"
PRINT " Tokyo - Sapporo = Level 7 ="
PRINT " Fukuoka - Taipei ============"
PRINT " Fukuoka - Anchorage"
PRINT " Tokyo - Moscow"
PRINT " Tokyo - Helsinki"
PRINT CHR$(28)
PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
PRINT CHR$(28)
PRINT " NEXT: Tokyo - Denver EF-r AV-r"
PRINT " -----------------------------------------"
PRINT " 1 - Buy DC-8 (8000 thousand USD) 40 80"
PRINT " 2 - Buy DC-10 (18000 thousand USD) 70 130"
PRINT " 3 - Buy B-767 (24000 thousand USD) 110 130"
PRINT " 4 - Buy A-310 (28000 thousand USD) 120 120"
PRINT " -----------------------------------------"
PRINT " 9 - Proceed for 146 days ahead"
PRINT " -----------------------------------------"
PRINT CHR$(28)
13180 INPUT " Type '1' to '4' or '9' ", t%
IF t% = 1 THEN
GOTO 14600
END IF
IF t% = 2 THEN
GOTO 14700
END IF
IF t% = 3 THEN
GOTO 14790
END IF
IF t% = 4 THEN
GOTO 14890
END IF
IF t% = 9 THEN
GOTO 30000
ELSE
PRINT "Out of range."
GOTO 13000
END IF
13970 PRINT CHR$(28)
PRINT " Total Score: "; usd& + sc%
13971 PRINT CHR$(28)
PRINT " 1 - Quit"
PRINT " 2 - Continue"
PRINT CHR$(28)
13975 INPUT " Type '1' or '2' ", t%
IF t% = 1 THEN
GOTO 94000
END IF
IF t% = 2 THEN
GOTO 13980
ELSE
PRINT "Out of range."
GOTO 13971
END IF
13980 PRINT "Please wait...."
13983 r% = r% + 1
sc% = sc% + r%
za% = za% - 1
zb% = zb% - 1
zc% = zc% - 1
zd% = zd% - 1
ze% = ze% - 1
zf% = zf% - 1
zg% = zg% - 1
ann% = ann% + 4
13995 IF ann% > 20640 THEN
GOTO 93500
ELSE
GOTO 13000
END IF
14600 IF usd& > 9000 THEN
GOTO 14620
ELSE
PRINT " Bank account must be over 9000k USD."
GOTO 13000
END IF
14620 usd& = usd& - 8000
zh% = (690 * ac%) - r%
efh% = 40
avh% = 80
GOTO 15000
14700 IF usd& > 19000 THEN
GOTO 14720
ELSE
PRINT " Bank account must be over 19000k USD."
GOTO 13000
END IF
14720 usd& = usd& - 18000
zh% = (780 * ac%) - r%
efh% = 70
avh% = 130
GOTO 15000
14790 IF ann% > 19810 THEN
GOTO 14800
ELSE
PRINT " You must wait until year 1981."
SLEEP 1
GOTO 13000
END IF
14800 IF usd& > 25000 THEN
GOTO 14820
ELSE
PRINT " Bank account must be over 25000k USD."
GOTO 13000
END IF
14820 usd& = usd& - 24000
zh% = (840 * ac%) - r%
efh% = 110
avh% = 130
GOTO 15000
14890 IF ann% > 19840 THEN
GOTO 14900
ELSE
PRINT " You must wait until year 1984."
SLEEP 1
GOTO 13000
END IF
14900 IF usd& > 29000 THEN
GOTO 14920
ELSE
PRINT " Bank account must be over 29000k USD."
GOTO 13000
END IF
14920 usd& = usd& - 28000
zh% = (950 * ac%) - r%
efh% = 120
avh% = 120
15000 SLEEP 1
lev% = 8
CLS
PRINT CHR$(28)
PRINT " ... ============"
PRINT " Fukuoka - Taipei = Level 8 ="
PRINT " Fukuoka - Anchorage ============"
PRINT " Tokyo - Moscow"
PRINT " Tokyo - Helsinki"
PRINT " Tokyo - Denver"
PRINT CHR$(28)
PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
PRINT CHR$(28)
PRINT " NEXT: Tokyo - Seoul EF-r AV-r"
PRINT " -----------------------------------------"
PRINT " 1 - Buy B-707 (6000 thousand USD) 10 90"
PRINT " 2 - Buy B-727 (14000 thousand USD) 30 90"
PRINT " 3 - Buy DC-10 (18000 thousand USD) 70 130"
PRINT " 4 - Buy B-767 (24000 thousand USD) 110 130"
PRINT " 5 - Buy A-320 (29000 thousand USD) 110 140"
PRINT " -----------------------------------------"
PRINT " 9 - Proceed for 146 days ahead"
PRINT " -----------------------------------------"
PRINT CHR$(28)
15180 INPUT " Type '1' to '5' or '9' ", t%
IF t% = 1 THEN
GOTO 16500
END IF
IF t% = 2 THEN
GOTO 16600
END IF
IF t% = 3 THEN
GOTO 16700
END IF
IF t% = 4 THEN
GOTO 16790
END IF
IF t% = 5 THEN
GOTO 16890
END IF
IF t% = 9 THEN
GOTO 30000
ELSE
PRINT "Out of range."
GOTO 13000
END IF
15970 PRINT CHR$(28)
PRINT " Total Score: "; usd& + sc%
15971 PRINT CHR$(28)
PRINT " 1 - Quit"
PRINT " 2 - Continue"
PRINT CHR$(28)
15975 INPUT " Type '1' or '2' ", t%
IF t% = 1 THEN
GOTO 94000
END IF
IF t% = 2 THEN
GOTO 15980
ELSE
PRINT "Out of range."
GOTO 15971
END IF
15980 PRINT "Please wait...."
15983 r% = r% + 1
sc% = sc% + r%
za% = za% - 1
zb% = zb% - 1
zc% = zc% - 1
zd% = zd% - 1
ze% = ze% - 1
zf% = zf% - 1
zg% = zg% - 1
zh% = zh% - 1
ann% = ann% + 4
15995 IF ann% > 20640 THEN
GOTO 93500
ELSE
GOTO 15000
END IF
16500 IF usd& > 7000 THEN
GOTO 16520
ELSE
PRINT " Bank account must be over 7000k USD."
GOTO 15000
END IF
16520 usd& = usd& - 6000
zi% = (550 * ac%) - r%
efi% = 10
avi% = 90
GOTO 17000
16600 IF usd& > 15000 THEN
GOTO 16620
ELSE
PRINT " Bank account must be over 15000k USD."
GOTO 15000
END IF
16620 usd& = usd& - 14000
zi% = (780 * ac%) - r%
efi% = 30
avi% = 90
GOTO 17000
16700 IF usd& > 19000 THEN
GOTO 16720
ELSE
PRINT " Bank account must be over 19000k USD."
GOTO 15000
END IF
16720 usd& = usd& - 18000
zi% = (780 * ac%) - r%
efi% = 70
avi% = 130
GOTO 17000
16790 IF ann% > 19810 THEN
GOTO 16800
ELSE
PRINT " You must wait until year 1981."
SLEEP 1
GOTO 15000
END IF
16800 IF usd& > 25000 THEN
GOTO 16820
ELSE
PRINT " Bank account must be over 25000k USD."
GOTO 15000
END IF
16820 usd& = usd& - 24000
zi% = (840 * ac%) - r%
efi% = 110
avi% = 130
GOTO 17000
16890 IF ann% > 19880 THEN
GOTO 16900
ELSE
PRINT " You must wait until year 1988."
SLEEP 1
GOTO 15000
END IF
16900 IF usd& > 30000 THEN
GOTO 16920
ELSE
PRINT " Bank account must be over 30000k USD."
GOTO 15000
END IF
16920 usd& = usd& - 29000
zi% = (970 * ac%) - r%
efi% = 110
avi% = 140
17000 SLEEP 1
lev% = 9
CLS
PRINT CHR$(28)
PRINT " ... ============"
PRINT " Fukuoka - Anchorage = Level 9 ="
PRINT " Tokyo - Moscow ============"
PRINT " Tokyo - Helsinki"
PRINT " Tokyo - Denver"
PRINT " Tokyo - Seoul"
PRINT CHR$(28)
PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
PRINT CHR$(28)
PRINT " NEXT: Tokyo - London (UK) EF-r AV-r"
PRINT " -----------------------------------------"
PRINT " 1 - Buy DC-10 (18000 thousand USD) 70 90"
PRINT " 2 - Buy B-737 (20000 thousand USD) 100 80"
PRINT " 3 - Buy B-757 (22000 thousand USD) 105 90"
PRINT " 4 - Buy B-767 (24000 thousand USD) 110 140"
PRINT " 5 - Buy B-777 (32000 thousand USD) 90 140"
PRINT " + 10000k USD compensation."
PRINT " -----------------------------------------"
PRINT " 9 - Proceed for 146 days ahead"
PRINT " -----------------------------------------"
PRINT CHR$(28)
17180 INPUT " Type '1' to '5' or '9' ", t%
IF t% = 1 THEN
GOTO 18500
END IF
IF t% = 2 THEN
GOTO 18590
END IF
IF t% = 3 THEN
GOTO 18690
END IF
IF t% = 4 THEN
GOTO 18790
END IF
IF t% = 5 THEN
GOTO 18890
END IF
IF t% = 9 THEN
GOTO 30000
ELSE
PRINT "Out of range."
GOTO 17000
END IF
17970 PRINT CHR$(28)
PRINT " Total Score: "; usd& + sc%
17971 PRINT CHR$(28)
PRINT " 1 - Quit"
PRINT " 2 - Continue"
PRINT CHR$(28)
17975 INPUT " Type '1' or '2' ", t%
IF t% = 1 THEN
GOTO 94000
END IF
IF t% = 2 THEN
GOTO 17980
ELSE
PRINT "Out of range."
GOTO 17971
END IF
17980 PRINT "Please wait...."
17983 r% = r% + 1
sc% = sc% + r%
za% = za% - 1
zb% = zb% - 1
zc% = zc% - 1
zd% = zd% - 1
ze% = ze% - 1
zf% = zf% - 1
zg% = zg% - 1
zh% = zh% - 1
zi% = zi% - 1
ann% = ann% + 4
17995 IF ann% > 20640 THEN
GOTO 93500
ELSE
GOTO 17000
END IF
18500 IF usd& > 19000 THEN
GOTO 18520
ELSE
PRINT " Bank account must be over 19000k USD."
GOTO 17000
END IF
18520 usd& = usd& - 18000
zj% = (780 * ac%) - r%
efj% = 70
avj% = 90
GOTO 19000
18590 IF ann% > 19810 THEN
GOTO 18600
ELSE
PRINT " You must wait until year 1981."
SLEEP 1
GOTO 17000
END IF
18600 IF usd& > 21000 THEN
GOTO 18620
ELSE
PRINT " Bank account must be over 21000k USD."
GOTO 17000
END IF
18620 usd& = usd& - 20000
zj% = (830 * ac%) - r%
efj% = 100
avj% = 80
GOTO 19000
18690 IF ann% > 19810 THEN
GOTO 18700
ELSE
PRINT " You must wait until year 1981."
SLEEP 1
GOTO 17000
END IF
18700 IF usd& > 23000 THEN
GOTO 18720
ELSE
PRINT " Bank account must be over 23000k USD."
GOTO 17000
END IF
18720 usd& = usd& - 22000
zj% = (850 * ac%) - r%
efj% = 105
avj% = 90
GOTO 19000
18790 IF ann% > 19810 THEN
GOTO 18800
ELSE
PRINT " You must wait until year 1981."
SLEEP 1
GOTO 17000
END IF
18800 IF usd& > 25000 THEN
GOTO 18820
ELSE
PRINT " Bank account must be over 25000k USD."
GOTO 17000
END IF
18820 usd& = usd& - 24000
zj% = (840 * ac%) - r%
efj% = 110
avj% = 140
GOTO 19000
18890 IF ann% > 19950 THEN
GOTO 18900
ELSE
PRINT " You must wait until year 1995."
SLEEP 1
GOTO 17000
END IF
18900 IF usd& > 33000 THEN
GOTO 18920
ELSE
PRINT " Bank account must be over 33000k USD."
GOTO 17000
END IF
18920 usd& = usd& - 32000
zj% = (940 * ac%) - r%
efj% = 90
avj% = 140
19000 SLEEP 1
lev% = 10
CLS
PRINT CHR$(28)
PRINT " ..."
PRINT " Tokyo - Helsinki ============"
PRINT " Tokyo - Denver = LEVEL 10 ="
PRINT " Tokyo - Seoul ============"
PRINT " Tokyo - London"
PRINT CHR$(28)
PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
PRINT CHR$(28)
PRINT " NEXT: Tokyo - Rome EF-r AV-r"
PRINT " -----------------------------------------"
PRINT " 1 - Buy B-737 (20000 thousand USD) 100 80"
PRINT " 2 - Buy B-757 (22000 thousand USD) 105 90"
PRINT " 3 - Buy B-767 (24000 thousand USD) 110 140"
PRINT " 4 - Buy A-310 (28000 thousand USD) 120 130"
PRINT " 5 - Buy B-777 (32000 thousand USD) 90 140"
PRINT " 6 - Buy A-350 (38000 thousand USD) 130 140"
PRINT " + 20000k USD Compensation."
PRINT " -----------------------------------------"
PRINT " 9 - Proceed for 146 days ahead"
PRINT " -----------------------------------------"
PRINT CHR$(28)
19180 INPUT " Type '1' to '5' or '9' ", t%
IF t% = 1 THEN
GOTO 20400
END IF
IF t% = 2 THEN
GOTO 20500
END IF
IF t% = 3 THEN
GOTO 20600
END IF
IF t% = 4 THEN
GOTO 20700
END IF
IF t% = 5 THEN
GOTO 20790
END IF
IF t% = 6 THEN
GOTO 20890
END IF
IF t% = 9 THEN
GOTO 30000
ELSE
PRINT "Out of range."
GOTO 19000
END IF
19970 PRINT CHR$(28)
PRINT " Total Score: "; usd& + sc%
19971 PRINT CHR$(28)
PRINT " 1 - Quit"
PRINT " 2 - Continue"
PRINT CHR$(28)
19975 INPUT " Type '1' or '2' ", t%
IF t% = 1 THEN
GOTO 94000
END IF
IF t% = 2 THEN
GOTO 19980
ELSE
PRINT "Out of range."
GOTO 19971
END IF
19980 PRINT "Please wait...."
19983 r% = r% + 1
sc% = sc% + r%
za% = za% - 1
zb% = zb% - 1
zc% = zc% - 1
zd% = zd% - 1
ze% = ze% - 1
zf% = zf% - 1
zg% = zg% - 1
zh% = zh% - 1
zi% = zi% - 1
zj% = zj% - 1
ann% = ann% + 4
19995 IF ann% > 20640 THEN
GOTO 93500
ELSE
GOTO 19000
END IF
20400 IF usd& > 21000 THEN
GOTO 20420
ELSE
PRINT " Bank account must be over 21000k USD."
GOTO 19000
END IF
20420 usd& = usd& - 20000
zk% = (830 * ac%) - r%
efk% = 100
avk% = 80
GOTO 21000
20500 IF usd& > 23000 THEN
GOTO 20520
ELSE
PRINT " Bank account must be over 23000k USD."
GOTO 19000
END IF
20520 usd& = usd& - 22000
zk% = (850 * ac%) - r%
efk% = 105
avk% = 90
GOTO 21000
20600 IF usd& > 25000 THEN
GOTO 20620
20602 ELSE
PRINT " Bank account must be over 25000k USD."
GOTO 19000
20603 END IF
20620 usd& = usd& - 24000
zk% = (840 * ac%) - r%
efk% = 110
avk% = 140
GOTO 21000
20700 IF usd& > 29000 THEN
GOTO 20720
ELSE
PRINT " Bank account must be over 29000k USD."
GOTO 19000
END IF
20720 usd& = usd& - 28000
zk% = (950 * ac%) - r%
efk% = 120
avk% = 130
GOTO 21000
20790 IF ann% > 19950 THEN
GOTO 20800
ELSE
PRINT " You must wait until year 1995."
SLEEP 1
GOTO 19000
END IF
20800 IF usd& > 33000 THEN
GOTO 20820
ELSE
PRINT " Bank account must be over 33000k USD."
GOTO 19000
END IF
20820 usd& = usd& - 32000
zk% = (940 * ac%) - r%
efk% = 90
avk% = 140
GOTO 21000
20890 IF ann% > 20150 THEN
GOTO 20900
ELSE
PRINT " You must wait until year 2015."
SLEEP 1
GOTO 19000
END IF
20900 IF usd& > 39000 THEN
GOTO 20920
ELSE
PRINT " Bank account must be over 39000k USD."
GOTO 19000
END IF
20920 usd& = usd& - 38000
zk% = (1000 * ac%) - r%
efk% = 130
avk% = 140
21000 SLEEP 1
lev% = 11
CLS
PRINT CHR$(28)
PRINT " ..."
PRINT " Tokyo - Denver ============"
PRINT " Tokyo - Seoul = LEVEL 11 ="
PRINT " Tokyo - London ============"
PRINT " Tokyo - Rome"
PRINT CHR$(28)
PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
PRINT CHR$(28)
PRINT " NEXT: Tokyo - Johannesburg EF-r AV-r"
PRINT " -----------------------------------------"
PRINT " 1 - Buy DC-10 (18000 thousand USD) 70 100"
PRINT " 2 - Buy B-767 (24000 thousand USD) 110 100"
PRINT " 3 - Buy B-777 (32000 thousand USD) 90 150"
PRINT " 4 - Buy A-350 (38000 thousand USD) 130 150"
PRINT " + 20000k USD Compensation."
PRINT " -----------------------------------------"
PRINT " 9 - Proceed for 146 days ahead"
PRINT " -----------------------------------------"
PRINT CHR$(28)
21180 INPUT " Type '1' to '4' or '9' ", t%
IF t% = 1 THEN
GOTO 22500
END IF
IF t% = 2 THEN
GOTO 22600
END IF
IF t% = 3 THEN
GOTO 22790
END IF
IF t% = 4 THEN
GOTO 22890
END IF
IF t% = 9 THEN
GOTO 30000
ELSE
PRINT "Out of range."
GOTO 21000
END IF
21970 PRINT CHR$(28)
PRINT " Total Score: "; usd& + sc%
21971 PRINT CHR$(28)
PRINT " 1 - Quit"
PRINT " 2 - Continue"
PRINT CHR$(28)
21975 INPUT " Type '1' or '2' ", t%
IF t% = 1 THEN
GOTO 94000
END IF
IF t% = 2 THEN
GOTO 21980
ELSE
PRINT "Out of range."
GOTO 21971
END IF
21980 PRINT "Please wait...."
21983 r% = r% + 1
sc% = sc% + r%
za% = za% - 1
zb% = zb% - 1
zc% = zc% - 1
zd% = zd% - 1
ze% = ze% - 1
zf% = zf% - 1
zg% = zg% - 1
zh% = zh% - 1
zi% = zi% - 1
zj% = zj% - 1
zk% = zk% - 1
ann% = ann% + 4
21995 IF ann% > 20640 THEN
GOTO 93500
ELSE
GOTO 21000
END IF
22500 IF usd& > 19000 THEN
GOTO 22520
ELSE
PRINT " Bank account must be over 19000k USD."
GOTO 21000
END IF
22520 usd& = usd& - 18000
zl% = (780 * ac%) - r%
efl% = 70
avl% = 100
GOTO 23000
22600 IF usd& > 25000 THEN
GOTO 22620
ELSE
PRINT " Bank account must be over 25000k USD."
GOTO 21000
END IF
22620 usd& = usd& - 24000
zl% = (840 * ac%) - r%
efl% = 110
avl% = 100
GOTO 23000
22790 IF ann% > 19950 THEN
GOTO 22800
ELSE
PRINT " You must wait until year 1995."
SLEEP 1
GOTO 21000
END IF
22800 IF usd& > 33000 THEN
GOTO 22820
ELSE
PRINT " Bank account must be over 33000k USD."
GOTO 21000
END IF
22820 usd& = usd& - 32000
zl% = (940 * ac%) - r%
efl% = 90
avl% = 150
GOTO 23000
22890 IF ann% > 20150 THEN
GOTO 22900
ELSE
PRINT " You must wait until year 2015."
SLEEP 1
GOTO 21000
END IF
22900 IF usd& > 39000 THEN
GOTO 22920
ELSE
PRINT " Bank account must be over 39000k USD."
GOTO 21000
END IF
22920 usd& = usd& - 38000
zl% = (1000 * ac%) - r%
efl% = 130
avl% = 150
23000 SLEEP 1
lev% = 12
CLS
PRINT CHR$(28)
PRINT " ..."
PRINT " Tokyo - Denver ============"
PRINT " Tokyo - London = LEVEL 12 ="
PRINT " Tokyo - Rome ============"
PRINT " Tokyo - Johannesburg"
PRINT CHR$(28)
PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
PRINT CHR$(28)
PRINT " NEXT: Fukuoka - Sydney (AUS) EF-r AV-r"
PRINT " -----------------------------------------"
PRINT " 1 - Buy DC-10 (18000 thousand USD) 70 120"
PRINT " 2 - Buy A-310 (28000 thousand USD) 120 110"
PRINT " 3 - Buy B-777 (32000 thousand USD) 90 130"
PRINT " 4 - Buy A-350 (38000 thousand USD) 130 130"
PRINT " 5 - Buy A-321 (44000 thousand USD) 150 130"
PRINT " + 30000k USD Compensation."
PRINT " -----------------------------------------"
PRINT " 9 - Proceed for 146 days ahead"
PRINT " -----------------------------------------"
PRINT CHR$(28)
23180 INPUT " Type '1' to '5' or '9' ", t%
IF t% = 1 THEN
GOTO 24500
END IF
IF t% = 2 THEN
GOTO 24600
END IF
IF t% = 3 THEN
GOTO 24690
END IF
IF t% = 4 THEN
GOTO 24790
END IF
IF t% = 5 THEN
GOTO 24890
END IF
IF t% = 9 THEN
GOTO 30000
ELSE
PRINT "Out of range."
GOTO 23000
END IF
23970 PRINT CHR$(28)
PRINT " Total Score: "; usd& + sc%
23971 PRINT CHR$(28)
PRINT " 1 - Quit"
PRINT " 2 - Continue"
PRINT CHR$(28)
23975 INPUT " Type '1' or '2' ", t%
IF t% = 1 THEN
GOTO 94000
END IF
IF t% = 2 THEN
GOTO 23980
ELSE
PRINT "Out of range."
GOTO 23971
END IF
23980 PRINT "Please wait...."
23983 r% = r% + 1
sc% = sc% + r%
za% = za% - 1
zb% = zb% - 1
zc% = zc% - 1
zd% = zd% - 1
ze% = ze% - 1
zf% = zf% - 1
zg% = zg% - 1
zh% = zh% - 1
zi% = zi% - 1
zj% = zj% - 1
zk% = zk% - 1
zl% = zl% - 1
ann% = ann% + 4
23995 IF ann% > 20640 THEN
GOTO 93500
ELSE
GOTO 23000
END IF
24500 IF usd& > 19000 THEN
GOTO 24520
ELSE
PRINT " Bank account must be over 19000k USD."
GOTO 23000
END IF
24520 usd& = usd& - 18000
zm% = (780 * ac%) - r%
efm% = 70
avm% = 120
GOTO 25000
24600 IF usd& > 29000 THEN
GOTO 24620
ELSE
PRINT " Bank account must be over 29000k USD."
GOTO 23000
END IF
24620 usd& = usd& - 28000
zm% = (950 * ac%) - r%
efm% = 120
avm% = 110
GOTO 25000
24690 IF ann% > 19950 THEN
GOTO 24700
ELSE
PRINT " You must wait until year 1995."
SLEEP 1
GOTO 23000
END IF
24700 IF usd& > 33000 THEN
GOTO 24720
ELSE
PRINT " Bank account must be over 33000k USD."
GOTO 23000
END IF
24720 usd& = usd& - 32000
zm% = (940 * ac%) - r%
efm% = 90
avm% = 130
GOTO 25000
24790 IF ann% > 20150 THEN
GOTO 24800
ELSE
PRINT " You must wait until year 2015."
SLEEP 1
GOTO 23000
END IF
24800 IF usd& > 39000 THEN
GOTO 24820
ELSE
PRINT " Bank account must be over 39000k USD."
GOTO 23000
END IF
24820 usd& = usd& - 38000
zm% = (1000 * ac%) - r%
efm% = 130
avm% = 130
GOTO 25000
24890 IF ann% > 20250 THEN
GOTO 24900
ELSE
PRINT " You must wait until year 2025."
SLEEP 1
GOTO 23000
END IF
24900 IF usd& > 45000 THEN
GOTO 24920
ELSE
PRINT " Bank account must be over 45000k USD."
GOTO 23000
END IF
24920 usd& = usd& - 44000
zm% = (1100 * ac%) - r%
efm% = 150
avm% = 130
25000 SLEEP 1
lev% = 13
CLS
PRINT CHR$(28)
PRINT " ..."
PRINT " Tokyo - London ============"
PRINT " Tokyo - Rome = LEVEL 13 ="
PRINT " Tokyo - Johannesburg ============"
PRINT " Fukuoka - Sydney"
PRINT CHR$(28)
PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
PRINT CHR$(28)
PRINT " NEXT: Tokyo - Oslo EF-r AV-r"
PRINT " -----------------------------------------"
PRINT " 1 - Buy B-727 (14000 thousand USD) 30 90"
PRINT " 2 - Buy DC-10 (18000 thousand USD) 70 130"
PRINT " 3 - Buy B-767 (24000 thousand USD) 110 130"
PRINT " 4 - Buy A-310 (28000 thousand USD) 120 130"
PRINT " 5 - Buy A-321 (44000 thousand USD) 150 130"
PRINT " + 30000k USD Compensation."
PRINT " -----------------------------------------"
PRINT " 9 - Proceed for 146 days ahead"
PRINT " -----------------------------------------"
PRINT CHR$(28)
INPUT " Type '1' to '5' or '9' ", t%
25185 IF t% = 1 THEN
GOTO 25500
END IF
25187 IF t% = 2 THEN
GOTO 25600
END IF
25189 IF t% = 3 THEN
GOTO 25700
END IF
25191 IF t% = 4 THEN
GOTO 25800
END IF
25192 IF t% = 5 THEN
GOTO 25890
END IF
25194 IF t% = 9 THEN
GOTO 30000
25195 ELSE
PRINT "Out of range."
GOTO 25000
25196 END IF
25270 PRINT CHR$(28)
PRINT " Total Score: "; usd& + sc%
25271 PRINT CHR$(28)
PRINT " 1 - Quit"
PRINT " 2 - Continue"
PRINT CHR$(28)
25275 INPUT " Type '1' or '2' ", t%
IF t% = 1 THEN
GOTO 94000
END IF
IF t% = 2 THEN
GOTO 25280
ELSE
PRINT "Out of range."
GOTO 25271
END IF
25280 PRINT "Please wait...."
25283 r% = r% + 1
sc% = sc% + r%
za% = za% - 1
zb% = zb% - 1
zc% = zc% - 1
zd% = zd% - 1
ze% = ze% - 1
zf% = zf% - 1
zg% = zg% - 1
zh% = zh% - 1
zi% = zi% - 1
zj% = zj% - 1
zk% = zk% - 1
zl% = zl% - 1
zm% = zm% - 1
ann% = ann% + 4
25295 IF ann% > 20640 THEN
GOTO 93500
ELSE
GOTO 25000
END IF
25500 IF usd& > 15000 THEN
GOTO 25520
ELSE
PRINT " Bank account must be over 15000k USD."
GOTO 25000
END IF
25520 usd& = usd& - 14000
zn% = (780 * ac%) - r%
efn% = 30
avn% = 90
GOTO 26000
25600 IF usd& > 19000 THEN
GOTO 25620
ELSE
PRINT " Bank account must be over 19000k USD."
GOTO 25000
END IF
25620 usd& = usd& - 18000
zn% = (780 * ac%) - r%
efn% = 70
avn% = 130
GOTO 26000
25700 IF usd& > 25000 THEN
GOTO 25720
ELSE
PRINT " Bank account must be over 25000k USD."
GOTO 25000
END IF
25720 usd& = usd& - 24000
zn% = (840 * ac%) - r%
efn% = 110
avn% = 130
GOTO 26000
25800 IF usd& > 29000 THEN
GOTO 25820
ELSE
PRINT " Bank account must be over 29000k USD."
GOTO 25000
END IF
25820 usd& = usd& - 28000
zn% = (950 * ac%) - r%
efn% = 120
avn% = 130
GOTO 26000
25890 IF ann% > 20250 THEN
GOTO 25900
ELSE
PRINT " You must wait until year 2025."
SLEEP 1
GOTO 25000
END IF
25900 IF usd& > 45000 THEN
GOTO 25920
ELSE
PRINT " Bank account must be over 45000k USD."
GOTO 25000
END IF
25920 usd& = usd& - 44000
zn% = (1100 * ac%) - r%
efn% = 150
avn% = 130
26000 SLEEP 1
lev% = 14
CLS
PRINT CHR$(28)
PRINT " ..."
PRINT " Tokyo - Rome ============"
PRINT " Tokyo - Johannesburg = LEVEL 14 ="
PRINT " Fukuoka - Sydney ============"
PRINT " Tokyo - Oslo"
PRINT CHR$(28)
PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
PRINT CHR$(28)
PRINT " NEXT: Fukuoka - Chengdu (CHN) EF-r AV-r"
PRINT " -----------------------------------------"
PRINT " 1 - Buy B-727 (14000 thousand USD) 30 110"
PRINT " 2 - Buy DC-10 (18000 thousand USD) 70 90"
PRINT " 3 - Buy B-757 (22000 thousand USD) 105 120"
PRINT " 4 - Buy A-310 (28000 thousand USD) 120 110"
PRINT " 5 - Buy A-320 (29000 thousand USD) 110 120"
PRINT " -----------------------------------------"
PRINT " 9 - Proceed for 146 days ahead"
PRINT " -----------------------------------------"
PRINT CHR$(28)
26180 INPUT " Type '1' to '5' or '9' ", t%
IF t% = 1 THEN
GOTO 26500
END IF
IF t% = 2 THEN
GOTO 26600
END IF
IF t% = 3 THEN
GOTO 26700
END IF
IF t% = 4 THEN
GOTO 26800
END IF
IF t% = 5 THEN
GOTO 26900
END IF
IF t% = 9 THEN
GOTO 30000
ELSE
PRINT "Out of range."
GOTO 26000
END IF
26270 PRINT CHR$(28)
PRINT " Total Score: "; usd& + sc%
26271 PRINT CHR$(28)
PRINT " 1 - Quit"
PRINT " 2 - Continue"
PRINT CHR$(28)
26275 INPUT " Type '1' or '2' ", t%
IF t% = 1 THEN
GOTO 94000
END IF
IF t% = 2 THEN
GOTO 26280
ELSE
PRINT "Out of range."
GOTO 26271
END IF
26280 PRINT "Please wait...."
26283 r% = r% + 1
sc% = sc% + r%
za% = za% - 1
zb% = zb% - 1
zc% = zc% - 1
zd% = zd% - 1
ze% = ze% - 1
zf% = zf% - 1
zg% = zg% - 1
zh% = zh% - 1
zi% = zi% - 1
zj% = zj% - 1
zk% = zk% - 1
zl% = zl% - 1
zm% = zm% - 1
zn% = zn% - 1
ann% = ann% + 4
26295 IF ann% > 20640 THEN
GOTO 93500
ELSE
GOTO 26000
END IF
26500 IF usd& > 15000 THEN
GOTO 26520
ELSE
PRINT " Bank account must be over 15000k USD."
GOTO 26000
END IF
26520 usd& = usd& - 14000
zo% = (780 * ac%) - r%
efo% = 30
avo% = 110
GOTO 27000
26600 IF usd& > 19000 THEN
GOTO 26620
ELSE
PRINT " Bank account must be over 18000k USD."
GOTO 26000
END IF
26620 usd& = usd& - 18000
zo% = (780 * ac%) - r%
efo% = 70
avo% = 90
GOTO 27000
26700 IF usd& > 23000 THEN
GOTO 26720
ELSE
PRINT " Bank account must be over 23000k USD."
GOTO 26000
END IF
26720 usd& = usd& - 22000
zo% = (850 * ac%) - r%
efo% = 105
avo% = 120
GOTO 27000
26800 IF usd& > 29000 THEN
GOTO 26820
ELSE
PRINT " Bank account must be over 29000k USD."
GOTO 26000
END IF
26820 usd& = usd& - 28000
zo% = (950 * ac%) - r%
efo% = 120
avo% = 110
GOTO 27000
26900 IF usd& > 30000 THEN
GOTO 26920
ELSE
PRINT " Bank account must be over 30000k USD."
GOTO 26000
26903 END IF
26920 usd& = usd& - 29000
zo% = (970 * ac%) - r%
efo% = 110
avo% = 110
27000 SLEEP 1
lev% = 15
CLS
PRINT CHR$(28)
PRINT " ..."
PRINT " Tokyo - Johannesburg ============"
PRINT " Fukuoka - Sydney = LEVEL 15 ="
PRINT " Tokyo - Oslo ============"
PRINT " Fukuoka - Chengdu"
PRINT CHR$(28)
PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
PRINT CHR$(28)
PRINT " NEXT: Tokyo - San Diego EF-r AV-r"
PRINT " -----------------------------------------"
PRINT " 1 - Buy DC-8 (8000 thousand USD) 40 120"
PRINT " 2 - Buy DC-10 (18000 thousand USD) 70 130"
PRINT " 3 - Buy B-767 (24000 thousand USD) 110 130"
PRINT " 4 - Buy A-310 (28000 thousand USD) 120 120"
PRINT " -----------------------------------------"
PRINT " 9 - Proceed for 146 days ahead"
PRINT " -----------------------------------------"
PRINT CHR$(28)
27180 INPUT " Type '1' to '4' or '9' ", t%
IF t% = 1 THEN
GOTO 27300
END IF
IF t% = 2 THEN
GOTO 27400
END IF
IF t% = 3 THEN
GOTO 27500
END IF
IF t% = 4 THEN
GOTO 27600
END IF
IF t% = 9 THEN
GOTO 30000
ELSE
PRINT "Out of range."
GOTO 27000
END IF
27270 PRINT CHR$(28)
PRINT " Total Score: "; usd& + sc%
27271 PRINT CHR$(28)
PRINT " 1 - Quit"
PRINT " 2 - Continue"
PRINT CHR$(28)
27275 INPUT " Type '1' or '2' ", t%
IF t% = 1 THEN
GOTO 94000
END IF
IF t% = 2 THEN
GOTO 27280
ELSE
PRINT "Out of range."
GOTO 27271
END IF
27280 PRINT "Please wait...."
27283 r% = r% + 1
sc% = sc% + r%
za% = za% - 1
zb% = zb% - 1
zc% = zc% - 1
zd% = zd% - 1
ze% = ze% - 1
zf% = zf% - 1
zg% = zg% - 1
zh% = zh% - 1
zi% = zi% - 1
zj% = zj% - 1
zk% = zk% - 1
zl% = zl% - 1
zm% = zm% - 1
zn% = zn% - 1
zo% = zo% - 1
ann% = ann% + 4
27295 IF ann% > 20640 THEN
GOTO 93500
ELSE
GOTO 27000
END IF
27300 IF usd& > 9000 THEN
GOTO 27320
ELSE
PRINT " Bank account must be over 9000k USD."
GOTO 27000
END IF
27320 usd& = usd& - 8000
zp% = (690 * ac%) - r%
efp% = 40
avp% = 120
GOTO 28000
27400 IF usd& > 19000 THEN
GOTO 27420
ELSE
PRINT " Bank account must be over 19000k USD."
GOTO 27000
END IF
27420 usd& = usd& - 18000
zp% = (780 * ac%) - r%
efp% = 70
avp% = 130
GOTO 28000
27500 IF usd& > 25000 THEN
GOTO 27520
ELSE
PRINT " Bank account must be over 25000k USD."
GOTO 27000
END IF
27520 usd& = usd& - 24000
zp% = (840 * ac%) - r%
efp% = 110
avp% = 130
GOTO 28000
27600 IF usd& > 29000 THEN
GOTO 27620
ELSE
PRINT " Bank account must be over 29000k USD."
GOTO 27000
END IF
27620 usd& = usd& - 28000
zp% = (950 * ac%) - r%
efp% = 120
avp% = 120
28000 SLEEP 1
lev% = 16
CLS
PRINT CHR$(28)
PRINT " ..."
PRINT " Fukuoka - Sydney ============"
PRINT " Tokyo - Oslo = LEVEL 16 ="
PRINT " Fukuoka - Chengdu ============"
PRINT " Tokyo - San Diego"
PRINT CHR$(28)
PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
PRINT CHR$(28)
PRINT " NEXT: Tokyo - Ulan Bator EF-r AV-r"
PRINT " -----------------------------------------"
PRINT " 1 - Buy DC-9 (12000 thousand USD) 60 90"
PRINT " 2 - Buy B-727 (14000 thousand USD) 30 100"
PRINT " 3 - Buy B-737 (20000 thousand USD) 100 100"
PRINT " 4 - Buy A-320 (29000 thousand USD) 110 100"
PRINT " -----------------------------------------"
PRINT " 9 - Proceed for 146 days ahead"
PRINT " -----------------------------------------"
PRINT CHR$(28)
28180 INPUT " Type '1' to '4' or '9' ", t%
IF t% = 1 THEN
GOTO 28300
END IF
IF t% = 2 THEN
GOTO 28400
END IF
IF t% = 3 THEN
GOTO 28500
END IF
IF t% = 4 THEN
GOTO 28600
END IF
IF t% = 9 THEN
GOTO 30000
ELSE
PRINT "Out of range."
GOTO 27000
END IF
28270 PRINT CHR$(28)
PRINT " Total Score: "; usd& + sc%
28271 PRINT CHR$(28)
PRINT " 1 - Quit"
PRINT " 2 - Continue"
PRINT CHR$(28)
28275 INPUT " Type '1' or '2' ", t%
IF t% = 1 THEN
GOTO 94000
END IF
IF t% = 2 THEN
GOTO 28280
ELSE
PRINT "Out of range."
GOTO 28271
END IF
28280 PRINT "Please wait...."
28283 r% = r% + 1
sc% = sc% + r%
za% = za% - 1
zb% = zb% - 1
zc% = zc% - 1
zd% = zd% - 1
ze% = ze% - 1
zf% = zf% - 1
zg% = zg% - 1
zh% = zh% - 1
zi% = zi% - 1
zj% = zj% - 1
zk% = zk% - 1
zl% = zl% - 1
zm% = zm% - 1
zn% = zn% - 1
zo% = zo% - 1
zp% = zp% - 1
ann% = ann% + 4
28295 IF ann% > 20640 THEN
GOTO 93500
ELSE
GOTO 28000
END IF
28300 IF usd& > 13000 THEN
GOTO 28320
ELSE
PRINT " Bank account must be over 13000k USD."
GOTO 28000
END IF
28320 usd& = usd& - 12000
zq% = (700 * ac%) - r%
efq% = 60
avq% = 90
GOTO 28900
28400 IF usd& > 15000 THEN
GOTO 28420
ELSE
PRINT " Bank account must be over 15000k USD."
GOTO 28000
END IF
28420 usd& = usd& - 14000
zq% = (780 * ac%) - r%
efq% = 30
avq% = 100
GOTO 28900
28500 IF usd& > 21000 THEN
GOTO 28520
ELSE
PRINT " Bank account must be over 21000k USD."
GOTO 28000
END IF
28520 usd& = usd& - 20000
zq% = (830 * ac%) - r%
efq% = 110
avq% = 100
GOTO 28900
28600 IF usd& > 30000 THEN
GOTO 28620
ELSE
PRINT " Bank account must be over 30000k USD."
GOTO 28000
END IF
28620 usd& = usd& - 29000
zq% = (970 * ac%) - r%
efq% = 110
avq% = 100
28900 SLEEP 1
lev% = 17
CLS
PRINT CHR$(28)
PRINT " ..."
PRINT " Tokyo - Oslo ============"
PRINT " Fukuoka - Chengdu = LEVEL 17 ="
PRINT " Tokyo - San Diego ============"
PRINT " Tokyo - Ulan Bator"
PRINT CHR$(28)
PRINT " Year: "; ann% / 10; " Bank Balance (thousand USD): "; usd&
PRINT CHR$(28)
PRINT " '1' = You have already done it."
PRINT " ---------------------------------------------"
PRINT " 1 - Dump plane #2 and replace it with B-737 100 110 "; dub%
PRINT " 2 - Dump plane #3 and replace it with B-737 100 120 "; duc%
PRINT " 3 - Dump plane #4 and replace it with B-737 100 120 "; dud%
PRINT " 4 - Dump plane #5 and replace it with B-767 110 160 "; due%
PRINT " 5 - Dump plane #6 and replace it with B-767 110 160 "; duf%
PRINT " ---------------------------------------------"
PRINT " 9 - Proceed for 146 days ahead."
PRINT " ---------------------------------------------"
PRINT CHR$(28)
28910 INPUT " Type '1' to '5' or '9' ", t%
IF t% = 1 THEN
GOTO 29000
END IF
IF t% = 2 THEN
GOTO 29100
END IF
IF t% = 3 THEN
GOTO 29200
END IF
IF t% = 4 THEN
GOTO 29300
END IF
IF t% = 5 THEN
GOTO 29400
END IF
IF t% = 9 THEN
GOTO 30000
ELSE
PRINT "Out of range."
GOTO 28900
END IF
28970 PRINT CHR$(28)
PRINT " Total Score: "; usd& + sc%
28971 PRINT CHR$(28)
PRINT " 1 - Quit"
PRINT " 2 - Continue"
PRINT CHR$(28)
28975 INPUT " Type '1' or '2' ", t%
IF t% = 1 THEN
GOTO 94000
END IF
IF t% = 2 THEN
GOTO 28980
ELSE
PRINT "Out of range."
GOTO 28971
END IF
28980 PRINT "Please wait...."
28983 r% = r% + 1
sc% = sc% + r%
za% = za% - 1
zb% = zb% - 1
zc% = zc% - 1
zd% = zd% - 1
ze% = ze% - 1
zf% = zf% - 1
zg% = zg% - 1
zh% = zh% - 1
zi% = zi% - 1
zj% = zj% - 1
zk% = zk% - 1
zl% = zl% - 1
zm% = zm% - 1
zn% = zn% - 1
zo% = zo% - 1
zp% = zp% - 1
zq% = zq% - 1
ann% = ann% + 4
28995 IF ann% > 20640 THEN
GOTO 93500
28998 ELSE
GOTO 28900
28999 END IF
29000 IF dub% = 1 THEN
GOTO 29010
ELSE
GOTO 29050
END IF
29010 PRINT CHR$(28)
PRINT " You already have that plane."
GOTO 28900
29050 IF usd& > 21000 THEN
GOTO 29070
ELSE
PRINT " Bank account must be over 21000k USD."
GOTO 28900
END IF
29070 usd& = usd& - 20000
dub% = 1
zb% = (830 * ac%) - r%
efb% = 100
avb% = 110
PRINT " Fukuoka - Sapporo: B-737."
SLEEP 1
GOTO 28900
29100 IF duc% = 1 THEN
GOTO 29110
ELSE
GOTO 29150
END IF
29110 PRINT CHR$(28)
PRINT " You already have that plane."
GOTO 28900
29150 IF usd& > 21000 THEN
GOTO 29170
ELSE
PRINT " Bank account must be over 21000k USD."
GOTO 28900
END IF
29170 usd& = usd& - 20000
duc% = 1
zc% = (830 * ac%) - r%
efc% = 100
avc% = 120
PRINT " Tokyo - Sapporo: B-737."
SLEEP 1
GOTO 28900
29200 IF dud% = 1 THEN
GOTO 29210
ELSE
GOTO 29250
END IF
29210 PRINT CHR$(28)
PRINT " You already have that plane."
GOTO 28900
29250 IF usd& > 21000 THEN
GOTO 29270
ELSE
PRINT " Bank account must be over 21000k USD."
GOTO 28900
END IF
29270 usd& = usd& - 20000
dud% = 1
zd% = (830 * ac%) - r%
efd% = 100
avd% = 120
PRINT " Fukuoka - Taipei: B-737."
SLEEP 1
GOTO 28900
29300 IF due% = 1 THEN
GOTO 29310
ELSE
GOTO 29350
END IF
29310 PRINT CHR$(28)
PRINT " You already have that plane."
GOTO 28900
29350 IF usd& > 25000 THEN
GOTO 29370
ELSE
PRINT " Bank account must be over 25000k USD."
GOTO 28900
END IF
29370 usd& = usd& - 24000
due% = 1
ze% = (840 * ac%) - r%
efe% = 110
ave% = 160
PRINT " Fukuoka - Taipei: B-767."
SLEEP 1
GOTO 28900
29400 IF duf% = 1 THEN
GOTO 29410
ELSE
GOTO 29450
END IF
29410 PRINT CHR$(28)
PRINT " You already have that plane."
GOTO 28900
29450 IF usd& > 25000 THEN
GOTO 29470
ELSE
PRINT " Bank account must be over 25000k USD."
GOTO 28000
END IF
29470 usd& = usd& - 24000
duf% = 1
zf% = (840 * ac%) - r%
eff% = 110
avf% = 160
PRINT " Tokyo - Moscow: B-767."
SLEEP 1
GOTO 28900
30000 CLS
SLEEP 1
RANDOMIZE TIMER
zaa% = INT(RND * za%) + 1
30004 IF zaa% = 1 THEN
GOTO 92000
ELSE
GOTO 30008
END IF
30008 PRINT " B-727: No crash."
PRINT " Risk was one per "; za%
30010 PRINT CHR$(28)
v% = INT(RND * 4) + 1
30014 IF v% = 1 THEN
GOTO 30030
ELSE
GOTO 30020
END IF
30020 va% = INT(RND * la%) + 1
vb% = (va% + efa%) * (ava% / 100)
PRINT " B-727: You made profit (thousand USD): "; vb%
usd& = usd& + vb%
GOTO 30040
30030 va% = INT(RND * lb%) + 150
vb% = va% - efa%
PRINT " B-727: You made loss (thousand USD): "; vb%
usd& = usd& - vb%
30037 IF usd& < 1 THEN
GOTO 93000
ELSE
GOTO 30040
END IF
30040 IF lev% > 1 THEN
GOTO 30100
ELSE
GOTO 1340
END IF
30100 PRINT CHR$(28)
SLEEP 1
zba% = INT(RND * zb%) + 1
30103 IF zba% = 1 THEN
GOTO 92000
ELSE
GOTO 30108
END IF
30108 PRINT " Plane 2: No crash."
PRINT " Risk was one per "; zb%
30110 PRINT CHR$(28)
v% = INT(RND * 4) + 1
IF v% = 1 THEN
GOTO 30130
ELSE
GOTO 30120
END IF
30120 va% = INT(RND * la%) + 1
vb% = (va% + efb%) * (avb% / 100)
PRINT " Plane 2: You made profit (thousand USD): "; vb%
usd& = usd& + vb%
GOTO 30140
30130 va% = INT(RND * lb%) + 150
vb% = va% - efb%
PRINT " Plane 2: You made loss (thousand USD): "; vb%
usd& = usd& - vb%
30136 IF usd& < 1 THEN
GOTO 93000
ELSE
GOTO 30140
END IF
30140 IF lev% > 2 THEN
GOTO 30200
ELSE
GOTO 3480
END IF
30200 PRINT CHR$(28)
SLEEP 1
zca% = INT(RND * zc%) + 1
30203 IF zca% = 1 THEN
GOTO 92000
ELSE
GOTO 30208
END IF
30208 PRINT " Plane 3: No crash."
PRINT " Risk was one per "; zc%
30210 PRINT CHR$(28)
v% = INT(RND * 4) + 1
30214 IF v% = 1 THEN
GOTO 30230
ELSE
GOTO 30220
END IF
30220 va% = INT(RND * la%) + 1
vb% = (va% + efc%) * (avc% / 100)
PRINT " Plane 3: You made profit (thousand USD): "; vb%
usd& = usd& + vb%
GOTO 30240
30230 va% = INT(RND * lb%) + 150
vb% = va% + efc%
PRINT " Plane 3: You made loss (thousand USD): "; vb%
usd& = usd& - vb%
IF usd& < 1 THEN
GOTO 93000
ELSE
GOTO 30240
END IF
30240 IF lev% > 3 THEN
GOTO 30300
ELSE
GOTO 5970
END IF
30300 PRINT CHR$(28)
SLEEP 1
zda% = INT(RND * zd%) + 1
IF zda% = 1 THEN
GOTO 92000
ELSE
GOTO 30308
END IF
30308 PRINT " Plane 4: No crash."
PRINT " Risk was one per "; zd%
30310 PRINT CHR$(28)
v% = INT(RND * 4) + 1
30314 IF v% = 1 THEN
GOTO 30330
ELSE
GOTO 30320
END IF
30320 va% = INT(RND * la%) + 1
vb% = (va% + efd%) * (avd% / 100)
PRINT " Plane 4: You made profit (thousand USD): "; vb%
usd& = usd& + vb%
GOTO 30340
30330 va% = INT(RND * lb%) + 150
vb% = va% + efd%
PRINT " Plane 4: You made loss (thousand USD): "; vb%
usd& = usd& - vb%
30336 IF usd& < 1 THEN
GOTO 93000
ELSE
GOTO 30340
END IF
30340 IF lev% > 4 THEN
GOTO 30400
ELSE
GOTO 7970
END IF
30400 PRINT CHR$(28)
SLEEP 1
zea% = INT(RND * ze%) + 1
30403 IF zea% = 1 THEN
GOTO 92000
ELSE
GOTO 30408
END IF
30408 PRINT " Plane 5: No crash."
PRINT " Risk was one per "; ze%
30410 PRINT CHR$(28)
v% = INT(RND * 4) + 1
30414 IF v% = 1 THEN
GOTO 30430
ELSE
GOTO 30420
END IF
30420 va% = INT(RND * la%) + 1
vb% = (va% + efe%) * (ave% / 100)
PRINT " Plane 5: You made profit (thousand USD): "; vb%
usd& = usd& + vb%
GOTO 30440
30430 va% = INT(RND * lb%) + 150
vb% = va% + efe%
PRINT " Plane 5: You made loss (thousand USD): "; vb%
usd& = usd& - vb%
30436 IF usd& < 1 THEN
GOTO 93000
ELSE
GOTO 30440
END IF
30440 IF lev% > 5 THEN
GOTO 30500
ELSE
GOTO 9970
END IF
30500 PRINT CHR$(28)
SLEEP 1
zfa% = INT(RND * zf%) + 1
30503 IF zfa% = 1 THEN
GOTO 92000
ELSE
GOTO 30508
END IF
30508 PRINT " Plane 6: No crash."
PRINT " Risk was one per "; zf%
30510 PRINT CHR$(28)
v% = INT(RND * 4) + 1
IF v% = 1 THEN
GOTO 30530
ELSE
GOTO 30520
END IF
30520 va% = INT(RND * la%) + 1
vb% = (va% + eff%) * (avf% / 100)
PRINT " Plane 6: You made profit (thousand USD): "; vb%
usd& = usd& + vb%
GOTO 30540
30530 va% = INT(RND * lb%) + 150
vb% = va% + eff%
PRINT " Plane 6: You made loss (thousand USD): "; vb%
usd& = usd& - vb%
30536 IF usd& < 1 THEN
GOTO 93000
ELSE
GOTO 30540
END IF
30540 IF lev% > 6 THEN
GOTO 30600
ELSE
GOTO 11970
END IF
30600 PRINT CHR$(28)
SLEEP 1
zga% = INT(RND * zg%) + 1
30603 IF zga% = 1 THEN
GOTO 92000
ELSE
GOTO 30608
END IF
30608 PRINT " Plane 7: No crash."
PRINT " Risk was one per "; zg%
30610 PRINT CHR$(28)
v% = INT(RND * 4) + 1
30614 IF v% = 1 THEN
GOTO 30630
ELSE
GOTO 30620
END IF
30620 va% = INT(RND * la%) + 1
vb% = (va% + efg%) * (avg% / 100)
PRINT " Plane 7: You made profit (thousand USD): "; vb%
usd& = usd& + vb%
GOTO 30640
30630 va% = INT(RND * lb%) + 150
vb% = va% + efg%
PRINT " Plane 7: You made loss (thousand USD): "; vb%
usd& = usd& - vb%
30636 IF usd& < 1 THEN
GOTO 93000
ELSE
GOTO 30640
END IF
30640 IF lev% > 7 THEN
GOTO 30700
ELSE
GOTO 13970
END IF
30700 PRINT CHR$(28)
SLEEP 1
zha% = INT(RND * zh%) + 1
30703 IF zha% = 1 THEN
GOTO 92000
ELSE
GOTO 30708
END IF
30708 PRINT " Plane 8: No crash."
PRINT " Risk was one per "; zh%
30710 PRINT CHR$(28)
v% = INT(RND * 4) + 1
30714 IF v% = 1 THEN
GOTO 30730
ELSE
GOTO 30720
END IF
30720 va% = INT(RND * la%) + 1
vb% = (va% + efh%) * (avh% / 100)
PRINT " Plane 8: You made profit (thousand USD): "; vb%
usd& = usd& + vb%
GOTO 30740
30730 va% = INT(RND * lb%) + 150
vb% = va% + efh%
PRINT " Plane 8: You made loss (thousand USD): "; vb%
usd& = usd& - vb%
30736 IF usd& < 1 THEN
GOTO 93000
ELSE
GOTO 30740
END IF
30740 IF lev% > 8 THEN
GOTO 30800
ELSE
GOTO 15970
END IF
30800 PRINT CHR$(28)
SLEEP 1
zia% = INT(RND * zi%) + 1
30803 IF zia% = 1 THEN
GOTO 92000
ELSE
GOTO 30808
END IF
30808 PRINT " Plane 9: No crash."
PRINT " Risk was one per "; zi%
30810 PRINT CHR$(28)
v% = INT(RND * 4) + 1
30814 IF v% = 1 THEN
GOTO 30830
ELSE
GOTO 30820
END IF
30820 va% = INT(RND * la%) + 1
vb% = (va% + efi%) * (avi% / 100)
PRINT " Plane 9: You made profit (thousand USD): "; vb%
usd& = usd& + vb%
GOTO 30840
30830 va% = INT(RND * lb%) + 150
vb% = va% + efi%
PRINT " Plane 9: You made loss (thousand USD): "; vb%
usd& = usd& - vb%
30836 IF usd& < 1 THEN
GOTO 93000
ELSE
GOTO 30840
END IF
30840 IF lev% > 9 THEN
GOTO 30900
ELSE
GOTO 17970
END IF
30900 PRINT CHR$(28)
SLEEP 1
zja% = INT(RND * zj%) + 1
30903 IF zja% = 1 THEN
GOTO 92000
ELSE
GOTO 30908
END IF
30908 PRINT " Plane 10: No crash."
PRINT " Risk was one per "; zj%
30910 PRINT CHR$(28)
v% = INT(RND * 4) + 1
30914 IF v% = 1 THEN
GOTO 30930
ELSE
GOTO 30920
END IF
30920 va% = INT(RND * la%) + 1
vb% = (va% + efj%) * (avj% / 100)
PRINT " Plane 10: You made profit (thousand USD): "; vb%
usd& = usd& + vb%
GOTO 30940
30930 va% = INT(RND * lb%) + 150
vb% = va% + efj%
PRINT " Plane 10: You made loss (thousand USD): "; vb%
usd& = usd& - vb%
30936 IF usd& < 1 THEN
GOTO 93000
ELSE
GOTO 30940
END IF
30940 IF lev% > 10 THEN
GOTO 31000
ELSE
GOTO 19970
END IF
31000 PRINT CHR$(28)
SLEEP 1
zka% = INT(RND * zk%) + 1
31003 IF zka% = 1 THEN
GOTO 92000
ELSE
GOTO 31008
END IF
31008 PRINT " Plane 11: No crash."
PRINT " Risk was one per "; zk%
31010 PRINT CHR$(28)
v% = INT(RND * 4) + 1
31014 IF v% = 1 THEN
GOTO 31030
ELSE
GOTO 31020
END IF
31020 va% = INT(RND * la%) + 1
vb% = (va% + efk%) * (avk% / 100)
PRINT " Plane 11: You made profit (thousand USD): "; vb%
usd& = usd& + vb%
GOTO 31040
31030 va% = INT(RND * lb%) + 150
vb% = va% + efk%
PRINT " Plane 11: You made loss (thousand USD): "; vb%
usd& = usd& - vb%
31036 IF usd& < 1 THEN
GOTO 93000
ELSE
GOTO 31040
END IF
31040 IF lev% > 11 THEN
GOTO 31100
ELSE
GOTO 21970
END IF
31100 PRINT CHR$(28)
SLEEP 1
zla% = INT(RND * zl%) + 1
31103 IF zla% = 1 THEN
GOTO 92000
ELSE
GOTO 31108
END IF
31108 PRINT " Plane 12: No crash."
PRINT " Risk was one per "; zl%
31110 PRINT CHR$(28)
v% = INT(RND * 4) + 1
31114 IF v% = 1 THEN
GOTO 31130
ELSE
GOTO 31120
END IF
31120 va% = INT(RND * la%) + 1
vb% = (va% + efl%) * (avl% / 100)
PRINT " Plane 12: You made profit (thousand USD): "; vb%
usd& = usd& + vb%
GOTO 31140
31130 va% = INT(RND * lb%) + 150
vb% = va% + efl%
PRINT " Plane 12: You made loss (thousand USD): "; vb%
usd& = usd& - vb%
31136 IF usd& < 1 THEN
GOTO 93000
ELSE
GOTO 31140
END IF
31140 IF lev% > 12 THEN
GOTO 31200
ELSE
GOTO 23970
END IF
31200 PRINT CHR$(28)
SLEEP 1
zma% = INT(RND * zm%) + 1
31203 IF zma% = 1 THEN
GOTO 92000
ELSE
GOTO 31208
END IF
31208 PRINT " Plane 13: No crash."
PRINT " Risk was one per "; zm%
31210 PRINT CHR$(28)
v% = INT(RND * 4) + 1
31214 IF v% = 1 THEN
GOTO 31230
ELSE
GOTO 31220
END IF
31220 va% = INT(RND * la%) + 1
vb% = (va% + efm%) * (avm% / 100)
PRINT " Plane 13: You made profit (thousand USD): "; vb%
usd& = usd& + vb%
GOTO 31240
31230 va% = INT(RND * lb%) + 150
vb% = va% + efm%
PRINT " Plane 13: You made loss (thousand USD): "; vb%
usd& = usd& - vb%
31236 IF usd& < 1 THEN
GOTO 93000
ELSE
GOTO 31240
END IF
31240 IF lev% > 13 THEN
GOTO 31300
ELSE
GOTO 25270
END IF
31300 PRINT CHR$(28)
SLEEP 1
zna% = INT(RND * zn%) + 1
31303 IF zna% = 1 THEN
GOTO 92000
ELSE
GOTO 31308
END IF
31308 PRINT " Plane 14: No crash."
PRINT " Risk was one per "; zn%
31310 PRINT CHR$(28)
v% = INT(RND * 4) + 1
31314 IF v% = 1 THEN
GOTO 31330
ELSE
GOTO 31320
END IF
31320 va% = INT(RND * la%) + 1
vb% = (va% + efn%) * (avn% / 100)
PRINT " Plane 14: You made profit (thousand USD): "; vb%
usd& = usd& + vb%
GOTO 31340
31330 va% = INT(RND * lb%) + 150
vb% = va% + efn%
PRINT " Plane 14: You made loss (thousand USD): "; vb%
usd& = usd& - vb%
31336 IF usd& < 1 THEN
GOTO 93000
ELSE
GOTO 31340
END IF
31340 IF lev% > 14 THEN
GOTO 31400
ELSE
GOTO 26270
END IF
31400 PRINT CHR$(28)
SLEEP 1
zoa% = INT(RND * zo%) + 1
31403 IF zoa% = 1 THEN
GOTO 92000
ELSE
GOTO 31408
END IF
31408 PRINT " Plane 15: No crash."
PRINT " Risk was one per "; zo%
31410 PRINT CHR$(28)
v% = INT(RND * 4) + 1
31414 IF v% = 1 THEN
GOTO 31430
ELSE
GOTO 31420
END IF
31420 va% = INT(RND * la%) + 1
vb% = (va% + efo%) * (avo% / 100)
PRINT " Plane 15: You made profit (thousand USD): "; vb%
usd& = usd& + vb%
GOTO 31440
31430 va% = INT(RND * lb%) + 150
vb% = va% + efo%
PRINT " Plane 15: You made loss (thousand USD): "; vb%
usd& = usd& - vb%
31436 IF usd& < 1 THEN
GOTO 93000
ELSE
GOTO 31440
END IF
31440 IF lev% > 15 THEN
GOTO 31500
ELSE
GOTO 27270
END IF
31500 PRINT CHR$(28)
SLEEP 1
zpa% = INT(RND * zp%) + 1
31503 IF zpa% = 1 THEN
GOTO 92000
ELSE
GOTO 31508
END IF
31508 PRINT " Plane 16: No crash."
PRINT " Risk was one per "; zp%
31510 PRINT CHR$(28)
v% = INT(RND * 4) + 1
31514 IF v% = 1 THEN
GOTO 31530
ELSE
GOTO 31520
END IF
31520 va% = INT(RND * la%) + 1
vb% = (va% + efp%) * (avp% / 100)
PRINT " Plane 16: You made profit (thousand USD): "; vb%
usd& = usd& + vb%
GOTO 31540
31530 va% = INT(RND * lb%) + 150
vb% = va% + efp%
PRINT " Plane 16: You made loss (thousand USD): "; vb%
usd& = usd& - vb%
31536 IF usd& < 1 THEN
GOTO 93000
ELSE
GOTO 31540
END IF
31540 IF lev% > 16 THEN
GOTO 31600
ELSE
GOTO 28270
END IF
31600 PRINT CHR$(28)
SLEEP 1
zqa% = INT(RND * zq%) + 1
31603 IF zqa% = 1 THEN
GOTO 92000
ELSE
GOTO 31608
END IF
31608 PRINT " Plane 17: No crash."
PRINT " Risk was one per "; zq%
31610 PRINT CHR$(28)
v% = INT(RND * 4) + 1
31614 IF v% = 1 THEN
GOTO 31630
ELSE
GOTO 31620
END IF
31620 va% = INT(RND * la%) + 1
vb% = (va% + efq%) * (avq% / 100)
PRINT " Plane 17: You made profit (thousand USD): "; vb%
usd& = usd& + vb%
GOTO 28970
31630 va% = INT(RND * lb%) + 150
vb% = va% + efq%
PRINT " Plane 17: You made loss (thousand USD): "; vb%
usd& = usd& - vb%
31636 IF usd& < 1 THEN
GOTO 93000
ELSE
GOTO 28970
END IF
34010 PRINT CHR$(28)
PRINT " Money in the Bank: "; usd&
PRINT CHR$(28)
34020 PRINT " Compensation for A-321XLR (if you have)..."
SLEEP 1
34030 IF efm% = 150 THEN
GOTO 34040
ELSE
GOTO 34050
END IF
34040 PRINT CHR$(28)
PRINT " Compensation (plane #13) : 30000k USD."
usd& = usd& + 30000
GOTO 34060
34050 PRINT CHR$(28)
PRINT " No compensation for plane #13."
34060 SLEEP 1
34061 IF efn% = 150 THEN
GOTO 34070
ELSE
GOTO 34080
END IF
34070 PRINT CHR$(28)
PRINT " Compensation (plane #14) : 30000k USD."
usd& = usd& + 30000
GOTO 34100
34080 PRINT CHR$(28)
PRINT " No compensation for plane #14."
34100 PRINT CHR$(28)
PRINT " Compensation for A-350 (if you have)..."
SLEEP 1
34150 IF efk% = 130 THEN
GOTO 34200
ELSE
GOTO 34248
END IF
34200 PRINT CHR$(28)
PRINT " Compensation (plane #11) : 20000k USD."
usd& = usd& + 20000
GOTO 34250
34248 PRINT CHR$(28)
PRINT " No compensation for plane #11."
34250 SLEEP 1
34251 IF efl% = 130 THEN
GOTO 34300
ELSE
GOTO 34348
END IF
34300 PRINT CHR$(28)
PRINT " Compensation (plane #12) : 20000k USD."
usd& = usd& + 20000
GOTO 34350
34348 PRINT CHR$(28)
PRINT " No compensation for plane #12."
34350 SLEEP 1
34351 IF efm% = 130 THEN
GOTO 34400
ELSE
GOTO 34448
END IF
34400 PRINT CHR$(28)
PRINT " Compensation (plane #13) : 20000k USD."
usd& = usd& + 20000
GOTO 34500
34448 PRINT CHR$(28)
PRINT " No compensation for plane #13."
34500 PRINT CHR$(28)
PRINT " Compensation for B-777 (if you have)..."
SLEEP 1
34550 IF efj% = 90 THEN
GOTO 34600
ELSE
GOTO 34648
END IF
34600 PRINT CHR$(28)
PRINT " Compensation (plane #10) : 10000k USD."
usd& = usd& + 10000
GOTO 34650
34648 PRINT CHR$(28)
PRINT " No compensation for plane #10."
34650 SLEEP 1
34651 IF efk% = 90 THEN
GOTO 34700
ELSE
GOTO 34748
END IF
34700 PRINT CHR$(28)
PRINT " Compensation (plane #11) : 10000k USD."
usd& = usd& + 10000
GOTO 34750
34748 PRINT CHR$(28)
PRINT " No compensation for plane #11."
34750 SLEEP 1
34751 IF efl% = 90 THEN
GOTO 34800
ELSE
GOTO 34848
END IF
34800 PRINT CHR$(28)
PRINT " Compensation (plane #12) : 10000k USD."
usd& = usd& + 10000
GOTO 34850
34848 PRINT CHR$(28)
PRINT " No compensation for plane #12."
34850 SLEEP 1
34851 IF efm% = 90 THEN
GOTO 34900
ELSE
GOTO 34948
END IF
34900 PRINT CHR$(28)
PRINT " Compensation (plane #13) : 10000k USD."
usd& = usd& + 10000
GOTO 34950
34948 PRINT CHR$(28)
PRINT " No compensation for plane #13."
34950 PRINT CHR$(28)
PRINT " Press SPACE."
SLEEP 0
CLS
35000 PRINT CHR$(28)
PRINT " Score: "; usd& + sc%
PRINT CHR$(28)
PRINT CHR$(28)
PRINT " Do you want to play again?"
PRINT CHR$(28)
PRINT " 1 - Play again"
PRINT " 2 - Quit"
35009 PRINT CHR$(28)
INPUT " Type '1' or '2' ", t%
35010 IF t% = 1 THEN
RUN
END IF
IF t% = 2 THEN
GOTO 35020
ELSE
PRINT "Out of range."
GOTO 35009
END IF
35020 END
92000 SLEEP 2
CLS
PRINT CHR$(28)
PRINT " ============================="
PRINT " = ="
PRINT " = Plane crash - Game over ="
PRINT " = ="
PRINT " ============================="
usd& = usd& - (ann% * 1.5)
GOTO 34010
93000 CLS
PRINT CHR$(28)
PRINT " ============================="
PRINT " = ="
PRINT " = Game over ="
PRINT " = Out of money! ="
PRINT " = ="
PRINT " ============================="
GOTO 34010
93500 CLS
PRINT CHR$(28)
PRINT " ============================="
PRINT " = ="
PRINT " = Year 2064 ="
PRINT " = Congratulations!! ="
PRINT " = ="
PRINT " ============================="
PRINT CHR$(28)
PRINT " Bonus: 50000k USD."
usd& = usd& + 50000
GOTO 34010
94000 CLS
PRINT CHR$(28)
PRINT " ============================="
PRINT " = ="
PRINT " = Game over ="
PRINT " = ="
PRINT " ============================="
GOTO 34010