#include <stdio.h>
#include <string.h>

main(int argc, char *argv[]){
       FILE *f, *nfile;
       char c;
       char path[50];
       char nfile_path[50];

       if (argc == 1){
           printf("\nDwse to onoma tou arxeiou pros anagnwsh : ");
           scanf("%s", path);
       }
       else 
           strcpy(path, argv[1]);

       f = fopen(path, "r");                  //anoigma arxeiou
       if (!f){                                //elegxos uparkshs/swstou anoigmatos arxeiou
            printf("\n\nTo arxeio %s de brethike\n\n", path);
            return;
       }

       printf("\nDwse to onoma tou arxeiou pou tha dhmiourgithei : ");
       scanf("%s", nfile_path);

       nfile = fopen(nfile_path, "w");

       while(!feof(f)){
            fscanf(f, "%c", &c);
            switch (c){
               case -63  : c = 65; break;    //Alpha kefalaio
               case -62  : c = 66; break;
               case -61  : c = 71; break;
               case -60  : c = 68; break;
               case -59  : c = 69; break;
               case -58  : c = 90; break;
               case -57  : c = 72; break;
               case -56  : c = 56; break;
               case -55  : c = 73; break;
               case -54  : c = 75; break;
               case -53  : c = 76; break;
               case -52  : c = 77; break;
               case -51  : c = 78; break;
               case -50  : c = 51; break;
               case -49  : c = 79; break;
               case -48  : c = 80; break;
               case -47  : c = 82; break;
               case -45  : c = 83; break;
               case -44  : c = 84; break;
               case -43  : c = 89; break;
               case -42  : c = 70; break;
               case -41  : c = 88; break;
               case -40  : c = 74; break;
               case -39  : c = 79; break;    //omega kefalaio

               case -31  : c = 97; break;    //Alpha mikro
               case -30  : c = 98; break;
               case -29  : c = 103; break;
               case -28  : c = 100; break;
               case -27  : c = 101; break;
               case -26  : c = 122; break;
               case -25  : c = 105; break;
               case -24  : c = 56; break;
               case -23  : c = 105; break;
               case -22  : c = 107; break;
               case -21  : c = 108; break;
               case -20  : c = 109; break;
               case -19  : c = 110; break;
               case -18  : c = 51; break;
               case -17  : c = 111; break;
               case -16  : c = 112; break;
               case -15  : c = 114; break;
               case -13  : c = 115; break;
               case -12  : c = 116; break;
               case -11  : c = 117; break;
               case -10  : c = 102; break;
               case -9  : c = 120; break;
               case -8  : c = 121; break;
               case -7  : c = 119; break;    //omega mikro

               case -94  : c = 65; break;     //Alpha kefalaio me tono
               case -72  : c = 69; break;     //epsilon kefalaio me tono
               case -71  : c = 72; break;    //hta kefalaio me tono
               case -70  : c = 73; break;    //giota kefalaio me tono
               case -68  : c = 79; break;    //omikron kefalaio me tono
               case -66  : c = 89; break;    //upsilon kefalaio me tono
               case -65  : c = 79; break;    //wmega kefalaio me tono

               case -36  : c = 97; break;     //Alpha mikro me tono
               case -35  : c = 101; break;     //epsilon mikro me tono
               case -34  : c = 104; break;    //hta mikro me tono
               case -33  : c = 105; break;    //giota mikro me tono
               case -4  : c = 111; break;    //omikron mikro me tono
               case -3  : c = 117; break;    //upsilon mikro me tono
               case -2  : c = 119; break;    //wmega mikro me tono

               case -6  : c = 105; break;     //giota mikro me dialitika
               case -64  : c = 105; break;     //giota mikro me tono kai dialitika
               case -5  : c = 117; break;    //upsilon mikro me dialitika
               case -14  : c = 115; break;    //sigma teliko

               default : break;
            }
            fprintf(nfile, "%c", c);
       }
       fclose(f);
       fclose(nfile);
}