external  routine  spec  permit(string (255) s)
external  string  fn  spec  uinfs(integer  i)


external  routine  protect(string (255) file)
   if  file="?" or  file="" start 
      printstring("Parameter is the filename to be PROTECTED. Unprotect with command UNPROTECT")
      newline
   finish  else  permit(file.",".uinfs(1).",P")
end  {protect}

external  routine  unprotect(string (255) file)
   if  file="?" or  file="" start 
      printstring("Parameter is the filename to be UNPROTECTED. (Protect with command PROTECT)")
      newline
   finish  else  permit(file.",".uinfs(1).",W")
end  {unprotect}
end  of  file