home *** CD-ROM | disk | FTP | other *** search
/ World of Graphics / WOGRAPH.BIN / 644.SOUND1.SHW < prev    next >
Text File  |  1993-02-28  |  536b  |  12 lines
  1. ;*********************************************************************;
  2. ; Sciptname..:  SOUND1.SHW                                            ;
  3. ; Purpose....:  Sub program to PROMOTE1.SHW (tight loop for sound).   ;
  4. ;*********************************************************************;
  5. MARK 1          ; Set a mark to jump to
  6. MUSIC SOUND G 4 70
  7. MUSIC SOUND D 4 70
  8. VARIABLE INCREASE soundloop 1
  9. IF soundloop EQ 8 DO JUMPMARK 2
  10. JUMPMARK 1      ; If we've reached here, jump to mark 1
  11. MARK 2          ; Set a mark to jump to
  12.