{================================================}
{=== MP3.TPU Written By Franz-Josef Ayestaran ===}
{================================================}

{ *** Public Variables *** }
{ ************************ }

                  FileChar : file of byte;
         count,upper,lower : word;
             bitrate_index : array[1..5,0..15] of word;

                       Tag : string[3];
                     Title : string[30];
                    Artist : string[30];
                     Album : string[30];
                      Year : string[4];
                   Comment : string[30];
                     Genre : byte;

                       data, byte1, byte2, byte3, byte4, bitbyte,
                            version, layer, channelmode, emphasis : byte;
                  bit7, bit6, bit5, bit4, bit3, bit2, bit1, bit0,
     protectionbit, copyright, original, padding, trigger, tagged : boolean;
         bitrate, samplerate, temp, framelength, framesize, index : longint;

const rev='200-399BP7';

{ ************************ }

{ *** Public Procedures / Functions *** }
{ ************************************* }

procedure getmp3info(filename:string;filepos:longint);
 function bit(source,value:byte):boolean;
 function binary(byte_:byte):string;
 function NumStr(N, D: Longint): String;
 function Does_File_Exist(filename:string):boolean;
Procedure Calcframelength;

{ ************************************* }