First page Back Continue Last page Overview Graphics

Advanced Forth

However, simplicity is not free ...

: at ( t <"..."> --  | if t <= launch clock take actions )
	POSTPONE launch-clock@  POSTPONE <=  POSTPONE IF
	BEGIN
	  BL WORD DUP COUNT NIP
	WHILE
	  FIND
	  IF
	    POSTPONE LITERAL  POSTPONE EXECUTE
	  ELSE
	    DROP
	  THEN
	REPEAT
	DROP POSTPONE THEN ; IMMEDIATE