SuperStrict 'Aktivieren um saubere Programmierung zu erzwingen
AppTitle = "Input" 'Fenstertitel erstellen
Graphics 600, 300 'Fenstergröße festlegen
'Deklaration der Eingabevariable. Hier Lokal, da durch die Übergabe
'der Variable als Funktionsparameter keine Globale gebraucht wird.
Local Eingabe:String
Local Timer:TTimer = CreateTimer(60) 'Erstellt einen Timer zur Verhinderung hoher Prozessorlast

Repeat 'Haupt-Schleife
	Cls 'Löschen des Bufferinhalts
	Eingabe = NewInput(Eingabe) 'Aufruf der eigenen Input-Funktion
	DrawText Eingabe + "|", 0, 10 'Ausgabe inklusive Cursor-Symbol
	TRect.UpdateAll() 'ruft den Beweis, dass das Programm nicht angehalten wird, (siehe unten) auf.
	Flip 0'Tauscht der Buffer
	WaitTimer(Timer) 'Wartet auf den Timer
Until KeyDown(KEY_ESCAPE) Or AppTerminate() 'Ende der Hauptschleife mit ESC 
End

'Funktionsteil
Function NewInput:String(currentText:String) 'Übergabe des Parameters
'Es ist notwendig die bereits erfolgte Eingabe zu übergeben, damit 
'sie ergänzt oder gelöscht werden kann.
	Local localChar:Byte = GetChar() 'Deklaration und gleichzeitiger Abruf der Tasteneingabe
	Local length:Short 'Deklaration deer Variable fur die Zeichenanzahl
	If (localChar > 0) And (localChar <> 8 ) Then 'Überprüft ob es sich um eine gültige Eingabe handelt
		currentText = currentText + Chr(localChar) 'und fügt die Eingabe dem Text hinzu.
	ElseIf localChar = 8 Then 'bei Eingabe von BackSpace 
		length = Len(currentText) 'wird die Zeichenanzahl ermittelt
		If length > 0 Then 'und wenn bereits etwas eingegeben worden ist
			currentText = Left(currentText, length - 1) 'wird das letzte Zeichen entfernt.
		EndIf
	EndIf
	Return currentText 'Schließlich wird der Text zurück gegeben.
End Function

'############################################################################################
'Code ab hier dient nur zum Beweis, dass das Programm weiterläuft, also einfach ignorieren :)

Type TRect
	Global LRect:TList
	Const GFX:Short = 600, GFY:Short = 300
	Const RectSize:Byte = 20
	
	Field x:Float
	Field y:Float
	Field speedX:Float
	Field speedY:Float
	
	Method New()
		If LRect = Null Then
			LRect:TList = New TList
		EndIf
		LRect.Addlast(Self)
	EndMethod
	
	Function Create:TRect(_x:Float, _y:Float)
		Local R:TRect = New TRect
		R.x:Float = _x
		R.y:Float = _y
		R.RandomSpeed()
		Return R
	EndFunction
	
	Method Update()
		x = x + speedX
		y = y + speedY
		If x < 0 Or x > GFX Then
			speedX = speedX * -1
		EndIf
		If y < 0 Or y > GFY Then
			speedY = speedY * -1
		EndIf
	EndMethod
	
	Method Draw()
		DrawRect x, y, RectSize, RectSize
	EndMethod
	
	Method setSpeed(_sx:Float, _sy:Float)
		speedX:Float = _sx
		speedY:Float = _sy
	EndMethod
	
	Method getSpeedX:Float()
		Return speedX
	EndMethod
	
	Method getSpeedY:Float()
		Return speedY
	EndMethod
	
	Function UpdateAll()
		Local i:Short = 0
		Local K_BACKSPACE:Byte
		Local K_R:Byte
		 
		If KeyHit(KEY_R) Then K_R:Byte = True
		If KeyHit(KEY_BACKSPACE) And LRect <> Null Then 
			K_BACKSPACE:Byte = True 
			If LRect.IsEmpty() = True Then
				K_BACKSPACE = False
			EndIf
		EndIf
		
		If LRect <> Null Then
			
			For Local R:TRect = EachIn LRect
				i = i + 1
				R.Update()
				R.Draw() 	
				If K_BACKSPACE = True Then 
					LRect.RemoveFirst()
					K_BACKSPACE = False
				EndIf
			Next
		EndIf
		If i = 1 Then
			Local Text:String = "Ich beweise, dass das Programm weiterlaeuft"
			DrawText Text, ((GFX - TextWidth(Text)) / 2), (GFY / 2 + 10)
		ElseIf i > 1 Then
			Local Text:String = "Wir beweisen, dass das Programm weiterlaeuft"
			DrawText Text, (GFX - TextWidth(Text)) / 2, GFY / 2 + 10
		EndIf
		If i < 10 Then 
			Local Text:String = "Zum Erstellen von Rechtecken bitte 'R' druecken"
			DrawText Text, (GFX - TextWidth(Text)) / 2, GFY / 2
			If K_R = True Then
				Create(Rand(0, GFX), Rand(0, GFY - RectSize))
			EndIf
		EndIf 
		K_R = False
	EndFunction
	
	Method RandomSpeed()
		setSpeed(Rnd(-3.5,3.5), Rnd(-3.5,3.5))
	EndMethod

EndType

Global MausX:Int,MausY:Int,Maus1:Byte,Maus2:Byte,Maus3:Byte,MausXSpeed:Int,MausySpeed:Int
Global MausZSpeed:Float,Textfieldlist:TList = New TList
Rem Diese Funciton erstellt ein Gebiet, in dem der Übergebene Text mit Zeilenumbrüchen angegeben werden kann. Der Text wird automatisch umgebrochen oder bei jedem \.
end rem
Function Textarea (t$,pX:Int,pY:Int,w:Int,h:Int)
Local ny:Int,nx:Int,i:Int,lt:Int,Zeilenumbruch:Int,Zeilenumbruch2:Int,nt$,zeilen:Int,j:Int
t = t + " "
	nx = pX
  	ny = pY
    zeilen = 0
    nt$ = ""
    i = 0
    lt = Len(t$)
   While Len(t$) > 0
      i = i + 1
      Zeilenumbruch = Instr (t$,"\")
	Zeilenumbruch2 = Instr (t$,Chr(10))
	  If i = zeilenumbruch Or i = Zeilenumbruch2 Then 
		DrawText nt$,nx, ny
         t$ = Mid$(t$, i + 1, -1)
         i = 0
         nt$ = ""                                       
         ny = ny + 1.2 * TextHeight(t$) * 0.8
        zeilen = zeilen + 1
        If (zeilen + 1) * (1.2 * TextHeight(t$) * 0.8) => h Then Exit
      ElseIf TextWidth(Left$(t$, i)) < w And i <= Len(t$) Then
         nt$ = Left$(t$, i)
      Else
        For j = Len(nt$) To 1 Step -1
         If Mid$(nt$, j, 1) = " " Then
            nt$ = Left$(nt$, j)
            i = j + 1
            Exit
         End If
        Next            
      
         DrawText nt$,nx, ny
         t$ = Mid$(t$, i, -1)
         i = 0
         nt$ = ""                                       
         ny = ny + 1.2 * TextHeight(t$) * 0.8
        zeilen = zeilen + 1
        If (zeilen + 1) * (1.2 * TextHeight(t$) * 0.8) => h Then Exit
      End If
   Wend
End Function

Type Textfield
	Field x:Int,y:Int
	Field value:String
	Field Beschriftung:String
	Field Pos:Int
	Field Ctimer:Int
	Field Cu:Byte
	
	Method Draw:Textfield(S:Textfield)
		Local tx:Int = GraphicsWidth()*(1/8),ty:Int = GraphicsHeight()/2
		If Self <> s 
			SetColor 125,125,125
		Else
			SetColor 125,125,255
		EndIf
		DrawRect x,y,TextWidth(Beschriftung),TextHeight(Beschriftung)
		SetColor 255,255,255
		text2(beschriftung + ": " + value,x,y)
		If maus1 And mouseoverlape(x,y,TextWidth(Beschriftung + ": " ) +5,TextHeight(Beschriftung )) Then Return Self
		If s = Self
			If MilliSecs() > Ctimer + 125
				Cu = (Cu + 1)Mod 2
				Ctimer = MilliSecs()
			EndIf
			Local Cursor:String =" "
			If Cu Then Cursor = "|" 
			Local va:String = Left(value,pos) + Cursor + Right(value,Len(value) - pos)
			Textarea (beschriftung + ": " + va,tx,ty,GraphicsWidth() - tx * 2,GraphicsHeight() - ty)
		EndIf
		Return s
	End Method
	
	
	Method Selected()
		Local v:Int = GetChar()
		If KeyHit(KEY_LEFT)
			If pos > 0 Then pos :- 1
		ElseIf KeyHit(KEY_RIGHT)
			If pos < Len(value) Then pos :+ 1
		ElseIf v = 0
			Return
		ElseIf v = 8 
			value = Left(value,pos-1) + Right(value,Len(value) - pos)
			If pos > 0 Then pos:-1
		Else 
			value = Left(value,pos) + Chr(v) + Right(value,Len(value) - pos)
			pos :+ 1
		EndIf
	End Method
	
	Method GetValue:String()
		Return Value
	End Method
End Type

Rem Erstellt ein Textfield
End Rem
Function Create_Textfield:textfield(B:String,V:String,x:Int,y:Int)
	Local Tf:Textfield = New textfield
		tf.value = v
		tf.x = x
		tf.y = y
		tf.beschriftung = b
		tf.pos = Len(v)
		ListAddLast(Textfieldlist,tf)
	Return tf
End Function
	
Rem Muss in jedem Schleifenaufruf vorkommen um die Textfelder nutzen zukönnen.
End Rem
Function TextfieldUpdate()
	Global S:Textfield
	For Local tf:Textfield = EachIn Textfieldlist
		s = tf.draw(s)
	Next
	If s <> Null Then s.selected()
End Function

Function Text2(t$,x:Int,y:Int,w:Int = 0,h:Int = 0)
	If h = True Then x = x - TextWidth(t)/2
	If w = True Then y = y - TextHeight(t)/2
	DrawText t,x,y
End Function

Function MouseUpdate()
	MausX = MouseX()
	MausY = MouseY()
	Maus1 = MouseHit(1)
	Maus2 = MouseHit(2)
	Maus3 = MouseHit(3)
	MausXSpeed = MouseXSpeed()
	MausYSpeed = MouseYSpeed()
	MausZSpeed = MouseZSpeed()
End Function

Rem
bbdoc: Überprüft, ob die Maus in dem Angegeben Bereich ist
return: True falls ja, False falls nicht
about: 
Gibt zurück, ob die Maus sich in dem Rechteck mit den Koordinaten X/Y und der Breite W und der Höhe H befindet.
Benötigt MausUpdate() um zu funktionieren.
End Rem
Function Mouseoverlape:Byte(x:Int,y:Int,w:Int,h:Int)
	If Mausx >= x And mausx <= x + w And mausy >= y And mausy <= y + h Then Return True
	Return False
End Function

Graphics 800,600
Create_Textfield:textfield("Feld1","Inhalt1",100,100)
Create_Textfield:textfield("Feld2","Inhalt2",100,200)

Repeat 
	Cls
	MouseUpdate()
	TextfieldUpdate()
	Flip
Until AppTerminate()

		text2(beschriftung + ": " + value,x,y)

If pos > 0