Sub Main Dim Hnd%, rec& Hnd% = FOpen(“C:\MYDBASE.DAT”, 0, 4) 'read-only, shared FSeek Hnd%, 0 Rec&=1 While Not FEof(Hnd%) Print FGetR(Hnd%, 4, Rec&)'record is 4 bytes Print “Offset=”, FLoc(Hnd%) 'current position Wend FClose Hnd%End Sub