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

( problem 7-8 )
: .PH#  ( d -- )  <#  # # # #  [CHAR] - HOLD  # # #
   OVER IF  [CHAR] / HOLD  #S THEN  #>  TYPE SPACE ;