Function name()
Repeat
;Cls
;Text 0,0, "Press F1 to change Message of the day"
;Text 0,20, "Current message of the day: " ;+ Befehl$
Eingabe =  Eingabe Xor 1
If Eingabe = 1 Then
                                                 
                                                 
befehl$ = newinput$(425,280,535,305,">>", 20)
If befehl$ = "exit" Then End                 
Text 100,700, befehl$  ; dort wird der Name angezeigt                     
EndIf
Flip
Forever
End Function

Function newinput$(x1,y1,x2,y2,frage$,maxl)
Repeat
a = GetKey() ;32
If a => 32 And a <= 255 And Len(antwort$) <= maxl-1 Then antwort$ = antwort$ + Chr$(a)
If KeyDown(28) Then Eingabe = 0 Return antwort$
If KeyDown(14) Or KeyDown(203) And Len(antwort$) > 0 And MilliSecs()-backtime > 125 Then ;125
antwort$ = Left(antwort$,(Len(antwort$)-1))
backtime = MilliSecs()
End If
Color 25,100,200
Rect x1,y1,x2-x1, y2-y1,1
Color 10,50,150
Rect x1,y1,x2-x1, y2-y1,0
textlange = StringWidth(antwort$) ;Blinkener Cursor
texthohe = StringHeight(antwort$)
fragelange = StringWidth(frage$)
Color 0,50,ccolor
Rect x1+28+(Len(antwort$)*8),y1+4,10,texthohe-1,1
ccolor = ccolor + 5
If ccolor = 255 Then ccolor = 100
Color 255,255,255
Text x1+3,y1+3, frage$ + " " + antwort$
Flip
Forever
End Function

befehl$ = newinput$(425,280,535,305,">>", 20)