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