![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to history.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to history.fs CVS log | Up to [gforth] / gforth |
| version 1.59, 2007/07/01 11:32:44 | version 1.60, 2007/07/01 18:32:11 |
|---|---|
| Line 205 Variable screenw | Line 205 Variable screenw |
| : cygwin? ( -- flag ) s" TERM" getenv s" cygwin" str= ; | : cygwin? ( -- flag ) s" TERM" getenv s" cygwin" str= ; |
| : at-xy? ( -- x y ) | : at-xy? ( -- x y ) |
| key? drop \ make sure prep_terminal() is executed | |
| #esc emit ." [6n" 0 0 | #esc emit ." [6n" 0 0 |
| BEGIN key dup 'R <> WHILE | BEGIN key dup 'R <> WHILE |
| dup '; = IF drop swap ELSE | dup '; = IF drop swap ELSE |