LOC

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

PRINT LOC(1)

RTS

Return to Tandy Color Computer or Disk Extended Color BASIC