WRITEPOS

Synopsis
WRITEPOS
Description

Outputs the file position of the current write stream file as a number. An output value of 0 means that the write position is at the beginning of the stream.

Example

Note

The output is stored in a list and displayed when the writer is returned to screen ([]).

OPENWRITE "dummy.fil
SETWRITE "dummy.fil
MAKE "history []
MAKE "history LPUT WRITEPOS :history
PRINT "Hello
MAKE "history LPUT WRITEPOS :history
PRINT [Good Bye]
MAKE "history LPUT WRITEPOS :history
SETWRITE []
CLOSE "dummy.fil
SHOW :history
[0 7 17]

SourceForge.net Logo