Dim I As Byte
P1 = &B11111110
P3 = &B01111111
Do
   For I = 0 To 7
      Rotate P1 , Left
      Waitms 100
   Next

   For I = 0 To 7
      Rotate P3 , Left
      Waitms 100
   Next


Loop