5 lines
151 B
Text
5 lines
151 B
Text
|
procedure main()
|
||
|
|
&error := 1
|
||
|
|
udef := 1 / 0 | stop("Run-time error ", &errornumber, " : ", &errortext," in line #",&line," - converted to failure")
|
||
|
|
end
|