Changes (amongst others): Day of week is displayed after each date is entered and does not have to be called up separately.
Even if today's pocket calculators often already have date functions, those were very popular programs at the time of the HP41C/CV. Today they are interesting as example programs or for compatibility with the C/CV.
Usage:
Input: A/B: <month,dayyear (mm,ddyyyy)> C: <number of days>
i.e. number of days between dates:
5,251964 <A>: MAY25,1964 MO
6,132020 <B>: JUN13,2020 SA
<C>: 20.473,0000
i.e. calculate a date after a number of days:
5,251964 <A>: MAY25,1964 MO
20500 <C><B>: JUL10,2020 FR
Code: Select all
LBL "KA"
CLRG
SF 27
STOP
LBL A
RCL 04
RCL 01
-
3
GTO 20
LBL B
RCL 03
RCL 01
+
4
LBL 20
STO 02
RDN
365.25
STO 05
30.6001
STO 06
RDN
RDN
FS?C 22
GTO 21
STO IND 02
122.1
-
RCL 05
/
INT
STO 09
RCL 05
*
INT
RCL IND 02
-
CHS
STO 10
RCL 06
/
INT
STO 07
RCL 10
X<>Y
RCL 06
*
INT
-
STO 08
RCL 07
1
RCL 08
%
-
-
RCL 07
14
/
XEQ 22
RCL 09
1 E6
/
+
GTO 25
LBL 21
RDN
FC? 06
STO IND 02
ENTER
INT
STO 07
-
1 E2
*
ENTER
INT
STO 08
-
1 E4
*
STO 09
RCL 07
1
+
ENTER
1/X
.7
+
CHS
XEQ 22
RCL 06
*
INT
RCL 09
RCL 05
*
INT
+
RCL 08
+
X<> IND 02
FS?C 06
RTN
LBL 25
ENTER
XEQ IND X
FRC
1 E2
*
FIX 4
ARCL X
RDN
XEQ 30
AVIEW
RTN
LBL 22
INT
ST+ 09
12
*
-
RTN
LBL C
STO 01
FS?C 22
RTN
RCL 04
RCL 03
-
STO 01
RTN
LBL 30
SF 06
SF 22
RCL 05
5
XEQ 20
RCL IND 02
7
MOD
13
+
XEQ IND X
AVIEW
RTN
LBL 13
"|- FR"
RTN
LBL 14
"|- SA"
RTN
LBL 15
"|- SU"
RTN
LBL 16
"|- MO"
RTN
LBL 17
"|- TU"
RTN
LBL 18
"|- WE"
RTN
LBL 19
"|- TH"
RTN
LBL 01
"JAN"
RTN
LBL 02
"FEB"
RTN
LBL 03
"MAR"
RTN
LBL 04
"APR"
RTN
LBL 05
"MAY"
RTN
LBL 06
"JUN"
RTN
LBL 07
"JUL"
RTN
LBL 08
"AUG"
RTN
LBL 09
"SEP"
RTN
LBL 10
"OCT"
RTN
LBL 11
"NOV"
RTN
LBL 12
"DEC"
END