![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tools.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to tools.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.2, 1997/07/06 15:56:17 | version 1.3, 1998/05/02 21:29:10 |
|---|---|
| Line 74 include termsize.fs | Line 74 include termsize.fs |
| BEGIN | BEGIN |
| @ dup | @ dup |
| WHILE | WHILE |
| 2dup head>string nip 2 + dup >r + | 2dup name>string nip 2 + dup >r + |
| cols >= | cols >= |
| IF | IF |
| cr nip 0 swap | cr nip 0 swap |
| THEN | THEN |
| dup head>string type space r> rot + swap | dup name>string type space r> rot + swap |
| REPEAT | REPEAT |
| 2drop ; | 2drop ; |