Return to history.fs CVS log | Up to [gforth] / gforth |
version 1.70, 2008/02/12 16:44:58 | version 1.71, 2008/05/07 20:38:46 |
---|---|
Line 206 require utf-8.fs | Line 206 require utf-8.fs |
[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 |