Return to doskey.fs CVS log

Up to [gforth] / gforth

Annotation of gforth/doskey.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: : 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 !