Annotation of gforth/vt100key.fs, revision 1.1
1.1 ! pazsan 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 + !
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>