home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / GRLF-C-2.ZIP / GFUNC / FCWRTS.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-05-30  |  806 b   |  48 lines
  1. /*
  2.  * fcwrts.c
  3.  * contains: fcwrts()
  4.  *
  5.  */
  6.  
  7. #include <stdio.h>
  8. #include <string.h>
  9. #include "gfuncts.h"
  10.  
  11.  
  12. /*
  13.  *  void
  14.  * fcwrts(int cols,char *string)
  15.  *
  16.  * ARGUMENT
  17.  *  cols    -    Number of columns to center on.
  18.  *  string    -    String to be centered.
  19.  *
  20.  * DESCRIPTION
  21.  *  The string is centered on a width which is the lesser of "cols" or the
  22.  *  global variable gmaxcol on the current row.
  23.  *
  24.  * RETURNS
  25.  *  void
  26.  *
  27.  * AUTHOR
  28.  *  ""   20-DEC-1988  10:17:59.92
  29.  *   Copyright (C)1988-1990 Greenleaf Software Inc.  All Rights Reserved.
  30.  *
  31.  * MODIFICATIONS
  32.  *
  33.  *
  34.  */
  35. void GF_CONV fcwrts(cols,string)
  36. int cols;
  37. char *string;
  38. {
  39.     
  40.     int icols;
  41.     
  42.     icols=xmin(cols,gmaxcol);
  43.     if(icols<=1)
  44.         return;
  45.     fatwstr((getcur(0)>>8)&0x00ff,(icols/2)-(strlen(string)/2),string);
  46. }
  47.  
  48.