/*money management system*/
#include "stdio.h"
#include "dos.h"
#include "conio.h"
main()
{
  FILE *fp;
  struct date d;
  float sum,chm=0.0;
  int len,i,j=0;
  int c;
  char ch[4]="",ch1[16]="",chtime[12]="",chshop[16],chmoney[8];
pp:
  clrscr();
  sum=0.0;
  gotoxy(1,1);printf("|---------------------------------------------------------------------------|");
  gotoxy(1,2);printf("| money management system(C1.0) 2000.03 |");
  gotoxy(1,3);printf("|---------------------------------------------------------------------------|");
  gotoxy(1,4);printf("| -- money records -- | -- today cost list -- |");
  gotoxy(1,5);printf("| ------------------------ |-------------------------------------|");
  gotoxy(1,6);printf("| date: -------------- | |");
  gotoxy(1,7);printf("| | | | |");
  gotoxy(1,8);printf("| -------------- | |");
  gotoxy(1,9);printf("| thgs: ------------------ | |");
  gotoxy(1,10);printf("| | | | |");
  gotoxy(1,11);printf("| ------------------ | |");
  gotoxy(1,12);printf("| cost: ---------- | |");
  gotoxy(1,13);printf("| | | | |");
  gotoxy(1,14);printf("| ---------- | |");
  gotoxy(1,15);printf("| | |");
  gotoxy(1,16);printf("| | |");
  gotoxy(1,17);printf("| | |");
  gotoxy(1,18);printf("| | |");
  gotoxy(1,19);printf("| | |");
  gotoxy(1,20);printf("| | |");
  gotoxy(1,21);printf("| | |");
  gotoxy(1,22);printf("| | |");
  gotoxy(1,23);printf("|---------------------------------------------------------------------------|");
  i=0;
  getdate(&d);
  sprintf(chtime,"%4d.%02d.%02d",d.da_year,d.da_mon,d.da_day);
  for(;;)
  {
    gotoxy(3,24);printf(" Tab __browse cost list Esc __quit");
    gotoxy(13,10);printf(" ");
    gotoxy(13,13);printf(" ");
    gotoxy(13,7);printf("%s",chtime);
    j=18;
    ch[0]=getch();
    if(ch[0]==27)
      break;
    strcpy(chshop,"");
    strcpy(chmoney,"");
    if(ch[0]==9)
    {
mm:
      i=0;
      fp=fopen("home.dat","r+");
      gotoxy(3,24);printf(" ");
      gotoxy(6,4);printf(" list records ");
      gotoxy(1,5);printf("|-------------------------------------|");
      gotoxy(41,4);printf(" ");
      gotoxy(41,5);printf(" |");
      while(fscanf(fp,"%10s%14s%f\n",chtime,chshop,&chm)!=EOF)
      {
        if(i==36)
        {
          getch();
          i=0;
        }
        if((i%36)<17)
        {
          gotoxy(4,6+i);
          printf(" ");
          gotoxy(4,6+i);
        }
        else
          if((i%36)>16)
          {
            gotoxy(41,4+i-17);
            printf(" ");
            gotoxy(42,4+i-17);
          }
        i++;
        sum=sum+chm;
        printf("%10s %-14s %6.1f\n",chtime,chshop,chm);
      }
      gotoxy(1,23);printf("|---------------------------------------------------------------------------|");
      gotoxy(1,24);printf("| |");
      gotoxy(1,25);printf("|---------------------------------------------------------------------------|");
      gotoxy(10,24);printf("total is %8.1f$",sum);
      fclose(fp);
      gotoxy(49,24);printf("press any key to.....");getch();goto pp;
    }
    else
    {
      while(ch[0]!='\r')
      {
        if(j<10)
        {
          strncat(chtime,ch,1);
          j++;
        }
        if(ch[0]==8)
        {
          len=strlen(chtime)-1;
          if(j>15)
          {len=len+1; j=11;}
          strcpy(ch1,"");
          j=j-2;
          strncat(ch1,chtime,len);
          strcpy(chtime,"");
          strncat(chtime,ch1,len-1);
          gotoxy(13,7);printf(" ");
        }
        gotoxy(13,7);printf("%s",chtime);ch[0]=getch();
        if(ch[0]==9)
          goto mm;
        if(ch[0]==27)
          exit(1);
      }
      gotoxy(3,24);printf(" ");
      gotoxy(13,10);
      j=0;
      ch[0]=getch();
      while(ch[0]!='\r')
      {
        if (j<14)
        {
          strncat(chshop,ch,1);
          j++;
        }
        if(ch[0]==8)
        {
          len=strlen(chshop)-1;
          strcpy(ch1,"");
          j=j-2;
          strncat(ch1,chshop,len);
          strcpy(chshop,"");
          strncat(chshop,ch1,len-1);
          gotoxy(13,10);printf(" ");
        }
        gotoxy(13,10);printf("%s",chshop);ch[0]=getch();
      }
      gotoxy(13,13);
      j=0;
      ch[0]=getch();
      while(ch[0]!='\r')
      {
        if (j<6)
        {
          strncat(chmoney,ch,1);
          j++;
        }
        if(ch[0]==8)
        {
          len=strlen(chmoney)-1;
          strcpy(ch1,"");
          j=j-2;
          strncat(ch1,chmoney,len);
          strcpy(chmoney,"");
          strncat(chmoney,ch1,len-1);
          gotoxy(13,13);printf(" ");
        }
        gotoxy(13,13);printf("%s",chmoney);ch[0]=getch();
      }
      if((strlen(chshop)==0)||(strlen(chmoney)==0))
        continue;
      if((fp=fopen("home.dat","a+"))!=NULL);
        fprintf(fp,"%10s%14s%6s",chtime,chshop,chmoney);
      fputc('\n',fp);
      fclose(fp);
      i++;
      gotoxy(41,5+i);
      printf("%10s %-14s %-6s",chtime,chshop,chmoney);
    }
  }
  getch();
}