home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FRAME.ZIP / FRAME.PAS
Encoding:
Pascal/Delphi Source File  |  1987-01-02  |  512 b   |  18 lines
  1. procedure frame (ulx, uly, lrx, lry: integer);
  2.    var
  3.    i: integer;
  4.    begin
  5.      gotoxy(ulx, uly); write(chr(201));
  6.      for i:=ulx+1 to lrx-1 do write(chr(205));
  7.      write(chr(187));
  8.      for i:=uly+1 to lry-1 do
  9.      begin
  10.         gotoxy(ulx, i); write(chr(186));
  11.         gotoxy(lrx, i); write(chr(186));
  12.      end;
  13.      gotoxy(ulx,lry);
  14.      write(chr(200));
  15.      for i:=ulx+1 to lrx-1 do write(chr(205));
  16.      write(chr(188));
  17.    end { frame };
  18.