Home

Add

Edit

Without Linenumbers

Code as Text

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
Linux - 0.20.0 (08-10-2008) - [using Linux-Debian-Compiler] Linux - 0.18.5 (04-17-2008) - [using Linux-Debian-Compiler] Windows - 0.23.0 (08-14-2011) - [using wine Windows-Compiler] Windows - 0.22.0 (05-06-2011) - [using wine Windows-Compiler] Windows - 0.21.1 (08-11-2010) - [using wine Windows-Compiler] Windows - 0.20.0 (08-10-2008) - [using wine Windows-Compiler] Windows - daily git build (2012-05-23) - [using wine Windows-Compiler] DeltaLab's WebFBC