>

function NotLockedByElse
>lparameters tcFile
>handle=fopen(tcFile)
>if handle>0
> * Not locked somewhere
> fclose(handle)
> return .f.
>else
> return ferror()=5
>endif

Also you could use
>if flock() && Attempt lock if not locked
>Cetin

LockedByElse would be more meaningful name :)
Cetin