\ -----------------------------------------------------------------------
\ 4-5.forth -------------------------------------------------------------
\ -----------------------------------------------------------------------
\ Code from Starting Forth Chapter 4
\ ANSized by Benjamin Hoyt in 1997

( problems 4-5 )
: STAR   [CHAR] * EMIT ;
: STARS  ( #stars -- )  0 ?DO  STAR  LOOP ;
: STARS  ( n -- )  ?DUP IF  STARS  THEN ;