|
version 1.87, 2003/01/10 21:43:41
|
version 1.88, 2003/01/18 22:00:21
|
|
Line 875 Defer dobacktrace ( -- )
|
Line 875 Defer dobacktrace ( -- )
|
| |
|
| : (bootmessage) |
: (bootmessage) |
| ." GForth " version-string type |
." GForth " version-string type |
| ." , Copyright (C) 1995-2000 Free Software Foundation, Inc." cr |
." , Copyright (C) 1995-2003 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" |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to int.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel