version 1.3, 1997/03/19 18:27:12
|
version 1.4, 1997/07/06 14:11:21
|
Line 18
|
Line 18
|
\ along with this program; if not, write to the Free Software |
\ along with this program; if not, write to the Free Software |
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
|
|
|
[IFUNDEF] linked \ defined by chains.fs?! |
: linked here over @ a, swap ! ; |
: linked here over @ a, swap ! ; |
|
[THEN] |
|
|
: ERR" ( n -- ) |
: ERR" ( n -- ) |
ErrLink linked |
ErrLink linked |
Line 85 decimal
|
Line 87 decimal
|
-56 ERR" QUIT" |
-56 ERR" QUIT" |
-57 ERR" Error in sending or receiving a character" |
-57 ERR" Error in sending or receiving a character" |
-58 ERR" [IF], [ELSE], [THEN] error" |
-58 ERR" [IF], [ELSE], [THEN] error" |
|
|
|
|