version 1.162, 2008/02/10 16:46:55
|
version 1.163, 2008/07/15 15:23:42
|
Line 1036 Defer mark-end
|
Line 1036 Defer mark-end
|
|
|
: (bootmessage) ( -- ) |
: (bootmessage) ( -- ) |
." Gforth " version-string type |
." Gforth " version-string type |
." , Copyright (C) 1995-2006,2007 Free Software Foundation, Inc." cr |
." , Copyright (C) 1995-2008 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" |