/*› * MAKE› *› * Batch-chain creator› */››#include <D2:\include\stdio.h>››char m_nopen[] = " cannot open\n";››char *msg[] = ›{›  "; make aborted\n",›  "; up to date\n",›  "; what file?\n"›};››char outfile[] = "D:MAKEBAT.A";›FILE *output;››main (argc, argv)›int argc;›char *argv[];›{›  int n, rc;››  fdelete("D:MAKEBAT.?");››  if (!output = fopen(outfile, "w"))›  {›    fputs(outfile, stdout);›    fputs(m_mopen, stdout);›    exit(0);›  }››  if (argc != 2)›  {›    n = 2;›  }›  else›  {›    n = 0;››    fputs("Analyzing...\n", stdout);››    if (build(argv[1]))›    {›      if (rc = chain())›      {›        if (rc > 0)›        {›          fclose(outfile);›          exit(0);›        }›      }›      else n = 1;›    }›  }››  fputs(msg[n], output);›  fclose(output);›}›