mirror of
https://github.com/PDP-10/stacken.git
synced 2026-03-01 09:21:15 +00:00
151 lines
4.5 KiB
Plaintext
151 lines
4.5 KiB
Plaintext
00080 PRINT "TRY YOUR HAND AT GOVERNING ANCIENT SUMARIA"
|
|
00085 PRINT "SUCCESSFULLY FOR A 10 YEAR TERM OF OFFICE."
|
|
00090 RANDOMIZE
|
|
00091 LET D1=0
|
|
00092 LET P1=0
|
|
00100 LET Z=0
|
|
00101 LET P=99
|
|
00102 LETS=2800
|
|
00103 LET H=3000
|
|
00104 LET E=H-S
|
|
00110 LET Y=3
|
|
00111 LET A=H/Y
|
|
00112 LET I=5
|
|
00113 LET Q=1
|
|
00210 LET D=0
|
|
00215 PRINT " HMRABI: I BEG TO REPORT TO YOU, "
|
|
00216 LET Z=Z+1
|
|
00217 PRINT "IN YEAR"Z","D"PEOPLE STARVED ,"I"CAME TO THE CITY.."
|
|
00218 LET P=P+I
|
|
00227 IF Q> 0 THEN 230
|
|
00228 LET P=INT(P/2)
|
|
00229 PRINT "A HORRIBLE PLAGUE SSTRUCK! HALF THE PEOPLE DIED."
|
|
00230 PRINT "POPULATION IS NOW"P
|
|
00232 PRINT "THE CITY NOW OWNS"A"ACRES""."
|
|
00235 PRINT "YOU HARVESTED"Y"BUSHELS PER ACRE."
|
|
00250 PRINT "RATS ATE "E"BUSHELS."
|
|
00260 PRINT "YOU NOW HAVE"S"BUSHELS IN STORE."
|
|
00270 IF Z=11 THEN 860
|
|
00310 LET C=INT(10*RND)
|
|
00311 LET Y= C+17
|
|
00312 PRINT "LAND IS TRADING AT"Y"BUSHELS PER ACRE."
|
|
00320 PRINT "HOW MANY ACRES DO YOU WISH TO BUY"
|
|
00321 INPUT Q
|
|
00322 IF Q<0 THEN 850
|
|
00323 IF Y*Q=S THEN330
|
|
00324 IF Y*Q<S THEN 330
|
|
00325 GO SUB 710
|
|
00326 GO TO 320
|
|
00330 IF Q=0 THEN 340
|
|
00331 LET A=A+Q
|
|
00332 LET S=S-Y*Q
|
|
00333 LET C=0
|
|
00334 GO TO 400
|
|
00340 PRINT "HOW MANY ACRES DO YOU WISH TO SELL?"
|
|
00341 INPUT Q
|
|
00342 IF Q<0 THEN 850
|
|
00343 IF Q<A THEN 350
|
|
00344 GO SUB 720
|
|
00345 GO TO 340
|
|
00350 LET A=A-Q
|
|
00351 LET S=S+Y*Q
|
|
00352 LET C=0
|
|
00400 PRINT
|
|
00410 PRINT " HOW MANY BUSHELS DO YUO WISH TO FEED YOUR PEOPLE?"
|
|
00411 INPUT Q
|
|
00412 IF Q<0 THEN 850
|
|
00418 REM*** TRYIG TO USE MORE GRAIN THAN IN THE SILOS?
|
|
00420 IF Q<=S THEN 430
|
|
00421 GO SUB 710
|
|
00422 GO TO 410
|
|
00430 LET S=S-Q
|
|
00431 LET C=1
|
|
00440 PRINT "HOW MAOY ACRES DO YOU WISH TO PLANT WITH SEED?"
|
|
00441 INPUT D
|
|
00442 IF D=0 THEN 511
|
|
00443 IF D<0 THEN 850
|
|
00444 REM *** TRYING TO PLANT MORE ACRES THAN YOU OWN?
|
|
00445 IF D<=A THEN 450
|
|
00446 GO SUB 720
|
|
00447 GO TO 440
|
|
00449 REM *** ENOUGH GRAIN FOR SEED?
|
|
00450 IF INT(D/2)<S THEN 455
|
|
00452 GO SUB 710
|
|
00453 GO TO 440
|
|
00454 REM*** ENOUGH PEOPLE TO TEND THE CROPS
|
|
00455 IF D<10*P THEN 510
|
|
00460 PRINT"BUT YOU HAVE ONLY"P"PEOPLE TO TEND THE FIELDS.!"
|
|
00461PRINT "NOW THEN"
|
|
00470 GO TO 440
|
|
00510 LET S=S-INT(D/2)
|
|
00511 GO SUB 800
|
|
00512 REM***A BOUNTIFUL HARVEST!!
|
|
00515 LET Y=C
|
|
00516 LET H=D*Y
|
|
00517 LET E=0
|
|
00521 GO SUB 800
|
|
00522 IF INT(C/2) <>C/2 THEN 530
|
|
00523 REM***THE RATS ARE RUNNING WILD!!!
|
|
00525 LET E= INT(S/C)
|
|
00530 LET S=S-E+H
|
|
00531 GO SUB 800
|
|
00532 REM***LETS HAVE SOME BABIES!!!
|
|
00533 LET I=INT(C*(20*A+S)/P/100+1)
|
|
00539 REM***HOW MANY PEOPLE HAVE FULL TUMMIES?
|
|
00540 LET C= INT(Q/20)
|
|
00541 REM***HORRORS! A 15% CHANCE OF PLAGUE.
|
|
00542 LET Q=INT(10*(2*RND-.3))
|
|
00550 IF P<C THEN 210
|
|
00551 REM***STARVE ENOUGH FOR IMPEACHMENT?
|
|
00552 D=P-C
|
|
00553 IF D>.45+P THEN 560
|
|
00554 P1=((Z-1)*P1+D+100/P)/Z
|
|
00555 P=C
|
|
00556 D1=D1+D
|
|
00557 GO TO 215
|
|
00560 PRINT "YOU STARVED"D "PEOPLE IN ONE YEAR!!!"
|
|
00565 PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY"
|
|
00566 PRINT "BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU HAVE"
|
|
00567 PRINT "ALSO BEEN DECLARED A 'NATIONAL FINK'!!"
|
|
00568 GO TO 990
|
|
00710PRINT "HAMURABI: THINK AGAIN, YOU HAVE ONLY"S"BUSHELSOF GRAIN."
|
|
00711 PRINT "NOW THEN,"
|
|
00712 RETURN
|
|
00720 PRINT "HAMURABI; THINK AGAIN, YOU OWN ONLY"A"A _RES,NOW THEN ,"
|
|
00730 RETURN
|
|
00800 LET C=INT(RND*5)+1
|
|
00801 RETURN
|
|
00850 PRINT"HAMURABI; I CANNOT DO WHAT YOU WISH."
|
|
00855 PRINT "GET YOURSELF ANOTHER STEWARD!!!!!"
|
|
00857 GO TO 990
|
|
00860 PRINT "IN YOUR TEN YEAR TERM OF OFFICE,"P1"PER CENT OF THE"
|
|
00862 PRINT "POPULATION STARVED PER YEAR ON AVERAGE,I.E.,A TOTAL OF"
|
|
00865 PRINT D1"PEOPLE DIED!!"
|
|
00866 LET L=A/P
|
|
00870 PRINT "YOU STARTED WITH TEN ACRES PER PERSON AND ENDED WITH "
|
|
00875 PRINT L"ACRES PER PERSON. "
|
|
00876 PRINT
|
|
00880 IF P1>33 THEN 565
|
|
00885 IF L<7 THEN 565
|
|
00890 IF P1 >10 THEN 940
|
|
00892 IF L<9 THEN 940
|
|
00895 IF P1>3 THEN 960
|
|
00896 IF L<10 THEN 960
|
|
00900 PRINT "A FANTASTIC PERFORMANCE!!! CHARLEMAGNE, DISRAELI, AND"
|
|
00905 PRINT "JEFFERSON COMBINED COULD NOT HAVE DONE BETTER!!"
|
|
00906 GO TO 990
|
|
00940 PRINT "YOUR HEAVY HANDED PERFORMANCE SMACKS OF NERO AND IVAN IV."
|
|
00945 PRINT "THE PEOPLE (REMAINING) FIND YOU AN UNPLEASANT RULER, AND ,"
|
|
00950 PRINT "FRANKLY, HATE YOUR GUTS!!!"
|
|
00951 GO TO 990
|
|
00960 PRINT "YOUR PERFORMANCE COULD HAVE BEEN SOME WHAT BETTER, BUT "
|
|
00965 PRINT" REALLY WASN'T TOO BAD AT ALL."INT(P*.8*RND)"PEOPLE WOULD"
|
|
00970 PRINT "DEARLY LIKE TO SEE YOU ASSASSINATED BUT WE ALL HAVE OUR "
|
|
00975 PRINT " TRIVIAL PROBLEMS."
|
|
00990 PRINT
|
|
00991 FOR N=1 TO 10
|
|
00992 PRINT CHR$(7)
|
|
00993 NEXT N
|
|
00995 PRINT"SO LONG FOR NOW."
|
|
00999 END
|