procedure ZIRON_API onFileEntry(DWord handle; char* pCode; DWord len): boolean;

function* ZIRON_API ziron_file_setbuffer(DWord filehd; char* buf; DWord len): boolean;

function stdcall onFileEntry(DWord handle; char* strCode; DWord len) {
  
     uses edi;
     
     char  line[2048];
     char* ptr;
     dword buf;
      
     buf =  GlobalAlloc(GPTR , 2 * len);
     
     esi = strCode;
     edi = @line;
     while( char[esi] <> 10) 
      {
         char[edi++]=char[esi++];
      }  
     
    
    ziron_log_messageA('', false);
    
    ziron_file_setbuffer(handle, buf, strlen(buf));
    
    GlobalFree(buf);
     
    return true;
}