Étape 3: Exemple de Code
"{$STAMP BS2}
"{$PBASIC 2.0} out CON 7
S3 CON 0
S2 CON 1
CON LED 5
pRED CON 15
pGREEN CON 12
pBLUE CON 9
Mot VAR rouge
Mot VAR vert
Mot VAR bleu
Départ: LED HIGH
MainLp :
GOSUB couleur DEBUG « R », DEC3 rouge DEBUG « G », DEC3 vert DEBUG « B », DEC3 DEBUG bleu CR GOTO MainLp couleur :
FAIBLE S2 LOW S3 COUNT Out, pRED, rouge haute S3 COUNT Out, pBLUE, BLUE haute S2 décompte extérieur, pGREEN, vert
RETOUR
IF rouge = 200 à 260, vert = 100 à 200, bleu = 100 à 200 puis faible 1
IF rouge = 0, Green = 0, bleu = 1 puis élevée 100 à 260
IF rouge = 160 à 80, vert = 20 à 50, bleu = faible puis de 130 à 260 1