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