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

version 1.2, 1994/12/21 14:26:26 version 1.3, 1997/10/04 17:33:54
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.3


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