Global var1
Global var2
Global var3

Function Berechne(p1,p2)
var1=1
var2=2
var3=3
End Function

Print var1
Print var2
Print var3

Local arr3D[3]

Print(arr3D[0]+" | "+arr3D[1]+" | "+arr3D[2])
Zuaelle(arr3D)
Print(arr3D[0]+" | "+arr3D[1]+" | "+arr3D[2])
WaitKey()
End

Function Zuaelle(a[3])
	a[0] = Rand(0,100)
	a[1] = Rand(0,100)
	a[2] = Rand(0,100)
End Function

Function ReturnsMultiple$(a,c,b)
	Return (a*b)+Chr(1)+(a*c)+Chr(1)+(b*c)
End Function

Dim SplittedString$(1)
Global SplitCount
Function SplitString(In$)
	Local Pos,Ch$,All$
	For I = 1 To Len(In)-1
		Ch = Mid(In,I,1)
		If Ch = Chr(1) Then SplitCount = SplitCount + 1
	Next
	Dim SplittedString(SplitCount)
	SplitCount = 0
	While Not Pos = Len(In)
		Pos = Pos + 1
		Ch = Mid(In,Pos,1)
		If Ch = Chr(1) Or Pos = Len(In)
			If Pos = Len(In) Then All = All+Ch
			SplittedString(SplitCount) = All
			All = ""
			SplitCount = SplitCount + 1
		Else
			All = All+Ch
		EndIf
	Wend
End Function

SplitString(ReturnsMultiple(2,3,4))
Print "Value Count: "+SplitCount
For I = 0 To SplitCount-1
	Print "Value at "+I+": "+SplittedString(I)
Next
WaitKey

Local x:Int, y:Int, z:Int, a:Int, b:Int, c:Int

Function Berechnewas(pa:Int,pb:Int, pc:Int, vx:Var, vy:Var, vz:Var)
  vz = pa - pb
  vx = pc - pa
  vy = pb - pa
End Function 

'Hauptprogramm:

a = 5
b = 3
c = 10
Berechnewas(a,b,c,x,y,z)

Print x '5
Print y '-2
Print z '2

Local bank=CreateBank(8),a=2,b=5,c=7,d=1
BerechneIrrgendWelchenMuell(bank,a,b,c,d)
Print("Wert 1: "+PeekInt(bank,0)+"  Wert 2: "+PeekInt(bank,4))
WaitKey


Function BerechneIrrgendWelchenMuell(bank,a,b,c,d)
  PokeInt(bank,0,a+b)
  PokeInt(bank,4,c+d)
End Function