10 REM SUMR2.ECB
  100 REM ....CONV. FROM MERITSS LIB. ON 5/13/75 BY DON YENISH
  110 PRINT "&K&J": REM ===   RANDOMIZE
  120 REM ======== REVISED  7/74 (M. OLSON)
  130 PRINT
  140 PRINT TAB(10);"-----------------------------"
  150 PRINT TAB(10);"=======               ======="
  160 PRINT TAB(10);"#######   S U M E R   #######"
  170 PRINT TAB(10);"=======               ======="
  180 PRINT TAB(10);"-----------------------------"
  190 PRINT
  200 PRINT
  210 PRINT " DO YOU WANT INSTRUCTIONS ???"
  220 INPUT " ANSWER WITH A NUMBER  (1=YES  0=NO) --=>",I9
  230 PRINT
  240 IF I9=0 THEN 340
  250 PRINT " YOU ARE THE RULER OF THE LAND OF SUMER."
  260 PRINT " YOU'VE CONTROL OVER THE AMOUNT OF FOOD FED"
  270 PRINT " TO YOUR PEOPLE.   THE NUMBER OF ACRES PLANTED"
  280 PRINT " NUMBER OF ACRES PLANTED AND WHETHER TO BUY OR"
  290 PRINT " SELL LAND.    THE PROGRAM WILL PRINT OUT"
  300 PRINT " YEARLY STATISTICS WHICH WILL SHOW HOW WELL YOU"
  310 PRINT " ARE RULING.   THE STARTING STATISTICS FOR"
  320 PRINT " THE FIRST YEAR ARE PRINTED BELOW:"
  330 GOSUB 2090
  340 LET P=95
  350 LET S=2800
  360 LET H=3000
  370 LET E=200
  380 LET Y=3
  390 LET A=1000
  400 LET I=5
  410 LET Q=1
  420 LET Z8=20
  430 LET M=17
  440 LET G=21
  450 LET C=1
  460 LET D1=0: LET D2=0: LET P1=0
  470 LET Q2=0: LET Q3=0: LET Q1=0
  480 LET D=1000
  490 LET Q4=0
  500 LET J=0
  510 GOTO 1100
  520 LET Y=INT(RND(0)*10)
  530 IF Y<2 THEN 520
  540 IF Y>5 THEN 520
  550 LET H=D*Y
  560 LET C=INT(10*RND(0))
  570 LET E=0
  580 IF (INT(C/2)-(C/2))<0 THEN 660
  590 IF S<200 THEN 650
  600 LET J=INT(RND(0)*100)
  610 IF J>50 THEN 600
  620 IF J<20 THEN 600
  630 LET E=INT((S*J)/100)
  640 GOTO 660
  650 LET E=S
  660 LET S=(S-E)+H
  670 LET I=INT(C*(20*A+S)/P/100+1)
  680 LET N=RND(0)
  690 IF INT(N*40)<15 THEN 680
  700 IF INT(N*40)>25 THEN 680
  710 LET N1=P*(INT(N*40))
  720 IF N1>19 THEN 750
  730 LET N2=3
  740 GOTO 760
  750 LET N2=2
  760 IF Q2=0 THEN 1020
  770 IF Q2*6<N1 THEN 820
  780 IF Q2*N2<=N1 THEN 860
  790 IF Q2<N1 THEN 910
  800 IF Q2>N2*N1 THEN 1000
  810 IF Q2>=N1 THEN 960
  820 LET D2=INT(RND(0)*100)
  830 IF D2<90 THEN 820
  840 LET D1=D2
  850 GOTO 1050
  860 LET D2=INT(RND(0)*100)
  870 IF D2<66 THEN 860
  880 IF D2>90 THEN 860
  890 LET D1=D2
  900 GOTO 1050
  910 LET D2=INT(RND(0)*100)
  920 IF D2<10 THEN 910
  930 IF D2>25 THEN 910
  940 LET D1=D2
  950 GOTO 1050
  960 LET D2=INT(RND(0)*100)
  970 IF D2>10 THEN 960
  980 LET D1=D2
  990 GOTO 1050
 1000 LET D1=0
 1010 GOTO 1090
 1020 LET D1=P
 1030 LET P=0
 1040 GOTO 1090
 1050 IF D1=0 THEN 1090
 1060 LET P1=INT((P*D1)/100)
 1070 LET P=P-P1
 1080 LET D1=P1
 1090 GOTO 1100
 1100 PRINT
 1110 PRINT " # OF PEOPLE THAT DIED OF STARVATION      ";D1
 1120 PRINT " # OF PEOPLE THAT CAME TO THE CITY        ";I
 1130 LET P=P+I
 1140 PRINT " PRESENT POPULATION                       ";P
 1150 PRINT " # OF ACRES OF LAND OWNED BY THE CITY     ";A
 1160 PRINT " # OF ACRES OF LAND PLANTED WITH SEED     ";D
 1170 PRINT " YIELD (IN BUSHELS PER ACRE)              ";Y
 1180 PRINT " TOTAL HARVEST (IN BUSHELS)               ";H
 1190 PRINT " # OF BUSHELS OF GRAIN DESTROYED BY RATS  ";E
 1200 PRINT " PRESENT # OF BUSHELS OF GRAIN IN STORE   ";S
 1210 PRINT
 1220 PRINT " DO YOU WISH TO CONTINUE AS RULER OF SUMER."
 1230 INPUT " ANSWER YES OR NO. (1=YES  0=NO) --=>",I9
 1240 PRINT
 1250 PRINT
 1260 IF I9=1 THEN 1290
 1270 IF I9=0 THEN 2140
 1280 GOTO 1220
 1290 LET C=INT(10*RND(0))
 1300 LET Y=C+17
 1310 PRINT " THIS YEAR LAND MAY BE TRADED FOR ";Y;
 1320 PRINT " BUSHELES PER ACRE."
 1330 PRINT "    DO YOU WISH TO BUY(1), SELL(2), OR DO"
 1340 PRINT " NEITHER(3)   PLEASE RESPOND WITH A 1, 2, OR 3.";
 1350 INPUT Q4
 1360 IF Q4>3 THEN 1340
 1370 IF Q4<1 THEN 1340
 1380 IF Q4=3 THEN 1700
 1390 PRINT " HOW MANY ACRES?"
 1400 INPUT Q1
 1410 IF Q4=1 THEN 1440
 1420 IF Q4=2 THEN 1530
 1430 INPUT Q1
 1440 IF Q1=0 THEN 1530
 1450 IF Q1>0 THEN 1480
 1460 PRINT " NO NEGATIVE NUMBERS"
 1470 GOTO 1390
 1480 IF ((Y*Q1)-S)<=0 THEN 1610
 1490 GOSUB 207
 1500 PRINT S;" BUSHELS IN STORE."
 1510 GOTO 1330
 1520 LET S=S-Y*Q1
 1530 LET Q3=Q1
 1540 IF Q3>0 THEN 1580
 1550 IF Q3=0 THEN 1640
 1560 PRINT " NO NEGATIVE NUMBERS"
 1570 GOTO 1390
 1580 LET Q3=Q3*(-1)
 1590 IF (A+Q3)<0 THEN 1670
 1600 GOTO 1640
 1610 LET A=A+Q1
 1620 LET S=(S-(Y*Q1))
 1630 GOTO 1700
 1640 LET A=A+Q3
 1650 LET S=(S-(Y*Q3))
 1660 GOTO 1700
 1670 GOSUB 2070
 1680 PRINT A;"ACRES."
 1690 GOTO 1330
 1700 PRINT " HOW MANY BUSHELS OF GRAIN DO YOU WISH ";
 1710 PRINT " TO DISTRIBUTE AS FOOD?"
 1720 INPUT Q2
 1730 IF Q2<0 THEN 1790
 1740 IF (Q2-S)<0 THEN 1860
 1750 IF (Q2-S)=0 THEN 1810
 1760 GOSUB 2070
 1770 PRINT S;" BUSHELS IN STORE."
 1780 GOTO 1700
 1790 PRINT " NO NEGATIVE NUMBERS"
 1800 GOTO 1700
 1810 PRINT " YOU NOW HAVE NO GRAIN LEFT IN STORE SO YOU"
 1820 PRINT " HAVE NONE LEFT TO USE AS SEED THIS YEAR."
 1830 LET D=0
 1840 LET S=0
 1850 GOTO 520
 1860 LET S=S-Q2
 1870 PRINT "      HOW MANY ACRES OF LAND...."
 1880 PRINT "   DO YOU WISH TO PLANT WITH SEED ?--->";
 1890 INPUT D
 1900 IF D>=0 THEN 1930
 1910 PRINT " NO NEGATIVE NUMBERS"
 1920 GOTO 1870
 1930 IF (A-D)<0 THEN 1980
 1940 IF (INT(D/2)-S-1)<0 THEN 2010
 1950 GOSUB 2070
 1960 PRINT S;" BUSHELS IN STORE."
 1970 GOTO 1870
 1980 GOSUB 2070
 1990 PRINT A;" ACRES."
 2000 GOTO 1870
 2010 IF (D-10*P-1)<0 THEN 2050
 2020 GOSUB 2070
 2030 PRINT P;" PEOPLE."
 2040 GOTO 1870
 2050 LET S=S-INT(D/2)
 2060 GOTO 520
 2070 PRINT " PLEASE THINK AGAIN. YOU HAVE ONLY";
 2080 RETURN
 2090 PRINT
 2100 INPUT (1,100)" $$$$ TYPE IN ANY NUMBER TO SEE MORE $$$$--->",I9
 2110 PRINT
 2120 PRINT
 2130 RETURN
 2140 END