screenres 400, 300, 32

Dim TKey as String
Dim TKey1 as UByte
Dim TKey2 as UByte
Dim TInput as String
do
	TKey = InKey()
	TKey1 = Asc(Left(TKey, 1))
	TKey2 = Asc(Mid(TKey, 2, 1))
	Select Case TKey1
		Case 0
		Case 8: If Len(TInput) > 0 Then TInput = Left(TInput, Len(TInput) - 1)
		Case 10, 13: If TInput <> "" Then Exit Do 'Nur verlassen, wenn eingabe nicht leer.
		Case 32, 45, 46, 48 to 58, 65 to 90, 97 to 122 '<space>azAZ09.-:
			TInput += Chr(TKey1)
	End Select
	ScreenLock()
	CLS()
	Draw String (10, 10), "Eingabe: " & TInput, &HFFFFFF
	ScreenUnLock()
	Sleep 1, 1
loop
Screen 0
Print TInput
End 0