version 1.171, 2009/09/06 22:43:23
|
version 1.172, 2009/12/31 15:32:36
|
Line 1
|
Line 1
|
\ definitions needed for interpreter only |
\ definitions needed for interpreter only |
|
|
\ Copyright (C) 1995-2000,2004,2005,2007 Free Software Foundation, Inc. |
\ Copyright (C) 1995-2000,2004,2005,2007,2009 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 1062 Defer mark-end
|
Line 1062 Defer mark-end
|
|
|
: (bootmessage) ( -- ) |
: (bootmessage) ( -- ) |
." Gforth " version-string type |
." Gforth " version-string type |
." , Copyright (C) 1995-2008 Free Software Foundation, Inc." cr |
." , Copyright (C) 1995-2009 Free Software Foundation, Inc." cr |
." Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'" |
." Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'" |
[ has? os [IF] ] |
[ has? os [IF] ] |
cr ." Type `bye' to exit" |
cr ." Type `bye' to exit" |