LOC

LOC(buffer)
Returns the current record number of the buffer you specify.

PRINT LOC(1)

RTS