version 1.37, 1995/06/03 14:24:44
|
version 1.39, 1995/08/29 21:07:35
|
Line 1148 Defer key
|
Line 1148 Defer key
|
\ Query 07apr93py |
\ Query 07apr93py |
|
|
: refill ( -- flag ) |
: refill ( -- flag ) |
blk @ IF 1 blk +! true EXIT THEN |
blk @ IF 1 blk +! true 0 >in ! EXIT THEN |
tib /line |
tib /line |
loadfile @ ?dup |
loadfile @ ?dup |
IF read-line throw |
IF read-line throw |
Line 1530 Defer 'cold ' noop IS 'cold
|
Line 1530 Defer 'cold ' noop IS 'cold
|
THEN |
THEN |
THEN |
THEN |
cr |
cr |
." GNU Forth 0.0alpha, Copyright (C) 1994 Free Software Foundation, Inc." cr |
." GNU Forth " version-string type ." , Copyright (C) 1994 Free Software Foundation, Inc." cr |
." GNU Forth comes with ABSOLUTELY NO WARRANTY; for details type `license'" cr |
." GNU Forth comes with ABSOLUTELY NO WARRANTY; for details type `license'" cr |
." Type `bye' to exit" |
." Type `bye' to exit" |
loadline off quit ; |
loadline off quit ; |