Der Quelltext

// Music file created by RCX Command Center.

#define __NOTETIME  10
#define __WAITTIME  12

void Melody1()
{
  PlayTone(392,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(440,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(523,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(523,8**__NOTETIME); Wait(8**__WAITTIME);
  PlayTone(523,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(440,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(392,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(440,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(392,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(330,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(392,8**__NOTETIME); Wait(8**__WAITTIME);
  PlayTone(392,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(440,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(523,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(523,8**__NOTETIME); Wait(8**__WAITTIME);
  PlayTone(523,8**__NOTETIME); Wait(8**__WAITTIME);
  PlayTone(440,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(392,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(440,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(392,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(330,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(392,8**__NOTETIME); Wait(8**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(330,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(262,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(262,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(220,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(330,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(262,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(330,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(262,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(330,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(262,8**__NOTETIME); Wait(8**__WAITTIME);
  Wait(8**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(330,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(392,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(392,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(392,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(330,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(262,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(330,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(262,8**__NOTETIME); Wait(8**__WAITTIME);
  PlayTone(262,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(277,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(466,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(466,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(466,8**__NOTETIME); Wait(8**__WAITTIME);
  PlayTone(466,8**__NOTETIME); Wait(8**__WAITTIME);
  PlayTone(466,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(523,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(554,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(587,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(466,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(523,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(587,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(440,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(523,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(466,8**__NOTETIME); Wait(8**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(330,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(294,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(392,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(370,8**__NOTETIME); Wait(8**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(330,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(294,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(440,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(392,8**__NOTETIME); Wait(8**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(294,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(587,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(494,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(392,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(370,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(330,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(523,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(523,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(494,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(392,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(440,4**__NOTETIME); Wait(4**__WAITTIME);
  PlayTone(392,8**__NOTETIME); Wait(8**__WAITTIME);
}

void Run(int x){

    OnFwd(OUT_A + OUT_C);
    Wait(x);
}

void Turn(int y){
    Off(OUT_A);
    Wait(y);
   
}

void Stop(){

      Off(OUT_A);
      Off(OUT_C);
}

task main()
{

  SetSensor(SENSOR_1, SENSOR_LIGHT);
  SetPower(OUT_A, 1);
  SetPower(OUT_C, 1);
 
  while(true){
      if(SENSOR_1 > 60) {
        Stop();
        Melody1();
        ClearSensor(SENSOR_1);
      }
  Run(20);
  }
  //Turn(50);
  //Run(100);
  //Turn(70);
}
~