Graphics 300,200,16,2
SetBuffer BackBuffer()

Global timeoutinput,backtimer,drawcursor

While Not KeyHit(1)
  Cls
  Color 255,255,255
  Rect 100,50,100,15,1
  in$=Input$(150,50,in$,10)
   Color 0,0,0
   Text 150,50,in$,1
   Flip
Wend



Function Input$(x,y,eingabe$,maxlength=999999,down=32,up=122)
   If MilliSecs()>timeoutinput+500 drawcursor=1-drawcursor:timeoutinput=MilliSecs()
   If drawcursor Color 255,0,0:Rect x+(StringWidth(eingabe$)/2)+2,y+1,1,13 ; Cursorhöhe 13
   eing=GetKey()
   If KeyDown(14) And MilliSecs()>backtimer+100 And Len(eingabe$)>0
      eingabe$=Left$(eingabe$,Len(eingabe$)-1)
      eing=0
      backtimer=MilliSecs()
   EndIf
   If eing=13
      eing=0:in=False
   EndIf
   If eing>=down And eing<=up And Len(eingabe$)<maxlength Then eingabe$=eingabe$+Chr$(eing):eing=0
   Return eingabe$
End Function

Global Name$, Code$
InputWin$()
Print Name
Print Code
Delay 5000
End
Function InputWin$()
    ;Fenster erstellen
    Startwindow = CreateWindow("INPUT",200,200,240,180,0)
    ;Button erstellen
    CreateLabel ("Name:",20,10,40,20,Startwindow)
    EingabeFeld_1 = CreateTextField (60,10,150,20,Startwindow)
    CreateLabel ("Code:",20,40,40,20,Startwindow)
    EingabeFeld_2 = CreateTextField (60,40,150,20,Startwindow,1)
    Button_1 = CreateButton ("OK",20,70,150,20,Startwindow)
    Repeat
        Select WaitEvent(50)
        : Case $803
   
            End
        : Case $401
   
            Select EventSource()
            : Case EingabeFeld_1
       
                ;Eingabe evt.Prüfen
            : Case EingabeFeld_2
       
                ;Eingabe evt.Prüfen
            : Case Button_1
       
                Name$ = TextFieldText (EingabeFeld_1)
                Code$ = TextFieldText (EingabeFeld_2)
                If Name <>"" And Code<> "" Then Exit
            End Select
        End Select
    Forever
End Function

Graphics 800,600,16,2
SetBuffer BackBuffer()

Global timeoutinput,backtimer,drawcursor

While Not KeyHit(1)
Cls
ClsColor 192, 192, 192
Color 255,255,255
Textfield 100, 50, 100, 20
in$=Input$(150,54,in$,10)
Color 0,0,0
Text 150,50,in$,1
Flip
Wend

Function Textfield( x, y, width, height )
   Color 255, 255, 255
   Rect x, y, width, height, 1
   
   Color 128, 128, 128
    Line x, y, x+width, y
   Line x, y, x, y+height
   
   Color 255, 255, 255
   Line x, y+height, x+width, y+height
   Line x+width, y, x+width, y+height
   
   Color 192, 192, 192
   Line x + 1, ( y + height ) - 1, ( x + width ) - 1, ( y + height ) - 1
   Line ( x + width ) - 1, y + 1, ( x + width ) - 1, ( y + height ) - 1
   
   Color 0, 0, 0
   Line x + 1, y + 1, x + 1, ( y + height ) - 2
   Line x + 1, y + 1, ( x + width ) - 2, y + 1
End Function

Function Input$(x,y,eingabe$,maxlength=999999,down=32,up=122)
If MilliSecs()>timeoutinput+500 drawcursor=1-drawcursor:timeoutinput=MilliSecs()
If drawcursor Color 255,0,0:Rect x+(StringWidth(eingabe$)/2)+2,y+1,1,13 ; Cursorhöhe 13
eing=GetKey()
If KeyDown(14) And MilliSecs()>backtimer+100 And Len(eingabe$)>0
eingabe$=Left$(eingabe$,Len(eingabe$)-1)
eing=0
backtimer=MilliSecs()
EndIf
If eing=13
eing=0:in=False
EndIf
If eing>=down And eing<=up And Len(eingabe$)<maxlength Then eingabe$=eingabe$+Chr$(eing):eing=0
Return eingabe$
End Function