Code en nbc pour sourligneur line bumper
code msi 2 fait par Julien Perreault
#define Coloration
#define DUREE 50
dseg segment
     Niveau  byte
     Push    byte
     Stop    byte
     freq word TONE_C3
     loopCount byte 4
dseg ends

thread main
   set Stop,1
   SetSensorTouch(IN_1)
   SetSensorLight(IN_3)
   OnFwd(OUT_AC,100)
Contact:
       ReadSensor(IN_1,Push)
       brcmp GT,ChekSensor,Stop,Push
       OnRev(OUT_B,75)
       Wait(300)
       Off(OUT_ABC)
DoLoop:
       TextOut(50,8,'MUSIQUE')
       PlayTone(freq,DUREE)
       Wait DUREE
       mul freq,freq,2
       sub loopCount,loopCount,1
       brst GT,DoLoop,loopCount,0
       PlayTone(Tone_C5,DUREE*2)
       Wait DUREE*2
       exit
CheckSensor:
           ReadSensor(IN_3,Niveau)
           brcmp GTEQ,saut,Nivau,Colaboration
           TextOUT(50,8,'Ok Ok Ok')
           ONRev(OUT_C,50)
 FindLine:
         ReadSensor(IN_3,Niveau)
         brcmp GTEQ,saut,Niveau,Colaboration
         TextOUT(50,8,'Ok Ok Ok')
         ONFwd(OUT_AC,100)
saut:
    jmp Contact
     endit