Return to doskey.fs CVS log | Up to [gforth] / gforth |
doskey.fs translates DOS-PC keys into emacs-keys (like cursor and home/end keys)
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 !