begin   
comment division by zero exception divzero;
  real r;

  assert xcplimit(divzero) = 0;
  assert xcpaction(divzero) = 0;

  xcplimit(divzero) := 3;

  xcpmsg(divzero) := "test0";
  xcpaction(divzero) := 0;
  r := 10.0 / 0; writeon(r);

  xcpmsg(divzero) := "test1";
  xcpaction(divzero) := 1;
  r := 10.0 / 0; writeon(r);

  xcpmsg(divzero) := "test2";
  xcpaction(divzero) := 2;
  r := 10.0 / 0; writeon(r);
  
  divzero := null;  comment Returns the divdend and ignores the error;
  r := 10.0 / 0; writeon(r);

end.