home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ZSYS / ZNODE-12 / I / NZ-TOOL4.LBR / BOX.PZS / BOX.PAS
Pascal/Delphi Source File  |  2000-06-30  |  1KB  |  48 lines
  1. Program BOX;
  2.  
  3. var i : integer;
  4.     x : integer;
  5.     y : integer;
  6.     c : boolean;
  7.     v : boolean;
  8.  
  9. procedure draw(x1,y1,x2,y2:integer);
  10. var i : integer;
  11. begin
  12.   gotoxy(x1,y1);
  13.   if v then lowvideo else normvideo;
  14.   for i := x1 to x2 do write('-');
  15.   normvideo;
  16.   for i := y1+1 to y2 do
  17.   begin
  18.     if v then lowvideo else normvideo;
  19.     gotoxy(x1,i); write('|');
  20.     normvideo;
  21.     if c then clreol;
  22.     if v then lowvideo else normvideo;
  23.     gotoxy(x2,i); write('|');
  24.     normvideo;
  25.   end;
  26.   gotoxy(x1,y2);
  27.   if v then lowvideo else normvideo;
  28.   for i := x1 to x2 do write('-');
  29.   normvideo;
  30.   v := not v;
  31. end;
  32.  
  33. BEGIN
  34.   clrscr;
  35.   c := true;
  36.   v := false;
  37.   for i := 1 to 5 do draw(i*4,i*2,12*i,4*i);
  38.   c := false;
  39.   x := 27;
  40.   y := 13;
  41.   gotoxy(x,y); Write('  Small Computer Support '); y := y+1;
  42.   gotoxy(x,y); Write('  24 East Cedar Street'); y := y+1;
  43.   gotoxy(x,y); Write('  Newington, CT 06111'); y := y+1;
  44.   gotoxy(x,y); Write('     (203) 666-3139');
  45.   draw(1,1,79,23);
  46.   normvideo
  47. END.
  48.