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

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

: /STARS  ( height -- )
   1- 0 SWAP DO  CR  I SPACES  10 STARS  -1 +LOOP ;