10 lines
213 B
Text
10 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
|