[BACK]Return to %KEYTEST.m CVS log [TXT] [DIR] Up to [Coherent Logic Development] / freem / contrib
File:  [Coherent Logic Development] / freem / contrib / %KEYTEST.m
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Sun Jan 19 02:04:04 2025 UTC (6 months, 1 week ago) by snw
Branches: MAIN, CoherentLogicDevelopment
CVS tags: v0-63-1-rc1, v0-63-0-rc1, v0-63-0, v0-62-3, v0-62-2, v0-62-1, v0-62-0, start, HEAD
FreeM

    1: %KEYTEST ; A.Trocha ; test-proggy for keyb-handler [1999/01/29- 6:18:59]
    2: 	; $Source: /home/cvsroot/freem/contrib/%KEYTEST.m,v $
    3: 	; $Revision: 1.1.1.1 $ $Date: 2025/01/19 02:04:04 $
    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
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>