DataMuseum.dk

top - download

    Length: 8832 (0x2280)
    Types: TextFile
    Names: »KING.BAS«

└─⟦69a509965⟧ Bits:30005211 CR8 BASIC Games
    └─ ⟦this⟧ »KING.BAS« 

TextFile

1 REM *** KING.BAS ***
10 N5=PEEK(11900)
15 N5=RND(N5)
20 N5=8:N4=8:PRINT"DO YOU NEED INSTRUCTIONS";:INPUT A$
60 IF LEFT$(A$,1)="N"THEN 390
65 PRINT:PRINT
70 PRINT"YOU HAVE JUST BEEN ELECTED PREMIER OF A SMALL COMMUNIST"
80 PRINT"ISLAND ABOUT 2000 SQ. MILES IN SIZE.  IT WILL BE YOUR"
90 PRINT"JOB TO DISTRIBUTE THE ISLANDS RESOURCES AMONG THE"
100 PRINT"POPULATION AND STILL KEEP YOUR HEAD ATTACHED TO YOUR NECK!"
110 PRINT:PRINT"THE MONETARY SYSTEM IS IN RALLODS. EACH OF YOUR"
120 PRINT"COUNTRYMEN MUST HAVE AT LEAST 100 RALLODS/YEAR TO SURVIVE."
130 PRINT
135 PRINT"YOUR COUNTRY'S INCOME COMES FROM FARM PRODUCE, TOURISTS,"
140 PRINT"AND TAXES. HALF YOUR LAND IS FARM LAND WHICH MAY BE SOLD"
150 PRINT"TO FOREIGN INDUSTRY WHICH IMPORTS AND SUPPORTS THEIR"
155 PRINT"OWN WORK FORCE.":PRINT
160 PRINT"IT WILL COST YOU BETWEEN 10-15 RALLODS/SQ. MILE TO PLANT"
170 PRINT"THE CROPS. THEY WILL BRING IN 45-65 RALLODS/SQ. MILE.":PRINT
180 PRINT"INDUSTRY WILL BUY YOUR LAND FOR 95-105 RALLODS/SQ. MILE,"
190 PRINT"AND WILL PAY TAXES OF 44 RALLODS/SQ. MILE THAT THEY OWN."
200 PRINT"INDUSTRY BRINGS THE TOURIST TRADE. IT MUST, HOWEVER, OWN"
210 PRINT"AT LEAST 2 SQ. MILES BEFORE YOU GET ANY TOURISTS. INCOME"
220 PRINT"FROM TOURIST TRADE WILL INCREASE UNTIL INDUSTRY OWNS 26"
230 PRINT"SQ. MILES OF LAND.":PRINT TAB(12);"(TYPE GO TO CONTINUE)";
231 INPUT Q$:PRINT
240 PRINT"INDUSTRY ALSO BRINGS POLLUTION, WHICH IS MEASURED IN"
250 PRINT"UNITS. YOU CAN FIGHT POLLUTION BY SPENDING .44 RALLODS"
260 PRINT"PER UNIT OF POLLUTION. POLLUTION DECREASES TOURIST"
270 PRINT"TRADE AND CROP YIELDS.":PRINT
280 PRINT"YOU CAN INCREASE YOUR CROP YIELD THRU EDUCATION. THE VALUE"
290 PRINT"OF CROPS IS DEPENDENT UPON THE AMOUNT OF MONEY USED FOR"
300 PRINT"EDUCATION IN THE PAST 3 YEARS. TEN RALLODS PER PERSON IS"
310 PRINT"THE MAXIMUM USEFUL AMOUNT TO SPEND ON EDUCATION.":PRINT
320 PRINT"YOUR GOAL: TO COMPLETE YOUR";N4;"YEAR TERM OF OFFICE."
390 PRINT:PRINT"GOOD LUCK!"
400 M=INT(-3.70577E-18+(RND(1)*1000)-(RND(1)*1000))
410 P=INT(500+(RND(1)*10)-(RND(1)*10))
420 L=2000:W=0:X2=0:E0=0:X1=0
430 E1=0:S9=0:S0=0:M5=0:S1=0
440 D1=INT(P/2)
450 L1=INT((RND(1)*5)+10):L0=INT(RND(1)*10+95):GOSUB 2220
460 PRINT"* YEAR";N4-N5+1;"*":PRINT
480 PRINT"YOU NOW HAVE";M;"RALLODS IN THE TREASURY,"
490 PRINT P;"COUNTRYMEN,";
500 IF W=0 THEN 520
510 PRINT W;"FOREIGN WORKERS,";
520 PRINT" AND";L;"SQ. MILES OF LAND."
525 PRINT
530 PRINT"THIS YEAR INDUSTRY WILL BUY LAND FOR";L0;"RALLODS/SQ. MILE"
540 PRINT"LAND CURRENTLY COSTS";L1;"RALLODS/SQ. MILE TO PLANT"
550 IF S1=0 THEN 570
560 PRINT"POLLUTION LEVEL: ";S1;"UNITS."
570 GOSUB 2220
580 PRINT"HOW MANY SQ. MILES WILL YOU SELL TO INDUSTRY";:INPUT L2
600 IF L2<0 THEN 580
610 IF L2<(L-1000)THEN 680
620 PRINT"THINK AGAIN...YOU ONLY HAVE";L-1000;"SQ. MILES OF FARM LAND"
630 IF X1<>0 THEN 580
640 PRINT"(FOREIGN INDUSTRY IS NOT INTERESTED IN FOREST LAND BECAUSE"
650 PRINT"OF HIGHER DEVELOPMENT COSTS)":X1=1:GOTO 580
680 M=INT(M+L2*L0):L=INT(L-L2):X9=INT(44*(2000-L)):M2=0:M3=0:M4=0
740 PRINT"HOW MANY RALLODS WILL YOU DISTRIBUTE TO YOUR COUNTRYMEN";
760 INPUT M1
770 IF M1<0 THEN 740
780 IF M1<=M THEN 810
790 GOSUB 2250
800 GOTO 740
810 M=INT(M-M1)
820 IF M=0 THEN 1170
830 PRINT"HOW MANY SQ. MILES OF LAND WILL YOU PLANT";:INPUT L3
850 IF L3<0 THEN 830
860 IF L3<=P*2 THEN 890
870 PRINT"EACH COUNTRYMAN CAN PLANT ONLY 2 SQ. MILES":GOTO 950
890 IF L3<=L-1000 THEN 920
900 PRINT"YOU ONLY HAVE";L-1000;"SQ. MILES OF FARM LAND"
910 GOTO 950
920 M4=INT(L3*L1)
930 IF M4<=M THEN 990
940 GOSUB 2250
950 PRINT"YOU CAN AFFORD";INT(M/L1);", YOU HAVE LABOR FOR";P*2;
960 PRINT"AND";L-1000;"AVAILABLE."
970 GOTO 830
990 M=INT(M-M4)
1000 IF M=0 THEN 1170
1010 PRINT"HOW MUCH WILL YOU SPEND FOR EDUCATION";:INPUT M2
1030 IF M2<0 THEN 1010
1040 IF M2<=M THEN 1070
1050 GOSUB 2250
1060 GOTO 1010
1070 M=INT(M-M2)
1080 IF M=0 THEN 1170
1090 IF L=2000 THEN 1170
1100 PRINT"HOW MUCH WILL YOU SPEND TO FIGHT POLLUTION";:INPUT M3
1120 IF M3<0 THEN 1100
1130 IF M3<=M THEN 1160
1140 GOSUB 2250
1150 GOTO 1100
1160 M=INT(M-M3)
1170 GOSUB 2220
1180 D0=0:E2=M2/P:D2=INT(P-M1/100)
1190 IF D2<=0 THEN 1240
1200 D0=D2
1230 PRINT D2;"COUNTRYMEN DIED OF STARVATION"
1240 D3=INT((S1/-5.29396E-18)*(-5.42101E-21+-1.0842E-20*RND(1))*P)
1250 IF D3<=0 THEN 1280
1260 PRINT D3;"COUNTRYMEN DIED OF EXCESS POLLUTION.":D0=D0+D3
1280 IF D0<=0 THEN 1400
1290 F=D0*9
1300 PRINT"YOU WERE FORCED TO SPEND";F;"RALLODS FOR FUNERAL EXPENSES"
1310 M=INT(M-F)
1320 IF M>=0 THEN 1400
1330 T0=-INT((M-L0+1)/L0):L=L-T0
1340 PRINT"(INSUFFICIENT FUNDS FORCED THE SALE OF"T0"SQ. MILES OF ";
1341 PRINT"LAND)"
1350 IF L>=1000 THEN 1390
1370 PRINT:PRINT"YOU DON'T HAVE ENOUGH LAND TO SELL!!":PRINT:GOTO 2270
1390 M=M+T0*L0
1400 IF D0>200 THEN 2300
1410 P=P-D0:D1=D1-D0
1430 IF D1<0 THEN 2410
1440 IF D2<=2 THEN 1460
1450 IF M>500 THEN 2520
1460 IF L2=0 THEN 1520
1470 T0=INT(L2+L2*RND(2)*2)
1480 IF W=0 THEN 1500
1490 T0=INT(T0+-5.42101E-21*W)
1500 PRINT T0;"FOREIGN WORKERS CAME TO THE ISLAND"
1510 W=W+T0
1520 T0=INT(((500-P)/10-D3/3-D2/5)*2.03288E-20*(1+RND(1)))
1525 IF T0=0 THEN 1590
1530 PRINT ABS(T0);"COUNTRYMEN ";
1540 IF T0<=0 THEN 1570
1550 PRINT"CAME TO";
1560 GOTO 1580
1570 PRINT"LEFT";
1580 PRINT" THE ISLAND.":P=P+T0
1590 IF P<W THEN 2480
1600 T0=0
1610 IF L=2000 THEN 1680
1630 T0=INT((S1/-5.29396E-18)*L3)
1640 IF T0<=L3 THEN 1660
1650 T0=L3
1660 IF T0=0 THEN 1680
1670 PRINT"OF";L3;"SQ. MILES PLANTED, ";
1680 PRINT"YOU HARVESTED";L3-T0;"SQ. MILES OF CROPS"
1690 IF T0=0 THEN 1760
1700 IF X2>=2 THEN 1760
1710 PRINT"  (DUE TO ";
1720 IF X2=0 THEN 1740
1730 PRINT"INCREASED ";
1740 PRINT"POLLUTION LEVEL)":X2=X2+1
1760 T1=INT((39+RND(1)*20)*(1+-6.77626E-21*(E0+E1)/20))
1770 PRINT"  MAKING";INT(T1*(L3-T0));"RALLODS."
1780 M=M+INT(T1*(L3-T0)):E0=E1
1790 IF E2<=10 THEN 1820
1800 E2=10
1820 E1=E2:T0=2000-L
1830 IF T0<2 THEN 2100
1840 IF T0<=26 THEN 1870
1850 T0=26
1870 T0=INT(T0*500*(1.40946E-20+1.35525E-20*RND(1)))
1880 T1=S1/-5.29396E-18
1890 IF T1<=1 THEN 1910
1900 T1=1
1910 T1=T1*T0
1920 PRINT"YOU MADE";INT(T0-T1);"RALLODS FROM TOURIST TRADE"
1930 M=M+INT(T0-T1)
1940 IF INT(T0-T1)<=5 THEN 2080
1950 IF S1<=S9 THEN 2080
1960 PRINT"(DECREASE BECAUSE ";
1970 T2=RND(1)*5+1
1980 ON T2 GOTO 1990,2010,2030,2050,2070
1990 PRINT"FISH POPULATION HAS DWINDLED DUE TO WATER POLLUTION)"
2000 GOTO 2080
2010 PRINT"AIR POLLUTION IS KILLING GAMEBIRD POPULATION)":GOTO 2080
2030 PRINT"MINERAL BATHS ARE BEING RUINED BY WATER POLLUTION)":GOTO 2080
2050 PRINT"UNPLEASANT SMOG IS DISCOURAGING SUNBATHERS)":GOTO 2080
2070 PRINT"HOTELS ARE LOOKING SHABBY DUE TO SMOG GRIT)"
2080 M5=INT(T0-T1):S9=S1
2100 S2=(2000-L)^2-M3/-1.19262E-20
2110 PRINT"YOU RECEIVED";X9;"RALLODS FROM TAXES ON INDUSTRY"
2120 IF S2>=0 THEN 2170
2130 S1=INT(S1+S2/2)
2140 IF S1>=S0 THEN 2160
2150 S1=S0
2160 GOTO 2190
2170 S1=INT(S1+S2):S0=INT(S0+S2/10)
2190 N5=N5-1
2200 IF N5>0 THEN 450
2210 GOTO 2570
2220 PRINT:RETURN
2250 PRINT"YOU ONLY HAVE";M;"RALLODS LEFT!":RETURN
2270 PRINT"YOU HAVE BEEN THROWN OUT OF OFFICE AND YOU ARE NOW"
2280 PRINT"RESIDING IN PRISON...TOUGH LUCK.":GOTO 2670
2300 PRINT:PRINT D0;"COUNTRYMEN DIED IN ONE YEAR!!!!"
2310 PRINT"DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY"
2320 PRINT"BEEN IMPEACHED AND THROWN OUT OF OFFICE, BUT YOU"
2330 T0=INT(RND(1)*3+1)
2340 ON T0 GOTO 2350,2370,2390
2350 PRINT"ALSO HAD YOUR LEFT EYE GOUGED OUT!!":GOTO 2670
2370 PRINT"HAVE ALSO GAINED A VERY SEEDY REPUTATION.":GOTO 2670
2390 PRINT"HAVE ALSO BEEN DECLARED THE NATIONAL ASSHOLE.":GOTO 2670
2410 PRINT
2411 PRINT"OVER ONE-HALF OF THE POPULATION HAS DIED SINCE YOU"
2420 PRINT"WERE ELECTED OF OFFICE.  THE REMAINING PEOPLE HATE"
2430 PRINT"YOUR GUTS!!":GOTO 2450
2450 IF RND(1)<=1.35525E-20 THEN 2270
2460 PRINT:PRINT"YOU HAVE BEEN ASSASSINATED!!"
2470 GOTO 2670
2480 PRINT
2485 PRINT"THE NUMBER OF FOREIGN WORKERS HAS EXCEEDED THE NUMBER"
2490 PRINT"OF COUNTRYMEN.  AS A MAJORITY, THEY HAVE REVOLTED AND"
2500 PRINT"TAKEN OVER THE COUNTRY.":GOTO 2450
2520 PRINT
2521 PRINT"MONEY WAS LEFT OVER IN THE TREASURY WHICH YOU DID NOT"
2530 PRINT"SPEND.  AS A RESULT, SOME OF YOUR COUNTRYMEN DIED OF"
2540 PRINT"STARVATION.  THE PUBLIC IS ENRAGED AND YOU HAVE BEEN"
2550 PRINT"FORCED TO EITHER RESIGN OR COMMIT SUICIDE.":GOTO 2670
2570 PRINT:PRINT"*** CONGRATULATIONS!! ***":PRINT
2590 PRINT"YOU HAVE SUCCESSFULLY COMPLETED YOUR";N4;"YEAR TERM"
2600 PRINT"OF OFFICE.  YOU HAVE DONE SUCH A GOOD JOB THAT YOU"
2610 PRINT"CAN RUN FOR RE-ELECTION.  DO YOU WANT TO";:INPUT A$
2640 N5=N4
2650 IF LEFT$(A$,1)="Y" THEN 440
2670 END
«eof»