• 목록
• 글쓰기
• 게시판 리스트 옵션
  • 수정
  • 삭제

C C HAMURABI C C Converted FROM The original 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 brand 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 (' What number of BUSHELS DO YOU Want to FEED YOUR People? INTEGER Function PLANT(IACRE, warpseed (emilianokkxy22344.ambien-blog.com) 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 one hundred FORMAT (' HAMURABI: Think Again. C C NOT Enough BUSHELS OF GRAIN. C INTEGER ISTOR PRINT 100, ISTOR one hundred FORMAT (' HAMURABI: Think Again. You've 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 primary 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! Zero 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 new Year, OR IMPEACHMENT IF TOO Many people 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 In any respect. Four hundred FORMAT (' A Fantastic Performance! CHARLEMANGE, DISRAELI, AND', &/,' JEFFERSON Combined Couldn't 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 How many TO Sell. ISTAT) IAMOU IF (ISTAT .NE. 0 .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 - Variety 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 who DIED. C IPERC - Percentage Of people that DIED. C IPRIC - Price PER ACRE. C ISTAR - Number Of people STARVED TO Death In one Year. C IYEAR - The current Year.