%include "inc:fs.imp"
%include "inc:util.imp"

%begin; !QUOTA user,dif
%string(255)u,q,s
%integer x

%routine add(%integer n)
  add(n>>4) %unless n>>4=0
  s = s.tostring(n&15+'0')
%end

%on 3,4 %start
  printline(event_message)
  %stop
%finish

defineparam("Directory",u,pamnodefault)
defineparam("Quota increment",q,pamnodefault)
processparameters(cliparam)
s = u.","
add(stoi(q))
x = fcomm('^'<<8,s)
printline("Done")

%endofprogram