// Web Rover NQC code
//
// Conrols movement of a driveable webcam.
//
// Copyright (c) 2005 Scott Ireland

task main() //0 forward
{

  OnFwd(OUT_A);
  OnFwd(OUT_C);
  Wait(100);
  Off(OUT_A);
  Off(OUT_C);

}

task backward() //1 reverse
{

  OnRev(OUT_A);
  OnRev(OUT_C);
  Wait(100);
  Off(OUT_A);
  Off(OUT_C);

}


task left() //2 left
{

  OnRev(OUT_A);
  OnFwd(OUT_C);
  Wait(60);
  Off(OUT_A);
  Off(OUT_C);
}


task right() //3 right
{

  OnFwd(OUT_A);
  OnRev(OUT_C);
  Wait(60);
  Off(OUT_A);
  Off(OUT_C);
}


task panup() //4 up
{

  OnRev(OUT_B);
  Wait(10);
  Off(OUT_B);
}


task pandown() //5 down
{

  OnFwd(OUT_B);
  Wait(10);
  Off(OUT_B);
}

task forwardFast() //6 forward
{

  OnFwd(OUT_A);
  OnFwd(OUT_C);
  Wait(500);
  Off(OUT_A);
  Off(OUT_C);

}

task backwardFast() //7 reverse
{

  OnRev(OUT_A);
  OnRev(OUT_C);
  Wait(500);
  Off(OUT_A);
  Off(OUT_C);

}


task leftFast() //8 left
{

  OnRev(OUT_A);
  OnFwd(OUT_C);
  Wait(200);
  Off(OUT_A);
  Off(OUT_C);
}


task rightFast() //9 right
{

  OnFwd(OUT_A);
  OnRev(OUT_C);
  Wait(200);
  Off(OUT_A);
  Off(OUT_C);
}