[Владислав]

ты меня очень напугал своим кодом, ну и идеями..

вот держи простой код для консоли

Global CON_ENTERED$

Function DrawConsole()
	If CON_VISIBLE Char$ = xGetKey()
			
		If xKeyDown(14); backspace
			If Not CON_ENTERED = "" CON_ENTERED = Left(CON_ENTERED, Len(CON_ENTERED) - 1)
			Return False
		End If
	
		If xKeyHit(28); enter
			execute(CON_ENTERED)
			CON_ENTERED = ""
			Return False
		End If
	
		If Char CON_ENTERED = CON_ENTERED + Chr(Char)
	
		xText 10, 10, ">: " + CON_ENTERED
		
	End If
End Function

Function execute(command$)
         ; Тут с помощью select command
End Function