version 1.2, 1994/12/21 14:26:26
|
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 |
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 |