Diff for /gforth/arch/misc/tt.fs between versions 1.2 and 1.3

version 1.2, 1998/05/02 21:28:57 version 1.3, 1998/07/05 20:50:02
Line 260  create brick-val 1 c, 2 c, 3 c, 3 c, 4 c Line 260  create brick-val 1 c, 2 c, 3 c, 3 c, 4 c
                 else  false  then ;                  else  false  then ;
   
 : drop-brick    \ --- ; move brick down fast  : 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 ---  : move-line     \ from to ---
                 over 0 pit  over 0 pit  wide 2*  cmove  draw-line                  over 0 pit  over 0 pit  wide 2*  cmove  draw-line

Removed from v.1.2  
changed lines
  Added in v.1.3


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>