10 SCREEN 0

11 COLOR 8, 0

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
 pmi& = 0
 kier% = 98
 foodim% = 14000
 medim% = 4000
 compim% = 10000
 hunger% = 700
 shri% = 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, 29
 PRINT "Collapse of Soviet Economy"

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 there is an option 'print money out of thin air'. This is"
 LOCATE 3, 4
 PRINT "on reality. 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 "Roubles. If you are out of Dollars, your last change is to sell state"
 LOCATE 9, 4
 PRINT "owned companies: 10 % stake. It is the only part of the game in which"
 LOCATE 10, 4
 PRINT "RND is included. If you are lucky, you get more money."
 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 2025) :"
 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://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 thet 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
 GOTO 1000
 END IF

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

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

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

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

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

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

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 = Average Citizen    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$ = "s" THEN
 GOTO 5000
 END IF

1067 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 Roubles 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 Roubles (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: "; 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 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: "; 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)

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

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&

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
 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 LOCATE 16, 2
 PRINT "                                                            "
 LOCATE 17, 2
 PRINT "                                                            "
 LOCATE 18, 2
 PRINT "                                                            "
 LOCATE 19, 2
 PRINT "                                                            "
 LOCATE 20, 2
 PRINT "                                                            "
 LOCATE 21, 2
 PRINT "                                                            "
 LOCATE 23, 2
 PRINT "                                                            "

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
 GOTO 5094
 END IF

6000 IF salary& > bankrub& THEN
 LOCATE 23, 2
 PRINT "                                          "
 LOCATE 23, 2
 PRINT "You have no enough Roubles 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 Roubles at the bank. Game is over."
 SLEEP 2
 GOTO 10000

 ELSE
 bankrub& = bankrub& - (salary& / 2)
 pop% = (pop% / 3)
 slow% = slow% + 2
 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 LOCATE 16, 2
 PRINT "                                                                 "
 LOCATE 17, 2
 PRINT "                                                            "
 LOCATE 18, 2
 PRINT "                                                            "
 LOCATE 19, 2
 PRINT "                                                            "
 LOCATE 20, 2
 PRINT "                                                            "
 LOCATE 21, 2
 PRINT "                                                            "
 LOCATE 23, 2
 PRINT "                                                            "

6074 LOCATE 16, 2
 foodsc% = (foodim% / 12)
 PRINT "Do you want to pay 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
 pop% = (pop% / 4)
 excd& = excd& + hunger%
 GOTO 6084

 ELSE
 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."
 pop% = (pop% / 4)
 excd& = excd& + hunger%
 SLEEP 2
 GOTO 6084

 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 LOCATE 16, 2
 PRINT "                                                            "
 LOCATE 17, 2
 PRINT "                                                            "
 LOCATE 18, 2
 PRINT "                                                            "
 LOCATE 19, 2
 PRINT "                                                            "
 LOCATE 20, 2
 PRINT "                                                            "
 LOCATE 21, 2
 PRINT "                                                            "
 LOCATE 23, 2
 PRINT "                                                            "

6174 LOCATE 16, 2
 medsc% = (medim% / 12)
 PRINT "Do you want to pay 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
 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 LOCATE 16, 2
 PRINT "                                                            "
 LOCATE 17, 2
 PRINT "                                                            "
 LOCATE 18, 2
 PRINT "                                                            "
 LOCATE 19, 2
 PRINT "                                                            "
 LOCATE 20, 2
 PRINT "                                                            "
 LOCATE 21, 2
 PRINT "                                                            "
 LOCATE 23, 2
 PRINT "                                                            "

6274 LOCATE 16, 2
 compsc% = (compim% / 12)
 PRINT "Do you want to pay 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
 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 LOCATE 16, 2
 PRINT "                                                            "
 LOCATE 17, 2
 PRINT "                                                            "
 LOCATE 18, 2
 PRINT "                                                            "
 LOCATE 19, 2
 PRINT "                                                            "
 LOCATE 20, 2
 PRINT "                                                            "
 LOCATE 21, 2
 PRINT "                                                            "
 LOCATE 23, 2
 PRINT "                                                            "

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
 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
 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 7000
 END IF

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

7000 usdsal% = (salary& / 100) / doom&

7002 IF usdsal% < 100 THEN
 shri% = 800
 GOTO 7010

 ELSE
 shri% = 0
 GOTO 7004
 END IF

7004 IF loan% > 6 AND bankusd& < 6000 THEN
 GOTO 7030

 ELSE
 GOTO 1000
 END IF

7010 CLS

7012 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 7026
 END IF

7026 IF loan% > 6 AND bankusd& < 6000 THEN
 GOTO 7030

 ELSE
 GOTO 1000
 END IF

7030 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 50 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 - Back to Main Directory"

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 1000

 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 has this company."
 SLEEP 1
 GOTO 7030

 ELSE
 cma% = 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 has this company."
 SLEEP 1
 GOTO 7030

 ELSE
 cmb% = 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 has this company."
 SLEEP 1
 GOTO 7030

 ELSE
 cmc% = 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 has this company."
 SLEEP 1
 GOTO 7030

 ELSE
 cmd% = 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 has this company."
 SLEEP 1
 GOTO 7030

 ELSE
 cme% = 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 has this company."
 SLEEP 1
 GOTO 7030

 ELSE
 cmf% = 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 has this company."
 SLEEP 1
 GOTO 7030

 ELSE
 cmg% = 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 has this company."
 SLEEP 1
 GOTO 7030

 ELSE
 cmh% = 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 has this company."
 SLEEP 1
 GOTO 7030

 ELSE
 cmi% = 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 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& * 1000

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

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

10021 sca& = (kk& * 1000) + 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& < 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 deaths due to malnutrion or lack of medicine. Bonus: 50,000."
 scb& = scb& + 50000
 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

10062 LOCATE 16, 3
 PRINT "Final score: "; sce&

10070 LOCATE 19, 3
 PRINT "                                          "

10072 LOCATE 19, 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 21, 3
 PRINT "Out of range."
 SLEEP 1
 LOCATE 21, 3
 PRINT "                   "
 SLEEP 1
 GOTO 10070
 END IF

10080 RUN

10082 END