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

: MS  ( u -- )  DROP ;  \ if your system doesn't have MS

( problem 7-3 )
: BEEP   ." BEEP "  7 EMIT ;  \ not ANS but works on many systems
: DELAY   500 MS ;
: RING   BEEP DELAY BEEP DELAY BEEP ;