home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
insidetp
/
1990_07
/
tonetest.pas
< prev
Wrap
Pascal/Delphi Source File
|
1990-06-28
|
851b
|
44 lines
PROGRAM ToneTest;
{ ToneTest - test the sound routines }
USES Tones,Crt;
VAR
I : Integer;
BEGIN
{ Make some sounds }
Chirp(220,440,10); { Glide down }
Tone(330,1000); { Single tone }
Noise(1000000); { Some noise }
Tone(110,1000); { Single tone }
Chirp(1000,1,3); { Glide up }
FOR I := 1 TO 15 DO { Phasor }
Chirp(1,150,2);
Chirp(1,300,2);
{Make a concert A for 1.5 seconds }
Sound2(440);
Delay(1500);
{Make same sounds, with TIMER tone
superimposed, for MULTISOUND effect}
Chirp(220,440,10); { Glide down }
Tone(330,1000); { Single tone }
Noise(1000000); { Some noise }
Tone(110,1000); { Single tone }
Chirp(1000,1,3); { Glide up }
FOR I := 1 TO 15 DO { Phasor }
Chirp(1,150,2);
Chirp(1,300,2);
Nosound2; { Turn off timer}
END.