void setup() {
  // put your setup code here, to run once:
  volatile char *dirf, *dirk;
  
  //volatile long i;
  dirf = 0x30; dirk = 0x107;
  *dirf = 0xFF; *dirk = 0x00;

}

void loop() {
  // put your main code here, to run repeatedly:
  volatile char *outf, *ink, x;
  outf = 0x31; ink = 0x106;
  x = *ink;
  if((x & 0x01)==0x01)
  /*if(((x & 0x01)==0x01)||((x & 0x02)==0x02)||((x & 0x04)==0x04)||((x & 0x08)||0x08)
  ||((x & 0x10)==0x10)||((x & 0x20)==0x20)||((x & 0x40)==0x40)||((x & 0x80)==0x80))*/
  {
    *outf = 0x06;
    delay(1000);
    *outf = 0x5B;
    delay(1000);
    *outf = 0x4F;
    delay(1000);
    *outf = 0x66;
    delay(1000);
    *outf = 0x6D;
    delay(1000);
    *outf = 0x7D;
    delay(1000);
    *outf = 0x07;
    delay(1000);
    *outf = 0x7F;
    delay(1000);
    *outf = 0x6F;
    delay(1000);

  }
  else if((x & 0x02)==0x02)
  {
    *outf = 0x5B;
    delay(1000);
    *outf = 0x4F;
    delay(1000);
    *outf = 0x66;
    delay(1000);
    *outf = 0x6D;
    delay(1000);
    *outf = 0x7D;
    delay(1000);
    *outf = 0x07;
    delay(1000);
    *outf = 0x7F;
    delay(1000);
    *outf = 0x6F;
    delay(1000);
  }
  else if((x & 0x04)==0x04)
  {
    *outf = 0x4F;
    delay(1000);
    *outf = 0x66;
    delay(1000);
    *outf = 0x6D;
    delay(1000);
    *outf = 0x7D;
    delay(1000);
    *outf = 0x07;
    delay(1000);
    *outf = 0x7F;
    delay(1000);
    *outf = 0x6F;
    delay(1000);
  }
  else if((x & 0x08)==0x08)
  {
    *outf = 0x66;
    delay(1000);
    *outf = 0x6D;
    delay(1000);
    *outf = 0x7D;
    delay(1000);
    *outf = 0x07;
    delay(1000);
    *outf = 0x7F;
    delay(1000);
    *outf = 0x6F;
    delay(1000);
  }
  else if((x & 0x10)==0x10)
  {
    *outf = 0x6D;
    delay(1000);
    *outf = 0x7D;
    delay(1000);
    *outf = 0x07;
    delay(1000);
    *outf = 0x7F;
    delay(1000);
    *outf = 0x6F;
    delay(1000);
  }
  else if((x & 0x20)==0x20)
  {
    *outf = 0x7D;
    delay(1000);
    *outf = 0x07;
    delay(1000);
    *outf = 0x7F;
    delay(1000);
    *outf = 0x6F;
    delay(1000);
  }
  else if((x & 0x40)==0x40)
  {
    *outf = 0x07;
    delay(1000);
    *outf = 0x7F;
    delay(1000);
    *outf = 0x6F;
    delay(1000);
  }
  else
  {
    *outf = 0x00;
  }
  /*if((x & 0x01)==0x01)
  {
    *outf = 0x06;
  }
  else if((x & 0x02)==0x02)
  {
    *outf = 0x5B;
  }
  else if((x & 0x04)==0x04)
  {
    *outf = 0x4F;
  }
  else if((x & 0x08)==0x08)
  {
    *outf = 0x66;
  }
  else if((x & 0x10)==0x10)
  {
    *outf = 0x6D;
  }
  else if((x & 0x20)==0x20)
  {
    *outf = 0x7D;
  }
  else if((x & 0x40)==0x40)
  {
    *outf = 0x07;
  }
  else if((x & 0x80)==0x80)
  {
    *outf = 0x7F;
  }
  else
  {
    *outf = 0x00;
  }*/
/*
  *outf = 0x3F;
  delay(1000);
  *outf = 0x06;
  delay(1000);
  *outf = 0x5B;
  delay(1000);
  *outf = 0x4F;
  delay(1000);
  *outf = 0x66;
  delay(1000);
  *outf = 0x6D;
  delay(1000);
  *outf = 0x7D;
  delay(1000);
  *outf = 0x07;
  delay(1000);
  *outf = 0x7F;
  delay(1000);
  *outf = 0x6F;
  delay(1000);
*/
}