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