/*
code red

(C) CLIP & KLAR, 200011028
slot 5
*/

// sensors
#define FRONT SENSOR_3

// motors
#define LEFT OUT_A
#define RIGHT OUT_C

//variablen
int turndir=1;
int speed=7;
int turnspeed=7;

task main() {
  // configure the sensors
  SetSensor(FRONT, SENSOR_TOUCH);
  
  //start here ...
  ClearTimer(0); //GO!
  //turnL45();
  start travel;     //auf geht's
}

task travel() {
  strait();
  while(true) {
    until (FRONT == 0);
    Off(LEFT+RIGHT);
    //Wait(200);
      back();
  }
}

sub strait() {
  Off(LEFT+RIGHT);
  SetPower(LEFT+RIGHT,speed);
  Rev(LEFT+RIGHT);
  On(LEFT+RIGHT);
}

sub back() {
  Off(LEFT+RIGHT);
  SetPower(LEFT+RIGHT,speed);
  Fwd(LEFT+RIGHT);
  On(LEFT+RIGHT);
}