Return to %KEYTEST.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Initial revision

%KEYTEST ; A.Trocha ; test-proggy for keyb-handler [1999/01/29- 6:18:59]
	; $Source: /home/cvsroot/freem/contrib/%KEYTEST.m,v $
	; $Revision: 1.1 $ $Date: 2025/01/19 02:04:04 $
	N timeout,mode
	S mode=1
	S timeout=""
	W !!,"testprogram for keyboard handler (ESC => quit)"
	W !!,"timeout = none"
	W !,"mode = interpret"
	W !!
	F  D
	. S result=$$^%KEY(timeout,mode)
	. W !,result
	Q