code 34341;
procedure COMMUL(AR,AI,BR,BI,RR,RI);
value AR,AI,BR,BI; real AR,AI,BR,BI,RR,RI;
begin RR:= AR * BR - AI * BI;
    RI:= AR * BI + AI * BR
end COMMUL;
        eop