| 1 | C COMEST.FT COMPUTES THE EASTER DAY\r |
| 2 | C\r |
| 3 | INTEGER YEAR,MON,DAY,MONTH(2)\r |
| 4 | DATA MONTH /'MARCH','APRIL'/\r |
| 5 | C\r |
| 6 | 10 WRITE (4,1)\r |
| 7 | READ (4,2) YEAR\r |
| 8 | IF (YEAR.LE.99) YEAR=YEAR+1900\r |
| 9 | C CHECK FOR LEGAL CENTURY\r |
| 10 | IF (1700.LE.YEAR .AND. YEAR.LT.2100) GOTO 20 \r |
| 11 | WRITE (4,3)\r |
| 12 | GOTO 10\r |
| 13 | C\r |
| 14 | 20 CALL EASTER(YEAR,DAY,MON)\r |
| 15 | WRITE (4,4) DAY,MONTH(MON-2),YEAR\r |
| 16 | GOTO 10\r |
| 17 | 1 FORMAT (' ENTER YEAR (I4) ',$)\r |
| 18 | 2 FORMAT (I4)\r |
| 19 | 3 FORMAT (' CAN',1H','NT, ONLY FROM 1700 TO 2099')\r |
| 20 | 4 FORMAT (' ',I2,'-',A5,'-',I4)\r |
| 21 | END\r |
| 22 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |