;
(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)
;
