shame there is no goto command

10 print "goto sux"
20 goto 10

'Goto jump downwards------------------
Function foo()
	If a=b Then goto label1
	a=b
label1:
	b=0
End

'replaced by if statement
Function foo()
	If a<>b Then
		a=b
	Endif
	b=0
End



'Example goto jump upwards
Function foo()
label1:
	a+=1
	If a < 10 Then goto label1
End

'Becomes a repeat until loop--------
Function foo()
	Repeat
		a+=1
	Until  a= 10
End

While true
  Print "goto sux"
End While

Function SelectMe:Int(aa:Int)

	Select aa
		Case 0 
			Print "0"
			Return 0
		Case 1 
			Print "1"
		Case 2 
			Print "2"
			
	End Select

	Print ("Select at End")
	
	Return 0
End


Function Main()
	
	SelectMe(1) 
	SelectMe(2)
	SelectMe(0)
	
	
End

1
Select at End
2
Select at End
0

Function SelectMe:Void( v%, x% )

	Select v
	       Case 10
		     Print "Test"
		     If x = 11 Then Return 
		     Print "You can see me only if x <> 11 xD"
               Case 11
                  .....
	End Select
End Function 

Select aa
	Case 1
		' This will run the function if the conditions are not met
		If ( Not condition ) Then DoStuff()
	Case 2
		DoOtherStuff()
End

var bbt_aa = 1;
var bbt_ = bbt_aa;
if( bbt_ == 1 )
{
	if( !condition )
	{
		DoStuff();
	}
}
else
{
	if( bbt_ == 2 )
	{
		DoOtherStuff();
	}
}

  Case n
    If ( Not condition )
      DoStuff()
    End

thing = 1
something = 1

Select thing

    Case 1

        If something Then Exit ' Or Break...

        NotDoingThisNow ()
        OrThis ()
        DefinitelyNotDoingThis ()
        AndAsForThis ()

    Case 2

        Etc ()

End

Strict

Local thing:Int = 1
Local something:Int = 1

#blah
Repeat
	Select thing
	    Case 1
	        If something Then Exit blah
		Print "here"
	
	    Case 2
	        Print "never here"
	
	End Select
Until False
'exit to here
Print "here2"

End