F5000
;  
(DIS,"  ")
;
(DIS," 30=")
(DIS,E30)
;
(DIS," E31=")
(DIS,E31)
; 
(DIS,"  32=")
(DIS,E32)
;
E40=E30/2
(DIS,E40)
;
E41=E31/2
(DIS,E41)
;
E42=E32/2
(DIS,E42)
;
E43=E40-E42+5
(DIS,E43)
;
E44=E40-E42
(DIS,E42)
;
E52=-E42
; 
p1=X0 Y0
p2=XE31 Y0
p3=XE31 YE30
p4=X0 YE30
l1=p1,p2
l2=p2,p3
l3=p3,p4
l4=p4,p1
; 
(UCG,2, Y0 YE30, X0 XE31)
;1-
G41 XE41 YE43
YE44
G03 XE41 YE44 IE41 JE40
G40
G0
M04
;2-
XE31 YE30
G21 G41 l3
l4
l1
l2
G20 G40 l3
G0
