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.3, 1997/10/04 17:33:54
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	s" forget-tt" sfind [if] forget-tt [then] marker forget-tt

vocabulary tetris tetris also definitions	vocabulary tetris tetris also definitions

Line 345 create brick-val 1 c, 2 c, 3 c, 3 c, 4 c	Line 345 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