home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / ITPJUL90.ZIP / TONETEST.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1990-06-28  |  851 b   |  44 lines
  1. PROGRAM ToneTest;
  2.  
  3. { ToneTest - test the sound routines }
  4.  
  5. USES Tones,Crt;
  6.  
  7. VAR
  8.     I : Integer;
  9.  
  10. BEGIN
  11.  
  12.     { Make some sounds }
  13.  
  14.     Chirp(220,440,10);    { Glide down    }
  15.     Tone(330,1000);        { Single tone    }
  16.     Noise(1000000);      { Some noise    }
  17.  
  18.     Tone(110,1000);        { Single tone    }
  19.     Chirp(1000,1,3);      { Glide up        }
  20.  
  21.     FOR I := 1 TO 15 DO  { Phasor           }
  22.         Chirp(1,150,2);
  23.  
  24.     Chirp(1,300,2);
  25.  
  26.     {Make a concert A for 1.5 seconds   }
  27.  
  28.     Sound2(440);
  29.     Delay(1500);
  30.  
  31.     {Make same sounds, with TIMER tone
  32.      superimposed, for MULTISOUND effect}
  33.  
  34.     Chirp(220,440,10);    { Glide down    }
  35.     Tone(330,1000);        { Single tone    }
  36.     Noise(1000000);       { Some noise    }
  37.     Tone(110,1000);        { Single tone    }
  38.     Chirp(1000,1,3);      { Glide up        }
  39.     FOR I := 1 TO 15 DO     { Phasor           }
  40.         Chirp(1,150,2);
  41.     Chirp(1,300,2);
  42.     Nosound2;           { Turn off timer}
  43. END.
  44.