Global a=0

SetBuffer BackBuffer()

Repeat

	Cls
	
	erhoehen()
	
	Text 50,50, a
	
	Flip
	
Until KeyHit(1)



End



Function erhoehen()

	a=a+1

End Function

Graphics 640,480
SetBuffer BackBuffer()

Local a = 0

Repeat
  Cls
  a = erhoehen(a)
  Text 50,50,a
  Flip
Until KeyHit(1)

End

Function erhoehen(val)
  val = val + 1
  Return val
End Function

Graphics 800, 600, 32
;...
User.TUser = FindUser( \"Benutzername\" )
;...
User = FindUser( \"Anderer Benutzername\" )
;...
End

Function FindUser( userName$ )
  For user.TUser = Each TUser
    If ( user\userName = userName ) Then Return user
  Next
End Function

Graphics 800, 600, 32
;...
User.TUser

For CurrUser.TUser = Each TUser
  If ( CurrUser\userName = \"Benutzername\" ) Then User = CurrUser
Next
;...
For CurrUser.TUser = Each TUser
  If ( CurrUser\userName = \"Anderer Benutzername\" ) Then User = CurrUser 
Next
;..
End