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 |