This program is Copyright © HP and is used here by permission. It was originally printed in the Business Stats 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 "T" 02 SF 21 03 CF 01 04 CLX 05 RTN 06 LBL A 07 STO 00 08 "V" 09 GTO 10 10 LBL B 11 STO 12 12 RCL 00 13 XEQ 11 14 STO 10 15 RCL 00 16 1 17 + 18 XEQ 11 19 STO 09 20 RCL 12 21 RCL 09 22 RCL 10 23 / 24 PI 25 RCL 00 26 * 27 SQRT 28 / 29 1 30 RCL 12 31 X^2 32 RCL 00 33 / 34 + 35 RCL 00 36 1 37 + 38 2 39 / 40 CHS 41 Y^X 42 * 43 "F" 44 GTO 10 45 LBL 11 46 1 47 STO 03 48 X<>Y 49 2 50 / 51 STO 01 52 INT 53 LASTX 54 X#Y? 55 GTO 01 56 1 57 - 58 FACT 59 STO 03 60 RTN 61 LBL 01 62 .5 63 X=Y? 64 GTO 02 65 X<>Y 66 1 67 - 68 ST* 03 69 GTO 01 70 LBL 02 71 PI 72 SQRT 73 RCL 03 74 * 75 STO 03 76 RTN 77 LBL C 78 STO 12 79 ABS 80 RCL 00 81 RAD 82 SQRT 83 / 84 ATAN 85 STO 02 86 RCL 00 87 2 88 / 89 INT 90 LASTX 91 X#Y? 92 GTO 04 93 0 94 STO 05 95 LBL 12 96 RCL 02 97 COS 98 X^2 99 STO 03 100 RCL 02 101 SIN 102 STO 04 103 RCL 00 104 2 105 X=Y? 106 GTO 08 107 / 108 INT 109 STO 11 110 1 111 STO 06 112 DSE 11 113 GTO 03 114 GTO 13 115 LBL 03 116 RCL 03 117 * 118 RCL 05 119 1 120 + 121 * 122 LASTX 123 1 124 + 125 STO 05 126 / 127 ST+ 06 128 DSE 11 129 GTO 03 130 RCL 06 131 LBL 13 132 RCL 04 133 * 134 FS? 01 135 RTN 136 RCL 12 137 GTO 06 138 LBL 04 139 RCL 02 140 2 141 * 142 PI 143 / 144 STO 07 145 RCL 00 146 1 147 STO 05 148 X=Y? 149 GTO 09 150 SF 01 151 XEQ 12 152 CF 01 153 RCL 02 154 COS 155 * 156 2 157 * 158 PI 159 / 160 RCL 07 161 + 162 RCL 12 163 GTO 06 164 LBL 09 165 RCL 07 166 RCL 12 167 GTO 06 168 LBL 08 169 RCL 04 170 RCL 12 171 LBL 06 172 X>0? 173 GTO 00 174 X<>Y 175 1 176 - 177 CHS 178 2 179 / 180 "P" 181 GTO 10 182 LBL 00 183 X<>Y 184 1 185 + 186 2 187 / 188 "P" 189 LBL 10 190 "=" 191 ARCL X 192 AVIEW 193 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall