[gforth] / gforth / doskey.fs

gforth: gforth/doskey.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 :			: dos-decode ( max span addr pos1 -- max span addr pos2 flag )
9 :			key translate + c@ dup IF decode THEN ;
10 :
11 :			ctrl B trans: K
12 :			ctrl F trans: M
13 :			ctrl P trans: H
14 :			ctrl N trans: P
15 :			ctrl A trans: G
16 :			ctrl E trans: O
17 :
18 :			' dos-decode ctrlkeys !