diplodocus.org Git - nmh/blob - docs/historical/mh-nov-1983/subs/cputc.c

   1 #include <stdio.h>
   2
   3 cputc(chr, ip)
   4 register FILE *ip;
   5 {
   6         if(ip != NULL) {
   7                 putc(chr, ip);
   8                 if(ferror(ip)) {
   9                         perror("Write error");
  10                         done(-1);
  11                 }
  12         }
  13 }