demo3.th

1984-1993模糊 C 源代码竞赛.zip 非常的好,不过这是DOS格式,要用UE去打开.

: printfour

	dup		( save the number on top of the stack )
	4 =		( compare it to four )
	if
	  " forth "	( output a string for it )
	  drop		( and delete the saved value )
        else
	  .
	endif
;

: demo3 10 0 do i printfour loop cr ;

demo3