"CODE"34340;
"REAL" "PROCEDURE" COMABS(XR,XI);"VALUE" XR,XI;"REAL" XR,XI;
"BEGIN" XR:= ABS(XR); XI:= ABS(XI);
COMABS:= "IF" XI > XR "THEN" SQRT((XR/XI)**2+1)*XI
"ELSE" "IF" XI= 0 "THEN" XR "ELSE" SQRT((XI/XR)**2+1)*XR
"END" COMABS;
        "EOP"