gforth/termsize.fs - diff

Return to termsize.fs CVS log

Up to [gforth] / gforth

version 1.2, 1996/01/25 16:45:56	version 1.4, 1998/12/08 22:02:52
Line 1	Line 1
\ terminal size stuff	\ terminal size stuff

\ Copyright (C) 1996 Free Software Foundation, Inc.	\ Copyright (C) 1996,1997 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

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]