/* * CONCURRENT PASCAL CONVERSION PROGRAM * */ extern fin; extern fout; main() { int chr; /* Uses single character mode */ fout = 2; openinput: printf ("input file: "); flush(); fopen (0,&fin); if (fin < 0) { printf("Wrong, try again\n"); goto openinput; } openoutput: printf ("output file: "); flush(); fout = creat (0); if (fout < 0) { fout = 2; printf ("Wrong, try again\n"); goto openoutput; } /* * Real meat of the program * */ chr = 1; /*********** Fake! *********/ /* * */ while (chr != 0) { chr = getchar (); if (chr == 012) putchar (015); if (chr == ('Y'&077)) chr = 0; /* Force EOF on EOM char */ if (chr != 0) putchar(chr); } flush(); close (fin); close (fout); fout = 2; goto openinput; }