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