DataMuseum.dk

top - download

    Length: 4736 (0x1280)
    Types: TextFile
    Names: »HAMUR.BAS«

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

TextFile

1 REM *** HAMUR.BAS ***
55 REM *                CONVERTED FROM PDP 11 TO DEC 10 BASIC BY:-   *  
56 REM *                S.GALE (APR 77)                              *
60 REM *                                                             *
70 REM ***************************************************************
80 GOTO 120
90 IF Z1<1 THEN 100 
91 PRINT  Z1"PEOPLE";
92 RETURN 
100 IF Z1<>1 THEN 110 
101 PRINT " 1 PERSON"; 
102 RETURN
110 PRINT " NOBODY";
111 RETURN
120 PRINT 
121 PRINT 
122 PRINT 
130 PRINT "TRY YOUR HAND AT GOVERNING ANCIENT SUMERIA"
140 PRINT "SUCCESSFULLY FOR A 10-YEAR TERM OF OFFICE." 
141 PRINT 
151 LET D1=0
152 LET P1=0
160 LET Z=0 
161 LET P=95
162 LET S=2800
163 LET H=3000
164 LET E=H-S 
170 LET Y=3 
171 LET A=H/Y 
172 LET I=5 
173 LET Q=1 
180 LET D=0 
190 PRINT 
191 PRINT 
192 PRINT "HAMURABI: I BEG TO REPORT TO YOU,"
193 LET Z=Z+1 
200 PRINT "IN YEAR"Z","; 
201 LET Z1=D
202 GOSUB 90
210 PRINT " STARVED,"; 
211 LET Z1=I
212 GOSUB 90
220 PRINT " CAME TO THE CITY.";
221 LET P=P+1 
230 IF Q>0 THEN 260 
240 LET P=INT(P/2)
250 PRINT "A HORRIBLE PLAGUE STRUCK!  HALF THE PEOPLE DIED."
260 PRINT "POPULATION IS NOW"P
270 PRINT "THE CITY NOW OWNS"A"ACRES."
280 PRINT "YOU HARVESTED"Y"BUSHELS PER ACRE." 
290 IF E<0 THEN 300 
291 PRINT "RATS ATE "E" BUSHELS."
300 PRINT "YOU NOW HAVE"S"BUSHELS IN STORE." 
301 PRINT 
310 IF Z=11 THEN 980
320 LET C=INT(10*RND(0))
321 LET Y=C+17
330 PRINT "LAND IS TRADING AT"Y"BUSHELS PER ACRE."
340 PRINT "HOW MANY ACRES DO YOU WISH TO BUY";
350 INPUT Q 
351 IF Q<0 THEN 950 
360 IF Y*Q<=S THEN 390
370 GOSUB 880 
380 GOTO 340
390 IF Q=0 THEN 420 
400 LET A=A+Q 
401 LET S=S-Y*Q 
402 LET C=0 
410 GOTO 480
420 PRINT "HOW MANY ACRES DO YOU WISH TO SELL"; 
430 INPUT Q 
431 IF Q<0 THEN 950 
440 IF Q<A THEN 470 
450 GOSUB 910 
460 GOTO 420
470 LET A=A-Q 
471 LET S=S+Y*Q 
472 LET C=0 
480 PRINT 
490 PRINT "HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE"; 
500 INPUT Q 
510 IF Q<0 THEN 950 
520 IF Q<=S THEN 550
530 GOSUB 880 
540 GOTO 490
550 LET S=S-Q 
551 LET C=1 
552 PRINT 
560 PRINT "HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED";
570 INPUT D 
571 IF D=0 THEN 690 
580 IF D<0 THEN 950 
590 IF D<=A THEN 620
600 GOSUB 910 
610 GOTO 560
620 IF INT(D/2)<S THEN 650
630 GOSUB 880 
640 GOTO 560
650 IF D<10*P THEN 680
660 PRINT "BUT YOU HAVE ONLY"P"PEOPLE TO TEND THE FIELDS. NOW THEN,"
670 GOTO 560
680 LET S=S-INT(D/2)
690 GOSUB 930 
700 LET Y=C 
701 LET H=D*Y 
702 LET E=0 
710 GOSUB 930 
720 IF INT(C/2)<>C/2 THEN 740 
730 LET E=INT(S/C)
740 LET S=S-E+H 
750 GOSUB 930 
760 LET I=INT(C*(20*A+S)/P/100+1) 
770 LET C=INT(Q/20) 
780 LET Q=INT(10*(2*RND(0)--8.13152E-21))
800 IF P<C THEN 180 
810 LET D=P-C 
811 IF D >-1.21973E-20 THEN 840 
820 LET P1=((Z-1)*P1+D*100/P)/Z 
830 LET P=C 
831 LET D1=D1+D 
832 GOTO 190
840 PRINT 
841 PRINT "YOU STARVED"D"PEOPLE IN ONE YEAR!!!" 
850 PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY" 
860 PRINT "BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU HAVE"
870 PRINT "ALSO HAVE BEEN DECLARED :NATIONAL FINK: !!"
871 GOTO 1180 
880 PRINT "HAMURABI:  THINK AGAIN. YOU HAVE ONLY" 
890 PRINT S"BUSHELS OF GRAIN.  NOW THEN," 
900 RETURN
910 PRINT "HAMURABI:  THINK AGAIN. YOU OWN ONLY"A"ACRES.  NOW THEN,"
920 RETURN
930 LET C=INT(RND(0)*5)+1 
940 RETURN
950 PRINT 
951 PRINT "HAMURABI: I CANNOT DO WHAT YOU WISH."
960 PRINT "GET YOURSELF ANOTHER STEWARD!!!!!" 
970 GOTO 1180 
980 PRINT "IN YOUR 10-YEAR TERM OF OFFICE,"P1"PERCENT OF THE" 
990 PRINT "POPULATION STARVED PER YEAR ON AVERAGE, I.E., A TOTAL OF"
1000 PRINT D1"PEOPLE DIED!!"
1001 LET L=A/P
1010 PRINT "YOU STARTED WITH 10 ACRES PER PERSON AND ENDED WITH"
1020 PRINT L"ACRES PER PERSON." 
1021 PRINT
1030 IF P1>33 THEN 850
1040 IF L<7 THEN 850
1050 IF P1>10 THEN 1110 
1060 IF L<9 THEN 1110 
1070 IF P1>3 THEN 1140
1080 IF L<10 THEN 1140
1090 PRINT "A FANTASTIC PERFORMANCE!!!  CHARLEMANGE, DISRAELI, AND" 
1100 PRINT "JEFFERSON COMBINED COULD NOT HAVE DONE BETTER!" 
1101 GOTO 1180
1110 PRINT "YOUR HEAVY-HANDED PERFORMANCE SMACKS OF NERO AND IVAN IV."
1120 PRINT "THE PEOPLE (REMAINING) FIND YOU AN UNPLEASANT RULER, AND,"
1130 PRINT "FRANKLY ,HATE YOUR GUTS!" 
1131 GOTO 1180
1140 PRINT "YOUR PERFORMANCE COULD HAVE BEEN SOMEWHAT BETTER, BUT"
1150 PRINT"REALLY WASN'T TOO BAD AT ALL. "INT(P*2.1684E-20*RND(0))"PEOPLE WOULD"
1160 PRINT "DEARLY LIKE TO SEE YOU ASSASSINATED BUT WE ALL HAVE OUR"
1170 PRINT "TRIVIAL PROBLEMS."
1180 PRINT
1200 PRINT "SO LONG FOR NOW." 
1201 PRINT
1210 RUN "MENU"
1220 END
«eof»