--- gforth/arch/misc/tt.fs	1998/05/02 21:28:57	1.2
+++ gforth/arch/misc/tt.fs	2006/03/12 21:30:24	1.5
@@ -18,9 +18,7 @@ variable loops/ms
 : ms  0 ?DO  loops/ms @ 0 ?DO LOOP LOOP ;
 : blank  bl fill ;
 
-Create pn-tab ," 000102030405060708091011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980"
-
-: pn    ( n -- )  2* pn-tab 1+ + 2 type ;
+: pn    ( n -- )  0 <# # # #> type ;
 : ;pn   [char] ; emit pn ;
 : ESC[  27 emit [char] [ emit ;
 : at-xy 1+ swap 1+ swap ESC[ pn ;pn [char] H emit ;
@@ -175,8 +173,8 @@ DOES>	1+ rot 2* 2* rot + 2* + ;
 Create scratch	,"                                 "
 DOES>	1+ rot 2* 2* rot + 2* + ;
 
-create bricks	brick1 1 + ,  brick2 1 + ,  brick3 1 + ,  brick4 1 + ,
-		brick5 1 + ,  brick6 1 + ,  brick7 1 + ,
+create bricks	brick1 1 + a,  brick2 1 + a,  brick3 1 + a,  brick4 1 + a,
+		brick5 1 + a,  brick6 1 + a,  brick7 1 + a,
 
 create brick-val 1 c, 2 c, 3 c, 3 c, 4 c, 5 c, 5 c,
 
@@ -260,7 +258,7 @@ create brick-val 1 c, 2 c, 3 c, 3 c, 4 c
 		else  false  then ;
 
 : drop-brick	\ --- ; move brick down fast
-		begin  1 0 move-brick 0=  until ;
+		begin  1 0 move-brick key? drop 0=  until ;
 
 : move-line	\ from to ---
 		over 0 pit  over 0 pit  wide 2*  cmove  draw-line