#module \
Keyboard

#deffunc local \
Show
	showing = True
	text = ""

	Return

#deffunc local \
Hide
	showing = False

	Return

#defcfunc local \
GetChar
	if showing = False {
		Return ""
	}

	; text += charDict

	Return ""

#deffunc local \
Draw
	If showing = False {
		Return
	}

	Color COLOUR_BLACK
	BoxF 0, 1920 - 480, 1080, 1920

	Repeat 50
		Pos 1080 - 96 * (cnt / 5 + 1), 1920 - 480 + 96 * (cnt \ 5)
		CelPut BUFFER_CHAR, cnt, 3, 3
	Loop

	Return

#global