void setup(){
  volatile char *F_dir= 0x30, *K_dir=0x107, *A_dir=0x21, *C_dir=0x27;
  *F_dir=0x0f; *K_dir=0x00; *A_dir=0x0f; *C_dir=0x0f;

  volatile char *F_data= 0x31, *K_in=0x106, *A_data=0x22, *C_data=0x28;

  while(1){
    volatile long j;
  for(int i=0; i<4; i++){
  *F_data = (1<<i);
  if(*K_in!=0){
    *A_data = (*K_in);
    *C_data = (1<<i);
    for(j=0;j<=200000;j++);
    *A_data = (0x00);
    *C_data = (0x00);
  }
  }
  }

}

void loop(){


}