#define lvl_size nb_level*260+10
void save(char* packlevel, int lvl)
{
  HSym hsym;
  SYM_ENTRY *SymPtr;
  int level_archive;
  char nb_level;
  HANDLE handle;
  char *fptr=fptr;
  if (packlevel[0] == 0) strcpy(packlevel,"gravtemp");
  
  hsym = SymFind (SYMSTR (packlevel));
  SymPtr = DerefSym (hsym);
  level_archive = SymPtr -> flags.bits.archived;
  
  EM_moveSymFromExtMem (NULL,hsym); // desarchive la variable packlevel
  
  SYM_ENTRY *openlevel_sym;  
  openlevel_sym=SymFindPtr(SYMSTR(packlevel),0);
  handle=openlevel_sym->handle;
  fptr=HeapDeref(handle);
  nb_level = *(fptr+3);
  char *pack=malloc(lvl_size-10);
  memcpy(pack, fptr+4, 260 * nb_level * sizeof(char));
  
  HANDLE handlefin;
  char *fptrfin;
  SYM_ENTRY *write_sym;
  
  handlefin=HeapAlloc(lvl_size);
  write_sym=DerefSym(SymAdd(SYMSTR(packlevel)));
  write_sym->handle=handlefin;
  fptrfin=HeapDeref(handlefin);
  *(short*)fptrfin=lvl_size-2;
  fptrfin[3]=nb_level;

  if (nb_level>1) memcpy(&fptrfin[4], pack, 260 * nb_level * sizeof(char));
  memcpy(&fptrfin[lvl*260-260+4], m, 260 * sizeof(char));
  
  fptrfin[lvl_size-6]=0;
  strcpy(fptrfin+lvl_size-5,"LVL");
  fptrfin[lvl_size-1]=OTH_TAG; 
  
  
  if (level_archive)
  {
    hsym = SymFind (SYMSTR (packlevel));
    EM_moveSymToExtMem (NULL,hsym); // archive la variable packlevel
  }
  free(pack);
}