Function Keyboard$(Te$="Eingabe:",PosX=300,PosY=100,Shift=0,KeyboardInput$="")
	DelButton
	Local tasten$,a,tastensave$,tastenformat$,x,y,tastenk$,tasteng$
	
	tastenk$="1/2/3/4/5/6/7/8/9/0/#q/w/e/r/t/z/u/i/o/p/ü/Del/#a/s/d/f/g/h/j/k/l/ö/ä/Enter/#y/x/c/v/b/n/m/,/./-/Shift/Leer/"
	tasteng$="1/2/3/4/5/6/7/8/9/0/#Q/W/E/R/T/Z/U/I/O/P/Ü/Del/#A/S/D/F/G/H/J/K/L/Ö/Ä/Enter/#Y/x/C/V/B/N/M/;/:/-/Shift/Leer/"
	If Shift=0 Then tasten$=tastenk
	If Shift=1 Then tasten$=tasteng
	
	For a=1 To Len (tasten$)
		tastenformat=Mid$(tasten,a,1)
		
		If tastenformat<>"/" And tastenformat<>"#" Then
			tastensave=tastensave+tastenformat
		Else
			If tastenformat="/" Then 
				ButtonCreate(tastensave,PosX+x,PosY+y,"","TastenKey",50,50)
				x=x+52
				tastensave=""
			EndIf
			If tastenformat="#" Then y=y+52:x=0
		EndIf
	Next
	Repeat
		Cls
		Text PosX,PosY-60,Te$
		Text PosX,PosY-30,KeyboardInput$+"_"
		Update
		WaitTimer MyTimer
		Flip 0
		If ButtonTyp="TastenKey" Then
			If ButtonReturn<>"Shift" And ButtonReturn<>"Del" And ButtonReturn<>"Leer" And ButtonReturn<>"Enter" Then
				KeyboardInput=KeyboardInput+ButtonReturn
			EndIf
		EndIf
		If ButtonReturn="Del" And KeyboardInput<>"" Then
			KeyboardInput=Left$(KeyboardInput,Len(KeyboardInput)-1)
		EndIf
		If ButtonReturn="Shift" Then
			Shift=1-Shift
			Keyboard(Te$,PosX,PosY,Shift,KeyboardInput$)
		EndIf
		If ButtonReturn="Leer" Then
			KeyboardInput=KeyboardInput+Chr(32)
		EndIf
		If ButtonReturn="Enter" Then 
			DebugLog KeyboardInput
			Return KeyboardInput
		EndIf
		
		
	Forever
End Function

Repeat
  Text 10,50,current_text$+"|"
  
  key=GetKey() ;Überprüfen ob eine Taste gedrückt wurde
  If key<>0 Then
    current_text$+Chr(key) ;Buchstaben zu Text-Variable hinzufügen
  EndIf
  
  If KeyHit(28) Then Exit ;Wenn Enter gedrückt, verlasse die Schleife
  
  If KeyHit(14) Then ;Wenn Löschen gedrückt wurde
    lengh=Len(current_text$)
    current_text$=Left(current_text$,lengh-2) ;Den Linken Teil der Text-Variable bekommen
  EndIf
Forever