#include <tigcclib.h>         // Include All Header Files

void _main(void)
{
  int i=0, j, nb_level;
  char packlevelfinal[25]={}, *strfinal=malloc(7801), *level=malloc(7801);
  ESI argptr;
  InitArgPtr (argptr);
  
  if (GetArgType (argptr) == STR_TAG)
    strcpy(packlevelfinal,GetStrnArg(argptr));


  while (GetArgType (argptr) == STR_TAG)
  {
    printf_xy(10,40,"%d ",i);
    ngetchx();
    FILE *l=fopen (GetStrnArg(argptr), "rb");
    fseek (l, 1, 1);
    nb_level = fgetc (l);
    printf_xy(10,10,"%d ",nb_level);
    ngetchx();
    fseek (l, 2, 1);
    for (j=0;j<260*nb_level;j++) 
    {
      level[j] = fgetc(l);
      //printf_xy(20,10,"%d ",j);
    }
    fclose (l);
    
    strcat (strfinal, level ); 
    memset(level,0,7801); 
    i++;
  }
  printf_xy(10,20,"128");
  ngetchx();
  FILE *f = fopen (packlevelfinal, "wb");
    fputc (0, f);
    fprintf (f,"%c%s",i,strfinal);
    fputc (0, f);
    fputs ("LVL", f);
    fputc (0, f);
    fputc (OTH_TAG, f);
    fclose (f);  
  free(strfinal);
  free(level);
}