This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 Earth Sciences Solution Book. This program was ported to the HP-41C by reading with the HP-41C card reader and the card reader may be required for operation of this program. This program was entered and uploaded by Tony Duell.
This program is supplied without representation or warranty of any kind. Tony Duell, Hewlett Packard 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.
Documentation Information (CD or source code)
How to get this Program to your Calculator (via
HP-IL, disk, wand, and fingers)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download
LINE KEYS 01 LBL "GEOCNT" 02 LBL 10 03 LBL A 04 STO 03 05 X<>Y 06 XEQ 12 07 1 08 P-R 09 STO 02 10 RDN 11 STO 01 12 STOP 13 LBL 11 14 LBL B 15 STO 06 16 X<>Y 17 XEQ 12 18 1 19 P-R 20 STO 05 21 X<>Y 22 STO 04 23 RCL 01 24 * 25 X<>Y 26 RCL 02 27 * 28 RCL 06 29 RCL 03 30 - 31 1 32 P-R 33 STO 06 34 X<>Y 35 STO 07 36 RDN 37 * 38 + 39 RCL 02 40 RCL 04 41 * 42 STO 04 43 RCL 01 44 RCL 05 45 * 46 RCL 06 47 * 48 - 49 RCL 05 50 RCL 07 51 * 52 X<>Y 53 R-P 54 R^ 55 R-P 56 RDN 57 STOP 58 XEQ 00 59 STOP 60 RCL 02 61 RCL 07 62 CHS 63 * 64 RCL 05 65 RCL 01 66 * 67 RCL 06 68 RCL 04 69 * 70 - 71 R-P 72 LBL 00 73 X<>Y 74 0 75 X<>Y 76 X>Y? 77 RTN 78 360 79 + 80 RTN 81 LBL 12 82 LBL C 83 TAN 84 RCL 08 85 * 86 ATAN 87 RTN 88 LBL 13 89 LBL D 90 .993305 91 STO 08 92 RTN 93 LBL 14 94 LBL E 95 1 96 STO 08 97 RTN 98 STOP 99 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall