10 REM KINGD.ECB 100 REM ...KINGDOMS...from ??? via EAGAN 1-5-78 110 PRINT "&K&J&J": REM ...Revised 3-7-81 R.E.H. 120 PRINT TAB(15);"=*=*=*=*=*=*=*=*=*=*=*=*=" 130 PRINT TAB(15);"*=* *=*" 140 PRINT TAB(15);"=*= K I N G D O M S =*=" 150 PRINT TAB(15);"*=* *=*" 160 PRINT TAB(15);"=*=*=*=*=*=*=*=*=*=*=*=*=" 170 PRINT 180 REM ....LAKE CRYSTAL 190 PRINT " Was this game previously saved in a data" 195 PRINT "file? ( Enter a 1 for Yes or a 0 for No) ---=>"; 200 INPUT (1,0)A7: PRINT : PRINT 210 IF A7<>1 THEN 260 220 REM .... OPEN RESULT, SYMBOLIC INPUT ,1 230 REM ...INPUT FROM1: S,P1,D,L,P,P2,H,A9 240 LET H=H+D 250 GOTO 370 260 LET S=0 270 LET T=0 280 LET P1=5 290 LET D=200 300 LET N1=0 310 LET L=1000 320 LET Q9=3 330 LET P=95 340 LET P2=1000 350 LET H=3000 360 LET A9=0 370 PRINT " 1 BUSHEL IS REQUIRED TO PLANT 1 ACRE" 380 REM .....RANDOMIZE 390 FOR A9=A9+1 TO 100000 400 GOTO 450 410 GOSUB 1030 420 LET R=RND(0) 430 LET R=R-INT(R) 440 RETURN 450 IF R<.75 THEN 610 460 PRINT " GET RID OF YOUR COURT MAGICIAN" 470 PRINT "BECAUSE OF HIM YOUR GRAIN POLICIES" 480 PRINT " WERE IN ERROR DO YOU WANT TO KEEP HIM." 490 GOSUB 1100 500 INPUT (1,0)" (Y or N ) ---=>",N2$: LET N2$=N2$+"Y" 510 IF N2$(1,1)="Y" THEN 560 ELSE PRINT 520 PRINT "YOUR A GOOD LEADER YOU REALIZE " 530 PRINT "THAT EVERY ONE MAKES A MISTAKE" 540 IF N1=1 THEN PRINT "I REMEMBER THAT I MADE A MISTAKE ONCE" 550 GOTO 610 560 PRINT "&JI KNOW IT WAS HARD TO MAKE THAT DECISION" 570 PRINT " BUT WHEN SOMEONE MAKES A MISTAKE LIKE THAT YOU" 580 PRINT "YOU HAVE TO GET RID OF HIM EVEN IF" 590 PRINT " HE IS A RELATIVE" 600 LET N1=N1+1 610 IF Q9=1 THEN LET H=H*.75 620 IF Q9=2 THEN LET H=H*1.1 630 IF Q9=3 THEN LET H=H 640 PRINT 650 PRINT " Y E A R NUMBER";A9 660 PRINT 670 PRINT " THE STATE OF YOUR DOMAIN.." 680 PRINT " LAST YEAR";S;" PEOPLE DIED OF STARVATION" 690 PRINT " AND ";P1;" NEW PEOPLE CAME INTO YOUR DOMAIN" 700 PRINT " THE POPULATION OF YOUR DOMAIN IS";P 710 PRINT : PRINT "(More to follow)": PRINT : PAUSE 100 720 PRINT " YOU NOW OWN ";L;" ACRES OF LAND" 730 PRINT 740 PRINT "WE PLANTED ";P2;" ACRES OF LAND. THE TOTAL OF" 750 PRINT "GRAIN HARVESTED PLUS STORES EQUALS";H;" BUSHELS" 760 PRINT " YOUR ENEMIES CAUSED THE RATS TO DESTROY";D;" BUSHELS" 770 LET H=H-D 780 PRINT " YOU HAVE";H;" BUSHELS IN YOUR STOREHOUSE" 790 PRINT 800 GOSUB 1030 810 PRINT "YOUR COURT MAGICIAN PREDICTS THAT " 820 IF Q9=2 THEN PRINT " YOUR CROPS WILL GIVE A GOOD HARVEST" 830 IF Q9=3 THEN PRINT "YOUR CROPS WILL YIELD NORMALLY" 840 IF Q9=1 THEN PRINT " YOUR CROPS WILL GIVE A POOR YIELD" 850 PRINT "FOR NEXT YEAR BECAUSE OF THE STARS" 860 PRINT 870 PRINT " Are you READY to START (1=Yes, 0=Quit) ---=>"; 880 INPUT (1,0)Y9: PRINT 890 IF Y9<>1 THEN 1830 900 GOSUB 420 910 LET P9=INT(R*14)+10 920 PRINT " YOU CAN BUY OR SELL LAND FOR ";P9;" BUSHELS PER ACRE" 930 PRINT " HOW MANY ACRES OF LAND DO YOU WISH TO BUY"; 940 INPUT B 950 IF B>0 THEN 1320 960 IF B=0 THEN 1010 970 PRINT 980 PRINT "YOUR VALUE MUST BE POSITIVE. TRY AGAIN." 990 PRINT 1000 GOTO 920 1010 LET B=B*(-1) 1020 GOTO 1080 1030 LET Q9=1 1040 IF R>.3 THEN LET Q9=2 1050 IF R>.5 THEN LET Q9=3 1060 LET R7=R 1070 RETURN 1080 IF (B*(-1))*P9<=H THEN 1190 1090 GOTO 1160 1100 IF Q9=3 THEN LET Q9=1 1110 GOTO 1150 1120 IF Q9=2 THEN LET Q9=3 1130 GOTO 1150 1140 IF Q9=1 THEN LET Q9=2 1150 RETURN 1160 LET H=H+P9*B 1170 PRINT " YOU HAVE";H;" BUSHELS" 1180 GOTO 930 1190 LET H=H-P9*B 1200 PRINT " HOW MANY ACRES DO YOU WANT TO SELL"; 1210 INPUT B 1220 IF B>=0 THEN 1270 1230 PRINT 1240 PRINT "YOUR VALUE CAN NOT BE NEGATIVE. TRY AGAIN." 1250 PRINT 1260 GOTO 1200 1270 LET B=B*(-1) 1280 IF B*(-1)<=L THEN 1320 1290 PRINT "YOU OWN";L;" ACRES" 1300 PRINT 1310 GOTO 1200 1320 LET H=H-D+(B*(-1))*P9 1330 IF H<0 THEN 1160 1340 LET L=L+B 1350 PRINT 1360 PRINT " HOW MANY BUSHELS DO YOU WANT TO DISTRIBUTE FOR FOOD"; 1370 INPUT F 1380 IF F>=0 THEN 1430 1390 PRINT 1400 PRINT "YOUR VALUE CAN NOT BE NEGATIVE. TRY AGAIN." 1410 PRINT 1420 GOTO 1360 1430 IF H-F>=0 THEN 1460 1440 PRINT " YOU DO NOT HAVE THAT MANY BUSHELS IN YOUR STOREHOUSE." 1450 GOTO 1350 1460 LET H=H-F 1470 PRINT 1480 PRINT " HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED"; 1490 INPUT P2 1500 IF P2>=0 THEN 1550 1510 PRINT 1520 PRINT "YOUR VALUE CAN NOT BE NEGATIVE. TRY AGAIN." 1530 PRINT 1540 GOTO 1480 1550 IF P2<=L THEN 1590 1560 PRINT " YOU ONLY HAVE ";L;" ACRES OF LAND." 1570 PRINT 1580 GOTO 1480 1590 IF P2<=H THEN 1630 1600 PRINT " YOU ONLY HAVE";H;" BUSHELS IN YOUR STOREHOUSE" 1610 PRINT 1620 GOTO 1480 1630 GOSUB 420 1640 LET D=INT((H-P2)*(R/6)) 1650 LET H1=H 1660 GOSUB 420 1670 LET H=P2*(INT(R7*3.99)+2) 1680 GOSUB 420 1690 LET P1=INT(9*R) 1700 LET P=P+P1 1710 LET H=H+(H1-P2) 1720 LET S=INT(((F-P*30)*(-1))/30) 1730 IF S>0 THEN 1750 1740 LET S=0 1750 LET P=P-S 1760 IF P>8 THEN 1820 1770 PRINT 1780 PRINT " YOUR";P;" REMAINING LOYAL SUBJECTS DECIDED" 1790 PRINT "to IMIGRATE to AMERICA !!!" 1800 PRINT 1810 GOTO 1870 1820 NEXT A9 1830 LET A9=A9-1 1840 REM ... OPEN DUMMY, SYMBOLIC OUTPUT,2 1850 REM ... WRITE ON 2: S,P1,D,L,P,P2,H,A9 1860 REM ... CLOSE 1,2 1870 PRINT 1880 PRINT " FAREWELL" 1890 REM ... OPEN RESULT, SYMBOLIC OUTPUT,1 1900 REM ... OPEN DUMMY, SYMBOLIC INPUT ,2 1910 REM ...INPUT FROM2: S,P1,D,L,P,P2,H,A9 1920 REM .... WRITE ON 1: S,P1,D,L,P,P2,H,A9 1930 REM ...CLOSE 1,2 1940 END