program mp3id;

uses crt,dos,mp3;

begin

  if does_file_exist(paramstr(1)) then
   begin

   getmp3info(paramstr(1),0);

   clrscr;
   writeln('MP3 File Info      Written By Franz Ayestaran (c)1999      Rev:',rev);
   writeln;
   writeln('Header Information');
   writeln('------------------');

   writeln('32-Bit Header "',binary(byte4),binary(byte3),binary(byte2),binary(byte1),'"');

   if version <> 25 then writeln('MPEG-',version,' Layer ',layer);
   if version = 25 then writeln('MPEG-2.5 Layer ',layer);
   if not protectionbit then writeln('Protected by CRC');
   if protectionbit then writeln('Not protected by CRC');
   write(samplerate,'Hz ');
   if channelmode=0 then write('Stereo');
   if channelmode=1 then write('Joint stereo');
   if channelmode=2 then write('Dual channel');
   if channelmode=3 then write('Single channel');
   if (bitrate<>1000) and (bitrate<>0) then write(' at ',bitrate,'Kbps');
   if bitrate=1000 then write(' (Bad Kbps)');
   if bitrate=0 then write(' (Free Kbps)');
   writeln;
   write('Padding bit ');
   if padding then write('on');
   if not padding then write('off');
   writeln;
   write('Trigger bit ');
   if trigger then write('on');
   if not trigger then write('off');
   writeln;
   if copyright then writeln('Audio is copyrighted');
   if not copyright then writeln('Audio is not copyrighted');
   if original then writeln('Original media');
   if not original then writeln('Copy of original media');
   if emphasis=0 then writeln('Emphasis - none');
   if emphasis=1 then writeln('Emphasis - 50/15ms');
   if emphasis=1 then writeln('Emphasis - reserved');
   if emphasis=3 then writeln('Emphasis - CCIT J.17');
   calcframelength;
   writeln('Frame length is ',framelength,' Byte(s)');

   {**** If Tag Found ****}
   {**********************}

   if Tagged then
   begin
     writeln;
     writeln('TAG Information');
     writeln('---------------');

     {writeln('   Type: ',Tag);}
     writeln('  Title: ',Title);
     writeln(' Artist: ',Artist);
     writeln('  Album: ',Album);
     writeln('   Year: ',Year);
     writeln('Comment: ',Comment);
     writeln('  Genre: ',Genre);
   end;

   {**** If Tag Not Found ****}
   {**************************}

   if Tag<>'TAG' then
     begin
       writeln;
       writeln('No tag data found!');
       writeln;
     end;

   {***************************}
   end

   else
     begin
       writeln;
       writeln('File not found!');
       writeln;
     end;
end.