'BEGIN' 'COMMENT' 'LIBRARY' 1; 'REAL' X; 'PROCEDURE' P(A, B); 'VALUE' (A, B); 'REAL' (A, B); X := A + B; P(3, 4); OUTREAL(99, X) 'END'