The Museum of HP Calculators

Tabb Contact Lens of 1st Approximation for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the Optometry 2 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 "TABB"
 02 FIX 02
 03 SF 21
 04 "FLATTEST K?"
 05 PROMPT
 06 STO 01
 07 "CORNEAL CYL.?"
 08 PROMPT
 09 STO 07
 10 "DIA ?"
 11 PROMPT
 12 STO 03
 13 "% TEAR ?"
 14 PROMPT
 15 STO 05
 16 RCL 07
 17 X=0?
 18 GTO 01
 19 1
 20 RCL 07
 21 X<=Y?
 22 GTO 01
 23 1.75
 24 RCL 07
 25 X<=Y?
 26 GTO 02
 27 RCL 01
 28 .75
 29 +
 30 GTO 08
 31 LBL 01
 32 RCL 01
 33 .25
 34 +
 35 GTO 08
 36 LBL 02
 37 RCL 01
 38 .5
 39 +
 40 LBL 08
 41 STO 06
 42 "B CURVE"
 43 XEQ 00
 44 .3375
 45 X<>Y
 46 /
 47 1 E3
 48 *
 49 STO 02
 50 "C. RAD"
 51 XEQ 00
 52 RCL 03
 53 +
 54 XEQ 05
 55 STO 00
 56 "DIA"
 57 XEQ 00
 58 2
 59 /
 60 X^2
 61 1 E2
 62 RCL 05
 63 -
 64 *
 65 SQRT
 66 .2
 67 *
 68 RND
 69 STO 04
 70 RCL 00
 71 X<>Y
 72 -
 73 .2
 74 /
 75 FRC
 76 X#0?
 77 GTO 04
 78 RCL 04
 79 LBL 07
 80 "ZONE"
 81 XEQ 00
 82 +
 83 XEQ 03
 84 RCL 02
 85 1
 86 +
 87 XEQ 05
 88 "ICR1"
 89 XEQ 00
 90 RCL 09
 91 XEQ 05
 92 "ICW1"
 93 XEQ 00
 94 RCL 02
 95 2
 96 +
 97 XEQ 05
 98 "ICR2"
 99 XEQ 00
100 RCL 10
101 XEQ 05
102 "ICW2"
103 XEQ 00
104 RCL 02
105 3
106 +
107 XEQ 05
108 "ICR3"
109 XEQ 00
110 RCL 11
111 XEQ 05
112 "ICW3"
113 LBL 00
114 "="
115 ARCL X
116 AVIEW
117 RTN
118 LBL 05
119 FIX 01
120 RND
121 FIX 02
122 RTN
123 LBL 04
124 RCL 04
125 .1
126 -
127 GTO 07
128 LBL 03
129 RCL 00
130 RCL 04
131 -
132 2
133 /
134 STO 08
135 .3
136 1/X
137 *
138 INT
139 10
140 /
141 STO 09
142 STO 11
143 2
144 *
145 RCL 08
146 X<>Y
147 -
148 STO 10
149 RCL 09
150 X#Y?
151 RTN
152 .1
153 -
154 STO 09
155 X<>Y
156 .1
157 +
158 STO 10
159 RTN
160 END

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