PROGRAM PCM_test; {Kari Lammassaari lammassa@great-mail.great.fi}

{These files can be found at ftp.funet.fi/pub/msx }

{Adjust paths to fit Your system. }

{$I vdpcmd.inc }
{$I screen.inc }     	
{$I paintbox.inc}
{$I pset.inc }
{$I line.inc }
{$I msxdos2.inc }
{$I musicmo1.inc}

Var PixelArray :Array[0..511] Of Byte;
    x :Integer;
 Begin
        ClrScr;
        If Not MusicModuleExists Then
           Begin
              Writeln('Cannot find Music Module ! ');
              Halt;
           End;
        Writeln('Musicmodule found. Audio Ram size = ',AudioRamSize,' Kb.');
        Writeln;
        Writeln('Music Module sampling test. (Adjust the valume !)');
        Writeln('Start to sing LOUD now !');

        PcmSwitch(120);                 {Switches the sampling with volume 120}

        Screen(7);                      {Well, sets the screen}
        Line(0,105, 511,105, 0, 15 ,0); {Draws a line !}
        Repeat
          PcmSample(Addr(PixelArray),100,$4000, 105);
          for x := 0 to 99 Do Pset(x+160, PixelArray[x], 0 ,8, 0);
          PaintBox(160,50,0, 100,110,1,0); {Wipes waves off. }
        Until KeyPressed;
        Screen(0);
 End.