This program is Copyright © HP and is used here by permission. It was originally printed in the Calendars 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 "RL" 02 365.25 03 STO 10 04 30.6001 05 STO 11 06 122.1 07 STO 05 08 241303.22 09 STO 00 10 10281807.26 11 STO 01 12 15042312.01 13 STO 02 14 20092717.06 15 STO 03 16 "YR?" 17 PROMPT 18 STO 09 19 "HOL?" 20 AON 21 PROMPT 22 AOFF 23 RCL 10 24 * 25 INT 26 143 27 + 28 STO 04 29 RCL 09 30 19 31 MOD 32 1 33 + 34 FIX 00 35 PSE 36 5 37 / 38 FIX 01 39 RND 40 STO 06 41 FRC 42 X=0? 43 GTO 00 44 .2 45 X<>Y 46 X=Y? 47 GTO 01 48 .4 49 X<>Y 50 X=Y? 51 GTO 02 52 .6 53 X=Y? 54 GTO 03 55 1 56 GTO 05 57 LBL 00 58 1 E8 59 GTO 05 60 LBL 01 61 1 E6 62 GTO 05 63 LBL 02 64 1 E4 65 GTO 05 66 LBL 03 67 1 E2 68 LBL 05 69 RCL IND 06 70 X<>Y 71 / 72 FRC 73 1 E2 74 * 75 INT 76 ST+ 04 77 RCL 04 78 5 79 + 80 7 81 MOD 82 FIX 00 83 RND 84 7 85 - 86 ST- 04 87 ASTO X 88 GTO IND X 89 LBL "AW" 90 46 91 ST- 04 92 GTO 04 93 LBL "FS" 94 42 95 ST- 04 96 GTO 04 97 LBL "PA" 98 14 99 ST- 04 100 GTO 04 101 LBL "PM" 102 7 103 ST- 04 104 GTO 04 105 LBL "GF" 106 2 107 ST- 04 108 GTO 04 109 LBL "RS" 110 35 111 ST+ 04 112 GTO 04 113 LBL "AD" 114 39 115 ST+ 04 116 GTO 04 117 LBL "WS" 118 49 119 ST+ 04 120 GTO 04 121 LBL "TS" 122 56 123 ST+ 04 124 LBL "EA" 125 LBL 04 126 RCL 04 127 RCL 05 128 - 129 RCL 10 130 / 131 INT 132 STO 09 133 RCL 10 134 * 135 INT 136 RCL 04 137 - 138 CHS 139 STO 06 140 RCL 11 141 / 142 INT 143 STO 07 144 RCL 06 145 X<>Y 146 RCL 11 147 * 148 INT 149 - 150 STO 08 151 RCL 07 152 1 153 RCL 08 154 % 155 - 156 - 157 RCL 07 158 14 159 / 160 INT 161 ST+ 09 162 12 163 * 164 - 165 RCL 09 166 1 E6 167 / 168 FIX 06 169 + 170 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall