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