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
|