The Museum of HP Calculators

Pratt, Sheard, & Percival Methods of Near Rx for the HP-41C/CV/CX

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

Program Listing

LINE  KEYS
 01 LBL "NRX"
 02 "7A?"
 03 PROMPT
 04 STO 00
 05 "13B?"
 06 PROMPT
 07 STO 02
 08 "14B?"
 09 PROMPT
 10 STO 01
 11 "15B?"
 12 PROMPT
 13 STO 10
 14 "PD?"
 15 PROMPT
 16 10
 17 /
 18 STO 03
 19 "d?"
 20 PROMPT
 21 1/X
 22 STO 04
 23 "B0?"
 24 PROMPT
 25 STO 06
 26 "B1?"
 27 PROMPT
 28 "PRATT"
 29 AVIEW
 30 STO 07
 31 RCL 02
 32 RCL 03
 33 /
 34 RCL 01
 35 RCL 00
 36 -
 37 +
 38 STO 05
 39 RCL 02
 40 RCL 10
 41 -
 42 RCL 03
 43 /
 44 RCL 01
 45 RCL 00
 46 -
 47 /
 48 STO 08
 49 RCL 08
 50 1
 51 +
 52 RCL 05
 53 X<>Y
 54 /
 55 "DELTA "
 56 ARCL X
 57 AVIEW
 58 STOP
 59 RCL 01
 60 RCL 00
 61 -
 62 RCL 04
 63 X<>Y
 64 -
 65 RCL 04
 66 /
 67 1
 68 +
 69 RCL 05
 70 X<>Y
 71 /
 72 6
 73 *
 74 "DELTA B0 "
 75 ARCL X
 76 AVIEW
 77 STOP
 78 SF 05
 79 "SHEARD"
 80 AVIEW
 81 RCL 02
 82 X>0?
 83 GTO 01
 84 2
 85 *
 86 ABS
 87 RCL 06
 88 X<>Y
 89 X<=Y?
 90 GTO 02
 91 RCL 02
 92 2
 93 *
 94 RCL 06
 95 +
 96 3
 97 /
 98 ENTER
 99 XEQ 03
100 GTO 07
101 LBL 02
102 XEQ 09
103 GTO 07
104 LBL 01
105 2
106 *
107 RCL 07
108 X>Y?
109 GTO 02
110 RCL 02
111 ABS
112 2
113 *
114 RCL 07
115 -
116 3
117 /
118 ENTER
119 XEQ 03
120 LBL 07
121 RCL 06
122 RCL 07
123 +
124 3
125 /
126 RCL 06
127 X>Y?
128 GTO 05
129 -
130 CHS
131 ENTER
132 GTO 03
133 LBL 05
134 RCL 07
135 RCL 06
136 +
137 3
138 /
139 RCL 07
140 X>Y?
141 GTO 06
142 -
143 ENTER
144 GTO 03
145 LBL 06
146 RCL 06
147 RCL 07
148 +
149 3
150 /
151 RCL 06
152 X>Y?
153 GTO 09
154 -
155 ENTER
156 LBL 03
157 RCL 08
158 RCL 03
159 *
160 /
161 "DELTA "
162 ARCL X
163 AVIEW
164 STOP
165 X<>Y
166 "DELTA B0 "
167 ARCL X
168 AVIEW
169 STOP
170 FC?C 05
171 RTN
172 "PERCIVAL"
173 AVIEW
174 RTN
175 LBL 09
176 0
177 "DELTA "
178 ARCL X
179 AVIEW
180 STOP
181 "DELTA B0 "
182 ARCL X
183 AVIEW
184 STOP
185 RTN
186 END

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