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 |