Der Quelltext

// Music file created by RCX Command Center.

#define __NOTETIME  10
#define __WAITTIME  12

task main()
{ 
  while (true)
  {
  SetPower(OUT_A+OUT_C,7);
 
  OnFwd(OUT_A);
  OnRev(OUT_C); 
                       
  PlayTone(392,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(392,1**__NOTETIME); Wait(1**__WAITTIME);
  Wait(1**__WAITTIME);
  PlayTone(440,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(392,1**__NOTETIME); Wait(1**__WAITTIME);
  PlayTone(349,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(330,4**__NOTETIME); Wait(4**__WAITTIME);
  Wait(4**__WAITTIME);
  OnFwd(OUT_C);
  OnRev(OUT_A);
  PlayTone(523,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(523,1**__NOTETIME); Wait(1**__WAITTIME);
  Wait(1**__WAITTIME);
  PlayTone(587,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(523,1**__NOTETIME); Wait(1**__WAITTIME);
  PlayTone(466,2**__NOTETIME); Wait(2**__WAITTIME);
  PlayTone(440,4**__NOTETIME); Wait(4**__WAITTIME);
  Wait(4**__WAITTIME);
  SetPower(OUT_A+OUT_C,2);
 
  OnFwd(OUT_A+OUT_C);
  PlayTone(523,2**__NOTETIME); Wait(2**__WAITTIME);
  Wait(2**__WAITTIME);
  OnRev(OUT_A+OUT_C);
  PlayTone(554,2**__NOTETIME); Wait(2**__WAITTIME);
  OnFwd(OUT_A+OUT_C);
  PlayTone(440,1**__NOTETIME); Wait(1**__WAITTIME);
  Wait(1**__WAITTIME);
  OnRev(OUT_A+OUT_C);
  PlayTone(587,1**__NOTETIME); Wait(1**__WAITTIME);
  Wait(1**__WAITTIME);
  OnFwd(OUT_A+OUT_C);
  PlayTone(587,1**__NOTETIME); Wait(1**__WAITTIME);
  Wait(1**__WAITTIME);
  OnRev(OUT_A+OUT_C);  Off(OUT_A+OUT_C);
                       
  PlayTone(587,1**__NOTETIME); Wait(1**__WAITTIME);
  Wait(150);
  }
}
~