--- gforth/prim	1998/07/28 12:29:37	1.10
+++ gforth/prim	1998/11/08 23:08:04	1.14
@@ -1177,7 +1177,7 @@ c_addr2 = c_addr1+1;
  dup 1+ swap c@ ;
 
 (f83find)	c_addr u f83name1 -- f83name2	new	paren_f83find
-for (; f83name1 != NULL; f83name1 = f83name1->next)
+for (; f83name1 != NULL; f83name1 = (struct F83Name *)(f83name1->next))
   if ((UCell)F83NAME_COUNT(f83name1)==u &&
       memcasecmp(c_addr, f83name1->name, u)== 0 /* or inline? */)
     break;
@@ -1194,11 +1194,11 @@ f83name2=f83name1;
 \+has? hash [IF]
 
 (hashfind)	c_addr u a_addr -- f83name2	new	paren_hashfind
-F83Name *f83name1;
+struct F83Name *f83name1;
 f83name2=NULL;
 while(a_addr != NULL)
 {
-   f83name1=(F83Name *)(a_addr[1]);
+   f83name1=(struct F83Name *)(a_addr[1]);
    a_addr=(Cell *)(a_addr[0]);
    if ((UCell)F83NAME_COUNT(f83name1)==u &&
        memcasecmp(c_addr, f83name1->name, u)== 0 /* or inline? */)
@@ -1217,11 +1217,11 @@ while(a_addr != NULL)
 
 (tablefind)	c_addr u a_addr -- f83name2	new	paren_tablefind
 ""A case-sensitive variant of @code{(hashfind)}""
-F83Name *f83name1;
+struct F83Name *f83name1;
 f83name2=NULL;
 while(a_addr != NULL)
 {
-   f83name1=(F83Name *)(a_addr[1]);
+   f83name1=(struct F83Name *)(a_addr[1]);
    a_addr=(Cell *)(a_addr[0]);
    if ((UCell)F83NAME_COUNT(f83name1)==u &&
        memcmp(c_addr, f83name1->name, u)== 0 /* or inline? */)
@@ -1371,14 +1371,16 @@ n=1;
 
 \+has? os [IF]
 
-(key)	-- n		gforth	paren_key
+key-file	wfileid -- n		gforth	paren_key_file
 fflush(stdout);
-/* !! noecho */
-n = key();
+n = key((FILE*)wfileid);
 
-key?	-- n		facility	key_q
+key?-file	wfileid -- n		facility	key_q_file
 fflush(stdout);
-n = key_query;
+n = key_query((FILE*)wfileid);
+
+stdin	-- wfileid	gforth
+wfileid = (Cell)stdin;
 
 stdout	-- wfileid	gforth
 wfileid = (Cell)stdout;
@@ -1500,6 +1502,10 @@ wior = IOR(fclose((FILE *)wfileid)==EOF)
 
 open-file	c_addr u ntype -- w2 wior	file	open_file
 w2 = (Cell)fopen(tilde_cstr(c_addr, u, 1), fileattr[ntype]);
+#if defined(GO32) && defined(MSDOS)
+if(w2 && !(ntype & 1))
+  setbuf((FILE*)w2, NULL);
+#endif
 wior =  IOR(w2 == 0);
 
 create-file	c_addr u ntype -- w2 wior	file	create_file
@@ -1507,6 +1513,10 @@ Cell	fd;
 fd = open(tilde_cstr(c_addr, u, 1), O_CREAT|O_TRUNC|ufileattr[ntype], 0666);
 if (fd != -1) {
   w2 = (Cell)fdopen(fd, fileattr[ntype]);
+#if defined(GO32) && defined(MSDOS)
+  if(w2 && !(ntype & 1))
+    setbuf((FILE*)w2, NULL);
+#endif
   wior = IOR(w2 == 0);
 } else {
   w2 = 0;
@@ -1529,7 +1539,6 @@ reposition-file	ud wfileid -- wior	file
 wior = IOR(fseek((FILE *)wfileid, UD2LONG(ud), SEEK_SET)==-1);
 
 file-size	wfileid -- ud wior	file	file_size
-#include <sys/stat.h>
 struct stat buf;
 wior = IOR(fstat(fileno((FILE *)wfileid), &buf)==-1);
 ud = LONG2UD(buf.st_size);
@@ -1980,6 +1989,11 @@ f>l	r --	gforth	f_to_l
 lp -= sizeof(Float);
 *(Float *)lp = r;
 
+fpick	u -- r		gforth
+r = fp[u+1]; /* +1, because update of fp happens before this fragment */
+:
+ floats fp@ + f@ ;
+
 \+[THEN]  [THEN] \ has? glocals
 
 \+has? OS [IF]