The Museum of HP Calculators


Cylinder Induced by Toric Contact Lens 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 "TORIC"
 02 "STEEPEST K?"
 03 PROMPT
 04 STO 01
 05 20
 06 X<>Y
 07 X<=Y?
 08 GTO 00
 09 337.5
 10 RCL 01
 11 /
 12 LBL 00
 13 STO 04
 14 "FLATTEST K?"
 15 PROMPT
 16 STO 02
 17 20
 18 X<>Y
 19 X<=Y?
 20 GTO 00
 21 337.5
 22 RCL 02
 23 /
 24 LBL 00
 25 STO 00
 26 "FLAT K MER?"
 27 PROMPT
 28 STO 03
 29 -154
 30 RCL 04
 31 /
 32 -154
 33 RCL 00
 34 /
 35 X<>Y
 36 -
 37 CHS
 38 "F="
 39 ARCL X
 40 AVIEW
 41 STOP
 42 RCL 03
 43 90
 44 X<Y?
 45 CHS
 46 +
 47 CLA
 48 ARCL X
 49 "|- DEG"
 50 AVIEW
 51 RTN
 52 END

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