There's :
http://zx81.ordi5.free.fr/programmes/president.zip
http://zx81.ordi5.free.fr/programmes/donjon.zip
and
http://zx81.ordi5.free.fr/programmes/simon.zip
Butn it's in French !
English codes (By Google translate!)
Code: Select all
0 REM B.J.P. 1983
10 CLS
15 CLEAR
20 REM ****** ****** CHAIRMAN
25 SLOW
30 PRINT "¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸"
35 PRINT
40 PRINT TAB 4 ;"*** GAMING CHAIR *** "
45 PRINT
50 PRINT "(C) BERNARDI J. P. (1983)"
55 PRINT
60 PRINT "®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®"
65 PRINT
70 PRINT "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
75 PRINT
80 PRINT "ANY INTERPRETATION OF POLICY THIS GAME CAN NOT BE THAT THE RESULT OF MIND TWISTED LÀELUCUBRATION DAUN .",," THIS IS ONLY THE FRUIT OF LÀIMAGINATION."
85 PRINT
90 PRINT "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
95 PRINT
GOSUB 100 VAL "1655"
CLS 102
105 PRINT "YOU COME DÀETRE ELECTED PRESIDENT OF CENTR lactate-A-FRIC.", "DONE IN THE ELECTIONS bobbed rigged BUT NOT NOTREPROBLEME is rough."
110 PRINT
115 PRINT "HERE IS SOME DATA FOR ADVANCING A VOUSAIDER THAT COUNTRY NOW TO EDGE OF ABYSS."
120 PRINT
125 PRINT "PER CAPITA EXPENDITURE * 100FR A YEAR."
130 PRINT "* COMING YOUR INCOME TAX INDUSTRIAL, TOURISM, THE SALE OF CEREAL AND THE TRANSFORMATION OF INDUSTRIAL ZONES IN YOUR AREA."
135 PRINT "EACH YEAR YOU RETAINED THE COUNTRY'S BUDGET BETWEEN THE LUTTEANTI-POLLUTION, THE PEOPLE, AND LÀEDUCATION LÀAGRICULTURE."
GOSUB 140 VAL "1655"
145 PRINT "CORRECT LÀEDUCATION DAUN CAPITA COSTS BY 10 EN NA."
150 PRINT
155 LET N5 = 7
160 PRINT "* AN EFFECTIVE ANTI-POLUTION 0.44 GB COSTS PER UNIT OF POLLUTION."
165 PRINT
170 PRINT "YOU CAN NOT ENTER 0 EN. ON A BUDGET THIS YOU WOULD NOT AGREE."
175 PRINT
180 PRINT "YOU WILL NOT DISCOURAGE, I CAN KEEP YOU TELL YOU THE CHAIRMEN QUÀAUCUN PRECEDING HIS TERM ENDS NAA."
185 PRINT
GOSUB 190 VAL "1655"
195 LET N4 = 7
200 PRINT
205 PRINT "GOOD LUCK TO YOUR" N4; "YEARS"
210 LET N1 = N4-1
215 SLOW
220 RAND
225 LET M = 95E3 + INT (RND * 6E3)
230 LET P = INT (RND * 490 + 20)
235 LET R0 = 0
240 LET ER = 0
245 LET K = 0
250 LET L = VAL "2E3"
255 LET W = 0
260 LET X2 = 0
E0 = 0 265 LET
270 LET X1 = 0
275 LET E1 = 0
S9 = 0 280 LET
285 LET S0 = 0
H5 = 0 290 LET
295 LET S1 = 0
300 LET D1 = INT (P / 3)
GOTO 305 VAL "315"
310 PRINT "AGAIN" N5; "YEARS SHOOT."
315 PRINT
320 LET L1 = INT (RND * 5 +10)
325 LET L0 = INT (RND * 10 +95)
330 LET R = 0
335 PRINT
340 PRINT "YOU"
345 PRINT M; "FR BUDGET."
350 PRINT P; "PEOPLE."
355 W IF NOT THEN GOTO VAL "365"
360 PRINT W; "WORKERS IMMIGRANTS."
365 PRINT L; "ACRES."
371 IF NOT THEN GOTO SU VAL "440"
375 PRINT SU "FR hideouts in SWITZERLAND."
380 PRINT
385 PRINT "YOU WANT TO SWITZERLAND repatriation of capital (Y / N)"
390 INPUT Y $
CLS 395
IF O $ 400 (1) <> "Y" THEN GOTO VAL "440"
405 PRINT "VALUE OF TRANSFER?"
410 INPUT SUT
415 SUT IF> THEN GOTO SU VAL "410"
LET 420 = SU-SU SUT
425 LET M = M + SUT
CLS 430
GOSUB 435 VAL "1380"
440 PRINT
445 PRINT "THIS YEAR GIVE YOU THE INDUSTRIAL" L0, "FR BY ACRES", "AND PLANTATIONS cost," L1 "FR BY HECTARE"
450 IF NOT THEN GOTO S1 VAL "460"
455 PRINT "THE LEVEL OF POLLUTION MEASURING AND" S1 "MKSA UNITS."
460 PRINT
465 PRINT "HOW MUCH WOULD YOU SELL TO DÀHECTARES INDUSTRELS?"
470 INPUT L2
475 IF L2 <= 0 THEN GOTO VAL "470"
480 IF L2 <L THEN GOTO 1E3-VAL "520"
CLS 485
490 PRINT "LET YOU THAT Naav" L-1E3; "ACRES OF LAND AVAILABLE."
495 IF X1 <> 0 THEN GOTO VAL "335"
500 PRINT "THE ARE NOT WILLING INDUTRIELS BUY A FOREST OF THE COST OF FACT DÀABATTRGE."
GOSUB 505 VAL "1805"
510 LET X1 = 1
GOTO 515 VAL "335"
520 LET M = INT (M * L0 + L2)
525 LET L = INT (L-L2)
530 LET X9 = INT (44 * (2E3-L))
535 LET M2 = 0
540 LET M3 = 0
M4 = 0 545 LET
M5 = 0 550 LET
GOSUB 555 VAL "1380"
560 PRINT "HOW MUCH YOU WANT TO DISTRIBUTE FRANCS TO YOUR PEOPLE?"
565 INPUT M1
570 IF M1> M THEN GOSUB VAL "1805"
575 IF M1 <0 OR M1> M THEN GOTO VAL "555"
580 LET M = INT (M-M1)
585 IF NOT THEN GOTO M VAL "755"
GOSUB 590 VAL "1380"
595 PRINT "HOW MUCH YOU WANT PLANT DÀHECTARES?"
600 INPUT L3
605 IF L3 <= 0 THEN GOTO VAL "600"
610 IF L3 <= P * 2 THEN GOTO VAL "630"
GOSUB 615 VAL "1805"
620 PRINT "PER CAPITA PLANT THAT CAN 2 ACRES."
GOTO 625 VAL "660"
630 IF L3 <L-1E3 THEN GOTO VAL "645"
635 PRINT "THAT YOU Naav" L-1E3; "hectares of farmland."
GOTO 640 VAL "660"
LET 645 M4 = INT (L3 * L1)
650 IF M4 <= M THEN GOTO VAL "680"
GOSUB 655 VAL "1380"
660 PRINT "YOU LIMIT YOUR BUDGET A", INT (M/L1); "HECTARES OF PLANTATION"
665 PRINT "THE PEOPLE COULD WORK" P * 2; "ACRES AND THE SURFACE"
670 PRINT "IS AVAILABLE" L-1E3; "ACRES."
GOTO 675 VAL "595"
680 LET M = INT (M-M4)
685 IF NOT THEN GOTO M VAL "755"
GOSUB 690 VAL "1380"
695 PRINT "HOW WOULD YOU SPEND FOR LÀEDUCATION?"
700 INPUT M2
705 IF M2 <= 0 OR M2> M THEN GOSUB VAL "1805"
710 IF M2 <= 0 OR M2> M THEN GOTO VAL "690"
715 LET M = INT (M-M2)
720 IF NOT THEN GOTO M VAL "755"
GOSUB 725 VAL "1380"
730 PRINT "WHAT BUDGET GRANT YOU THE ANTI-POLLUTION?"
735 INPUT M3
740 IF M3 <= 0 OR M3> M THEN GOSUB VAL "1805"
745 IF M3 <= 0 OR M3> M THEN GOTO VAL "725"
750 LET M = INT (M-M3)
CLS 755
D0 = 0 760 LET
765 LET E2 = M2 / P
770 LET D2 = INT (P-M1/1E2)
775 IF D2 <= 0 THEN GOTO VAL "800"
780 LET D2 = D0
785 IF D2 = 1 THEN PRINT D2; "RESIDENT IS DEAD OF HUNGER"
790 IF D2 = 1 THEN GOTO VAL "800"
795 PRINT D2; "PEOPLE ARE DEAD OF HUNGER"
LET 800 D3 = INT (S1/1E5 * (.4 + .1 * RND) * P)
805 IF D3 <= 0 THEN GOTO VAL "825"
810 IF D3 = 1 THEN PRINT D3 "RESIDENT IS DEAD BY EXCESS POLLUTION."
815 IF D3> 1 THEN PRINT D3 "PEOPLE ARE DEAD BY EXCESS POLLUTION."
820 LET D0 = D0 + D3
D0 IF 825 <= 0 THEN GOTO VAL "925"
830 LET F = D0 * 9
835 PRINT "YOU ARE REQUIRE TO SPEND" F "FR";
840 IF D0 = 1 THEN PRINT, "TO LÀENTERRER"
845 IF D0> 1 THEN PRINT, "TO ALL THE BURIED"
GOSUB 850 VAL "1655"
855 LET R = F
860 LET R0 = R0 + R
865 IF R0> = 54 THEN GOSUB VAL "1845"
870 IF R0> = 1E2 THEN GOSUB VAL "1860"
875 IF R0> = 135 THEN GOSUB VAL "1870"
880 LET M = INT (M-F)
885 IF M> = 0 THEN GOTO VAL "925"
890 PRINT "YOUR LOW BUDGET FOR SALE YOU LAND COMPELS."
895 LET T0 =- INT (M/L0) 1
900 LET L = L-T 0
905 IF L> = 1E3 THEN GOTO VAL "920"
910 PRINT "YOU ARE NOT ENOUGH NA FIELD"
VAL GOTO 915 "1400"
920 LET M = M + (T0 * L0)
925 IF D0> 2E2 THEN GOTO VAL "1410"
930 LET P = P-D0
935 LET D1 = D1-D0
940 IF D1 <= 0 THEN GOSUB VAL "1465"
945 IF D2 <= 2 THEN GOTO VAL "955"
950 IF M> 5E2 THEN GOSUB VAL "1515"
955 IF L2 <= 5 THEN GOTO VAL "1E3"
LET 960 T0 = INT ((L2 * L2 + .2 * RND) / 5)
965 W IF NOT THEN GOTO VAL "990"
LET 970 T0 = INT (T0 + .1 * W)
975 IF T0> 1 THEN GOTO VAL "990"
980 PRINT T0 "WORKER immigrant arrived."
VAL 985 GOTO 995
990 PRINT T0 "IMMIGRANTS ARE WORKERS ARRIVALS."
995 LET W = W + T0
LET 1000 T0 = INT (((5E2-P), / 10-D3 / D2-3 / 5) *. 75 * (1 + RND))
1005 IF NOT THEN GOTO T0 VAL "1065"
1010 PRINT ABS T0 "RESIDENT"
1015 IF S1> = 5E2 OR M2 <P * = 10 THEN GOTO VAL "1050"
1020 IF T0 = 1 THEN PRINT "CAME SÀINSTALLER"
1030 IF S1> 5E2 OR M2 <P * = 10 THEN GOTO VAL "1050"
1035 PRINT "S CAME SÀINSTALLER"
1040 LET P = P + T0
GOTO 1045 VAL "1060"
1046 PRINT
1050 IF T0 = 1 THEN PRINT T0 "A RESIDENT LEAVES THE COUNTRY."
1052 PRINT
1055 IF T0> 1 THEN PRINT T0 "PEOPLE have left the country"
1060 LET P = P-T0
1065 IF P <W THEN GOTO VAL "1490"
LET 1070 T0 = 0
1075 IF L THEN GOTO 2E3 = VAL "1105"
LET 1080 T0 = INT (S1/1E5 * L3)
1085 IF T0 <= THEN GOTO L3 VAL "1095"
1090 LET L3 = T0
1095 IF NOT THEN GOTO T0 VAL "1105"
1100 PRINT "ON YOUR" L3 "HECT RES PLANT."
1105 PRINT "YOU HARVEST" L3-T0 "ACRES"
1110 IF NOT THEN GOTO T0 VAL "1125"
1115 PRINT "(A CASE OF POLLUTION OF LÀAUGMENTATION)"
1120 LET X2 = X2 1
1125 LET T1 = INT ((RND * 39 + 20) * (1 + .25 * (E0 + E1) / 20))
1130 PRINT "IF YOU RELATE THOSE" INT (T1 * (L3-T0)); "FR."
1135 LET M = M + INT (T1 * (L3-T0))
1140 LET M5 = INT (T0-T1)
LET 1145 E0 = E1
1150 IF E2 <= 10 THEN GOTO VAL "1160"
1155 LET E2 = 10
1160 LET E1 = E2
T0 = 1165 LET L-2E3
1170 IF T0 <2 THEN GOTO VAL "1305"
1175 IF T0 <= 26 THEN GOTO VAL "1185"
LET 1180 T0 = 26
LET 1185 T0 = INT (T0 * 5E2 * (.52 + .5 * RND))
1190 LET T1 = S1/1E5
1195 IF T1 <= 1 THEN GOTO VAL "1205"
1200 LET T1 = 1
1205 LET T1 = T1 * T0
1210 LET M = M + INT (T0-T1)
1215 PRINT "THE TOURIST"
1220 IF INT (T0-T1) <= THEN GOTO M5 VAL "1290"
1225 IF S1 <= S9 THEN GOTO VAL "1290"
1230 PRINT "NET DECREASE IN CAR"
1235 LET T2 = INT (RND * 5 +1)
VAL GOTO 1240 "1235 * 10 + T2"
1245 PRINT "MANY FISH ARE DEAD"
GOTO 1250 VAL "1290"
1255 PRINT "THE SMALL BIRDS SING FOR LESS IN LESS,"
GOTO 1260 VAL "1290"
1265 PRINT "LÀEAU OF THE BATH IS CURISTE5 POLUEE,"
GOTO 1270 VAL "1290"
1275 PRINT "THE BAD ODOR discourage ESTIVA"
GOTO 1280 VAL "1290"
1285 PRINT "THE HOTELS ARE blackened by factory smoke,"
1290 PRINT "YOU PAYS", INT (T0-T1) "FR."
1295 PRINT
1300 LET S1 = S9
1305 LET S2 = (2E3-L) + (2E3-L) -M3/.44
1310 IF NOT THEN GOTO X9 VAL "1325"
1315 PRINT "THE FEES YOU INDUSTRIAL", "RELATE" X9 "U.S.."
1320 LET M = M + X9
1325 IF S2> = 0 THEN GOTO VAL "1350"
1330 LET S1 = INT (S1 + S2 / 2)
1335 IF S1> S0 THEN GOTO = VAL "1345"
1340 LET S1 = S0
VAL GOTO 1345 "1360"
1350 LET S1 = INT (S1 + S2)
1355 LET S0 = INT (S2/10 + S0)
1360 LET N5 = N5-1
1365 GOSUB VAL "1655"
1370 IF NOT THEN GOTO N5 VAL "1545"
GOTO 1375 VAL "310"
1380 CLS
1385 PRINT "YOU REST" M, "FR."
1390 PRINT
1395 RETURN
1400 PRINT "YOU HAVE BEEN IN THE JETE REVERSES AND MORE HUMID dungeons ...."
VAL GOTO 1405 "1730"
1410 PRINT
1415 PRINT D0; "PEOPLE ARE DEAD THIS YEAR BECAUSE OF YOUR gross negligence."
1420 PRINT "NOT ONLY YOU HAVE BEEN BUT ALSO REVERSES";
LET 1425 T0 = INT (RND * 2) 1
VAL GOTO 1430 "1425 10 * T0"
1435 PRINT "YOU ON A flayed alive ......"
VAL GOTO 1440 "1720"
1445 PRINT "YOU HAVE THE RIGHT TO TAR AND FEATHERS."
VAL GOTO 1450 "1730"
1455 PRINT "YOU ARE NUMBER 1 PUBLIC LÀENNEMI."
VAL GOTO 1460 "1730"
1465 PRINT
1470 PRINT "MORE DAUN THIRD OF THE POPULATION OF POVERTY IS DEAD FROM YOUR ELECTION."
1475 PRINT
1480 PRINT "THE UNFORTUNATE SURVIVORS DO YOU THINK MORE QUÀA Grab TO gutted."
1485 RETURN
1490 PRINT
1495 PRINT "THE WORKERS ARE IMMIGRANTS IN MAGORITE."
1500 PRINT "They rebelled AND TOOK THE POWER"
1505 GOSUB VAL "1655"
VAL GOTO 1510 "1400"
1515 PRINT
1520 PRINT "YOU STILL HAVE ENOUGH CASH IN DÀARGENT AND YET MANY PEOPLE ARE DEAD OF POVERTY."
1530 PRINT "Do not be surprised if the people rose, TAKES YOUR HOUSE AND YOU DÀASSAUT driven to suicide ..."
1535 GOSUB VAL "1655"
1540 RETURN
1545 PRINT
1550 PRINT "Congratulations!"
1555 PRINT
1560 PRINT "YOU HAVE CORRECTLY COMPLETED YOUR MANDATE" N4 "; YEARS."
1565 PRINT
1570 PRINT "YOU WISH TO TRANSFER OF CAPITAL IN SWITZERLAND?"
1575 INPUT Y $
1580 CLS
1585 IF Y $ (1) <> "Y" THEN GOTO VAL "1625"
1590 GOSUB VAL "1380"
1595 PRINT
1600 PRINT "VALUE OF TRANSFER?"
1605 INPUT SUT
1610 IF SUT> M THEN GOTO VAL "1605"
1615 LET SU = SU + SUT
1620 LET M = M-SUT
1625 CLS
1630 PRINT "YOU WANT TO REPRESENT THE NEXT ELECTIONS"
1635 INPUT Y $
1640 LET N5 = N4
1645 IF Y $ (1) <> "Y" THEN GOTO VAL "1675"
GOTO 1650 VAL "275"
1655 PRINT TAB 5; "(PRESS NEW-LINE)"
1660 INPUT Y $
# 1665 GOSUB VAL "2000"
1665 CLS
1670 RETURN
1675 CLS
1680 IF P * 67> M THEN GOTO VAL "1705"
1685 PRINT "YOU enjoys a peaceful TO BAHAMAS";
1690 IF NOT THEN STOP SU
1695 PRINT "WITH YOUR" SU "U.S.."
GOTO 1700 VAL "1755"
1705 PRINT "YOUR SUCCESSOR NOT ASSESSED NAA lactate OF FINANCE."
1710 PRINT "THERE YOU ORDER BEFORE YOU LEAVE THE COUNTRY."
1715 PRINT "YOU HAVE BEEN TORTURE AND HAVE YOUR NUMBER confessed ACCOUNT IN SWITZERLAND"
1720 PRINT "YOUR DEAD BODY HAS CAUSED THE JOY OF CROCODILE ..."
1725 PRINT
1730 PRINT "MORAL: DO THE CRIME PAY MORE."
1735 PRINT
1740 PRINT
1745 PRINT "IT IS INCREASINGLY SHARP", "ITS LIKE DÀEXPLOITER."
1750 PRINT
1755 GOSUB VAL "1655"
1760 PRINT TAB 8; "END GAME"
1765 PRINT "YOU WANT TO REPLAY (Y / N)"
1770 W $ INPUT
1775 W $ IF CODE = 52 THEN RUN
1780 CLS
1785 PRINT AT 10.12, "GOODBYE"
1790 PAUSE 90
1795 CLS
1800 STOP
# 1800 NEW
1805 FOR I = 1 TO 10
1811 PRINT AT 14.4; "CHECK YOUR NUMBERS"
1815 PRINT AT 14.4; "verify" your "numbers"
1820 PRINT
1825 NEXT I
1830 PRINT "YOUR MINISTERS ,.... AND YOURSELF SHOULD LEARN TO READ AND COUNTING ........"
1835 GOSUB VAL "1655"
1840 RETURN
1845 PRINT "AN OUTBREAK OF REVOLT EXPLODED IN THE NORTH COUNTRY."
1850 LET K = K +1
1855 RETURN
1860 IF K = 1 THEN PRINT "DEBUTS AS THE REVOLT IN THE SOUTH, YOUR SITUATION BECOMES CRITICAL."
1865 RETURN
1870 IF K = 2 THEN PRINT "THE BUSH EC DEVELLOPENT DAY IN DAY, BY THE AID OF NEIGHBORING COUNTRIES."
1875 IF K = 1 THEN PRINT "THE SITUATION YOU STRENGTH TO INSTALL A MINISTRY OF KEEPING LÀORDRE."
1880 IF K> 1 THEN PRINT "THE SITUATION YOU COMPELS THE STRENGTHENING OF SERVICE continue to have an LÀORDRE."
1885 GOSUB VAL "1655"
1890 PRINT "YOU GIVE HIM WHAT BUDGET?"
1895 PRINT
1900 GOSUB VAL "1385"
1905 IF M <5E3 THEN GOSUB VAL "1940"
INPUT 1910 M5
1915 IF M5 <= 0 OR M5> M THEN GOSUB VAL "1805"
1920 IF M5 <= 0 OR M5> M THEN GOTO VAL "1910"
1925 LET M = INT (M-M5)
1930 CLS
1935 RETURN
1940 GOSUB VAL "1385"
1945 PRINT L; "ACRES"
1950 PRINT "YOUR TOO LOW YOU FINANCE THE FIELD forced to sell."
1955 PRINT "A MULTINATIONAL SÀINSTALLER WOULD LIKE, SHE TAKES A LÀHECTARE" L0-8 "FR. HIM HOW MUCH YOU GIVE IN?"
1960 INPUT L5
1965 IF L5 <99 THEN GOTO VAL "1985"
1970 LET L = L-L5
1975 LET M = M + INT (L5 * (L0-8))
1980 RETURN
1985 PRINT "SORRY SHE CAN NOT VALID ON SÀINSTALLER LESS THAN 100 ACRES."
1990 GOTO 1960
1995 STOP
2000 FOR X = 21 TO 5 STEP -1
2010 PRINT AT X, 0; "
2100 NEXT X
2200 RETURN
9000 CLEAR
9010 LET M = PEEK 16389
9020 POKE 16,389.76
9030 CLS
9040 SAVE "CHAIRMAN"
REM 9041 RAND USR 30460
9049 REM S94PRESIDENT
9050 IF PEEK 16389 <> 76 THEN RUN
9060 POKE 16389, M
9070 STOP
9990 CLS
PRINT PEEK 16388 9991 256 16389 * PEEK-PEEK 16,413; "MEV"
PRINT PEEK 16412 9992 256 * PEEK 16413; END CELL "
PRINT PEEK 16396 9993 256 * PEEK 16397-16509; "LONG.PROG."
PRINT PEEK 16388 9999 256 16389 * PEEK-PEEK * PEEK 16401 16400-256; "CELL" UN'T DAS !
Code: Select all
0 REM B.J.P. 1983
CLS 10
15 CLEAR
20 REM ****** ****** VORSITZENDER
25 SLOW
30 Drucken "¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸"
35 Artikeldatenblatt drucken
40 Print-Tab 4 ;"*** Gaming Chair *** "
45 Drucken
50 PRINT "(C) BERNARDI J. P. (1983)"
55 PRINT
60 Artikeldatenblatt drucken "®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®"
65 PRINT
70 PRINT "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
75 Artikeldatenblatt drucken
80 PRINT "Jede Interpretation von POLITIK dieses Spiel kann nicht sein, dass DAS ERGEBNIS DER Twisted Mind LÀELUCUBRATION DAUN .",," dies die einzige FRUIT LÀIMAGINATION IS."
85 PRINT
90 PRINT "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
95 Artikeldatenblatt drucken
GOSUB 100 VAL "1655"
CLS 102
105 Artikeldatenblatt drucken "Sie kommen DÀETRE neuer Präsident der CENTR Laktat-A-FRIC.", "DONE Bei den Wahlen manipuliert schaukelte ABER NICHT NOTREPROBLEME ist rau."
110 Artikeldatenblatt drucken
115 print "Hier sind einige Daten zum Vorschieben eines VOUSAIDER DIESEM LAND nun von ABYSS EDGE."
120 Drucken
125 Artikeldatenblatt drucken "die Ausgaben pro Kopf * 100FR ein Jahr."
130 Artikeldatenblatt drucken "* COMING Ihre Einkommenssteuer INDUSTRIAL, TOURISMUS, den Verkauf von Getreide und die Umwandlung von industriellen Zonen in Ihrer Nähe."
135 Artikeldatenblatt drucken "Jedes Jahr werden Ihnen aufbewahrt DAS LAND'S Mittel zwischen den LUTTEANTI-Verschmutzung, People und LÀEDUCATION LÀAGRICULTURE."
GOSUB 140 VAL "1655"
145 PRINT "richtigen LÀEDUCATION DAUN-Kopf-Kosten um 10 DE NA."
150 Seite drucken
LET 155 N5 = 7
160 Artikeldatenblatt drucken "* eine wirksame Anti-POLUTION 0,44 GB pro Einheit der Verschmutzung."
165 Artikeldatenblatt drucken
170 PRINT "Sie können nicht 0 EN. ON A BUDGET dies, dass Sie nicht zustimmen würden."
175 PRINT
180 PRINT "Du wirst nicht davon abhalten, ich kann dich Tell You Die Vorsitzenden QUÀAUCUN vor seiner Amtszeit endet NAA."
185 PRINT
GOSUB 190 VAL "1655"
LET 195 N4 = 7
200 Drucken
205 PRINT "Good Luck zu Ihrem" N4; "Jahre"
LET 210 N1 = N4-1
215 SLOW
220 Rand
LET 225 M = 95E3 + INT (RND * 6E3)
LET 230 P = INT (RND * 490 + 20)
LET 235 R0 = 0
LET 240 ER = 0
LET 245 K = 0
250 LET L = VAL "2E3"
LET 255 W = 0
LET 260 X2 = 0
E0 = 0 265 LET
270 X1 = 0
275 LET E1 = 0
S9 = 0 280 LET
LET 285 S0 = 0
H5 = 0 290 LET
LET 295 S1 = 0
LET 300 D1 = INT (P / 3)
GOTO VAL 305 "315"
310 Artikeldatenblatt drucken "wieder" N5; "Jahre zu schießen."
315 Artikeldatenblatt drucken
LET 320 L1 = INT (RND * 5 +10)
LET 325 L0 = INT (RND * 10 +95)
330 LET A = 0
335 PRINT
340 PRINT "YOU"
345 PRINT M; "FR Budget."
350 PRINT P, "Menschen".
355 W Wenn nicht, dann GOTO VAL "365"
360 Artikeldatenblatt drucken W; "Arbeiter-Migranten."
365 PRINT L; "Morgen."
371 Wenn nicht, dann GOTO SU VAL "440"
375 PRINT SU "FR Verstecke in SCHWEIZ."
380 PRINT
385 PRINT "Sie wollen SCHWEIZ Rückführung von Kapital (Y / N)"
390 INPUT Y $
CLS 395
Wenn O $ 400 (1) <> "Y" Then GoTo VAL "440"
405 PRINT "Wert der Transfer?"
410 INPUT SUT
415 SUT IF THEN GOTO SU VAL "410"
LET 420 = SU-SU SUT
LET 425 M = M + SUT
CLS 430
GOSUB 435 VAL "1380"
440 PRINT
445 PRINT "Dieses Jahr haben Sie die INDUSTRIAL" L0 ", das von einem großen FR", "Kosten und Plantagen," L1 "FR pro Hektar"
450 Wenn nicht, dann GOTO S1 VAL "460"
455 PRINT "der Grad der Verschmutzung MESSEN UND" S1 "MKSA Einheiten."
460 PRINT
465 print "Wie viel Sie verkaufen möchten TO DÀHECTARES INDUSTRELS?"
470 INPUT L2
IF 475 L2 <= 0 then goto VAL "470"
IF 480 L2 <L then goto 1E3-VAL "520"
CLS 485
490 PRINT "Let You DASS Naav" L-1E3 "; Hektar Land zur Verfügung."
495 IF X1 <> 0 Then GoTo VAL "335"
500 Artikeldatenblatt drucken "THE sind nicht bereit INDUTRIELS BUY A FOREST der Kosten der FACT DÀABATTRGE."
GOSUB 505 VAL "1805"
510 X1 = 1
GOTO VAL 515 "335"
LET 520 M = INT (M * L0 + L2)
525 LET L = INT (L-L2)
LET 530 X9 = INT (44 * (2E3-L))
LET 535 M2 = 0
LET 540 M3 = 0
M4 = 0 545 LET
M5 = 0 550 LET
GOSUB 555 VAL "1380"
560 PRINT ", wie viel Sie IHRE Franken an Personen weitergeben möchten?"
565 INPUT M1
570 IF M1> m, dann GOSUB VAL "1805"
575 IF M1 <0 oder M1> m, dann GOTO VAL "555"
580 Sei M = INT (M-M1)
585 Wenn nicht, dann GOTO M VAL "755"
GOSUB 590 VAL "1380"
595 print "Wie viel Sie PLANT DÀHECTARES wollen?"
600 INPUT L3
605 IF L3 <= 0 then goto VAL "600"
610 IF L3 <= P * 2 THEN GOTO VAL "630"
GOSUB 615 VAL "1805"
620 PRINT "pro Kopf Pflanze, CAN 2 Hektar."
GOTO VAL 625 "660"
630 IF L3 <L then goto 1E3-VAL "645"
635 PRINT "daß Sie Naav" L-1E3 "; Hektar Ackerland."
GOTO VAL 640 "660"
LET 645 M4 = INT (L3 * L1)
650 IF M4 <= m, dann GOTO VAL "680"
GOSUB 655 VAL "1380"
660 print "Sie LIMIT IHR BUDGET A", INT (M/L1); "Hektar Plantage"
665 PRINT "Die Menschen arbeiten könnten" P * 2, "ha und der Oberfläche"
670 Artikeldatenblatt drucken "steht" L-1E3, "Morgen."
GOTO VAL 675 "595"
680 Sei M = INT (M-M4)
685 Wenn nicht, dann GOTO M VAL "755"
GOSUB 690 VAL "1380"
695 print "Wie würden Sie für LÀEDUCATION verbringen?"
700 INPUT M2
705 IF M2 <= 0 oder M2> m, dann GOSUB VAL "1805"
710 IF M2 <= 0 oder M2> m, dann GOTO VAL "690"
715 Sei M = INT (M-M2)
720 Wenn nicht, dann GOTO M VAL "755"
GOSUB 725 VAL "1380"
730 PRINT "Welches Budget GRANT Sie die Anti-Verschmutzung?"
735 INPUT M3
740 IF M3 <= 0 oder M3> m, dann GOSUB VAL "1805"
745 IF M3 <= 0 oder M3> m, dann GOTO VAL "725"
750 Sei M = INT (M-M3)
CLS 755
D0 = 0 760 LET
LET 765 E2 = M2 / P
LET 770 D2 = INT (P-M1/1E2)
775 IF D2 <= 0 then goto VAL "800"
LET 780 D2 = D0
785 IF D2 = 1 THEN PRINT D2; "RESIDENT IS DEAD von Hunger"
790 IF D2 = 1 then goto VAL "800"
795 PRINT D2; "Menschen sind tot vor Hunger"
LET 800 D3 = INT (S1/1E5 * (.4 + .1 * RND) * P)
IF 805 D3 <= 0 then goto VAL "825"
IF 810 D3 = 1 THEN PRINT D3 "Wohnsitzes ist nach Überschreitens Toten."
IF 815 D3> 1 THEN PRINT D3 "Menschen sind von Überschreitens Toten."
LET 820 D0 = D0 + D3
D0 IF 825 <= 0 then goto VAL "925"
LET 830 F = D0 * 9
835 PRINT "YOU ARE REQUIRE zu verbringen" F "FR";
IF 840 D0 = 1 THEN PRINT "TO LÀENTERRER"
IF 845 D0> 1 THEN PRINT "TO ALL THE begraben"
GOSUB 850 VAL "1655"
LET 855 R = F
LET 860 R0 = R0 + R
865 IF R0> = 54 THEN GOSUB VAL "1845"
870 IF R0> = 1E2 THEN GOSUB VAL "1860"
875 IF R0> = 135 THEN GOSUB VAL "1870"
880 Sei M = INT (M-F)
885, wenn m> = 0 Then GoTo VAL "925"
890 print "Ihre Low Budget FOR SALE Sie Land zwingt."
LET 895 T0 =- INT (M/L0) 1
900 LET L = L-T 0
IF 905 L> = 1E3 then goto VAL "920"
910 print "Sie sind nicht genug NA FIELD"
VAL GOTO 915 "1400"
LET 920 M = M + (T0 * L0)
IF 925 D0> 2e2 then goto VAL "1410"
930 Sei P = P-D0
LET 935 D1 = D1-D0
940 falls d1 <= 0 THEN GOSUB VAL "1465"
945 IF D2 <= 2 Then GoTo VAL "955"
950, wenn m> 5E2 THEN GOSUB VAL "1515"
IF 955 L2 <= 5 then goto VAL "1E3"
LET 960 T0 = INT ((L2 * L2 + .2 * RND) / 5)
965 W Wenn nicht, dann GOTO VAL "990"
LET 970 T0 = INT (T0 + .1 * W)
975 IF T0> 1 then goto VAL "990"
980 PRINT T0 "Arbeitnehmer Immigranten angekommen."
VAL 985 GOTO 995
990 PRINT T0 "Einwanderer sind Arbeitnehmer ankommen."
LET 995 W = W + T0
LET 1000 T0 = INT (((5E2-P) / 10-D3 / D2-3 / 5) *. 75 * (1 + RND))
1005 Wenn nicht, dann GOTO T0 VAL "1065"
1010 Artikeldatenblatt drucken ABS T0 "Resident"
1015 IF S1> = 5E2 oder M2 <P * = 10 then goto VAL "1050"
1020 IF T0 = 1 THEN PRINT "kam SÀINSTALLER"
1030 IF S1> 5E2 oder M2 <P * = 10 then goto VAL "1050"
1035 PRINT "S SÀINSTALLER kam"
1040 sei P = P + T0
GOTO 1045 VAL "1060"
1046 Artikeldatenblatt drucken
1050 IF T0 = 1 THEN PRINT T0 "A RESIDENT das Land verlässt."
1052 PRINT
1055 IF T0> 1 THEN PRINT T0 "Die Menschen haben das Land verlassen"
1060 sei P = P-T0
1065 IF P <W then goto VAL "1490"
LET 1070 T0 = 0
1075 L IF THEN GOTO 2E3 = VAL "1105"
LET 1080 T0 = INT (S1/1E5 * L3)
1085 IF T0 <= then goto L3 VAL "1095"
1090 LET L3 = T0
1095 Wenn nicht, dann GOTO T0 VAL "1105"
1100 Artikeldatenblatt drucken "auf Ihrer" L3 "HECT RES pflanzen."
1105 PRINT "Sie ernten" L3-T0 "MORGEN"
1110 Wenn nicht, dann GOTO T0 VAL "1125"
1115 PRINT "(ein Fall der Verschmutzung von LÀAUGMENTATION)"
LET 1120 X2 = x2 1
LET 1125 T1 = INT ((RND * 39 + 20) * (1 + .25 * (E0 + E1) / 20))
1130 PRINT "IF YOU betreffen diese" INT (T1 * (L3-T0)); "FR."
1135 sei M = M + INT (T1 * (L3-T0))
1140 LET M5 = INT (T0-T1)
LET 1145 E0 = E1
1150 IF E2 <= 10 THEN GOTO VAL "1160"
1155 LET E2 = 10
1160 LET E1 = E2
T0 = 1165 LET L-2E3
1170 IF T0 <2 Then GoTo VAL "1305"
1175 IF T0 <= 26 THEN GOTO VAL "1185"
LET 1180 T0 = 26
LET 1185 T0 = INT (T0 * * 5E2 (,52 + .5 * RND))
LET 1190 T1 = S1/1E5
1195 IF T1 <= 1 Then GoTo VAL "1205"
LET 1200 T1 = 1
LET 1205 T1 = T0 T1 *
1210 sei M = M + INT (T0-T1)
1215 PRINT "The Tourist"
1220 IF INT (T0-T1) <= then goto M5 VAL "1290"
1225 IF S1 <= S9 then goto VAL "1290"
1230 PRINT "deutlichen Rückgang des CAR"
1235 LET T2 = INT (RND * 5 +1)
VAL GOTO 1240 "1235 * 10 + T2"
1245 PRINT "Viele Fische sind tot"
GOTO 1250 VAL "1290"
1255 PRINT "die kleinen Vögel Sing For weniger in weniger"
GOTO 1260 VAL "1290"
1265 PRINT "LÀEAU des Bades ist CURISTE5 POLUEE"
GOTO 1270 VAL "1290"
1275 PRINT "den üblen Geruch abschrecken estiva"
GOTO 1280 VAL "1290"
1285 PRINT "Die Hotels sind werkseitig Rauch geschwärzt"
1290 PRINT "Sie auszahlt", INT (T0-T1) "FR."
1295 PRINT
LET 1300 S1 = S9
1305 LET S2 = (2E3-L) + (2E3-L) -M3/.44
1310 Wenn nicht, dann GOTO X9 VAL "1325"
1315 PRINT "Die Honorare Sie industrielle", "beziehen" X9 "FR".
1320 sei M = M + X9
1325 IF S2> = 0 THEN GOTO VAL "1350"
LET 1330 S1 = INT (S1 + S2 / 2)
1335 IF S1> S0 then goto = VAL "1345"
LET 1340 S1 = S0
VAL GOTO 1345 "1360"
LET 1350 S1 = INT (S1 + S2)
1355 LET S0 = INT (S2/10 + S0)
1360 LET = N5 N5-1
1365 GOSUB VAL "1655"
1370 Wenn nicht, dann GOTO N5 VAL "1545"
GOTO 1375 VAL "310"
1380 CLS
1385 PRINT "Ruhen Sie" M "FR."
1390 PRINT
1395 RETURN
1400 PRINT "SIE HABEN DIE IN DEN JETE REVERSES und feuchter Dungeons ...."
VAL GOTO 1405 "1730"
1410 PRINT
1415 PRINT D0, "People Are diesem Jahr wegen der YOUR DEAD grober Fahrlässigkeit."
1420 PRINT "Nicht nur Sie WURDEN ABER AUCH REVERSES";
LET 1425 T0 = INT (RND * 2) 1
VAL GOTO 1430 "1425 10 * T0"
1435 PRINT "Sie mit auf eine lebendig geschunden ......"
VAL GOTO 1440 "1720"
1445 PRINT "Sie haben das Recht, Teer und Federn."
VAL GOTO 1450 "1730"
1455 print "Sie sind Nummer 1 PUBLIC LÀENNEMI."
VAL GOTO 1460 "1730"
1465 PRINT
1470 PRINT "MORE DAUN Drittel der Bevölkerung von Armut ist FROM Ihrer Wahl gestorben."
1475 PRINT
1480 print "Der unglückliche SURVIVORS Do You Think MORE TO QUÀA Grab ausgenommen."
1485 RETURN
1490 PRINT
1495 PRINT "Die Arbeiter sind Zuwanderer in MAGORITE."
1500 PRINT "Sie rebellierten und nahm den POWER"
1505 GOSUB VAL "1655"
VAL GOTO 1510 "1400"
1515 PRINT
1520 PRINT "Sie haben noch genug Geld IN DÀARGENT und noch viele Menschen sind tot von Armut."
1530 PRINT "Seien Sie nicht überrascht, wenn das Volk sich erhob, NIMMT IHR Haus und Sie DÀASSAUT in den Selbstmord getrieben ..."
1535 GOSUB VAL "1655"
1540 RETURN
1545 PRINT
1550 PRINT "Congratulations!"
1555 PRINT
1560 PRINT "Sie haben richtig Ihr Mandat ERLEDIGT" N4 "; Jahre."
1565 PRINT
1570 PRINT "Du willst CAPITAL OF IN DER SCHWEIZ übertragen?"
1575 INPUT Y $
1580 CLS
1585 IF Y $ (1) <> "Y" Then GoTo VAL "1625"
1590 GOSUB VAL "1380"
1595 PRINT
1600 PRINT "Wert der Transfer?"
1605 INPUT SUT
1610 IF SUT> m, dann GOTO VAL "1605"
1615 LET = SU SU + SUT
1620 sei M = M-SUT
1625 CLS
1630 PRINT "Sie wollen den nächsten Wahlen repräsentieren"
1635 INPUT Y $
1640 N5 = N4 LET
1645 IF Y $ (1) <> "Y" Then GoTo VAL "1675"
GOTO 1650 VAL "275"
1655 PRINT TAB 5; "(PRESS NEW-LINE)"
1660 INPUT Y $
# 1665 GOSUB VAL "2000"
1665 CLS
1670 RETURN
1675 CLS
1680 IF P * 67> m, dann GOTO VAL "1705"
1685 print "Sie befindet sich in ruhiger nach Bahamas";
1690 Wenn nicht, dann STOP SU
1695 PRINT "mit Ihrem" SU "US."
GOTO 1700 VAL "1755"
1705 PRINT "Ihr Nachfolger nicht bewertet NAA OF FINANCE Laktat."
1710 PRINT "There You Bestellung, bevor Sie das Land verlassen."
1715 PRINT "Du hast TORTURE und haben Ihre NUMBER gestand KONTO IN DER SCHWEIZ"
1720 PRINT "Your Dead Körper hat die JOY OF VERURSACHTE CROCODILE ..."
1725 PRINT
1730 PRINT "Moral: DO THE CRIME mehr bezahlen."
1735 PRINT
1740 PRINT
1745 PRINT "Es wird immer SHARP", "Es ist wie DÀEXPLOITER."
1750 PRINT
1755 GOSUB VAL "1655"
1760 PRINT TAB 8; "End Game"
1765 PRINT "Du willst REPLAY (Y / N)"
1770 W $ INPUT
1775 W $ IF CODE = 52 dann auf Ausführen
1780 CLS
1785 PRINT AT 10.12, "Goodbye"
1790 PAUSE 90
1795 CLS
1800 STOP
# 1800 NEU
1805 für I = 1 bis 10
1811 PRINT bei 14,4; "Prüfen Sie Ihre Zahlen"
1815 PRINT bei 14,4; "verify" Ihre "Zahlen"
1820 PRINT
1825 NEXT I
1830 PRINT "Ihre Minister ,.... und sich selbst lernen sollte, READ und Zählen ........"
1835 GOSUB VAL "1655"
1840 RETURN
1845 PRINT "AUSBRUCH der Revolte explodierte in dem Land des Nordens."
1850 sei K = K +1
1855 RETURN
1860 Wenn K = 1 THEN PRINT "Debüts als der Aufstand in der SOUTH Ihre Situation kritisch wird."
1865 RETURN
1870 IF K = 2 THEN PRINT "Die Bush-EG DEVELLOPENT Tag für Tag, mit Hilfe der Nachbarländer."
1875 Wenn K = 1 THEN PRINT "Die Lage Ihnen Kraft Schaffung eines Ministeriums für KEEPING LÀORDRE installieren."
1880 bei K> 1 THEN PRINT "Die Situation SIE DIE STÄRKEN DER SERVICE zwingt weiterhin eine LÀORDRE haben."
1885 GOSUB VAL "1655"
1890 PRINT "Du gibst ihm Welches Budget?"
1895 PRINT
1900 GOSUB VAL "1385"
1905, wenn m <5E3 THEN GOSUB VAL "1940"
INPUT 1910 M5
1915 IF M5 <= 0 oder M5> m, dann GOSUB VAL "1805"
1920 IF M5 <= 0 oder M5> m, dann GOTO VAL "1910"
1925 sei M = INT (M-M5)
1930 CLS
1935 RETURN
1940 GOSUB VAL "1385"
1945 PRINT L; "MORGEN"
1950 PRINT »Ihre TOO LOW Sie finanzieren das FIELD gezwungen, zu verkaufen."
1955 PRINT "Ein multinationaler SÀINSTALLER möchte, nimmt sie einen LÀHECTARE" L0-8 "FR. Ihn, wie viel Sie geben?"
INPUT 1960 L5
1965 IF L5 <99 then goto VAL "1985"
1970 LET L = L-L5
1975 sei M = M + INT (L5 * (L0-8))
1980 RETURN
1985 PRINT "CAN leid, daß sie nicht gültig SÀINSTALLER weniger als 100 Hektar."
1990 GOTO 1960
1995 STOP
2000 FO X = 21 bis 5 STEP -1
2010 Print AT X, 0; "
2100 NEXT X
2200 RETURN
9000 CLEAR
9010 sei M = PEEK 16.389
9020 POKE 16,389.76
9030 CLS
9040 SAVE "Vorsitzender"
REM 9.041 RAND USR 30460
9049 REM S94PRESIDENT
9050 IF PEEK 16.389 <> 76 dann auf Ausführen
9060 POKE 16389, M
9.070 STOP
9990 CLS
PRINT PEEK 16388 9991 256 16389 * PEEK PEEK-16413; "MEV"
PRINT PEEK 16412 9992 256 * PEEK 16.413; Endzelle "
PRINT PEEK 16396 9993 256 * PEEK 16.397-16.509; "LONG.PROG."
PRINT PEEK 16388 9999 256 16389 * PEEK-PEEK PEEK * 16401 16400-256; "CELL"
