div implementation in ALGOL60

div.algo

integer procedure div(a, b); value a, b;
  integer a, b;
  if b = 0 then
    fault( `div by zero' , a)
  else
    begin integer q, r;
    q := 0; r := iabs(a);
    for r := r - iabs(b) while r ≥ 0 do q := q + 1;
    div := if a < 0 ≡ b > 0 then -q else q
    end div;