|  | #module \
Keyboard
#deffunc local \
Show
	showing = True
	text = ""
	Return
#deffunc local \
Hide
	showing = False
	Return
#defcfunc local \
GetChar \
		local	l_ids,\
		local	l_touchInfo
	if showing = False {
		Return ""
	}
	MTList l_id
	If stat = 0 {
		Return ""
	}
	MTInfo l_touchInfo, l_id.0
	If l_touchInfo.2 < 1920 - 480 {
		Return ""
	}
	NoteSel charDict
		;text += l_
	NoteUnsel
	;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
 |