This should give you an idea of what your pgm should look something like.
'beginning of pgm
on error goto 60000
.
.
.
'open file
inven = freefile
open "inventor.dat" for random shared as #inven len = 256
.
.
.
.
'get a record from the table and lock it
lock inven, recordnumber
get inven, recordnumber
'
'do some stuff
'
'write data back to file
put inven, recordnumber
'don't forget to unlock record
unlock inven, recordnumber
60000 if err = 63 or err = 70 then print "record locked - wait";: resume
'more error routines here
David Paulson