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


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

Var
    freq, samplesize, totalfilesize,speed : Longint;
    mono_stereo,wav_data1,wav_data2,wav_data1size : integer;
    kb_per_sec,total_sample_time : real;
    stereo,sixteen_bit:boolean;
    samplebuffer : pointer;

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

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

Procedure GetSampleMem(khz:byte);
Procedure FreeSampleMem;
procedure read_wav_header(filename:string);
Procedure Display_Wav_results;
Procedure scope_file(filename:string);

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