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