lbl "WEB"
STO 0
15.122007
DATE
STO 1
DDAYS
TIME
STO 2
12
HMS-
HR
24
/
+
RCL 00
x<>y
/
STO 3
FIX 2
"AVRG = "
ARCL X
AVIEW
STOP
"WEBDATA"
0
SEEKPTA
4.007
GETRX
"OLD = "
ARCL 7
AVIEW
STOP
RCL 00
RCL 04
-
RCL 05
RCL 01
DDAYS
RCL 02
RCL 06
HMS-
HR
24
/
+
/
"LAST = "
ARCL X
AVIEW
STOP
"R/S TO SAVE"
AVIEW
STOP
0
SEEKPT
lbl 00
0.003
SAVERX
"OK"
AVIEW
rtn
lbl "WEBINIT"
STO 0
DATE
STO 1
TIME
STO 2
"WEBDATA"
0
STO 3
SEEKPTA
GTO 0
END

