REM Easter
      REM Calculate the date of Easter Day
      REM after Alan Thomas(GOTOs removed)
      REM after C.F. Gauss (1777-1855)
      MODE8
      P=24:Q=5
      REPEAT
        PRINT
        INPUTTAB(1)"Which Year : "Y
        PRINT" Easter Sunday ";Y;" is ";
        A=Y MOD 19
        B=Y MOD 4
        C=Y MOD 7
        D2=19*A+P
        D=D2 MOD 30
        E2=2*B + 4*C + 6*D +Q
        E=E2 MOD 7
        I=D+E
        PROCeaster
      UNTIL FALSE
      END
      :
      DEF PROCeaster
      IF I<34 THEN PROCu:ENDPROC
      IF I=35 PRINT"APRIL 19":ENDPROC
      IF E=6 PRINT "APRIL 18": ENDPROC
      PROCu
      ENDPROC
      :
      DEF PROCu
      IF I<10 PRINT "MARCH ";22 + I:ENDPROC
      PRINT"APRIL ";I-9
      ENDPROC