LBL "DAY"
FIX 00
365.25
STO 09
30.6001
STO 08
CLX
"MM.DDYYYY ?"
PROMPT
ENTER
INT
STO 02
-
1 E2
*
ENTER
INT
STO 01
-
1 E4
*
STO 03
STO 04
RCL 02
1
+
ENTER
1/X
0.7
+
CHS
INT
ST+ 03
12
*
-
RCL 08
*
INT
RCL 03
RCL 09
*
INT
+
RCL 01
+
5
+
7
/
FRC
7
*
RND
X=0?
"SUNDAY"
1
X=Y?
"MONDAY"
CLX
2
X=Y?
"TUESDAY"
CLX
3
X=Y?
"WEDNESDAY"
CLX
4
X=Y?
"THURSDAY"
CLX
5
X=Y?
"FRIDAY"
CLX
6
X=Y?
"SATURDAY"
AVIEW
RTN
END