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