langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Flow-control-structures/PureBasic/flow-control-structures-5.purebasic
+++ b/Task/Flow-control-structures/PureBasic/flow-control-structures-5.purebasic
@ -0,0 +1,10 @@
+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