The Museum of HP Calculators

May-Grant 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 "MAYGR"
 02 SF 21
 03 FIX 02
 04 "FLATTEST K?"
 05 PROMPT
 06 STO 01
 07 "LENS POWER?"
 08 PROMPT
 09 STO 02
 10 .3375
 11 RCL 01
 12 /
 13 1 E3
 14 *
 15 STO 00
 16 "B. CURVE="
 17 ARCL X
 18 AVIEW
 19 "OPT. ZONE="
 20 ARCL X
 21 AVIEW
 22 1.4
 23 +
 24 "DIA="
 25 ARCL X
 26 AVIEW
 27 RCL 00
 28 1
 29 +
 30 "ICR="
 31 ARCL X
 32 AVIEW
 33 .3
 34 "ICW="
 35 ARCL X
 36 AVIEW
 37 RCL 00
 38 1.5
 39 +
 40 "PCR="
 41 ARCL X
 42 AVIEW
 43 .4
 44 "PCW="
 45 ARCL X
 46 AVIEW
 47 "THICK.="
 48 RCL 02
 49 X<0?
 50 GTO 00
 51 .02
 52 *
 53 .18
 54 +
 55 ARCL X
 56 AVIEW
 57 STOP
 58 LBL 00
 59 .01
 60 *
 61 .18
 62 +
 63 ARCL X
 64 AVIEW
 65 RTN
 66 END

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