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

( problem 8-4 )

CREATE #PENCILS  4 CELLS ALLOT  \ # of pencils for each colour
0 CELLS CONSTANT RED          1 CELLS CONSTANT GREEN
2 CELLS CONSTANT BLUE         3 CELLS CONSTANT ORANGE
: PENCILS  ( colour -- addr )  #PENCILS + ;
23 RED PENCILS !              15 BLUE PENCILS !
12 GREEN PENCILS !            0 ORANGE PENCILS !