The Museum of HP Calculators
The Museum of HP Calculators
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 "ARX" 02 LBL 04 03 "P?" 04 PROMPT 05 STO 00 06 "d?" 07 PROMPT 08 1/X 09 STO 01 10 "NPA?" 11 PROMPT 12 X#0? 13 1/X 14 STO 02 15 "20?" 16 PROMPT 17 STO 03 18 "21?" 19 PROMPT 20 STO 04 21 "14B?" 22 PROMPT 23 STO 05 24 RCL 00 25 RCL 02 26 X=0? 27 GTO 03 28 + 29 2 30 / 31 RCL 01 32 X<>Y 33 - 34 X<0? 35 0 36 "NPA=" 37 ARCL X 38 AVIEW 39 STOP 40 STO 06 41 LBL 02 42 RCL 03 43 RCL 00 44 - 45 ABS 46 RCL 01 47 + 48 2 49 / 50 RCL 01 51 X<>Y 52 - 53 X<0? 54 0 55 "PRA=" 56 ARCL X 57 AVIEW 58 STOP 59 RCL 06 60 + 61 STO 06 62 RCL 03 63 RCL 04 64 - 65 ABS 66 2 67 / 68 RCL 04 69 X<>Y 70 - 71 RCL 00 72 - 73 X<0? 74 0 75 "MID=" 76 ARCL X 77 AVIEW 78 STOP 79 RCL 06 80 + 81 STO 06 82 RCL 05 83 RCL 00 84 - 85 .75 86 - 87 X<0? 88 0 89 "NORM=" 90 ARCL X 91 AVIEW 92 STOP 93 RCL 06 94 + 95 4 96 / 97 "AVG=" 98 ARCL X 99 AVIEW 100 STOP 101 GTO 04 102 LBL 03 103 0 104 "NPA=" 105 ARCL X 106 AVIEW 107 STOP 108 GTO 02 109 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall