Selectpgrm(0)

#DEFINE(MotorA,0)
#DEFINE(MotorB,1)
#DEFINE(MotorC,2)
#DEFINE(Sensor1,0)
#DEFINE(Sensor2,1)
#DEFINE(Sensor3,2)

Beginoftask(0)
  setfwd(0)
  on(0)
  Wait(2,200)
  Off(0)
  gosub(0)
Endoftask()

beginofsub(0)
  setfwd(1)
  on(1)
  wait(2,50)
  off(1)
  Wait(2,50)
  On(1)
  Wait(2,50)
  off(1)
  Wait(2,50)
  setrwd(1)
  on(1)
  Wait(2,50)
  Off(1)
  Wait(2,50)
  On(1)
  Wait(2,50)
  off(1)
EndOfsub()
#INCLUDE(c:/third.rcp)