13 create KBD_downbuf 80 alloc
\r
20 [ KBD_downbuf 80 - ] + 0 swap c!
\r
22 dup KBD_downbuf + 1 swap c! done
\r
29 : KBD_down? ( KeyScanCode -- result )
\r
34 str \listF\listLIB\5TH_KBD_USDVORAK" tmp1
\r
35 str \listF\listLIB\5TH_KBD_US" tmp2
\r
37 .( Select keyboard layout, by pressing appropriate number. )
\r
44 dup 2 = if tmp1 swap done then
\r
45 dup 3 = if tmp2 swap done then
\r
61 dup 1 = if done then
\r
69 : KBD_SC2FSCII ( ScanCode -- FSCII )
\r
70 KBD_table swap until \ addr code
\r
84 2A KBD_down? if 100 + then
\r
85 38 KBD_down? if 200 + then
\r
91 dup -1 = if drop else done then
\r