i=0
While i < 7 
  s=Sensor.ReadPercent(1)
  If s > 70 Then
    Motor.Move("B",60,1365,"True")
  Else
    Motor.Move("B",-60,1365,"True")
  EndIf
  Motor.Move("D",20,55,"True")
  Program.Delay(1000)
  i=i+1
EndWhile