12 lines
190 B
Text
12 lines
190 B
Text
|
OnErrorGoto(?MyExitHandler)
|
||
|
|
|
||
|
|
X=1: Y=0
|
||
|
|
z= X/Y
|
||
|
|
; = a illegal division with zero
|
||
|
|
Debug "This line should never be reached"
|
||
|
|
End
|
||
|
|
|
||
|
|
MyExitHandler:
|
||
|
|
MessageRequester("Error", ErrorMessage())
|
||
|
|
End
|