(DIS,"UP50: CODES")
E40=107.1508
(DIS,"E40=",E40)
/(UCG,1,Z-85Z120,X-20X80)
(DLO,Z-85Z120)
(DLO,X-20X120)
;X-30
(DLO,Z-4000Z4000)
(DLO,X-5000X5000)
/(CLG)
SSL=3000
F6000S1000
T2.2M6
/#(UCG,1,Z-300Z10,X-200X50)
(UAO,0)
"S23456"
(RPT,2)
(RPT,3)
(RPT,3)
GX100Z
Z-10
X120
(UIO,Z-10)
(ERP)
(ERP)
(SCF,1.5)
(ERP)
(SCF)
"E23456"
#(RQU,2,2,Z1,X1)
(MIR,Z)
(URT,180)
/(UOT,0,Z-50,X2)
(EPP,S23456,E23456)
(URT,)
(MIR)
/#(RQU,2,2,Z-1,X-1)
/(CLG)
/(DCG)
/(UCG,1,Z-100Z0,X-110X110)
S2000F0.5
T1.5M6
"START"GG42X10Z
G1G94Z-50F3000
G2X30Z-60I-50J30
G1G40X100
"END"GZ
(MIR,X)
(EPP,START,END)
(MIR)
G00G94G97G71G29ZXM05
(DIS,"   USS   ")
#(DLY,5)
;#(USS,S500)
;#(USS,S0)
;#(USS,S-500)
;#(USS,S0)
G95M03
(CLS,UP53)
(CLS,UP54)
/(CLG)
(CLS,UP56)
/(CLG)
(CLS,UP57)
/(CLG)
(CLS,UP58)
/(CLG)
(CLS,NEWFIL)
/(CLG)
(CLS,UP59)
GZX
/(CLG)
