home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBO9.ZIP / DRAWBOX.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1980-01-01  |  411 b   |  18 lines
  1.  
  2. (* procedure for drawing a box *)
  3. procedure drawbox(x1,y1,x2,y2: integer);
  4.   var i : integer;
  5.   begin
  6.      gotoxy(x1,y1);
  7.      for i := x1 to x2 do write('-');
  8.      gotoxy(x1,y1+1);
  9.      for i := y1+1 to y2 do
  10.      begin
  11.         gotoxy(x1,i); write('!');
  12.         gotoxy(x2,i); write('!');
  13.      end;
  14.      gotoxy(x1,y2);
  15.      for i := x1 to x2 do write('-');
  16.   end; (* of procedure drawbox *)
  17.  
  18.