|
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 |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to vars.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel