| 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 |
| ." 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 ) |
| |
|
| : +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 |
