This program is Copyright © HP and is used here by permission. It was originally printed in the HVAC 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 "REC-RND" 02 LBL 01 03 ADV 04 0 05 STO 00 06 "a" 07 XEQ "IN" 08 "b" 09 XEQ "IN" 10 ADV 11 RCL 01 12 * 13 .625 14 Y^X 15 RCL 01 16 RCL 02 17 + 18 SQRT 19 SQRT 20 / 21 1.3 22 * 23 "D" 24 .5 25 + 26 INT 27 XEQ "O" 28 GTO 01 29 LBL "RND-REC" 30 LBL 02 31 ADV 32 0 33 STO 00 34 "D" 35 XEQ "IN" 36 "a" 37 XEQ "IN" 38 RCL 02 39 RCL 01 40 * 41 RCL 02 42 ST+ X 43 RCL 01 44 - 45 / 46 STO 00 47 ADV 48 LBL 03 49 RCL 00 50 RCL 02 51 * 52 .625 53 Y^X 54 1.3 55 * 56 RCL 00 57 RCL 02 58 + 59 SQRT 60 SQRT 61 RCL 01 62 * 63 - 64 RCL 00 65 -.375 66 Y^X 67 RCL 02 68 .625 69 Y^X 70 * 71 .8125 72 * 73 RCL 02 74 RCL 00 75 + 76 -.75 77 Y^X 78 RCL 01 79 * 80 4 81 / 82 - 83 / 84 ST- 00 85 RCL 00 86 / 87 ABS 88 .25 89 X<=Y? 90 GTO 03 91 RCL 00 92 .5 93 + 94 INT 95 "b" 96 XEQ "O" 97 GTO 02 98 LBL "IN" 99 CF 22 100 1 101 ST+ 00 102 RCL IND 00 103 "=" 104 ASTO Y 105 "?" 106 CF 21 107 AVIEW 108 SF 21 109 CLA 110 ARCL Y 111 STOP 112 STO IND 00 113 FS? 22 114 FC? 55 115 RTN 116 ARCL X 117 XROM 29,08 118 RTN 119 LBL "O" 120 "=" 121 ARCL X 122 AVIEW 123 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall