home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 1 / FishNMoreVol1.bin / more / code_examples / librar / sfout.c < prev    next >
Text File  |  1989-02-08  |  551b  |  23 lines
  1. /*--------------------------------------*/
  2. /*                    */
  3. /*             SFOUT(X,X,X)        */
  4. /*                    */
  5. /* Writes output in character format to */
  6. /* a file. The first argument is the    */
  7. /* file descripter. The second argument */
  8. /* is the character which is to be writ-*/
  9. /* ten. The third argument is the repet-*/
  10. /* ition factor.            */
  11. /*                    */
  12. /*--------------------------------------*/
  13. # include "stdio.h"
  14. void sfout(fd,a,b)
  15. int a,b;
  16. FILE *fd;
  17. {
  18.         int j,d;
  19.     d=scram(a);
  20.         for (j=0;j<b;j++)
  21.              putc(d,fd);
  22. }
  23.