The Museum of HP Calculators

Contact Lens / Telescope Calculations for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the Optometry 1 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 "LENS"
 02 SF 21
 03 "FLATTEST K?"
 04 PROMPT
 05 STO 01
 06 "CORNEAL TOR.?"
 07 PROMPT
 08 STO 02
 09 "POWER ?"
 10 PROMPT
 11 STO 05
 12 RCL 02
 13 1.5
 14 X<>Y
 15 X<=Y?
 16 GTO 03
 17 3.37
 18 X<>Y
 19 X<=Y?
 20 GTO 02
 21 0
 22 VIEW X
 23 STOP
 24 LBL 02
 25 .33
 26 *
 27 RCL 01
 28 +
 29 GTO 08
 30 LBL 03
 31 RCL 01
 32 LBL 08
 33 "CURVE"
 34 XEQ 00
 35 STO 04
 36 .3375
 37 X<>Y
 38 /
 39 1 E3
 40 *
 41 "RAD"
 42 XEQ 00
 43 STO 03
 44 9
 45 "DIA"
 46 XEQ 00
 47 7.7
 48 "OZDR"
 49 XEQ 00
 50 7.6
 51 "OZDT"
 52 XEQ 00
 53 RCL 03
 54 1
 55 +
 56 "ICR"
 57 XEQ 00
 58 .45
 59 "ICW"
 60 XEQ 00
 61 RCL 04
 62 43.5
 63 X<>Y
 64 "PCR"
 65 X<=Y?
 66 GTO 04
 67 11
 68 XEQ 00
 69 GTO 09
 70 4
 71 LBL 04
 72 12.5
 73 XEQ 00
 74 LBL 09
 75 .2
 76 "PCW"
 77 XEQ 00
 78 RCL 05
 79 1.87
 80 X<>Y
 81 "DELTA"
 82 X<=Y?
 83 GTO 07
 84 3.87
 85 X<>Y
 86 X<=Y?
 87 GTO 10
 88 6.12
 89 X<>Y
 90 X<=Y?
 91 GTO 05
 92 7.87
 93 X<>Y
 94 X<=Y?
 95 GTO 06
 96 .75
 97 XEQ 00
 98 GTO 14
 99 LBL 06
100 1
101 XEQ 00
102 GTO 14
103 LBL 16
104 2
105 XEQ 00
106 GTO 13
107 LBL 15
108 2.25
109 XEQ 00
110 GTO 12
111 LBL 10
112 1.5
113 XEQ 00
114 GTO 11
115 LBL 05
116 1.25
117 XEQ 00
118 GTO 11
119 LBL 07
120 -2
121 X<>Y
122 X>Y?
123 GTO 17
124 -4
125 X<>Y
126 X>Y?
127 GTO 16
128 -8
129 X<>Y
130 X>Y?
131 GTO 15
132 2.5
133 XEQ 00
134 GTO 12
135 LBL 17
136 1.75
137 XEQ 00
138 GTO 13
139 LBL 12
140 "CT"
141 .22
142 XEQ 00
143 GTO 01
144 LBL 13
145 .17
146 "CT"
147 XEQ 00
148 GTO 01
149 LBL 11
150 .13
151 XEQ 00
152 GTO 01
153 LBL 14
154 .1
155 XEQ 00
156 LBL 01
157 105
158 "A1"
159 XEQ 00
160 75
161 "A2"
162 XEQ 00
163 STOP
164 LBL 00
165 "="
166 ARCL X
167 AVIEW
168 RTN
169 END

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