home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBO9.ZIP / BOXDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-06  |  546 b   |  25 lines
  1.  
  2.  
  3. (* procedure for drawing a box *)
  4. var i : integer;
  5. procedure drawbox(x1,y1,x2,y2: integer);
  6. var i : integer;
  7.   begin
  8.      gotoxy(x1,y1);
  9.      for i := x1 to x2 do write('-');
  10.      gotoxy(x1,y1+1);
  11.      for i := y1+1 to y2 do
  12.      begin
  13.         gotoxy(x1,i); write('!');
  14.         gotoxy(x2,i); write('!');
  15.      end;
  16.      gotoxy(x1,y2);
  17.      for i := x1 to x2 do write('-');
  18.      end; (* of procedure drawbox *)
  19. begin
  20.    clrscr;
  21.    for i := 1 to 5 do drawbox(i*4,i*2,10*i,4*i);
  22.    drawbox(1,1,80,23);
  23.    delay(3000);
  24. end.
  25.