home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m242 / 2.ddi / VER2FUNC.ZIP / GRYLAB.C < prev    next >
Encoding:
Text File  |  1989-10-16  |  384 b   |  18 lines
  1. /* function to print out a vertical string */
  2. grylab(r,c,cl,row)
  3. char *r; /* label */
  4. int c; /* color */
  5. int cl; /* column to start at */
  6. int row; /* row to start at */
  7. {
  8. int i;
  9. /* write string */
  10. for(i = 0; i + row < 25; ++i)
  11.   {
  12.   if(r[i] == '\0') break;
  13.   curlocat(i + row,cl);
  14.   wrtchtty(r[i],c);
  15.   }
  16. return(0);
  17. }
  18.