F5000
;
(DIS," 30=")
(DIS,E30)
(DIS," 31=")
(DIS,E31)
(DIS,"  32=")
(DIS,E32)
(DIS,"  33=")
(DIS,E33)
(DIS," 34")
(DIS,E34)
E40=E30/2
(DIS,E40)
E41=E31-E34
(DIS,E41)
E42=E32/2
(DIS,E42)
E43=E31-E34
(DIS,E43)
E44=-E34
(DIS,E44)
;E45=E32/4
;(DIS,E45)
;E46=E34-E45
;(DIS,E46)
; 
p1=X0 Y0
p2=XE33 Y0
p3=XE31 YE40
p4=XE33 YE30
p5=X0 YE30
c1=IE41 JE40 rE34
;c2=IE46 JE40 rE45
;c3=IE34 JE40 rE34
l1=p1,p2
l2=p2,c1
l3=c1,p4
l4=p4,p5
l5=p5,p1
(UCG,2, Y0 YE30, X0 XE31)
X0 Y0
G21 G42 l5
l1
l2
c1
l3
l4
l5
G20 G40 l1
