home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / cbmasc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-03-23  |  1.1 KB  |  55 lines
  1. /* for Turbo C */
  2. /* To convert Commodore PETASCII to ASCII */
  3.  
  4.  #include <io.h>
  5.  #include <stdio.h>
  6.  #include <fcntl.h>
  7.  
  8.  main()
  9.  {
  10.      char in_file[13];
  11.      char out_file[13] = "outfile.txt";
  12.      int c;
  13.      char newc;
  14.  
  15.      FILE *fp_in, *fp_out;
  16.  
  17.      printf ("Filename to convert:");
  18.      scanf("%s", &in_file);
  19.      printf ("\nSave to:");
  20.      scanf ("%s",&out_file);
  21.  
  22.      printf ("IN FILENAME -> %s", in_file);
  23.      printf ("\nOUT FILENAME -> %s\n", out_file);
  24.  
  25.  
  26.      fp_in = fopen(in_file, "rb");
  27.      fp_out = fopen (out_file, "w");
  28.  
  29.      while ((c = getc(fp_in)) != EOF)
  30.      {
  31.  
  32.           /* Graphics to UpperCase */
  33.           if ((c > 192) && (c < 219)) {
  34.                newc = c - 128;
  35.           }
  36.  
  37.           /* Upper To Lower case */
  38.           else if ((c >= 'A') && (c <= 'Z')) {
  39.                newc = c + 32;
  40.           }
  41.  
  42.           else if (c == 13) {
  43.                newc = '\n';
  44.           }
  45.           else newc = c;
  46.  
  47.           /* Newline */
  48.           putchar (newc);
  49.           fputc (newc, fp_out);
  50.  
  51.      }
  52.  
  53.      /*that's all folks */
  54.  }
  55.