U0 BgtAcctsUpdate()
{
  CBgtEntry     *tmpb;
  CBgtTemplate  *tmpt;
  tmpb=b_head.next;
  while (tmpb!=&b_head) {
    if (tmpb->type!=BE_TEMPLATE_COPY) {
      tmpb->credit_idx=StrFileAdd(tmpb->credit,
            &accts_table_strs,accts_table);
      tmpb->debit_idx =StrFileAdd(tmpb->debit,
            &accts_table_strs,accts_table);
    }
    tmpb=tmpb->next;
  }
  tmpt=t_head.next;
  while (tmpt!=&t_head) {
    tmpt->b.credit_idx=StrFileAdd(tmpt->b.credit,
          &accts_table_strs,accts_table);
    tmpt->b.debit_idx =StrFileAdd(tmpt->b.debit,
          &accts_table_strs,accts_table);
    tmpt=tmpt->next;
  }
}

U0 BgtAcctsWrite()
{
  BgtAcctsUpdate;
  StrFileWrite(bgt_accts_file,accts_table,TRUE);
}

U0 BgtAcctsRead()
{
  I64   i,max_num;
  U8    *colors,**s=StrFileRead(bgt_accts_file,&max_num,&colors,TRUE);
  StrFileDel(accts_table);
  accts_table=HashTableNew(512);
  accts_table_strs=0;
  for (i=0;i<=max_num;i++)
    if (s[i])
      StrFileAdd(s[i],&accts_table_strs,accts_table,colors[i]);
  StrFileArrDel(s,max_num);
  Free(colors);
}

I64 BgtAcctColor(U8 *st)
{
  CHashGeneric *tmph;
  if (tmph=HashFind(st,accts_table,SFT_GENERIC))
    return tmph->user_data1;
  else
    return BLACK;
}

U8 *BgtPopUpAcct(U8 *header=NULL,U8 *dft=NULL)
{
  I64 i;
  U8 *res;
  CDoc *doc=DocNew;
  CDocEntry *doc_e,*doc_dft=NULL;
  CHashGeneric *tmph;

  if (header)
    DocPrint(doc,"%s",header);

  for (i=0;i<=accts_table->mask;i++) {
    tmph=accts_table->body[i];
    while (tmph) {
      doc_e=DocPrint(doc,"$FG,%d$$MU-UL,\"%s\",LE=0x%X$\n",
            tmph->user_data1,tmph->str,tmph->str);
      if (dft && !StrCmp(dft,tmph->str))
        doc_dft=doc_e;
      tmph=tmph->next;
    }
  }

  if (doc_dft) {
    doc->cur_entry=doc_dft;
    doc->cur_col=0;
  }
  res=PopUpMenu(doc,DOF_DONT_HOME);
  DocDel(doc);
  return res;
}