The Museum of HP Calculators

Hiking time estimation for the HP-41CX

This program is by P. J. Schüngel and is used here by permission.

This program is supplied without representation or warranty of any kind. P. J. Schüngel and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.

Overview

Estimates time needed for a hike based on adding the individual legs, each based on distance and altitude difference. The smaller of the two times is halved and the leg time weighted with a factor considering the path quality, total altitude, etc. (typically 0.9 for a good footpath to 2.0 climbing over rocks.) Storage for speed and climb rates (4 memories) can be modified to suit personal needs.

Translations for the german text lines are as follows:
05 "NEW DATA?"
11 "KM:H ASC?"
14 "KM:H DESC?"
17 "ASC M/H?"
20 "DESC M/H?"
25 "TOUR?" (will be printed if printer is connected, otherwise ignored)
28 "END: W=0"
32 "LEG FACT?"
36 "DIST/KM?"
38 "ASC/M?" (enter negative for descending here)
66 "TOTAL"

and you may want to change line 08 to the key you have to press for yes (25 is the "J" key for "JA".)

Program

01 LBL „BERGW“
02 FIX 2
03 CLX
04 STO 10
05 „NEUE DATEN?“
06 AVIEW
07 GETKEY
08 25
09 X#T?
10 GTO 05
11 „KM:H BEI ^?“
12 PROMPT
13 STO 50
14 „KM:H IM AB?“
15 PROMPT
16 STO 51
17 „AUFST. M/H?“
18 PROMPT
19 STO 52
20 „ABST. M/H?“
21 PROMPT
22 STO 53
23 LBL 05
24 FS? 55
25 „TOUR?“
26 FS? 55
27 PROMPT
28 „ENDE: W=0“
29 AVIEW
30 PSE
31 LBL 01
32 „WEGFAKT.?“
33 PROMPT
34 X=0?
35 GTO 10
36 „ENTF/KM?“
37 PROMPT
38 „AUFST/M?“
39 PROMPT
40 X>0?
41 GTO 03
42 ABS
43 RCL 53
44 /
45 X<>Y
46 RCL 51
47 GTO 04
48 LBL 03
49 RCL 52
50 /
51 X<>Y
52 RCL 50
53 LBL 04
54 /
55 X>Y?
56 X<>Y
57 2
58 /
59 +
60 *
61 ST+ 10
62 HMS
63 PSE
64 GTO 01
65 LBL 10
66 „GESAMT“
67 RCL 10
68 HMS
69 ATIME24
70 AVIEW
71 END
 
(201 Bytes)

Go back to the HP-41 software library
Go back to the general software library
Go back to the main exhibit hall