; Function     New_Input$() dynamisch
; passt sich jeder Fontgröße an
Graphics 800,600,16,2
SetBuffer BackBuffer()

Global Antwort$,WarteZeit ,CursorZeit ,CursorStatus
;Font1 =LoadFont("Ariel",40,0,0,0)
Font1 =LoadFont("Comic Sans MS",35,0,0,0)
SetFont Font1
While Not KeyDown(1)
  Cls ; oder hintergund malen

  ; die ersten beiden werte sind die startKoordinaten des rechtecks
  ; dann die frage  und  Maximale Länge der Antwort
  ; die darf nicht HÖHER sein wie die FRAGE Zeichen hat   
  Abfrage = New_Input(50,30,"Wie ist dein Name:?",10)

If Abfrage = 1 Then Exit ; schleife verlassen  da die Eingabe beendet ist  in  Antwort$ steht es jetzt drinne!
;
   Flip
Wend
End
Function     New_Input$ ( Rahmen_X,Rahmen_Y,Frage$,max_Lang)
   
     Rahmenbreite =StringWidth (Frage$+"XYZ");+ FontWidth ()*2)
     Rahmenhoehe  =(FontHeight ()*4)
   Color 255,0,0 ; umrandung malen 2pix breit
   Rect Rahmen_X, Rahmen_Y,Rahmenbreite,Rahmenhoehe  ,1
   Color 0,0,255; innenfeld
   Rect Rahmen_X+2,Rahmen_Y+2, Rahmenbreite -4 , Rahmenhoehe -4,1

   Color 0,0,0 ; Frage einzeichnen >> Schatten
   Text  Rahmen_X + Rahmenbreite /2+2, Rahmen_Y+ Rahmenhoehe/4 +2 , Frage$,1,1
   Color 255,255,0 ; Frage einzeichnen
   Text  Rahmen_X + Rahmenbreite /2, Rahmen_Y+ Rahmenhoehe/4  , Frage$,1,1

   a = GetKey() ; Zeichen holen wenn gedrückt
   ; wenn gescheites zeichen, dann hinzufügen
   If a > 31 And a < 256 And Len(antwort$) < max_Lang  Then  antwort$ = antwort$ + Chr(a)
   ;wenn Rücktaste dann Zeichen löschen... und Pause sonst ist der Text zu schnell gelöscht
     If KeyDown(14) And Len(antwort$) > 0 And MilliSecs() - WarteZeit > 125 Then
       antwort$ = Left(antwort$,(Len(antwort$)-1))
       WarteZeit = MilliSecs()
     End If
    ; bei enter ist die Eingabe erledigt und gibt die 1 zurück
     If KeyDown(28) Then Return 1 ;  für beenden der Input routine
    Antwortbreite = max_Lang * StringWidth ("Ra")/2;FontWidth() ; die maximale breite der Antwort ermitteln
    Startpos_der_Antwort = Rahmen_X + (Rahmenbreite /2)  - (Antwortbreite/2)
    Color 0,0,0
    Text Startpos_der_Antwort,Rahmen_Y+ Rahmenhoehe/4 *2.2, Antwort$
    ; Cursor blinken
   If MilliSecs() - CursorZeit > 500 Then
   CursorStatus =CursorStatus Xor 1 ;ein - ausschalten
   CursorZeit= MilliSecs()
   End If
   ;Cursor malen
   If CursorStatus = 1 Then
   StartCursorX =Startpos_der_Antwort + StringWidth(antwort$) +1
    texthoehe =StringHeight (antwort$)
   Color 255,255,0
   Rect    StartCursorX  , Rahmen_Y+ Rahmenhoehe/4 *2.2+texthoehe*.2, StringWidth("l")  , texthoehe *.6
   End If
End Function