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