10 SCREEN 0 12 COLOR 7, 9 14 CLS 16 PRINT CHR$(32) PRINT " ======================================" PRINT " = =" PRINT " = UKRAINE DEADLOCK =" PRINT " = =" PRINT " ======================================" PRINT CHR$(32) PRINT CHR$(32) PRINT " Created: Pasi Toivonen (2024)" PRINT CHR$(32) PRINT CHR$(32) PRINT CHR$(32) 18 PRINT " How many new men for Ukraine army each round (n% + Random) ?" PRINT CHR$(32) PRINT " My advice: '2000'." PRINT CHR$(32) 20 INPUT " Give number between '1' and '4700' "; t% 22 IF t% < 1 OR t% > 4700 THEN PRINT CHR$(32) PRINT "Impossible." SLEEP 1 GOTO 20 ELSE le% = t% GOTO 30 END IF 30 PRINT CHR$(32) PRINT " How many units of artillery for Russian army each round (n% + Random) ?" PRINT CHR$(32) PRINT " My advice: '30'." PRINT CHR$(32) 40 INPUT " Give number between '1' and '50' "; t% 42 IF t% < 1 OR t% > 50 THEN PRINT CHR$(32) PRINT "Impossible." SLEEP 1 GOTO 40 ELSE lf% = t% GOTO 50 END IF 50 PRINT CHR$(32) PRINT " How many tanks for Russian army each round (n% + Random) ?" PRINT CHR$(32) PRINT " My advice: '10'." PRINT CHR$(32) 60 INPUT " Give number between '1' and '20' "; t% 62 IF t% < 1 OR t% > 20 THEN PRINT CHR$(32) PRINT "Impossible." SLEEP 1 GOTO 60 ELSE lg% = t% GOTO 70 END IF 70 PRINT CHR$(32) PRINT " How many vehicles for Russian army each round (n% + Random) ?" PRINT CHR$(32) PRINT " My advice: '30'." PRINT CHR$(32) 80 INPUT " Give number between '1' and '50' "; t% 82 IF t% < 1 OR t% > 50 THEN PRINT CHR$(32) PRINT "Impossible." SLEEP 1 GOTO 80 ELSE lh% = t% GOTO 100 END IF 100 ud& = 50000 rd& = 100000 zp% = 90 pp% = 80 nuk% = 10 umo% = 94 rmo% = 70 occ& = 50000 udr% = 200 rdr% = 200 ft% = 0 coun% = 0 udie& = 0 rdie& = 0 coun% = 0 uda& = 0 rda& = 0 110 RANDOMIZE TIMER unm% = INT(4000 * RND) + le% una% = 200 unt% = 50 unv% = 200 undr% = 40 900 sa% = 0 sb% = 0 sc% = 0 sd% = 0 se% = 0 sf% = 0 sg% = 0 sh% = 0 si% = 0 sj% = 0 ann% = 2023 ny% = 1 vk% = 1 r% = 1 no% = 0 urt% = 1 bl% = 1 930 usa& = 20000 usb& = 20000 usc& = 20000 usd& = 20000 use& = 20000 usf& = 20000 usg& = 20000 ush& = 20000 usi& = 20000 usj& = 20000 931 uaa% = 50 uab% = 50 uac% = 50 uad% = 50 uae% = 50 uaf% = 50 uag% = 50 uah% = 50 uai% = 50 uaj% = 50 932 uta% = 10 utb% = 10 utc% = 10 utd% = 10 ute% = 10 utf% = 10 utg% = 10 uth% = 10 uti% = 10 utj% = 10 933 uva% = 80 uvb% = 40 uvc% = 40 uvd% = 40 uve% = 40 uvf% = 40 uvg% = 40 uvh% = 40 uvi% = 40 uvj% = 40 934 usda& = INT(20 * RND) + 10 usdb& = INT(20 * RND) + 10 usdc& = INT(20 * RND) + 10 usdd& = INT(20 * RND) + 10 usde& = INT(20 * RND) + 10 usdf& = INT(20 * RND) + 10 usdg& = INT(20 * RND) + 10 usdh& = INT(20 * RND) + 10 usdi& = INT(20 * RND) + 10 usdj& = INT(20 * RND) + 10 udie& = ud& + usda& + usdb& + usdc& + usdd& + usde& + usdf& + usdg& + usdh& + usdi& + usdj& 935 uada% = INT(5 * RND) + 2 uadb% = INT(5 * RND) + 2 uadc% = INT(5 * RND) + 2 uadd% = INT(5 * RND) + 2 uade% = INT(5 * RND) + 2 uadf% = INT(5 * RND) + 2 uadg% = INT(5 * RND) + 2 uadh% = INT(5 * RND) + 2 uadi% = INT(5 * RND) + 2 uadj% = INT(5 * RND) + 2 936 utda% = INT(5 * RND) + 2 utdb% = INT(5 * RND) + 2 utdc% = INT(5 * RND) + 2 utdd% = INT(5 * RND) + 2 utde% = INT(5 * RND) + 2 utdf% = INT(5 * RND) + 2 utdg% = INT(5 * RND) + 2 utdh% = INT(5 * RND) + 2 utdi% = INT(5 * RND) + 2 utdj% = INT(5 * RND) + 2 937 uvda% = INT(5 * RND) + 2 uvdb% = INT(5 * RND) + 2 uvdc% = INT(5 * RND) + 2 uvdd% = INT(5 * RND) + 2 uvde% = INT(5 * RND) + 2 uvdf% = INT(5 * RND) + 2 uvdg% = INT(5 * RND) + 2 uvdh% = INT(5 * RND) + 2 uvdi% = INT(5 * RND) + 2 uvdj% = INT(5 * RND) + 2 940 rsa& = 40000 rsb& = 40000 rsc& = 40000 rsd& = 40000 rse& = 40000 rsf& = 40000 rsg& = 40000 rsh& = 40000 rsi& = 40000 rsj& = 40000 941 raa& = 100 rab& = 100 rac& = 100 rad& = 100 rae& = 100 raf& = 100 rag& = 100 rah& = 100 rai& = 100 raj& = 100 942 rta& = 30 rtb& = 30 rtc& = 30 rtd& = 30 rte& = 30 rtf& = 30 rtg& = 30 rth& = 30 rti& = 30 rtj& = 30 943 rva& = 50 rvb& = 50 rvc& = 50 rvd& = 50 rve& = 50 rvf& = 50 rvg& = 50 rvh& = 50 rvi& = 50 rvj& = 50 944 rsda& = INT(30 * RND) + 20 rsdb& = INT(30 * RND) + 20 rsdc& = INT(30 * RND) + 20 rsdd& = INT(30 * RND) + 20 rsde& = INT(30 * RND) + 20 rsdf& = INT(30 * RND) + 20 rsdg& = INT(30 * RND) + 20 rsdh& = INT(30 * RND) + 20 rsdi& = INT(30 * RND) + 20 rsdj& = INT(30 * RND) + 20 rdie& = rd& + rsda& + rsdb& + rsdc& + rsdd& + rsde& + rsdf& + rsdg& + rsdh& + rsdi& + rsdj& 945 rada% = INT(7 * RND) + 5 radb% = INT(7 * RND) + 5 radc% = INT(7 * RND) + 5 radd% = INT(7 * RND) + 5 rade% = INT(7 * RND) + 5 radf% = INT(7 * RND) + 5 radg% = INT(7 * RND) + 5 radh% = INT(7 * RND) + 5 radi% = INT(7 * RND) + 5 radj% = INT(7 * RND) + 5 946 rtda% = INT(7 * RND) + 5 rtdb% = INT(7 * RND) + 5 rtdc% = INT(7 * RND) + 5 rtdd% = INT(7 * RND) + 5 rtde% = INT(7 * RND) + 5 rtdf% = INT(7 * RND) + 5 rtdg% = INT(7 * RND) + 5 rtdh% = INT(7 * RND) + 5 rtdi% = INT(7 * RND) + 5 rtdj% = INT(7 * RND) + 5 947 rvda% = INT(7 * RND) + 5 rvdb% = INT(7 * RND) + 5 rvdc% = INT(7 * RND) + 5 rvde% = INT(7 * RND) + 5 rvdf% = INT(7 * RND) + 5 rvdg% = INT(7 * RND) + 5 rvdh% = INT(7 * RND) + 5 rvdi% = INT(7 * RND) + 5 rvdj% = INT(7 * RND) + 5 970 usa& = usa& - usda& usb& = usb& - usdb& usc& = usc& - usdc& usd& = usd& - usdd& use& = use& - usde& usf& = usf& - usdf& usg& = usg& - usdg& ush& = ush& - usdh& usi& = usi& - usdi& usj& = usj& - usdj& 971 uaa% = uaa% - uada% uab% = uab% - uadb% uac% = uac% - uadc% uad% = uad% - uadd% uae% = uae% - uade% uaf% = uaf% - uadf% uag% = uag% - uadg% uah% = uah% - uadh% uai% = uai% - uadi% uaj% = uaj% - uadj% 972 uta% = uta% - utda% utb% = utb% - utdb% utc% = utc% - utdc% utd% = utd% - utdd% ute% = ute% - utde% utf% = utf% - utdf% utg% = utg% - utdg% uth% = uth% - utdh% uti% = uti% - utdi% utj% = utj% - utdj% 973 uva% = uva% - uvda% uvb% = uvb% - uvdb% uvc% = uvc% - uvdc% uvd% = uvd% - uvdd% uve% = uve% - uvde% uvf% = uvf% - uvdf% uvg% = uvg% - uvdg% uvh% = uvh% - uvdh% uvi% = uvi% - uvdi% uvj% = uvj% - uvdj% 980 rsa& = rsa& - rsda& rsb& = rsb& - rsdb& rsc& = rsc& - rsdc& rsd& = rsd& - rsdd& rse& = rse& - rsde& rsf& = rsf& - rsdf& rsg& = rsg& - rsdg& rsh& = rsh& - rsdh& rsi& = rsi& - rsdi& rsj& = rsj& - rsdj& 981 raa& = raa& - rada% rab& = rab& - radb% rac& = rac& - radc% rad& = rad& - radd% rae& = rae& - rade% raf& = raf& - radf% rag& = rag& - radg% rah& = rah& - radh% rai& = rai& - radi% raj& = raj& - radj% 982 rta& = rta& - rtda% rtb& = rtb& - rtdb% rtc& = rtc& - rtdc% rtd& = rtd& - rtdd% rte& = rte& - rtde% rtf& = rtf& - rtdf% rtg& = rtg& - rtdg% rth& = rth& - rtdh% rti& = rti& - rtdi% rtj& = rtj& - rtdj% 983 rva& = rva& - rvda% rvb& = rvb& - rvdb% rvc& = rvc& - rvdc% rvd& = rvd& - rvdd% rve& = rve& - rvde% rvf& = rvf& - rvdf% rvg& = rvg& - rvdg% rvh& = rvh& - rvdh% rvi& = rvi& - rvdi% rvj& = rvj& - rvdj% 1000 CLS 1001 PRINT " .........." 1002 PRINT " ..............." 1004 PRINT " ................." 1006 PRINT "..........................." 1008 PRINT "............................." 1010 PRINT "....................................." 1012 PRINT ".............#.............................." 1014 PRINT ".................#................................" 1016 PRINT ".....................#................................" 1018 PRINT ".........................#..............................." 1020 PRINT "......BEHIND............................................." 1022 PRINT ".........................#..............................." 1024 PRINT ".......THIS............................................." 1026 PRINT "........................#..............................." 1028 PRINT ".......LINE.............................................." 1030 PRINT ".........................#..............................." 1032 PRINT ".......GAME............................................." 1034 PRINT "........................#..............................." 1036 PRINT "........IS.............................................." 1038 PRINT ".......................#................................" 1040 PRINT ".......OVER............................................." 1042 PRINT "...................#..............................." 1044 PRINT "................................................" 1052 LOCATE 7, (31 + sa%) PRINT CHR$(2) LOCATE 7, 48 PRINT "*" 1054 LOCATE 8, (35 + sb%) PRINT CHR$(2) LOCATE 8, 52 PRINT "*" 1056 LOCATE 9, (39 + sc%) PRINT CHR$(2) LOCATE 9, 56 PRINT "*" 1058 LOCATE 10, (43 + sd%) PRINT CHR$(2) LOCATE 10, 60 PRINT "*" 1060 LOCATE 12, (43 + se%) PRINT CHR$(2) LOCATE 12, 60 PRINT "*" 1062 LOCATE 14, (42 + sf%) PRINT CHR$(2) LOCATE 14, 59 PRINT "*" 1064 LOCATE 16, (43 + sg%) PRINT CHR$(2) LOCATE 16, 60 PRINT "*" 1066 LOCATE 18, (42 + sh%) PRINT CHR$(2) LOCATE 18, 59 PRINT "*" 1068 LOCATE 20, (41 + si%) PRINT CHR$(2) LOCATE 20, 58 PRINT "*" 1070 LOCATE 22, (37 + sj%) PRINT CHR$(2) LOCATE 22, 54 PRINT "*" 1100 LOCATE 3, 60 PRINT "Ukraine Map" 1102 LOCATE 5, 60 PRINT "Advance/Retreat" 1104 LOCATE 7, 64 PRINT "Sector A: "; sa% 1106 LOCATE 8, 64 PRINT "Sector B: "; sb% 1108 LOCATE 9, 64 PRINT "Sector C: "; sc% 1110 LOCATE 10, 64 PRINT "Sector D: "; sd% 1112 LOCATE 11, 64 PRINT "Sector E: "; se% 1114 LOCATE 12, 64 PRINT "Sector F: "; sf% 1116 LOCATE 13, 64 PRINT "Sector G: "; sg% 1118 LOCATE 14, 64 PRINT "Sector H: "; sh% 1120 LOCATE 15, 64 PRINT "Sector I: "; si% 1122 LOCATE 16, 64 PRINT "Sector J: "; sj% 1130 LOCATE 22, 64 PRINT "Press Esc" 1132 LOCATE 23, 64 PRINT "to exit..." DO LOOP UNTIL INKEY$ = CHR$(27) 1200 CLS 1202 PRINT CHR$(32) 1212 PRINT " Year: "; ann%; " Week: "; vk%; " Occupied Area: "; occ& 1214 PRINT CHR$(32) 1216 PRINT " Soldiers in the Battlefield-" PRINT " Ukraine: "; (usa& + usb& + usc& + usd& + use& + usf& + usg& + ush& + usi& + usj&) PRINT " Russia: "; (rsa& + rsb& + rsc& + rsd& + rse& + rsf& + rsg& + rsh& + rsi& + rsj&) 1218 PRINT CHR$(32) 1220 PRINT " Soldiers Passed Away Since Beginning of the War-" PRINT " Ukraine: "; udie& PRINT " Russia: "; rdie& 1222 PRINT CHR$(32) 1224 PRINT " Zelenski Popularity: "; zp%; " Putin Popularity: "; pp%; " Boredom Level: "; bl% 1226 PRINT CHR$(32) 1228 PRINT " Ukraine Morale: "; umo%; " Russia Morale: "; rmo% 1230 PRINT CHR$(32) 1232 PRINT " Risk for Nuclear Holocaust: "; nuk%; " Score: "; (20 * (50000 - occ&)) + (rdie& - 100000) - (udie& - 50000) + (r% * 200) 1240 PRINT " -------------------------------------------------------------------------" PRINT " You can add this week for Ukraine-" PRINT CHR$(32) PRINT " Men: "; unm%; " Artillery: "; una%; " Tanks: "; unt%; " Vehicles: "; unv%; " Drones: "; undr% PRINT " -------------------------------------------------------------------------" PRINT " 'A' to 'J' (Sector) 'M' (Map) 'O' (Operation Room)." PRINT CHR$(32) INPUT " Make your choice: "; a$ IF a$ = "a" THEN GOTO 3000 END IF IF a$ = "b" THEN GOTO 4000 END IF IF a$ = "c" THEN GOTO 5000 END IF IF a$ = "d" THEN GOTO 6000 END IF IF a$ = "e" THEN GOTO 7000 END IF IF a$ = "f" THEN GOTO 8000 END IF IF a$ = "g" THEN GOTO 9000 END IF IF a$ = "h" THEN GOTO 10000 END IF IF a$ = "i" THEN GOTO 11000 END IF IF a$ = "j" THEN GOTO 12000 END IF IF a$ = "m" THEN GOTO 1000 END IF IF a$ = "o" THEN GOTO 50001 ELSE PRINT "Out of range." SLEEP 1 GOTO 1200 END IF 3000 CLS PRINT CHR$(32) PRINT " =======================================" PRINT " = =" PRINT " = SECTOR A - OVERVIEW =" PRINT " = =" PRINT " =======================================" PRINT CHR$(32) PRINT " Men: "; usa& PRINT " Artillery: "; uaa% PRINT " Tanks: "; uta% PRINT " Vehicles: "; uva% PRINT CHR$(32) 3005 PRINT " New men left for disposition: "; unm% PRINT " New artillery left for disposition: "; una% PRINT " New tanks left for disposition: "; unt% PRINT " New Vehicles left for disposition: "; unv% PRINT CHR$(32) 3010 INPUT " Do you want to place new men or arms to Sector A (y/n) "; a$ 3012 IF a$ = "y" THEN GOTO 3090 END IF IF a$ = "n" THEN GOTO 1200 ELSE PRINT " Out of range." SLEEP 1 GOTO 3000 END IF 3090 IF unm% < 1 THEN PRINT " No men left." SLEEP 1 GOTO 3190 ELSE GOTO 3100 END IF 3100 INPUT " How many men added "; t% 3101 IF t% < unm% AND t% > -1 THEN usa& = usa& + t% unm% = unm% - t% GOTO 3190 ELSE PRINT " Impossible." SLEEP 1 GOTO 3100 END IF 3190 IF una% < 1 THEN PRINT " No artillery left." SLEEP 1 GOTO 3290 ELSE GOTO 3200 END IF 3200 INPUT " How many units of artillery added "; t% 3201 IF t% < una% AND t% > -1 THEN uaa% = uaa% + t% una% = una% - t% GOTO 3280 ELSE PRINT " Impossible." SLEEP 1 GOTO 3200 END IF 3280 IF uaa% > 1600 THEN uaa% = 1600 END IF 3290 IF unt% < 1 THEN PRINT " No tanks left." SLEEP 1 GOTO 3390 ELSE GOTO 3300 END IF 3300 INPUT " How many tanks added "; t% 3301 IF t% < unt% AND t% > -1 THEN uta% = uta% + t% unt% = unt% - t% GOTO 3380 ELSE PRINT " Impossible." SLEEP 1 GOTO 3300 END IF 3380 IF uta% > 1200 THEN uta% = 1200 END IF 3390 IF unv% < 1 THEN PRINT " No vehicles left." SLEEP 1 GOTO 1200 ELSE GOTO 3400 END IF 3400 INPUT " How many armored vehicles added "; t% 3401 IF t% < unv% AND t% > -1 THEN uva% = uva% + t% unv% = unv% - t% GOTO 3480 ELSE PRINT " Impossible." SLEEP 1 GOTO 3400 END IF 3480 IF uva% > 4000 THEN uva% = 4000 END IF 3481 GOTO 1200 4000 CLS PRINT CHR$(32) PRINT " =======================================" PRINT " = =" PRINT " = SECTOR B - OVERVIEW =" PRINT " = =" PRINT " =======================================" PRINT CHR$(32) PRINT " Men: "; usb& PRINT " Artillery: "; uab% PRINT " Tanks: "; utb% PRINT " Vehicles: "; uvb% PRINT CHR$(32) 4005 PRINT " New men left for disposition: "; unm% PRINT " New artillery left for disposition: "; una% PRINT " New tanks left for disposition: "; unt% PRINT " New Vehicles left for disposition: "; unv% PRINT CHR$(32) 4010 INPUT " Do you want to place new men or arms to Sector B (y/n) "; a$ 4012 IF a$ = "y" THEN GOTO 4090 END IF IF a$ = "n" THEN GOTO 1200 ELSE PRINT " Out of range." SLEEP 1 GOTO 4000 END IF 4090 IF unm% < 1 THEN PRINT " No men left." SLEEP 1 GOTO 4190 ELSE GOTO 4100 END IF 4100 INPUT " How many men added? "; t% 4101 IF t% < unm% AND t% > -1 THEN usb& = usb& + t% unm% = unm% - t% GOTO 4190 ELSE PRINT " Impossible." SLEEP 1 GOTO 4100 END IF 4190 IF una% < 1 THEN PRINT " No artillery left." SLEEP 1 GOTO 4290 ELSE GOTO 4200 END IF 4200 INPUT " How many units of artillery added "; t% 4201 IF t% < una% AND t% > -1 THEN uab% = uab% + t% una% = una% - t% GOTO 4280 ELSE PRINT " Impossible." SLEEP 1 GOTO 4200 END IF 4280 IF uab% > 1600 THEN uab% = 1600 END IF 4290 IF unt% < 1 THEN PRINT " No tanks left." SLEEP 1 GOTO 4390 ELSE GOTO 4300 END IF 4300 INPUT " How many tanks added "; t% 4301 IF t% < unt% AND t% > -1 THEN utb% = utb% + t% unt% = unt% - t% GOTO 4380 ELSE PRINT " Impossible." SLEEP 1 GOTO 4300 END IF 4380 IF utb% > 1200 THEN utb% = 1200 END IF 4390 IF unv% < 1 THEN PRINT " No vehicles left." SLEEP 1 GOTO 1200 ELSE GOTO 4400 END IF 4400 INPUT " How many armored vehicles added "; t% 4401 IF t% < unv% AND t% > -1 THEN uvb% = uvb% + t% unv% = unv% - t% GOTO 4480 ELSE PRINT " Impossible." SLEEP 1 GOTO 4400 END IF 4480 IF uvb% > 4000 THEN uvb% = 4000 END IF 4481 GOTO 1200 5000 CLS PRINT CHR$(32) PRINT " =======================================" PRINT " = =" PRINT " = SECTOR C - OVERVIEW =" PRINT " = =" PRINT " =======================================" PRINT CHR$(32) PRINT " Men: "; usc& PRINT " Artillery: "; uac% PRINT " Tanks: "; utc% PRINT " Vehicles: "; uvc% PRINT CHR$(32) 5005 PRINT " New men left for disposition: "; unm% PRINT " New artillery left for disposition: "; una% PRINT " New tanks left for disposition: "; unt% PRINT " New Vehicles left for disposition: "; unv% PRINT CHR$(32) 5010 INPUT " Do you want to place new men or arms to Sector C (y/n) "; a$ 5012 IF a$ = "y" THEN GOTO 5090 END IF IF a$ = "n" THEN GOTO 1200 ELSE PRINT " Out of range." SLEEP 1 GOTO 5000 END IF 5090 IF unm% < 1 THEN PRINT " No men left." SLEEP 1 GOTO 5190 ELSE GOTO 5100 END IF 5100 INPUT " How many men added "; t% 5101 IF t% < unm% AND t% > -1 THEN usc& = usc& + t% unm% = unm% - t% GOTO 5190 ELSE PRINT " Impossible." SLEEP 1 GOTO 5100 END IF 5190 IF una% < 1 THEN PRINT " No artillery left." SLEEP 1 GOTO 5290 ELSE GOTO 5200 END IF 5200 INPUT " How many units of artillery added "; t% 5201 IF t% < una% AND t% > -1 THEN uac% = uac% + t% una% = una% - t% GOTO 5280 ELSE PRINT " Impossible." SLEEP 1 GOTO 5200 END IF 5280 IF uac% > 1600 THEN uac% = 1600 END IF 5290 IF unt% < 1 THEN PRINT " No tanks left." SLEEP 1 GOTO 5390 ELSE GOTO 5300 END IF 5300 INPUT " How many tanks added "; t% 5301 IF t% < unt% AND t% > -1 THEN utc% = utc% + t% unt% = unt% - t% GOTO 5380 ELSE PRINT " Impossible." SLEEP 1 GOTO 5300 END IF 5380 IF utc% > 1200 THEN utc% = 1200 END IF 5390 IF unv% < 1 THEN PRINT " No vehicles left." SLEEP 1 GOTO 1200 ELSE GOTO 5400 END IF 5400 INPUT " How many armored vehicles added "; t% 5401 IF t% < unv% AND t% > -1 THEN uvc% = uvc% + t% unv% = unv% - t% GOTO 5480 ELSE PRINT " Impossible." SLEEP 1 GOTO 5400 END IF 5480 IF uvc% > 4000 THEN uvc% = 4000 END IF 5481 GOTO 1200 6000 CLS PRINT CHR$(32) PRINT " =======================================" PRINT " = =" PRINT " = SECTOR D - OVERVIEW =" PRINT " = =" PRINT " =======================================" PRINT CHR$(32) PRINT " Men: "; usd& PRINT " Artillery: "; uad% PRINT " Tanks: "; utd% PRINT " Vehicles: "; uvd% PRINT CHR$(32) 6005 PRINT " New men left for disposition: "; unm% PRINT " New artillery left for disposition: "; una% PRINT " New tanks left for disposition: "; unt% PRINT " New Vehicles left for disposition: "; unv% PRINT CHR$(32) 6010 INPUT " Do you want to place new men or arms to Sector D (y/n) "; a$ 6012 IF a$ = "y" THEN GOTO 6090 END IF IF a$ = "n" THEN GOTO 1200 ELSE PRINT " Out of range." SLEEP 1 GOTO 6000 END IF 6090 IF unm% < 1 THEN PRINT " No men left." SLEEP 1 GOTO 6190 ELSE GOTO 6100 END IF 6100 INPUT " How many men added "; t% 6101 IF t% < unm% AND t% > -1 THEN usd& = usd& + t% unm% = unm% - t% GOTO 6190 ELSE PRINT " Impossible." SLEEP 1 GOTO 6100 END IF 6190 IF una% < 1 THEN PRINT " No artillery left." SLEEP 1 GOTO 6290 ELSE GOTO 6200 END IF 6200 INPUT " How many units of artillery added "; t% 6201 IF t% < una% AND t% > -1 THEN uad% = uad% + t% una% = una% - t% GOTO 6280 ELSE PRINT " Impossible." SLEEP 1 GOTO 6200 END IF 6280 IF uad% > 1600 THEN uad% = 1600 END IF 6290 IF unt% < 1 THEN PRINT " No tanks left." SLEEP 1 GOTO 6390 ELSE GOTO 6300 END IF 6300 INPUT " How many tanks added "; t% 6301 IF t% < unt% AND t% > -1 THEN utd% = utd% + t% unt% = unt% - t% GOTO 6380 ELSE PRINT " Impossible." SLEEP 1 GOTO 6300 END IF 6380 IF utd% > 1200 THEN utd% = 1200 END IF 6390 IF unv% < 1 THEN PRINT " No vehicles left." SLEEP 1 GOTO 1200 ELSE GOTO 6400 END IF 6400 INPUT " How many armored vehicles added "; t% 6401 IF t% < unv% AND t% > -1 THEN uvd% = uvd% + t% unv% = unv% - t% GOTO 6480 ELSE PRINT " Impossible." SLEEP 1 GOTO 6400 END IF 6480 IF uvd% > 4000 THEN uvd% = 4000 END IF 6481 GOTO 1200 7000 CLS PRINT CHR$(32) PRINT " =======================================" PRINT " = =" PRINT " = SECTOR E - OVERVIEW =" PRINT " = =" PRINT " =======================================" PRINT CHR$(32) PRINT " Men: "; use& PRINT " Artillery: "; uae% PRINT " Tanks: "; ute% PRINT " Vehicles: "; uve% PRINT CHR$(32) 7005 PRINT " New men left for disposition: "; unm% PRINT " New artillery left for disposition: "; una% PRINT " New tanks left for disposition: "; unt% PRINT " New Vehicles left for disposition: "; unv% PRINT CHR$(32) 7010 INPUT " Do you want to place new men or arms to Sector E (y/n) "; a$ 7012 IF a$ = "y" THEN GOTO 7090 END IF IF a$ = "n" THEN GOTO 1200 ELSE PRINT " Out of range." SLEEP 1 GOTO 7000 END IF 7090 IF unm% < 1 THEN PRINT " No men left." SLEEP 1 GOTO 7190 ELSE GOTO 7100 END IF 7100 INPUT " How many men added "; t% 7101 IF t% < unm% AND t% > -1 THEN use& = use& + t% unm% = unm% - t% GOTO 7190 ELSE PRINT " Impossible." SLEEP 1 GOTO 7100 END IF 7190 IF una% < 1 THEN PRINT " No artillery left." SLEEP 1 GOTO 7290 ELSE GOTO 7200 END IF 7200 INPUT " How many units of artillery added "; t% 7201 IF t% < una% AND t% > -1 THEN uae% = uae% + t% una% = una% - t% GOTO 7280 ELSE PRINT " Impossible." SLEEP 1 GOTO 7200 END IF 7280 IF uae% > 1600 THEN uae% = 1600 END IF 7290 IF unt% < 1 THEN PRINT " No tanks left." SLEEP 1 GOTO 7390 ELSE GOTO 7300 END IF 7300 INPUT " How many tanks added "; t% 7301 IF t% < unt% AND t% > -1 THEN ute% = ute% + t% unt% = unt% - t% GOTO 7380 ELSE PRINT " Impossible." SLEEP 1 GOTO 7300 END IF 7380 IF ute% > 1200 THEN ute% = 1200 END IF 7390 IF unv% < 1 THEN PRINT " No vehicles left." SLEEP 1 GOTO 1200 ELSE GOTO 7400 END IF 7400 INPUT " How many armored vehicles added "; t% 7401 IF t% < unv% AND t% > -1 THEN uve% = uve% + t% unv% = unv% - t% GOTO 7480 ELSE PRINT " Impossible." SLEEP 1 GOTO 7400 END IF 7480 IF uve% > 4000 THEN uve% = 4000 END IF 7481 GOTO 1200 8000 CLS PRINT CHR$(32) PRINT " =======================================" PRINT " = =" PRINT " = SECTOR F - OVERVIEW =" PRINT " = =" PRINT " =======================================" PRINT CHR$(32) PRINT " Men: "; usf& PRINT " Artillery: "; uaf% PRINT " Tanks: "; utf% PRINT " Vehicles: "; uvf% PRINT CHR$(32) 8005 PRINT " New men left for disposition: "; unm% PRINT " New artillery left for disposition: "; una% PRINT " New tanks left for disposition: "; unt% PRINT " New Vehicles left for disposition: "; unv% PRINT CHR$(32) 8010 INPUT " Do you want to place new men or arms to Sector F (y/n) "; a$ 8012 IF a$ = "y" THEN GOTO 8090 END IF IF a$ = "n" THEN GOTO 1200 ELSE PRINT " Out of range." SLEEP 1 GOTO 8000 END IF 8090 IF unm% < 1 THEN PRINT " No men left." SLEEP 1 GOTO 8190 ELSE GOTO 8100 END IF 8100 INPUT " How many men added "; t% 8101 IF t% < unm% AND t% > -1 THEN usf& = usf& + t% unm% = unm% - t% GOTO 8190 ELSE PRINT " Impossible." SLEEP 1 GOTO 8100 END IF 8190 IF una% < 1 THEN PRINT " No artillery left." SLEEP 1 GOTO 8290 ELSE GOTO 8200 END IF 8200 INPUT " How many units of artillery added "; t% 8201 IF t% < una% AND t% > -1 THEN uaf% = uaf% + t% una% = una% - t% GOTO 8280 ELSE PRINT " Impossible." SLEEP 1 GOTO 8200 END IF 8280 IF uaf% > 1600 THEN uaf% = 1600 END IF 8290 IF unt% < 1 THEN PRINT " No tanks left." SLEEP 1 GOTO 8390 ELSE GOTO 8300 END IF 8300 INPUT " How many tanks added "; t% 8301 IF t% < unt% AND t% > -1 THEN utf% = utf% + t% unt% = unt% - t% GOTO 8380 ELSE PRINT " Impossible." SLEEP 1 GOTO 8300 END IF 8380 IF utf% > 1200 THEN utf% = 1200 END IF 8390 IF unv% < 1 THEN PRINT " No vehicles left." SLEEP 1 GOTO 1200 ELSE GOTO 8400 END IF 8400 INPUT " How many armored vehicles added "; t% 8401 IF t% < unv% AND t% > -1 THEN uvf% = uvf% + t% unv% = unv% - t% GOTO 8480 ELSE PRINT " Impossible." SLEEP 1 GOTO 8400 END IF 8480 IF uvf% > 4000 THEN uvf% = 4000 END IF 8481 GOTO 1200 9000 CLS PRINT CHR$(32) PRINT " =======================================" PRINT " = =" PRINT " = SECTOR G - OVERVIEW =" PRINT " = =" PRINT " =======================================" PRINT CHR$(32) PRINT " Men: "; usg& PRINT " Artillery: "; uag% PRINT " Tanks: "; utg% PRINT " Vehicles: "; uvg% PRINT CHR$(32) 9005 PRINT " New men left for disposition: "; unm% PRINT " New artillery left for disposition: "; una% PRINT " New tanks left for disposition: "; unt% PRINT " New Vehicles left for disposition: "; unv% PRINT CHR$(32) 9010 INPUT " Do you want to place new men or arms to Sector G (y/n) "; a$ 9012 IF a$ = "y" THEN GOTO 9090 END IF IF a$ = "n" THEN GOTO 1200 ELSE PRINT " Out of range." SLEEP 1 GOTO 9000 END IF 9090 IF unm% < 1 THEN PRINT " No men left." SLEEP 1 GOTO 9190 ELSE GOTO 9100 END IF 9100 INPUT " How many men added "; t% 9101 IF t% < unm% AND t% > -1 THEN usg& = usg& + t% unm% = unm% - t% GOTO 9190 ELSE PRINT " Impossible." SLEEP 1 GOTO 9100 END IF 9190 IF una% < 1 THEN PRINT " No artillery left." SLEEP 1 GOTO 9290 ELSE GOTO 9200 END IF 9200 INPUT " How many units of artillery added "; t% 9201 IF t% < una% AND t% > -1 THEN uag% = uag% + t% una% = una% - t% GOTO 9280 ELSE PRINT " Impossible." SLEEP 1 GOTO 9200 END IF 9280 IF uag% > 1600 THEN uag% = 1600 END IF 9290 IF unt% < 1 THEN PRINT " No tanks left." SLEEP 1 GOTO 9390 ELSE GOTO 9300 END IF 9300 INPUT " How many tanks added "; t% 9301 IF t% < unt% AND t% > -1 THEN utg% = utg% + t% unt% = unt% - t% GOTO 9380 ELSE PRINT " Impossible." SLEEP 1 GOTO 9300 END IF 9380 IF utg% > 1200 THEN utg% = 1200 END IF 9390 IF unv% < 1 THEN PRINT " No vehicles left." SLEEP 1 GOTO 1200 ELSE GOTO 9400 END IF 9400 INPUT " How many armored vehicles added "; t% 9401 IF t% < unv% AND t% > -1 THEN uvg% = uvg% + t% unv% = unv% - t% GOTO 9480 ELSE PRINT " Impossible." SLEEP 1 GOTO 9400 END IF 9480 IF uvg% > 4000 THEN uvg% = 4000 END IF 9481 GOTO 1200 10000 CLS PRINT CHR$(32) PRINT " =======================================" PRINT " = =" PRINT " = SECTOR H - OVERVIEW =" PRINT " = =" PRINT " =======================================" PRINT CHR$(32) PRINT " Men: "; ush& PRINT " Artillery: "; uah% PRINT " Tanks: "; uth% PRINT " Vehicles: "; uvh% PRINT CHR$(32) 10005 PRINT " New men left for disposition: "; unm% PRINT " New artillery left for disposition: "; una% PRINT " New tanks left for disposition: "; unt% PRINT " New Vehicles left for disposition: "; unv% PRINT CHR$(32) 10010 INPUT " Do you want to place new men or arms to Sector H (y/n) "; a$ 10020 IF a$ = "y" THEN GOTO 10090 END IF IF a$ = "n" THEN GOTO 1200 ELSE PRINT " Out of range." SLEEP 1 GOTO 10000 END IF 10090 IF unm% < 1 THEN PRINT " No men left." SLEEP 1 GOTO 10190 ELSE GOTO 10100 END IF 10100 INPUT " How many men added "; t% 10101 IF t% < unm% AND t% > -1 THEN ush& = ush& + t% unm% = unm% - t% GOTO 10190 ELSE PRINT " Impossible." SLEEP 1 GOTO 10100 END IF 10190 IF una% < 1 THEN PRINT " No artillery left." SLEEP 1 GOTO 10290 ELSE GOTO 10200 END IF 10200 INPUT " How many units of artillery added "; t% 10201 IF t% < una% AND t% > -1 THEN uah% = uah% + t% una% = una% - t% GOTO 10280 ELSE PRINT " Impossible." SLEEP 1 GOTO 10200 END IF 10280 IF uah% > 1600 THEN uah% = 1600 END IF 10290 IF unt% < 1 THEN PRINT " No tanks left." SLEEP 1 GOTO 10390 ELSE GOTO 10300 END IF 10300 INPUT " How many tanks added "; t% 10301 IF t% < unt% AND t% > -1 THEN uth% = uth% + t% unt% = unt% - t% GOTO 10380 ELSE PRINT " Impossible." SLEEP 1 GOTO 10300 END IF 10390 IF unv% < 1 THEN PRINT " No vehicles left." SLEEP 1 GOTO 1200 ELSE GOTO 10400 END IF 10380 IF uth% > 1200 THEN uth% = 1200 END IF 10400 INPUT " How many armored vehicles added "; t% 10401 IF t% < unv% AND t% > -1 THEN uvh% = uvh% + t% unv% = unv% - t% GOTO 10480 ELSE PRINT " Impossible." SLEEP 1 GOTO 10400 END IF 10480 IF uvh% > 4000 THEN uvh% = 4000 END IF 10481 GOTO 1200 11000 CLS PRINT CHR$(32) PRINT " =======================================" PRINT " = =" PRINT " = SECTOR I - OVERVIEW =" PRINT " = =" PRINT " =======================================" PRINT CHR$(32) PRINT " Men: "; usi& PRINT " Artillery: "; uai% PRINT " Tanks: "; uti% PRINT " Vehicles: "; uvi% PRINT CHR$(32) 11005 PRINT " New men left for disposition: "; unm% PRINT " New artillery left for disposition: "; una% PRINT " New tanks left for disposition: "; unt% PRINT " New Vehicles left for disposition: "; unv% PRINT CHR$(32) 11010 INPUT " Do you want to place new men or arms to Sector I (y/n) "; a$ 11012 IF a$ = "y" THEN GOTO 11090 END IF IF a$ = "n" THEN GOTO 1200 ELSE PRINT " Out of range." SLEEP 1 GOTO 11000 END IF 11090 IF unm% < 1 THEN PRINT " No men left." SLEEP 1 GOTO 11190 ELSE GOTO 11100 END IF 11100 INPUT " How many men added "; t% 11101 IF t% < unm% AND t% > -1 THEN usi& = usi& + t% unm% = unm% - t% GOTO 11190 ELSE PRINT " Impossible." SLEEP 1 GOTO 11100 END IF 11190 IF una% < 1 THEN PRINT " No artillery left." SLEEP 1 GOTO 11290 ELSE GOTO 11200 END IF 11200 INPUT " How many units of artillery added "; t% 11201 IF t% < una% AND t% > -1 THEN uai% = uai% + t% una% = una% - t% GOTO 11280 ELSE PRINT " Impossible." SLEEP 1 GOTO 11200 END IF 11280 IF uai% > 1600 THEN uai% = 1600 END IF 11290 IF unt% < 1 THEN PRINT " No tanks left." SLEEP 1 GOTO 11390 ELSE GOTO 11300 END IF 11300 INPUT " How many tanks added "; t% 11301 IF t% < unt% AND t% > -1 THEN uti% = uti% + t% unt% = unt% - t% GOTO 11380 ELSE PRINT " Impossible." SLEEP 1 GOTO 11300 END IF 11380 IF uti% > 1200 THEN uti% = 1200 END IF 11390 IF unv% < 1 THEN PRINT " No vehicles left." SLEEP 1 GOTO 1200 ELSE GOTO 11400 END IF 11400 INPUT " How many armored vehicles added "; t% 11401 IF t% < unv% AND t% > -1 THEN uvi% = uvi% + t% unv% = unv% - t% GOTO 11480 ELSE PRINT " Impossible." SLEEP 1 GOTO 11400 END IF 11480 IF uvi% > 4000 THEN uvi% = 4000 END IF 11481 GOTO 1200 12000 CLS PRINT CHR$(32) PRINT " =======================================" PRINT " = =" PRINT " = SECTOR J - OVERVIEW =" PRINT " = =" PRINT " =======================================" PRINT CHR$(32) PRINT " Men: "; usj& PRINT " Artillery: "; uaj% PRINT " Tanks: "; utj% PRINT " Vehicles: "; uvj% PRINT CHR$(32) 12005 PRINT " New men left for disposition: "; unm% PRINT " New artillery left for disposition: "; una% PRINT " New tanks left for disposition: "; unt% PRINT " New Vehicles left for disposition: "; unv% PRINT CHR$(32) 12010 INPUT " Do you want to place new men or arms to Sector J (y/n) "; a$ 12012 IF a$ = "y" THEN GOTO 12090 END IF IF a$ = "n" THEN GOTO 1200 ELSE PRINT " Out of range." SLEEP 1 GOTO 12000 END IF 12090 IF unm% < 1 THEN PRINT " No men left." SLEEP 1 GOTO 12190 ELSE GOTO 12100 END IF 12100 INPUT " How many men added "; t% 12101 IF t% < unm% AND t% > -1 THEN usj& = usj& + t% unm% = unm% - t% GOTO 12190 ELSE PRINT " Impossible." SLEEP 1 GOTO 12100 END IF 12190 IF una% < 1 THEN PRINT " No artillery left." SLEEP 1 GOTO 12290 ELSE GOTO 12200 END IF 12200 INPUT " How many units of artillery added "; t% 12201 IF t% < una% AND t% > -1 THEN uaj% = uaj% + t% una% = una% - t% GOTO 12280 ELSE PRINT " Impossible." SLEEP 1 GOTO 12200 END IF 12280 IF uaj% > 1600 THEN uaj% = 1600 END IF 12290 IF unt% < 1 THEN PRINT " No tanks left." SLEEP 1 GOTO 12390 ELSE GOTO 12300 END IF 12300 INPUT " How many tanks added "; t% 12301 IF t% < unt% AND t% > -1 THEN utj% = utj% + t% unt% = unt% - t% GOTO 12380 ELSE PRINT " Impossible." SLEEP 1 GOTO 12300 END IF 12380 IF utj% > 1200 THEN utj% = 1200 END IF 12390 IF unv% < 1 THEN PRINT " No vehicles left." SLEEP 1 GOTO 1200 ELSE GOTO 12400 END IF 12400 INPUT " How many armored vehicles added "; t% 12401 IF t% < unv% AND t% > -1 THEN uvj% = uvj% + t% unv% = unv% - t% GOTO 12480 ELSE PRINT " Impossible." SLEEP 1 GOTO 12400 END IF 12480 IF uvj% > 4000 THEN uvj% = 4000 END IF 12481 GOTO 1200 50000 SLEEP 1 50001 CLS PRINT CHR$(32) PRINT " ========================================" PRINT " = =" PRINT " = OPERATION - PLANNING =" PRINT " = =" PRINT " ========================================" PRINT CHR$(32) PRINT " Year: "; ann%; " Week: "; vk%; " Occupied Area: "; occ& PRINT CHR$(32) 50002 PRINT " Drones left: "; udr% PRINT CHR$(32) 50010 PRINT " '1' - Attack in the Field Sector A - J." PRINT " '2' - Attack with drones to Russian civilian targets." PRINT " '3' - Attack with drones to Russian military targets." PRINT " '4' - More forced recruits." PRINT " '5' - Move to the next week." PRINT " '6' - Main Directory." PRINT " '7' - Quit the game." 50022 PRINT CHR$(32) 50030 INPUT " Type '1' to '7' "; t% IF t% = 1 THEN GOTO 51000 END IF IF t% = 2 THEN GOTO 55000 END IF IF t% = 3 THEN GOTO 56000 END IF IF t% = 4 THEN GOTO 54000 END IF IF t% = 5 THEN no% = 1 GOTO 63000 END IF IF t% = 6 THEN GOTO 1200 END IF IF t% = 7 THEN GOTO 79000 ELSE PRINT " Out of range." GOTO 50000 END IF 51000 CLS PRINT CHR$(32) 51001 INPUT " Choose Sector 'A' to 'J' "; a$ IF a$ = "a" THEN GOTO 51100 END IF IF a$ = "b" THEN GOTO 51200 END IF IF a$ = "c" THEN GOTO 51300 END IF IF a$ = "d" THEN GOTO 51400 END IF IF a$ = "e" THEN GOTO 51500 END IF IF a$ = "f" THEN GOTO 51600 END IF IF a$ = "g" THEN GOTO 51700 END IF IF a$ = "h" THEN GOTO 51800 END IF IF a$ = "i" THEN GOTO 51900 END IF IF a$ = "j" THEN GOTO 52000 ELSE PRINT " Out of range." SLEEP 1 GOTO 51000 END IF 51100 IF usa& < 5000 THEN PRINT " You need 5000 men." GOTO 50000 END IF 51101 RANDOMIZE TIMER uxa& = (usa& / 100 * umo%) + (uaa% * 20) + (uta% * 27) + (uva% * 8) + (sa% * 500) rxa& = (rsa& / 100 * rmo%) + (raa& * 20) + (rta& * 27) + (rva& * 8) uya% = INT(2000 * RND) + 1 rya% = INT(4000 * RND) + 1 CLS SLEEP 1 51102 uza& = uxa& + uya% rza& = rxa& + rya% PRINT CHR$(32) PRINT " Ukraine power: "; uza& PRINT CHR$(32) PRINT " Russia power: "; rza& PRINT CHR$(32) PRINT " Ukraine power gain & loss: "; sa% * 500 51104 IF uza& > rza& THEN GOTO 51110 ELSE GOTO 51120 END IF 51110 PRINT CHR$(32) PRINT " Sector A - Ukraine wins!" occ& = occ& - 300 sa% = sa% + 1 umo% = umo% + 1 rmo% = rmo% - 1 zp% = zp% + 1 pp% = pp% - 1 GOTO 51130 51120 PRINT CHR$(32) PRINT " Sector A - Russia wins!" occ& = occ& + 600 sa% = sa% - 2 umo% = umo% - 1 rmo% = rmo% + 1 zp% = zp% - 1 pp% = pp% + 1 51130 usda& = INT(usa& * RND) + 1 uada% = INT(uaa% * RND) + 1 utda% = INT(uta% * RND) + 1 uvda% = INT(uva% * RND) + 1 51133 usa& = usa& - usda& IF usa& < 10 THEN usa& = 10 END IF 51134 PRINT CHR$(32) SLEEP 1 PRINT " Ukraine-" PRINT " Men lost: "; usda& PRINT " Men left: "; usa& 51135 uaa% = uaa% - uada% IF uaa% < 2 THEN uaa% = 2 END IF 51136 uta% = uta% - utda% IF uta% < 2 THEN uta% = 2 END IF 51138 uva% = uva% - uvda% IF uva% < 2 THEN uva% = 2 END IF 51140 rsda& = INT(rsa& * RND) + 1 rada% = INT(raa& * RND) + 1 rtda% = INT(rta& * RND) + 1 rvda% = INT(rva& * RND) + 1 51142 rsa& = rsa& - rsda& IF rsa& < 10 THEN rsa& = 10 END IF 51143 PRINT CHR$(32) PRINT " Russia-" PRINT " Men lost: "; rsda& PRINT " Men left: "; rsa& 51144 raa& = raa& - rada% IF raa& < 2 THEN raa& = 2 END IF 51146 rta& = rta& - rtda% IF rta& < 2 THEN rta& = 2 END IF 51148 rva& = rva& - rvda% IF rva& < 2 THEN rva& = 2 END IF 51149 rdie& = rdie& + rsda& udie& = udie& + usda& PRINT CHR$(32) PRINT CHR$(32) PRINT " Press SPACE." SLEEP 0 GOTO 53000 51200 IF usb& < 5000 THEN PRINT " You need 5000 men." GOTO 50000 END IF 51201 RANDOMIZE TIMER uxb& = (usb& / 100 * umo%) + (uab% * 20) + (utb% * 27) + (uvb% * 8) + (sb% * 500) rxb& = (rsb& / 100 * rmo%) + (rab& * 20) + (rtb& * 27) + (rvb& * 8) uyb% = INT(2000 * RND) + 1 ryb% = INT(4000 * RND) + 1 CLS SLEEP 1 51202 uzb& = uxb& + uyb% rzb& = rxb& + ryb% PRINT CHR$(32) PRINT " Ukraine power: "; uzb& PRINT CHR$(32) PRINT " Russia power: "; rzb& PRINT CHR$(32) PRINT " Ukraine power gain & loss: "; sb% * 500 51204 IF uzb& > rzb& THEN GOTO 51210 ELSE GOTO 51220 END IF 51210 PRINT CHR$(32) PRINT " Sector B - Ukraine wins!" occ& = occ& - 300 sb% = sb% + 1 umo% = umo% + 1 rmo% = rmo% - 1 zp% = zp% + 1 pp% = pp% - 1 GOTO 51230 51220 PRINT CHR$(32) PRINT " Sector B - Russia wins!" occ& = occ& + 600 sb% = sb% - 2 umo% = umo% - 1 rmo% = rmo% + 1 zp% = zp% - 1 pp% = pp% + 1 51230 usdb& = INT(usb& * RND) + 1 uadb% = INT(uab% * RND) + 1 utdb% = INT(utb% * RND) + 1 uvdb% = INT(uvb% * RND) + 1 51233 usb& = usb& - usdb& IF usb& < 10 THEN usb& = 10 END IF 51234 PRINT CHR$(32) SLEEP 1 PRINT " Ukraine-" PRINT " Men lost: "; usdb& PRINT " Men left: "; usb& 51235 uab% = uab% - uadb% IF uab% < 2 THEN uab% = 2 END IF 51236 utb% = utb% - utdb% IF utb% < 2 THEN utb% = 2 END IF 51238 uvb% = uvb% - uvdb% IF uvb% < 2 THEN uvb% = 2 END IF 51240 rsdb& = INT(rsb& * RND) + 1 radb% = INT(rab& * RND) + 1 rtdb% = INT(rtb& * RND) + 1 rvdb% = INT(rvb& * RND) + 1 51242 rsb& = rsb& - rsdb& IF rsb& < 10 THEN rsb& = 10 END IF 51243 PRINT CHR$(32) PRINT " Russia-" PRINT " Men lost: "; rsdb& PRINT " Men left: "; rsb& 51244 rab& = rab& - radb% IF rab& < 2 THEN rab& = 2 END IF 51246 rtb& = rtb& - rtdb% IF rtb& < 2 THEN rtb& = 2 END IF 51248 rvb& = rvb& - rvdb% IF rvb& < 2 THEN rvb& = 2 END IF 51249 rdie& = rdie& + rsdb& udie& = udie& + usdb& PRINT CHR$(32) PRINT CHR$(32) PRINT " Press SPACE." SLEEP 0 GOTO 53000 51300 IF usc& < 5000 THEN PRINT " You need 5000 men." GOTO 50000 END IF 51301 RANDOMIZE TIMER uxc& = (usc& / 100 * umo%) + (uac% * 20) + (utc% * 27) + (uvc% * 8) + (sc% * 500) rxc& = (rsc& / 100 * rmo%) + (rac& * 20) + (rtc& * 27) + (rvc& * 8) uyc% = INT(2000 * RND) + 1 ryc% = INT(4000 * RND) + 1 CLS SLEEP 1 51302 uzc& = uxc& + uyc% rzc& = rxc& + ryc% PRINT CHR$(32) PRINT " Ukraine power: "; uzc& PRINT CHR$(32) PRINT " Russia power: "; rzc& PRINT CHR$(32) PRINT " Ukraine power gain & loss: "; sc% * 500 51304 IF uzc& > rzc& THEN GOTO 51310 ELSE GOTO 51320 END IF 51310 PRINT CHR$(32) PRINT " Sector C - Ukraine wins!" occ& = occ& - 300 sc% = sc% + 1 umo% = umo% + 1 rmo% = rmo% - 1 zp% = zp% + 1 pp% = pp% - 1 GOTO 51330 51320 PRINT CHR$(32) PRINT " Sector C - Russia wins!" occ& = occ& + 600 sc% = sc% - 2 umo% = umo% - 1 rmo% = rmo% + 1 zp% = zp% - 1 pp% = pp% + 1 51330 usdc& = INT(usc& * RND) + 1 uadc% = INT(uac% * RND) + 1 utdc% = INT(utc% * RND) + 1 uvdc% = INT(uvc% * RND) + 1 51333 usc& = usc& - usdc& IF usc& < 10 THEN usc& = 10 END IF 51334 PRINT CHR$(32) SLEEP 1 PRINT " Ukraine-" PRINT " Men lost: "; usdc& PRINT " Men left: "; usc& 51335 uac% = uac% - uadc% IF uac% < 2 THEN uac% = 2 END IF 51336 utc% = utc% - utdc% IF utc% < 2 THEN utc% = 2 END IF 51338 uvc% = uvc% - uvdc% IF uvc% < 2 THEN uvc% = 2 END IF 51340 rsdc& = INT(rsc& * RND) + 1 radc% = INT(rac& * RND) + 1 rtdc% = INT(rtc& * RND) + 1 rvdc% = INT(rvc& * RND) + 1 51342 rsc& = rsc& - rsdc& IF rsc& < 10 THEN rsc& = 10 END IF 51343 PRINT CHR$(32) PRINT " Russia-" PRINT " Men lost: "; rsdc& PRINT " Men left: "; rsc& 51344 rac& = rac& - radc% IF rac& < 2 THEN rac& = 2 END IF 51346 rtc& = rtc& - rtdc% IF rtc& < 2 THEN rtc& = 2 END IF 51348 rvc& = rvc& - rvdc% IF rvc& < 2 THEN rvc& = 2 END IF 51349 rdie& = rdie& + rsdc& udie& = udie& + usdc& PRINT CHR$(32) PRINT CHR$(32) PRINT " Press SPACE." SLEEP 0 GOTO 53000 51400 IF usd& < 5000 THEN PRINT " You need 5000 men." GOTO 50000 END IF 51401 RANDOMIZE TIMER uxd& = (usd& / 100 * umo%) + (uad% * 20) + (utd% * 27) + (uvd% * 8) + (sd% * 500) rxd& = (rsd& / 100 * rmo%) + (rad& * 20) + (rtd& * 27) + (rvd& * 8) uyd% = INT(2000 * RND) + 1 ryd% = INT(4000 * RND) + 1 CLS SLEEP 1 51402 uzd& = uxd& + uyd% rzd& = rxd& + ryd% PRINT CHR$(32) PRINT " Ukraine power: "; uzd& PRINT CHR$(32) PRINT " Russia power: "; rzd& PRINT CHR$(32) PRINT " Ukraine power gain & loss: "; sd% * 500 51404 IF uzd& > rzd& THEN GOTO 51410 ELSE GOTO 51420 END IF 51410 PRINT CHR$(32) PRINT " Sector D - Ukraine wins!" occ& = occ& - 300 sd% = sd% + 1 umo% = umo% + 1 rmo% = rmo% - 1 zp% = zp% + 1 pp% = pp% - 1 GOTO 51430 51420 PRINT CHR$(32) PRINT " Sector D - Russia wins!" occ& = occ& + 600 sd% = sd% - 2 umo% = umo% - 1 rmo% = rmo% + 1 zp% = zp% - 1 pp% = pp% + 1 51430 usdd& = INT(usd& * RND) + 1 uadd% = INT(uad% * RND) + 1 utdd% = INT(utd% * RND) + 1 uvdd% = INT(uvd% * RND) + 1 51433 usd& = usd& - usdd& IF usd& < 10 THEN usd& = 10 END IF 51434 PRINT CHR$(32) SLEEP 1 PRINT " Ukraine-" PRINT " Men lost: "; usdd& PRINT " Men left: "; usd& 51435 uad% = uad% - uadd% IF uad% < 2 THEN uad% = 2 END IF 51436 utd% = utd% - utdd% IF utd% < 2 THEN utd% = 2 END IF 51438 uvd% = uvd% - uvdd% IF uvd% < 2 THEN uvd% = 2 END IF 51440 rsdd& = INT(rsd& * RND) + 1 radd% = INT(rad& * RND) + 1 rtdd% = INT(rtd& * RND) + 1 rvdd% = INT(rvd& * RND) + 1 51442 rsd& = rsd& - rsdd& IF rsd& < 10 THEN rsd& = 10 END IF 51443 PRINT CHR$(32) PRINT " Russia-" PRINT " Men lost: "; rsdd& PRINT " Men left: "; rsd& 51444 rad& = rad& - radd% IF rad& < 2 THEN rad& = 2 END IF 51446 rtd& = rtd& - rtdd% IF rtd& < 2 THEN rtd& = 2 END IF 51448 rvd& = rvd& - rvdd% IF rvd& < 2 THEN rvd& = 2 END IF 51449 rdie& = rdie& + rsdd& udie& = udie& + usdd& PRINT CHR$(32) PRINT CHR$(32) PRINT " Press SPACE." SLEEP 0 GOTO 53000 51500 IF use& < 5000 THEN PRINT " You need 5000 men." GOTO 50000 END IF 51501 RANDOMIZE TIMER uxe& = (use& / 100 * umo%) + (uae% * 20) + (ute% * 27) + (uve% * 8) + (se% * 500) rxe& = (rse& / 100 * rmo%) + (rae& * 20) + (rte& * 27) + (rve& * 8) uye% = INT(2000 * RND) + 1 rye% = INT(4000 * RND) + 1 CLS SLEEP 1 51502 uze& = uxe& + uye% rze& = rxe& + rye% PRINT CHR$(32) PRINT " Ukraine power: "; uze& PRINT CHR$(32) PRINT " Russia power: "; rze& PRINT CHR$(32) PRINT " Ukraine power gain & loss: "; se% * 500 51504 IF uze& > rze& THEN GOTO 51510 ELSE GOTO 51520 END IF 51510 PRINT CHR$(32) PRINT " Sector E - Ukraine wins!" occ& = occ& - 300 se% = se% + 1 umo% = umo% + 1 rmo% = rmo% - 1 zp% = zp% + 1 pp% = pp% - 1 GOTO 51530 51520 PRINT CHR$(32) PRINT " Sector E - Russia wins!" occ& = occ& + 600 se% = se% - 2 umo% = umo% - 1 rmo% = rmo% + 1 zp% = zp% - 1 pp% = pp% + 1 51530 usde& = INT(use& * RND) + 1 uade% = INT(uae% * RND) + 1 utde% = INT(ute% * RND) + 1 uvde% = INT(uve% * RND) + 1 51533 use& = use& - usde& IF use& < 10 THEN use& = 10 END IF 51534 PRINT CHR$(32) SLEEP 1 PRINT " Ukraine-" PRINT " Men lost: "; usde& PRINT " Men left: "; use& 51535 uae% = uae% - uade% IF uae% < 2 THEN uae% = 2 END IF 51536 ute% = ute% - utde% IF ute% < 2 THEN ute% = 2 END IF 51538 uve% = uve% - uvde% IF uve% < 2 THEN uve% = 2 END IF 51540 rsde& = INT(rse& * RND) + 1 rade% = INT(rae& * RND) + 1 rtde% = INT(rte& * RND) + 1 rvde% = INT(rve& * RND) + 1 51542 rse& = rse& - rsde& IF rse& < 10 THEN rse& = 10 END IF 51543 PRINT CHR$(32) PRINT " Russia-" PRINT " Men lost: "; rsde& PRINT " Men left: "; rse& 51544 rae& = rae& - rade% IF rae& < 2 THEN rae& = 2 END IF 51546 rte& = rte& - rtde% IF rte& < 2 THEN rte& = 2 END IF 51548 rve& = rve& - rvde% IF rve& < 2 THEN rve& = 2 END IF 51549 rdie& = rdie& + rsde& udie& = udie& + usde& PRINT CHR$(32) PRINT CHR$(32) PRINT " Press SPACE." SLEEP 0 GOTO 53000 51600 IF usf& < 5000 THEN PRINT " You need 5000 men." GOTO 50000 END IF 51601 RANDOMIZE TIMER uxf& = (usf& / 100 * umo%) + (uaf% * 20) + (utf% * 27) + (uvf% * 8) + (sf% * 500) rxf& = (rsf& / 100 * rmo%) + (raf& * 20) + (rtf& * 27) + (rvf& * 8) uyf% = INT(2000 * RND) + 1 ryf% = INT(4000 * RND) + 1 CLS SLEEP 1 51602 uzf& = uxf& + uyf% rzf& = rxf& + ryf% PRINT CHR$(32) PRINT " Ukraine power: "; uzf& PRINT CHR$(32) PRINT " Russia power: "; rzf& PRINT CHR$(32) PRINT " Ukraine power gain & loss: "; sf% * 500 51604 IF uzf& > rzf& THEN GOTO 51610 ELSE GOTO 51620 END IF 51610 PRINT CHR$(32) PRINT " Sector F - Ukraine wins!" occ& = occ& - 300 sf% = sf% + 1 umo% = umo% + 1 rmo% = rmo% - 1 zp% = zp% + 1 pp% = pp% - 1 GOTO 51630 51620 PRINT CHR$(32) PRINT " Sector F - Russia wins!" occ& = occ& + 600 sf% = sf% - 2 umo% = umo% - 1 rmo% = rmo% + 1 zp% = zp% - 1 pp% = pp% + 1 51630 usdf& = INT(usf& * RND) + 1 uadf% = INT(uaf% * RND) + 1 utdf% = INT(utf% * RND) + 1 uvdf% = INT(uvf% * RND) + 1 51633 usf& = usf& - usdf& IF usf& < 10 THEN usf& = 10 END IF 51634 PRINT CHR$(32) SLEEP 1 PRINT " Ukraine-" PRINT " Men lost: "; usdf& PRINT " Men left: "; usf& 51635 uaf% = uaf% - uadf% IF uaf% < 2 THEN uaf% = 2 END IF 51636 utf% = utf% - utdf% IF utf% < 2 THEN utf% = 2 END IF 51638 uvf% = uvf% - uvdf% IF uvf% < 2 THEN uvf% = 2 END IF 51640 rsdf& = INT(rsf& * RND) + 1 radf% = INT(raf& * RND) + 1 rtdf% = INT(rtf& * RND) + 1 rvdf% = INT(rvf& * RND) + 1 51642 rsf& = rsf& - rsdf& IF rsf& < 10 THEN rsf& = 10 END IF 51643 PRINT CHR$(32) PRINT " Russia-" PRINT " Men lost: "; rsdf& PRINT " Men left: "; rsf& 51644 raf& = raf& - radf% IF raf& < 2 THEN raf& = 2 END IF 51646 rtf& = rtf& - rtdf% IF rtf& < 2 THEN rtf& = 2 END IF 51648 rvf& = rvf& - rvdf% IF rvf& < 2 THEN rvf& = 2 END IF 51649 rdie& = rdie& + rsdf& udie& = udie& + usdf& PRINT CHR$(32) PRINT CHR$(32) PRINT " Press SPACE." SLEEP 0 GOTO 53000 51700 IF usg& < 5000 THEN PRINT " You need 5000 men." GOTO 50000 END IF 51701 RANDOMIZE TIMER uxg& = (usg& / 100 * umo%) + (uag% * 20) + (utg% * 27) + (uvg% * 8) + (sg% * 500) rxg& = (rsg& / 100 * rmo%) + (rag& * 20) + (rtg& * 27) + (rvg& * 8) uyg% = INT(2000 * RND) + 1 ryg% = INT(4000 * RND) + 1 CLS SLEEP 1 51702 uzg& = uxg& + uyg% rzg& = rxg& + ryg% PRINT CHR$(32) PRINT " Ukraine power: "; uzg& PRINT CHR$(32) PRINT " Russia power: "; rzg& PRINT CHR$(32) PRINT " Ukraine power gain & loss: "; sg% * 500 51704 IF uzg& > rzg& THEN GOTO 51710 ELSE GOTO 51720 END IF 51710 PRINT CHR$(32) PRINT " Sector G - Ukraine wins!" occ& = occ& - 300 sg% = sg% + 1 umo% = umo% + 1 rmo% = rmo% - 1 zp% = zp% + 1 pp% = pp% - 1 GOTO 51730 51720 PRINT CHR$(32) PRINT " Sector G - Russia wins!" occ& = occ& + 600 sg% = sg% - 2 umo% = umo% - 1 rmo% = rmo% + 1 zp% = zp% - 1 pp% = pp% + 1 51730 usdg& = INT(usg& * RND) + 1 uadg% = INT(uag% * RND) + 1 utdg% = INT(utg% * RND) + 1 uvdg% = INT(uvg% * RND) + 1 51733 usg& = usg& - usdg& IF usg& < 10 THEN usg& = 10 END IF 51734 PRINT CHR$(32) SLEEP 1 PRINT " Ukraine-" PRINT " Men lost: "; usdg& PRINT " Men left: "; usg& 51735 uag% = uag% - uadg% IF uag% < 2 THEN uag% = 2 END IF 51736 utg% = utg% - utdg% IF utg% < 2 THEN utg% = 2 END IF 51738 uvg% = uvg% - uvdg% IF uvg% < 2 THEN uvg% = 2 END IF 51740 rsdg& = INT(rsg& * RND) + 1 radg% = INT(rag& * RND) + 1 rtdg% = INT(rtg& * RND) + 1 rvdg% = INT(rvg& * RND) + 1 51742 rsg& = rsg& - rsdg& IF rsg& < 10 THEN rsg& = 10 END IF 51743 PRINT CHR$(32) PRINT " Russia-" PRINT " Men lost: "; rsdg& PRINT " Men left: "; rsg& 51744 rag& = rag& - radg% IF rag& < 2 THEN rag& = 2 END IF 51746 rtg& = rtg& - rtdg% IF rtg& < 2 THEN rtg& = 2 END IF 51748 rvg& = rvg& - rvdg% IF rvg& < 2 THEN rvg& = 2 END IF 51749 rdie& = rdie& + rsdg% udie& = udie& + usdg& PRINT CHR$(32) PRINT CHR$(32) PRINT " Press SPACE." SLEEP 0 GOTO 53000 51800 IF ush& < 5000 THEN PRINT " You need 5000 men." GOTO 50000 END IF 51801 RANDOMIZE TIMER uxh& = (ush& / 100 * umo%) + (uah% * 20) + (uth% * 27) + (uvh% * 8) + (sh% * 500) rxh& = (rsh& / 100 * rmo%) + (rah& * 20) + (rth& * 27) + (rvh& * 8) uyh% = INT(2000 * RND) + 1 ryh% = INT(4000 * RND) + 1 CLS SLEEP 1 51802 uzh& = uxh& + uyh% rzh& = rxh& + ryh% PRINT CHR$(32) PRINT " Ukraine power: "; uzh& PRINT CHR$(32) PRINT " Russia power: "; rzh& PRINT CHR$(32) PRINT " Ukraine power gain & loss: "; sh% * 500 51804 IF uzh& > rzh& THEN GOTO 51810 ELSE GOTO 51820 END IF 51810 PRINT CHR$(32) PRINT " Sector H - Ukraine wins!" occ& = occ& - 300 sh% = sh% + 1 umo% = umo% + 1 rmo% = rmo% - 1 zp% = zp% + 1 pp% = pp% - 1 GOTO 51830 51820 PRINT CHR$(32) PRINT " Sector H - Russia wins!" occ& = occ& + 600 sh% = sh% - 2 umo% = umo% - 1 rmo% = rmo% + 1 zp% = zp% - 1 pp% = pp% + 1 51830 usdh& = INT(ush& * RND) + 1 uadh% = INT(uah% * RND) + 1 utdh% = INT(uth% * RND) + 1 uvdh% = INT(uvh% * RND) + 1 51833 ush& = ush& - usdh& IF ush& < 10 THEN ush& = 10 END IF 51834 PRINT CHR$(32) SLEEP 1 PRINT " Ukraine-" PRINT " Men lost: "; usdh& PRINT " Men left: "; ush& 51835 uah% = uah% - uadh% IF uah% < 2 THEN uah% = 2 END IF 51836 uth% = uth% - utdh% IF uth% < 2 THEN uth% = 2 END IF 51838 uvh% = uvh% - uvdh% IF uvh% < 2 THEN uvh% = 2 END IF 51840 rsdh& = INT(rsh& * RND) + 1 radh% = INT(rah& * RND) + 1 rtdh% = INT(rth& * RND) + 1 rvdh% = INT(rvh& * RND) + 1 51842 rsh& = rsh& - rsdh& IF rsh& < 10 THEN rsh& = 10 END IF 51843 PRINT CHR$(32) PRINT " Russia-" PRINT " Men lost: "; rsdh& PRINT " Men left: "; rsh& 51844 rah& = rah& - radh% IF rah& < 2 THEN rah& = 2 END IF 51846 rth& = rth& - rtdh% IF rth& < 2 THEN rth& = 2 END IF 51848 rvh& = rvh& - rvdh% IF rvh& < 2 THEN rvh& = 2 END IF 51849 rdie& = rdie& + rsdh& udie& = udie& + usdh& PRINT CHR$(32) PRINT CHR$(32) PRINT " Press SPACE." SLEEP 0 GOTO 53000 51900 IF usi& < 5000 THEN PRINT " You need 5000 men." GOTO 50000 END IF 51901 RANDOMIZE TIMER uxi& = (usi& / 100 * umo%) + (uai% * 20) + (uti% * 27) + (uvi% * 8) + (si% * 500) rxi& = (rsi& / 100 * rmo%) + (rai& * 20) + (rti& * 27) + (rvi& * 8) uyi% = INT(2000 * RND) + 1 ryi% = INT(4000 * RND) + 1 CLS SLEEP 1 51902 uzi& = uxi& + uyi% rzi& = rxi& + ryi% PRINT CHR$(32) PRINT " Ukraine power: "; uzi& PRINT CHR$(32) PRINT " Russia power: "; rzi& PRINT CHR$(32) PRINT " Ukraine power gain & loss: "; si% * 500 51904 IF uzi& > rzi& THEN GOTO 51910 ELSE GOTO 51920 END IF 51910 PRINT CHR$(32) PRINT " Sector I - Ukraine wins!" occ& = occ& - 300 si% = si% + 1 umo% = umo% + 1 rmo% = rmo% - 1 zp% = zp% + 1 pp% = pp% - 1 GOTO 51930 51920 PRINT CHR$(32) PRINT " Sector I - Russia wins!" occ& = occ& + 600 si% = si% - 2 umo% = umo% - 1 rmo% = rmo% + 1 zp% = zp% - 1 pp% = pp% + 1 51930 usdi& = INT(usi& * RND) + 1 uadi% = INT(uai% * RND) + 1 utdi% = INT(uti% * RND) + 1 uvdi% = INT(uvi% * RND) + 1 51933 usi& = usi& - usdi& IF usi& < 10 THEN usi& = 10 END IF 51934 PRINT CHR$(32) SLEEP 1 PRINT " Ukraine-" PRINT " Men lost: "; usdi& PRINT " Men left: "; usi& 51935 uai% = uai% - uadi% IF uai% < 2 THEN uai% = 2 END IF 51936 uti% = uti% - utdi% IF uti% < 2 THEN uti% = 2 END IF 51938 uvi% = uvi% - uvdi% IF uvi% < 2 THEN uvi% = 2 END IF 51940 rsdi& = INT(rsi& * RND) + 1 radi% = INT(rai& * RND) + 1 rtdi% = INT(rti& * RND) + 1 rvdi% = INT(rvi& * RND) + 1 51942 rsi& = rsi& - rsdi& IF rsi& < 10 THEN rsi& = 10 END IF 51943 PRINT CHR$(32) PRINT " Russia-" PRINT " Men lost: "; rsdi& PRINT " Men left: "; rsi& 51944 rai& = rai& - radi% IF rai& < 2 THEN rai& = 2 END IF 51946 rti& = rti& - rtdi% IF rti& < 2 THEN rti& = 2 END IF 51948 rvi& = rvi& - rvdi% IF rvi& < 2 THEN rvi& = 2 END IF 51949 rdie& = rdie& + rsdi& udie& = udie& + usdi& PRINT CHR$(32) PRINT CHR$(32) PRINT " Press SPACE." SLEEP 0 GOTO 53000 52000 IF usj& < 5000 THEN PRINT " You need 5000 men." GOTO 50000 END IF 52001 RANDOMIZE TIMER uxj& = (usj& / 100 * umo%) + (uaj% * 20) + (utj% * 27) + (uvj% * 8) + (sj% * 500) rxj& = (rsj& / 100 * rmo%) + (raj& * 20) + (rtj& * 27) + (rvj& * 8) uyj% = INT(2000 * RND) + 1 ryj% = INT(4000 * RND) + 1 CLS SLEEP 1 52002 uzj& = uxj& + uyj% rzj& = rxj& + ryj% PRINT CHR$(32) PRINT " Ukraine power: "; uzj& PRINT CHR$(32) PRINT " Russia power: "; rzj& PRINT CHR$(32) PRINT " Ukraine power gain & loss: "; sj% * 500 52004 IF uzj& > rzj& THEN GOTO 52010 ELSE GOTO 52020 END IF 52010 PRINT CHR$(32) PRINT " Sector J - Ukraine wins!" occ& = occ& - 300 sj% = sj% + 1 umo% = umo% + 1 rmo% = rmo% - 1 zp% = zp% + 1 pp% = pp% - 1 GOTO 52030 52020 PRINT CHR$(32) PRINT " Sector J - Russia wins!" occ& = occ& + 600 sj% = sj% - 2 umo% = umo% - 1 rmo% = rmo% + 1 zp% = zp% - 1 pp% = pp% + 1 52030 usdj& = INT(usj& * RND) + 1 uadj% = INT(uaj% * RND) + 1 utdj% = INT(utj% * RND) + 1 uvdj% = INT(uvj% * RND) + 1 52033 usj& = usj& - usdj& IF usj& < 10 THEN usj& = 10 END IF 52034 PRINT CHR$(32) SLEEP 1 PRINT " Ukraine-" PRINT " Men lost: "; usdj& PRINT " Men left: "; usj& 52035 uaj% = uaj% - uadj% IF uaj% < 2 THEN uaj% = 2 END IF 52036 utj% = utj% - utdj% IF utj% < 2 THEN utj% = 2 END IF 52038 uvj% = uvj% - uvdj% IF uvj% < 2 THEN uvj% = 2 END IF 52040 rsdj& = INT(rsj& * RND) + 1 radj% = INT(raj& * RND) + 1 rtdj% = INT(rtj& * RND) + 1 rvdj% = INT(rvj& * RND) + 1 52042 rsj& = rsj& - rsdj& IF rsj& < 10 THEN rsj& = 10 END IF 52043 PRINT CHR$(32) PRINT " Russia-" PRINT " Men lost: "; rsdj& PRINT " Men left: "; rsj& 52044 raj& = raj& - radj% IF raj& < 2 THEN raj& = 2 END IF 52046 rtj& = rtj& - rtdj% IF rtj& < 2 THEN rtj& = 2 END IF 52048 rvj& = rvj& - rvdj% IF rvj& < 2 THEN rvj& = 2 END IF 52049 rdie& = rdie& + rsdj& udie& = udie& + usdj& PRINT CHR$(32) PRINT CHR$(32) PRINT " Press SPACE." SLEEP 0 GOTO 53000 53000 IF sa% = 17 THEN GOTO 80000 END IF IF sb% = 17 THEN GOTO 80000 END IF IF sc% = 17 THEN GOTO 80000 END IF IF sd% = 17 THEN GOTO 80000 END IF IF se% = 17 THEN GOTO 80000 END IF IF sf% = 17 THEN GOTO 80000 END IF IF sg% = 17 THEN GOTO 80000 END IF IF si% = 17 THEN GOTO 80000 END IF IF sj% = 17 THEN GOTO 80000 END IF IF sa% < -16 THEN GOTO 81000 END IF IF sb% < -16 THEN GOTO 81000 END IF IF sc% < -16 THEN GOTO 81000 END IF IF sd% < -16 THEN GOTO 81000 END IF IF se% < -16 THEN GOTO 81000 END IF IF sf% < -16 THEN GOTO 81000 END IF IF sg% < -16 THEN GOTO 81000 END IF IF sh% < -16 THEN GOTO 81000 END IF IF si% < -16 THEN GOTO 81000 END IF IF sj% < -16 THEN GOTO 81000 END IF IF occ& < 30000 THEN GOTO 80001 END IF IF occ& > 70000 THEN GOTO 81000 END IF IF pp% < 6 THEN GOTO 80001 END IF IF zp% < 6 THEN GOTO 81000 END IF IF rmo% < 6 THEN GOTO 80001 END IF IF umo% < 6 THEN GOTO 81000 END IF IF rdie& > 3000000 THEN GOTO 80001 END IF IF udie& > 1500000 THEN GOTO 81000 END IF IF no% = 1 THEN no% = 0 GOTO 1200 ELSE GOTO 50001 END IF 54000 CLS PRINT CHR$(32) PRINT " ========================================" PRINT " = =" PRINT " = MORE FORCED RECRUITS =" PRINT " = =" PRINT " ========================================" PRINT CHR$(32) 54002 rec% = INT(1000 * RND) + 1000 PRINT " People picked from the street & theatres & restaurants..." PRINT CHR$(32) ft% = ft% + 1 zp% = zp% - 1 umo% = umo% - 1 reca% = rec% - (ft% * 20) IF reca% < 10 THEN reca% = 10 END IF IF umo% < 8 THEN PRINT CHR$(32) PRINT " Morale dangerously low !!!" PRINT CHR$(32) END IF 54003 unm% = unm% + reca% PRINT " Extra new men: "; reca% PRINT CHR$(32) SLEEP 1 IF unm% > 32000 THEN unm% = 32000 END IF IF zp% = 5 THEN GOTO 81000 END IF 54010 GOTO 56030 55000 CLS PRINT CHR$(32) PRINT " =======================================" PRINT " = =" PRINT " = DRONE ATTACK (CIVILIAN TARGETS) =" PRINT " = =" PRINT " =======================================" PRINT CHR$(32) 55001 PRINT " Drones left: "; udr% PRINT CHR$(32) 55002 INPUT " How many drones you are going to use "; t% IF t% > udr% THEN PRINT CHR$(32) PRINT " Impossible." SLEEP 1 GOTO 55002 ELSE GOTO 55010 END IF 55010 PRINT CHR$(32) udr% = udr% - t% PRINT " Many civilian casulties around Russia." PRINT CHR$(32) SLEEP 1 p% = t% / 500 pp% = pp% - p% PRINT " Putin popularity going down: "; p% PRINT CHR$(32) PRINT " It is now: "; pp% 55012 PRINT CHR$(32) z% = t% / 250 zp% = zp% + z% PRINT " Zelenski popularity going up: "; z% PRINT CHR$(32) PRINT " It is now: "; zp% 55014 PRINT CHR$(32) n% = t% / 400 nuk% = nuk% + n% PRINT " Risk for Nuclear Holocaust rising: "; n% PRINT CHR$(32) PRINT " It is now: "; nuk% 55016 IF nuk% > 100 THEN GOTO 83000 END IF 55017 PRINT CHR$(32) PRINT " Press SPACE." SLEEP 0 55018 CLS PRINT CHR$(32) PRINT " Russian Counterattack." PRINT CHR$(32) SLEEP 1 coun% = INT(rdr% * RND) + 1 rdr% = rdr% - coun% PRINT " Russia used Drones: "; coun% PRINT CHR$(32) PRINT " Many civilian casulties around Ukraine." PRINT CHR$(32) p% = coun% / 400 pp% = pp% + p% PRINT " Putin popularity going up: "; p% PRINT CHR$(32) PRINT " It is now: "; pp% PRINT CHR$(32) z% = coun% / 400 zp% = zp% - z% PRINT " Zelenski popularity going down: "; z% PRINT CHR$(32) PRINT " It is now: "; zp% PRINT CHR$(32) 55020 GOTO 56030 56000 CLS PRINT CHR$(32) PRINT " =======================================" PRINT " = =" PRINT " = DRONE ATTACK (MILITARY TARGETS) =" PRINT " = =" PRINT " =======================================" PRINT CHR$(32) 56001 PRINT " Drones left: "; udr% PRINT CHR$(32) 56002 INPUT " How many drones you are going to use "; t% IF t% > udr% THEN PRINT CHR$(32) PRINT " Impossible." SLEEP 1 GOTO 56002 ELSE udr% = udr% - t% GOTO 56006 END IF 56006 PRINT CHR$(32) 56008 INPUT " Choose Sector 'A' to 'J' "; a$ IF a$ = "a" THEN GOTO 56010 END IF IF a$ = "b" THEN GOTO 56011 END IF IF a$ = "c" THEN GOTO 56012 END IF IF a$ = "d" THEN GOTO 56013 END IF IF a$ = "e" THEN GOTO 56014 END IF IF a$ = "f" THEN GOTO 56015 END IF IF a$ = "g" THEN GOTO 56016 END IF IF a$ = "h" THEN GOTO 56017 END IF IF a$ = "i" THEN GOTO 56018 END IF IF a$ = "j" THEN GOTO 56019 ELSE PRINT CHR$(32) PRINT " Out of range." SLEEP 1 GOTO 56008 END IF 56010 PRINT CHR$(32) dvi% = t% / 2 dvic% = INT(dvi% * RND) + 1 rsa& = rsa& - dvic% IF rsa& < 10 THEN rsa& = 10 END IF PRINT " Russia lost Sector A: "; dvic%; " Men." GOTO 56020 56011 PRINT CHR$(32) dvi% = t% / 2 dvic% = INT(dvi% * RND) + 1 rsb& = rsb& - dvic% IF rsb& < 10 THEN rsb& = 10 END IF PRINT " Russia lost Sector B: "; dvic%; " Men." GOTO 56020 56012 PRINT CHR$(32) dvi% = t% / 2 dvic% = INT(dvi% * RND) + 1 rsc& = rsc& - dvic% IF rsc& < 10 THEN rsc& = 10 END IF PRINT " Russia lost Sector C: "; dvic%; " Men." GOTO 56020 56013 PRINT CHR$(32) dvi% = t% / 2 dvic% = INT(dvi% * RND) + 1 rsd& = rsd& - dvic% IF rsd& < 10 THEN rsd& = 10 END IF PRINT " Russia lost Sector D: "; dvic%; " Men." GOTO 56020 56014 PRINT CHR$(32) dvi% = t% / 2 dvic% = INT(dvi% * RND) + 1 rse& = rse& - dvic% IF rse& < 10 THEN rse& = 10 END IF PRINT " Russia lost Sector E: "; dvic%; " Men." GOTO 56020 56015 PRINT CHR$(32) dvi% = t% / 2 dvic% = INT(dvi% * RND) + 1 rsf& = rsf& - dvic% IF rsf& < 10 THEN rsf& = 10 END IF PRINT " Russia lost Sector F: "; dvic%; " Men." GOTO 56020 56016 PRINT CHR$(32) dvi% = t% / 2 dvic% = INT(dvi% * RND) + 1 rsg& = rsg& - dvic% IF rsg& < 10 THEN rsg& = 10 END IF PRINT " Russia lost Sector G: "; dvic%; " Men." GOTO 56020 56017 PRINT CHR$(32) dvi% = t% / 2 dvic% = INT(dvi% * RND) + 1 rsh& = rsgh - dvic% IF rsh& < 10 THEN rsh& = 10 END IF PRINT " Russia lost Sector H: "; dvic%; " Men." GOTO 56020 56018 PRINT CHR$(32) dvi% = t% / 2 dvic% = INT(dvi% * RND) + 1 rsi& = rsi& - dvic% IF rsi& < 10 THEN rsi& = 10 END IF PRINT " Russia lost Sector I: "; dvic%; " Men." GOTO 56020 56019 PRINT CHR$(32) dvi% = t% / 2 dvic% = INT(dvi% * RND) + 1 rsj& = rsj& - dvic% IF rsj& < 10 THEN rsj& = 10 END IF PRINT " Russia lost Sector J: "; dvic%; " Men." 56020 SLEEP 1 p% = t% / 500 pp% = pp% - p% rdie& = rdie& + dvic% PRINT CHR$(32) PRINT " Putin popularity going down: "; p% PRINT CHR$(32) PRINT " It is now: "; pp% 56022 PRINT CHR$(32) z% = t% / 500 zp% = zp% + z% PRINT " Zelenski popularity going up: "; z% PRINT CHR$(32) PRINT " It is now: "; zp% 56024 PRINT CHR$(32) n% = t% / 2000 nuk% = nuk% + n% PRINT " Risk for Nuclear Holocaust rising: "; n% PRINT CHR$(32) PRINT " It is now: "; nuk% 56026 IF nuk% > 100 THEN GOTO 83000 END IF 56028 PRINT CHR$(32) PRINT CHR$(32) PRINT " Press SPACE." SLEEP 0 56029 CLS PRINT CHR$(32) PRINT " Russian Counterattack." PRINT CHR$(32) coun% = INT(rdr% * RND) + 1 rdr% = rdr% - coun% PRINT " Russia used Drones: "; coun% PRINT CHR$(32) PRINT " Many civilian casulties around Ukraine." PRINT CHR$(32) SLEEP 1 p% = coun% / 400 pp% = pp% + p% PRINT " Putin popularity going up: "; p% PRINT CHR$(32) PRINT " It is now: "; pp% PRINT CHR$(32) z% = coun% / 400 zp% = zp% - z% PRINT " Zelenski popularity going down: "; z% PRINT CHR$(32) PRINT " It is now: "; zp% PRINT CHR$(32) 56030 PRINT CHR$(32) PRINT " '1' - Main Directory." PRINT " '2' - Operation Room." PRINT CHR$(32) 56040 INPUT " Type '1' or '2' "; t% IF t% = 1 THEN GOTO 1200 END IF IF t% = 2 THEN GOTO 50000 ELSE PRINT "Out of range." PRINT CHR$(32) SLEEP 1 GOTO 56040 END IF 63000 CLS vk% = vk% + 1 r% = r% + 1 urt% = urt% + 1 IF urt% = 7 THEN urt% = 0 bl% = bl% + 1 umo% = umo% - 1 rmo% = rmo% - 1 zp% = zp% - 1 pp% = pp% - 1 END IF IF vk% = 52 THEN ann% = ann% + 1 vk% = 1 PRINT CHR$(32) PRINT " New Year." PRINT CHR$(32) PRINT " Better Guns for Ukraine." PRINT " Ukraine Morale up: 20." PRINT " Zelenski Popularity up: 20." umo% = umo% + 20 zp% = zp% + 20 ny% = ny% + 500 SLEEP 2 END IF 63001 PRINT CHR$(32) 63002 RANDOMIZE TIMER rnm% = INT(2000 * RND) + 500 rsa& = rsa& + rnm% rsb& = rsb& + rnm% rsc& = rsc& + rnm% rsd& = rsd& + rnm% rse& = rse& + rnm% rsf& = rsf& + rnm% rsg& = rsg& + rnm% rsh& = rsh& + rnm% rsi& = rsi& + rnm% rsj& = rsj& + rnm% PRINT " New soldiers for Russia for each Sector: "; rnm% SLEEP 1 63003 PRINT CHR$(32) 63004 rna% = INT(160 * RND) + lf% raa& = raa& + rna% rab& = rab& + rna% rac& = rac& + rna% rad& = rad& + rna% rae& = rae& + rna% raf& = raf& + rna% rag& = rag& + rna% rah& = rah& + rna% rai& = rai& + rna% raj& = raj& + rna% PRINT " New units of Artillery for Russia for each Sector: "; rna% SLEEP 1 63005 PRINT CHR$(32) 63006 rnt% = INT(36 * RND) + lg% rta& = rta& + rnt% rtb& = rtb& + rnt% rtc& = rtc& + rnt% rtd& = rtd& + rnt% rte& = rte& + rnt% rtf& = rtf& + rnt% rtg& = rtg& + rnt% rth& = rth& + rnt% rti& = rti& + rnt% rtj& = rtj& + rnt% PRINT " New Tanks for Russia for each Sector: "; rnt% SLEEP 1 63007 PRINT CHR$(32) 63008 rnv% = INT(160 * RND) + lh% rva& = rva& + rnv% rvb& = rvb& + rnv% rvc& = rvc& + rnv% rvd& = rvd& + rnv% rve& = rve& + rnv% rvf& = rvf& + rnv% rvg& = rvg& + rnv% rvh& = rvh& + rnv% rvi& = rvi& + rnv% rvj& = rvj& + rnv% PRINT " New Vehicles for Russia for each Sector: "; rnv% SLEEP 1 63009 PRINT CHR$(32) rndr% = INT(200 * RND) + 440 PRINT " New Drones for Russia: "; rndr% SLEEP 1 rdr% = rdr% + rndr% IF rdr% > 32000 THEN rdr% = 32000 END IF 63014 RANDOMIZE TIMER PRINT CHR$(32) unnm% = INT(4000 * RND) - (r% * 10) + le% unm% = unm% + unnm% IF unm% > 24000 THEN unm% = 24000 END IF PRINT " New soldiers for Ukraine: "; unnm% SLEEP 1 PRINT CHR$(32) unna% = INT(200 * RND) - r% + 200 una% = una% + unna% PRINT " New units of Artillery for Ukraine: "; unna% SLEEP 1 PRINT CHR$(32) unta% = INT(20 * RND) + 40 unt% = unt% + unta% PRINT " New Tanks for Ukraine: "; unta% SLEEP 1 PRINT CHR$(32) unva% = INT(200 * RND) - r% + 200 unv% = unv% + unva% PRINT " New Vehicles for Ukraine: "; unva% SLEEP 1 PRINT CHR$(32) undr% = INT(200 * RND) + 400 PRINT " New Drones for Ukraine: "; undr% udr% = udr% + undr% IF udr% > 32000 THEN udr% = 32000 END IF 63015 PRINT CHR$(32) PRINT CHR$(32) PRINT " Press SPACE." SLEEP 0 63018 CLS 63020 att% = INT(10 * RND) + 1 63030 IF att% = 1 THEN PRINT CHR$(32) PRINT " Russia attacks Sector A-" SLEEP 1 GOTO 63100 END IF IF att% = 2 THEN PRINT CHR$(32) PRINT " Russia attacks Sector B-" SLEEP 1 GOTO 63200 END IF IF att% = 3 THEN PRINT CHR$(32) SLEEP 1 PRINT " Russia attacks Sector C-" GOTO 63300 END IF IF att% = 4 THEN PRINT CHR$(32) SLEEP 1 PRINT " Russia attacks Sector D-" GOTO 63400 END IF IF att% = 5 THEN PRINT CHR$(32) SLEEP 1 PRINT " Russia attacks Sector E-" GOTO 63500 END IF IF att% = 6 THEN PRINT CHR$(32) SLEEP 1 PRINT " Russia attacks Sector F-" GOTO 63600 END IF IF att% = 7 THEN PRINT CHR$(32) SLEEP 1 PRINT " Russia attacks Sector G-" GOTO 63700 END IF IF att% = 8 THEN PRINT CHR$(32) SLEEP 1 PRINT " Russia attacks Sector H-" GOTO 63800 END IF IF att% = 9 THEN PRINT CHR$(32) SLEEP 1 PRINT " Russia attacks Sector I-" GOTO 63900 ELSE PRINT CHR$(32) SLEEP 1 PRINT " Russia attacks Sector J-" GOTO 64000 END IF 63100 RANDOMIZE TIMER uxa& = (usa& / 100 * umo%) + (uaa% * 20) + (uta% * 27) + (uva% * 8) - (sa% * 500) rxa& = (rsa& / 100 * rmo%) + (raa& * 20) + (rta& * 27) + (rva& * 8) uya% = INT(4000 * RND) + ny% rya% = INT(2000 * RND) + 1 GOTO 51102 63200 RANDOMIZE TIMER uxb& = (usb& / 100 * umo%) + (uab% * 20) + (utb% * 27) + (uvb% * 8) - (sb% * 500) rxb& = (rsb& / 100 * rmo%) + (rab& * 20) + (rtb& * 27) + (rvb& * 8) uyb% = INT(4000 * RND) + ny% ryb% = INT(2000 * RND) + 1 GOTO 51202 63300 RANDOMIZE TIMER uxc& = (usc& / 100 * umo%) + (uac% * 20) + (utc% * 27) + (uvc% * 8) - (sc% * 500) rxc& = (rsc& / 100 * rmo%) + (rac& * 20) + (rtc& * 27) + (rvc& * 8) uyc% = INT(4000 * RND) + ny% ryc% = INT(2000 * RND) + 1 GOTO 51302 63400 RANDOMIZE TIMER uxd& = (usd& / 100 * umo%) + (uad% * 20) + (utd% * 27) + (uvd% * 8) - (sd% * 500) rxd& = (rsd& / 100 * rmo%) + (rad& * 20) + (rtd& * 27) + (rvd& * 8) uyd% = INT(4000 * RND) + ny% ryd% = INT(2000 * RND) + 1 GOTO 51402 63500 RANDOMIZE TIMER uxe& = (use& / 100 * umo%) + (uae% * 20) + (ute% * 27) + (uve% * 8) - (se% * 500) rxe& = (rse& / 100 * rmo%) + (rae& * 20) + (rte& * 27) + (rve& * 8) uye% = INT(4000 * RND) + ny% rye% = INT(2000 * RND) + 1 GOTO 51502 63600 RANDOMIZE TIMER uxf& = (usf& / 100 * umo%) + (uaf% * 20) + (utf% * 27) + (uvf% * 8) - (sf% * 500) rxf& = (rsf& / 100 * rmo%) + (raf& * 20) + (rtf& * 27) + (rvf& * 8) uyf% = INT(4000 * RND) + ny% ryf% = INT(2000 * RND) + 1 GOTO 51602 63700 RANDOMIZE TIMER uxg& = (usg& / 100 * umo%) + (uag% * 20) + (utg% * 27) + (uvg% * 8) - (sg% * 500) rxg& = (rsg& / 100 * rmo%) + (rag& * 20) + (rtg& * 27) + (rvg& * 8) uyg% = INT(4000 * RND) + ny% ryg% = INT(2000 * RND) + 1 GOTO 51702 63800 RANDOMIZE TIMER uxh& = (ush& / 100 * umo%) + (uah% * 20) + (uth% * 27) + (uvh% * 8) - (sh% * 500) rxh& = (rsh& / 100 * rmo%) + (rah& * 20) + (rth& * 27) + (rvh& * 8) uyh% = INT(4000 * RND) + ny% ryh% = INT(2000 * RND) + 1 GOTO 51802 63900 RANDOMIZE TIMER uxi& = (usi& / 100 * umo%) + (uai% * 20) + (uti% * 27) + (uvi% * 8) - (si% * 500) rxi& = (rsi& / 100 * rmo%) + (rai& * 20) + (rti& * 27) + (rvi& * 8) uyi% = INT(4000 * RND) + ny% ryi% = INT(2000 * RND) + 1 GOTO 51902 64000 RANDOMIZE TIMER uxj& = (usj& / 100 * umo%) + (uaj% * 20) + (utj% * 27) + (uvj% * 8) - (sj% * 500) rxj& = (rsj& / 100 * rmo%) + (raj& * 20) + (rtj& * 27) + (rvj& * 8) uyj% = INT(4000 * RND) + ny% ryj% = INT(2000 * RND) + 1 GOTO 52002 79000 CLS PRINT CHR$(32) PRINT " Peace agreement made." won& = 0 PRINT CHR$(32) PRINT " Game Over." GOTO 81001 80000 won& = 50000 GOTO 80002 80001 won& = 500000 80002 CLS PRINT CHR$(32) PRINT " Ukraine won the War." GOTO 81001 81000 CLS PRINT CHR$(32) PRINT " Russia won the War." won& = -100000 81001 PRINT CHR$(32) PRINT CHR$(32) PRINT " Brave Ukrainian soldiers died: "; udie& PRINT CHR$(32) PRINT " Brave Russian soldiers died: "; rdie& PRINT CHR$(32) PRINT " Score: "; (20 * (50000 - occ&)) + (rdie& - 100000) - (udie& - 50000) + (r% * 200) + won& GOTO 83001 83000 CLS PRINT CHR$(32) PRINT " Nuclear Holocaust." PRINT CHR$(32) PRINT " No-one won." PRINT CHR$(32) PRINT " Game Over." 83001 PRINT CHR$(32) PRINT CHR$(32) PRINT " '1' - New Game." PRINT " '2' - Quit." PRINT CHR$(32) 83002 INPUT " Type '1' or '2' "; t% IF t% = 1 THEN GOTO 83010 END IF IF t% = 2 THEN GOTO 83011 ELSE PRINT CHR$(32) PRINT " Out of range." SLEEP 1 GOTO 83002 END IF 83010 RUN 83011 END