Command: unlockf (peu)
 
Syntax: 
   unlockf(s)       
  
Description:
   There are no error's if the file doesn't exsist !
   
Comments:
   After you 'close( s )' you have to 'unlockf( s )' 
   so other's can use it .
   
Example: 
   -- test lock and unlock files
   sequence file="klad.tmp"
   if lockf(file)
   then puts(1,"File is in use\n")
   else puts(1,"file is locked\n")
   end if
   unlockf(file)

See Also: 
   lockf

