Data commit

Task/Flow-control-structures/PureBasic/flow-control-structures-1.basic

@@ -0,0 +1,12 @@
+If OpenConsole()
+  top:
+  i = i + 1
+  PrintN("Hello world.")
+  If i < 10
+    Goto top
+  EndIf
+
+  Print(#CRLF$ + #CRLF$ + "Press ENTER to exit")
+  Input()
+  CloseConsole()
+EndIf

Task/Flow-control-structures/PureBasic/flow-control-structures-2.basic

@@ -0,0 +1,8 @@
+X=1:  Y=2
+Gosub Calc
+;X will now equal 7
+End
+
+Calc:
+  X+3*Y
+  Return ; Returns to the point in the code where the Gosub jumped from

Task/Flow-control-structures/PureBasic/flow-control-structures-3.basic

@@ -0,0 +1,12 @@
+Gosub MySub
+
+Lable2:
+; The program will jump here, then 'end'
+End
+
+MySub:
+If #PI>3
+  FakeReturn  ; This will simulate the function of a normal "Return".
+  Goto Lable2
+EndIf
+Return

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

@@ -0,0 +1,11 @@
+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

Task/Flow-control-structures/PureBasic/flow-control-structures-5.basic

@@ -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