%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