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 100 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.

helm of grass metal background prickly plantGOTO 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 100 FORMAT (‘ HAMURABI: Think Again. C C NOT Enough BUSHELS OF GRAIN. C INTEGER ISTOR PRINT 100, ISTOR a hundred FORMAT (‘ HAMURABI: Think Again. You have got 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.

By admin

Leave a Reply

Your email address will not be published. Required fields are marked *