![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to termsize.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to termsize.fs CVS log | Up to [gforth] / gforth |
| version 1.2, 1996/01/25 16:45:56 | version 1.3, 1997/07/06 14:11:22 |
|---|---|
| Line 21 | Line 21 |
| \ # rows and columns that the terminal has. | \ # rows and columns that the terminal has. |
| \ these words are also present in PFE. | \ these words are also present in PFE. |
| [IFUNDEF] form : form &24 &80 ; [THEN] | |
| [IFUNDEF] rows | |
| : rows ( -- u ) | : rows ( -- u ) |
| form drop ; | form drop ; |
| : cols ( -- u ) | : cols ( -- u ) |
| form nip ; | form nip ; |
| [THEN] |