version 1.10, 1999/02/03 00:10:26
|
version 1.11, 1999/02/21 14:55:45
|
Line 46 FF Constant /line
|
Line 46 FF Constant /line
|
400 Constant chars/block |
400 Constant chars/block |
|
|
$20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u ) |
$20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u ) |
|
create holdbuf word-pno-size chars allot |
|
holdbuf word-pno-size chars + aconstant holdbuf-end |
|
avariable holdptr holdbuf-end holdptr a! |
|
|
84 constant pad-minsize ( -- u ) |
84 constant pad-minsize ( -- u ) |
|
|
|
|
\ that's enough so long |
\ that's enough so long |
|
|
\ User variables 13feb93py |
\ User variables 13feb93py |