Function console_system()		; cursor, settings, commands, [...]
	
					Color 200,200,200
					SetFont console_font	
					Text 65,400,row1$,0,0
					Text 65,385,row2$,0,0
					Text 65,370,row3$,0,0
					Text 65,355,row4$,0,0
					Text 65,340,row5$,0,0
					Text 65,325,row6$,0,0
					Text 65,310,row7$,0,0

	If console_active = True  		; draw cursor.
	
			Local x = 65 + StringWidth(cline$)	
			Color 200,200,200
			Rect x,427,5,12,1	

			; -----------------------------------------------------------------------
						key = GetKey()
				If key>=32 And key<=255 Then cline$=cline$+Chr(key)															; watch ASCII
				If key=8 And (Len(cline$)-1)>=0 cline$=Left(cline$,Len(cline$)-1) ; Backspace
					Text 65,424,cline$,0,0 	
				If key=13
  					; search for \"=\" in the string.
  					eq=Instr(cline$,\"=\")
  			If eq
    						; cut string at \"=\".
    				cmd$=Lower(Trim(Left(cline$,eq-1)))
    				par$=Trim(Right(cline$,Len(cline$)-eq))
    			Select cmd$
      			Case \"console active\" : console_active = Int(par$):process$=\"Console activated/deactivated\"
    			End Select
  			Else
    		; if string does not contain a \"=\"
    			Select Lower(cline$)
      			Case \"quit\" :program=False		
      			Default process$=\"Error. Unknown command '\"+cline$+\"'.\"
    			End Select
  			End If
  				row7$ = row6$
  				row6$ = row5$
  				row5$ = row4$
  				row4$ = row3$
  				row3$ = row2$
  				row2$ = row1$
  				row1$ = cline$
  				cline$ = \"\"
				End If 		
	EndIf
	
	Color 200,200,200
	SetFont console_font
	Text 10,462,process$                           	

End Function

Dim message$(anz) 

Graphics	640, 480



FlushKeys()



Global	consoleInput$
Global	consoleEntries
Global	consoleMaxEntries = 3
Global	consoleMaxChars = 360



Type	t_consoleEntrie
Field	txt$
End Type



Repeat

	Cls
	updateConsole(GetKey())
	displayConsole(20, 20)
	Flip

Until KeyDown(1) : End



Function	updateConsole(key)

	If key >= 32 And key <= 255
	If Len(consoleInput) < consoleMaxChars
	
	consoleInput = consoleInput + Chr(key)

	EndIf
	EndIf
	
	
	
	If key = 8
	If Len(consoleInput) > 0
	
	consoleInput = Left(consoleInput, Len(consoleInput) - 1)
	
	EndIf
	EndIf
	


	If key = 13
	
	n.t_consoleEntrie = New t_consoleEntrie
	n\txt = consoleInput
	consoleInput = \"\"
	consoleEntries = consoleEntries + 1
	
	EndIf



	While consoleEntries >= consoleMaxEntries
	
	Delete First t_consoleEntrie
	consoleEntries = consoleEntries - 1
	
	Wend

End Function



Function	displayConsole(x, y)

	For n.t_consoleEntrie = Each t_consoleEntrie

	Text x, y, n\txt
	y = y + StringHeight(\"\")
		
	Next



	Text x, y, \">> \" + consoleInput

End Function