LOC                      Current File Position

 y = LOC(filenum)

    Returns the record number last read from or written to of a specified
    (open) file.

     filenum    The number under which the file was OPENed.

   -------------------------------------------------------------------------

      Notes:    When a sequential file is opened, the first sector is
                automatically read, so LOC(filenum) for a newly opened
                sequential file returns 1. LOC(filenum) for a sequential
                file returns the current byte position divided by 128.

                If filenum specifies a binary file, LOC returns the
                current SEEK position.

                If filenum specifies a communications file, LOC returns
                the number of characters waiting in the communications
                buffer.