begin
   comment 'LIBRARY' 1;
   comment   USE OF A PROCEDURE;
   real
     A,
     B
     ;
   procedure EXAMPLE(X, Y)RESULT : (R);
      value
        X,
        Y;
      real
        X,
        Y,
        R;
   begin
      X ≔ X + Y;
      R ≔ X⭡2 + Y⭡2
   end;
   A ≔ 1;
   B ≔ 2;
   EXAMPLE(A, A + B, R);
   OUTREAL(99,R)
end