home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / JAZLIB.ARC / JZDRWBOX.C < prev    next >
Encoding:
Text File  |  1986-04-06  |  1.2 KB  |  35 lines
  1. /*
  2. ┌────────────────────────────────────────────────────────────────────────────┐
  3. │jzdrwbox                                                                    │
  4. │Given the starting row, column, length, width and color, draw a box         │
  5. │window.                                                                     │
  6. │                                                                            │
  7. │ (C) JazSoft Software by Jack A. Zucker (301) 794-5950                      │
  8. └────────────────────────────────────────────────────────────────────────────┘
  9. */
  10.  
  11. jzdrwbox ( frow, fcol , flen , fwidth , fattr )
  12. int frow , fcol , flen , fwidth , fattr;
  13. {
  14.   int w;
  15.  
  16.   jzloccur( frow , fcol );
  17.   jzwrtchr('┌',fattr,1);
  18.   jzloccur( frow , fcol + 1);
  19.   jzwrtchr('─',fattr,flen-2);
  20.   jzloccur( frow + fwidth - 1 , fcol + 1);
  21.   jzwrtchr('─',fattr,flen-2);
  22.   jzloccur(frow , fcol + flen - 1);
  23.   jzwrtchr('┐',fattr,1);
  24.   for (w = frow + 1 ; w < (frow + fwidth - 1) ; w ++ ) {
  25.     jzloccur(w , fcol + flen - 1 );
  26.     jzwrtchr('│',fattr,1);
  27.     jzloccur(w , fcol );
  28.     jzwrtchr('│',fattr,1);
  29.   }
  30.   jzloccur( frow + fwidth - 1 , fcol + flen - 1);
  31.   jzwrtchr('┘',fattr,1);
  32.   jzloccur( frow + fwidth - 1 , fcol );
  33.   jzwrtchr('└',fattr,1);
  34. }
  35.