0) Call RESIGN() IF (FEED .GT > 게시판 | 조선의 옛날통닭
최고의 맛으로 승부하는 명품 치킨 조선의 옛날통닭 입니다.

0) Call RESIGN() IF (FEED .GT

페이지 정보

profile_image
작성자 Jami Baley
댓글 0건 조회 23회 작성일 24-10-25 09:08

본문

class=

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.



space-lines-tunnel-seamless-loop.jpg?s=612x612&w=0&k=20&c=GkAZK0d-k7r9JHgHziiegIqwECZwE2I6JRjLtdff0hg=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.

댓글목록

등록된 댓글이 없습니다.