LBL "EASTER"
FIX 0
CF 29
SF 27
LBL A
"YEAR?"
PROMPT
1900
-
STO 00
19
MOD
STO 01
7
*
1
+
19
/
INT
4
X<>Y
-
RCL 01
11
*
+
29
MOD
STO 02
RCL 00
4
/
INT
RCL 00
+
RCL 02
-
31
+
7
MOD
RCL 02
+
25
X<>Y
-
CLA
X<=0?
GTO 01
ARCL X
" APRIL"
AVIEW
STOP
LBL 01
31
+
ARCL X
" MARCH"
AVIEW
STOP
END