***********************************************************************
* Sciptname..:  SOUND1.SHW                                            *
* Purpose....:  Sub program to PROMOTE1.SHW (tight loop for sound).   *
***********************************************************************
MARK 1          * Set a mark to jump to
SOUND G 4 70
SOUND D 4 70
INCREASE soundloop 1
IFVARIABLE soundloop 8 DO JUMPMARK 2
JUMPMARK 1      * If we've reached here, jump to mark 1
MARK 2          * Set a mark to jump to