program wavid;

uses crt,dos,open,wav;

{---------------------------------------------------}

 Procedure About;
   begin
    writeln;
    writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
    writeln('º Wave File Identifier                º');
    writeln('º                                     º');
    writeln('º Written By Franz Ayestaran (c) 1995 º');
    writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
   end;

{-------------------------------------------------------------- }

begin

About;

if does_file_exist(paramstr(1)+'.wav') then
    begin
      read_wav_header(paramstr(1)+'.wav');
      display_wav_results;
    end;

if does_file_exist(paramstr(1)+'.wav') = false then
    begin
      textcolor(magenta);
      writeln;
      writeln('File does not exist!');
      textcolor(7);
    end;

writeln;

end.