home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SECDUM.ZIP / BOXMAKER.PAS next >
Encoding:
Pascal/Delphi Source File  |  1993-01-04  |  907 b   |  32 lines
  1. {program boxmaker; procedure to make a box on the screen}
  2. {program does not use window}
  3. {uses crt;}
  4. procedure boxmaker(x,y,wd,dpth,colr :integer);
  5. var                {x & y coordinates}
  6. attr,i: integer;        {wd is width, dpth is depth} {colr is color of line}
  7.  
  8.  
  9. begin
  10. Clrscr;
  11. attr := textattr;
  12. textattr := Colr;
  13.  gotoxy(x,y);write(chr(201));  {upper left corner symbol -- ╔}
  14.  gotoxy(x+wd,y);write(chr(187)); {upper right corner symbol - ╗}
  15.   gotoxy(x,y+dpth);write(chr(200));    {lower left corner symbol --  ╚}
  16.  gotoxy(x+wd,y+dpth);write(chr(188));        {lower right corner symbol -- ╝}
  17.  gotoxy(x+1,y);
  18.  for i := 1 to Wd-1 do
  19.   write(chr(205));
  20.   for i := 1 to dpth-1 do
  21.    begin
  22.     gotoxy(x,y+i);write(chr(186));
  23.     gotoxy(x+wd,y+i);write(chr(186));
  24.  
  25.    end;
  26.    gotoxy(x+1,y+dpth);
  27.    for i:= 2 to wd do
  28.     write(Chr(205));
  29.  
  30.  
  31.    Textattr := attr;
  32.    end; {boxmaker}