--- gforth/oof.fs 1997/02/16 20:51:10 1.7 +++ gforth/oof.fs 1997/03/31 22:14:39 1.9 @@ -7,6 +7,38 @@ \ \ Thank you. \ +\ The program uses the following words +\ from CORE : +\ decimal : bl word 0= ; = cells Constant Variable ! Create , allot @ IF +\ POSTPONE >r ELSE +! dup + THEN immediate r> * >body cell+ Literal drop +\ align here aligned DOES> execute ['] 2@ recurse swap 1+ over LOOP and +\ EXIT ?dup 0< rot r@ - i negate +LOOP 2drop BEGIN WHILE 2dup REPEAT 1- +\ rshift > / ' move UNTIL or count +\ from CORE-EXT : +\ nip tuck true ?DO compile, false Value erase pick :noname 0<> +\ from BLOCK-EXT : +\ \ +\ from EXCEPTION : +\ throw +\ from EXCEPTION-EXT : +\ abort" +\ from FILE : +\ ( S" +\ from FLOAT : +\ faligned +\ from LOCAL : +\ TO +\ from MEMORY : +\ allocate free +\ from SEARCH : +\ find definitions get-order set-order get-current wordlist set-current +\ search-wordlist +\ from SEARCH-EXT : +\ also Forth previous +\ from STRING : +\ /string compare +\ from TOOLS-EXT : +\ [IF] [THEN] [ELSE] state \ Loadscreen 27dec95py