dotc
dotc = chget(0);
rchar = dotc | chbits;
FILE *dotc;
if ((dotc = fopen(cfile, "w+")) == NULL) {
if (fwrite(prog, 1, strlen(prog), dotc) < strlen(prog)) {
(void) fclose(dotc);
if (fclose(dotc) < 0) {