option explicit

type imenik
    prezime as string
    tel as string
end type
dim zapis as imenik

global pozicija as long

sub ucitajBinarni(pocetnaPozicija)
    dim velicinaPolja as integer
    get #1,pocetnaPozicija, velicinaPolja
    zapis.prezime=str$(velicinaPolja," ")
    Get #1,,zapis.prezime
    Get #1,,velicinaPolja
    Get #1,,zapis.tel
    pozicija=Seek(#1)
end sub