1 PRINT TAB(34);"KING"
2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
3 PRINT:PRINT:PRINT
4 Z = ASK("DO YOU WANT INSTRUCTIONS? ")
6 N=8
10 IF PEEK(Z,0)=ORD("n") THEN 47
11 IF COMP(Z, "AGAIN")=0 THEN 1960
12 PRINT:PRINT:PRINT
20 PRINT "CONGRATULATIONS! YOU'VE JUST BEEN ELECTED PREMIER OF SETATS"
22 PRINT "DETINU, A SMALL COMMUNIST ISLAND 30 BY 70 MILES LONG. YOUR"
24 PRINT "JOB IS TO DECIDE UPON THE CONTRY'S BUDGET AND DISTRIBUTE"
26 PRINT "MONEY TO YOUR COUNTRYMEN FROM THE COMMUNAL TREASURY."
28 PRINT "THE MONEY SYSTEM IS RALLODS, AND EACH PERSON NEEDS 100"
30 PRINT "RALLODS PER YEAR TO SURVIVE. YOUR COUNTRY'S INCOME COMES"
32 PRINT "FROM FARM PRODUCE AND TOURISTS VISITING YOUR MAGNIFICENT"
34 PRINT "FORESTS, HUNTING, FISHING, ETC. HALF YOUR LAND IS FARM LAND"
36 PRINT "WHICH ALSO HAS AN EXCELLENT MINERAL CONTENT AND MAY BE SOLD"
38 PRINT "TO FOREIGN INDUSTRY (STRIP MINING) WHO IMPORT AND SUPPORT"
40 PRINT "THEIR OWN WORKERS. CROPS COST BETWEEN 10 AND 15 RALLODS PER"
42 PRINT "SQUARE MILE TO PLANT."
44 PRINT "YOUR GOAL IS TO COMPLETE YOUR ";N;" YEAR TERM OF OFFICE."
46 PRINT "GOOD LUCK!"
47 PRINT : Z = 0
50 A=(60000+(RND(1000))-(RND(1000)))
55 B=(500+(RND(10))-(RND(10)))
65 D=2000
100 W=(RND(10)+95)
102 PRINT
105 PRINT "YOU NOW HAVE ";A;" RALLODS IN THE TREASURY."
110 PRINT (B);" COUNTRYMEN, ";
115 Y=(((RND(10)/2)+10))
120 IF C=0 THEN 140
130 PRINT (C);" FOREIGN WORKERS, ";
140 PRINT "AND ";(D);" SQ. MILES OF LAND."
150 PRINT "THIS YEAR INDUSTRY WILL BUY LAND FOR ";W;
152 PRINT " RALLODS PER SQUARE MILE."
155 PRINT "LAND CURRENTLY COSTS ";Y;" RALLODS PER SQUARE MILE TO PLANT."
162 PRINT
200 INPUT "HOW MANY SQUARE MILES DO YOU WISH TO SELL TO INDUSTRY? ";H
210 IF H<0 THEN 200
220 IF (H-1)<D-1000 THEN 300
230 PRINT "***  THINK AGAIN. YOU ONLY HAVE ";D-1000;" SQUARE MILES OF FARM LAND."
240 IF X#0 THEN 200
250 PRINT:PRINT "(FOREIGN INDUSTRY WILL ONLY BUY FARM LAND BECAUSE"
260 PRINT "FOREST LAND IS UNECONOMICAL TO STRIP MINE DUE TO TREES,"
270 PRINT "THICKER TOP SOIL, ETC.)"
280 X=1
299 GOTO 200
300 D=(D-H)
310 A=(A+(H*W))
320 INPUT "HOW MANY RALLODS WILL YOU DISTRIBUTE AMONG YOUR COUNTRYMEN? ";I
342 IF I<0 THEN 320
350 IF I<A THEN 400
360 IF I=A THEN 380
370 PRINT "   THINK AGAIN. YOU'VE ONLY ";A;" RALLODS IN THE TREASURY"
375 GOTO 320
380 J=0
390 K=0
395 A=0
399 GOTO 1000
400 A=(A-I)
410 INPUT "HOW MANY SQUARE MILES DO YOU WISH TO PLANT? ";J
421 IF J<0 THEN 410
422 IF J-1<B*2 THEN 426
423 PRINT "   SORRY, BUT EACH COUNTRYMAN CAN ONLY PLANT 2 SQ. MILES."
424 GOTO 410
426 IF J-1<D-1000 THEN 430
427 PRINT "   SORRY, BUT YOU'VE ONLY ";D-1000;" SQ. MILES OF FARM LAND."
428 GOTO 410
430 Q=(J*Y)
435 IF Q<A THEN 500
440 IF Q=A THEN 490
450 PRINT "   THINK AGAIN. YOU'VE ONLY ";A;" RALLODS LEFT IN THE TREASURY."
460 GOTO 410
490 K=0
495 A=0
499 GOTO 1000
500 A=A-Q
510 PRINT "HOW MANY RALLODS DO YOU WISH TO SPEND ON POLLUTION CONTROL";
520 INPUT K
522 IF K<0 THEN 510
530 IF K-1<A THEN 1000
540 PRINT "   THINK AGAIN. YOU ONLY HAVE ";A;" RALLODS REMAINING."
550 GOTO 510
600 IF H#0 THEN 1002
602 IF I#0 THEN 1002
604 IF J#0 THEN 1002
606 IF K#0 THEN 1002
609 PRINT
612 PRINT "GOODBYE."
614 PRINT "(IF YOU WISH TO CONTINUE THIS GAME AT A LATER DATE, ANSWER"
616 PRINT "'AGAIN' WHEN ASKED IF YOU WANT INSTRUCTIONS AT THE START"
617 PRINT "OF THE GAME)."
618 STOP
1000 GOTO 600
1002 PRINT
1003 PRINT
1010 A=(A-K)
1020 E=A
1100 IF (I/100-B)>-1 THEN 1120
1105 IF I/100<50 THEN 1700
1110 PRINT (B-(I/100));" COUNTRYMEN DIED OF STARVATION"
1120 F=((2000-D)/RND(1000))
1122 IF K<25 THEN 1130
1125 F=(F/(K/25))
1130 IF F<1 THEN 1150
1140 PRINT F;" COUNTRYMEN DIED OF CARBON-MONOXIDE AND DUST INHALATION"
1150 IF ((I/100)-B)<0 THEN 1170
1160 IF F>0 THEN 1180
1165 GOTO 1200
1170 PRINT "   YOU WERE FORCED TO SPEND ";((F+(B-(I/100)))*9);
1172 PRINT " RALLODS ON FUNERAL EXPENSES"
1174 L=(F+(B-(I/100)))
1175 A=(A-((F+(B-(I/100)))*9))
1176 GOTO 1185
1180 PRINT "   YOU WERE FORCED TO SPEND ";(F*9);" RALLODS ON ";
1181 PRINT "FUNERAL EXPENSES."
1182 L=F
1183 A=(A-(F*9))
1185 IF A>-1 THEN 1194
1187 PRINT "   INSUFFICIENT RESERVES TO COVER COST - LAND WAS SOLD"
1189 D=(D+(A/W))
1190 A=0
1194 B=(B-L)
1200 IF H=0 THEN 1250
1220 R=(H+(RND(10))-(RND(20)))
1224 IF C>0 THEN 1230
1226 R=R+20
1230 PRINT R;" WORKERS CAME TO THE COUNTRY AND";
1250 P=(((I/100-B)/10)+(K/25)-((2000-D)/50)-(F/2))
1255 PRINT ABS(P);" COUNTRYMEN ";
1260 IF P<0 THEN 1275
1265 PRINT "CAME TO";
1270 GOTO 1280
1275 PRINT "LEFT";
1280 PRINT " THE ISLAND."
1290 B=(B+P)
1292 C=(C+R)
1305 U=(((2000-D)*((RND(10)+15)/20)))
1310 IF C=0 THEN 1324
1320 PRINT "OF ";(J);" SQ. MILES PLANTED,";
1324 IF J>U THEN 1330
1326 U=J
1330 PRINT " YOU HARVESTED ";(J-U);" SQ. MILES OF CROPS."
1340 IF U=0 THEN 1370
1344 IF T>1 THEN 1370
1350 PRINT "   (DUE TO ";
1355 IF T=0 THEN 1365
1360 PRINT "INCREASED ";
1365 PRINT "AIR AND WATER POLLUTION FROM FOREIGN INDUSTRY.)"
1370 Q=((J-U)*(W/2))
1380 PRINT "MAKING ";(Q);" RALLODS."
1390 A=(A+Q)
1400 V=(((B-P)*22)+(RND(500)))
1405 O=((2000-D)*15)
1410 PRINT " YOU MADE ";V-O;" RALLODS FROM TOURIST TRADE."
1420 IF O=0 THEN 1450
1425 IF V-O>Z-1 THEN 1450
1430 PRINT "   DECREASE BECAUSE ";
1435 G=RND(10)
1440 IF G<3 THEN 1460
1442 IF G<5 THEN 1465
1444 IF G<7 THEN 1470
1446 IF G<9 THEN 1475
1448 IF G<11 THEN 1480
1450 Z=(V-O)
1451 A=(A+Z)
1452 GOTO 1500
1460 PRINT "FISH POPULATION HAS DWINDLED DUE TO WATER POLLUTION."
1462 GOTO 1450
1465 PRINT "AIR POLLUTION IS KILLING GAME BIRD POPULATION."
1467 GOTO 1450
1470 PRINT "MINERAL BATHS ARE BEING RUINED BY WATER POLLUTION."
1472 GOTO 1450
1475 PRINT "UNPLEASANT SMOG IS DISCOURAGING SUN BATHERS."
1477 GOTO 1450
1480 PRINT "HOTELS ARE LOOKING SHABBY DUE TO SMOG GRIT."
1482 GOTO 1450
1500 IF L>200 THEN 1600
1505 IF B<343 THEN 1700
1510 IF (E/100)>5 THEN 1800
1515 IF C>B THEN 1550
1520 IF N-1=S THEN 1900
1545 GOTO 2000
1550 PRINT
1552 PRINT
1560 PRINT "THE NUMBER OF FOREIGN WORKERS HAS EXCEEDED THE NUMBER"
1562 PRINT "OF COUNTRYMEN. AS A MINORITY, THEY HAVE REVOLTED AND"
1564 PRINT "TAKEN OVER THE COUNTRY."
1570 IF RND(100)<51 THEN 1580
1574 PRINT "YOU HAVE BEEN THROWN OUT OF OFFICE AND ARE NOW"
1576 PRINT "RESIDING IN PRISON."
1578 GOTO 1590
1580 PRINT "YOU HAVE BEEN ASSASSINATED."
1590 PRINT
1592 PRINT
1596 STOP
1600 PRINT
1602 PRINT
1610 PRINT L;" COUNTRYMEN DIED IN ONE YEAR!!!!!"
1615 PRINT "DUE TO THIS EXTREME MISMANAGEMENT, YOU HAVE NOT ONLY"
1620 PRINT "BEEN IMPEACHED AND THROWN OUT OF OFFICE, BUT YOU"
1622 M=(RND(10))
1625 IF M<4 THEN 1670
1630 IF M<7 THEN 1680
1635 IF M<10 THEN 1690
1670 PRINT "ALSO HAD YOUR LEFT EYE GOUGED OUT!"
1672 GOTO 1590
1680 PRINT "HAVE ALSO GAINED A VERY BAD REPUTATION."
1682 GOTO 1590
1690 PRINT "HAVE ALSO BEEN DECLARED NATIONAL FINK."
1692 GOTO 1590
1700 PRINT
1702 PRINT
1710 PRINT "OVER ONE THIRD OF THE POPULTATION HAS DIED SINCE YOU"
1715 PRINT "WERE ELECTED TO OFFICE. THE PEOPLE (REMAINING)"
1720 PRINT "HATE YOUR GUTS."
1730 GOTO 1570
1800 IF L-F<2 THEN 1515
1807 PRINT
1815 PRINT "MONEY WAS LEFT OVER IN THE TREASURY WHICH YOU DID"
1820 PRINT "NOT SPEND. AS A RESULT, SOME OF YOUR COUNTRYMEN DIED"
1825 PRINT "OF STARVATION. THE PUBLIC IS ENRAGED AND YOU HAVE"
1830 PRINT "BEEN FORCED TO EITHER RESIGN OR COMMIT SUICIDE."
1835 PRINT "THE CHOICE IS YOURS."
1840 PRINT "IF YOU CHOOSE THE LATTER, PLEASE TURN OFF YOUR COMPUTER"
1845 PRINT "BEFORE PROCEEDING."
1850 GOTO 1590
1900 PRINT
1902 PRINT
1920 PRINT "CONGRATULATIONS!!!!!!!!!!!!!!!!!!"
1925 PRINT "YOU HAVE SUCCESFULLY COMPLETED YOUR ";N;" YEAR TERM"
1930 PRINT "OF OFFICE. YOU WERE, OF COURSE, EXTREMELY LUCKY, BUT"
1935 PRINT "NEVERTHELESS, IT'S QUITE AN ACHIEVEMENT. GOODBYE AND GOOD"
1940 PRINT "LUCK - YOU'LL PROBABLY NEED IT IF YOU'RE THE TYPE THAT"
1945 PRINT "PLAYS THIS GAME."
1950 GOTO 1590
1960 PRINT "HOW MANY YEARS HAD YOU BEEN IN OFFICE WHEN INTERRUPTED ";
1961 INPUT S
1962 IF S<0 THEN 1590
1963 IF S<8 THEN 1969
1965 PRINT "   COME ON, YOUR TERM IN OFFICE IS ONLY ";N;" YEARS."
1967 GOTO 1960
1969 PRINT "HOW MUCH DID YOU HAVE IN THE TREASURY";
1970 INPUT A
1971 IF A<0 THEN 1590
1975 PRINT "HOW MANY COUNTRYMEN";
1976 INPUT B
1977 IF B<0 THEN 1590
1980 PRINT "HOW MANY WORKERS";
1981 INPUT C
1982 IF C<0 THEN 1590
1990 PRINT "HOW MANY SQUARE MILES OF LAND";
1991 INPUT D
1992 IF D<0 THEN 1590
1993 IF D>2000 THEN 1996
1994 IF D>1000 THEN 100
1996 PRINT "   COME ON, YOU STARTED WITH 1000 SQ. MILES OF FARM LAND"
1997 PRINT "   AND 10,000 SQ. MILES OF FOREST LAND."
1998 GOTO 1990
2000 S=S+1
2020 L=0
2040 GOTO 100
2046 END

