'BEGIN' 'COMMENT' 'LIBRARY'5; 'REAL' 'PROCEDURE' P(Q); 'REAL' 'PROCEDURE' Q; 'COMMENT'(X): 'VALUE' X: 'REAL' X; P := ABS(Q( - 6.4)); OUTREAL(99, P(ABS)) 'END'