home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ETRAP8.ZIP / BOX.INC < prev    next >
Encoding:
Text File  |  1987-12-26  |  704 b   |  23 lines
  1. (******************************************************************)
  2.  
  3. procedure box(startrow,endrow,startcol,endcol,fg,bg:integer);
  4.  
  5. var
  6.   i:integer;
  7.   width:integer;
  8. begin
  9.   width:=(endcol-startcol)-1;
  10.   if width<1 then width:=1;
  11.   scrwrite(chr(218),startcol,startrow,fg,bg);
  12.   scrwrite(constr(#196,width),startcol+1,startrow,fg,bg);
  13.   scrwrite(chr(191),endcol,startrow,fg,bg);
  14.   for i:=(startrow+1) to (endrow-1) do
  15.     begin
  16.       scrwrite(chr(179),startcol,i,fg,bg);
  17.       scrwrite(chr(179),endcol,i,fg,bg);
  18.     end;
  19.   scrwrite(chr(192),startcol,endrow,fg,bg);
  20.   scrwrite(constr(#196,width),startcol+1,endrow,fg,bg);
  21.   scrwrite(chr(217),endcol,endrow,fg,bg);
  22. end;{box drawing}
  23.