Graphics 640, 480, 16, 2 SetBuffer BackBuffer() TextBoxText$ = "" Local CurX = 1, CurY = 1, bCur = 1, CurT = MilliSecs() While Not KeyDown(1) Color 255, 255, 255: Rect 0, 0, 450, 185, 1 If MilliSecs() >= CurT + 250 Then bCur = bCur + 1: CurT = MilliSecs() If bCur >= 2 Then bCur = 0 If bCur = 1 Then Color 0, 0, 0: Rect CurX, CurY, 8, 12, 1 Color 0, 0, 0: Text 1, 1, TextBoxText$ tmp = GetKey() If tmp Then If tmp = 8 Then ; Backspace TextBoxText$ = Mid(TextBoxText$, 1, Len(TextBoxText$) - 1): CurX = CurX - 8 Else ; Text TextBoxText$ = TextBoxText$ + Chr$(tmp): CurX = CurX + 8 EndIf EndIf Flip: Cls Wend: End