\ Sample Application Program

from sample.lib	require on
		require off
		require case?

: cursormove ( k -- f )
	[CHAR] j case? IF down  EXIT THEN
	[CHAR] k case? IF up    EXIT THEN
        [CHAR] h case? IF left  EXIT THEN
        [CHAR] l case? IF right EXIT THEN
        #insert  case? IF insert-mode on EXIT THEN

	... ;