home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / SCIENCE / STAGES12.ZIP / PRINTS1.C < prev    next >
Text File  |  1991-04-16  |  27KB  |  913 lines
  1. #include "header.h"
  2. #include "file.h"
  3.  
  4. /************************************************************************/
  5. /**    print routines: part 1                           **/
  6. /************************************************************************/
  7. /*  contains:    printintro
  8.             printoutputhdr
  9.         printstgdat
  10.         printstgdatHARD
  11.         printseqdat1
  12.         printseqdat
  13.         printseqdatHARD
  14. */
  15.  
  16. /********************************/
  17. /*     function: printintro    */
  18. /********************************/
  19. /* prints out title page information */
  20. printintro (termq, fileq)
  21.   int termq, fileq;
  22. {
  23. #if PC
  24.   int i;
  25. #endif
  26.  
  27. #if PC
  28.   if (termq) {
  29.     i = 1;
  30.     printline(4, LNWID, '-');    /* to file and printer only */
  31.     clrscr1(3);
  32.     clrscr1(1);
  33.     gotoxy(1, i++);
  34.     highvideo();
  35.     cprintf("%sStages Program  [Version %s]", tab, VERSION);
  36.     normvideo();
  37.     i++;
  38.     gotoxy(1, i++);
  39.     cprintf("%sA Spermatogenesis Stage Predictor Program", tab);
  40.     gotoxy(1, i++);
  41.     cprintf("%sDeveloped at the University of Illinois, Urbana, IL", tab);
  42.     gotoxy(1, i++);
  43.     cprintf("%s    Programmer:  Paul P. Chen", tab);
  44.     i++;
  45.     gotoxy(1, i++);
  46.     cprintf("%sDirect correspondence to:", tab);
  47.     gotoxy(1, i++);
  48.     cprintf("%s    Dr. Rex A. Hess", tab);
  49.     gotoxy(1, i++);
  50.     cprintf("%s    Veterinary Biosciences", tab);
  51.     gotoxy(1, i++);
  52.     cprintf("%s    University of Illinois at Urbana-Champaign", tab);
  53.     gotoxy(1, i++);
  54.     cprintf("%s    2001 S. Lincoln Ave.", tab);
  55.     gotoxy(1, i++);
  56.     cprintf("%s    Urbana, IL  61801", tab);
  57.     gotoxy(1, i++);
  58.     cprintf("%s      Tel:  217/333-8933 or 333-2506", tab);
  59.     gotoxy(1, i++);
  60.     cprintf("%s      FAX:  217/333-4628", tab);
  61.     clrscr1(3);
  62.     gotoxy(9, 2);
  63.     cprintf("Created using Turbo C, copyright Borland 1987, 1988.");
  64.     hitreturn(1);
  65.   } /* if termq */
  66.  
  67.   if (HARDCOPY) {
  68.     introprint = 1;
  69.     fprintf(stdprn, "\n\n");
  70.     printline(2, LNWID, '-');
  71.     fprintf(stdprn, "\tStages Program  [Version %s]\n", VERSION);
  72.     fprintf(stdprn, "\tA Spermatogenesis Stage Predictor Program\n");
  73.     fprintf(stdprn, "\tDeveloped at the University of Illinois, ");
  74.     fprintf(stdprn, "Urbana, IL\n");
  75.     fprintf(stdprn, "\t    Programmer:  Paul P. Chen\n\n");
  76.     fprintf(stdprn, "\tDirect correspondence to:\n");
  77.     fprintf(stdprn, "\t    Dr. Rex A. Hess\n");
  78.     fprintf(stdprn, "\t    Veterinary Biosciences\n");
  79.     fprintf(stdprn, "\t    University of Illinois at ");
  80.     fprintf(stdprn, "Urbana-Champaign\n");
  81.     fprintf(stdprn, "\t    2001 S. Lincoln Avenue\n");
  82.     fprintf(stdprn, "\t    Urbana, IL  61801\n");
  83.     fprintf(stdprn, "\t       Tel:  217/333-8933 or 333-2506\n");
  84.     fprintf(stdprn, "\t      FAX:  217/333-4628\n\n");
  85.     fprintf(stdprn, "\tCreated using Turbo C, ");
  86.     fprintf(stdprn, "copyright Borland 1987, 1988.\n");
  87.     printline(2, LNWID, '-');
  88.   } /* if HARDCOPY */
  89. #else
  90.   if (termq) {
  91.     printf("\n\n");
  92.     printline(0, LNWID, '-');
  93.     printf("\tStages Program  [Version %s]\n\n", VERSION);
  94.     printf("\tA Spermatogenesis Stage Predictor Program\n");
  95.     printf("\tDeveloped at the University of Illinois, Urbana, IL\n");
  96.     printf("\t    Programmer:  Paul P. Chen\n\n");
  97.     printf("\tDirect correspondence to:\n");
  98.     printf("\t    Dr. Rex A. Hess\n");
  99.     printf("\t    Veterinary Biosciences\n");
  100.     printf("\t    University of Illinois at Urbana-Champaign\n");
  101.     printf("\t    2001 S. Lincoln Ave.\n");
  102.     printf("\t    Urbana, IL  61801\n");
  103.     printf("\t      Tel:  217/333-8933 or 333-2506\n");
  104.     printf("\t      FAX:  217/333-4628\n\n");
  105.     printf("\tCreated using Turbo C, ");
  106.     printf("copyright Borland 1987, 1988.\n");
  107.     printline(0, LNWID, '-');
  108.   } /* if termq */
  109. #endif
  110.  
  111.   if (fileq) {
  112.     fprintf(fpout, "\n\n");
  113.     printline(1, LNWID, '-');
  114.     fprintf(fpout, "\tStages Program  [Version %s]\n", VERSION);
  115.     fprintf(fpout, "\tA Spermatogenesis Stage Predictor Program\n");
  116.     fprintf(fpout, "\tDeveloped at the University of Illinois, ");
  117.     fprintf(fpout, "Urbana, IL\n");
  118.     fprintf(fpout, "\t    Programmer:  Paul P. Chen\n\n");
  119.     fprintf(fpout, "\tDirect correspondence to:\n");
  120.     fprintf(fpout, "\t    Dr. Rex A. Hess\n");
  121.     fprintf(fpout, "\t    Veterinary Biosciences\n");
  122.     fprintf(fpout, "\t    University of Illinois at ");
  123.     fprintf(fpout, "Urbana-Champaign\n");
  124.     fprintf(fpout, "\t    2001 S. Lincoln Avenue\n");
  125.     fprintf(fpout, "\t    Urbana, IL  61801\n");
  126.     fprintf(fpout, "\t      Tel:  217/333-8933 or 333-2506\n");
  127.     fprintf(fpout, "\t      FAX:  217/333-4628\n\n");
  128.     fprintf(fpout, "\tCreated using Turbo C, ");
  129.     fprintf(fpout, "copyright Borland 1987, 1988.\n");
  130.     printline(1, LNWID, '-');
  131.   } /* if fileq */
  132.   return(0);
  133. } /* printintro */
  134.  
  135. /********************************/
  136. /*     function: printoutputhdr    */
  137. /********************************/
  138. printoutputhdr (argc, argv, pbadipfil, interactive, ok,
  139.         ipfil, opfil, stgfil, seqfil)
  140.   int argc;
  141.   char *argv[];
  142.   int *pbadipfil, interactive, ok;
  143.   char *ipfil, *opfil, *stgfil, *seqfil;
  144. {
  145.   int j, ok1, val;
  146.   char dummy[MAXLEN];        /* user string input (y/n) */
  147. #if PC
  148.   int i;
  149.  
  150.   i = 3;
  151.   printline(4, LNWID, '-');    /* to file and printer only */
  152.   topline("");            /* puts animal name at top */
  153.   clrscr1(1);
  154.   gotoxy(1, i++);
  155.   cprintf("%sStages Program Output", tab);
  156.   gotoxy(1, i++);
  157.   cprintf("%sCalled by command: ", tab);
  158.   if (HARDCOPY) {
  159.     fprintf(stdprn, "\tStages Program Output\n\n");
  160.     fprintf(stdprn, "\tCalled by command: ");
  161.   }
  162. #else
  163.   printf("\n\n");
  164.   printline(3, LNWID, '-');
  165.   printf("\tStages Program Output\n\n");
  166.   printf("\tCalled by command: ");
  167. #endif
  168.   if (FILEq && FILECOPY) {
  169.     fprintf(fpout, "\tStages Program Output\n\n");
  170.     fprintf(fpout, "\tCalled by command: ");
  171.   }
  172.  
  173.   for ( j=0; j<argc; j++ ) {
  174. #if PC
  175.     cprintf(" %s", argv[j]);
  176.     if (HARDCOPY)
  177.       fprintf(stdprn, " %s", argv[j]);
  178. #else
  179.     printf(" %s", argv[j]);
  180. #endif
  181.     if (FILEq && FILECOPY)
  182.       fprintf(fpout, " %s", argv[j]);
  183.   } /* for j */
  184.  
  185. #if PC
  186.   i++;    /* skip a line */
  187.   if (HARDCOPY)
  188.     fprintf(stdprn, "\n\n");
  189. #else
  190.   printf("\n\n");
  191. #endif
  192.   if (FILEq && FILECOPY)
  193.     fprintf(fpout, "\n\n");
  194.  
  195.   if (! ok) {
  196. #if PC
  197.     msgwin();
  198.     gotoxy(1, 1);
  199.     cprintf("%sUnrecognized option(s) ignored.", tab);
  200.     if (HARDCOPY)
  201.       fprintf(stdprn, "\tUnrecognized option(s) ignored.\n\n");
  202. #else
  203.     printf("\tUnrecognized option(s) ignored.\n\n");
  204. #endif
  205.     if (FILEq && FILECOPY)
  206.       fprintf(fpout, "\tUnrecognized option(s) ignored.\n\n");
  207.   } /* !ok */
  208.  
  209.   if (*pbadipfil) { /* interactive because ipfil not found */
  210.     /* reset badipfil: don't want to print out this error msg more than once */
  211.     *pbadipfil = 0;
  212. #if PC
  213.     msgwin();
  214.     gotoxy(1, 2);
  215.     cprintf("%sInvalid batch input file <%s> specified.", tab, ipfil);
  216.     gotoxy(1, 3);
  217.     cprintf("%sInput must be entered interactively.", tab);
  218.     outputwin();
  219.     gotoxy(1, i++);
  220.     cprintf("%sInput must be entered interactively.", tab);
  221.     if (HARDCOPY) {
  222.       fprintf(stdprn, "\tInvalid batch input file <%s> specified.\n", ipfil);
  223.       fprintf(stdprn, "\t    Input must be entered interactively.\n");
  224.     }
  225. #else
  226.     printf("\tInvalid batch input file <%s> specified.\n", ipfil);
  227.     printf("\t    Input must be entered interactively.\n");
  228. #endif
  229.     if (FILEq && FILECOPY) {
  230.       fprintf(fpout, "\tInvalid batch input file <%s> specified.\n", ipfil);
  231.       fprintf(fpout, "\t    Input entered interactively.\n");
  232.     }
  233.   } else { /* !badipfil */
  234.     if (interactive) {
  235. #if PC
  236.       outputwin();
  237.       gotoxy(1, i++);
  238.       cprintf("%sInput entered interactively.", tab);
  239.       if (HARDCOPY)
  240.     fprintf(stdprn, "\tInput entered interactively.\n");
  241. #else
  242.       printf("\tInput entered interactively.\n");
  243. #endif
  244.       if (FILEq && FILECOPY)
  245.     fprintf(fpout, "\tInput entered interactively.\n");
  246.     } else { /* input from file */
  247. #if PC
  248.       outputwin();
  249.       gotoxy(1, i++);
  250.       cprintf("%sInput taken from file <%s>.", tab, ipfil)