home *** CD-ROM | disk | FTP | other *** search
/ Sound Sensations! / sound_sensations.iso / miscprog / melody16 / play.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-13  |  1.1 KB  |  49 lines
  1. {              PLAY procedure by A.A.Efros.
  2.   This pascal procedure is for work with Melody Master Data files. 
  3.  
  4.   In Turbo Pascal one has to use Crt unit. (uses Crt;)  
  5.   Crt unit is for functions: Sound, Delay and NoSound. 
  6.  
  7.   To call procedure Play one should:
  8.          Play( [FileName], [MelodyName]);
  9.   For example: 
  10.          Play('music.dat','Glory');
  11. }
  12. procedure Play (FileName, MelodyName : string);
  13. var
  14.   q : integer;
  15.   ch : char;
  16.   st : string;
  17.   Data : text;
  18. begin
  19.   assign(Data,FileName);
  20.   reset(Data);
  21.   st := '';
  22.   while not EOF(Data) do
  23.     begin
  24.       st := '';
  25.       repeat
  26.         read(Data,ch);
  27.         st := st + ch;
  28.       until ch = ' ';
  29.       if (st = MelodyName + ' ')
  30.            then
  31.              begin
  32.                while not Eoln(Data) do
  33.                  begin
  34.                    read(Data,q);
  35.                    Sound(q);
  36.                    read(Data,q);
  37.                    Delay(q);
  38.                    NoSound;
  39.                  end;
  40.                Close(Data);
  41.                Exit;
  42.              end;
  43.       readln(Data);
  44.     end;
  45.   Close(Data);
  46.   Writeln(MelodyName,' Melody is not found!');
  47. end;
  48.  
  49.