ちょっと、皆さんが勘違いしているっぽいので詳細を書きます。

readOpen
　　戻り値 : ファイルハンドル
　　機能 : 指定されたファイルの拡張子をlckに変えたファイルを
　　flockして指定されたファイルをオープン。flockが10秒以上で
　　きない場合は異常終了。

writeOpen
　　戻り値 : ファイルハンドル
　　機能 : 指定されたファイルの拡張子をlckに変えたファイルを
　　flockして指定されたファイルの拡張子をtmpに変えたファイル
　　をオープン。flockが10秒以上できない場合は異常終了。

END
　　機能 : readOpen,writeOpenでロックされたファイル(*.lck)を
　　close。writeOpenで返したのファイル(ハンドル)を元の名前に
　　リネーム。(*.tmp→*.元の拡張子)

引き続き、何か欠点や改良点があれば指摘して頂けるとありがたいです。