Time manager

[Ours]

Good evening,

I started using TMGR to log the time I spend on different tasks at work. For the moment I use V41.

I'd like to share the file I use since I had to tweak a few things to make the code work. (can we share raw files ?)

If there are other people using versions of this program (maybe using X-FCN/MEM), I would appreciate reading about their workflow.


Source : https://www.hpmuseum.org/software/41/41tmgr15.htm

Code:


001 "V1.5"
002 AVIEW
003♦LBL "TMGR"
004♦LBL 99
005 CF 00
006 RCL 00
007 X≠0?
008 SF 00
009 FS? 21
010 CF 03
011 SF 27
012 SF 29
013 FIX 04
014 ΣREG 22
015 "TIME MANAGER"
016 PROMPT
017 SF 11
018 OFF
019 GTO 99
020♦LBL c
021 XEQ 18
022 GTO 99
023♦LBL A
024 1
025 GTO 11
026♦LBL B
027 2
028 GTO 11
029♦LBL C
030 3
031 GTO 11
032♦LBL D
033 4
034 GTO 11
035♦LBL E
036 5
037 GTO 11
038♦LBL F
039 6
040 GTO 11
041♦LBL G
042 7
043 GTO 11
044♦LBL H
045 8
046 GTO 11
047♦LBL I
048 9
049 GTO 11
050♦LBL J
051 10
052♦LBL 11
053 FS? 01
054 GTO 13
055 XROM 26,28
056 X<>Y
057 XEQ 19
058 GTO 99
059♦LBL 13
060 STO 21
061 XEQ 18
062 RCL 21
063 XEQ 19
064 GTO 99
065♦LBL 19
066 XEQ 80
067 RCL IND X
068 X=0?
069 GTO 13
070 CF 00
071 DSE 00
072 SF 00
073 RCL Z
074 XEQ 81
075 HR
076 X<>Y
077 0
078 STO IND Y
079 RDN
080 10
081 +
082 X<>Y
083 STO+ IND Y
084 RDN
085 10
086 -
087 RTN
088♦LBL 13
089 ISG 00
090 X<> X
091 SF 00
092 RDN
093 X<>Y
094 STO IND Y
095 "⊢ START"
096 AVIEW
097 FS? 03
098 PSE
099 RTN
100♦LBL a
101 11.02
102♦LBL 20
103 RCL IND X
104 X=0?
105 GTO 13
106 X<>Y
107 10
108 -
109 XEQ 80
110 10
111 +
112 X<>Y
113 HMS
114 XEQ 82
115♦LBL 13
116 RDN
117 ISG X
118 GTO 20
119 GTO 99
120♦LBL b
121 CF 10
122 1.01
123 FIX 00
124 CF 29
125 CLA
126♦LBL 30
127 RCL IND X
128 X=0?
129 GTO 13
130 SF 10
131 ARCL Y
132 "⊢ "
133♦LBL 13
134 RDN
135 ISG X
136 GTO 30
137 FS? 10
138 AVIEW
139 FS?C 10
140 PSE
141 GTO 99
142♦LBL 18
143 XROM 26,28
144 CF 10
145 1.01
146♦LBL 14
147 RCL IND X
148 X≠0?
149 SF 10
150 RDN
151 FS?C 10
152 XEQ 19
153 ISG X
154 GTO 14
155 RDN
156 RTN
157♦LBL d
158 XROM 26,28
159 1.01
160♦LBL 40
161 RCL IND X
162 X=0?
163 GTO 13
164 X<>Y
165 XEQ 80
166 X<>Y
167 RCL Z
168 XEQ 81
169♦LBL 13
170 RDN
171 ISG X
172 GTO 40
173 GTO 99
174♦LBL e
175 .02
176 ENTER
177 CLX
178♦LBL 00
179 STO IND Y
180 ISG Y
181 GTO 00
182 GTO 99
183♦LBL 80
184 FIX 00
185 CF 29
186 "T"
187 10
188 X>Y?
189 "⊢0"
190 RDN
191 ARCL X
192 SF 29
193 "⊢   "
194 RTN
195♦LBL 81
196 X<>Y
197 HMS-
198 X>0?
199 GTO 82
200 24
201 HMS+
202♦LBL 82
203 FS? 04
204 GTO 83
205 FIX 04
206 RND
207 XROM 26,4
208 GTO 13
209♦LBL 83
210 HR
211 FIX 02
212 RND
213 ARCL X
214 "⊢HR"
215♦LBL 13
216 RDN
217 LASTX
218 AVIEW
219 FS? 03
220 PSE
221 END

Cheers
--
Marc-André