/*
Demo program for sound output routines....

K. Krogstad 871208
*/

extern void sound_on ();            /* Assembly routines */
extern void sound_off ();

#define step 1.059463               /* One half tone step */

main ()

{
   int  i;
   long j; 
   double freq = 339.28;
   
   for (i = 0; i < 8; i ++)
   {
      sound_on ((unsigned) freq);   /* Output sound */
      
      if (i == 2 || i == 6)    
         freq *= step;              /* Half tone step */
      else
         freq *= (step * step);     /* Full tone step */

      for (j = 0; j < 20000; j ++);    /* Delay loop */
   }

   sound_off ();                    /* Turn off sound */
}