gforth/tt.fs - diff

Return to tt.fs CVS log

Up to [gforth] / gforth

version 1.3, 1997/10/04 17:33:54	version 1.5, 2006/12/30 20:06:26
Line 11	Line 11
\	\

only forth also definitions	only forth also definitions
s" forget-tt" sfind [if] forget-tt [then] marker forget-tt	[ifdef] forget-tt forget-tt [then] marker forget-tt

vocabulary tetris tetris also definitions	vocabulary tetris tetris also definitions

Line 312 create brick-val 1 c, 2 c, 3 c, 3 c, 4 c	Line 312 create brick-val 1 c, 2 c, 3 c, 3 c, 4 c
again ;	again ;

: to-upper \ char --- char ; convert to upper case	: to-upper \ char --- char ; convert to upper case
dup [char] a >= over [char] z <= and if bl - then ;	dup [char] a [char] z 1+ within if
	bl -
	then ;

: interaction \ --- flag	: interaction \ --- flag
case key to-upper	case key to-upper