LOC                      Current File Position

 y = LOC(filenum)

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

     filenum    The number under which the file was OPENed.

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

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

                If filenum specifies a communications file, LOC returns
                the number of characters waiting in the communications
                buffer. If that number is larger than 255, LOC returns
                255.