The Museum of HP Calculators
The Museum of HP Calculators
This program is Copyright © HP and is used here by permission. It was originally printed in the Civil Engineering Solution Book. 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 "METRIC" 02 "YPS?" 03 PROMPT 04 STO 09 05 207 E9 06 X<>Y 07 / 08 PI 09 X^2 10 * 11 ENTER 12 + 13 SQRT 14 STO 03 15 10273 E8 16 STO 07 17 GTO 00 18 LBL "ENGLISH" 19 "YPS?" 20 PROMPT 21 STO 09 22 30 E6 23 X<>Y 24 / 25 PI 26 X^2 27 * 28 ENTER 29 + 30 SQRT 31 STO 03 32 149 E6 33 STO 07 34 LBL 00 35 ENG 03 36 "A?" 37 PROMPT 38 STO 01 39 "L?" 40 PROMPT 41 STO 04 42 "K?" 43 PROMPT 44 STO 05 45 LBL A 46 CF 01 47 RCL 04 48 RCL 05 49 / 50 STO 08 51 RCL 03 52 X>Y? 53 GTO 01 54 X<>Y 55 200 56 X<>Y 57 X>Y? 58 GTO 05 59 SF 01 60 LBL 01 61 3 62 RCL 08 63 RCL 03 64 / 65 X^2 66 STO 08 67 LASTX 68 RDN 69 - 70 R^ 71 * 72 8 73 / 74 5 75 ENTER 76 3 77 / 78 + 79 STO 06 80 FS? 01 81 GTO 00 82 RCL 09 83 X<>Y 84 / 85 1 86 RCL 08 87 2 88 / 89 - 90 * 91 GTO 07 92 LBL 00 93 RCL 07 94 RCL 04 95 RCL 05 96 / 97 X^2 98 / 99 LBL 07 100 RCL 01 101 * 102 "Pa=" 103 XEQ 05 104 RCL 06 105 * 106 "PMAX=" 107 LBL 05 108 ARCL X 109 AVIEW 110 STOP 111 RTN 112 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall