home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sound / soundup / 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.