%SYSTEMROUTINE OUTREAL(%INTEGER STRM,%LONGREAL VAL)
PRINTFL(VAL,10)
NEWLINE
%END
%ENDOFFILE