version 1.8, 1995/01/30 18:47:45
|
version 1.10, 1995/07/06 15:57:27
|
Line 70 decimal
|
Line 70 decimal
|
|
|
\ ERASE 17may93jaw |
\ ERASE 17may93jaw |
|
|
: erase ( 0 1 chars um/mod nip ) 0 fill ; |
: erase ( addr len -- ) ( 0 1 chars um/mod nip ) 0 fill ; |
: blank ( 0 1 chars um/mod nip ) bl fill ; |
: blank ( addr len -- ) ( 0 1 chars um/mod nip ) bl fill ; |
|
|
\ SEARCH 02sep94py |
\ SEARCH 02sep94py |
|
|
Line 85 decimal
|
Line 85 decimal
|
|
|
\ ROLL 17may93jaw |
\ ROLL 17may93jaw |
|
|
: roll dup 1+ pick >r |
: roll ( x0 x1 .. xn n -- x1 .. xn x0 ) |
cells sp@ cell+ dup cell+ rot move drop r> ; |
dup 1+ pick >r |
|
cells sp@ cell+ dup cell+ rot move drop r> ; |
|
|
\ SOURCE-ID SAVE-INPUT RESTORE-INPUT 11jun93jaw |
\ SOURCE-ID SAVE-INPUT RESTORE-INPUT 11jun93jaw |
|
|
Line 120 decimal
|
Line 121 decimal
|
variable span |
variable span |
|
|
: expect ( c-addr +len -- ) |
: expect ( c-addr +len -- ) |
0 rot over |
0 rot over |
BEGIN key decode >r 2over = r> or UNTIL |
BEGIN ( maxlen span c-addr pos1 ) |
2drop nip span ! ; |
key decode ( maxlen span c-addr pos2 flag ) |
|
>r 2over = r> or |
|
UNTIL |
|
type-rest drop |
|
2drop nip span ! ; |
|
|