program test;

var
x,x1,t1,CO,T,PA,TI,siz,count :integer;


procedure box;
    begin;
       draw (x,t,x+siz,t,co);
       draw (x+siz,t,x+siz,t+siz,co) ;
       draw (x+siz,t+siz,x,t+siz,co);
       draw (x,t+siz,x,t,co);
     end;



procedure bigblue;

begin
  GRAPHCOLORMODE;
  x :=0;
  x1:=155;
  t1:=190;
  t :=0;
  GOTOXY(1,10);
  writeln('        for more great programs');
  palette (1);
  PA:=0;

  REPEAT;
  draw (x,t,x1,t1,CO);
  X :=X+2;T :=T+8;
  PA :=0;
  SOUND(X);
  IF X>80 THEN PA :=2;
  IF X>160 THEN PA :=3;
  PALETTE(PA);
  IF T<150 THEN T:=2;
  IF X>300 THEN BEGIN;
  GOTOXY(0,0);
  WRITELN('        CALL THE BIG BLUE BBS! ');
  WRITELN('             616 791-2109      ');
  REPEAT;
  PALETTE (T);
  SOUND(T);
  T:=T+1;
  UNTIL KEYPRESSED;
  NOSOUND;
  END;
  CO :=CO+1;
  until keypressed;
end;

procedure randomboxes;
begin;
graphcolormode;
  count:=0;
  siz:=2;
  repeat;
  x:=random(320);
  nosound;
  t:=random(200);
  co:=random(3)+1;
  count:=count+1;
  sound(t+count);
  box;
  until count>2000;
  end;

procedure growingboxes;
          begin;
  nosound;
    graphcolormode;
     co:=1;
     palette(3);
     x:=10;
     t:=10;
     siz:=2;
        repeat;

     box;
     x:=x+3;
     t:=t+1;
     siz:=siz+2;
     sound (x+100);
        until x>180;
        co:=co+1;
        repeat;
     x:=x-3;
     siz:=siz-2;
     t:=t+2;
     sound(x+100);
     box;
       until x<10;
     co:=co+1;
     repeat;
     x:=x+3;
     t:=t-4;
     siz:=siz+1;
     sound (x+100);
     box;
     until x>150;
   nosound;
 end;






begin; {main program}
randomboxes;
growingboxes;
bigblue;
end.