ты меня очень напугал своим кодом, ну и идеями..
вот держи простой код для консоли
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