DIM A$ * 5000

OPEN "JUNK.BIN" FOR BINARY NEW AS FP1  ' ************************** 
A$ = REPEAT$(500, CHR$(248)) & "Hello" '     Create a data file 
PUT$ FP1, A$, LEN(A$)                 '         to explore 
CLOSE FP1                              ' ************************** 

CLS
OPEN "JUNK.BIN" FOR INPUT AS FP1       ' ************************** 
SEEK  FP1,500                         '  Now lets read it, 

GET$  FP1,A$,5                        '  Grab 5 bytes near end of file 
A[5] = 0                             '  Null terminate A$ for safety 
PRINT A$                               '  Display it 

SEEK  FP1,0                           '  go back to the beginning 
GET$  FP1,A$,1000                     '  of the file 
PRINT
PRINT A$                               '  and clean up after 
CLOSE FP1                              '  ourselves. 
KILL "JUNK.BIN"                      ' **************************

Result:

Result not displayed for this example.