/* for Turbo C */
/* To convert Commodore PETASCII to ASCII */
#include <io.h>
#include <stdio.h>
#include <fcntl.h>
main()
{
char in_file[13];
char out_file[13] = "outfile.txt";
int c;
char newc;
FILE *fp_in, *fp_out;
printf ("Filename to convert:");
scanf("%s", &in_file);
printf ("\nSave to:");
scanf ("%s",&out_file);
printf ("IN FILENAME -> %s", in_file);
printf ("\nOUT FILENAME -> %s\n", out_file);
fp_in = fopen(in_file, "rb");
fp_out = fopen (out_file, "w");
while ((c = getc(fp_in)) != EOF)
{
/* Graphics to UpperCase */
if ((c > 192) && (c < 219)) {
newc = c - 128;
}
/* Upper To Lower case */
else if ((c >= 'A') && (c <= 'Z')) {
newc = c + 32;
}
else if (c == 13) {
newc = '\n';
}
else newc = c;
/* Newline */
putchar (newc);
fputc (newc, fp_out);
}
/*that's all folks */
}
