Return to %KEYTEST.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%KEYTEST.m, revision 1.1.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