| \ command line edit and history support 16oct94py |
\ command line edit and history support 16oct94py |
| |
|
| \ Copyright (C) 1995,2000,2003,2004,2005,2006,2007 Free Software Foundation, Inc. |
\ Copyright (C) 1995,2000,2003,2004,2005,2006,2007,2008 Free Software Foundation, Inc. |
| |
|
| \ This file is part of Gforth. |
\ This file is part of Gforth. |
| |
|
| |
|
| [IFUNDEF] #esc 27 Constant #esc [THEN] |
[IFUNDEF] #esc 27 Constant #esc [THEN] |
| |
|
| : at-deltaxy ( dx dy -- ) base @ >r decimal |
: at-deltaxy ( dx dy -- ) |
| |
over 0< over 0= and IF drop abs backspaces EXIT THEN |
| |
base @ >r decimal |
| ?dup IF |
?dup IF |
| #esc emit '[ emit dup abs 0 .r 0< IF 'A ELSE 'B THEN emit |
#esc emit '[ emit dup abs 0 .r 0< IF 'A ELSE 'B THEN emit |
| THEN |
THEN |
