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 Time Module 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 "APPT" 02 SF 21 03 SF 27 04 LBL A 05 CF 00 06 CLX 07 "APPTS?" 08 PROMPT 09 X=0? 10 GTO A 11 7 12 * 13 7 14 + 15 XEQ 99 16 FC?C 25 17 PROMPT 18 .1 19 % 20 7 21 + 22 STO 00 23 DATE 24 STO 01 25 1.01198 26 STO 02 27 LBL 20 28 "DATE? " 29 RCL 01 30 FS? 00 31 RCL IND 00 32 FS? 00 33 CLA 34 FIX 02 35 FS? 00 36 FIX 04 37 ADATE 38 PROMPT 39 RCL 02 40 X<>Y 41 SF 25 42 DDAYS 43 FC?C 25 44 GTO 20 45 LASTX 46 STO IND 00 47 STO 01 48 "TIME?" 49 ISG 00 50 RCL IND 00 51 FC? 00 52 CLX 53 FC? 00 54 GTO 09 55 CLA 56 ATIME 57 X=0? 58 "REMINDER" 59 LBL 09 60 PROMPT 61 STO IND 00 62 X>0? 63 GTO 10 64 ABS 65 12 66 + 67 LBL 10 68 1 E2 69 / 70 RCL 02 71 RCL 01 72 DDAYS 73 + 74 ISG 00 75 STO IND 00 76 "MSSG?" 77 CF 21 78 FC? 00 79 AVIEW 80 CLA 81 FC? 00 82 GTO 08 83 ISG 00 84 ARCL IND 00 85 ISG 00 86 ARCL IND 00 87 ISG 00 88 ARCL IND 00 89 ISG 00 90 ARCL IND 00 91 4 92 ST- 00 93 LBL 08 94 AON 95 STOP 96 AOFF 97 4 98 LBL 07 99 ISG 00 100 ASTO IND 00 101 ASHF 102 DSE X 103 GTO 07 104 ISG 00 105 GTO 20 106 CF 00 107 RTN 108 LBL a 109 CF 00 110 "APPTS ADDED?" 111 LBL 14 112 PROMPT 113 X=0? 114 GTO a 115 7 116 * 117 RCL 00 118 FRC 119 1 E3 120 * 121 STO 00 122 + 123 1 124 + 125 XEQ 99 126 FC?C 25 127 PROMPT 128 .1 129 % 130 1 131 + 132 ST+ 00 133 GTO 20 134 RTN 135 LBL B 136 RCL 00 137 FRC 138 7 139 + 140 STO 00 141 FIX 04 142 SF 00 143 GTO 20 144 LBL C 145 RCL 00 146 FRC 147 16 148 + 149 7 E-5 150 + 151 STO 05 152 INT 153 LASTX 154 FRC 155 1 E3 156 * 157 INT 158 CF 05 159 X<Y? 160 SF 05 161 CLX 162 STO 06 163 LBL 30 164 9 165 STO 04 166 FS? 05 167 GTO 36 168 RCL 05 169 STO 03 170 RCL 12 171 LBL 31 172 RCL IND 04 173 X<=0? 174 GTO 34 175 RCL IND 03 176 X<=0? 177 GTO 33 178 X<Y? 179 X=Y? 180 GTO 33 181 LBL 34 182 RCL 03 183 STO 04 184 LBL 33 185 ISG 03 186 GTO 31 187 RCL IND 04 188 X>0? 189 GTO 36 190 LBL 38 191 RCL 05 192 FC? 05 193 STO 04 194 -1 195 ST* 09 196 LBL 37 197 ST* IND 04 198 ISG 04 199 GTO 37 200 CLD 201 RTN 202 LBL 36 203 -1 204 ST* IND 04 205 RCL 04 206 INT 207 2 208 - 209 RCL 06 210 RCL IND Y 211 STO 06 212 X=Y? 213 GTO 35 214 SF 21 215 ENTER 216 DOW 217 XEQ IND X 218 "DAY" 219 ADV 220 SF 12 221 AVIEW 222 RDN 223 CLA 224 FIX 04 225 ADATE 226 AVIEW 227 LBL 35 228 ADV 229 CF 12 230 CLA 231 RCL 04 232 INT 233 1 234 - 235 RCL IND X 236 ATIME 237 X=0? 238 "REMINDER" 239 AVIEW 240 CLX 241 2 242 + 243 CLA 244 ARCL IND X 245 1 246 + 247 ARCL IND X 248 1 249 + 250 ARCL IND X 251 1 252 + 253 ARCL IND X 254 AVIEW 255 FS? 05 256 GTO 38 257 GTO 30 258 LBL 00 259 "SUN" 260 RTN 261 LBL 01 262 "MON" 263 RTN 264 LBL 02 265 "TUES" 266 RTN 267 LBL 03 268 "WEDNES" 269 RTN 270 LBL 04 271 "THURS" 272 RTN 273 LBL 05 274 "FRI" 275 RTN 276 LBL 06 277 "SATUR" 278 RTN 279 LBL E 280 RCL 00 281 FRC 282 7 283 + 284 STO 05 285 LBL 50 286 CLST 287 CLA 288 RCL IND 05 289 ISG 05 290 RCL IND 05 291 ISG 05 292 ISG 05 293 ARCL IND 05 294 ISG 05 295 ARCL IND 05 296 ISG 05 297 ARCL IND 05 298 ISG 05 299 ARCL IND 05 300 X#0? 301 XYZALM 302 ISG 05 303 GTO 50 304 RTN 305 LBL D 306 CF 25 307 XEQ "STORE" 308 RTN 309 LBL d 310 CF 25 311 XEQ "LOAD" 312 RTN 313 LBL 99 314 "SIZE>=" 315 FIX 00 316 ARCL X 317 1 318 - 319 SF 25 320 STO IND X 321 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall