Home

Add

Edit

With Linenumbers

Code in Textfield

Download

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