fpcdocs/refex/ex55.pp


1
2
3
4
5
6
7
8

Program Example55;

{ Program to demonstrate the RunError function. }

begin
  { The program will stop end emit a run-error 106 }
  RunError (106);
end.