(DIS,"UP0: main program")
"BEGIN"
(DPI,Z,X)
SK848=0
(CLS,UP1)
(CLG)
(CLS,UP20)
(CLG)
#(DLY,1)
/#(DCG)
#(DLY,1)
(CLS,UP30)
(CLS,UP31)
(CLS,UP40)
(CLS,UP50)
#(DLY,1)
/(UCG,2,Z-70Z5,XX60)
GZX
G1G42Z-10F6000
X20
r3
Z-20
(CLS,UP51)
GZ
GX
#(DCG)
(CLS,UP70)
(CLS,UP80)
(CLG)
;(CLS,UP60)
(BNC,BEGIN)
(CLS,UP55)
M30
