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

( problem 8-3 )

VARIABLE PLACES  2 PLACES !

: M.  ( s|d -- )  TUCK DABS
  <# PLACES @  DUP -1 <> IF  0 ?DO # LOOP  [CHAR] . HOLD  
  		       ELSE  DROP  S>D  
		       THEN  
     #S  ROT SIGN  #>  TYPE SPACE ;