'BEGIN' 'COMMENT' 'LIBRARY' 1; 'REAL' X; X := &-1000; OUTREAL(99, X); 'END'