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