version 1.3, 1995/02/09 17:49:54
|
version 1.4, 1995/04/20 09:42:45
|
Line 36 variable buffer-dirty buffer-dirty off
|
Line 36 variable buffer-dirty buffer-dirty off
|
buffer-dirty on ; |
buffer-dirty on ; |
|
|
: save-buffers ( -- ) |
: save-buffers ( -- ) |
buffer-dirty @ |
buffer-dirty @ buffer-block @ 0<> and |
if |
if |
buffer-block @ block-position |
buffer-block @ block-position |
block-buffer chars/block get-block-fid write-file throw |
block-buffer chars/block get-block-fid write-file throw |
Line 78 User scr 0 scr !
|
Line 78 User scr 0 scr !
|
." Screen " u. cr |
." Screen " u. cr |
16 0 |
16 0 |
?do |
?do |
scr @ block i 64 * chars + 64 type cr |
i 2 .r space scr @ block i 64 * chars + 64 type cr |
loop ; |
loop ; |
|
|
: (source) ( -- addr len ) |
: (source) ( -- addr len ) |
Line 101 User scr 0 scr !
|
Line 101 User scr 0 scr !
|
|
|
: +thru ( i*x n1 n2 -- j*x ) |
: +thru ( i*x n1 n2 -- j*x ) |
1+ swap 0 ?DO I +load LOOP ; |
1+ swap 0 ?DO I +load LOOP ; |
|
|
|
get-current environment-wordlist set-current |
|
true constant block |
|
true constant block-ext |
|
set-current |