gforth/tt.fs - diff

Return to tt.fs CVS log

Up to [gforth] / gforth

version 1.1, 1994/11/29 16:49:49	version 1.5, 2006/12/30 20:06:26
Line 11	Line 11
\	\

only forth also definitions	only forth also definitions
\ s" forget-tt" drop 1- find nip [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
Line 345 create brick-val 1 c, 2 c, 3 c, 3 c, 4 c	Line 347 create brick-val 1 c, 2 c, 3 c, 3 c, 4 c
begin 4 0	begin 4 0
do 35 13 at-xy	do 35 13 at-xy
delay @ ms key?	delay @ ms key?
if interaction 0=	if interaction 0=
if unloop exit then	if unloop exit then
then	then
loop	loop