The Museum of HP Calculators

Logbook 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 "$TIME"  ; Key: -61
 02 "N ACCTS?"
 03 PROMPT
 04 STO 00
 05 60
 06 *
 07 "N DAYS?"
 08 PROMPT
 09 1
 10 +
 11 RCL 00
 12 *
 13 20
 14 *
 15 +
 16 30
 17 +
 18 7
 19 /
 20 INT
 21 XEQ 07
 22 CRFLAS
 23 LBL 00
 24 XEQ 01
 25 DSE 00
 26 GTO 00
 27 RTN
 28 LBL 01
 29 "NAME?"
 30 AON
 31 STOP
 32 APPREC
 33 "CODE?"
 34 STOP
 35 APPREC
 36 CF 23
 37 "REMARKS?"
 38 STOP
 39 FC?C 23
 40 "--"
 41 APPREC
 42 AOFF
 43 CLA
 44 95
 45 XTOA
 46 APPREC
 47 FIX 06
 48 CLX
 49 CLA
 50 ARCL X
 51 APPREC
 52 APPREC
 53 RTN
 54 LBL b
 55 TIME
 56 XEQ 02
 57 GETREC
 58 ANUM
 59 DATE
 60 DDAYS
 61 1
 62 -
 63 24
 64 *
 65 STO 00
 66 X<>Y
 67 1
 68 -
 69 SEEKPT
 70 INSREC
 71 3
 72 +
 73 SEEKPT
 74 GETREC
 75 24
 76 ANUM
 77 HMS-
 78 RCL 01
 79 HMS+
 80 RCL 00
 81 +
 82 CLA
 83 ARCL X
 84 X<>Y
 85 2
 86 -
 87 SEEKPT
 88 INSREC
 89 RDN
 90 ENTER
 91 CLA
 92 ATIME24
 93 HR
 94 AVIEW
 95 RTN
 96 LBL B
 97 TIME
 98 TONE 09
 99 XEQ 02
100 CLA
101 ARCL 01
102 INSREC
103 CLA
104 ARCL 02
105 INSREC
106 2
107 +
108 SEEKPT
109 DELREC
110 DELREC
111 "START"
112 PROMPT
113 LBL 02
114 STO 01
115 DATE
116 STO 02
117 FIX 06
118 XEQ 06
119 95
120 XTOA
121 POSFL
122 1
123 +
124 SEEKPT
125 RTN
126 LBL C
127 SF 21
128 XEQ 06
129 95
130 XTOA
131 POSFL
132 RCL Z
133 -
134 3
135 -
136 2
137 /
138 STO 01
139 RCL Z
140 SEEKPT
141 XEQ 04
142 ADV
143 CLX
144 STO 00
145 LBL 03
146 FIX 06
147 GETREC
148 ANUM
149 CLA
150 ADATE
151 XEQ 05
152 GETREC
153 ANUM
154 ENTER
155 FIX 04
156 CLA
157 ATIME24
158 HR
159 XEQ 05
160 RCL 00
161 HMS+
162 STO 00
163 DSE 01
164 GTO 03
165 "========"
166 XEQ 05
167 RCL 00
168 CLA
169 ATIME24
170 ENTER
171 HR
172 GTO 05
173 LBL 04
174 XEQ 04
175 XEQ 04
176 LBL 04
177 GETREC
178 LBL 05
179 FS? 55
180 XROM 29,08
181 FC? 55
182 AVIEW
183 RTN
184 LBL 06
185 XEQ 07
186 CLX
187 SEEKPT
188 "ACCT?"
189 AON
190 STOP
191 AOFF
192 POSFL
193 X<0?
194 STOP
195 CLA
196 RTN
197 LBL 07
198 CF 23
199 "FL NAME?"
200 AON
201 STOP
202 AOFF
203 FC?C 23
204 CLA
205 END

Go back to the HP-41 software library
Go back to the general software library
Go back to the main exhibit hall