{ BEAT.PAS -  Demo of drum routines for Tandy 1000 and/or PCJr }

uses noiz,drums;

procedure beat;
var i: integer;
begin
  i:=0;
  up(0,25,1);
  roll(1,2,20);
  repeat
    inc(i);
    bass(1,10);
    snare(1,10);
    bass2(1,10);
    snare(1,10);
    case i of
      4: begin
           snare(2,5); snare(6,3);
           tom(2,2); lowtom(2,2);
           bass2(2,4); roto1(8,2);
         end;
      8: begin
           i:=0;
           roto1(8,2); bass2(2,4);
           lowtom(2,2); tom(2,2);
           snare(6,3); snare(2,5);
         end;
    end;
  until keyhit;
  up(0,20,1);
  echo(90,short);
  quiet;
end;

begin
  echo(150,long);
  writeln('Hit Any Key to End');
  beat;
end.