F1000
;
(DIS," 30=")
(DIS,E30)
;
(DIS," E31=")
(DIS,E31)
;
; 
(DIS,"  32=")
(DIS,E32)
; 
(DIS,"  E33=")
(DIS,E33)
;  
(DIS,"   34=")
(DIS,E34)
;
(DIS," 35=")
(DIS,E35)
E36=E30-E32
E37=E31-E33
E40=-E30
E41=-E31
E42=-E32
E43=-E33
E44=-E34
E45=-E35
E46=-E36
E47=-E37
E60=E30+10
E61=E31+E33+E34+10
E62=E31+2*E33+E34
E70=-E60
E71=-E61
;
(UCG,2, YE70Y-10, X-10XE61)
G71
G91
G41 XE33
G1 YE45
YE46
XE37
YE42
XE41
YE30
XE33
G40
G0
G41 XE34
G1 YE42
XE37
YE46
XE33
YE30
XE41
G40
G0
XE62 YE35
