The Museum of HP Calculators


Appointment Calendar for the HP-41C/CV/CX

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

Program Listing

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