Another update from ingydotnet^djgoku

Task/Jump-anywhere/PureBasic/jump-anywhere.purebasic

@@ -0,0 +1,31 @@
+OnErrorGoto(?ErrorHandler)
+OpenConsole()
+Gosub label4
+Goto label3
+
+label1:
+Print("eins ")
+Return
+
+label2:
+Print("zwei ")
+Return
+
+label3:
+Print("drei ")
+
+label4:
+While i<3
+  i+1
+  Gosub label1
+  Gosub label2
+Wend
+Print("- ")
+i+1
+If i<=4 : Return : EndIf
+x.i=Val(Input()) : y=1/x
+Input()
+End
+
+ErrorHandler:
+PrintN(ErrorMessage()) : Goto label4