"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"