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
LINE KEYS 01 LBL "EPWR" 02 LBL 01 03 "F. SUR. POWER?" 04 PROMPT 05 ENTER 06 STO 00 07 ST* 00 08 STO 02 09 STO 04 10 "B. SUR. POWER?" 11 PROMPT 12 ST+ 02 13 ST* 04 14 STO 01 15 ST* 01 16 " THICKNESS?" 17 PROMPT 18 1000 19 / 20 ENTER 21 "INDEX OF R. ?" 22 PROMPT 23 / 24 STO 03 25 RCL 02 26 RCL 03 27 RCL 00 28 * 29 + 30 FIX 02 31 "EF=" 32 ARCL X 33 AVIEW 34 STOP 35 RCL 04 36 RCL 03 37 * 38 CHS 39 RCL 02 40 + 41 "EQ=" 42 ARCL X 43 AVIEW 44 STOP 45 RCL 02 46 RCL 03 47 RCL 01 48 * 49 + 50 "NT=" 51 ARCL X 52 AVIEW 53 STOP 54 GTO 01 55 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall