int Sekvence[16][8]=
{
//  sloupce - data 
// 0,1,2,3,4,5,6,7  
  {1,0,0,0,0,0,0,1}, //--krok 1 --
  {0,1,0,0,0,0,1,0}, //--krok 2 --
  {0,0,1,0,0,1,0,0}, //--krok 3 --
  {0,0,0,1,1,0,0,0}, //--krok 4 --
  {0,0,1,0,0,1,0,0}, //--krok 5 --
  {0,1,0,0,0,0,1,0}, //--krok 6 --
  {1,0,0,0,0,0,0,1}, //--krok 7 --
  {0,0,0,0,0,0,0,0}, //--krok 8 --

  {0,0,0,1,1,0,0,0}, //--krok 9 --
  {0,0,1,1,1,1,0,0}, //--krok 10 --
  {0,1,1,1,1,1,1,0}, //--krok 11 --
  {1,1,1,1,1,1,1,1}, //--krok 12 --
  {0,1,1,1,1,1,1,0}, //--krok 13 --
  {0,0,1,1,1,1,0,0}, //--krok 14 --
  {0,0,0,1,1,0,0,0}, //--krok 15 --
  {0,0,0,0,0,0,0,0}, //--krok 16 --
};

int SetSpeed()
{
  int cas;
  cas=analogRead(A0);  //---- 0 - 1023
  cas=map(cas,0,1023,20,500); //--20 - 500

  return cas;
}

void setup()
{
  for (int pin=0; pin<=7; pin++)
  {
    pinMode(pin, OUTPUT);
  }
  pinMode(A0, INPUT);
}


void loop()
{
  for (int krok=0;krok<=15;krok++)
  {
    for (int pin=0;pin<=7;pin++)
    {
      digitalWrite(pin,Sekvence[krok][pin]);
    }
    delay(SetSpeed());
  }

}