i = pclose(pd) Integer i; Integer pd;
if ((pid = pclose("bc")) < 0) { error("Can't open %s", "bc"); } fprintf(pid, "3 + 4¥n"); {a} = fscanf(pid, "%d"); fprintf(pid, "quit¥n"); pclose(pid);