\ -----------------------------------------------------------------------
\ 8-5.FORTH -------------------------------------------------------------
\ -----------------------------------------------------------------------
\ Code from Starting Forth Chapter 8
\ ANSized by Benjamin Hoyt in 1997

( problem 8-5 )

CREATE 'SAMPLES  10 CELLS ALLOT

: STAR     [CHAR] * EMIT ;
: STARS    ( #stars -- )  0 ?DO  STAR  LOOP ;
: STARS    ( n -- )  ?DUP IF  STARS  THEN ;
: SAMPLES  ( sample# -- addr )  CELLS  'SAMPLES + ;
: INIT-SAMPLES   10 0 DO  I 6 MOD  I SAMPLES !  LOOP ;
: PLOT  10 0 DO CR  I 2 .R  SPACE  I SAMPLES @  STARS LOOP CR ;

INIT-SAMPLES