Diff for /gforth/tt.fs between versions 1.2 and 1.4

version 1.2, 1994/12/21 14:26:26 version 1.4, 2000/09/03 22:29:16
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 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

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


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