全國計算機(jī)等考二級C語言：程序設(shè)計實戰(zhàn)(14)

　　{

　　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);}