code 34342;
procedure COMDIV(XR,XI,YR,YI,ZR,ZI);
value XR,XI,YR,YI;real XR,XI,YR,YI,ZR,ZI;
begin real H,D;
if ABS(YI) < ABS(YR) then 
begin if YI= 0 then 
begin ZR:= XR/YR; ZI:= XI/YR end else 
begin H:= YI/YR; D:= H*YI + YR;
ZR:= (XR + H * XI)/D; ZI:= (XI-H*XR)/D
end 
end else 
begin H:= YR/YI; D:= H*YR + YI;
ZR:= (XR*H + XI)/D; ZI:= (XI*H - XR)/D
end 
end COMDIV;
        eop