version 1.12, 1994/07/21 10:52:44
|
version 1.13, 1994/07/27 13:37:02
|
Line 1105 create nl$ 1 c, A c, 0 c, \ gnu includes
|
Line 1105 create nl$ 1 c, A c, 0 c, \ gnu includes
|
|
|
\ */MOD */ 17may93jaw |
\ */MOD */ 17may93jaw |
|
|
|
\ !! I think */mod should have the same rounding behaviour as / - anton |
: */mod >r m* r> sm/rem ; |
: */mod >r m* r> sm/rem ; |
|
|
: */ */mod nip ; |
: */ */mod nip ; |
Line 1227 Variable argc
|
Line 1228 Variable argc
|
dup >r DoError cr r> negate (bye) |
dup >r DoError cr r> negate (bye) |
THEN |
THEN |
THEN |
THEN |
." GNU Forth 0.0alpha, Copyright (C) 1994 Free Software Foundation" cr |
cr |
." GNU Forth comes with ABSOLUTELY NO WARRANTY; for details type `license'" |
." GNU Forth 0.0alpha, Copyright (C) 1994 Free Software Foundation, Inc." cr |
cr quit ; |
." GNU Forth comes with ABSOLUTELY NO WARRANTY; for details type `license'" cr |
|
." Type `bye' to exit" |
|
quit ; |
|
|
: license ( -- ) cr |
: license ( -- ) cr |
." This program is free software; you can redistribute it and/or modify" cr |
." This program is free software; you can redistribute it and/or modify" cr |
." it under the terms of the GNU General Public License as published by" cr |
." it under the terms of the GNU General Public License as published by" cr |
." the Free Software Foundation; either version 1, or (at your option)" cr |
." the Free Software Foundation; either version 2 of the License, or" cr |
." any later version." cr cr |
." (at your option) any later version." cr cr |
|
|
." This program is distributed in the hope that it will be useful," cr |
." This program is distributed in the hope that it will be useful," cr |
." but WITHOUT ANY WARRANTY; without even the implied warranty of" cr |
." but WITHOUT ANY WARRANTY; without even the implied warranty of" cr |