Diff for /gforth/blocks.fs between versions 1.60 and 1.61

version 1.60, 2012/02/16 17:13:04 version 1.61, 2012/05/26 10:20:01
Line 208  User scr ( -- a-addr ) \ block-ext s-c-r Line 208  User scr ( -- a-addr ) \ block-ext s-c-r
     dup scr !      dup scr !
     ." Screen " u.      ." Screen " u.
     scr @ updated?  0= IF ." not "  THEN  ." modified     " cr      scr @ updated?  0= IF ." not "  THEN  ." modified     " cr
     16 0      l/s 0
     ?do      ?do
         i 2 .r space scr @ block i 64 * chars + 64 type cr          i 2 .r space scr @ block i c/l * chars + c/l type cr
     loop ;      loop ;
   
 [IFDEF] current-input  [IFDEF] current-input

Removed from v.1.60  
changed lines
  Added in v.1.61


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