      PROGRAM TSOUND
C             routine to test the sounds you can make with
C             the SOUND and VOICE in the Utilities library
      DIMENSION ISCALE(8)
      SAVE ISCALE
      DATA ISCALE/0,2,4,5,7,9,11,12/
C         to test the Sound subroutine in the utils library
      PRINT *,'first a 2-octave major scale'
      DO 10 I=1,8
      CALL SOUND(128-I,ISCALE(I),5)
   10 CONTINUE
      DO 20 I=2,8
      CALL SOUND(121-I,ISCALE(I)+12,5)
   20 CONTINUE
C         go from left to right
      PRINT *,'move from left to right (if you have stereo)'
      DO 30 I=-120,120,40
      CALL VOICE(1,I)
      PRINT *,'stereo position',I
      CALL SOUND(100,12,10)
   30 CONTINUE

C      test voices
      PRINT *,'now try the voices'
      DO 40 I=1,9
      CALL VOICE(I,0)
      PRINT *,'voice',I 
      CALL SOUND(100,I+12,10)
   40 CONTINUE
C         delay
      PRINT *,'restore voice 1'
      CALL VOICE(-1)
      PRINT *,'all done'
      END
