program Four_voice;
import a804Xdvr;
const
  Voice2F=           '010';                     {R2-R0: voice for frequency}
  Frequency=         '0000011111';              {F9-F0: frequency}
  Voice2A=           '011';                     {R2-R0: voice for attenuation}
  Attenuation=       '0000';                    {A3-A0: attenuation}
  Duration=          '01100100';                {D7-D0: duration}
begin
  sendcmd(hex('E0'));                                   {reset input pointer}
  senddata(binary('1'+Voice2F+str(Frequency,7,4)));     {byte 1}
  senddata(binary('00'+str(Frequency,1,6)));            {byte 2}
  senddata(binary('1'+Voice2A+Attenuation));            {byte 3}
  senddata(binary(Duration));                           {byte 4}
  sendcmd(hex('C4'));                                   {trigger}
end.
