//---------------------------------------------------------------------------
void shr(char *str, int len) // len : the length of str
{ char ch;      ch = str[len-1];
  memmove(str 1, str, len-1);
  str[0] = ch;
}    void shl(char *str, int len)
{ char ch;      ch = str[0];
  memmove(str, str 1, len-1);
  str[len-1] = ch;
}    void __fastcall TForm1::Button1Click(TObject *Sender)
{ char str[65]; // NULL-terminated string      for (int k=0; k<64; k  )
     str[k] = '0'   random(2);
  str[64]=0;      ListBox1->Items->Add(str);      shr(str,64);
  ListBox1->Items->Add(str);      shl(str,64);
  ListBox1->Items->Add(str);
}
//---------------------------------------------------------------------------