home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SOUNDUP.ZIP / SAMPLE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-08-21  |  202 b   |  11 lines
  1. Program TestSnd;
  2. Uses Crt,Sounds;
  3. Var Snd1,Snd2:Noise;
  4.     I:Byte;
  5.  
  6. Begin
  7.      I:=LoadSound('I.SND',Snd1);
  8.      I:=LoadSound('PAGE.SND',Snd2);
  9.      KeepSound(Snd2);
  10.      PlaySound(Snd1);
  11. End.