Airline v 3.0


Created: Pasi Toivonen, 2024




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


Takaisin