F1000
;
(DIS,"")
;
(DIS," 30=")
(DIS,E30)
;
(DIS," E31=")
(DIS,E31)
;
(DIS,"  32=")
(DIS,E32)
;
(DIS,"  33=")
(DIS,E33)
;
E43=E31-E33
E51=E31+3
E52=E30+3
E60=E30+10
E61=E31+10
(UCG,2, Y-10YE60,X-10XE61)
;
;
G41 XE51 YE52
G1 XE31 YE30
XE31 Y0
X0 Y0
X0 YE32
XE43 YE30
XE31 YE30
G40
G0
XE51 YE52
