[gforth] / gforth / vt100key.fs

gforth: gforth/vt100key.fs

1 :	pazsan	1.1	\ MS-DOS key interpreter 17oct94py
2 :
3 :			Create translate $100 allot
4 :			translate $100 erase
5 :
6 :			: trans: char translate + c! ;
7 :
8 :			: vt100-decode ( max span addr pos1 -- max span addr pos2 flag )
9 :			key '[ = IF key translate + c@ dup IF decode THEN
10 :			ELSE 0 THEN ;
11 :
12 :			ctrl B trans: D
13 :			ctrl F trans: C
14 :			ctrl P trans: A
15 :			ctrl N trans: B
16 :
17 :			' vt100-decode ctrlkeys $1B cells + !