rfivet/BCG101
1
0
Fork 0
mirror of https://github.com/rfivet/BCG101.git synced 2024-12-18 08:06:27 -05:00
Code

Add CUBE and HMRABI.

Browse Source
This commit is contained in:
Renaud 2024-05-25 10:07:31 +08:00
parent 84d084e40b
commit fe2a3365e4
4 changed files with 553 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

158
dec/CUBE.BAS Normal file
View File

@ -0,0 +1,158 @@
100 PRINT"DO YOU WANT TO SEE THE INSTRUCTIONS? (YES--1,NO--0)"
110 INPUT B7
120 IF B7=0 THEN 370
130 PRINT"THIS IS A GAME IN WHICH YOU WILL BE PLAYING AGAINST THE"
140 PRINT"RANDUM DECISION OF THE COMPUTER. THE FIELD OF PLAY IS A"
150 PRINT"CUBE OF SIDE 3. ANY OF THE 27 LOCATIONS CAN BE DESIGNATED"
160 PRINT"BY INPUTING THREE NUMBERS SUCH AS 2,3,1. AT THE START,"
170 PRINT"YOU ARE AUTOMATICALLY AT LOCATION 1,1,1. THE OBJECT OF"
180 PRINT"THE GAME IS TO GET TO LOCATION 3,3,3. ONE MINOR DETAIL,"
190 PRINT"THE COMPUTER WILL PICK,AT RANDUM,5 LOCATIONS AT WHICH"
200 PRINT"IT WILL PLANT LAND MINES. IF YOU HIT ONE OF THESE LOCATIONS,"
210 PRINT"YOU LOSE. ONE OTHER DETAIL, YOU MAY MOVE ONLY ONE SPACE "
220 PRINT"IN ONE DIRECTION EACH MOVE. FOR EXAMPLE: FROM 1,1,2 YOU"
230 PRINT"MAY MOVE TO 2,1,2 OR 1,1,3. YOU MAY NOT CHANGE"
240 PRINT"TWO OF THE NUMBERS ON THE SAME MOVE. IF YOU MAKE AN ILLEGAL"
250 PRINT"MOVE, YOU LOSE AND THE COMPUTER TAKES THE MONEY YOU MAY"
260 PRINT"HAVE BET ON THAT ROUND."
270 PRINT
280 PRINT
290 PRINT"ALL YES OR NO QUESTIONS WILL BE ANSWERED BY A 1 FOR YES"
300 PRINT"OR A 0 (ZERO) FOR NO."
310 PRINT
320 PRINT"WHEN STATING THE AMOUNT OF A WAGER, PRINT ONLY THE NUMBER"
330 PRINT"OF DOLLARS (EXAMPLE: 250) YOU ARE AUTOMATICALLY STARTED WITH A"
340 PRINT"500 DOLLAR ACCOUNT."
350 PRINT
360 PRINT "GOOD LUCK"
370 LET A1=500
380 LET A=INT(3*(RND(X)))
390 IF A<>0 THEN 410
400 LET A=3
410 LETB=INT(3*(RND(X)))
420 IFB<>0THEN440
430 LET B=2
440 LETC=INT(3*(RND(X)))
450 IFC<>0THEN470
460 LETC=3
470 LETD=INT(3*(RND(X)))
480 IFD<>0THEN500
490 LETD=1
500 LETE=INT(3*(RND(X)))
510 IFE<>0THEN530
520 LETE=3
530 LETF=INT(3*(RND(X)))
540 IFF<>0THEN560
550 LETF=3
560 LETG=INT(3*(RND(X)))
570 IFG<>0THEN590
580 LETG=3
590 LETH=INT(3*(RND(X)))
600 IFH<>0THEN620
610 LETH=3
620 LETI=INT(3*(RND(X)))
630 IFI<>0THEN650
640 LETI=2
650 LETJ=INT(3*(RND(X)))
660 IFJ<>0THEN680
670 LETJ=3
680 LETK=INT(3*(RND(X)))
690 IFK<>0THEN710
700 LETK=2
710 LETL=INT(3*(RND(X)))
720 IFL<>0THEN740
730 LETL=3
740 LETM=INT(3*(RND(X)))
750 IFM<>0THEN770
760 LETM=3
770 LETN=INT(3*(RND(X)))
780 IFN<>0THEN800
790 LET N=1
800 LET O=INT (3*(RND(X)))
810 IF O <>0 THEN 830
820 LET O=3
830 PRINT "WANT TO MAKE A WAGER?"
840 INPUT Z
850 IF Z=0 THEN 920
860 PRINT "HOW MUCH?"
870 INPUT Z1
876 IF A1<Z1 THEN 1522
880 LET W=1
890 LET X=1
900 LET Y=1
910 PRINT
920 PRINT "ITS YOUR MOVE"
930 INPUT P,Q,R
940 IFP>W+1 THEN1030
950 IFP=W+1THEN1000
960 IFQ>X+1 THEN1030
970 IF Q=(X+1) THEN 1010
980 IF R >(Y+1) THEN 1030
990 GO TO 1050
1000 IF Q>= X+1 THEN 1030
1010 IF R>=Y+1 THEN 1030
1020 GO TO 1050
1030 PRINT "ILLEGAL MOVE", "YOU LOSE"
1040 GO TO 1440
1050 LET W=P
1060 LET X=Q
1070 LET Y=R
1080 IF P=3 THEN 1100
1090 GO TO 1130
1100 IF Q=3 THEN 1120
1110 GO TO 1130
1120 IF R=3 THEN 1530
1130 IF P=A THEN 1150
1140 GO TO 1180
1150 IF Q=B THEN 1170
1160 GO TO 1180
1170 IF R=C THEN1400
1180 IF P=D THEN 1200
1190 GO TO 1230
1200 IF Q=E THEN 1220
1210 GO TO 1230
1220 IF R=F THEN 1400
1230 IF P=G THEN1250
1240 GO TO 1280
1250 IF Q=H THEN1270
1260 GO TO 1280
1270 IF R=ITHEN 1400
1280 IF P=J THEN 1300
1290 GO TO 1330
1300 IF Q=K THEN1320
1310 GO TO 1330
1320 IF R=L THEN 1440
1330 IF P=M THEN 1350
1340 GO TO 1380
1350 IF Q=N THEN 1370
1360 GO TO 1380
1370 IF R=O THEN1400
1380 PRINT "NEXT MOVE"
1390 GO TO 930
1400 PRINT"******BANG******"
1410 PRINT "YOU LOSE"
1420 PRINT
1430 PRINT
1440 IF Z=0 THEN 1580
1450 PRINT
1460 LET Z2=A1-Z1
1470 IF Z2>0 THEN 1500
1480 PRINT "YOU BUST"
1490 GO TO 1610
1500 PRINT " YOU NOW HAVE"; Z2; "DOLLARS"
1510 LET A1=Z2
1520 GO TO 1580
1522 PRINT"TRIED TO FOOL ME; BET AGAIN";
1525 GOTO 870
1530 PRINT"CONGRATULATIONS"
1540 IF Z=0 THEN 1580
1550 LET Z2=A1+Z1
1560 PRINT "YOU NOW HAVE"; Z2;"DOLLARS"
1570 LET A1=Z2
1580 PRINT"DO YOU WANT TO TRY AGAIN?"
1590 INPUT S
1600 IF S=1 THEN 380
1610 PRINT "TOUGH LUCK"
1620 PRINT
1630 PRINT " GOODBYE"
1640 END

118
dec/HMRABI.BAS Normal file
View File

@ -0,0 +1,118 @@
10 REM *** CONVERTED FROM THE ORIGINAL FOCAL PROGRAM AND MODIFIED FOR
20 REM *** EDUSYSTEM 70 BY DAVID AHL, DIGITAL
80 PRINT "TRY YOUR HAND AT GOVERNING ANCIENT SUMERIA"
85 PRINT "SUCCESSFULLY FOR A 10-YR TERM OF OFFICE.":PRINT
90 RANDOMIZE:LET D1=0:LET P1=0
100 LET Z=0:LET P=95:LET S=2800:LET H=3000:LET E=H-S
110 LET Y=3:LET A=H/Y:LET I=5:LET Q=1
210 LET D=0
215 PRINT:PRINT:PRINT "HAMURABI: I BEG TO REPORT TO YOU,":LET Z=Z+1
217 PRINT "IN YEAR"Z","D"PEOPLE STARVED,"I"CAME TO THE CITY."
218 LET P=P+I
227 IF Q>0 THEN 230
228 LET P=INT(P/2)
229 PRINT "A HORRIBLE PLAGUE STRUCK! HALF THE PEOPLE DIED."
230 PRINT "POPULATION IS NOW"P
232 PRINT "THE CITY NOW OWNS"A"ACRES."
235 PRINT "YOU HARVESTED"Y"BUSHELS PER ACRE."
250 PRINT "RATS ATE"E"BUSHELS."
260 PRINT "YOU NOW HAVE"S"BUSHELS IN STORE.":PRINT
270 IF Z=11 THEN 860
310 LET C=INT(10*RND(0)):LET Y=C+17
312 PRINT "LAND IS TRADING AT"Y"BUSHELS PER ACRE."
320 PRINT "HOW MANY ACRES DO YOU WISH TO BUY";
321 INPUT Q:IF Q<0 THEN 850
322 IF Y*Q<=S THEN 330
323 GOSUB 710
324 GOTO 320
330 IF Q=0 THEN 340
331 LET A=A+Q:LET S=S-Y*Q:LET C=0
334 GOTO 400
340 PRINT "HOW MANY ACRES DO YOU WISH TO SELL";
341 INPUT Q:IF Q<0 THEN 850
342 IF Q<A THEN 350
343 GOSUB 720
344 GOTO 340
350 LET A=A-Q:LET S=S+Y*Q:LET C=0
400 PRINT
410 PRINT "HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE";
411 INPUT Q
412 IF Q<0 THEN 850
418 REM *** TRYING TO USE MORE GRAIN THAN IN THE SILOS?
420 IF Q<=S THEN 430
421 GOSUB 710
422 GOTO 410
430 LET S=S-Q:LET C=1:PRINT
440 PRINT "HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED";
441 INPUT D:IF D=0 THEN 511
442 IF D<0 THEN 850
444 REM *** TRYING TO PLANT MORE ACRES THAN YOU OWN?
445 IF D<=A THEN 450
446 GOSUB 720
447 GOTO 440
449 REM *** ENOUGH GRAIN FOR SEED?
450 IF INT(D/2)<S THEN 455
452 GOSUB 710
453 GOTO 440
454 REM *** ENOUGH PEOPLE TO TEND THE CROPS?
455 IF D<10*P THEN 510
460 PRINT "BUT YOU HAVE ONLY"P"PEOPLE TO TEND THE FIELDS. NOW THEN,"
470 GOTO 440
510 LET S=S-INT(D/2)
511 GOSUB 800
512 REM *** A BOUNTIFUL HARVEST!!
515 LET Y=C:LET H=D*Y:LET E=0
521 GOSUB 800
522 IF INT(C/2)<>C/2 THEN 530
523 REM *** THE RATS ARE RUNNING WILD!!
525 LET E=INT(S/C)
530 LET S=S-E+H
531 GOSUB 800
532 REM *** LET'S HAVE SOME BABIES
533 LET I=INT(C*(20*A+S)/P/100+1)
539 REM *** HOW MANY PEOPLE HAD FULL TUMMIES?
540 LET C=INT(Q/20)
541 REM *** HORRORS, A 15% CHANCE OF PLAGUE
542 LET Q=INT(10*(2*RND(0)-.3))
550 IF P<C THEN 210
551 REM *** STARVE ENOUGH FOR IMPEACHMENT?
552 LET D=P-C:IF D>.45*P THEN 560
553 LET P1=((Z-1)*P1+D*100/P)/Z
555 LET P=C:LET D1=D1+D:GOTO 215
560 PRINT:PRINT "YOU STARVED"D"PEOPLE IN ONE YEAR!!!"
565 PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY"
566 PRINT "BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU HAVE"
567 PRINT "ALSO BEEN DECLARED 'NATIONAL FINK' !!":GOTO 990
710 PRINT "HAMURABI: THINK AGAIN. YOU HAVE ONLY"
711 PRINT S"BUSHELS OF GRAIN. NOW THEN,"
712 RETURN
720 PRINT "HAMURABI: THINK AGAIN. YOU OWN ONLY"A"ACRES. NOW THEN,"
730 RETURN
800 LET C=INT(RND(0)*5)+1
801 RETURN
850 PRINT:PRINT "HAMURABI: I CANNOT DO WHAT YOU WISH."
855 PRINT "GET YOURSELF ANOTHER STEWARD!!!!!"
857 GOTO 990
860 PRINT "IN YOUR 10-YEAR TERM OF OFFICE,"P1"PERCENT OF THE"
862 PRINT "POPULATION STARVED PER YEAR ON AVERAGE, I.E., A TOTAL OF"
865 PRINT D1"PEOPLE DIED!!":LET L=A/P
870 PRINT "YOU STARTED WITH 10 ACRES PER PERSON AND ENDED WITH"
875 PRINT L"ACRES PER PERSON.":PRINT
880 IF P1>33 THEN 565
885 IF L<7 THEN 565
890 IF P1>10 THEN 940
892 IF L<9 THEN 940
895 IF P1>3 THEN 960
896 IF L<10 THEN 960
900 PRINT "A FANTASTIC PERFORMANCE!!! CHARLEMANGE, DISRAELI, AND"
905 PRINT "JEFFERSON COMBINED COULD NOT HAVE DONE BETTER!":GOTO 990
940 PRINT "YOUR HEAVY-HANDED PERFORMANCE SMACKS OF NERO AND IVAN IV."
945 PRINT "THE PEOPLE (REMAINING) FIND YOU AN UNPLEASANT RULER, AND,"
950 PRINT "FRANKLY, HATE YOUR GUTS!":GOTO 990
960 PRINT "YOUR PERFORMANCE COULD HAVE BEEN SOMEWHAT BETTER, BUT"
965 PRINT "REALLY WASN'T TOO BAD AT ALL. "INT(P*.8*RND)"PEOPLE WOULD"
970 PRINT "DEARLY LIKE TO SEE YOU ASSASSINATED BUT WE ALL HAVE OUR"
975 PRINT "TRIVIAL PROBLEMS."
990 PRINT:FOR N=1 TO 10:PRINT CHR$(7);:NEXT N
995 PRINT "SO LONG FOR NOW.":PRINT
999 END

159
port/CUBE.BAS Normal file
View File

@ -0,0 +1,159 @@
90 RANDOMIZE
100 PRINT"DO YOU WANT TO SEE THE INSTRUCTIONS? (YES--1,NO--0)"
110 INPUT B7
120 IF B7=0 THEN 370
130 PRINT"THIS IS A GAME IN WHICH YOU WILL BE PLAYING AGAINST THE"
140 PRINT"RANDOM DECISION OF THE COMPUTER. THE FIELD OF PLAY IS A"
150 PRINT"CUBE OF SIDE 3. ANY OF THE 27 LOCATIONS CAN BE DESIGNATED"
160 PRINT"BY INPUTING THREE NUMBERS SUCH AS 2,3,1. AT THE START,"
170 PRINT"YOU ARE AUTOMATICALLY AT LOCATION 1,1,1. THE OBJECT OF"
180 PRINT"THE GAME IS TO GET TO LOCATION 3,3,3. ONE MINOR DETAIL,"
190 PRINT"THE COMPUTER WILL PICK,AT RANDOM,5 LOCATIONS AT WHICH"
200 PRINT"IT WILL PLANT LAND MINES. IF YOU HIT ONE OF THESE LOCATIONS,"
210 PRINT"YOU LOSE. ONE OTHER DETAIL, YOU MAY MOVE ONLY ONE SPACE "
220 PRINT"IN ONE DIRECTION EACH MOVE. FOR EXAMPLE: FROM 1,1,2 YOU"
230 PRINT"MAY MOVE TO 2,1,2 OR 1,1,3. YOU MAY NOT CHANGE"
240 PRINT"TWO OF THE NUMBERS ON THE SAME MOVE. IF YOU MAKE AN ILLEGAL"
250 PRINT"MOVE, YOU LOSE AND THE COMPUTER TAKES THE MONEY YOU MAY"
260 PRINT"HAVE BET ON THAT ROUND."
270 PRINT
280 PRINT
290 PRINT"ALL YES OR NO QUESTIONS WILL BE ANSWERED BY A 1 FOR YES"
300 PRINT"OR A 0 (ZERO) FOR NO."
310 PRINT
320 PRINT"WHEN STATING THE AMOUNT OF A WAGER, PRINT ONLY THE NUMBER"
330 PRINT"OF DOLLARS (EXAMPLE: 250) YOU ARE AUTOMATICALLY STARTED WITH A"
340 PRINT"500 DOLLAR ACCOUNT."
350 PRINT
360 PRINT "GOOD LUCK"
370 LET A1=500
380 LET A=INT(3*(RND(X)))
390 IF A<>0 THEN 410
400 LET A=3
410 LETB=INT(3*(RND(X)))
420 IFB<>0THEN440
430 LET B=2
440 LETC=INT(3*(RND(X)))
450 IFC<>0THEN470
460 LETC=3
470 LETD=INT(3*(RND(X)))
480 IFD<>0THEN500
490 LETD=1
500 LETE=INT(3*(RND(X)))
510 IFE<>0THEN530
520 LETE=3
530 LETF=INT(3*(RND(X)))
540 IFF<>0THEN560
550 LETF=3
560 LETG=INT(3*(RND(X)))
570 IFG<>0THEN590
580 LETG=3
590 LETH=INT(3*(RND(X)))
600 IFH<>0THEN620
610 LETH=3
620 LETI=INT(3*(RND(X)))
630 IFI<>0THEN650
640 LETI=2
650 LETJ=INT(3*(RND(X)))
660 IFJ<>0THEN680
670 LETJ=3
680 LETK=INT(3*(RND(X)))
690 IFK<>0THEN710
700 LETK=2
710 LETL=INT(3*(RND(X)))
720 IFL<>0THEN740
730 LETL=3
740 LETM=INT(3*(RND(X)))
750 IFM<>0THEN770
760 LETM=3
770 LETN=INT(3*(RND(X)))
780 IFN<>0THEN800
790 LET N=1
800 LET O=INT (3*(RND(X)))
810 IF O <>0 THEN 830
820 LET O=3
830 PRINT "WANT TO MAKE A WAGER?"
840 INPUT Z
850 IF Z=0 THEN 920
860 PRINT "HOW MUCH?"
870 INPUT Z1
876 IF A1<Z1 THEN 1522
880 LET W=1
890 LET X=1
900 LET Y=1
910 PRINT
920 PRINT "ITS YOUR MOVE"
930 INPUT P,Q,R
940 IFP>W+1 THEN1030
950 IFP=W+1THEN1000
960 IFQ>X+1 THEN1030
970 IF Q=(X+1) THEN 1010
980 IF R >(Y+1) THEN 1030
990 GO TO 1050
1000 IF Q>= X+1 THEN 1030
1010 IF R>=Y+1 THEN 1030
1020 GO TO 1050
1030 PRINT "ILLEGAL MOVE", "YOU LOSE"
1040 GO TO 1440
1050 LET W=P
1060 LET X=Q
1070 LET Y=R
1080 IF P=3 THEN 1100
1090 GO TO 1130
1100 IF Q=3 THEN 1120
1110 GO TO 1130
1120 IF R=3 THEN 1530
1130 IF P=A THEN 1150
1140 GO TO 1180
1150 IF Q=B THEN 1170
1160 GO TO 1180
1170 IF R=C THEN1400
1180 IF P=D THEN 1200
1190 GO TO 1230
1200 IF Q=E THEN 1220
1210 GO TO 1230
1220 IF R=F THEN 1400
1230 IF P=G THEN1250
1240 GO TO 1280
1250 IF Q=H THEN1270
1260 GO TO 1280
1270 IF R=ITHEN 1400
1280 IF P=J THEN 1300
1290 GO TO 1330
1300 IF Q=K THEN1320
1310 GO TO 1330
1320 IF R=L THEN 1440
1330 IF P=M THEN 1350
1340 GO TO 1380
1350 IF Q=N THEN 1370
1360 GO TO 1380
1370 IF R=O THEN1400
1380 PRINT "NEXT MOVE"
1390 GO TO 930
1400 PRINT"******BANG******"
1410 PRINT "YOU LOSE"
1420 PRINT
1430 PRINT
1440 IF Z=0 THEN 1580
1450 PRINT
1460 LET Z2=A1-Z1
1470 IF Z2>0 THEN 1500
1480 PRINT "YOU BUST"
1490 GO TO 1610
1500 PRINT " YOU NOW HAVE"; Z2; "DOLLARS"
1510 LET A1=Z2
1520 GO TO 1580
1522 PRINT"TRIED TO FOOL ME; BET AGAIN";
1525 GOTO 870
1530 PRINT"CONGRATULATIONS"
1540 IF Z=0 THEN 1580
1550 LET Z2=A1+Z1
1560 PRINT "YOU NOW HAVE"; Z2;"DOLLARS"
1570 LET A1=Z2
1580 PRINT"DO YOU WANT TO TRY AGAIN?"
1590 INPUT S
1600 IF S=1 THEN 380
1610 PRINT "TOUGH LUCK"
1620 PRINT
1630 PRINT " GOODBYE"
1640 END

118
port/HMRABI.BAS Normal file
View File

@ -0,0 +1,118 @@
10 REM *** CONVERTED FROM THE ORIGINAL FOCAL PROGRAM AND MODIFIED FOR
20 REM *** EDUSYSTEM 70 BY DAVID AHL, DIGITAL
80 PRINT "TRY YOUR HAND AT GOVERNING ANCIENT SUMERIA"
85 PRINT "SUCCESSFULLY FOR A 10-YR TERM OF OFFICE."\PRINT
90 RANDOMIZE\LET D1=0\LET P1=0
100 LET Z=0\LET P=95\LET S=2800\LET H=3000\LET E=H-S
110 LET Y=3\LET A=H/Y\LET I=5\LET Q=1
210 LET D=0
215 PRINT\PRINT\PRINT "HAMURABI: I BEG TO REPORT TO YOU,"\LET Z=Z+1
217 PRINT "IN YEAR"Z","D"PEOPLE STARVED,"I"CAME TO THE CITY."
218 LET P=P+I
227 IF Q>0 THEN 230
228 LET P=INT(P/2)
229 PRINT "A HORRIBLE PLAGUE STRUCK! HALF THE PEOPLE DIED."
230 PRINT "POPULATION IS NOW"P
232 PRINT "THE CITY NOW OWNS"A"ACRES."
235 PRINT "YOU HARVESTED"Y"BUSHELS PER ACRE."
250 PRINT "RATS ATE"E"BUSHELS."
260 PRINT "YOU NOW HAVE"S"BUSHELS IN STORE."\PRINT
270 IF Z=11 THEN 860
310 LET C=INT(10*RND(0))\LET Y=C+17
312 PRINT "LAND IS TRADING AT"Y"BUSHELS PER ACRE."
320 PRINT "HOW MANY ACRES DO YOU WISH TO BUY";
321 INPUT Q\IF Q<0 THEN 850
322 IF Y*Q<=S THEN 330
323 GOSUB 710
324 GOTO 320
330 IF Q=0 THEN 340
331 LET A=A+Q\LET S=S-Y*Q\LET C=0
334 GOTO 400
340 PRINT "HOW MANY ACRES DO YOU WISH TO SELL";
341 INPUT Q\IF Q<0 THEN 850
342 IF Q<A THEN 350
343 GOSUB 720
344 GOTO 340
350 LET A=A-Q\LET S=S+Y*Q\LET C=0
400 PRINT
410 PRINT "HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE";
411 INPUT Q
412 IF Q<0 THEN 850
418 REM *** TRYING TO USE MORE GRAIN THAN IN THE SILOS?
420 IF Q<=S THEN 430
421 GOSUB 710
422 GOTO 410
430 LET S=S-Q\LET C=1\PRINT
440 PRINT "HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED";
441 INPUT D\IF D=0 THEN 511
442 IF D<0 THEN 850
444 REM *** TRYING TO PLANT MORE ACRES THAN YOU OWN?
445 IF D<=A THEN 450
446 GOSUB 720
447 GOTO 440
449 REM *** ENOUGH GRAIN FOR SEED?
450 IF INT(D/2)<S THEN 455
452 GOSUB 710
453 GOTO 440
454 REM *** ENOUGH PEOPLE TO TEND THE CROPS?
455 IF D<10*P THEN 510
460 PRINT "BUT YOU HAVE ONLY"P"PEOPLE TO TEND THE FIELDS. NOW THEN,"
470 GOTO 440
510 LET S=S-INT(D/2)
511 GOSUB 800
512 REM *** A BOUNTIFUL HARVEST!!
515 LET Y=C\LET H=D*Y\LET E=0
521 GOSUB 800
522 IF INT(C/2)<>C/2 THEN 530
523 REM *** THE RATS ARE RUNNING WILD!!
525 LET E=INT(S/C)
530 LET S=S-E+H
531 GOSUB 800
532 REM *** LET'S HAVE SOME BABIES
533 LET I=INT(C*(20*A+S)/P/100+1)
539 REM *** HOW MANY PEOPLE HAD FULL TUMMIES?
540 LET C=INT(Q/20)
541 REM *** HORRORS, A 15% CHANCE OF PLAGUE
542 LET Q=INT(10*(2*RND(0)-.3))
550 IF P<C THEN 210
551 REM *** STARVE ENOUGH FOR IMPEACHMENT?
552 LET D=P-C\IF D>.45*P THEN 560
553 LET P1=((Z-1)*P1+D*100/P)/Z
555 LET P=C\LET D1=D1+D\GOTO 215
560 PRINT\PRINT "YOU STARVED"D"PEOPLE IN ONE YEAR!!!"
565 PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY"
566 PRINT "BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU HAVE"
567 PRINT "ALSO BEEN DECLARED 'NATIONAL FINK' !!"\GOTO 990
710 PRINT "HAMURABI: THINK AGAIN. YOU HAVE ONLY"
711 PRINT S"BUSHELS OF GRAIN. NOW THEN,"
712 RETURN
720 PRINT "HAMURABI: THINK AGAIN. YOU OWN ONLY"A"ACRES. NOW THEN,"
730 RETURN
800 LET C=INT(RND(0)*5)+1
801 RETURN
850 PRINT\PRINT "HAMURABI: I CANNOT DO WHAT YOU WISH."
855 PRINT "GET YOURSELF ANOTHER STEWARD!!!!!"
857 GOTO 990
860 PRINT "IN YOUR 10-YEAR TERM OF OFFICE,"P1"PERCENT OF THE"
862 PRINT "POPULATION STARVED PER YEAR ON AVERAGE, I.E., A TOTAL OF"
865 PRINT D1"PEOPLE DIED!!"\LET L=A/P
870 PRINT "YOU STARTED WITH 10 ACRES PER PERSON AND ENDED WITH"
875 PRINT L"ACRES PER PERSON."\PRINT
880 IF P1>33 THEN 565
885 IF L<7 THEN 565
890 IF P1>10 THEN 940
892 IF L<9 THEN 940
895 IF P1>3 THEN 960
896 IF L<10 THEN 960
900 PRINT "A FANTASTIC PERFORMANCE!!! CHARLEMAGNE, DISRAELI, AND"
905 PRINT "JEFFERSON COMBINED COULD NOT HAVE DONE BETTER!"\GOTO 990
940 PRINT "YOUR HEAVY-HANDED PERFORMANCE SMACKS OF NERO AND IVAN IV."
945 PRINT "THE PEOPLE (REMAINING) FIND YOU AN UNPLEASANT RULER, AND,"
950 PRINT "FRANKLY, HATE YOUR GUTS!"\GOTO 990
960 PRINT "YOUR PERFORMANCE COULD HAVE BEEN SOMEWHAT BETTER, BUT"
965 PRINT "REALLY WASN'T TOO BAD AT ALL. "INT(P*.8*RND(0))"PEOPLE WOULD"
970 PRINT "DEARLY LIKE TO SEE YOU ASSASSINATED BUT WE ALL HAVE OUR"
975 PRINT "TRIVIAL PROBLEMS."
990 PRINT\FOR N=1 TO 10\PRINT CHR$(7);\NEXT N
995 PRINT "SO LONG FOR NOW."\PRINT
999 END