Oneka

MAKE_TEXT_SYSTEM(2,50)
DO
	TEXT_SYSTEM()
LOOP

FUNCTION TEXT_SYSTEM()
	DREAMENGINE_CONSOLE_INPUTSCROLL("TEXT_SYSTEM_TABLE_CREATED: "+STR$(TEXT_SYSTEM_TABLE_CREATED))
	IF TEXT_TABLE_CREATED = 1
		DREAMENGINE_CONSOLE_INPUTSCROLL("IT GETS HERE 0")
		FOR T = 1 TO ARRAY COUNT(TEXTSYSTEM(0))
			DREAMENGINE_CONSOLE_INPUTSCROLL("IT GETS HERE 1")
			IF TEXTSYSTEM(T).EXISTS = 1 AND TEXTSYSTEM(T).HIDDEN = 0
				DREAMENGINE_CONSOLE_INPUTSCROLL("IT GETS HERE 2")
			ENDIF
		NEXT T
	ENDIF
ENDFUNCTION

FUNCTION MAKE_TEXT_SYSTEM(NUMBER,MAXSIZE)
	IF TEXT_TABLE_CREATED = 0
		TEXT_TABLE_CREATED = 1
		DREAMENGINE_CONSOLE_INPUTSCROLL("MADE TEXT SYSTEM ARRAYS")
		DREAMENGINE_CONSOLE_INPUTSCROLL("TEXT_SYSTEM_TABLE_CREATED: "+STR$(TEXT_SYSTEM_TABLE_CREATED))
	ENDIF
ENDFUNCTION