Sub Main Dim Hnd% Hnd% = FOpen(“C:\MYDBASE.DAT”, 0, 4) 'read-only, shared FSeek Hnd%, 0 While Not FEof(Hnd%) Print FGet(Hnd%, 1) 'read one single byte Wend FClose Hnd%End Sub