![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to blocks.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to blocks.fs CVS log | Up to [gforth] / gforth |
| version 1.60, 2012/02/16 17:13:04 | version 1.62, 2012/12/31 15:25:17 |
|---|---|
| Line 1 | Line 1 |
| \ A less simple implementation of the blocks wordset. | \ A less simple implementation of the blocks wordset. |
| \ Copyright (C) 1995,1996,1997,1998,2000,2003,2006,2007,2008,2011 Free Software Foundation, Inc. | \ Copyright (C) 1995,1996,1997,1998,2000,2003,2006,2007,2008,2011,2012 Free Software Foundation, Inc. |
| \ This file is part of Gforth. | \ This file is part of Gforth. |
| 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 |