--- gforth/prim	1998/11/22 23:18:09	1.15
+++ gforth/prim	1998/12/11 22:54:27	1.17
@@ -1,6 +1,6 @@
 \ Gforth primitives
 
-\ Copyright (C) 1995,1996 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -1369,15 +1369,23 @@ n=1;
 :
  1 ;
 
-\+os
-
 key-file	wfileid -- n		gforth	paren_key_file
+#ifdef HAS_FILE
 fflush(stdout);
 n = key((FILE*)wfileid);
+#else
+n = key(stdin);
+#endif
 
 key?-file	wfileid -- n		facility	key_q_file
+#ifdef HAS_FILE
 fflush(stdout);
 n = key_query((FILE*)wfileid);
+#else
+n = key_query(stdin);
+#endif
+
+\+os
 
 stdin	-- wfileid	gforth
 wfileid = (Cell)stdin;
@@ -1596,12 +1604,17 @@ write-file	c_addr u1 wfileid -- wior	fil
     clearerr((FILE *)wfileid);
 }
 
+\+
+
 emit-file	c wfileid -- wior	gforth	emit_file
+#ifdef HAS_FILE
 wior = FILEIO(putc(c, (FILE *)wfileid)==EOF);
 if (wior)
   clearerr((FILE *)wfileid);
+#else
+putc(c, stdout);
+#endif
 
-\+
 \+file
 
 flush-file	wfileid -- wior		file-ext	flush_file
@@ -2073,4 +2086,3 @@ UP=up=(char *)a_addr;
 :
  up ! ;
 Variable UP
-