FILE *file;
file= fopen("main\\file", "wb");
for(ch = 0; ch < 8; ch++) fputc(0, file);
fputc(0, file);
fputs("OTH", file);
fputc(0, file);
fputc(OTH_TAG, file);
fclose(file);

  
SYM_ENTRY *sym=SymFindPtr($(plfile),0);
  HANDLE handle;
  if (sym)
  {
    if (sym->flags.bits.archived)
    {
      if (!EM_moveSymFromExtMem($(plfile),HS_NULL)) ER_throw(ER_MEMORY);
    }
    handle=HeapRealloc(sym->handle,49);
    sym=SymFindPtr($(plfile),0);
  }
  else
  {
    HSym hsym=SymAdd($(plfile));
    if (!*(unsigned long *)&hsym) ER_throw(ER_MEMORY);
    handle=HeapAlloc(49);
    if (handle)
    sym=DerefSym(hsym);
    else
    SymDel($(plfile));
  }
  if (!handle) ER_throw(ER_MEMORY);
  sym->handle=handle;
  short *fptr=HeapDeref(handle);
  for(ch = 0; ch < 8; ch++) fptr[ch]=0;
  fptr[9]=0;
  fptr[10]=(char)"PLF";
  fptr[11]=0;
  fptr[12]=OTH_TAG;

  handle=HeapAlloc(12);
  if(!handle)return;
  ptrsym=DerefSym(SymAdd($(georgsav)));
  if(!ptrsym)return;
  ptrsym->handle=handle;
  ptrFILE=HeapDeref(handle);
  *ptrFILE=12;
  strcpy(ptrFILE+4,"Sav");
  ptrFILE[10]=0;ptrFILE[11]=OTH_TAG;

  handle=HeapAlloc(12);
  if(!handle)return;
  ptrsym=DerefSym(SymAdd($(georgsav)));
  if(!ptrsym)return;
  ptrsym->handle=handle;
  ptrFILE=HeapDeref(handle);
  *(short*)ptrFILE=10;  
  strcpy(ptrFILE+7,"Sav"); 
  ptrFILE[10]=0;ptrFILE[11]=OTH_TAG;

  handle=HeapAlloc(12);
  if(!handle)return;
  ptrsym=DerefSym(SymAdd($(georgsav)));
  if(!ptrsym)return;
  ptrsym->handle=handle;
  ptrFILE=HeapDeref(handle);
  *(short*)ptrFILE=10;  
  strcpy(ptrFILE+6,"Save"); 
  ptrFILE[10]=0;ptrFILE[11]=OTH_TAG;

  handle=HeapAlloc(12);
  if(!handle)return;
  ptrsym=DerefSym(SymAdd($(georgsav)));
  if(!ptrsym)return;
  ptrsym->handle=handle;
  ptrFILE=HeapDeref(handle);
  *(short*)ptrFILE=10;  
  ptrFILE[5]=0;
  strcpy(ptrFILE+6,"Save"); 
  ptrFILE[11]=OTH_TAG;

//Function to create a file
short file_create (char *content, const char *ext, const char *filename,short nbstr)
{
  //Init temp var
  FILE * pfile;
  //Opens the file for writing, if it already exists it will be overwritten
  pfile  = fopen (filename,"wb");
  //Puts the "WIN" tag, to specify it's a windows file
  fputs  ("WIN",  pfile);
  //Puts the icon number for extension ext
  fputc  (geticon(ext), pfile);
  //Puts the content of the file
  while(nbstr>0)
  {
    fputs  (content, pfile);
    fputc  (0x00, pfile);
    content=content+strlen(content);
    nbstr--;
  }
  //Puts the ending 0x00 tag
  fputc  (0x00, pfile);
  //Puts the extension
  if(strlen(ext)==4)
  {
    fputc  (0x00, pfile);
    fputs  (ext, pfile);
  }
  else
    fputs  (ext, pfile);
  //Puts the ending 0x00 tag
  fputc  (0x00, pfile);
  //Puts the OTH_TAG tag for the TI Var-Link
  fputc  (OTH_TAG, pfile);
  //Closes and saves the file
  fclose (pfile);
  //Returns ok
  return TRUE;
}