The Museum of HP Calculators

General Lens Tracer for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 Optics 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

Program Listing

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

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