10 - KA Calendar Functions

Post Reply
Peet
Posts: 257
Joined: Tue Sep 29, 2020 12:01 am
Location: Germany

10 - KA Calendar Functions

Post by Peet »

HP41 Standard Applications (modified version).
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
Attachments
10_KA_Kalender.raw
(346 Bytes) Downloaded 130 times
My programmable calculators - former: CBM PR100, HP41CV, HP28S, HP11C - current: HP48G(256kB), HP35S, Prime, DM41X, DM42
Thomas_ER
Posts: 192
Joined: Mon Jul 24, 2017 3:19 pm
Location: Germany

Re: 10 - KA Calendar Functions

Post by Thomas_ER »

Hello Peet,
Many thanks for posting all year helpful programs!

For learning (never had an HP41): are there also programs with comments?
(maybe on other sites?)

Thomas
[ HP48/49/50/42S/WP34/HP Prime/ DM42 (#00185+00318) ]
Peet
Posts: 257
Joined: Tue Sep 29, 2020 12:01 am
Location: Germany

Re: 10 - KA Calendar Functions

Post by Peet »

Thomas_ER wrote:
Fri Dec 11, 2020 7:52 am
For learning (never had an HP41): are there also programs with comments?
(maybe on other sites?)
I recommend the Users' Library Solutions Pacs from HP. One of these program collections (standard applications) was included with the HP41 when it was purchased and is available in various languages (including German). The programs in these collections have exemplary comments. At the Time there were very expensive but today you can find them as PDF in the web. You can find them on hp41.org or hpmuseum.org.
If you google HP-41C STANDARD APPLICATIONS you will find other sources.
My programmable calculators - former: CBM PR100, HP41CV, HP28S, HP11C - current: HP48G(256kB), HP35S, Prime, DM41X, DM42
Thomas_ER
Posts: 192
Joined: Mon Jul 24, 2017 3:19 pm
Location: Germany

Re: 10 - KA Calendar Functions

Post by Thomas_ER »

Got it.
I own the HP41 DVD, but did not remember this folder (Users Library Solutions).

Many thanks for your hints,
Thomas
[ HP48/49/50/42S/WP34/HP Prime/ DM42 (#00185+00318) ]
Post Reply