RosettaCodeData/Task/Flow-control-structures/PureBasic/flow-control-structures-4.basic

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