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>