Action

Returns the position of last read or written Byte of the file

 

 

Syntax

lLastReadWritten = LOC (#bFileNumber)

 

 

Remarks

 

This function returns the position of the last read or written Byte. If an error occurs, 0 is returned. Check DOS-Error in variable gbDOSError. If the file position pointer is changed with the command SEEK, this function can not be used till the next read/write operation.

 

This function differs from VB. In VB the byte position is divided by 128.

 

 

See also

INITFILESYSTEM , OPEN , CLOSE, FLUSH , PRINT, LINE INPUT, LOF , EOF , FREEFILE , FILEATTR , SEEK , BSAVE , BLOAD , KILL , DISKFREE , DISKSIZE , GET , PUT , FILEDATE , FILETIME , FILEDATETIME , DIR , FILELEN , WRITE , INPUT

 

 

ASM

 

 

Example

' open the file in BINARY mode

Open "test.bin" For Binary As #2

Put #2 , B                                         ' write a byte

Put #2 , W                                         ' write a word

Put #2 , L                                         ' write a long

Ltemp = Loc(#2)+ 1                         ' get the position of the next byte

Print Ltemp ;" LOC"                        ' store the location of the file pointer

Print Lof(#2);" length of file"

Print Fileattr(#2);" file mode"        ' should be 32 for binary

Put #2 , Sn                                 ' write a single

Put #2 , Stxt                                 ' write a string

 

Flush #2                                         ' flush to disk

Close #2