--- gforth/compat/loops.fs	1996/11/11 17:00:07	1.2
+++ gforth/compat/loops.fs	1997/06/06 17:28:13	1.3
@@ -4,6 +4,17 @@
 
 \ Hmm, this would be a good application for ]] ... [[
 
+\ The program uses the following words
+\ from CORE :
+\ : POSTPONE over min ; immediate 2dup IF swap THEN drop negate +LOOP
+\ ELSE 2drop < 1+ DO u<
+\ from CORE-EXT :
+\ ?DO u> 
+\ from BLOCK-EXT :
+\ \ 
+\ from FILE :
+\ ( 
+
 : +DO ( compile-time: -- do-sys; run-time: n1 n2 -- )
     POSTPONE over POSTPONE min POSTPONE ?do ; immediate