--- gforth/kernel/saccept.fs	2007/12/31 19:02:25	1.16
+++ gforth/kernel/saccept.fs	2010/06/10 09:50:03	1.17
@@ -44,3 +44,12 @@ Variable echo  -1 echo !
    THEN 
   AGAIN ;
   
+: refill-loop ( -- )
+    BEGIN  3 emit refill  WHILE  interpret  REPEAT ;   
+: included ( addr u -- )
+    2 emit dup $20 + emit type
+    echo @ IF
+	echo off ['] refill-loop catch
+	dup IF  4 emit  THEN  echo on  throw
+    THEN ;
+: include ( "file" -- )  parse-name included ;