\ Code from Starting Forth Chapter 6
\ ANSized by Benjamin Hoyt in 1997

: STAR   [CHAR] * EMIT ;
: STARS  ( #stars -- )  0 ?DO  STAR  LOOP ;

: \STARS  ( height -- )
   0 DO  CR  I SPACES  10 STARS  LOOP ;