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