[gforth] / gforth / blocks.fs  

gforth: gforth/blocks.fs

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

version 1.60, Thu Feb 16 17:13:04 2012 UTC version 1.61, Sat May 26 10:20:01 2012 UTC
Line 208 
Line 208 
     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

Generate output suitable for use with a patch program
Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help