home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SNDPAS.ZIP / DEMO1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-03-09  |  1.3 KB  |  62 lines
  1. { Sound effects demo 
  2.  
  3. Written by:
  4.  
  5.     Nels Anderson
  6.    92 Bishop Drive
  7. Framingham, MA  01701
  8.  
  9. Released to the public domain
  10. }
  11.  
  12. Uses
  13.   Crt,SoundEff;
  14.  
  15. Var
  16.   c:  CHAR;
  17.   soundnum:  INTEGER;
  18.  
  19. begin {Main routine}
  20.   repeat
  21.     WriteLn('Select by Number:');
  22.     WriteLn('1) Bat');
  23.     WriteLn('2) Bird Call');
  24.     WriteLn('3) Clock Tick');
  25.     WriteLn('4) Conveyor');
  26.     WriteLn('5) Crickets');
  27.     WriteLn('6) Door Buzzer');
  28.     WriteLn('7) Explosion');
  29.     WriteLn('8) Phone Ringing');
  30.     WriteLn('9) Flying Saucer');
  31.     WriteLn('10) Siren');
  32.     WriteLn('11) Drip');
  33.     WriteLn('12) Train');
  34.     WriteLn('13) Whoop');
  35.     WriteLn('14) Phaser');
  36.     Write('Select sound, 0 to quit: ');
  37.     ReadLn(soundnum);
  38.     if soundnum > 0 then begin
  39.       WriteLn('Hit a key to stop...');
  40.       repeat
  41.     case soundnum of
  42.       1:  SndEff(@Bat);
  43.       2:  SndEff(@BirdCall);
  44.       3:  SndEff(@Clocktick);
  45.       4:  SndEff(@Conveyor);
  46.       5:  SndEff(@Crickets);
  47.       6:  SndEff(@DoorBuzzer);
  48.       7:  SndEff(@Explosion);
  49.       8:  SndEff(@PhoneRing);
  50.       9:  SndEff(@FlyingSaucer);
  51.       10:  SndEff(@Siren);
  52.       11:  SndEff(@Drip);
  53.       12:  SndEff(@Train);
  54.       13:  SndEff(@Whoop);
  55.       14:  SndEff(@Phaser);
  56.     end; {case}
  57.       until KeyPressed;
  58.       c := ReadKey;
  59.     end; {if soundnum > 0}
  60.   until soundnum = 0;
  61. end.
  62.