Program BOX;

var i : integer;
    x : integer;
    y : integer;
    c : boolean;
    v : boolean;

procedure draw(x1,y1,x2,y2:integer);
var i : integer;
begin
  gotoxy(x1,y1);
  if v then lowvideo else normvideo;
  for i := x1 to x2 do write('-');
  normvideo;
  for i := y1+1 to y2 do
  begin
    if v then lowvideo else normvideo;
    gotoxy(x1,i); write('|');
    normvideo;
    if c then clreol;
    if v then lowvideo else normvideo;
    gotoxy(x2,i); write('|');
    normvideo;
  end;
  gotoxy(x1,y2);
  if v then lowvideo else normvideo;
  for i := x1 to x2 do write('-');
  normvideo;
  v := not v;
end;

BEGIN
  clrscr;
  c := true;
  v := false;
  for i := 1 to 5 do draw(i*4,i*2,12*i,4*i);
  c := false;
  x := 27;
  y := 13;
  gotoxy(x,y); Write('  Small Computer Support '); y := y+1;
  gotoxy(x,y); Write('  24 East Cedar Street'); y := y+1;
  gotoxy(x,y); Write('  Newington, CT 06111'); y := y+1;
  gotoxy(x,y); Write('     (203) 666-3139');
  draw(1,1,79,23);
  normvideo
END.