//01 Display Characters A to E one by one in one second Interval
void setup() {
  // put your setup code here, to run once:
 direction();
}

void loop() {
  // put your main code here, to run repeatedly:
 code();
}

//******************************************
void delay_1()
{
  volatile long i;
  for(i=0;i<5000;i++);
}

void delay_2()
{
  volatile long i;
  for(i=0;i<500000;i++);
}

void direction()
{
  volatile char *dirf,*dirl;
  dirf = 0x30; dirl = 0x10A;
  *dirf = 0xFF; *dirl = 0xFF; 
}

void code()
{
  volatile char i;
  for(i=0;i<5;i++)
  {
    if(i==0) {A();delay_2();}
    if(i==1) {B();delay_2();}
    if(i==2) {C();delay_2();}
    if(i==3) {D();delay_2();}
    if(i==4) {E();delay_2();}
  }
}
void A()
{
  volatile char *outf,*outl,x,i,j;
  outf = 0x31; outl = 0x10B;
 for(j=0;j<20;j++)
  {for(i=0;i<8;i++)
    {
      //        row         coloum   
      if(i==0){*outf = 0x00;*outl = 0xFE;delay_1();} 
      if(i==1){*outf = 0x08;*outl = 0xFD;delay_1();}
      if(i==2){*outf = 0x14;*outl = 0xFB;delay_1();}
      if(i==3){*outf = 0x22;*outl = 0xF7;delay_1();}
      if(i==4){*outf = 0x41;*outl = 0xEF;delay_1();}
      if(i==5){*outf = 0x7F;*outl = 0xDF;delay_1();}
      if(i==6){*outf = 0x41;*outl = 0xBF;delay_1();}
      if(i==7){*outf = 0x41;*outl = 0x7F;delay_1();}
    }
  }
}
void B()
{
  volatile char *outf,*outl,x,i,j;
  outf = 0x31; outl = 0x10B;
  for(j=0;j<20;j++)
  {for(i=0;i<8;i++)
    {
      //        row         coloum   
      if(i==0){*outf = 0x70;*outl = 0xFE;delay_1();} 
      if(i==1){*outf = 0x48;*outl = 0xFD;delay_1();}
      if(i==2){*outf = 0x48;*outl = 0xFB;delay_1();}
      if(i==3){*outf = 0x70;*outl = 0xF7;delay_1();}
      if(i==4){*outf = 0x48;*outl = 0xEF;delay_1();}
      if(i==5){*outf = 0x48;*outl = 0xDF;delay_1();}
      if(i==6){*outf = 0x70;*outl = 0xBF;delay_1();}
      if(i==7){*outf = 0x00;*outl = 0x7F;delay_1();}
    }
  }
}
void C()
{
  volatile char *outf,*outl,x,i,j;
  outf = 0x31; outl = 0x10B;
  for(j=0;j<20;j++)
  {for(i=0;i<8;i++)
    {
      //        row         coloum   
      if(i==0){*outf = 0x00;*outl = 0xFE;delay_1();} 
      if(i==1){*outf = 0x1C;*outl = 0xFD;delay_1();}
      if(i==2){*outf = 0x20;*outl = 0xFB;delay_1();}
      if(i==3){*outf = 0x20;*outl = 0xF7;delay_1();}
      if(i==4){*outf = 0x20;*outl = 0xEF;delay_1();}
      if(i==5){*outf = 0x1C;*outl = 0xDF;delay_1();}
      if(i==6){*outf = 0x00;*outl = 0xBF;delay_1();}
      if(i==7){*outf = 0x00;*outl = 0x7F;delay_1();}
    }
  }
}
void D()
{
  volatile char *outf,*outl,x,i,j;
  outf = 0x31; outl = 0x10B;
  for(j=0;j<20;j++)
  {for(i=0;i<8;i++)
    {
      //        row         coloum   
      if(i==0){*outf = 0x00;*outl = 0xFE;delay_1();} 
      if(i==1){*outf = 0x38;*outl = 0xFD;delay_1();}
      if(i==2){*outf = 0x24;*outl = 0xFB;delay_1();}
      if(i==3){*outf = 0x22;*outl = 0xF7;delay_1();}
      if(i==4){*outf = 0x22;*outl = 0xEF;delay_1();}
      if(i==5){*outf = 0x24;*outl = 0xDF;delay_1();}
      if(i==6){*outf = 0x38;*outl = 0xBF;delay_1();}
      if(i==7){*outf = 0x00;*outl = 0x7F;delay_1();}
    }
  }
}
void E()
{
  volatile char *outf,*outl,x,i,j;
  outf = 0x31; outl = 0x10B;
  for(j=0;j<20;j++)
  {for(i=0;i<8;i++)
    {
      //        row         coloum   
      if(i==0){*outf = 0x3C;*outl = 0xFE;delay_1();} 
      if(i==1){*outf = 0x20;*outl = 0xFD;delay_1();}
      if(i==2){*outf = 0x20;*outl = 0xFB;delay_1();}
      if(i==3){*outf = 0x3C;*outl = 0xF7;delay_1();}
      if(i==4){*outf = 0x20;*outl = 0xEF;delay_1();}
      if(i==5){*outf = 0x20;*outl = 0xDF;delay_1();}
      if(i==6){*outf = 0x3C;*outl = 0xBF;delay_1();}
      if(i==7){*outf = 0x00;*outl = 0x7F;delay_1();}
    }
  }
}