home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progc / bob13.arj / TYPE.BOB < prev    next >
Text File  |  1991-07-11  |  221b  |  15 lines
  1. main(; i,name)
  2. {
  3.     for (i = 1; name = getarg(i); ++i)
  4.     typefile(name);
  5. }
  6.  
  7. typefile(name; fp,ch)
  8. {
  9.     if (fp = fopen(name,"r")) {
  10.     while ((ch = getc(fp)) != -1)
  11.         putc(ch,stdout);
  12.     fclose(fp);
  13.     }
  14. }
  15.