0) Call RESIGN() IF (FEED .GT > 자유게시판

C C HAMURABI C C Converted FROM The unique FOCAL PROGRAM AND MODIFIED FOR C EDUSYSTEM 70 BY DAVID H. AHL, DIGITAL. MODIFIED FOR 8K MICROSOFT C Basic BY PETER TURNBULL. Converted TO FORTRAN 77 BY PHILIPP ENGEL. PROGRAM HAMURA External PLAY C C INITIALISE PSEUDO-RANDOM Number GENERATOR, OUTPUT THE HEADER, AND C Start A new Game. INTEGER Function FEED(ISTOR) C C ASKS Player How many BUSHELS TO FEED TO THE People. ISTAT) FEED IF (ISTAT .NE. Zero .OR. FEED .LT. 0) Call RESIGN() IF (FEED .GT. ISTOR - FEED a hundred FORMAT (' How many BUSHELS DO YOU Wish to FEED YOUR People? INTEGER Function PLANT(IACRE, IPOPU, ISTOR) C C LET THE FARMING Begin. ISTAT) PLANT IF (ISTAT .NE. 0) GOTO 10 IF (PLANT .EQ. 0) RETURN IF (PLANT .LT. 0) Call RESIGN() C C Trying TO PLANT More ACRES THAN THE Player OWNS? C IF (PLANT .GT. GOTO 10 End IF C C Enough GRAIN FOR SEED? C IF (INT(PLANT / 2.0) .GT.

GOTO 10 End IF C C Enough People TO Tend THE CROPS? C IF (PLANT .GE. SUBROUTINE FINK() C C Player HAS BEEN IMPEACHED. SUBROUTINE NOACRE(IACRE) C C NOT Enough ACRES. C INTEGER IACRE PRINT 100, IACRE a hundred FORMAT (' HAMURABI: Think Again. C C NOT Enough BUSHELS OF GRAIN. C INTEGER ISTOR PRINT 100, ISTOR warpseed [https://johnnyoxej79235.blog-eye.com/30107602/5-essential-elements-for-online-casino-bonus-bocoran-slot-gacor-gampang-menang] a hundred FORMAT (' HAMURABI: Think Again. You might have Only ',I4, &' BUSHELS OF GRAIN. C C The sport Starts Here. C External Review, FINK INTEGER FEED, PLANT INTEGER IFEED, IPLAN, IQUOT, IRAND INTEGER IPOPU, IHARV, ISTOR, IYIEL, IRATS, IACRE, IIMMI, IPLAG, & IDEAD, IPERC, IPRIC, ISTAR, IYEAR Common /Global/ IPOPU, IHARV, ISTOR, IYIEL, IRATS, IACRE, IIMMI, & IPLAG, IDEAD, IPERC, IPRIC, ISTAR, IYEAR C C INITIALISE The game STATE. IHARV / IYIEL C C The main LOOP. IIMMI PRINT 100, IYEAR, ISTAR, IIMMI C C A PLAGUE STRIKES! HALF THE Population DIED. C IF (IPLAG .LE.

IPOPU / 2 PRINT 200 End IF PRINT 300, IPOPU, IACRE, IYIEL, IRATS, ISTOR C C MAX. Variety of ROUNDS REACHED: Review Performance AND Quit. C IF (IYEAR .EQ. 11) Call Review(IACRE, IPOPU, IPERC, IDEAD) C C ROLL NEW Price PER ACRE. 17 C C ASK THE Player To buy/Sell LAND. PLANT(IACRE, IPOPU, ISTOR) C C A BOUNTIFUL HARVEST! 0 C C RATS ARE Running WILD. C IF (INT(IYIEL / 2.0) .EQ. IHARV C C LET'S HAVE SOME Babies. 1) C C HORRORS, A 15% Chance OF PLAGUE. IFEED / 20 C C Either A brand new Year, OR IMPEACHMENT IF TOO Many individuals STARVED. C IF (IPOPU .LT. IPOPU - IQUOT IF (ISTAR .GT. C C THE STEWARD HAS Enough. SUBROUTINE Review(IACRE, IPOPU, IPERC, IDEAD) C C OUTPUTS Results. IACRE / IPOPU PRINT 100, IPERC, IDEAD, ILAND IF (IPERC .GT. 33 .OR. ILAND .LT. 7) Call FINK() IF (IPERC .GT. 10 .OR. ILAND .LT.

9) THEN PRINT 200 ELSE IF (IPERC .GT. Three .OR. ILAND .LT. RAND(0)) ELSE PRINT 400 End IF Call Quit() one hundred FORMAT (' IN YOUR 10-Year Term OF Office, ',I2, &' Percent OF THE',/,' Population STARVED PER Year ON THE', &' Average, I.E. A total OF',/,1X,I2,' People DIED!!',/, &' YOU Started WITH 10 ACRES PER Person AND ENDED WITH',/, &1X,I2,' ACRES PER Person.') 200 FORMAT (' YOUR HEAVY-HANDED Performance SMACKS OF NERO AND', &' IVAN IV.',/,' THE People (REMAINING) Find YOU AN UNPLEASANT', &' RULER, AND,',/,' FRANKLY, HATE YOUR GUTS!!') 300 FORMAT (' YOUR Performance Could HAVE BEEN Somewhat Better,', &' But',/,' Really WASN''T TOO Bad At all. Four hundred FORMAT (' A Fantastic Performance! CHARLEMANGE, DISRAELI, AND', &/,' JEFFERSON Combined Could not HAVE Done Better! SUBROUTINE Trade(IACRE, ISTOR, IPRIC) C C LETS THE Player Buy/Sell ACRES. C External NOACRE, NOBUSH, RESIGN INTEGER IACRE, ISTOR, IPRIC INTEGER IAMOU, ISTAT C C ASK To purchase ACRES. ISTAT) IAMOU IF (ISTAT .NE.

0 .OR. IAMOU .LT. IAMOU .GT. ISTOR) THEN Call NOBUSH(ISTOR) GOTO 10 End IF IF (IAMOU .GT. IAMOU RETURN End IF C C IF NO ACRES Bought, ASK What number of TO Sell. ISTAT) IAMOU IF (ISTAT .NE. Zero .OR. IAMOU .LT. 0) Call RESIGN() IF (IAMOU .GE. GOTO 20 End IF IF (IAMOU .GT. SUBROUTINE Quit() C C PRINTS Last MESSAGE AND EXITS. BLOCK Data C C Common VARIABLES: C C IPOPU - Size OF THE Population. C IHARV - BUSHELS HARVESTED In a single Year. C ISTOR - Number of BUSHELS Stored. C IYIEL - YIELD OF ACRES. C IRATS - BUSHELS EATEN BY RATS. C IACRE - ACRES OWNED BY Player. C IIMMI - IMMIGRATION PER Year. C IPLAG - FLAG FOR HORRIBLE PLAGUE. C IDEAD - Number Of people that DIED. C IPERC - Percentage Of people who DIED. C IPRIC - Price PER ACRE. C ISTAR - Number Of people STARVED TO Death In a single Year. C IYEAR - The present Year.