home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / cufs.zip / BOX.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-01  |  1KB  |  46 lines

  1. {********************************}
  2. {*   This Procedure Display a   *}
  3. {*   Single or Double Line Box  *}
  4.  
  5.  
  6.  
  7. procedure DrawBox(x1,y1,x2,y2 : Integer;box_var : char);
  8.  Var I : Integer;
  9.      cv1,cv2,cv3,cv4,cv5,cv6 : integer;
  10.  begin
  11.    if box_var = 's' then       {** Single Line **}
  12.     begin
  13.      cv1 := 218; cv2 := 196; cv3 := 191;
  14.      cv4 := 179; cv5 := 192; cv6 := 217;
  15.     end;
  16.     if box_var = 'd' then      {** Double Line **}
  17.      begin
  18.       cv1 := 201; cv2 := 205; cv3 := 187;
  19.       cv4 := 186; cv5 := 200; cv6 := 188;
  20.       end;
  21.    GotoXY(x1,y1);
  22.    write(chr(cv1));
  23.     for I := x1 to x2-1 do write(chr(cv2));
  24.     GotoXY(x2,y1); write(chr(cv3));
  25.      for I := y1+1 to y2 do
  26.       begin
  27.        GotoXY(x1,I); write(chr(cv4));
  28.        GotoXY(x2,I); write(chr(cv4));
  29.       end;
  30.       GotoXY(x1,y2);
  31.       write(chr(cv5));
  32.       for I := x1 to x2-1 do write(chr(cv2));
  33.     GotoXY(x2,y2); write(chr(cv6));
  34.  end;  {** end procedure DrawBox **}
  35.  
  36. {***  Driver ***}
  37. begin
  38.  clrscr;
  39.  
  40.  {*  Pass Column & Row Position of    *}
  41.  {*  Upper Left & Lower Left Corners  *}
  42.  {*  Also d for Double & s for Single *}
  43.  {*           Line Box                *}
  44.  
  45.  DrawBox(10,10,70,20,'d');
  46. end.