--- gforth/stuff.fs	2003/03/22 10:04:07	1.32
+++ gforth/stuff.fs	2004/05/08 17:14:30	1.33
@@ -275,3 +275,9 @@ AUser CSP
 	10e f*
     loop ;
 [then]
+
+: f.s ( -- ) \ gforth f-dot-s
+    \G Display the number of items on the floating-point stack,
+    \G followed by a list of the items; TOS is the right-most item.
+    ." <" fdepth 0 .r ." > " fdepth 0 max maxdepth-.s @ min dup 0 
+    ?DO  dup i - 1- floats fp@ + f@ 16 5 11 f.rdp space LOOP  drop ;