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 "CLENS"
 02 LBL 09
 03 CLX
 04 CLRG
 05 "PCL ?"
 06 PROMPT
 07 ABS
 08 STO 00
 09 CLX
 10 "PSP ?"
 11 PROMPT
 12 STO 01
 13 CLX
 14 "MTS ?"
 15 PROMPT
 16 STO 02
 17 CLX
 18 "VDR ?"
 19 PROMPT
 20 STO 03
 21 RCL 00
 22 X=0?
 23 GTO 01
 24 RCL 01
 25 X=0?
 26 GTO 02
 27 /
 28 XEQ 00
 29 RCL 01
 30 1/X
 31 RCL 00
 32 1/X
 33 -
 34 1 E3
 35 *
 36 XEQ 06
 37 GTO 09
 38 LBL 01
 39 RCL 01
 40 X=0?
 41 GTO 03
 42 RCL 02
 43 X=0?
 44 GTO 04
 45 *
 46 XEQ 07
 47 RCL 01
 48 1/X
 49 X<>Y
 50 1/X
 51 -
 52 1 E3
 53 *
 54 XEQ 06
 55 GTO 09
 56 LBL 02
 57 RCL 00
 58 RCL 02
 59 X=0?
 60 GTO 05
 61 /
 62 XEQ 08
 63 1/X
 64 RCL 00
 65 1/X
 66 -
 67 1 E3
 68 *
 69 XEQ 06
 70 GTO 09
 71 LBL 03
 72 RCL 02
 73 RCL 03
 74 1 E3
 75 /
 76 *
 77 1/X
 78 RCL 03
 79 1 E3
 80 /
 81 1/X
 82 X<>Y
 83 -
 84 XEQ 08
 85 RCL 02
 86 *
 87 XEQ 07
 88 GTO 09
 89 LBL 04
 90 RCL 03
 91 1 E3
 92 /
 93 RCL 01
 94 *
 95 1
 96 -
 97 RCL 01
 98 X<>Y
 99 /
100 XEQ 07
101 RCL 01
102 /
103 XEQ 00
104 GTO 09
105 LBL 05
106 RCL 00
107 RCL 03
108 1 E3
109 /
110 RCL 00
111 *
112 1
113 +
114 RCL 00
115 X<>Y
116 /
117 XEQ 08
118 RCL 00
119 X<>Y
120 /
121 XEQ 00
122 GTO 09
123 LBL 00
124 "MTS="
125 ARCL X
126 AVIEW
127 STOP
128 RTN
129 LBL 06
130 "VDR="
131 ARCL X
132 AVIEW
133 STOP
134 RTN
135 LBL 07
136 "PCL="
137 ARCL X
138 AVIEW
139 STOP
140 RTN
141 LBL 08
142 "PSP="
143 ARCL X
144 AVIEW
145 STOP
146 RTN
147 END

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