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

( problem 8-1 )
VARIABLE PIES  0 PIES !

: BAKE-PIE   1 PIES +! ;

: EAT-PIE   
   PIES @  IF -1 PIES +!  ." Thank you "
   	 ELSE  ." What pie? "  
	 THEN ;

VARIABLE FROZEN-PIES  0 FROZEN-PIES !

: FREEZE-PIES   PIES @  FROZEN-PIES +!  0 PIES ! ;