version 1.122, 2005/12/25 12:55:18
|
version 1.123, 2005/12/31 15:46:14
|
Line 1
|
Line 1
|
\ definitions needed for interpreter only |
\ definitions needed for interpreter only |
|
|
\ Copyright (C) 1995-2000,2004 Free Software Foundation, Inc. |
\ Copyright (C) 1995-2000,2004,2005 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 962 Defer mark-end
|
Line 962 Defer mark-end
|
|
|
: (bootmessage) |
: (bootmessage) |
." Gforth " version-string type |
." Gforth " version-string type |
." , Copyright (C) 1995-2004 Free Software Foundation, Inc." cr |
." , Copyright (C) 1995-2004,2005 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" |