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 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 "MOONS" 02 .0925102612 03 STO 00 04 .2813291501 05 STO 01 06 .1703190420 07 STO 02 08 .06220723 09 STO 03 10 .11130002 11 STO 04 12 .02040406 13 STO 05 14 .07080910 15 STO 06 16 .301020 17 STO 10 18 .112101 19 STO 11 20 .220212 21 STO 12 22 .031323 23 STO 13 24 .142404 25 STO 14 26 .250515 27 STO 15 28 .061626 29 STO 16 30 .172707 31 STO 17 32 .280818 33 STO 18 34 .091929 35 STO 19 36 LBL "MOON" 37 "F" 38 ASTO Y 39 "N OR F MOON?" 40 AON 41 PROMPT 42 AOFF 43 ASTO X 44 X=Y? 45 SF 05 46 "MM.YYYY ?" 47 PROMPT 48 CLA 49 FIX 04 50 INT 51 STO 20 52 LASTX 53 FRC 54 STO 22 55 1 E4 56 * 57 STO 21 58 2 59 RCL 20 60 X<=Y? 61 DSE 21 62 LBL 00 63 RCL 21 64 LBL 01 65 0 66 STO 07 67 1582 68 RCL 21 69 X<=Y? 70 GTO 03 71 13 72 STO 07 73 1900 74 STO 23 75 LBL 02 76 RCL 21 77 RCL 23 78 X<=Y? 79 GTO 03 80 1 E2 81 - 82 STO 23 83 1 84 ST- 07 85 GTO 02 86 LBL 03 87 RCL 21 88 4712 89 + 90 76 91 / 92 INT 93 STO 23 94 LASTX 95 FRC 96 76 97 * 98 RND 99 4 100 / 101 INT 102 STO 24 103 LASTX 104 FRC 105 4 106 * 107 STO 08 108 RCL 23 109 4 110 / 111 INT 112 ST- 07 113 RCL 24 114 5 115 / 116 STO 25 117 FRC 118 10 119 * 120 STO 09 121 XEQ 09 122 STO 24 123 10 124 / 125 FRC 126 10 127 * 128 LASTX 129 + 130 STO 25 131 0 132 STO 09 133 XEQ 09 134 RCL 24 135 X=Y? 136 GTO 08 137 2 138 ST+ 09 139 XEQ 09 140 RCL 24 141 X=Y? 142 GTO 08 143 2 144 ST+ 09 145 XEQ 09 146 LBL 08 147 RCL 25 148 RCL 08 149 - 150 10 151 X>Y? 152 GTO 06 153 RDN 154 STO 25 155 LBL 07 156 XEQ 09 157 ST+ 07 158 RCL 20 159 1 160 - 161 4 162 / 163 4 164 + 165 STO 25 166 FRC 167 8 168 * 169 STO 09 170 XEQ 09 171 ST- 07 172 FS?C 05 173 XEQ 05 174 RCL 07 175 30 176 X<=Y? 177 - 178 0 179 RCL 07 180 X>Y? 181 GTO 04 182 30 183 RCL 07 184 + 185 GTO 04 186 LBL 09 187 RCL 09 188 10^X 189 RCL IND 25 190 * 191 FRC 192 1 E2 193 * 194 INT 195 RTN 196 LBL 06 197 + 198 STO 25 199 5 200 RCL 09 201 2 202 + 203 X>Y? 204 0 205 STO 09 206 GTO 07 207 LBL 04 208 1 E2 209 / 210 RCL 22 211 LASTX 212 / 213 + 214 RCL 20 215 + 216 FIX 00 217 CF 29 218 INT 219 ARCL X 220 "-" 221 LASTX 222 FRC 223 1 E2 224 * 225 INT 226 ARCL X 227 "
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall