begin ; !permit

include  "inc:fs.imp"

  routine  permit(string (255)file,perms)
  integer  x
    onevent  3,4,9 start 
      printstring(event_message); newline
      return 
    finish 
{   printstring("Permit ".file."/".perms); newline
    x = fcomm('E0'+userno,file.",".perms)
  end 

  routine  group(string (255)files,perms)
  string (255)file
    files = files.","
    permit(file,perms) while  files -> file.(",").files
  end 

string (255)parm,perms,files

  parm = cliparam

  while  parm#"" cycle 
    files = parm and  parm = "FR" unless  parm -> files.("/").parm
    perms = parm and  parm = "" unless  parm -> perms.(",").parm
    group(files,perms)
  repeat 

endofprogram