Return to %KEYTEST.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%KEYTEST.m, revision 1.1

1.1     ! snw         1: %KEYTEST ; A.Trocha ; test-proggy for keyb-handler [1999/01/29- 6:18:59]
        !             2:        ; $Source: /cvsroot-fuse/gump/FreeM/mlib/%KEYTEST.m,v $
        !             3:        ; $Revision: 1.2 $ $Date: 2000/02/18 15:13:41 $
        !             4:        N timeout,mode
        !             5:        S mode=1
        !             6:        S timeout=""
        !             7:        W !!,"testprogram for keyboard handler (ESC => quit)"
        !             8:        W !!,"timeout = none"
        !             9:        W !,"mode = interpret"
        !            10:        W !!
        !            11:        F  D
        !            12:        . S result=$$^%KEY(timeout,mode)
        !            13:        . W !,result
        !            14:        Q