// program for TM 0045 - OCT 1999

#include<stdio.h>
#include<string.h>
#include<conio.h>
#include<stdlib.h>
#include<dos.h>
#include<ctype.h>
#include<io.h>
#include <bios.h>

#define N 100

/* Definasi istihar fungsi */
void buka_fail_pelajar ( void );
void buka_fail_gred( void );
void buka_fail_bilang ( void );
void simpan_fail( void );
void simpan_gred ( void );
void simpan_bilang ( void );
void input_pelajar ( void );
void input_gred(void);
void konfigurasi_gred (void);
void update_markah(void);
int menu_utama ( void );
int menu_kemaskini ( void );
int menu_papar(void);
void menu_papar_pel( void );
int menu_papar_gred(void);
int menu_gred ( void );
int menu_kemas_gred ( void );
int menu_tambah_pelajar (void);
void papar_one_pelajar ( int i );
void papar_semua_pelajar(void);
void papar_pilih_gred ( void );
void papar_gred ( int i );
void papar_semua_gred(void);
void kemaskini_pelajar ( void );
void kemas_gred ( void );
void cari_pelajar ( void );
void cari_gred ( void );
void hapus_pelajar ( void );
void hapus_gred ( void );
void ralat ( void );
void ralat2 (void);
void bilang (void) ;
void tolongAna (void);
void Scroll();

/* Istihar struktur data gred dan mata kredit */
struct mr_kredit {
  char gred[4];
  char kredit[5];
};

/* Istihar struktur tarikh */
struct tarikh {
  char hari[3];
  char bulan[3];
  char tahun[5];
}t [N];

/* Istihar struktur ahli untuk sistem gred */
struct gred {
  char markahA[4];
  char markahB[4];
  struct mr_kredit mk;
  struct tarikh tkh;
} ahli[12];

/* Istihar struktur rekod pelajar */
struct rekod {
  char matapelajaran[22];
  char markah[5];
  char gred[3];
  char kredit[13];
  struct tarikh tk;
}rekod[N];

/* Istihar struktur data keseluruhan data pelajar */
struct data_pelajar {
  char nama[40];
  char metrik[15];
  char bil[3];
  struct rekod rd;
} pelajar[N];

/* Istihar struktur bilang gred*/
struct bilang {
  char bil[3];
  char grd[3];
  char BilSemua[4];
  struct tarikh tk;
}bill[15];


char KotakPelajar[22][83]=
{"ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ",
 "К                                                                           К",
 "ЧФФФТФФФФФФФФФФФФФТФФФФФФФФФФФФФФФФФФФФФФТФФФФФФТФФФФТФФФФФФФФФТФФФФФФФФФФФФЖ",
 "КBILГ  NO.MATRIK  Г    MATAPELAJARAN     ГMARKAHГGREDГMATA GREDГTARIKH INPUTК",
 "ЧФФФХФФФФФФФФФФФФФХФФФФФФФФФФФФФФФФФФФФФФХФФФФФФХФФФФХФФФФФФФФФХФФФФФФФФФФФФЖ",
 "К   Г             Г                      Г      Г    Г         Г            К",
 "К   Г             Г                      Г      Г    Г         Г            К",
 "К   Г             Г                      Г      Г    Г         Г            К",
 "К   Г             Г                      Г      Г    Г         Г            К",
 "К   Г             Г                      Г      Г    Г         Г            К",
 "К   Г             Г                      Г      Г    Г         Г            К",
 "К   Г             Г                      Г      Г    Г         Г            К",
 "К   Г             Г                      Г      Г    Г         Г            К",
 "К   Г             Г                      Г      Г    Г         Г            К",
 "К   Г             Г                      Г      Г    Г         Г            К",
 "К   Г             Г                      Г      Г    Г         Г            К",
 "К   Г             Г                      Г      Г    Г         Г            К",
 "К   Г             Г                      Г      Г    Г         Г            К",
 "К   Г             Г                      Г      Г    Г         Г            К",
 "К   Г             Г                      Г      Г    Г         Г            К",
 "К   Г             Г                      Г      Г    Г         Г            К",
 "К   Г             Г                      Г      Г    Г         Г            К"};

char kotakGred[20][62]=
{"ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ",
 "К                                                       К",
 "ЬЭЭЭЭЭбЭЭЭЭЭЭбЭЭЭЭЭЭЭЭЭЭЭЭЭбЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭбЭЭЭЭЭЭЭЭЭЭЭЭЙ",
 "К BIL Г GRED Г DARI MARKAH Г HINGGA MARKAH Г MATA GRED  К",
 "ЧФФФФФХФФФФФФХФФФФФФФФФФФФФХФФФФФФФФФФФФФФФХФФФФФФФФФФФФЖ",
 "К     Г      Г             Г               Г            К",
 "К     Г      Г             Г               Г            К",
 "К     Г      Г             Г               Г            К",
 "К     Г      Г             Г               Г            К",
 "К     Г      Г             Г               Г            К",
 "К     Г      Г             Г               Г            К",
 "К     Г      Г             Г               Г            К",
 "К     Г      Г             Г               Г            К",
 "К     Г      Г             Г               Г            К",
 "К     Г      Г             Г               Г            К",
 "К     Г      Г             Г               Г            К",
 "К     Г      Г             Г               Г            К",
 "К     Г      Г             Г               Г            К",
 "К     Г      Г             Г               Г            К",
 "ШЭЭЭЭЭЯЭЭЭЭЭЭЯЭЭЭЭЭЭЭЭЭЭЭЭЭЯЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЯЭЭЭЭЭЭЭЭЭЭЭЭМ"};

char kotakPapar[19][56]=
{"ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ",
 "К                                                 К",
 "ЬЭЭЭЭЭЭбЭЭЭЭЭЭЭЭЭЭЭЭЭбЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭбЭЭЭЭЭЭЭЭЭЭЭЭЙ",
 "К GRED Г DARI MARKAH Г HINGGA MARKAH Г MATA GRED  К",
 "ЧФФФФФФХФФФФФФФФФФФФФХФФФФФФФФФФФФФФФХФФФФФФФФФФФФЖ",
 "К      Г             Г               Г            К",
 "К      Г             Г               Г            К",
 "К      Г             Г               Г            К",
 "К      Г             Г               Г            К",
 "К      Г             Г               Г            К",
 "К      Г             Г               Г            К",
 "К      Г             Г               Г            К",
 "К      Г             Г               Г            К",
 "К      Г             Г               Г            К",
 "К      Г             Г               Г            К",
 "К      Г             Г               Г            К",
 "К      Г             Г               Г            К",
 "К      Г             Г               Г            К",
 "ШЭЭЭЭЭЭЯЭЭЭЭЭЭЭЭЭЭЭЭЭЯЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЯЭЭЭЭЭЭЭЭЭЭЭЭМ"};

char Kotak_bilGred[20][42]=
{"ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ",
 "К                                   К",
 "ЬЭЭЭЭЭЭбЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЙ",
 "К GRED Г     BILANGAN PELAJAR       К",
 "ЧФФФФФФХФФФФФФФФФФФФФФФФФФФФФФФФФФФФЖ",
 "К  A   Г                            К",
 "К  A-  Г                            К",
 "К  B+  Г                            К",
 "К  B   Г                            К",
 "К  B-  Г                            К",
 "К  C+  Г                            К",
 "К  C   Г                            К",
 "К  C-  Г                            К",
 "К  D+  Г                            К",
 "К  D   Г                            К",
 "К  D-  Г                            К",
 "К  E   Г                            К",
 "ШЭЭЭЭЭЭЯЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ"};


char kotakInput[14][51]=
{" ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ ",
 " ЬЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЙ ",
 " ЬЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЙ ",
 " К                                            К ",
 " К                                            К ",
 " К                                            К ",
 " К                                            К ",
 " К                                            К ",
 " К                                            К ",
 " К                                            К ",
 " К                                            К ",
 " ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ "};

char MenuUtama[19][80]=
{"ллппппппппппппппппппппппппппппппппплппппппппппппппппппппппппппппппппплл",
 "КК                                                                   КК",
 "КЬЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЫЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЙК",
 "КК                                 К                                 КК",
 "КК [1]  INPUT DATA PELAJAR         К [5]  PAPAR KEPUTUSAN PELAJAR    КК",
 "КК                                 К                                 КК",
 "КК [2]  MENCARI DATA PELAJAR       К [6]  BILANGAN PELAJAR & GRED    КК",
 "КК                                 К                                 КК",
 "КК [3]  KEMASKINI DATA PELAJAR     К [7]  KONFIGURASI GRED           КК",
 "КК                                 К                                 КК",
 "КК [4]  HAPUS DATA PELAJAR         К [8]  UPDATE GRED DAN TARIKH     КК",
 "КК                                 К                                 КК",
 "КЬЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЪЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЙК",
 "КК                                [9]                                КК",
 "КК                            K E L U A R                            КК",
 "ллмммммммммммммммммммммммммммммммммлмммммммммммммммммммммммммммммммммлл"};

int i, j;
int akhir = 0;
int akhir1 = 0;
int akhir2 = 0;
int  markah, markahAwal, markahAkhir;
char hari_d[3], bulan_m[3], tahun_y[5];
FILE *stream;
char *p;

char* input(int len) {

   char buffer[83];

   /* There's space for 80 characters plus the NULL terminator */
   buffer[0] = len;
   textcolor(10);
   return  cgets(buffer);

}

int file_exists(char *filename) {
  return (access(filename, 0) == 0);
}

long filesize(FILE *stream) {
   long curpos, panjang;

   curpos = ftell(stream);
   fseek(stream, 0L, SEEK_END);
   panjang = ftell(stream);
   fseek(stream, curpos, SEEK_SET);
   return panjang;
}

/* fungsi 'jam' */
void Jam (void) {
   do{
   textcolor(YELLOW);
   struct date d; getdate(&d);
   struct time t; gettime(&t);
      gotoxy(30,2); cprintf("[ %2d:%2d:%2d ",t.ti_hour,t.ti_min,t.ti_sec);
      cprintf("%2d/%2d/%4d ]",d.da_day,d.da_mon,d.da_year);
      delay(100);
     _setcursortype(_NOCURSOR);
   }while(!kbhit());
   _setcursortype(_NORMALCURSOR);

}/* tamat fungsi masa */

/* fungsi 'memeriksa" : melihat bait fail dan kewujudan fail */
void periksa(void){
   textmode(BW80);// Mode skrin hitam-putih
   clrscr();
   stream = fopen("a:pelajar.dat", "r");
   gotoxy (25,10);cprintf("pelajar.dat: %ld bytes   %s ",
   filesize(stream), file_exists("a:pelajar.dat") ? "access" : "NO");
   delay(2000);

   stream = fopen("a:gred.dat", "r");
   gotoxy (25,13);cprintf("gred.dat: %ld bytes   %s ",
   filesize(stream), file_exists("a:gred.dat") ? "access" : "NO");
   delay(2000);

   stream = fopen("a:bilang.dat", "r");
   gotoxy (25,16);cprintf("bilang.dat: %ld bytes   %s ",
   filesize(stream), file_exists("a:bilang.dat") ? "access" : "NO");
   delay(2000);

fclose(stream);

} /* tamat fungsi ' peirksa ' */

/* fungsi 'tarikh': menulis tarikh ke dalam fail bilang.dat apabila aturcara di buka */
void tarikh (void) {
   i=0;
   clrscr();
   struct date d;  getdate(&d);
      itoa(d.da_day, hari_d,10);
      itoa(d.da_mon, bulan_m, 10);
      itoa(d.da_year, tahun_y, 10);

      strcpy(bill[i].tk.hari  ,hari_d);
      strcpy(bill[i].tk.bulan ,bulan_m);
      strcpy(bill[i].tk.tahun ,tahun_y);

simpan_bilang(); /* memanggil fungsi 'simpan_bilang' */

} /* tamat fungsi 'tarikh */

/*****************************/
/* 	 Aturcara Utama      */
/*****************************/
// Aturcara bermula di sini ...
void main(void){
   int khuz;
   textmode(BW80);// Mode skrin hitam-putih
   buka_fail_pelajar(); /* buka fail pelajar */
   buka_fail_gred(); /* buka fail gred */
   buka_fail_bilang();/*buka fail bilangan */
   tarikh();  /* memanggil fungsi 'tarikh' */
   clrscr();

do {
   khuz = menu_utama();            /* memanggil fungsi 'menu_utama' */
      switch (khuz) {

	 case 1  : fflush(stdin);input_pelajar();         /* memanggil fungsi 'input_pelajar' */
		   break;

	 case 2  : fflush(stdin);cari_pelajar();               /* memanggil fungsi 'cari_pelajar' */
		   break;

	 case 3  : fflush(stdin);kemaskini_pelajar();          /* memanggil fungsi 'kemaskini_pelajar' */
		   break;

	 case 4  : fflush(stdin);hapus_pelajar();              /* memanggil fungsi 'hapus_pelajar' */
		   break;

	 case 5  : fflush(stdin);menu_papar_pel();              /* memanggil fungsi 'menu_papar_pel' */
		   break;

	 case 6  : fflush(stdin);bilang();             /* memanggil fungsi 'bilang' */
		   break;

	 case 7  : fflush(stdin);konfigurasi_gred();   /* memanggil fungsi 'konfigurasi_gred' */
		   break;

	 case 8  : fflush(stdin);update_markah();       /* memanggil fungsi 'update_markah' */
		   break;

	 case 9    : Scroll();              /* memanggil fungsi 'Scroll' */
		   break;

      } /* penutup switch */

 } while (khuz != 9);

}  /* penutup main */

/* Pengujian ke atas fail data */
void buka_fail_pelajar ( void ) {
   FILE *fpt;

   if((fpt = fopen("a:PELAJAR.DAT","r")) == NULL )  {  /* menguji samada fail     */
      gotoxy(24,12);printf("     Fail PELAJAR.DAT tiada            ");      /* dapat dibuka atau tidak */
      sound(861); delay(1000); nosound();
      delay(2000);
      gotoxy(24,12);printf("    continue.......to create                  ");      /* dapat dibuka atau tidak */
      delay(1000);
    return;
    }

   if( fread( &akhir, sizeof akhir, 1, fpt) != 1) {
      gotoxy(20,12);printf("Pengujian pengiraan data PELAJAR.DAT rosak  ");/* menguji samada data  */
      sound(861); delay(1000); nosound();                                  /* dapat dibaca dari fail */
      getch();
   exit(1);
   }

   if( fread( &pelajar, sizeof pelajar, 1, fpt) != 1) {
      gotoxy(20,12);printf("Data PELAJAR.DAT tidak dapat dibaca\n");/* membaca samada data */
      sound(861); delay(1000); nosound();                           /* dapat dibaca dari fail */
   getch();
   exit(1);
   }

fclose(fpt);

} /* tamat fungsi buka_ fail_pelajar */

/****************************************/
/*   	  	Modul menu_utama	*/
/****************************************/
// Modul ini memaparkan menu utama untuk di pilih

int menu_utama ( void ) {
   char a[3];
   int khuz, x, g;
   clrscr();

do {
   textcolor(2);
   for(g = 0; g < 17; g++) {
      textbackground(9);
      gotoxy(6,6+g);cprintf("%s",MenuUtama[g]);

   }  /* penutup for g */

      textcolor(5);
      gotoxy(32,7); cprintf("M E N U  U T A M A");
      textcolor(13+BLINK);
      gotoxy(9,10);cprintf("[1]");
      gotoxy(9,12);cprintf("[2]");
      gotoxy(9,14);cprintf("[3]");
      gotoxy(9,16);cprintf("[4]");
      gotoxy(43,10);cprintf("[5]");
      gotoxy(43,12);cprintf("[6]");
      gotoxy(43,14);cprintf("[7]");
      gotoxy(43,16);cprintf("[8]");
      gotoxy(40,19);cprintf("[9]");

      textbackground(0);
      textcolor(12);
      gotoxy(25,22);cprintf("Sila masukkan pilihan anda *> [ ]");
      textcolor(7);
      Jam();
      a[0]=2;
      gotoxy(56,22); p=cgets(a);
      khuz = atoi(p);
   if ( khuz < 1 || khuz > 9 ) {
	ralat2 (); /* panggilan fungsi ralat2 */
    }
 } while ( khuz < 1 || khuz > 9 );
      textcolor(7);

  return (khuz);

}   /* tamat menu utama */

/* fungsi 'menu_tambah_pelajar': menu input pilihan data pelajar */
int menu_tambah_pelajar (void) {
   char n[3];
   int tambah, d;
   clrscr();
   do{
      clrscr();
      for(d = 0; d < 14; d++) {
	 textcolor(12);
	 gotoxy(17,7+d);cprintf("%s",kotakInput[d]);
      } /* pentup for d */
	 textcolor(10);
	 gotoxy(29,8); cprintf(" MENU INPUT DATA PELAJAR ");
	 gotoxy(22,11); cprintf(" 1 ў TAMBAH DATA BARU " );
	 gotoxy(22,13); cprintf(" 2 ў INPUT DATA BARU & HAPUS DATA LAMA ");
	 gotoxy(22,15); cprintf(" 3 ў KEMBALI KE MENU UTAMA ");
	 gotoxy(26,18); cprintf(" MASUKKAN PILIHAN ANDA *> [ ]");
	 n[0] = 2;
	 gotoxy(53,18); p = cgets(n);
	 tambah = atoi(p);

      if ( tambah < 1 || tambah > 3 ) {
	 ralat2 (); /* panggilan fungsi ralat2 */
      }  /* penutup if */

   } while ( tambah < 1 || tambah > 3 );

   return tambah;

} /* tamat fungsi 'tambah' */

/* Fungsi input/masuk data  */
void input_pelajar ( void ) {
   int n, q;
   int bil=0;
   int k1, k2, key;

   if((stream = fopen("a:gred.dat","r")) == NULL )  {  /* menguji samada fail dapat dibuka atau tidak    */
      sound(861); delay(1000); nosound();
      clrscr();
      _setcursortype(_NOCURSOR);
      textcolor(4+BLINK);
      gotoxy(24,12);cprintf("         Fail gred.dat tiada                       ");
      textcolor(YELLOW);
      sound(861); delay(2500); nosound();
      gotoxy(24,14);cprintf("Tekan <ENTER> untuk pergi ke informasi             ");
      textcolor(7);
      getch();
      tolongAna(); /* memanggil fungsi 'tolongAna' */
   } /* penutp if */

   n=menu_tambah_pelajar(); /* memanggil fungsi pilihan input */
      if (n == 1) i = akhir;  else if (n == 2) i = 0;  else return;
   clrscr();

   for ( i; i < N; i++ ) {
      textbackground(0);
      textcolor(13);
      gotoxy(15,2); cprintf("      ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ        ");
      gotoxy(15,3); cprintf("      К     Sistem  Masukan  Data  Pelajar      К        ");
      gotoxy(15,4); cprintf("      ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ        ");
      textcolor(10);
      _setcursortype(_SOLIDCURSOR);
      gotoxy(10,7);  cprintf("NAMA                          :                            ");
      gotoxy(10,9);  cprintf("NOMBOR MATRIK                 :                            ");
      gotoxy(10,11); cprintf("MATAPELAJARAN                 :                            ");
      gotoxy(10,13); cprintf("MARKAH                        :    ");
      gotoxy(10,15); cprintf("GRED                          :    ");
      gotoxy(10,17); cprintf("MATA GRED                     :    ");
      gotoxy(10,19); cprintf("TARIKH MARKAH INI DI REKODKAN :   /  /   ");
      textcolor(1);
      window(10,23,80,10);
      textbackground(5);
      gotoxy(41,7);  cprintf("[                                    ]");
      gotoxy(41,9);  cprintf("[             ]");
      gotoxy(41,11);  cprintf("[                   ]");
      gotoxy(41,13);  cprintf("[   ]");
      textbackground(0);
      textcolor(7);
      gotoxy(35,23);cprintf("Bil : %d", bil);
      textcolor(1);
      textbackground(5);
      gotoxy(42,7);strcpy(pelajar[i].nama,input(37));
      textcolor(7);
      textbackground(0);
      gotoxy(3,25); cprintf("                                                                        ");

   if ( !*pelajar[i].nama ) {
       gotoxy(3,25);;cprintf("Sistem keluar ke menu utama");
       break;
   }   /* penutup if untuk break */
      textcolor(1);
      textbackground(5);
      gotoxy(42,9);strcpy(pelajar[i].metrik,input(14));
      gotoxy(42,11);strcpy(pelajar[i].rd.matapelajaran,input(20));
      gotoxy(42,13);strcpy(pelajar[i].rd.markah,input(4));

   for (j=0; j<akhir1-0; j++) {
      markah=atoi(pelajar[i].rd.markah);
      markahAwal=atoi(ahli[j].markahA);
      markahAkhir=atoi(ahli[j].markahB);

    if ((markah>=markahAwal) && (markah<=markahAkhir) && (ahli[j].markahA !=NULL &&  ahli[j].markahA !=NULL)) {
	     strcpy(pelajar[i].rd.gred, ahli[j].mk.gred);
	     strcpy(pelajar[i].rd.kredit, ahli[j].mk.kredit);
	     textbackground(GREEN);
	     gotoxy(41,15); cprintf("%s", ahli[j].mk.gred);
	     gotoxy(41,17); cprintf("%s", ahli[j].mk.kredit);
	     textbackground(0);
	 }  /* tutup if */
  }   /* penutup for j */

	 textcolor(1);
	 struct date d; getdate(&d);
	 itoa(d.da_day, hari_d,10);
	 itoa(d.da_mon, bulan_m, 10);
	 itoa(d.da_year, tahun_y, 10);
	 strcpy(pelajar[i].rd.tk.hari  ,hari_d);
	 strcpy(pelajar[i].rd.tk.bulan ,bulan_m);
	 strcpy(pelajar[i].rd.tk.tahun ,tahun_y);
	 textbackground(GREEN);
	 gotoxy(41,19); cprintf("%s/%s/%s",pelajar[i].rd.tk.hari,
	 pelajar[i].rd.tk.bulan,pelajar[i].rd.tk.tahun);
	 textbackground(0);
	 textcolor(7);

	 bil++;
	 textbackground(0);
	 gotoxy(3,25); cprintf("tekan <ENTER> jika hendak berhenti ATAU teruskan input");
	 delay(1500);
	 clrscr();
   }  /* penutup for i*/


	 _setcursortype(_NOCURSOR);

   akhir = i;
   akhir1 = j;
   simpan_fail();
   return;

}  /* tamat fungsi input_pelajar */

/* Fungsi simpan_fail :Menulis data ke dalam fail data */
void simpan_fail ( void ) {
   FILE *fpt;

   if (( fpt = fopen ("a:PELAJAR.DAT","w")) == NULL) {
      gotoxy(24,12);printf("     Fail PELAJAR.DAT tiada                  ");      /* dapat dibuka atau tidak */
      sound(861); delay(1000); nosound();
      delay(2000);
      gotoxy(24,12);printf("    continue.......to create                 ");      /* dapat dibuka atau tidak */
      delay(1000);
   exit(1);
   }

   if( fwrite ( &akhir, sizeof(akhir), 1, fpt) != 1) {
      gotoxy(20,12);printf("Pengujian pengiraan data PELAJAR.DAT rosak   ");/* menguji samada data  */
      sound(861); delay(1000); nosound();                                  /* dapat dibaca dari fail */
   exit(1);
   }

   if( fwrite ( &pelajar, sizeof(pelajar), 1, fpt) != 1) {
      gotoxy(20,12);printf("Data PELAJAR.DAT tidak dapat dibaca\n");/* membaca samada data */
      sound(861); delay(1000); nosound();                           /* dapat dibaca dari fail */
      getch();
   exit(1);
   }
	 clrscr();
	_setcursortype(_NOCURSOR);
	 textcolor(YELLOW);
	 textbackground(MAGENTA);
	 gotoxy(24,12); cprintf("ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ");
	 gotoxy(24,13); cprintf(" >>>>>>REKOD SEDANG DI SIMPAN<<<<<< ");
	 gotoxy(24,14); cprintf("ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ");
	 textcolor(7);
	 delay(2500);
	 textbackground(0);
	_setcursortype(_NORMALCURSOR);
	 clrscr();

fclose ( fpt );

} /* tamat fungsi simpan_fail */


/* Fungsi cari_pelajar: Mengesan data dalam fail data melalui no. meterik */
void cari_pelajar ( void ) {
   int dapat = 0;
   char kod[15];
   clrscr();
   textcolor(2);
   gotoxy(23,8);  cprintf(" ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ ");
   gotoxy(23,9);  cprintf(" К    SISTEM MENGESAN DATA PELAJAR   К ");
   gotoxy(23,10); cprintf(" ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ ");
   gotoxy(35,14); cprintf("Masukkan matrik:");
   window(35,15,40,35);
   textcolor(4);
   textbackground(3);
   gotoxy(35,15); cprintf("[             ]");
   kod[0]=14;
   gotoxy(36,15); p=cgets(kod);
   textcolor(7);
   textbackground(0);

   for(i=0; i<akhir; i++)
     if ( !strcmp ( p , pelajar[i].metrik )) {
	papar_one_pelajar(i);        /* memanggil fungsi 'papar_one_pelajar' */
	dapat = 1;
	}  /* penutup if */

     if(!dapat)
	ralat();         /* memanggil fungsi 'ralat' */


} /* tamat fungsi cari_pelajar */

/* Fungsi papar_one_pelajar :Memaparkan data pelajar yang dikehendaki */
void papar_one_pelajar ( int i ) {
   clrscr();
   textcolor(10);
   gotoxy(22,3); cprintf(" ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ ");
   gotoxy(22,4); cprintf(" К          DATA   PELAJAR          К ");
   gotoxy(22,5); cprintf(" ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ ");
   gotoxy(18,7);  cprintf("NAMA                   ");
   gotoxy(18,9);  cprintf("NOMBOR MATRIK          ");
   gotoxy(18,11); cprintf("MATAPELAJARAN          ");
   gotoxy(18,13); cprintf("MARKAH                 ");
   gotoxy(18,15); cprintf("GRED                   ");
   gotoxy(18,17); cprintf("MATA GRED              ");
   gotoxy(18,19); cprintf("TARIKH DI REKODKAN     ");
   textcolor(14);
   gotoxy(42,7);  cprintf(": %s",pelajar[i].nama);
   gotoxy(42,9);  cprintf(": %s",pelajar[i].metrik);
   gotoxy(42,11); cprintf(": %s",pelajar[i].rd.matapelajaran);
   gotoxy(42,13); cprintf(": %s",pelajar[i].rd.markah);
   gotoxy(42,15); cprintf(": %s",pelajar[i].rd.gred);
   gotoxy(42,17); cprintf(": %s",pelajar[i].rd.kredit);
   gotoxy(42,19); cprintf(": %s/",pelajar[i].rd.tk.hari);
   gotoxy(45,19); cprintf("/%s",pelajar[i].rd.tk.bulan);
   gotoxy(48,19); cprintf("/%s",pelajar[i].rd.tk.tahun);
   textcolor(12);
   gotoxy(25,23); cprintf("Sila tekan enter...");
   textcolor(7);
   Jam(); /* memanggil fungsi Jam */
   getch();

}  /* tamat 'fungsi_papar' */

/* Fungsi papar_semua_pelajar: memaparkan semua pelajar tanpa nama */
void papar_semua_pelajar ( void ) {
   int c;
   clrscr();

   for(c = 0; c<22; c++) {
      textcolor(10);
      gotoxy(3,1+c);cprintf("%s",KotakPelajar[c]);

   }  /* penutup for c */
      textcolor(3);
      gotoxy(30,2); cprintf(" PAPAR SEMUA PELAJAR  ");

   j=1;
   for (i=0; i<akhir; i++) {
      textcolor(14);
      gotoxy(5,5+j);  cprintf("%d",j);
      gotoxy(8,5+j);  cprintf("%s",pelajar[i].metrik);
      gotoxy(23,5+j); cprintf("%s",pelajar[i].rd.matapelajaran);
      gotoxy(47,5+j); cprintf("%s",pelajar[i].rd.markah);
      gotoxy(53,5+j); cprintf("%s",pelajar[i].rd.gred);
      gotoxy(59,5+j); cprintf("%s",pelajar[i].rd.kredit);
      gotoxy(68,5+j); cprintf("%s/%s/%s",pelajar[i].rd.tk.hari,pelajar[i].rd.tk.bulan,pelajar[i].rd.tk.tahun);

      j++;
   } /* penutup for i */

      _setcursortype(_NOCURSOR);
      textcolor(12);
      gotoxy(20,23); cprintf("Sila tekan enter untuk kembali ke menu utama");
      stream = fopen("a:pelajar.dat", "r");
      gotoxy (20,24);cprintf("pelajar.dat: %ld bytes status:  %s",
      filesize(stream), file_exists("a:pelajar.dat") ? "On Line" : "NO");

   fclose(stream);
   getch();
   textbackground(0);
   clrscr();

}  /* tamat fungsi papar_semua_pelajar */


/* fungsi kemaskini_pelajar: Mengemaskini data pelajar */
void kemaskini_pelajar ( void ) {
   int  markah, markahAwal, markahAkhir;
   int choice = 1;
   int dapat = 0;
   char kod[15];

   clrscr();
   textcolor(10);
   gotoxy(22,5); cprintf("  ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ ");
   gotoxy(22,6); cprintf("  К          KESAN    DATA          К ");
   gotoxy(22,7); cprintf("  ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ ");
   gotoxy(30,12); cprintf("Masukkan nombor matrik :");
   window(35,14,84,35);
   textcolor(RED);
   textbackground(CYAN);
   gotoxy(34,14); cprintf("[             ]");
   kod[0]=14;
   gotoxy(35,14); p=cgets(kod);
   textcolor(7);
   textbackground(0);

   for(i=0; i<akhir; i++) {
      if( !strcmp ( p , pelajar[i].metrik )) {
	 papar_one_pelajar(i);                        /* memanggil fungsi 'papar_one_pelajar' */
	 dapat = 1;
	 choice = menu_kemaskini();       /* memanggil fungsi menu_kemaskini */
	    if (choice != 1) {
		clrscr();
		textcolor(10);
		gotoxy(20,3); cprintf(" ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ ");
		gotoxy(20,4); cprintf(" К DATA PELAJAR YANG HENDAK DIKEMASKINI К ");
		gotoxy(20,5); cprintf(" ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ ");
		gotoxy(18,7);  cprintf("NAMA                  : ");
		gotoxy(18,9);  cprintf("NO MATRIK             : ");
		gotoxy(18,11); cprintf("MATAPELAJARAN         : ");
		gotoxy(18,13); cprintf("MARKAH                : ");
		textcolor(14);
		gotoxy(42,7);  cprintf("%s",pelajar[i].nama);
		gotoxy(42,9);  cprintf("%s",pelajar[i].metrik);
		gotoxy(42,11); cprintf("%s",pelajar[i].rd.matapelajaran);
		gotoxy(42,13); cprintf("%s",pelajar[i].rd.markah);
		gotoxy(20,23); cprintf("Sila tekan enter untuk kemaskini...");
		getch();
	    }  /* penutup if */

   switch(choice) {

      case 1: return;

      case 2: gotoxy(42,7); cprintf("                                ");
		 fflush(stdin);
		 gotoxy(42,7); strcpy(pelajar[i].nama, input(37));
		 break;

      case 3: gotoxy(42,9); cprintf("                                ");
		 fflush(stdin);
		 gotoxy(42,9); strcpy(pelajar[i].metrik, input(14));
		 break;

      case 4: gotoxy(42,11); cprintf("                               ");
		 fflush(stdin);
		 gotoxy(42,11); strcpy(pelajar[i].rd.matapelajaran, input(20));
		 break;

      case 5: gotoxy(42,13); cprintf("                               ");
		 fflush(stdin);
		 gotoxy(42,13); strcpy(pelajar[i].rd.markah, input(4));

	      for (j=0; j<akhir1; j++) {
		 markah=atoi(pelajar[i].rd.markah);
		 markahAwal=atoi(ahli[j].markahA);
		 markahAkhir=atoi(ahli[j].markahB);
		    if ((markah>=markahAwal) && (markah<=markahAkhir)){
			fflush(stdin);strcpy(pelajar[i].rd.gred, ahli[j].mk.gred);
			fflush(stdin);strcpy(pelajar[i].rd.kredit, ahli[j].mk.kredit);}
		    }   /* penutup if  */
	      break;
     } /* penutup for j */
    } /* penutup switch */
   } /* penutup for  i*/

   if(!dapat) {
      ralat();     /* memanggil fungsi 'ralat' */
      return;
   } /* penutup if */

   simpan_fail();                      /* memanggil fungsi 'simpan_fail' */
   clrscr();
   stream = fopen("a:pelajar.dat", "r");
   gotoxy (20,24);cprintf("pelajar.dat: %ld    bytes status:  %s", filesize(stream), file_exists("a:pelajar.dat") ? "access" : "NO");
   fclose(stream);
   delay(2000);
   papar_semua_pelajar();

}  /* tamat fungsi kemaskini_pelajar */


/* Memaparkan menu_kemaskini */
int menu_kemaskini ( void ) {
   int choice;
   char z[3];
   do {
      clrscr();
      textcolor(10);
      gotoxy(20,3); cprintf(" ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ ");
      gotoxy(20,4); cprintf(" К  PILIH DATA YANG HENDAK DIKEMASKINI:  К ");
      gotoxy(20,5); cprintf(" ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ ");
      gotoxy(22,8);  cprintf("  1 * TIADA ");
      gotoxy(22,10); cprintf("  2 * NAMA ");
      gotoxy(22,12); cprintf("  3 * NO. MATRIK ");
      gotoxy(22,14); cprintf("  4 * MATAPELAJARAN ");
      gotoxy(22,16); cprintf("  5 * MARKAH ");
      textcolor(3);
      gotoxy(20,21); cprintf("Sila masukkan pilihan anda *> [ ] ");
      z[0]=2;
      textcolor(10);
      gotoxy(51,21); p=cgets(z);
      choice = atoi(p);

	 if ( choice < 1 || choice > 6 ) {
	    ralat2 (); /* panggilan fungsi ralat2 */
	 }  /* penutup if */

   } while (choice < 1 || choice > 6);

   return choice;

} /* penutup menu_kemaskini */

/* Menghapuskan data pelajar */
void hapus_pelajar ( void ) {
   int dapat = 0;
   int y,j,k;
   char x[3];
   char kod[15];
   char ganti[25] = {""};

   clrscr();
   textcolor(10);
   gotoxy(22,5); cprintf(" ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ ");
   gotoxy(22,6); cprintf(" К     SISTEM MENGHAPUSKAN DATA     К ");
   gotoxy(22,7); cprintf(" ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ ");
   textcolor(3);
   gotoxy(19,12); cprintf("Masukkan nombor matrik yang perlu dihapuskan : \n");
   textcolor(4);
   textbackground(3);
   kod[0]=14;
   gotoxy(34,14); cprintf("[             ]");
   gotoxy(35,14); p=cgets(kod);
   textcolor(7);
   textbackground(0);

   for(i=0; i<akhir; i++) {
      if ( !strcmp ( p , pelajar[i].metrik )) {
	 dapat = 1;
	 clrscr();
	 textcolor(10);
	 gotoxy(20,3); cprintf(" ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ ");
	 gotoxy(20,4); cprintf(" К DATA PELAJAR YANG HENDAK DIHAPUS  К ");
	 gotoxy(20,5); cprintf(" ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ ");
	 gotoxy(18,7);  cprintf("NAMA                  : ");
	 gotoxy(18,9);  cprintf("NOMBOR MATRIK         : ");
	 gotoxy(18,11); cprintf("MATAPELAJARAN         : ");
	 gotoxy(18,13); cprintf("MARKAH                : ");

	 gotoxy(42,7);  cprintf("%s",pelajar[i].nama);
	 gotoxy(42,9);  cprintf("%s",pelajar[i].metrik);
	 gotoxy(42,11); cprintf("%s",pelajar[i].rd.matapelajaran);
	 gotoxy(42,13); cprintf("%s",pelajar[i].rd.markah);
	 textcolor(12);
	 gotoxy(18,23); cprintf("Sila tekan <enter> untuk menghapuskan data...");
	 gotoxy(18,24); cprintf("ATAU tekan <1> jika tidak mahu");
	 x[0]=2;
	 gotoxy(50,24); p=cgets(x);
	 y = atoi(p);

	   if( y == 1 ) {
	       return;
	   }
	      strcpy ( pelajar[i].nama , ganti );
	      strcpy ( pelajar[i].metrik , ganti );
	      strcpy ( pelajar[i].rd.matapelajaran , ganti );
	      strcpy ( pelajar[i].rd.markah , ganti );
	      strcpy ( pelajar[i].rd.gred , ganti );
	      strcpy ( pelajar[i].rd.kredit , ganti );
	      strcpy ( pelajar[i].rd.tk.hari , ganti);
	      strcpy ( pelajar[i].rd.tk.bulan , ganti);
	      strcpy ( pelajar[i].rd.tk.tahun, ganti);

   for(j=i; j<akhir; j++) {
      k = j + 1;
	 strcpy ( pelajar[j].nama     		, pelajar[k].nama );
	 strcpy ( pelajar[j].metrik   		, pelajar[k].metrik );
	 strcpy ( pelajar[j].rd.matapelajaran	, pelajar[k].rd.matapelajaran );
	 strcpy ( pelajar[j].rd.markah   	, pelajar[k].rd.markah );
	 strcpy ( pelajar[j].rd.gred   		, pelajar[k].rd.gred );
	 strcpy ( pelajar[j].rd.kredit   	, pelajar[k].rd.kredit );
	 strcpy ( pelajar[j].rd.tk.hari   	, pelajar[k].rd.tk.hari );
	 strcpy ( pelajar[j].rd.tk.bulan   	, pelajar[k].rd.tk.bulan );
	 strcpy ( pelajar[j].rd.tk.tahun   	, pelajar[k].rd.tk.tahun );
   }  /* penutup for j*/
	 /* memaparkan mesej hapus */
	 clrscr();
	_setcursortype(_NOCURSOR);
	 textcolor(YELLOW);
	 textbackground(MAGENTA);
	 gotoxy(24,12); cprintf("ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ");
	 gotoxy(24,13); cprintf(" >>>>>>REKOD TELAH DIHAPUSKAN<<<<<< ");
	 gotoxy(24,14); cprintf("ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ");
	 textcolor(7);
	 delay(2500);
	 textbackground(0);
	_setcursortype(_NORMALCURSOR);
	 clrscr();
	 akhir = akhir * 1;
	 simpan_fail();              /* memanggil fungsi 'simpan_fail' */
     }  /* penutup if */
  } /* penutup for i */

  if(!dapat) {                     /* memanggil fungsi 'ralat' */
     ralat();
  }
} /* tamat fungsi hapus_pelajar*/


/* Memaparkan menu_papar */
int menu_papar ( void ) {
   int yes;
   char no[3];

   do {
      clrscr();
      textcolor(10);
      gotoxy(19,4);  cprintf(" ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ ");
      gotoxy(19,5);  cprintf(" К           MENU  PAPAR  DATA             К ");
      gotoxy(19,6);  cprintf(" ЬЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЙ ");
      gotoxy(19,7);  cprintf(" К                                         К ");
      gotoxy(19,8);  cprintf(" К                                         К ");
      gotoxy(19,9);  cprintf(" К   1 * SEMUA PELAJAR DENGAN NO.MATRIK    К ");
      gotoxy(19,10); cprintf(" К                                         К ");
      gotoxy(19,11); cprintf(" К   2 * SEMUA PELAJAR SATU PERSATU        К ");
      gotoxy(19,12); cprintf(" К                                         К ");
      gotoxy(19,13); cprintf(" К   3 * DATA INDIVIDU                     К ");
      gotoxy(19,14); cprintf(" К                                         К ");
      gotoxy(19,15); cprintf(" К   4 * KEMBALI KE MENU UTAMA             К ");
      gotoxy(19,16); cprintf(" К                                         К ");
      gotoxy(19,17); cprintf(" К                                         К ");
      gotoxy(19,18); cprintf(" К                                         К ");
      gotoxy(19,19); cprintf(" К      MASUKKAN PILIHAN ANDA *> [ ]       К ");
      gotoxy(19,20); cprintf(" К                                         К ");
      gotoxy(19,21); cprintf(" К                                         К ");
      gotoxy(19,22); cprintf(" ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ ");
      textcolor(7);
      no[0]=2;
      gotoxy(53,19); p=cgets(no);
      yes = atoi(p);
	 if ( yes < 1 || yes > 4 ) {
	    ralat2 (); /* panggilan fungsi ralat2 */
	 }  /* penutup if */

   } while ( yes < 1 || yes > 4 );

   return yes;

}  /* tamat fungsi menu_papar */


/* fungsi menu_papar_pel: Memaparkan data pelajar */
void menu_papar_pel ( void ) {
   int pick;
   int dapat = 0;
   char kod[15];
   pick = menu_papar();               /* memanggil fungsi 'menu_papar' */

   switch(pick) {

      case 1 :  papar_semua_pelajar(); break;

      case 2 :  for ( i=0; i<akhir; i++ ) {
		   papar_one_pelajar(i);                /* memanggil fungsi 'papar_one_pelajar' */
		} /* penutup for i */
		break;
// SSS
      case 3 : clrscr();
	       textcolor(10);
	       gotoxy(23,5); cprintf(" ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ ");
	       gotoxy(23,6); cprintf(" К          KESAN    DATA          К ");
	       gotoxy(23,7); cprintf(" ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ ");
	       gotoxy(19,12); cprintf("Masukkan nombor matrik yang hendak dipaparkan : ");
	       textcolor(4);
	       textbackground(3);
	       gotoxy(34,14); cprintf("[             ]");
	       kod[0]=14;
	       gotoxy(35,14); p=cgets(kod);
	       textcolor(7);
	       textbackground(0);

	       for(i=0; i<akhir; i++)
		  if( !strcmp ( p , pelajar[i].metrik)) {
		     papar_one_pelajar(i);       /* memanggil fungsi 'papar_one_pelajar' */
		     dapat = 1;
	       } /* penutup for i */
		  if(!dapat)
		     ralat();      /* memanggil fungsi 'ralat' */

      case 4 :
	 return;

      } /* penutup switch */

}  /* tamat fungsi menu_papar_pel */

/****************************************/
/*   Aturcara Untuk Konfigurasi Gred    */
/****************************************/
void konfigurasi_gred (void) {
   int pilihan;
   textmode(BW80);// Mode skrin hita-putih
   clrscr();

   do {
      pilihan = menu_gred();       /* memanggil fungsi 'menu_utama' */
      switch (pilihan) {

	 case 1  : fflush(stdin);input_gred();   /* memanggil fungsi 'input_gred' */
		   break;

	 case 2  : fflush(stdin);cari_gred();    /* memanggil fungsi 'cari_gred' */
		   break;

	 case 3  : fflush(stdin);kemas_gred ();  /* memanggil fungsi 'kemas_gred' */
		   break;

	 case 4  : fflush(stdin);hapus_gred();   /* memanggil fungsi 'hapus_gred' */
		   break;

	 case 5  : fflush(stdin);papar_pilih_gred();   /* memanggil fungsi 'papar_pilih_gred' */
		   break;

	 case 6  : Scroll();break;	   /*keluar dari  ke menu utama */

      } /* penutup switch */

  } while (pilihan != 6);

}  /* penutup funsi konfigurasi_gred */

/* Pengujian ke atas fail data */
void buka_fail_gred ( void ) {
   FILE *fpt;

   if((fpt = fopen("a:gred.dat","r")) == NULL )  {  /* menguji samada fail dapat dibuka atau tidak    */
      gotoxy(24,12);printf("    Fail gred.dat tiada                       ");
      sound(861); delay(1000); nosound();
      gotoxy(24,12);printf("  continue.......to create                     ");      /* dapat dibuka atau tidak */
      delay(1000);
   return;
   } /* penutp if */

   if( fread( &akhir1, sizeof akhir1, 1, fpt) != 1) {
      gotoxy(20,12);printf("Pengiraan data fail gred.dat rosak\n");
      sound(861); delay(1000); nosound();
   getch();
   exit(1);
   } /* penutp if */

   if ( fread( &ahli, sizeof ahli, 1, fpt) != 1) {    /* dapat dibaca dari fail */
      gotoxy(20,12);printf("Data ahli fail gred.dat ralat untuk di baca\n");
      sound(861); delay(1000); nosound();
   getch();
   exit(1);
   } /* penutp if */

fclose(fpt);

} /* tamat funsi buka_fail_gred */


/**************************************************/
/*    Modul menu_utama untuk konfigurasi gred     */
/**************************************************/

/* fungsi menu_gred: Modul ini memaparkan menu utama untuk di pilih */
int menu_gred ( void ) {
   char a[3];
   int pilihan;
   clrscr();
   do {
      window(21,23,40,21);
      textbackground(3);
      textcolor(5);
      gotoxy(21,5);  cprintf("лппппппппппппппппппппппппппппппппппппппппл");
      gotoxy(21,6);  cprintf("л     M E N U   K O N F I G U R A S I    л");
      gotoxy(21,7);  cprintf("лЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭл");
      gotoxy(21,8);  cprintf("л                                        л");
      gotoxy(21,9);  cprintf("л      1   MASUKAN GRED                  л");
      gotoxy(21,10); cprintf("л                                        л");
      gotoxy(21,11); cprintf("л      2   MENCARI DATA GRED             л");
      gotoxy(21,12); cprintf("л                                        л");
      gotoxy(21,13); cprintf("л      3   KEMASKINI DATA GRED           л");
      gotoxy(21,14); cprintf("л                                        л");
      gotoxy(21,15); cprintf("л      4   HAPUS DATA GRED               л");
      gotoxy(21,16); cprintf("л                                        л");
      gotoxy(21,17); cprintf("л      5   PAPAR DATA GRED               л");
      gotoxy(21,18); cprintf("л                                        л");
      gotoxy(21,19); cprintf("л      6   KELUAR KE MENU UTAMA          л");
      gotoxy(21,20); cprintf("л                                        л");
      gotoxy(21,21); cprintf("л    Sila masukkan pilihan anda *>       л");
      gotoxy(21,22); cprintf("лммммммммммммммммммммммммммммммммммммммммл");
      textcolor(4+BLINK);
      gotoxy(27,9); cprintf("[");
      gotoxy(29,9); cprintf("]");
      gotoxy(27,11); cprintf("[");
      gotoxy(29,11); cprintf("]");
      gotoxy(27,13); cprintf("[");
      gotoxy(29,13); cprintf("]");
      gotoxy(27,15); cprintf("[");
      gotoxy(29,15); cprintf("]");
      gotoxy(27,17); cprintf("[");
      gotoxy(29,17); cprintf("]");
      gotoxy(27,19); cprintf("[");
      gotoxy(29,19); cprintf("]");
      textcolor(11+BLINK);
      gotoxy(56,21); cprintf("[");
      gotoxy(58,21); cprintf("]");
      Jam();
      textcolor(4);
      a[0]=2;
      gotoxy(57,21); p=cgets(a);
      textbackground(0);
      pilihan = atoi(p);
      textcolor(7);

      if ( pilihan < 1 || pilihan > 6) {
	 ralat2 (); /* panggilan fungsi ralat2 */
      }  /* penutup if */

   } while ( pilihan < 1 || pilihan > 6);

   return (pilihan);

} /* tamat fungsi menu gred */

/* fungsi input_gred: Masuk data ke dalam fail */
void input_gred ( void )  {
   int a, panjang, x=0;
   clrscr();
   textcolor(7);

   for(a = 0; a<20; a++) {
      textcolor(10);
      gotoxy(12,4+a);cprintf("%s",kotakGred[a]);
      textcolor(12);
   } /* penutup for a */

      gotoxy(30,5); cprintf("SISTEM KONFIGURASI GRED");
      gotoxy(3,25); cprintf("Sila tekan <ENTER> dan taip Gred sekarang..");

   Jam();  /* memanggil fungsi jam */
   getch();

   j=1;
   for ( i=0; i<14; i++ ) {
      textcolor(14);
      gotoxy(15,8+j); cprintf("%d", j);
      gotoxy(21,8+j);strcpy(ahli[i].mk.gred,input(3));
      gotoxy(3,25); cprintf("                                                                            ");
      gotoxy(21,8+j); cprintf("%s",ahli[i].mk.gred);

	 if ( !*ahli[i].mk.gred ) {
	 textcolor(12);
	 gotoxy(3,25); cprintf("Sistem keluar ke menu utama");
	 break;
	 } /* penutup if */
	 textcolor(14);
      gotoxy(31,8+j);strcpy(ahli[i].markahA,input(4));
      gotoxy(31,8+j);cprintf("%s",ahli[i].markahA);
      gotoxy(46,8+j);strcpy(ahli[i].markahB,input(4));
      gotoxy(46,8+j);cprintf("%s",ahli[i].markahB);
      gotoxy(60,8+j);strcpy(ahli[i].mk.kredit,input(5));
      gotoxy(60,8+j);cprintf("%s",ahli[i].mk.kredit);
      textcolor(14);
      gotoxy(3,25); cprintf("tekan <ENTER> 2 kali sekarang jika hendak berhenti ATAU teruskan input Gred");

      j++;
      strcpy(ahli[i].tkh.hari  ,bill[x].tk.hari);
      strcpy(ahli[i].tkh.bulan ,bill[x].tk.bulan);
      strcpy(ahli[i].tkh.tahun ,bill[x].tk.tahun);

     Jam(); /* memanggil fungsijam */
     getch();
   }  /* penutup for i*/
   textcolor(7);
   akhir1 = i;
   simpan_gred(); /* memanggil funsi simpan_gred */
   return;

} /* tamat fungsi input gred */

/* fungsi simpan_gred: Menulis data ke dalam fail data */
void simpan_gred ( void ) {
   FILE *fpt;

   if (( fpt = fopen ("a:gred.dat","w")) == NULL) {
      gotoxy(24,12);printf("    Fail gred.dat tiada                       ");
      sound(861); delay(1000); nosound();
   exit(1);
   } /* penutup if */

   if( fwrite ( &akhir1, sizeof(akhir1), 1, fpt) != 1) {
      gotoxy(24,12);printf("Fail gred.dat tidak dapat ditulis                    ");
   exit(1);
   } /* penutp if */

   if( fwrite ( &ahli, sizeof(ahli), 1, fpt) != 1) {
      gotoxy(24,12);printf("Fail gred.dat tidak dapat di tulis                     ");
   exit(1);
   } /* penutp if */

fclose ( fpt );

}/* tamat fungsi simpan_gred */

/* fungsi cari_gred: Mengesan data gred melalui abjad gred */
void cari_gred ( void ) {
   int dapat = 0;
   char kod[4];
   clrscr();
   textcolor(10);
   gotoxy(22,8);  cprintf(" ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ ");
   gotoxy(22,9);  cprintf(" К    SISTEM MENGESAN GRED PELAJAR   К ");
   gotoxy(22,10); cprintf(" ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ ");
   gotoxy(28,14); cprintf("Masukkan gred pelajar:[  ] ");
   textcolor(3);
   kod[0]=3;
   gotoxy(51,14); p=cgets(kod);

      for(i=0; i<akhir1; i++)
	 if ( !strcmp ( p , ahli[i].mk.gred )) {
	    papar_gred(i);      /* memanggil fungsi 'papar_gred' */
	    dapat = 1;
	 }  /* penutup if */

	 if(!dapat)
	    ralat();            /* memanggil fungsi 'ralat' */


} /* tamat fungsi cari_gred */

/* fungsi papar_gred: Memaparkan data gred yang dikehendaki */
void papar_gred ( int i ) {
   clrscr();
   textcolor(10);
   gotoxy(20,3); cprintf(" ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ ");
   gotoxy(20,4); cprintf(" К           DATA    GRED           К ");
   gotoxy(20,5); cprintf(" ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ ");
   gotoxy(18,7); cprintf("GRED                  : ");
   gotoxy(18,9); cprintf("DARI MARKAH           :  ");
   gotoxy(18,11);cprintf("HINGGA KE MARKAH      :  ");
   gotoxy(18,13);cprintf("MATA GRED             : ");
   textcolor(14);
   gotoxy(42,7);  cprintf("%s",ahli[i].mk.gred);
   gotoxy(42,9);  cprintf("%s",ahli[i].markahA);
   gotoxy(42,11); cprintf("%s",ahli[i].markahB);
   gotoxy(42,13); cprintf("%s",ahli[i].mk.kredit);
   textcolor(12);
   gotoxy(25,23); cprintf("Sila tekan enter...");
   textcolor(7);
   getch();

} /* tamat fungsi papar_gred */

/* fungsi kemas_gred: Mengemaskini semua data gred */
void kemas_gred ( void ) {
   int choice = 1;
   int dapat = 0;
   char kod[4];
   clrscr();
   textcolor(3);
   gotoxy(22,5); cprintf(" ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ ");
   gotoxy(22,6); cprintf(" К    KESAN GRED UNTUK KEMASKINI   К ");
   gotoxy(22,7); cprintf(" ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ ");
   papar_semua_gred();
   textcolor(10);
   gotoxy(24,12); cprintf("Masukkan GRED yang hendak dikemaskini");
   gotoxy(41,14); cprintf("[  ]");
   kod[0]=3;
   textcolor(4);
   gotoxy(42,14); p=cgets(kod);
   textcolor(7);

   for(i=0; i<akhir1; i++) {
      if( !strcmp ( p , ahli[i].mk.gred )) {
	 papar_gred(i);              /* memanggil fungsi 'papar_gred' */
	 dapat = 1;
	 choice = menu_kemas_gred(); /* memanggil fungsi 'menu_kemas_gred' */
	 papar_semua_gred();              /* memanggil fungsi 'papar_semua_gred' */
	    if (choice != 1) {
	       textcolor(10);
	       gotoxy(4,23);  cprintf("GRED  :   ");
	       gotoxy(16,23); cprintf("DARI MARKAH  :    ");
	       gotoxy(35,23); cprintf("HINGGA KE MARKAH  :    ");
	       gotoxy(62,23); cprintf("MATA GRED  :     ");
	       textcolor(12);
	       gotoxy(20,25); cprintf("Sila tekan enter untuk kemaskini...");

	     }  /* penutup if */
      textcolor(10);
   switch(choice) {

      case 1: return;

      case 2: window(14,23,40,14); textbackground(9);
		 gotoxy(11,23); cprintf("    ");
		 fflush(stdin);
		 gotoxy(12,23); strcpy(ahli[i].mk.gred, input(3));
		 textbackground(0);
	      simpan_gred();  /* memanggil fungsi 'simpan_gred' */
	      break;

      case 3: window(14,23,40,14); textbackground(9);
		 gotoxy(30,23); cprintf("    ");
		 fflush(stdin);
		 gotoxy(31,23); strcpy(ahli[i].markahA,input(4));
		 textbackground(0);
	      simpan_gred();    /* memanggil fungsi 'simpan_gred' */
		   break;

      case 4: window(14,23,40,14); textbackground(9);
		 gotoxy(55,23); cprintf("     ");
		 fflush(stdin);
		 gotoxy(56,23); strcpy(ahli[i].markahB,input(4));
		 textbackground(0);
	      simpan_gred(); /* memanggil fungsi 'simpan_gred' */
	      break;

      case 5: window(14,23,40,14); textbackground(9);
		 gotoxy(75,23); cprintf("      ");
		 fflush(stdin);
		 gotoxy(76,23); strcpy(ahli[i].mk.kredit,input(5));
		 textbackground(0);
	      simpan_gred(); /* memanggil fungsi 'simpan_gred' */
	      break;

	} /* penutup switch */

     } /* penutup if */

   } /* penutup for */
   simpan_gred();    /* memanggil fungsi 'simpan_gred' */

   if(!dapat) {
      ralat();          /* memanggil fungsi 'ralat' */
      return;
   } /* penutup if */
   papar_semua_gred();     /* memanggil fungsi 'papar_semua_gred' */

} /* tamat fungsi 'kemas_gred' */

/* fungsi 'menu_kemas_gred': Memaparkan menu kemaskini */
int menu_kemas_gred ( void ) {
   int choice;
   char z[3];
   do {
      clrscr(); textcolor(13);
      gotoxy(20,3); cprintf(" ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ ");
      gotoxy(20,4); cprintf(" К  PILIH DATA YANG HENDAK DIKEMASKINI:  К ");
      gotoxy(20,5); cprintf(" ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ ");
      gotoxy(22,8);  cprintf("  1 * TIADA ");
      gotoxy(22,10); cprintf("  2 * GRED ");
      gotoxy(22,12); cprintf("  3 * MARKAH PERTAMA ");
      gotoxy(22,14); cprintf("  4 * MARKAH KE DUA ");
      gotoxy(22,16); cprintf("  5 * MATA GRED             ");
      textcolor(10);
      gotoxy(20,21); cprintf("Sila masukkan pilihan anda *> [ ] ");
      textcolor(14);
      z[0]=2;
      gotoxy(51,21); p=cgets(z);
      choice = atoi(p);
      textcolor(7);
	 if ( choice < 1 || choice > 5 ) {
	    ralat2 (); /* panggilan fungsi ralat2 */
	 }  /* penutup if */

   } while (choice < 1 || choice > 5);
   clrscr();
   return choice;

} /* tamat fungsi 'menu_kemas_gred' */

/* fungsi 'hapus_data': Menghapuskan data */
void hapus_gred ( void ) {
   int y,j,k;
   char x[3];
   char file[80];
   clrscr();
   textcolor(5+BLINK);
   gotoxy(20,12); cprintf("ADAKAH ANDA PASTI INGIN MENGHAPUSKANNYA ?");
   textcolor(12);
   gotoxy(15,23); cprintf("Sila tekan <enter> untuk menghapuskan data...");
   gotoxy(15,24); cprintf("ATAU tekan <Ese> jika tidak mahu");
   textcolor(10);
   y = bioskey(0);
   clrscr();
      if( y == 0x11b )   //arahan escape
	 return;
      /* delete the file */
      else if (remove("a:gred.dat") == 0) {
	      textcolor(4);
	      gotoxy(26,12); printf("DATA TELAH DI HAPUSKAN");
	      delay (1000);
      }
      else {
	 gotoxy(20,13);
	 perror("remove");
      }
      textcolor(14);
      gotoxy(20,12);	cprintf("Tekan <enter> untuk kembali ke menu");
      getch();

      clrscr();
   stream = fopen("a:gred.dat", "r");
   gotoxy (20,12);cprintf("gred.dat: %ld    bytes status:  %s",
   filesize(stream), file_exists("a:pelajar.dat") ? "access" : "NO");
   fclose(stream);
   textcolor(7);
   delay(2000);

} /* tamat fungsi 'hapus_gred' */

/* fungsi 'menu_papar_gred' */
int menu_papar_gred ( void ) {
   int yes;
   char no[3];
   do {
      clrscr();
      textcolor(13);
      gotoxy(24,6);  cprintf(" ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ ");
      gotoxy(24,7);  cprintf(" К       MENU  PAPAR  DATA        К ");
      gotoxy(24,8);  cprintf(" ЬЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЙ ");
      gotoxy(24,9);  cprintf(" К                                К ");
      gotoxy(24,10); cprintf(" К                                К ");
      gotoxy(24,11); cprintf(" К   1 * SEMUA DATA               К ");
      gotoxy(24,12); cprintf(" К                                К ");
      gotoxy(24,13); cprintf(" К   2 * GRED TERTENTU            К ");
      gotoxy(24,14); cprintf(" К                                К ");
      gotoxy(24,15); cprintf(" К   3 * KEMBALI KE MENU GRED     К ");
      gotoxy(24,16); cprintf(" К                                К ");
      gotoxy(24,17); cprintf(" К                                К ");
      gotoxy(24,18); cprintf(" К                                К ");
      gotoxy(24,19); cprintf(" К  MASUKKAN PILIHAN ANDA *> [ ]  К ");
      gotoxy(24,20); cprintf(" К                                К ");
      gotoxy(24,21); cprintf(" К                                К ");
      gotoxy(24,22); cprintf(" ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ ");
      no[0]=2;
      textcolor(10);
      gotoxy(54,19); p=cgets(no);
      yes = atoi(p);
	 if ( yes < 1 || yes > 3 ) {
	    ralat2 (); /* panggilan fungsi ralat2 */
	 }  /* penutup if */

   } while ( yes < 1 || yes > 3 );

   return yes;

}  /* tamat fungsi 'menu_papar_gred' */

/* fungsi 'papar_pilih_gred': Memaparkan data yang berkaitan dengan gred */
void papar_pilih_gred ( void ) {
   int pick;
   int dapat = 0;
   char kod[4];
   pick = menu_papar_gred();               /* memanggil fungsi 'menu_papar_gred' */

   switch(pick) {

      case 1 : papar_semua_gred();                /* memanggil fungsi 'papar_gred' */
	       break;

      case 2 : clrscr();
	       textcolor(2);
	       gotoxy(23,5); cprintf(" ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ ");
	       gotoxy(23,6); cprintf(" К          KESAN    DATA          К ");
	       gotoxy(23,7); cprintf(" ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ ");
	       gotoxy(19,12); cprintf("Masukkan gred pelajar yang hendak dipaparkan : ");
	       gotoxy(40,14); cprintf("[  ]");
	       kod[0]=3;
	       textcolor(12);
	       gotoxy(41,14); p=cgets(kod);
	       textcolor(7);
	       for(i=0; i<akhir1; i++)
		  if( !strcmp ( p , ahli[i].mk.gred)) {
		     papar_gred(i);   /* memanggil fungsi 'papar_gred' */
		     dapat = 1;
		  } /* penutup if */

		  if(!dapat){
		     ralat();   /* memanggil fungsi 'ralat' */
		  }
      case 3 :
	 return;

   } /* penutup switch */

} /* tamat fungsai 'papar_pilih_gred' */

/* fungsi 'buka_fail_bilang' */
void buka_fail_bilang ( void ) {
   FILE *fpt;

   if((fpt = fopen("a:bilang.dat","r")) == NULL )  {  /* menguji samada fail     */
      gotoxy(24,12);printf("    Fail bilang.dat tiada                     ");
      sound(861); delay(1000); nosound();
      gotoxy(24,12);printf("   continue.......to create                    ");      /* dapat dibuka atau tidak */
      delay(1000);
   return;
   }  /* penutup if */

   if( fread( &akhir2, sizeof akhir2, 1, fpt) != 1) {
      gotoxy(20,12);printf("Pengiraan data fail bilang.dat rosak\n");
      sound(861); delay(1000); nosound();
   getch();
   exit(1);
   }  /* penutup if */

   if( fread( &bill, sizeof bill, 1, fpt) != 1) {
      gotoxy(20,12);printf("Fail bilang.dat tidak dapat dibaca\n");
      sound(861); delay(1000); nosound();
   getch();
   exit(1);
   }  /* penutup if */

   periksa(); /* memanggil fungsi 'periksa */
   fclose(fpt);

} /* tamat fungsi 'buka_fail_bilang' */

/* fungsi 'simpan_bilang': menulis data ke dalam fail bilang.dat */
void simpan_bilang ( void ) {
   FILE *fpt;

   if (( fpt = fopen ("a:bilang.dat","w")) == NULL) {
      gotoxy(20,12);printf("RALAT * Fail bilang.dat tidak dapat dibuka\n");
   exit(1);
   } /* penutup if */

   if( fwrite ( &akhir2, sizeof(akhir2), 1, fpt) != 1) {
      gotoxy(19,12);printf("RALAT * kira tidak dapat ditulis ke dalam bilang.dat\n");
   exit(1);
   } /* penutup if */

   if( fwrite ( &bill, sizeof(bill), 1, fpt) != 1) {
      gotoxy(19,12);printf("RALAT * Data bill tidak dapat ditulis ke dalam fail\n");
   exit(1);
   } /* penutup if */

fclose ( fpt );

} /* tamat fungsi 'simpan_bilang' */

/* fungsi 'bilang': Mengira bilangan pelajar yang mendapat gred tertentu */
void bilang (void) {

   int  BILA,BILAA,BILB, BILBB,BILBBB,BILC,BILCC,BILCCC,BILD,BILDD,BILDDD,BIL, bil;
   BILA=BILAA=BILB= BILBB=BILBBB=BILC=BILCC=BILCCC=BILD=BILDD=BILDDD=BIL=bil=0;
   int k,d;
   char blg[3];;
   clrscr();
   textcolor(13);
   for(d = 0; d<20; d++) {
   gotoxy(21,2+d);cprintf("%s",Kotak_bilGred[d]);
   } /* penutup for d */
   textcolor(3);
   gotoxy(24,3); cprintf(" BILANGAN PELAJAR MENDAPAT GRED  ");

   textcolor(14);
   for (i=0; i<akhir; i++) {
      if (strcmp (pelajar[i].rd.gred, "A")==0){
	 BILA++;
	 strcpy (bill[i].grd, "A");
	 itoa(BILA,blg, 10);
	 strcpy (bill[i].bil, blg);
	 gotoxy(40,7); cprintf("%s", bill[i].bil);
      }  /* penutup if */

      else if
	 (strcmp (pelajar[i].rd.gred, "A-")==0){
	 BILAA++;
	 strcpy (bill[i].grd, "A-");
	 itoa(BILAA,blg, 10);
	 strcpy (bill[i].bil, blg);
	 gotoxy(40,8); cprintf("%s", bill[i].bil);
      } /* penutup else if */

      else if
	 (strcmp (pelajar[i].rd.gred, "B+")==0) {
	 BILB++;
	 strcpy (bill[i].grd, "B+");
	 itoa(BILB,blg, 10);
	 strcpy (bill[i].bil, blg);
	 gotoxy(40,9); cprintf("%s", bill[i].bil);
      } /* penutup else if */

      else if
	 (strcmp (pelajar[i].rd.gred, "B")==0) {
	 BILBB++;
	 strcpy (bill[i].grd, "B");
	 itoa(BILBB,blg, 10);
	 strcpy (bill[i].bil, blg);
	 gotoxy(40,10); cprintf("%s", bill[i].bil);
      } /* penutup else if */

      else if
	 (strcmp (pelajar[i].rd.gred, "B-")==0) {
	 BILBBB++;
	 strcpy (bill[i].grd, "B-");
	 itoa(BILBBB,blg, 10);
	 strcpy (bill[i].bil, blg);
	 gotoxy(40,11); cprintf("%s", bill[i].bil);
      } /* penutup else if */

      else if
	 (strcmp (pelajar[i].rd.gred, "C+")==0) {
	 BILC++;
	 strcpy (bill[i].grd, "C+");
	 itoa(BILC,blg, 10);
	 strcpy (bill[i].bil, blg);
	 gotoxy(40,12); cprintf("%s", bill[i].bil);
      } /* penutup else if */

      else if
	 (strcmp (pelajar[i].rd.gred, "C")==0) {
	 BILCC++;
	 strcpy (bill[i].grd, "C");
	 itoa(BILCC,blg, 10);
	 strcpy (bill[i].bil, blg);
	 gotoxy(40,13); cprintf("%s", bill[i].bil);
      } /* penutup else if */

      else if
	 (strcmp (pelajar[i].rd.gred, "C-")==0) {
	 BILCCC++;
	 strcpy (bill[i].grd, "C-");
	 itoa(BILCCC,blg, 10);
	 strcpy (bill[i].bil, blg);
	 gotoxy(40,14); cprintf("%s", bill[i].bil);
      }

      else if
	 (strcmp (pelajar[i].rd.gred, "D+")==0) {
	 BILD++;
	 strcpy (bill[i].grd, "D+");
	 itoa(BILD,blg, 10);
	 strcpy (bill[i].bil, blg);
	 gotoxy(40,15); cprintf("%s", bill[i].bil);
      } /* penutup else if */

      else if
	 (strcmp (pelajar[i].rd.gred, "D")==0) {
	 BILDD++;
	 strcpy (bill[i].grd, "DD");
	 itoa(BILDD,blg, 10);
	 strcpy (bill[i].bil, blg);
	 gotoxy(40,16); cprintf("%s", bill[i].bil);
      } /* penutup else if */

      else if
	 (strcmp (pelajar[i].rd.gred, "D-")==0) {
	 BILDDD++;
	 strcpy (bill[i].grd, "D-");
	 itoa(BILDDD,blg, 10);
	 strcpy (bill[i].bil, blg);
	 gotoxy(40,17); cprintf("%s", bill[i].bil);
      } /* penutup else if */

      else if
	 (strcmp (pelajar[i].rd.gred, "E")==0) {
	 BIL++;
	 strcpy (bill[i].grd, "E");
	 itoa(BIL,blg, 10);
	 strcpy (bill[i].bil, blg);
	 gotoxy(40,18); cprintf("%s", bill[i].bil);
      } /* penutup else if */

      bil++;

} /* penutup for i */

   /* memapar semua bilangan pelajar */
   textcolor(2);
   itoa(bil,blg, 10);
   strcpy (bill[i].BilSemua, blg);
   gotoxy(20,25); cprintf("Bilangan pelajar yang mengambil peperiksaan: %s",
   bill[i].BilSemua);
   textcolor(7);
flushall;getch();
simpan_bilang(); /* memanggil fungsi 'simpan_bilang' */

} /*tamat fungsi 'bilang' */

/* fungsi papar_semua_gred': Memaparkan semua data gred */
void papar_semua_gred (void) {
   int b, k, x=0;

   clrscr();
   for(b = 0; b<19; b++) {
      gotoxy(17,2+b);cprintf("%s",kotakPapar[b]);
      textcolor(3);
      gotoxy(44,3); cprintf("TARIKH : %s/%s/%s",
      bill[x].tk.hari,bill[x].tk.bulan, bill[x].tk.tahun);
   }  /* penutup for b */
      textcolor(3);
      gotoxy(18,3); cprintf("SISTEM PAPAR SEMUA GRED");

      j=1;
   textcolor(14);
   for (k=0; k<akhir1; k++) {
      gotoxy(21,6+j);  cprintf("%s",ahli[k].mk.gred);
      gotoxy(31,6+j);  cprintf("%s",ahli[k].markahA);
      gotoxy(46,6+j);  cprintf("%s",ahli[k].markahB);
      gotoxy(60,6+j);  cprintf("%s",ahli[k].mk.kredit);

     j++;

   } /* penutup for k */
      textcolor(2);
      gotoxy(35,21);  cprintf("Bilangan Gred : %d", j-1);
      textcolor(12+BLINK);
      gotoxy(23,25); cprintf("Sila tekan enter untuk teruskan");
      textcolor(7);
      flushall;getch();

} /* tamat fungsi 'papar_semua_gred' */

/* fungsi 'update_markah':memperbaharui data pelajar jika gred diperbaharui */
void update_markah(void) {
   int n, bil= 0;

   clrscr(); textcolor(10);
   gotoxy(10,7);  cprintf("NAMA                          :                            ");
   gotoxy(10,9);  cprintf("NOMBOR MATRIK                 :                            ");
   gotoxy(10,11); cprintf("MATAPELAJARAN                 :                            ");
   gotoxy(10,13); cprintf("MARKAH                        :    ");
   gotoxy(10,15); cprintf("GRED                          :    ");
   gotoxy(10,17); cprintf("MATA GRED                     :    ");
   gotoxy(10,19); cprintf("TARIKH MARKAH INI DI REKODKAN :   /  /   ");
      for (i=0; i<akhir; i++) {
      textcolor(14);
	 gotoxy(41,7);  cprintf("%s",pelajar[i].nama);
	 gotoxy(41,9);  cprintf("%s",pelajar[i].metrik);
	 gotoxy(41,11); cprintf("%s",pelajar[i].rd.matapelajaran);
	 gotoxy(41,13); cprintf("%s",pelajar[i].rd.markah);
	 strcpy (pelajar[i].rd.markah, pelajar[i].rd.markah);
	    for (n=1; n<50; n++){
	       gotoxy(35,22); cprintf("bilangan : %d",bil);
	       delay(20);
	       stream = fopen("a:pelajar.dat", "r");
	       gotoxy (20,3);cprintf("pelajar.dat: %ld    bytes status:  %s", filesize(stream), file_exists("a:pelajar.dat") ? "On Line" : "NO");
	       fclose(stream);
	       textcolor(12); gotoxy(n,2);
	       cprintf("ЭЭU...P...D...A...T...E");

	    } /* pentup for n */

	 for (j=0; j<akhir1; j++) {
	 markah=atoi(pelajar[i].rd.markah);
	 markahAwal=atoi(ahli[j].markahA);
	 markahAkhir=atoi(ahli[j].markahB);
	    if ((markah>=markahAwal) && (markah<=markahAkhir))  {
	       strcpy(pelajar[i].rd.gred, ahli[j].mk.gred);
	       strcpy(pelajar[i].rd.kredit, ahli[j].mk.kredit);
	       textcolor(14);
	       gotoxy(41,15); cprintf("%s", ahli[j].mk.gred);
	       gotoxy(41,17); cprintf("%s", ahli[j].mk.kredit);
	    } /* penutup if */
	 } /* penutup for j */

	 struct date d; getdate(&d);
	    itoa(d.da_day, hari_d,10);
	    itoa(d.da_mon, bulan_m, 10);
	    itoa(d.da_year, tahun_y, 10);
	    strcpy(pelajar[i].rd.tk.hari  ,hari_d);
	    strcpy(pelajar[i].rd.tk.bulan ,bulan_m);
	    strcpy(pelajar[i].rd.tk.tahun ,tahun_y);
	    gotoxy(41,19); cprintf("%s/%s/%s",pelajar[i].rd.tk.hari,
	    pelajar[i].rd.tk.bulan,pelajar[i].rd.tk.tahun);

	    bil++;
	    delay(1000);

    }  /* penutup for i*/
    textcolor(12);
    gotoxy(3,25); cprintf("tekan <ENTER> apabila tamat");
    akhir = i;
    akhir1 = j;
    getch(); textcolor(7);
    simpan_fail(); /* memanggil fungsi 'simpan_fail' */

    return;

} /* tamat fungsi 'update_gred' */

/* fungsi 'tolongAna' : menerangkan hubungan gred dan markah */
void tolongAna(void) {
   int g, key;

   clrscr();
   textcolor(YELLOW);
   _setcursortype(_NOCURSOR);

char info[22][80]=
   {"ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ",
   "К -> Anda boleh terus menginput data pelajar dan markah     К",
   "К    jika anda mahu                                         К",
   "К -> Jika semua data pelajar selesai di input               К",
   "К -> Sila masukkan gred ke dalam sistem gred di bahagian    К",
   "К    menu utama dan pilih nombor [7] untuk konfigurasi gred К",
   "К -> Setelah itu sila pergi ke menu utama dan tekan         К",
   "К    nombor [8] untuk meng 'update'kan...atau menyamakan    К",
   "К    antara markah dan gred baru seperti yang dikehendaki   К",
   "К -> Anda digalakkan supaya menyempurnakan sistem gred      К",
   "К    terlebih dahalu sebelum anda menginput sebarang data   К",
   "К    pelajar.                                               К",
   "К * Anda bebas mengubah gred dan markah mengikut keperluan  К",
   "К   dan kehendak anda.                                      К",
   "ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ"};
   for(g = 0; g<22; g++) {
      textbackground(1);
      gotoxy(9,6+g);cprintf("%s",info[g]);
   }  /* penutup for g */
      textbackground(0);
      textcolor(YELLOW);
      delay(2500);
      _setcursortype(_NOCURSOR);
      gotoxy(21,24);cprintf("Tekan <F2> untuk ke konfigurasi gred");
      gotoxy(20,25);cprintf("Tekan <enter> untuk kembali input data");
      /* function 1 returns 0 until a key is pressed */
      while (bioskey(1) == 0);
      /* function 0 returns the key that is waiting */
      key = bioskey(0);
	 if (key== 0x3c00){
	    konfigurasi_gred();
	 } /* penutup if */
      textbackground(0);
      textcolor(7);

}  /* tamat fungsi 'tolongAna' */

/* fungsi ralat: Memaparkan mesej ralat jika data tiada dalam fail */
void ralat ( void ) {
   clrscr();
   sound(261); delay(150); nosound();
   sound(183); delay(300); nosound();
	_setcursortype(_NOCURSOR);
	 textcolor(YELLOW);
	 textbackground(RED);
	 gotoxy(24,12); cprintf("ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ");
	 gotoxy(24,13); cprintf(" ???????? TIADA DALAM REKOD ????????");
	 gotoxy(24,14); cprintf("ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ");
	 delay(1500);
	 textcolor(7);
	 textbackground(0);
	_setcursortype(_NORMALCURSOR);

}/* tamat fungsi ralat */

/* fungsi ralat2: memapar mesej ralat input pilihan kepada menu */
void ralat2 (void) {
   sound(451); delay(150); nosound();
   sound(355); delay(300); nosound();
   _setcursortype(_NOCURSOR);
   textcolor(YELLOW);
   textbackground(RED);
   gotoxy(24,12); cprintf("ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ");
   gotoxy(24,13); cprintf(" PASTIKAN PILIHAN ANDA ADALAH TEPAT ");
   gotoxy(24,14); cprintf("ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ");
   delay(1500);
   textcolor(7);
   textbackground(0);
   _setcursortype(_NORMALCURSOR);

} /* tamat fungsi ralat2 */

/* fungsi 'Scroll': Keluar dari aturcara */
void Scroll() {
unsigned a;
  textbackground(0);
  textcolor(0);
  for(a=0;a<25;a++) {
     gotoxy(1, 1);
     delline();
     delay(20);
  }
  return;
}  /* tamat fungsi Scroll */