1 SCREEN 12
 WIDTH 80, 25

2 CLS
 LOCATE 6, 8
 PRINT "Choose color you like."
 LOCATE 9, 6
 PRINT "1 - Black on White."
 LOCATE 10, 6
 PRINT "2 - White on Blue."
 LOCATE 11, 6
 PRINT "3 - Commodore 64."
 LOCATE 12, 6
 PRINT "4 - Classic IBM-PC style."

3 LOCATE 15, 6
 INPUT "Type '1' to '4' "; a$

4 IF a$ = "1" THEN
 GOTO 7
 END IF

 IF a$ = "2" THEN
 GOTO 8
 END IF

 IF a$ = "3" THEN
 GOTO 9
 END IF

 IF a$ = "4" THEN
 GOTO 12

 ELSE
 LOCATE 17, 6
 PRINT "Out of range."
 SLEEP 1
 GOTO 2
 END IF

7 COLOR 8, 7
 GOTO 12

8 COLOR 7, 1
 GOTO 12

9 COLOR 9, 1
 GOTO 12

12 ann% = 1986
 excd& = 0
 month% = 1
 kk& = 1
 loan% = 0
 pm% = 0
 pop% = 8000
 bankrub& = 10000
 bankusd& = 30
 last& = 44000
 salary& = 44000
 slow% = 0
 doom& = 2
 visita% = 0
 visitb% = 0
 visitc% = 0
 pmi& = 0
 kier% = 98
 foodim% = 14000
 medim% = 4000
 compim% = 10000
 hunger% = 700
 shri% = 0
 usdsal% = 220
 rese& = 6000000
 foo& = 14000
 eat& = foo& * 45
 beg% = 0
 gene% = 7500
 gen% = 2500
 selnum% = 0
 gen% = 0
 onn% = 1
 onni% = 1
 perma% = 0
 oops% = 0
 nati% = 0
 prese& = 0
 sold% = 0
 cut% = 0

14 compa% = 0
 compb% = 0
 compc% = 0
 compd% = 0
 compe% = 0
 compf% = 0
 compg% = 0
 comph% = 0
 compi% = 0

16 cmpa% = 0
 cmpb% = 0
 cmpc% = 0
 cmpd% = 0
 cmpe% = 0
 cmpf% = 0
 cmpg% = 0
 cmph% = 0
 cmpi% = 0
 cmpj% = 0

100 loana% = 12
 loanb% = 18
 loanc% = 24
 loand% = 30
 loane% = 36
 loanf% = 42
 loang% = 48
 loanh% = 54

200 CLS

202 FOR i% = 20 TO 61
 LOCATE 2, i%
 PRINT CHR$(205)
 NEXT i%

 FOR i% = 20 TO 61
 LOCATE 6, i%
 PRINT CHR$(205)
 NEXT i%

 LOCATE 2, 19
 PRINT CHR$(201)

 LOCATE 2, 62
 PRINT CHR$(187)

 LOCATE 6, 19
 PRINT CHR$(200)

 LOCATE 6, 62
 PRINT CHR$(188)

 LOCATE 3, 19
 PRINT CHR$(186)

 LOCATE 3, 62
 PRINT CHR$(186)

 LOCATE 4, 19
 PRINT CHR$(186)

 LOCATE 4, 62
 PRINT CHR$(186)

 LOCATE 5, 19
 PRINT CHR$(186)

 LOCATE 5, 62
 PRINT CHR$(186)

 LOCATE 4, 21
 PRINT "Collapse of Soviet Economy (Version 2.0)"

204 LOCATE 8, 4
 PRINT "This game simulates how to steer country during a shrinking economy."
 LOCATE 10, 4
 PRINT "The game starts in the year 1986 and if you manage to the year 2003,"
 LOCATE 11, 4
 PRINT "you have played it trough."
 LOCATE 13, 4
 PRINT "You must interest for your loan with Dollars, and worker's salary with"
 LOCATE 14, 4
 PRINT "Roubles. If you don't have enough currency, the game is over. First"
 LOCATE 15, 4
 PRINT "salary is 440 RUB per citizen, together 44 billion RUB. At First, 98 %"
 LOCATE 16, 4
 PRINT "of the money returns from the circulation, later the sum is smaller."
 LOCATE 17, 4
 PRINT "also the income from goods you export will get smaller until the year"
 LOCATE 18, 4
 PRINT "1998, after which the economy starts to recover."
 LOCATE 20, 4
 PRINT "Most of the data is real, some numbers are my guess..."

206 LOCATE 23, 4
     PRINT "Press Esc to move on."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

210 CLS

212 LOCATE 2, 4
 PRINT "For example, you can 'print money out of thin air'. This is based on"
 LOCATE 3, 4
 PRINT "real events. As soon as Gorby came in the power, he started to create"
 LOCATE 4, 4
 PRINT "money: 63 billion RUB in 1989 and 60 billion in 1990. If you have taken"
 LOCATE 5, 4
 PRINT "loans more than nine times of printed money more than four times, you"
 LOCATE 6, 4
 PRINT "can not change Rubles into Dollars, but can still change Dollars into"
 LOCATE 8, 4
 PRINT "Rubles. If you are out of Dollars, your last change is to sell state"
 LOCATE 9, 4
 PRINT "owned companies: 10 % stake. And you can take these companies back but"
 LOCATE 10, 4
 PRINT "this action has consequences like everything else you do."
 LOCATE 12, 4
 PRINT "If you choose not to buy food, there might be deaths. From 1996 there"
 LOCATE 13, 4
 PRINT "are no more deaths even if you choose not to buy food. If you decide"
 LOCATE 14, 4
 PRINT "to buy vital components, there is a small negative excess mortality."
 LOCATE 16, 4
 PRINT "Created by (April 2026):"
 LOCATE 18, 4
 PRINT "Pasi Toivonen"
 LOCATE 19, 4
 PRINT "Mantta-Vilppula"
 LOCATE 19, 5
 PRINT CHR$(132)
 LOCATE 19, 9
 PRINT CHR$(132)
 LOCATE 20, 4
 PRINT "FINLAND"
 LOCATE 22, 4
 PRINT "Email: hurricaneharvey64@gmail.com"
 LOCATE 23, 4
 PRINT "https://www.vk.com/pasitoivonen"

216 LOCATE 23, 52
     PRINT "Press Esc to move on."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

300 CLS

302 LOCATE 3, 4
 PRINT "Give level: "

 LOCATE 5, 4
 PRINT "1 - Income from export + 40 percent."
 LOCATE 6, 4
 PRINT "2 - Income from export + 30 percent."
 LOCATE 7, 4
 PRINT "3 - Income from export + 20 percent."
 LOCATE 8, 4
 PRINT "4 - Income from export + 10 percent."
 LOCATE 9, 4
 PRINT "5 - My original plan."
 LOCATE 11, 4
 PRINT "My original plan is based on research of Soviet Export."
 LOCATE 12, 4
 PRINT "I am pretty sure that option '1' and '2' are not in with"
 LOCATE 13, 4
 PRINT "the reality. But it gives bigger chance to reach the year"
 LOCATE 14, 4
 PRINT "2003. At least the recovery of economy after the year 1998"
 LOCATE 15, 4
 PRINT "is faster."

304 LOCATE 17, 4

306 INPUT "Type '1' to '5' "; a$

308 IF a$ = "1" THEN
 lev& = 14
 levb% = 2
 GOTO 1000
 END IF

310 IF a$ = "2" THEN
 lev& = 13
 levb% = 3
 GOTO 1000
 END IF

312 IF a$ = "3" THEN
 lev& = 12
 levb% = 4
 GOTO 1000
 END IF

314 IF a$ = "4" THEN
 lev& = 11
 levb% = 5
 GOTO 1000
 END IF

316 IF a$ = "5" THEN
 lev& = 10
 levb% = 6
 GOTO 1000

 ELSE
 LOCATE 19, 4
 PRINT "Out of range."
 SLEEP 2
 GOTO 300
 END IF

1000 CLS
 export& = (22000 * lev&) / 10
 RANDOMIZE TIMER

1002 FOR i% = 20 TO 60
 LOCATE 2, i%
 PRINT CHR$(205)
 NEXT i%

 FOR i% = 20 TO 60
 LOCATE 4, i%
 PRINT CHR$(205)
 NEXT i%

 LOCATE 2, 19
 PRINT CHR$(201)

 LOCATE 2, 61
 PRINT CHR$(187)

 LOCATE 4, 19
 PRINT CHR$(200)

 LOCATE 4, 61
 PRINT CHR$(188)

 LOCATE 3, 19
 PRINT CHR$(186)

 LOCATE 3, 61
 PRINT CHR$(186)

 LOCATE 3, 34
 PRINT "Main Directory"

 LOCATE 6, 2
 PRINT "Year: "; ann%

 LOCATE 6, 19
 PRINT "Month: "; month%

1042 IF ann% < 1991 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Mihail Gorbatshov."
 LOCATE 10, 2
 PRINT "Economic state:  Stagnation."
 GOTO 1050
 END IF

1043 IF ann% = 1991 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Mihail Gorbatshov."
 LOCATE 10, 2
 PRINT "Economic state:  Collapse."
 GOTO 1050
 END IF

1044 IF ann% > 1991 AND ann% < 1999 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Boris Jeltsin."
 LOCATE 10, 2
 PRINT "Economic state:  Collapse."
 GOTO 1050
 END IF

1045 IF ann% = 1999 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Boris Jeltsin."
 LOCATE 10, 2
 PRINT "Economic state:  Recovery."
 GOTO 1050
 END IF

1046 IF ann% > 1999 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Vladimir Putin."
 LOCATE 10, 2
 PRINT "Economic state:  Recovery."
 GOTO 1050
 END IF

1050 LOCATE 10, 45
 PRINT "Taken new loans: "; loan%; "times."

 LOCATE 8, 45
 PRINT "Printed money: "; pm%; "times."

1052 FOR i% = 2 TO 76
 LOCATE 11, i%
 PRINT CHR$(196)
 NEXT i%

 LOCATE 13, 2
 PRINT "Rosbank account (million USD): "; bankusd&
 LOCATE 15, 2
 PRINT "Rosbank account (million RUB): "; bankrub&
 LOCATE 13, 45
 PRINT "Rate for buying USD: "; doom&
 LOCATE 15, 45
 sellsc& = 10000 * (1 / doom&)
 PRINT "Rate for selling USD: "; (sellsc& / 10000)
 LOCATE 6, 45
 PRINT "Popularity: "; pop% / 100

1054 FOR i% = 2 TO 76
 LOCATE 16, i%
 PRINT CHR$(196)
 NEXT i%

1056 IF loan% = 0 THEN
 loans& = 50000
 inter% = 500
 GOTO 1058
 END IF

 IF loan% = 1 THEN
 loans& = 70000
 inter% = 700
 GOTO 1058
 END IF

 IF loan% = 2 THEN
 loans& = 90000
 inter% = 1000
 GOTO 1058
 END IF

 IF loan% = 3 THEN
 loans& = 110000
 inter% = 1400
 GOTO 1058
 END IF

 IF loan% = 4 THEN
 loans& = 130000
 inter% = 1900
 GOTO 1058
 END IF

 IF loan% = 5 THEN
 inter% = 2500
 loans& = 150000
 GOTO 1058
 END IF

 IF loan% = 6 THEN
 inter% = 3200
 loans& = 170000
 GOTO 1058
 END IF

 IF loan% = 7 THEN
 inter% = 4000
 loans& = 190000
 GOTO 1058
 END IF

 IF loan% = 8 THEN
 inter% = 4900
 loans& = 210000
 GOTO 1058
 END IF

1058 LOCATE 18, 2
 PRINT "Interest for your loans (million USD): "; inter%

1060 LOCATE 20, 2
 PRINT "R = Rosbank   L = Loans   C = Citizen   F = Food   S = Summary   Q = Quit"

1062 LOCATE 23, 2
 INPUT "Make your choice "; a$

1063 IF a$ = "r" THEN
 GOTO 2000
 END IF

1064 IF a$ = "l" THEN
 GOTO 3000
 END IF

1065 IF a$ = "c" THEN
 GOTO 4000
 END IF

1066 IF a$ = "f" THEN
 GOTO 9000
 END IF

1067 IF a$ = "s" THEN
 GOTO 5000
 END IF

1068 IF a$ = "q" THEN
 GOTO 10000

 ELSE
 GOTO 1000
 END IF

2000 CLS

2002 FOR i% = 20 TO 61
 LOCATE 2, i%
 PRINT CHR$(205)
 NEXT i%

 FOR i% = 20 TO 61
 LOCATE 4, i%
 PRINT CHR$(205)
 NEXT i%

 LOCATE 2, 19
 PRINT CHR$(201)

 LOCATE 2, 62
 PRINT CHR$(187)

 LOCATE 4, 19
 PRINT CHR$(200)

 LOCATE 4, 62
 PRINT CHR$(188)

 LOCATE 3, 19
 PRINT CHR$(186)

 LOCATE 3, 62
 PRINT CHR$(186)

 LOCATE 3, 30
 PRINT "Rosbank Currency Trade"

 LOCATE 6, 2
 PRINT "Year: "; ann%

 LOCATE 6, 19
 PRINT "Month: "; month%

2042 IF ann% < 1991 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Mihail Gorbatshov."
 LOCATE 10, 2
 PRINT "Economic state:  Stagnation."
 GOTO 2050
 END IF

2043 IF ann% = 1991 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Mihail Gorbatshov."
 LOCATE 10, 2
 PRINT "Economic state:  Collapse."
 GOTO 2050
 END IF

2044 IF ann% > 1991 AND ann% < 1999 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Boris Jeltsin."
 LOCATE 10, 2
 PRINT "Economic state:  Collapse."
 GOTO 2050
 END IF

2045 IF ann% = 1999 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Boris Jeltsin."
 LOCATE 10, 2
 PRINT "Economic state:  Recovery."
 GOTO 2050
 END IF

2046 IF ann% > 1999 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Vladimir Putin."
 LOCATE 10, 2
 PRINT "Economic state:  Recovery."
 GOTO 2050
 END IF

2050 LOCATE 10, 45
 PRINT "Taken new loans: "; loan%; "times."

 LOCATE 8, 45
 PRINT "Printed money: "; pm%; "times."

2052 FOR i% = 2 TO 76
 LOCATE 11, i%
 PRINT CHR$(196)
 NEXT i%

 LOCATE 13, 2
 PRINT "Rosbank account (million USD): "; bankusd&
 LOCATE 15, 2
 PRINT "Rosbank account (million RUB): "; bankrub&
 LOCATE 13, 45
 PRINT "Rate for buying USD: "; doom&
 LOCATE 15, 45
 sellsc& = 10000 * (1 / doom&)
 PRINT "Rate for selling USD: "; (sellsc& / 10000)
 LOCATE 6, 45
 PRINT "Popularity: "; pop% / 100

2054 FOR i% = 2 TO 76
 LOCATE 16, i%
 PRINT CHR$(196)
 NEXT i%

2056 IF loan% = 0 THEN
 loans& = 50000
 inter% = 500
 GOTO 2058
 END IF

 IF loan% = 1 THEN
 loans& = 70000
 inter% = 700
 GOTO 2058
 END IF

 IF loan% = 2 THEN
 loans& = 90000
 inter% = 1000
 GOTO 2058
 END IF

 IF loan% = 3 THEN
 loans& = 110000
 inter% = 1400
 GOTO 2058
 END IF

 IF loan% = 4 THEN
 loans& = 130000
 inter% = 1900
 GOTO 2058
 END IF

 IF loan% = 5 THEN
 inter% = 2500
 loans& = 150000
 GOTO 2058
 END IF

 IF loan% = 6 THEN
 inter% = 3200
 loans& = 170000
 GOTO 2058
 END IF

 IF loan% = 7 THEN
 inter% = 4000
 loans& = 190000
 GOTO 2058
 END IF

 IF loan% = 8 THEN
 inter% = 4900
 loans& = 210000
 GOTO 2058
 END IF

2058 LOCATE 18, 2
 PRINT "Interest for your loans (million USD): "; inter%

2100 LOCATE 20, 2
 INPUT "Do you want to buy Dollars (y/n) "; a$

2102 IF a$ = "y" THEN
 GOTO 2150
 END IF

2104 IF a$ = "n" THEN
 GOTO 2300

 ELSE
 GOTO 2000
 END IF

2150 IF loan% > 8 OR pm% > 4 THEN
 LOCATE 23, 2
 PRINT "Impossible. No-one wants your Rubles anymore."
 SLEEP 1
 GOTO 2300
 END IF

2200 LOCATE 22, 2
 INPUT "Give amount (1 to 30000) "; t%

2204 IF t% < 1 OR t% > 30000 THEN
 LOCATE 23, 2
 PRINT "Impossible."
 SLEEP 1
 GOTO 2000
 END IF

2206 a& = t%

2208 IF bankrub& < (a& * doom&) THEN
 LOCATE 23, 2
 PRINT "You have no enough Roubles."
 SLEEP 1
 LOCATE 22, 2
 PRINT "                                    "
 LOCATE 23, 2
 PRINT "                                    "
 GOTO 2100
 END IF

2210 bankusd& = bankusd& + a&
 bankrub& = bankrub& - (a& * doom&)
 LOCATE 23, 2
 PRINT "Done."
 SLEEP 1
 GOTO 2500

2300 LOCATE 20, 2
 PRINT "                                                                "
 LOCATE 22, 2
 PRINT "                                                                "
 LOCATE 23, 2
 PRINT "                                                                "

2302 LOCATE 20, 2
 INPUT "Do you want to buy Rubles (y/n) "; a$

2304 IF a$ = "y" THEN
 GOTO 2400
 END IF

2306 IF a$ = "n" THEN
 GOTO 1000

 ELSE
 GOTO 2300
 END IF

2400 LOCATE 22, 2
 INPUT "Give amount (1 to 900000) "; t&

2404 IF t& < 1 OR t& > 900000 THEN
 LOCATE 23, 2
 PRINT "Impossible."
 SLEEP 1
 GOTO 2300
 END IF

2408 IF bankusd& < (t& / doom&) THEN
 LOCATE 23, 2
 PRINT "You have no enough Dollars."
 SLEEP 1
 GOTO 2300
 END IF

2410 bankusd& = bankusd& - (t& / doom&)
 bankrub& = bankrub& + t&
 LOCATE 23, 2
 PRINT "Done."
 SLEEP 1
 LOCATE 23, 2
 PRINT "               "
 GOTO 2500

2500 LOCATE 13, 2
 PRINT "                                          "
 LOCATE 13, 2
 PRINT "Rosbank account (million USD): "; bankusd&
 LOCATE 15, 2
 PRINT "                                          "
 LOCATE 15, 2
 PRINT "Rosbank account (million RUB): "; bankrub&

2510 LOCATE 23, 2
 PRINT "                                                                   "

2511 LOCATE 23, 45
     PRINT "Press Esc to move on..."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

2512 GOTO 1000

3000 CLS

3002 FOR i% = 20 TO 61
 LOCATE 2, i%
 PRINT CHR$(205)
 NEXT i%

 FOR i% = 20 TO 61
 LOCATE 4, i%
 PRINT CHR$(205)
 NEXT i%

 LOCATE 2, 19
 PRINT CHR$(201)

 LOCATE 2, 62
 PRINT CHR$(187)

 LOCATE 4, 19
 PRINT CHR$(200)

 LOCATE 4, 62
 PRINT CHR$(188)

 LOCATE 3, 19
 PRINT CHR$(186)

 LOCATE 3, 62
 PRINT CHR$(186)

 LOCATE 3, 30
 PRINT "Loans & Printing Money"

 LOCATE 6, 2
 PRINT "Year: "; ann%

 LOCATE 6, 19
 PRINT "Month: "; month%

3042 IF ann% < 1991 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Mihail Gorbatshov."
 LOCATE 10, 2
 PRINT "Economic state:  Stagnation."
 GOTO 3050
 END IF

3043 IF ann% = 1991 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Mihail Gorbatshov."
 LOCATE 10, 2
 PRINT "Economic state:  Collapse."
 GOTO 3050
 END IF

3044 IF ann% > 1991 AND ann% < 1999 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Boris Jeltsin."
 LOCATE 10, 2
 PRINT "Economic state:  Collapse."
 GOTO 3050
 END IF

3045 IF ann% = 1999 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Boris Jeltsin."
 LOCATE 10, 2
 PRINT "Economic state:  Recovery."
 GOTO 3050
 END IF

3046 IF ann% > 1999 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Vladimir Putin."
 LOCATE 10, 2
 PRINT "Economic state:  Recovery."
 GOTO 3050
 END IF

3050 LOCATE 10, 45
 PRINT "Taken new loans: "; loan%; "times."

 LOCATE 8, 45
 PRINT "Printed money: "; pm%; "times."

3052 FOR i% = 2 TO 76
 LOCATE 11, i%
 PRINT CHR$(196)
 NEXT i%

 LOCATE 13, 2
 PRINT "Rosbank account (million USD): "; bankusd&
 LOCATE 15, 2
 PRINT "Rosbank account (million RUB): "; bankrub&
 LOCATE 13, 45
 PRINT "Rate for buying USD: "; doom&
 LOCATE 15, 45
 sellsc& = 10000 * (1 / doom&)
 PRINT "Rate for selling USD: "; (sellsc& / 10000)
 LOCATE 6, 45
 PRINT "Popularity: "; pop% / 100

3054 FOR i% = 2 TO 76
 LOCATE 18, i%
 PRINT CHR$(196)
 NEXT i%

3056 IF loan% = 0 THEN
 loans& = 50000
 inter% = 500
 GOTO 3058
 END IF

 IF loan% = 1 THEN
 loans& = 70000
 inter% = 700
 GOTO 3058
 END IF

 IF loan% = 2 THEN
 loans& = 90000
 inter% = 1000
 GOTO 3058
 END IF

 IF loan% = 3 THEN
 loans& = 110000
 inter% = 1400
 GOTO 3058
 END IF

 IF loan% = 4 THEN
 loans& = 130000
 inter% = 1900
 GOTO 3058
 END IF

 IF loan% = 5 THEN
 inter% = 2500
 loans& = 150000
 GOTO 3058
 END IF

 IF loan% = 6 THEN
 inter% = 3200
 loans& = 170000
 GOTO 3058
 END IF

 IF loan% = 7 THEN
 inter% = 4000
 loans& = 190000
 GOTO 3058
 END IF

 IF loan% = 8 THEN
 inter% = 4900
 loans& = 210000
 GOTO 3058
 END IF

3058 LOCATE 17, 2
 PRINT "Foreign loans (million USD): "; loans&

3059 LOCATE 17, 45
 PRINT "Inter. for your loans: "; inter%

3060 IF visita% = 1 THEN
 GOTO 3400

 ELSE
 visita% = 1
 GOTO 3100
 END IF

3100 IF oops% = 1 THEN
 LOCATE 20, 2
 PRINT "You are not allowed to take loans."
 SLEEP 2
 GOTO 3300

 ELSE
 GOTO 3101
 END IF

3101 LOCATE 20, 2
 INPUT "Want to take a 20,000 million loan from foreign banks (y/n) "; a$

3102 IF a$ = "y" THEN
 loan% = loan% + 1
 GOTO 3150
 END IF

3104 IF a$ = "n" THEN
 GOTO 3300

 ELSE
 GOTO 3000
 END IF

3150 IF loan% > 8 THEN
 loan% = 8
 LOCATE 23, 2
 PRINT "Impossible. You have taken maximum number of loans."
 SLEEP 2
 GOTO 3300

 ELSE
 GOTO 3160
 END IF

3160 IF pm% > 4 THEN
 LOCATE 23, 2
 PRINT "Impossible. No-one wants to give you any loans."
 SLEEP 2
 GOTO 3300

 ELSE
 GOTO 3200
 END IF

3200 bankusd& = bankusd& + 20000
 visita% = 1
 LOCATE 23, 2
 PRINT "Done."
 SLEEP 1
 GOTO 3210

3210 IF loan% = 1 THEN
 loans& = 70000
 inter% = 700
 GOTO 3480
 END IF

 IF loan% = 2 THEN
 loans& = 90000
 inter% = 1000
 GOTO 3480
 END IF

 IF loan% = 3 THEN
 loans& = 110000
 inter% = 1400
 GOTO 3480
 END IF

 IF loan% = 4 THEN
 loans& = 130000
 inter% = 1900
 GOTO 3480
 END IF

 IF loan% = 5 THEN
 inter% = 2500
 loans& = 150000
 GOTO 3480
 END IF

 IF loan% = 6 THEN
 inter% = 3200
 loans& = 170000
 GOTO 3480
 END IF

 IF loan% = 7 THEN
 inter% = 4000
 loans& = 190000
 GOTO 3480
 END IF

 IF loan% = 8 THEN
 inter% = 4900
 loans& = 210000
 GOTO 3480
 END IF

3300 LOCATE 20, 2
 PRINT "                                                                    "
 LOCATE 23, 2
 PRINT "                                                                    "

3302 LOCATE 20, 2
 INPUT "Do you want to create money out of thin air (y/n) "; a$

3304 IF a$ = "y" THEN
 pm% = pm% + 1
 GOTO 3308
 END IF

3306 IF a$ = "n" THEN
 GOTO 3500

 ELSE
 GOTO 3300
 END IF

3308 IF pm% > 9 THEN
 pm% = 9
 LOCATE 23, 2
 PRINT "Impossible. You have printed maximum number of money."
 SLEEP 1
 GOTO 3500

 ELSE
 GOTO 3310
 END IF

3310 IF pm% = 1 THEN
 pmi& = 60000
 GOTO 3320
 END IF

3311 IF pm% = 2 THEN
 pmi& = 70000
 GOTO 3320
 END IF

3312 IF pm% = 3 THEN
 pmi& = 90000
 GOTO 3320
 END IF

3313 IF pm% = 4 THEN
 pmi& = 120000
 GOTO 3320
 END IF

3314 IF pm% = 5 THEN
 pmi& = 160000
 GOTO 3320
 END IF

3315 IF pm% = 6 THEN
 pmi& = 210000
 GOTO 3320
 END IF

3316 IF pm% = 7 THEN
 pmi& = 270000
 GOTO 3320
 END IF

3317 IF pm% = 8 THEN
 pmi& = 340000
 GOTO 3320
 END IF

3318 IF pm% = 9 THEN
 pmi& = 420000
 GOTO 3320
 END IF

3320 bankrub& = bankrub& + pmi&
 doom& = doom& * 2
 visita% = 1
 LOCATE 23, 2
 PRINT "Done."
 SLEEP 1
 GOTO 3370

3370 LOCATE 13, 45
 PRINT "                                "
 LOCATE 13, 45
 PRINT "Rate for buying USD: "; doom&

3372 LOCATE 15, 45
 PRINT "                                "
 LOCATE 15, 45
 sellsc& = 10000 * (1 / doom&)
 PRINT "Rate for selling USD: "; (sellsc& / 10000)

3374 LOCATE 6, 45
 PRINT "                                "
 LOCATE 6, 45
 PRINT "Popularity: "; pop% / 100

3378 LOCATE 8, 45
 PRINT "Printed money: "; pm%; "times."
 GOTO 3500

3400 LOCATE 20, 2
 PRINT "                                                                "
 LOCATE 23, 2
 PRINT "                                                                "

3402 LOCATE 20, 2
 PRINT "One visit per month."
 SLEEP 1
 GOTO 3510

3480 LOCATE 17, 2
 PRINT "Foreign loans (million USD): "; loans&

3482 LOCATE 17, 45
 PRINT "Inter. for your loans: "; inter%

3484 LOCATE 10, 45
 PRINT "Taken new loans: "; loan%; "times."

3500 LOCATE 13, 2
 PRINT "                                          "
 LOCATE 13, 2
 PRINT "Rosbank account (million USD): "; bankusd&

 LOCATE 15, 2
 PRINT "                                          "
 LOCATE 15, 2
 PRINT "Rosbank account (million RUB): "; bankrub&

3510 LOCATE 23, 2
 PRINT "                                                                   "

3511 LOCATE 23, 2
     PRINT "Press Esc to move on..."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

3512 GOTO 1000

4000 CLS

4002 FOR i% = 20 TO 60
 LOCATE 2, i%
 PRINT CHR$(205)
 NEXT i%

 FOR i% = 20 TO 60
 LOCATE 4, i%
 PRINT CHR$(205)
 NEXT i%

 LOCATE 2, 19
 PRINT CHR$(201)

 LOCATE 2, 61
 PRINT CHR$(187)

 LOCATE 4, 19
 PRINT CHR$(200)

 LOCATE 4, 61
 PRINT CHR$(188)

 LOCATE 3, 19
 PRINT CHR$(186)

 LOCATE 3, 61
 PRINT CHR$(186)

 LOCATE 3, 34
 PRINT "Average Citizen"

 LOCATE 6, 2
 PRINT "Year: "; ann%

 LOCATE 6, 19
 PRINT "Month: "; month%

4042 IF ann% < 1991 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Mihail Gorbatshov."
 LOCATE 10, 2
 PRINT "Economic state:  Stagnation."
 GOTO 4050
 END IF

4043 IF ann% = 1991 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Mihail Gorbatshov."
 LOCATE 10, 2
 PRINT "Economic state:  Collapse."
 GOTO 4050
 END IF

4044 IF ann% > 1991 AND ann% < 1999 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Boris Jeltsin."
 LOCATE 10, 2
 PRINT "Economic state:  Collapse."
 GOTO 4050
 END IF

4045 IF ann% = 1999 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Boris Jeltsin."
 LOCATE 10, 2
 PRINT "Economic state:  Recovery."
 GOTO 4050
 END IF

4046 IF ann% > 1999 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Vladimir Putin."
 LOCATE 10, 2
 PRINT "Economic state:  Recovery."
 GOTO 4050
 END IF

4050 LOCATE 10, 45
 PRINT "Taken new loans: "; loan%; "times."

 LOCATE 8, 45
 PRINT "Printed money: "; pm%; "times."

4052 FOR i% = 2 TO 76
 LOCATE 11, i%
 PRINT CHR$(196)
 NEXT i%

 LOCATE 13, 2
 PRINT "Rosbank account (million USD): "; bankusd&
 LOCATE 15, 2
 PRINT "Rosbank account (million RUB): "; bankrub&
 LOCATE 13, 45
 PRINT "Rate for buying USD: "; doom&
 LOCATE 15, 45
 sellsc& = 10000 * (1 / doom&)
 PRINT "Rate for selling USD: "; (sellsc& / 10000)
 LOCATE 6, 45
 PRINT "Popularity: "; pop% / 100

4054 FOR i% = 2 TO 76
 LOCATE 18, i%
 PRINT CHR$(196)
 NEXT i%

4056 LOCATE 17, 45
 PRINT "Excess mortality: "; excd&

4058 LOCATE 17, 2
 usdsal% = (salary& / 100) / doom&
 PRINT "Average salary (USD): "; usdsal%

4060 IF visitb% = 1 THEN
 GOTO 4400

 ELSE
 visitb% = 1
 GOTO 4070
 END IF

4070 IF usdsal% < 100 THEN
 GOTO 4100

 ELSE
 GOTO 4300
 END IF

4100 LOCATE 20, 2
 PRINT "Worker's monthly salary less than 100 Dollars."
 SLEEP 2

 LOCATE 20, 2
 PRINT "                                                        "
 LOCATE 20, 2
 PRINT "They have reason to be angry... They demand 100 % salary rise."
 SLEEP 2

4101 LOCATE 20, 2
 PRINT "                                                                "

4102 LOCATE 20, 2
 INPUT "Do you want to give such promise (y/n) "; a$

4103 IF a$ = "y" THEN
 salary& = salary& * 2
 visitb% = 1
 pop% = pop% + 1000
 LOCATE 23, 2
 PRINT "Done."
 SLEEP 1
 GOTO 4210
 END IF

4104 IF a$ = "n" THEN
 visitb% = 1
 LOCATE 23, 2
 PRINT "As you wish."
 SLEEP 1
 GOTO 4200

 ELSE
 GOTO 4000
 END IF

4200 IF pop% < 1000 THEN
 LOCATE 23, 2
 PRINT "                                                            "
 LOCATE 23, 2
 PRINT "Your popularity is under ten percent. Game is over."
 SLEEP 2
 GOTO 10000

 ELSE
 GOTO 4500
 END IF

4210 IF pop% > 10000 THEN
 pop% = 10000
 END IF

4220 GOTO 4500

4300 LOCATE 20, 2
 PRINT "                                                                    "
 LOCATE 23, 2
 PRINT "                                                                    "

4302 LOCATE 20, 2
 INPUT "Do you want to promise to give a 10 % salary rise (y/n) "; a$

4304 IF a$ = "y" THEN
 salary& = salary& + (salary& / 10)
 visitb% = 1
 pop% = pop% + 500
 LOCATE 23, 2
 PRINT "Done."
 SLEEP 1
 GOTO 4310
 END IF

4306 IF a$ = "n" THEN
 visitb% = 1
 LOCATE 23, 2
 PRINT "As you wish."
 SLEEP 1
 GOTO 4500

 ELSE
 GOTO 4300
 END IF

4310 IF pop% > 10000 THEN
 pop% = 10000
 END IF

4312 GOTO 4500

4400 LOCATE 20, 2
 PRINT "                                                                    "
 LOCATE 23, 2
 PRINT "                                                                    "

4402 LOCATE 20, 2
 PRINT "One visit per month."
 SLEEP 1
 GOTO 4510

4500 LOCATE 17, 45
 PRINT "Excess mortality: "; excd&

 LOCATE 17, 2
 PRINT "                                  "
 LOCATE 17, 2
 usdsal% = (salary& / 100) / doom&
 PRINT "Average salary (USD): "; usdsal%

 LOCATE 6, 45
 PRINT "                                  "
 LOCATE 6, 45
 PRINT "Popularity: "; pop% / 100

4510 LOCATE 23, 2
 PRINT "                                                                   "

4511 LOCATE 23, 2
     PRINT "Press Esc to move on..."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

4512 GOTO 1000

5000 CLS
 LOCATE 2, 2
 PRINT "Year: "; ann%

 LOCATE 2, 19
 PRINT "Month: "; month%

5042 IF ann% < 1991 THEN
 LOCATE 4, 2
 PRINT "Supreme leader:  Mihail Gorbatshov."
 LOCATE 6, 2
 PRINT "Economic state:  Stagnation."
 GOTO 5050
 END IF

5043 IF ann% = 1991 THEN
 LOCATE 4, 2
 PRINT "Supreme leader:  Mihail Gorbatshov."
 LOCATE 6, 2
 PRINT "Economic state:  Collapse."
 GOTO 5050
 END IF

5044 IF ann% > 1991 AND ann% < 1999 THEN
 LOCATE 4, 2
 PRINT "Supreme leader:  Boris Jeltsin."
 LOCATE 6, 2
 PRINT "Economic state:  Collapse."
 GOTO 5050
 END IF

5045 IF ann% = 1999 THEN
 LOCATE 4, 2
 PRINT "Supreme leader:  Boris Jeltsin."
 LOCATE 6, 2
 PRINT "Economic state:  Recovery."
 GOTO 5050
 END IF

5046 IF ann% > 1999 THEN
 LOCATE 4, 2
 PRINT "Supreme leader:  Vladimir Putin."
 LOCATE 6, 2
 PRINT "Economic state:  Recovery."
 GOTO 5050
 END IF

5050 LOCATE 4, 45
 PRINT "Taken new loans: "; loan%; "times."

 LOCATE 6, 45
 PRINT "Printed money: "; pm%; "times."

5051 FOR i% = 2 TO 76
 LOCATE 7, i%
 PRINT CHR$(196)
 NEXT i%

5052 LOCATE 9, 2
 PRINT "Rosbank account (million USD): "; bankusd&
 LOCATE 11, 2
 PRINT "Rosbank account (million RUB): "; bankrub&
 LOCATE 9, 45
 PRINT "Rate for buying USD: "; doom&
 LOCATE 11, 45
 sellsc& = 10000 * (1 / doom&)
 PRINT "Rate for selling USD: "; (sellsc& / 10000)
 LOCATE 2, 45
 PRINT "Popularity: "; pop% / 100
 LOCATE 13, 2
 PRINT "You have loans (million USD): "; loans&
 LOCATE 13, 45
 PRINT "Excess Mortality: "; excd&

5054 FOR i% = 2 TO 76
 LOCATE 14, i%
 PRINT CHR$(196)
 NEXT i%

5056 IF loan% = 0 THEN
 loans& = 50000
 inter% = 500
 GOTO 5058
 END IF

 IF loan% = 1 THEN
 loans& = 70000
 inter% = 700
 GOTO 5058
 END IF

 IF loan% = 2 THEN
 loans& = 90000
 inter% = 1000
 GOTO 5058
 END IF

 IF loan% = 3 THEN
 loans& = 110000
 inter% = 1400
 GOTO 5058
 END IF
 
 IF loan% = 4 THEN
 loans& = 130000
 inter% = 1900
 GOTO 5058
 END IF

 IF loan% = 5 THEN
 inter% = 2500
 loans& = 150000
 GOTO 5058
 END IF

 IF loan% = 6 THEN
 inter% = 3200
 loans& = 170000
 GOTO 5058
 END IF

 IF loan% = 7 THEN
 inter% = 4000
 loans& = 190000
 GOTO 5058
 END IF

 IF loan% = 8 THEN
 inter% = 4900
 loans& = 210000
 GOTO 5058
 END IF

5058 IF pop% < 1000 THEN
 LOCATE 23, 2
 PRINT "                                                            "
 LOCATE 23, 2
 PRINT "Your popularity is under ten percent. Game is over."
 SLEEP 2
 GOTO 10000
 END IF

5059 circu& = last& * (kier% / 100)

 IF cut% = 1 THEN
 circu& = (circu& / 2)
 cut% = 0
 END IF

5060 LOCATE 16, 2
 cmpj% = cmpa% + cmpb% + cmpc% + cmpd% + cmpe% + cmpf% + cmpg% + cmph% + cmpi%
 exposc% = (export& / 12) - slow% - cmpj% - onn% + perma% + permb%

5061 IF exposc% < 0 THEN
 esposc% = 1
 END IF

5062 PRINT "Summary from last month."
 LOCATE 18, 2
 PRINT "Export - (million USD): "; exposc%
 LOCATE 20, 2
 PRINT "Circulating money back - (million RUB): "; circu&

 bankusd& = bankusd& + exposc%
 bankrub& = bankrub& + circu&
 permb% = 0

5063 LOCATE 23, 2
     PRINT "Press Esc to move on..."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

5064 LOCATE 9, 2
 PRINT "Rosbank account (million USD): "; bankusd&
 LOCATE 11, 2
 PRINT "Rosbank account (million RUB): "; bankrub&

5070 LOCATE 16, 2
 PRINT "                                                            "
 LOCATE 18, 2
 PRINT "                                                            "
 LOCATE 20, 2
 PRINT "                                                            "
 LOCATE 23, 2
 PRINT "                                                            "

5074 LOCATE 16, 2
 PRINT "Do you want to pay interest for your loan ?"
 LOCATE 18, 2
 PRINT "Payment (million USD): "; inter%
 LOCATE 20, 2
 PRINT "'No' means your country is bankrupt and game is over."

5076 LOCATE 23, 2
 PRINT "                                     "

 LOCATE 23, 2
 INPUT "Type (y/n) "; a$

5078 IF a$ = "y" THEN
 GOTO 5080
 END IF

 IF a$ = "n" THEN
 GOTO 10000

 ELSE
 LOCATE 23, 2
 PRINT "Out of range.    "
 SLEEP 1
 GOTO 5076
 END IF

5080 IF inter% > bankusd& THEN
 LOCATE 23, 2
 PRINT "                                                     "
 LOCATE 23, 2
 PRINT "You have no enough Dollars at the bank. Game is over."
 SLEEP 2
 GOTO 10000

 ELSE
 bankusd& = bankusd& - inter%
 GOTO 5084
 END IF

5084 LOCATE 9, 2
 PRINT "                                          "
 LOCATE 9, 2
 PRINT "Rosbank account (million USD): "; bankusd&

 LOCATE 11, 2
 PRINT "                                          "
 LOCATE 11, 2
 PRINT "Rosbank account (million RUB): "; bankrub&

5090 FOR i% = 16 TO 23
 LOCATE i%, 2
 PRINT "                                                            "
 NEXT i%

5092 LOCATE 16, 2
 PRINT "Do you want to pay salary for the hard working Russian citizens ?"

 LOCATE 18, 2
 PRINT "Promised salary (million RUB): "; salary&

 LOCATE 20, 4
 PRINT "1 - Pay full salary."
 LOCATE 21, 4
 PRINT "2 - Pay half of the salary."

5094 LOCATE 23, 2
 PRINT "                                                              "
 LOCATE 23, 2
 INPUT "Type '1' or '2' "; a$

5096 IF a$ = "1" THEN
 GOTO 6000
 END IF

 IF a$ = "2" THEN
 GOTO 6010

 ELSE
 LOCATE 23, 2
 PRINT "Out of range.          "
 SLEEP 1
 GOTO 5094
 END IF

6000 IF salary& > bankrub& THEN
 LOCATE 23, 2
 PRINT "                                          "
 LOCATE 23, 2
 PRINT "You have no enough Rubles at the bank."
 SLEEP 2
 LOCATE 23, 2
 PRINT "                                          "
 LOCATE 23, 2
 PRINT "Try to pay half of the salary."
 SLEEP 2
 GOTO 5090

 ELSE
 bankrub& = bankrub& - salary&
 GOTO 6020
 END IF

6010 IF (salary& / 2) > bankrub& THEN
 LOCATE 23, 2
 PRINT "                                                     "
 LOCATE 23, 2
 PRINT "You have no enough Rubles at the bank. Game is over."
 SLEEP 2
 GOTO 10000

 ELSE
 bankrub& = bankrub& - (salary& / 2)
 pop% = (pop% / 10) * 6
 slow% = slow% + 2
 cut% = 1
 GOTO 6020
 END IF

6020 LOCATE 11, 2
 PRINT "                                          "
 LOCATE 11, 2
 PRINT "Rosbank account (million RUB): "; bankrub&

 LOCATE 2, 45
 PRINT "                        "
 LOCATE 2, 45
 PRINT "Popularity: "; pop% / 100

6022 IF pop% < 1000 THEN
 LOCATE 23, 2
 PRINT "                                                            "
 LOCATE 23, 2
 PRINT "Your popularity is under ten percent. Game is over."
 SLEEP 2
 GOTO 10000
 END IF

6030 FOR i% = 16 TO 23
 LOCATE i%, 2
 PRINT "                                                                  "
 NEXT i%

6074 LOCATE 16, 2
 foodsc% = (foodim% / 12)
 PRINT "Do you want to buy food for Dollars ?"
 LOCATE 18, 2
 PRINT "Payment (million USD): "; foodsc%
 LOCATE 20, 2
 PRINT "'No' means possible deaths due to malnutrition."

6076 LOCATE 23, 2
 PRINT "                                     "

 LOCATE 23, 2
 INPUT "Type (y/n) "; a$

6078 IF a$ = "y" THEN
 GOTO 6080
 END IF

 IF a$ = "n" THEN
 GOTO 6500

 ELSE
 LOCATE 23, 2
 PRINT "Out of range.    "
 SLEEP 1
 GOTO 6076
 END IF

6080 IF foodsc% > bankusd& THEN
 LOCATE 23, 2
 PRINT "                                                     "
 LOCATE 23, 2
 PRINT "You have no enough Dollars at the bank. Lack of food."
 SLEEP 2
 GOTO 6500

 ELSE
 bankusd& = bankusd& - foodsc%
 GOTO 6084
 END IF

6084 LOCATE 9, 2
 PRINT "                                          "
 LOCATE 9, 2
 PRINT "Rosbank account (million USD): "; bankusd&

 LOCATE 2, 45
 PRINT "                        "
 LOCATE 2, 45
 PRINT "Popularity: "; pop% / 100

 LOCATE 13, 45
 PRINT "                           "
 LOCATE 13, 45
 PRINT "Excess Mortality: "; excd&

6086 IF pop% < 1000 THEN
 LOCATE 23, 2
 PRINT "                                                            "
 LOCATE 23, 2
 PRINT "Your popularity is under ten percent. Game is over."
 SLEEP 2
 GOTO 10000
 END IF

6090 FOR i% = 16 TO 23
 LOCATE i%, 2
 PRINT "                                                            "
 NEXT i%

6174 LOCATE 16, 2
 medsc% = (medim% / 12)
 PRINT "Do you want to buy medicine for Dollars ?"
 LOCATE 18, 2
 PRINT "Payment (million USD): "; medsc%
 LOCATE 20, 2
 PRINT "'No' means possible deaths due to lack of medicine."

6176 LOCATE 23, 2
 PRINT "                                     "

 LOCATE 23, 2
 INPUT "Type (y/n) "; a$

6178 IF a$ = "y" THEN
 GOTO 6180
 END IF

 IF a$ = "n" THEN
 pop% = pop% - 200
 excd& = excd& + 80
 GOTO 6184

 ELSE
 LOCATE 23, 2
 PRINT "Out of range.    "
 SLEEP 1
 GOTO 6176
 END IF

6180 IF medsc% > bankusd& THEN
 LOCATE 23, 2
 PRINT "                                                     "
 LOCATE 23, 2
 PRINT "You have no enough Dollars at the bank. Lack of medicine."
 pop% = pop% - 200
 excd& = excd& + 80
 SLEEP 2
 GOTO 6184

 ELSE
 bankusd& = bankusd& - medsc%
 GOTO 6184
 END IF

6184 LOCATE 9, 2
 PRINT "                                         "
 LOCATE 9, 2
 PRINT "Rosbank account (million USD): "; bankusd&

 LOCATE 2, 45
 PRINT "                        "
 LOCATE 2, 45
 PRINT "Popularity: "; pop% / 100

 LOCATE 13, 45
 PRINT "                           "
 LOCATE 13, 45
 PRINT "Excess Mortality: "; excd&

6186 IF pop% < 1000 THEN
 LOCATE 23, 2
 PRINT "                                                            "
 LOCATE 23, 2
 PRINT "Your popularity is under ten percent. Game is over."
 SLEEP 2
 GOTO 10000
 END IF

6190 FOR i% = 16 TO 23
 LOCATE i%, 2
 PRINT "                                                            "
 NEXT i%

6274 LOCATE 16, 2
 compsc% = (compim% / 12)
 PRINT "Do you want to buy vital components for Dollars ?"
 LOCATE 18, 2
 PRINT "Payment (million USD): "; compsc%
 LOCATE 20, 2
 PRINT "'No' means possible slowdown of production."

6276 LOCATE 23, 2
 PRINT "                                     "

 LOCATE 23, 2
 INPUT "Type (y/n) "; a$

6278 IF a$ = "y" THEN
 GOTO 6280
 END IF

 IF a$ = "n" THEN
 pop% = pop% - 100
 excd& = excd& + 10
 slow% = slow% + 18
 GOTO 6284

 ELSE
 LOCATE 23, 2
 PRINT "Out of range.    "
 SLEEP 1
 GOTO 6276
 END IF

6280 IF compsc% > bankusd& THEN
 LOCATE 23, 2
 PRINT "                                                     "
 LOCATE 23, 2
 PRINT "You have no enough Dollars at the bank. Lack of components."
 pop% = pop% - 100
 excd& = excd& + 10
 slow% = slow% + 18
 SLEEP 2
 GOTO 6284

 ELSE
 bankusd& = bankusd& - compsc%
 slow% = slow% - 2
 excd& = excd& - 5
 GOTO 6284
 END IF

6284 LOCATE 9, 2
 PRINT "                                         "
 LOCATE 9, 2
 PRINT "Rosbank account (million USD): "; bankusd&

 LOCATE 2, 45
 PRINT "                        "
 LOCATE 2, 45
 PRINT "Popularity: "; pop% / 100

 LOCATE 13, 45
 PRINT "                           "
 LOCATE 13, 45
 PRINT "Excess Mortality: "; excd&

6290 FOR i% = 16 TO 23
 LOCATE i%, 2
 PRINT "                                                            "
 NEXT i%

6292 IF pop% < 1000 THEN
 LOCATE 23, 2
 PRINT "                                                            "
 LOCATE 23, 2
 PRINT "Your popularity is under ten percent. Game is over."
 SLEEP 2
 GOTO 10000
 END IF

6294 LOCATE 23, 2
     PRINT "Press Esc to move on."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

6296 kk& = kk& + 1
 month% = month% + 1

6297 IF month% > 12 THEN
 month% = 1
 ann% = ann% + 1
 END IF

6298 IF ann% = 2003 THEN
 LOCATE 23, 2
 PRINT "You reached the year 2003. Game is over."
 SLEEP 2
 GOTO 10000

 ELSE
 visita% = 0
 visitb% = 0
 visitc% = 0
 last& = salary&
 GOTO 6300
 END IF

6300 IF ann% < 1989 THEN
 kier% = 98
 GOTO 6400
 END IF

6301 IF ann% = 1989 THEN
 kier% = 97
 GOTO 6400
 END IF

6302 IF ann% = 1990 THEN
 kier% = 95
 GOTO 6400
 END IF

6303 IF ann% = 1991 THEN
 kier% = 90
 GOTO 6400
 END IF

6304 IF ann% = 1992 THEN
 kier% = 85
 GOTO 6400
 END IF

6305 IF ann% > 1992 AND ann% < 1999 THEN
 kier% = 80
 GOTO 6400
 END IF

6306 IF ann% = 1999 THEN
 kier% = 82
 GOTO 6400
 END IF

6307 IF ann% = 2000 THEN
 kier% = 84
 GOTO 6400
 END IF

6308 IF ann% = 2001 THEN
 kier% = 86
 GOTO 6400
 END IF

6309 IF ann% = 2002 THEN
 kier% = 88
 GOTO 6400
 END IF

6400 IF ann% = 1986 THEN
 export& = (22000 * lev&) / 10
 foodim% = 14000
 medim% = 4000
 compim% = 10000
 hunger% = 700
 GOTO 6900
 END IF

6401 IF ann% = 1987 THEN
 export& = (27000 * lev&) / 10
 foodim% = 15000
 medim% = 5000
 compim% = 6000
 hunger% = 800
 GOTO 6900
 END IF

6402 IF ann% = 1988 THEN
 export& = (28000 * lev&) / 10
 foodim% = 16000
 medim% = 6000
 compim% = 10000
 hunger% = 900
 GOTO 6900
 END IF

6403 IF ann% = 1989 THEN
 export& = (25000 * lev&) / 10
 foodim% = 18000
 medim% = 6000
 compim% = 14000
 hunger% = 1000
 GOTO 6900
 END IF

6404 IF ann% = 1990 THEN
 export& = (25000 * lev&) / 10
 foodim% = 16000
 medim% = 5000
 compim% = 13000
 hunger% = 900
 GOTO 6900
 END IF

6405 IF ann% = 1991 THEN
 export& = (22000 * lev&) / 10
 foodim% = 16000
 medim% = 5000
 compim% = 11000
 hunger% = 900
 GOTO 6900
 END IF

6406 IF ann% = 1992 THEN
 export& = (19000 * lev&) / 10
 foodim% = 14000
 medim% = 6000
 compim% = 10000
 hunger% = 700
 GOTO 6900
 END IF

6407 IF ann% = 1993 THEN
 export& = (16000 * lev&) / 10
 foodim% = 12000
 medim% = 6000
 compim% = 10000
 hunger% = 500
 GOTO 6900
 END IF

6408 IF ann% = 1994 THEN
 export& = (14000 * lev&) / 10
 foodim% = 10000
 medim% = 6000
 compim% = 10000
 hunger% = 300
 GOTO 6900
 END IF

6409 IF ann% = 1995 THEN
 export& = (12000 * lev&) / 10
 foodim% = 8000
 medim% = 6000
 compim% = 10000
 hunger% = 100
 GOTO 6900
 END IF

6410 IF ann% = 1996 THEN
 export& = (11000 * lev&) / 10
 foodim% = 6000
 medim% = 7000
 compim% = 10000
 hunger% = 0
 GOTO 6900
 END IF

6411 IF ann% = 1997 THEN
 export& = (10000 * lev&) / 10
 foodim% = 5000
 medim% = 7000
 compim% = 10000
 hunger% = 0
 GOTO 6900
 END IF

6412 IF ann% = 1998 THEN
 export& = (8000 * lev&) / 10
 foodim% = 4000
 medim% = 7000
 compim% = 10000
 hunger% = 0
 GOTO 6900
 END IF

6413 IF ann% = 1999 THEN
 export& = (10000 * lev&) / 10
 foodim% = 3000
 medim% = 7000
 compim% = 10000
 hunger% = 0
 GOTO 6900
 END IF

6414 IF ann% = 2000 THEN
 export& = (13000 * lev&) / 10
 foodim% = 2000
 medim% = 7000
 compim% = 10000
 hunger% = 0
 GOTO 6900
 END IF

6415 IF ann% = 2001 THEN
 export& = (16000 * lev&) / 10
 foodim% = 1000
 medim% = 7000
 compim% = 10000
 hunger% = 0
 GOTO 6900
 END IF

6416 IF ann% = 2002 THEN
 export& = (19000 * lev&) / 10
 foodim% = 1000
 medim% = 7000
 compim% = 10000
 hunger% = 0
 GOTO 6900
 END IF

6500 FOR i% = 16 TO 23
 LOCATE i%, 2
 PRINT "                                                                 "
 NEXT i%

6502 LOCATE 16, 2
 foo& = foodim%
 eat& = (foo& * 45)
 PRINT "Do you want to take food from Strategic Reserves ?"
 LOCATE 18, 2
 PRINT "Need for food: "; eat&
 LOCATE 20, 2
 PRINT "                                 "

6506 LOCATE 23, 2
 PRINT "                                     "
 LOCATE 23, 2
 INPUT "Type (y/n) "; a$

6508 IF a$ = "y" THEN
 GOTO 6600
 END IF

 IF a$ = "n" THEN
 LOCATE 16, 2
 PRINT "Your popularity just fell by 60 %.                "
 LOCATE 18, 2
 PRINT "                                  "
 pop% = (pop% / 10) * 4
 excd& = excd& + hunger%
 SLEEP 1
 GOTO 6510

 ELSE
 LOCATE 23, 2
 PRINT "Out of range."
 SLEEP 1
 GOTO 6506
 END IF

6510 LOCATE 23, 2
     PRINT "Press Esc to move on."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

6512 GOTO 6084

6600 FOR i% = 16 TO 23
 LOCATE i%, 2
 PRINT "                                                                 "
 NEXT i%

6602 IF eat& > (rese& + 1) THEN
 LOCATE 16, 2
 PRINT "You don't have enough food in the Reserves."
 LOCATE 18, 2
 PRINT "Also, your popularity just fell by 60 %.                "
 SLEEP 1
 pop% = (pop% / 10) * 4
 excd& = excd& + hunger%
 GOTO 6604

 ELSE
 LOCATE 20, 2
 PRINT "Done."
 rese& = rese& - eat&
 SLEEP 1
 GOTO 6084
 END IF

6604 LOCATE 23, 2
     PRINT "Press Esc to move on."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

6606 GOTO 6084

6900 REM Worker's salary below 100 USD?

6901 usdsal% = (salary& / 100) / doom&
 foo& = foodim%
 eat& = foo& * 45

6902 IF usdsal% < 100 THEN
 shri% = 800
 GOTO 7000

 ELSE
 shri% = 0
 GOTO 6910
 END IF

6910 IF loan% > 6 AND bankusd& < 6000 THEN
 GOTO 6920

 ELSE
 GOTO 9500
 END IF

6920 REM === Confiscated?

6921 CLS
 IF oops% = 1 THEN
 LOCATE 6, 6
 PRINT "Your Dollar reserve is getting thin but..."
 LOCATE 8, 6
 PRINT "You have confiscated companies you previously sold."
 LOCATE 10, 6
 PRINT "You can not sell these again."
 SLEEP 2
 GOTO 9500

 ELSE
 GOTO 6930
 END IF

6930 REM == Sold all nine?

 IF sold% = 9 THEN
 LOCATE 6, 6
 PRINT "Your Dollar reserve is getting thin but..."
 LOCATE 8, 6
 PRINT "You have sold all nine companies."
 LOCATE 10, 6
 PRINT "You can not sell any more."
 LOCATE 13, 6
 PRINT "One thing you can do..."
 GOTO 6935

 ELSE
 GOTO 7030
 END IF

6935 LOCATE 23, 2
     PRINT "Press Esc to move on..."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

6936 GOTO 9950

7000 CLS

7010 FOR i% = 20 TO 61
 LOCATE 2, i%
 PRINT CHR$(205)
 NEXT i%

 FOR i% = 20 TO 61
 LOCATE 4, i%
 PRINT CHR$(205)
 NEXT i%

 LOCATE 2, 19
 PRINT CHR$(201)

 LOCATE 2, 62
 PRINT CHR$(187)

 LOCATE 4, 19
 PRINT CHR$(200)

 LOCATE 4, 62
 PRINT CHR$(188)

 LOCATE 3, 19
 PRINT CHR$(186)

 LOCATE 3, 62
 PRINT CHR$(186)

 LOCATE 3, 37
 PRINT "ALERT !!"

7020 LOCATE 8, 3
 PRINT "Worker's average monthly salary below 100 USD."

 LOCATE 10, 3
 PRINT "They are struggling to feed themselves during skyrocketing inflation."

 LOCATE 12, 3
 PRINT "Your popularity has shrank by eight percent."

 LOCATE 14, 3
 PRINT "I advise you to visit to 'Average Citizen' and give then 100 percent"

 LOCATE 15, 3
 PRINT "salary rise."

7021 IF usdsal% < 50 THEN
 shri% = 1600
 SLEEP 2
 LOCATE 17, 3
 PRINT "Even worse... Monthly salary below 50 USD."
 LOCATE 19, 3
 PRINT "Your popularity has shrank another eight percent."

 ELSE
 GOTO 7022
 END IF

7022 LOCATE 23, 2
     PRINT "Press Esc to move on."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

7024 pop% = pop% - shri%

7025 IF pop% < 1000 THEN
 GOTO 10000

 ELSE
 shri% = 0
 GOTO 6910
 END IF

7030 REM === Sell Companies

7035 CLS

7036 FOR i% = 20 TO 61
 LOCATE 2, i%
 PRINT CHR$(205)
 NEXT i%

 FOR i% = 20 TO 61
 LOCATE 4, i%
 PRINT CHR$(205)
 NEXT i%

 LOCATE 2, 19
 PRINT CHR$(201)

 LOCATE 2, 62
 PRINT CHR$(187)

 LOCATE 4, 19
 PRINT CHR$(200)

 LOCATE 4, 62
 PRINT CHR$(188)

 LOCATE 3, 19
 PRINT CHR$(186)

 LOCATE 3, 62
 PRINT CHR$(186)

 LOCATE 3, 34
 PRINT "Your Last Hope"

7040 LOCATE 6, 4
 PRINT "Your Dollar reserve is getting thin..."
 LOCATE 8, 4
 PRINT "You can sell 10 percent stake of these companies."
 LOCATE 10, 4
 PRINT "1 - GAZPROM        5,000 ... 30,000     Income cut:  20 ... 400"
 LOCATE 11, 4
 PRINT "2 - ROSNEFT        5,000 ... 30,000     Income cut:  20 ... 400"
 LOCATE 12, 4
 PRINT "3 - LUKOIL         5,000 ... 30,000     Income cut:  20 ... 400"
 LOCATE 13, 4
 PRINT "4 - AEROFLOT       1,000 ...  7,000     Income cut:  10 ... 100"
 LOCATE 14, 4
 PRINT "5 - AVTOVAZ        1,000 ...  7,000     Income cut:  10 ... 100"
 LOCATE 15, 4
 PRINT "6 - ROSATOM        1,000 ...  7,000     Income cut:  10 ... 100"
 LOCATE 16, 4
 PRINT "7 - NORILSK N.     1,000 ...  7,000     Income cut:  10 ... 100"
 LOCATE 17, 4
 PRINT "8 - TATNEFT        1,000 ...  7,000     Income cut:  10 ... 100"
 LOCATE 18, 4
 PRINT "9 - MAGNIT         1,000 ...  7,000     Income cut:  10 ... 100"
 LOCATE 19, 4
 PRINT "0 - No thanks."

7042 IF cma% = 1 THEN
 LOCATE 10, 70
 PRINT CHR$(1)
 END IF

 IF cmb% = 1 THEN
 LOCATE 11, 70
 PRINT CHR$(1)
 END IF

 IF cmc% = 1 THEN
 LOCATE 12, 70
 PRINT CHR$(1)
 END IF

 IF cmd% = 1 THEN
 LOCATE 13, 70
 PRINT CHR$(1)
 END IF

 IF cme% = 1 THEN
 LOCATE 14, 70
 PRINT CHR$(1)
 END IF

 IF cmf% = 1 THEN
 LOCATE 15, 70
 PRINT CHR$(1)
 END IF

 IF cmg% = 1 THEN
 LOCATE 16, 70
 PRINT CHR$(1)
 END IF

 IF cmh% = 1 THEN
 LOCATE 17, 70
 PRINT CHR$(1)
 END IF

 IF cmi% = 1 THEN
 LOCATE 18, 70
 PRINT CHR$(1)
 END IF

7050 LOCATE 21, 4
 INPUT "Type '1' to '9' "; a$

7051 IF a$ = "1" THEN
 GOTO 7100
 END IF

7052 IF a$ = "2" THEN
 GOTO 7200
 END IF

7053 IF a$ = "3" THEN
 GOTO 7300
 END IF

7054 IF a$ = "4" THEN
 GOTO 7400
 END IF

7055 IF a$ = "5" THEN
 GOTO 7500
 END IF

7056 IF a$ = "6" THEN
 GOTO 7600
 END IF

7057 IF a$ = "7" THEN
 GOTO 7700
 END IF

7058 IF a$ = "8" THEN
 GOTO 7800
 END IF

7059 IF a$ = "9" THEN
 GOTO 7900
 END IF

7060 IF a$ = "0" THEN
 GOTO 9500

 ELSE
 LOCATE 23, 4
 PRINT "Out of range."
 SLEEP 2
 GOTO 7030

 END IF

7100 IF cma% = 1 THEN
 LOCATE 23, 4
 PRINT "You already sold stake of this company."
 SLEEP 1
 GOTO 7030

 ELSE
 cma% = 1
 sold% = sold% + 1
 LOCATE 10, 70
 PRINT CHR$(1)
 GOTO 7150
 END IF

7150 compa% = INT(2500 * RND) + 500
 cmpa% = INT(380 * RND) + 20

7152 LOCATE 23, 4
 PRINT "                                          "
 LOCATE 23, 4
 PRINT "You got: "; (compa% * 10); "USD."
 bankusd& = bankusd& + (compa% * 10)
 SLEEP 2
 LOCATE 23, 4
 PRINT "                                           "
 LOCATE 23, 4
 PRINT "Export income slowdown: "; cmpa%; "USD."
 GOTO 8000

7200 IF cmb% = 1 THEN
 LOCATE 23, 4
 PRINT "You already sold stake of this company."
 SLEEP 1
 GOTO 7030

 ELSE
 cmb% = 1
 sold% = sold% + 1
 LOCATE 11, 70
 PRINT CHR$(1)
 GOTO 7250
 END IF

7250 compb% = INT(2500 * RND) + 500
 cmpb% = INT(380 * RND) + 20

7252 LOCATE 23, 4
 PRINT "                                          "
 LOCATE 23, 4
 PRINT "You got: "; (compb% * 10); "USD."
 bankusd& = bankusd& + (compb% * 10)
 SLEEP 2
 LOCATE 23, 4
 PRINT "                                           "
 LOCATE 23, 4
 PRINT "Export income slowdown: "; cmpb%; "USD."
 GOTO 8000

7300 IF cmc% = 1 THEN
 LOCATE 23, 4
 PRINT "You already sold stake of this company."
 SLEEP 1
 GOTO 7030

 ELSE
 cmc% = 1
 sold% = sold% + 1
 LOCATE 12, 70
 PRINT CHR$(1)
 GOTO 7350
 END IF

7350 compc% = INT(2500 * RND) + 500
 cmpc% = INT(380 * RND) + 20

7352 LOCATE 23, 4
 PRINT "                                          "
 LOCATE 23, 4
 PRINT "You got: "; (compc% * 10); "USD."
 bankusd& = bankusd& + (compc% * 10)
 SLEEP 2
 LOCATE 23, 4
 PRINT "                                           "
 LOCATE 23, 4
 PRINT "Export income slowdown: "; cmpc%; "USD."
 GOTO 8000

7400 IF cmd% = 1 THEN
 LOCATE 23, 4
 PRINT "You already sold stake of this company."
 SLEEP 1
 GOTO 7030

 ELSE
 cmd% = 1
 sold% = sold% + 1
 LOCATE 13, 70
 PRINT CHR$(1)
 GOTO 7450
 END IF

7450 compd% = INT(600 * RND) + 100
 cmpd% = INT(90 * RND) + 10

7452 LOCATE 23, 4
 PRINT "                                          "
 LOCATE 23, 4
 PRINT "You got: "; (compd% * 10); "USD."
 bankusd& = bankusd& + (compd% * 10)
 SLEEP 2
 LOCATE 23, 4
 PRINT "                                           "
 LOCATE 23, 4
 PRINT "Export income slowdown: "; cmpd%; "USD."
 GOTO 8000

7500 IF cme% = 1 THEN
 LOCATE 23, 4
 PRINT "You already sold stake of this company."
 SLEEP 1
 GOTO 7030

 ELSE
 cme% = 1
 sold% = sold% + 1
 LOCATE 14, 70
 PRINT CHR$(1)
 GOTO 7550
 END IF

7550 compe% = INT(600 * RND) + 100
 cmpe% = INT(90 * RND) + 10

7552 LOCATE 23, 4
 PRINT "                                          "
 LOCATE 23, 4
 PRINT "You got: "; (compe% * 10); "USD."
 bankusd& = bankusd& + (compe% * 10)
 SLEEP 2
 LOCATE 23, 4
 PRINT "                                           "
 LOCATE 23, 4
 PRINT "Export income slowdown: "; cmpe%; "USD."
 GOTO 8000

7600 IF cmf% = 1 THEN
 LOCATE 23, 4
 PRINT "You already sold stake of this company."
 SLEEP 1
 GOTO 7030

 ELSE
 cmf% = 1
 sold% = sold% + 1
 LOCATE 15, 70
 PRINT CHR$(1)
 GOTO 7650
 END IF

7650 compf% = INT(600 * RND) + 100
 cmpf% = INT(90 * RND) + 10

7652 LOCATE 23, 4
 PRINT "                                          "
 LOCATE 23, 4
 PRINT "You got: "; (compf% * 10); "USD."
 bankusd& = bankusd& + (compf% * 10)
 SLEEP 2
 LOCATE 23, 4
 PRINT "                                           "
 LOCATE 23, 4
 PRINT "Export income slowdown: "; cmpf%; "USD."
 GOTO 8000

7700 IF cmg% = 1 THEN
 LOCATE 23, 4
 PRINT "You already sold stake of this company."
 SLEEP 1
 GOTO 7030

 ELSE
 cmg% = 1
 sold% = sold% + 1
 LOCATE 16, 70
 PRINT CHR$(1)
 GOTO 7750
 END IF

7750 compg% = INT(600 * RND) + 100
 cmpg% = INT(90 * RND) + 10

7752 LOCATE 23, 4
 PRINT "                                          "
 LOCATE 23, 4
 PRINT "You got: "; (compg% * 10); "USD."
 bankusd& = bankusd& + (compg% * 10)
 SLEEP 2
 LOCATE 23, 4
 PRINT "                                           "
 LOCATE 23, 4
 PRINT "Export income slowdown: "; cmpg%; "USD."
 GOTO 8000

7800 IF cmh% = 1 THEN
 LOCATE 23, 4
 PRINT "You already sold stake of this company."
 SLEEP 1
 GOTO 7030

 ELSE
 cmh% = 1
 sold% = sold% + 1
 LOCATE 17, 70
 PRINT CHR$(1)
 GOTO 7850
 END IF

7850 comph% = INT(600 * RND) + 100
 cmph% = INT(90 * RND) + 10

7852 LOCATE 23, 4
 PRINT "                                          "
 LOCATE 23, 4
 PRINT "You got: "; (comph% * 10); "USD."
 bankusd& = bankusd& + (comph% * 10)
 SLEEP 2
 LOCATE 23, 4
 PRINT "                                           "
 LOCATE 23, 4
 PRINT "Export income slowdown: "; cmph%; "USD."
 GOTO 8000

7900 IF cmi% = 1 THEN
 LOCATE 23, 4
 PRINT "You already sold stake of this company."
 SLEEP 1
 GOTO 7030

 ELSE
 cmi% = 1
 sold% = sold% + 1
 LOCATE 18, 70
 PRINT CHR$(1)
 GOTO 7950
 END IF

7950 compi% = INT(600 * RND) + 100
 cmpi% = INT(90 * RND) + 10

7952 LOCATE 23, 4
 PRINT "                                          "
 LOCATE 23, 4
 PRINT "You got: "; (compi% * 10); "USD."
 bankusd& = bankusd& + (compi% * 10)
 SLEEP 2
 LOCATE 23, 4
 PRINT "                                           "
 LOCATE 23, 4
 PRINT "Export income slowdown: "; cmpi%; "USD."
 GOTO 8000

8000 SLEEP 2

8001 LOCATE 23, 50
     PRINT "Press Esc to move on."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

8002 GOTO 9500

9000 CLS
 foo& = foodim%
 eat& = foo& * 45

9002 FOR i% = 20 TO 60
 LOCATE 2, i%
 PRINT CHR$(205)
 NEXT i%

 FOR i% = 20 TO 60
 LOCATE 4, i%
 PRINT CHR$(205)
 NEXT i%

 LOCATE 2, 19
 PRINT CHR$(201)

 LOCATE 2, 61
 PRINT CHR$(187)

 LOCATE 4, 19
 PRINT CHR$(200)

 LOCATE 4, 61
 PRINT CHR$(188)

 LOCATE 3, 19
 PRINT CHR$(186)

 LOCATE 3, 61
 PRINT CHR$(186)

 LOCATE 3, 29
 PRINT "Strategic Food Reserves"

 LOCATE 6, 2
 PRINT "Year: "; ann%

 LOCATE 6, 19
 PRINT "Month: "; month%

9042 IF ann% < 1991 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Mihail Gorbatshov."
 LOCATE 10, 2
 PRINT "Economic state:  Stagnation."
 GOTO 9050
 END IF

9043 IF ann% = 1991 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Mihail Gorbatshov."
 LOCATE 10, 2
 PRINT "Economic state:  Collapse."
 GOTO 9050
 END IF

9044 IF ann% > 1991 AND ann% < 1999 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Boris Jeltsin."
 LOCATE 10, 2
 PRINT "Economic state:  Collapse."
 GOTO 9050
 END IF

9045 IF ann% = 1999 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Boris Jeltsin."
 LOCATE 10, 2
 PRINT "Economic state:  Recovery."
 GOTO 9050
 END IF

9046 IF ann% > 1999 THEN
 LOCATE 8, 2
 PRINT "Supreme leader:  Vladimir Putin."
 LOCATE 10, 2
 PRINT "Economic state:  Recovery."
 GOTO 9050
 END IF

9050 LOCATE 6, 45
 PRINT "Popularity: "; pop% / 100

9052 LOCATE 8, 45
 PRINT "Food Left: "; rese&; "tn."

9053 LOCATE 10, 45
 PRINT "Shrinking rate: "; eat&; "tn."

9054 FOR i% = 2 TO 76
 LOCATE 9, i%
 PRINT CHR$(196)
 NEXT i%

9055 LOCATE 12, 2
 PRINT "Generosity index: "; gene%

9056 LOCATE 12, 45
 PRINT "Dollars in Bank: "; bankusd&

9057 LOCATE 14, 2
 PRINT "You have begged food: "; beg%; "times."

9058 LOCATE 14, 45
 PRINT "You have sold food: "; selnum%; "times."

9060 FOR i% = 2 TO 76
 LOCATE 13, i%
 LOCATE 15, i%
 PRINT CHR$(196)
 NEXT i%

9061 IF visitc% = 1 THEN
 LOCATE 17, 2
 PRINT "One visit per month."
 SLEEP 1
 GOTO 9408

 ELSE
 visitc% = 1
 GOTO 9062
 END IF

9062 LOCATE 17, 2
 PRINT "                                                             "
 LOCATE 17, 2
 INPUT "Do you want to sell food from Strategic Reserves (y/n) "; a$

 IF a$ = "y" THEN
 GOTO 9070
 END IF

 IF a$ = "n" THEN
 GOTO 9200

 ELSE
 LOCATE 19, 2
 PRINT "Out of range."
 SLEEP 1
 LOCATE 19, 2
 PRINT "              "
 GOTO 9062
 END IF

9070 LOCATE 17, 2
 PRINT "                                                           "
 LOCATE 17, 6
 PRINT "2,000 tonnes gives one million dollars; 10,000 tonnes gives"
 LOCATE 18, 6
 PRINT "5 million dollars; 100,000 tonnes gives 50 million dollars;"
 LOCATE 19, 6
 PRINT "1,000,000 tonnes gives 500 million dollars. But selling food"
 LOCATE 20, 6
 PRINT "will shrink generosity of foreign governments to give aid in"
 LOCATE 21, 6
 PRINT "case you are forced to ask it."

9071 LOCATE 23, 2
     PRINT "Press Esc to move on."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

9072 LOCATE 23, 50
 PRINT "                      "

9073 FOR i% = 16 TO 23
 LOCATE i%, 2
 PRINT "                                                                "
 NEXT i%

9074 LOCATE 17, 6
 PRINT "1 - Sell 2,000 tonnes."
 LOCATE 18, 6
 PRINT "2 - Sell 10,000 tonnes."
 LOCATE 19, 6
 PRINT "3 - Sell 100,000 tonnes."
 LOCATE 20, 6
 PRINT "4 - Sell 1,000,000 tonnes."
 LOCATE 21, 6
 PRINT "5 - Main Directory."

9076 LOCATE 23, 2
 PRINT "                         "
 LOCATE 23, 2
 INPUT "Type '1' to '5' "; a$

 IF a$ = "1" THEN
 GOTO 9110
 END IF

 IF a$ = "2" THEN
 GOTO 9120
 END IF
 
 IF a$ = "3" THEN
 GOTO 9130
 END IF
                                              
 IF a$ = "4" THEN
 GOTO 9140
 END IF

 IF a$ = "5" THEN
 GOTO 1000

 ELSE
 LOCATE 23, 2
 PRINT "Out of range.           "
 SLEEP 1
 LOCATE 23, 2
 PRINT "               "
 GOTO 9076
 END IF

9110 IF rese& < 2001 THEN
 LOCATE 23, 2
 PRINT "You don't have that much food."
 SLEEP 2
 GOTO 9072

 ELSE
 rese& = rese& - 2000
 bankusd& = bankusd& + 1
 selnum% = selnum% + 1
 gene% = gene% - 2
 GOTO 9200
 END IF

9120 IF rese& < 10001 THEN
 LOCATE 23, 2
 PRINT "You don't have that much food."
 SLEEP 2
 GOTO 9072

 ELSE
 rese& = rese& - 10000
 bankusd& = bankusd& + 5
 selnum% = selnum% + 1
 gene% = gene% - 8
 GOTO 9200
 END IF

9130 IF rese& < 100001 THEN
 LOCATE 23, 2
 PRINT "You don't have that much food."
 SLEEP 2
 GOTO 9072

 ELSE
 rese& = rese& - 100000
 selnum% = selnum% + 1
 bankusd& = bankusd& + 50
 gene% = gene% - 60
 GOTO 9200
 END IF

9140 IF rese& < 1000001 THEN
 LOCATE 23, 2
 PRINT "You don't have that much food."
 SLEEP 2
 GOTO 9072

 ELSE
 rese& = rese& - 1000000
 selnum% = selnum% + 1
 bankusd& = bankusd& + 500
 gene% = gene% - 400
 GOTO 9200
 END IF

9200 LOCATE 12, 2
 PRINT "                          "
 LOCATE 12, 2
 PRINT "Generosity index: "; gene%
 LOCATE 12, 45
 PRINT "                             "
 LOCATE 12, 45
 PRINT "Dollars in Bank: "; bankusd&
 LOCATE 8, 45
 PRINT "                             "
 LOCATE 8, 45
 PRINT "Food Left: "; rese&; "tn."
 LOCATE 14, 45
 PRINT "You have sold food: "; selnum%; "times."

9201 FOR i% = 16 TO 23
 LOCATE i%, 2
 PRINT "                                                                "
 NEXT i%

9202 LOCATE 17, 2
 INPUT "Do you want to ask food as Humanitarian Aid (y/n) "; a$

 IF a$ = "y" THEN
 GOTO 9204
 END IF

 IF a$ = "n" THEN
 GOTO 9300

 ELSE
 LOCATE 19, 2
 PRINT "Out of range."
 SLEEP 1
 GOTO 9200
 END IF

9204 IF oops% = 1 THEN
 LOCATE 19, 2
 PRINT "Foreign governments refuse to give any food..."
 LOCATE 21, 2
 PRINT "Because you took back companies you sold."
 SLEEP 2
 LOCATE 19, 2
 PRINT "                                                     "
 LOCATE 21, 2
 PRINT "                                                     "
 GOTO 9300

 ELSE
 GOTO 9210
 END IF

9210  beg% = beg% + 1
 LOCATE 19, 2
 PRINT "You have asked humanitarian aid in form of food: "; beg%; "times."

9211 genea% = (INT(gene% * RND) + 1)

9212 gen% = genea% + (excd& / 50)

 IF gen% < 10 THEN
 gen% = 10
 END IF

9213  LOCATE 21, 2
 PRINT "Foreign governments are ready to give you food: "; gen%; "tonnes."
 rese& = rese& + gen%
 pop% = pop% - 50
 gene% = gene% - 10

9214 LOCATE 23, 2
     PRINT "Press Esc to move on."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

9215 LOCATE 12, 2
 PRINT "                          "
 LOCATE 12, 2
 PRINT "Generosity index: "; gene%
 LOCATE 8, 45
 PRINT "                             "
 LOCATE 8, 45
 PRINT "Food Left: "; rese&; "tn."
 LOCATE 14, 2
 PRINT "                                       "
 LOCATE 14, 2
 PRINT "You have begged food: "; beg%; "times."
 LOCATE 6, 45
 PRINT "                        "
 LOCATE 6, 45
 PRINT "Popularity: "; pop% / 100

9300 FOR i% = 16 TO 23
 LOCATE i%, 2
 PRINT "                                                                    "
 NEXT i%

9301 LOCATE 17, 2
 PRINT "                                                                     "
 LOCATE 17, 2
 INPUT "Do you want to buy popularity by giving food from Reserves (y/n) "; a$

9302 IF a$ = "y" THEN
 GOTO 9303
 END IF

 IF a$ = "n" THEN
 LOCATE 19, 2
 PRINT "As you wish."
 SLEEP 1
 GOTO 1000

 ELSE
 LOCATE 19, 2
 PRINT "Out of range."
 SLEEP 1
 LOCATE 19, 2
 PRINT "               "
 GOTO 9301
 END IF

9303 FOR i% = 16 TO 23
 LOCATE i%, 2
 PRINT "                                                                    "
 NEXT i%

9304 LOCATE 17, 6
 PRINT "1 - Give 100,000 tonnes."
 LOCATE 18, 6
 PRINT "2 - Give 200,000 tonnes."
 LOCATE 19, 6
 PRINT "3 - Give 300,000 tonnes."
 LOCATE 20, 6
 PRINT "4 - Give 400,000 tonnes."
 LOCATE 21, 6
 PRINT "5 - Main Directory."

9306 LOCATE 23, 2
 PRINT "                         "
 LOCATE 23, 2
 INPUT "Type '1' to '5' "; a$

 IF a$ = "1" THEN
 GOTO 9310
 END IF

 IF a$ = "2" THEN
 GOTO 9320
 END IF

 IF a$ = "3" THEN
 GOTO 9330
 END IF
                                             
 IF a$ = "4" THEN
 GOTO 9340
 END IF

 IF a$ = "5" THEN
 GOTO 1000

 ELSE
 LOCATE 23, 2
 PRINT "Out of range.                  "
 SLEEP 1
 LOCATE 23, 2
 PRINT "               "
 GOTO 9306
 END IF

9310 IF rese& < 100001 THEN
 LOCATE 23, 2
 PRINT "You don't have that much food."
 SLEEP 2
 LOCATE 23, 2
 PRINT "                                "
 GOTO 9300

 ELSE
 rese& = rese& - 100000
 pop% = pop% + 10
 gene% = gene% - 1
 GOTO 9400
 END IF

9320 IF rese& < 200001 THEN
 LOCATE 23, 2
 PRINT "You don't have that much food."
 SLEEP 2
 LOCATE 23, 2
 PRINT "                                "
 GOTO 9300

 ELSE
 rese& = rese& - 200000
 pop% = pop% + 30
 gene% = gene% - 3
 GOTO 9400
 END IF

9330 IF rese& < 300001 THEN
 LOCATE 23, 2
 PRINT "You don't have that much food."
 SLEEP 2
 LOCATE 23, 2
 PRINT "                                "
 GOTO 9300

 ELSE
 rese& = rese& - 300000
 pop% = pop% + 60
 gene% = gene% - 6
 GOTO 9400
 END IF

9340 IF rese& < 400001 THEN
 LOCATE 23, 2
 PRINT "You don't have that much food."
 SLEEP 2
 LOCATE 23, 2
 PRINT "                                "
 GOTO 9300

 ELSE
 rese& = rese& - 400000
 pop% = pop% + 100
 gene% = gene% - 10
 GOTO 9400
 END IF

9400 LOCATE 23, 2
 PRINT "Done.                          "
 SLEEP 1

9402 IF pop% > 10000 THEN
 pop% = 10000
 END IF

9404 FOR i% = 16 TO 23
 LOCATE i%, 2
 PRINT "                                                                "
 NEXT i%

9406 LOCATE 6, 45
 PRINT "                        "
 LOCATE 6, 45
 PRINT "Popularity: "; pop% / 100
 LOCATE 8, 45
 PRINT "                             "
 LOCATE 8, 45
 PRINT "Food Left: "; rese&; "tn."

9407 LOCATE 12, 2
 PRINT "                          "
 LOCATE 12, 2
 PRINT "Generosity index: "; gene%
 LOCATE 12, 45
 PRINT "                             "
 LOCATE 12, 45
 PRINT "Dollars in Bank: "; bankusd&
 LOCATE 8, 45
 PRINT "                             "
 LOCATE 8, 45
 PRINT "Food Left: "; rese&; "tn."

 FOR i% = 16 TO 23
 LOCATE i%, 2
 PRINT "                                                                "
 NEXT i%

9408 LOCATE 23, 2
     PRINT "Press Esc to move on."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

9410 GOTO 1000

9500 REM === Economy News ===
 CLS
 FOR i% = 14 TO 66
 LOCATE 6, i%
 PRINT CHR$(205)
 LOCATE 16, i%
 PRINT CHR$(205)
 NEXT i%

9502 FOR i% = 7 TO 15
 LOCATE i%, 13
 PRINT CHR$(186)
 LOCATE i%, 67
 PRINT CHR$(186)
 NEXT i%

9504 LOCATE 6, 13
 PRINT CHR$(201)
 LOCATE 16, 13
 PRINT CHR$(200)
 LOCATE 6, 67
 PRINT CHR$(187)
 LOCATE 16, 67
 PRINT CHR$(188)
 LOCATE 4, 16
 PRINT "MONTHLY ECONOMY REPORT"

9510 onnea% = (INT(100 * RND) + 1)
 IF onnea% < 2 THEN
 GOTO 9550
 END IF

 IF onnea% > 1 AND onnea% < 31 THEN
 GOTO 9560
 END IF

 IF onnea% > 30 AND onnea% < 51 THEN
 GOTO 9600
 END IF

 IF onnea% > 50 AND onnea% < 91 THEN
 GOTO 9650
 END IF

 IF onnea% > 90 AND onnea% < 98 THEN
 GOTO 9660
 END IF

 IF onnea% > 97 AND onnea% < 100 THEN
 GOTO 9670

 ELSE
 GOTO 9680
 END IF

9550 REM Super Bad news

9551 onn% = INT(20 * RND) + 20
  perma% = perma% - onn%

9554 LOCATE 8, 16
 PRINT "An industrial hub in a coastline sank to the"
 LOCATE 9, 16
 PRINT "bottom of sea. It will never be rebuild."
 LOCATE 11, 16
 PRINT "Permanent loss: "; onn%; "million dollars."
 LOCATE 13, 16
 PRINT "Permanent profit / loss so far: "; perma%
 GOTO 9990

9560 REM Very Bad news

9561 onn% = INT(400 * RND) + 500
 permb% = (0 - onn%)
 
9564 LOCATE 8, 16
 PRINT "Huge fire in an oil refinery."
 LOCATE 10, 16
 PRINT "Production is interrupted for a month."
 LOCATE 12, 16
 PRINT "Loss: "; onn%; "million Dollars."
 LOCATE 14, 16
 PRINT "Permanent profit / loss so far: "; perma%
 GOTO 9990

9600 REM Slightly Bad News

9601 onn% = INT(100 * RND) + 300
 permb% = (0 - onn%)

9604 LOCATE 8, 16
 PRINT "Railway accident."
 LOCATE 10, 16
 PRINT "Small difficulties transporting oil to overseas."
 LOCATE 12, 16
 PRINT "Loss for this month: "; onn%; "million Dollars."
 LOCATE 14, 16
 PRINT "Permanent profit / loss so far: "; perma%
 GOTO 9990

9650 REM Slightly Good News

9651 onn% = INT(400 * RND) + 500
 permb% = onn%

9654 LOCATE 8, 16
 PRINT "Workers across the country exceeded their quotas."
 LOCATE 10, 16
 PRINT "Extra profit for this month: "; onn%; "million dollars."
 LOCATE 12, 16
 PRINT "Permanent profit / loss so far: "; perma%
 GOTO 9990

9660 REM Very Good News

9661 onn% = INT(10 * RND) + 10
 perma% = perma% + onn%

9664 LOCATE 8, 16
 PRINT "A software company made made a huge product."
 LOCATE 10, 16
 PRINT "Extra income for many years."
 LOCATE 12, 16
 PRINT "Extra money to Government: "; onn%; "million dollars."
 LOCATE 14, 16
 PRINT "Permanent profit / loss so far: "; perma%
 GOTO 9990

9670 REM Super Good News

9671 onn% = INT(15 * RND) + 15
 perma% = perma% + onn%

9674 LOCATE 8, 16
 PRINT "An auto manufacturer made a popular new model."
 LOCATE 10, 16
 PRINT "Extra income for many years."
 LOCATE 12, 16
 PRINT "Extra money to Government: "; onn%; "million dollars."
 LOCATE 14, 16
 PRINT "Permanent profit / loss so far: "; perma%
 GOTO 9990

9680 REM Very Super Good News

9681 onn% = INT(20 * RND) + 20
 perma% = perma% + onn%

9684 LOCATE 8, 16
 PRINT "A huge oil field found in Tula."
 LOCATE 10, 16
 PRINT "Extra income for many years."
 LOCATE 12, 16
 PRINT "Extra money to Government: "; onn%; "million dollars."
 LOCATE 14, 16
 PRINT "Permanent profit / loss so far: "; perma%
 GOTO 9990

9800 REM === Agriculture News ===
 foo& = foodim%
 eat& = foo& * 45

9801 CLS
 FOR i% = 10 TO 70
 LOCATE 5, i%
 PRINT CHR$(205)
 LOCATE 19, i%
 PRINT CHR$(205)
 NEXT i%

9802 FOR i% = 6 TO 18
 LOCATE i%, 9
 PRINT CHR$(186)
 LOCATE i%, 71
 PRINT CHR$(186)
 NEXT i%

9804 LOCATE 5, 9
 PRINT CHR$(201)
 LOCATE 19, 9
 PRINT CHR$(200)
 LOCATE 5, 71
 PRINT CHR$(187)
 LOCATE 19, 71
 PRINT CHR$(188)
 LOCATE 3, 16
 PRINT "SEPTEMBER AGRICULTURE REPORT"

9810 onni% = (INT(100 * RND) + 1)
 IF onni% < 2 THEN
 GOTO 9850
 END IF

 IF onni% > 1 AND onni% < 31 THEN
 GOTO 9860
 END IF

 IF onni% > 30 AND onni% < 51 THEN
 GOTO 9870
 END IF

 IF onni% > 50 AND onni% < 98 THEN
 GOTO 9880

 ELSE
 GOTO 9890
 END IF

9850 REM Very Bad news

9854 LOCATE 7, 13
 PRINT "Severe drought wiped out 50 percent of"
 LOCATE 8, 13
 PRINT "country's crop. You need food for several"
 LOCATE 9, 13
 PRINT "month's consumption from Food reserves."

9856 prese& = 4
 LOCATE 11, 13
 PRINT "Need together: "; (eat& * prese&); "tn."
 LOCATE 13, 13
 PRINT "Food left in the Reserves (before): "; rese&
 LOCATE 15, 13
 PRINT "Food left in the Reserves (now): "; rese& - (eat& * prese&); "tn."
 LOCATE 17, 13
 PRINT "If you don't have that much food, game is over."
 GOTO 9900

9860 REM Bad news

9864 LOCATE 7, 13
 PRINT "Grasshoppers wiped out 25 percent of "
 LOCATE 8, 13
 PRINT "country's crop. You need food for a few"
 LOCATE 9, 13
 PRINT "month's consumption from Food reserves."

9866 prese& = 2
 LOCATE 11, 13
 PRINT "Need together: "; (eat& * prese&); "tn."
 LOCATE 13, 13
 PRINT "Food left in the Reserves (before): "; rese&
 LOCATE 15, 13
 PRINT "Food left in the Reserves (now): "; rese& - (eat& * prese&); "tn."
 LOCATE 17, 13
 PRINT "If you don't have that much food, game is over."
 GOTO 9900

9870 REM Good News

9874 LOCATE 7, 13
 PRINT "Thanks to good summer..."
 LOCATE 9, 13
 PRINT "Better than average harvest this year."
 LOCATE 11, 13
 PRINT "Strategic food reserves increased: "; (eat& / 10); "tn."
 rese& = rese& + (eat& / 10)
 LOCATE 13, 13
 PRINT "Strategic food reserves together: "; rese&; "tn."
 GOTO 9996

9880 REM Very Good News

9884 LOCATE 7, 13
 PRINT "Thanks to optimal rainfall and warm summer..."
 LOCATE 9, 13
 PRINT "Very good crop harvest this year."
 LOCATE 11, 13
 PRINT "Strategic food reserves increased: "; (eat& / 2); "tn."
 rese& = rese& + (eat& / 2)
 LOCATE 13, 13
 PRINT "Strategic food reserves together: "; rese&; "tn."
 GOTO 9996

9890 REM Super Good News

9894 LOCATE 7, 13
 PRINT "Best harvest ever."
 LOCATE 9, 13
 PRINT "Optimal weather and no diseases."
 LOCATE 11, 13
 PRINT "Strategic food reserves increased: "; (eat& * 2); "tn."
 rese& = rese& + (eat& * 2)
 LOCATE 13, 13
 PRINT "Strategic food reserves together: "; rese&; "tn."
 GOTO 9996

9900 REM === Have enough food?

9901 LOCATE 23, 2
     PRINT "Press Esc to move on."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

9902 LOCATE 23, 2
 PRINT "                            "

9903 IF rese& > (prese& * eat&) THEN
 SLEEP 2
 LOCATE 20, 6
 PRINT "You have enough food."
 rese& = rese& - (prese& * eat&)
 SLEEP 1
 GOTO 9996

 ELSE
 SLEEP 2
 LOCATE 20, 6
 PRINT "You do not have enough food."
 GOTO 9980
 END IF

9950 REM === Nationalize?

9951 CLS
 LOCATE 3, 6
 PRINT "You have sold a stake of all nine companies."
 LOCATE 5, 6
 PRINT "Now you can take them back without paying any copensation."
 LOCATE 6, 6
 PRINT "Foreign Governments will punish you. No more loans, you are"
 LOCATE 7, 6
 PRINT "not allowed to beg food, you might lose your power. But you"
 LOCATE 8, 6
 PRINT "will get as much money as you did before selling the firms."

9952 LOCATE 11, 6
 PRINT "                                                              "
 LOCATE 11, 6
 INPUT "Do you want to take back (nationalize) these firms (y/n) "; a$

 IF a$ = "y" THEN
 GOTO 9960
 END IF

 IF a$ = "n" THEN
 LOCATE 13, 6
 PRINT "As you wish."
 SLEEP 1
 GOTO 9500

 ELSE
 LOCATE 15, 6
 PRINT "Out of range."
 SLEEP 1
 LOCATE 15, 6
 PRINT "              "
 GOTO 9952
 END IF

9960 LOCATE 13, 6
 PRINT "Done."
 oops% = 1
 cmpa% = 0
 cmpb% = 0
 cmpc% = 0
 cmpd% = 0
 cmpe% = 0
 cmpf% = 0
 cmpg% = 0
 cmph% = 0
 cmpi% = 0
 SLEEP 2

9962 LOCATE 16, 6
 PRINT "Risk that Foreign Governments overthrow you is 50 pct."
 SLEEP 2

9964 gaov% = (INT(100 * RND) + 1)
 gaova% = (INT(2000 * RND) + 1)

9966 IF gaov% < 50 THEN
 LOCATE 18, 6
 PRINT "You failed. Foreign pressure was too strong."
 GOTO 9980
 
 ELSE
 GOTO 9968
 END IF

9968 LOCATE 18, 6
 PRINT "You survived. But foreign pressure cut your popularity by: "; (gaova% / 100); "pct."
 pop% = pop% - gaova%
 LOCATE 20, 6
 PRINT "Your popularity is now: "; pop% / 100

9970 LOCATE 23, 6
     PRINT "Press Esc to move on."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

9972 GOTO 9500

9980 LOCATE 23, 2
     PRINT "Press Esc to move on."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

9982 GOTO 10000

9990 IF month% = 9 THEN
 GOTO 9992
 
 ELSE
 GOTO 9996
 END IF

9992 LOCATE 23, 2
     PRINT "Press Esc to move on."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

9994 GOTO 9800

9996 LOCATE 23, 2
     PRINT "Press Esc to move on."
     DO
     LOOP UNTIL INKEY$ = CHR$(27)    '27 is the ASCII code for Esc.

9998 GOTO 1000

10000 CLS

10002 FOR i% = 20 TO 60
 LOCATE 2, i%
 PRINT CHR$(205)
 NEXT i%

 FOR i% = 20 TO 60
 LOCATE 4, i%
 PRINT CHR$(205)
 NEXT i%

 LOCATE 2, 19
 PRINT CHR$(201)

 LOCATE 2, 61
 PRINT CHR$(187)

 LOCATE 4, 19
 PRINT CHR$(200)

 LOCATE 4, 61
 PRINT CHR$(188)

 LOCATE 3, 19
 PRINT CHR$(186)

 LOCATE 3, 61
 PRINT CHR$(186)

 LOCATE 3, 36
 PRINT "GAME OVER"

10006 IF ann% = 2003 THEN
 GOTO 10020
 END IF

10010 LOCATE 6, 3
 PRINT "You survived "; kk&; "months."

10011 sca& = kk& * 2000

10012 LOCATE 8, 3
 PRINT "Score for months: "; sca&
 GOTO 10030

10020 LOCATE 6, 3
 PRINT "You survived "; kk&; "months."

10021 sca& = (kk& * 2000) + 500000

10022 LOCATE 8, 3
 PRINT "Congratulations! You survived to the year 2003."
 SLEEP 2
 LOCATE 8, 3
 PRINT "                                                  "
 LOCATE 8, 3
 PRINT "Score for months & bonus (500,000): "; sca&

10030 scb& = sca& - (excd& * 10)

10032 IF excd& < -1000 THEN
 GOTO 10056
 END IF

 IF excd& < -100 THEN
 GOTO 10054
 END IF

 IF excd& < -10 THEN
 GOTO 10052
 END IF

 IF excd& < 1 THEN
 GOTO 10050

 ELSE
 GOTO 10040
 END IF

10040 LOCATE 10, 3
 PRINT "Deaths due to malnutrion or lack of medicine: "; excd&
 LOCATE 12, 3
 PRINT "Score now: "; scb&
 GOTO 10060

10050 LOCATE 10, 3
 PRINT "No excess deaths (malnutrion or lack of medicine). Bonus: 10,000."
 scb& = scb& + 10000
 LOCATE 12, 3
 PRINT "Score now: "; scb&
 GOTO 10060

10052 LOCATE 10, 3
 PRINT "Saved lives (less than one hundred). Bonus: 20,000."
 scb& = scb& + 20000
 LOCATE 12, 3
 PRINT "Score now: "; scb&
 GOTO 10060

10054 LOCATE 10, 3
 PRINT "More than one hundred saved lives. Bonus: 100,000."
 scb& = scb& + 100000
 LOCATE 12, 3
 PRINT "Score now: "; scb&
 GOTO 10060

10056 LOCATE 10, 3
 PRINT "More than one thousand saved lives. Bonus: 500,000."
 scb& = scb& + 500000
 LOCATE 12, 3
 PRINT "Score now: "; scb&

10060 LOCATE 14, 3
 PRINT "Worker's salary in Dollars: "; usdsal%
 scc& = usdsal%
 scd& = scc& * 100
 sce& = (scb& * (scd& / 100)) / 100
 scf& = (sce& / 10) * levb%

10062 LOCATE 16, 3
 PRINT "Score now: "; sce&

10064 LOCATE 18, 3
 PRINT "Final score (Level Compensation): "; scf&

10070 LOCATE 21, 3
 PRINT "                                          "

10072 LOCATE 21, 3
 INPUT "Do you want to play again (y/n) "; a$

10074 IF a$ = "y" THEN
 GOTO 10080
 END IF

10076 IF a$ = "n" THEN
 GOTO 10082

 ELSE
 LOCATE 23, 3
 PRINT "Out of range."
 SLEEP 1
 LOCATE 23, 3
 PRINT "                   "
 SLEEP 1
 GOTO 10070
 END IF

10080 RUN

10082 END