home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
pascal
/
sndpas.zip
/
DEMO1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-03-09
|
1KB
|
62 lines
{ Sound effects demo
Written by:
Nels Anderson
92 Bishop Drive
Framingham, MA 01701
Released to the public domain
}
Uses
Crt,SoundEff;
Var
c: CHAR;
soundnum: INTEGER;
begin {Main routine}
repeat
WriteLn('Select by Number:');
WriteLn('1) Bat');
WriteLn('2) Bird Call');
WriteLn('3) Clock Tick');
WriteLn('4) Conveyor');
WriteLn('5) Crickets');
WriteLn('6) Door Buzzer');
WriteLn('7) Explosion');
WriteLn('8) Phone Ringing');
WriteLn('9) Flying Saucer');
WriteLn('10) Siren');
WriteLn('11) Drip');
WriteLn('12) Train');
WriteLn('13) Whoop');
WriteLn('14) Phaser');
Write('Select sound, 0 to quit: ');
ReadLn(soundnum);
if soundnum > 0 then begin
WriteLn('Hit a key to stop...');
repeat
case soundnum of
1: SndEff(@Bat);
2: SndEff(@BirdCall);
3: SndEff(@Clocktick);
4: SndEff(@Conveyor);
5: SndEff(@Crickets);
6: SndEff(@DoorBuzzer);
7: SndEff(@Explosion);
8: SndEff(@PhoneRing);
9: SndEff(@FlyingSaucer);
10: SndEff(@Siren);
11: SndEff(@Drip);
12: SndEff(@Train);
13: SndEff(@Whoop);
14: SndEff(@Phaser);
end; {case}
until KeyPressed;
c := ReadKey;
end; {if soundnum > 0}
until soundnum = 0;
end.