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

( problem 9-5 )

: STAR   [CHAR] * EMIT ;
: STARS  ( n -- )  0 ?DO  STAR  LOOP ;
: BOX  ( width height -- )  0 ?DO  CR  DUP STARS  LOOP DROP ;

: GREET   ." Hello, I speak Forth. " ;
: SEQUENCE   11 1 DO  I .  LOOP ;
: TILE   10 5 BOX ;
: NOTHING  ;

CREATE 'TO-DO    ' GREET ,           ' SEQUENCE ,
                 ' TILE ,            ' NOTHING ,
                 ' NOTHING ,         ' NOTHING ,

: TO-DO  ( index -- addr )  0 MAX  5 MIN  CELLS 'TO-DO + ;
: DO-SOMETHING  ( index -- )  TO-DO  @ EXECUTE ;