45 行
464 B
Plaintext
45 行
464 B
Plaintext
#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
|
|
|