11 lines
213 B
Text
11 lines
213 B
Text
|
Procedure MyErrorHandler()
|
||
|
|
;All open files etc can be closed here
|
||
|
|
MessageRequester("Error", ErrorMessage())
|
||
|
|
End
|
||
|
|
EndProcedure
|
||
|
|
|
||
|
|
OnErrorCall(MyErrorHandler())
|
||
|
|
X=1: Y=0
|
||
|
|
Z= X/Y
|
||
|
|
;This line should never be reached
|