37 lines
342 B
Plaintext
37 lines
342 B
Plaintext
00 { 105-Byte Prgm }
|
||
01 LBL "UTIME"
|
||
02 DATE
|
||
03 TIME
|
||
04 LBL "T2U"
|
||
05 1.01197
|
||
06 RCL ST Z
|
||
07 DDAYS
|
||
08 24
|
||
09 ×
|
||
10 X<>Y
|
||
11 →HR
|
||
12 SF 25
|
||
13 RCL- "TZOFF"
|
||
14 CF 25
|
||
15 +
|
||
16 3600
|
||
17 ×
|
||
18 RTN
|
||
19 LBL "U2T"
|
||
20 3600
|
||
21 ÷
|
||
22 SF 25
|
||
23 RCL+ "TZOFF"
|
||
24 CF 25
|
||
25 RCL ST X
|
||
26 24
|
||
27 ÷
|
||
28 IP
|
||
29 1.01197
|
||
30 X<>Y
|
||
31 DATE+
|
||
32 X<>Y
|
||
33 24
|
||
34 MOD
|
||
35 →HMS
|
||
36 END |