version 1.117, 2005/01/09 20:32:41
|
version 1.118, 2005/01/22 21:06:04
|
Line 950 Defer mark-end
|
Line 950 Defer mark-end
|
|
|
: (bootmessage) |
: (bootmessage) |
." Gforth " version-string type |
." Gforth " version-string type |
." , Copyright (C) 1995-2003,2004 Free Software Foundation, Inc." cr |
." , Copyright (C) 1995-2004 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" |