Paso 3: Código de ejemplo
' {$STAMP BS2}
' {$PBASIC 2.0} hacia fuera CON 7
S3 CON 0
S2 CON 1
LED CON 5
pRED CON 15
pGREEN CON 12
pBLUE CON 9
ROJO VAR palabra
VERDE VAR palabra
AZUL VAR palabra
Inicio: Alto LED
MainLp:
GOSUB Color DEBUG "R", DEC3 rojo DEBUG "G", DEC3 verde "B", DEC3 azul DEBUG CR GOTO MainLp Color de depuración:
BAJO S2 bajo S3 cuenta hacia fuera, pRED, rojo alta S3 cuenta hacia fuera, pBLUE, azul alta S2 COUNT Out, pGREEN, verde
VOLVER
IF rojo = 200 a 260, verde = 100 a 200, azul = 100 a 200 entonces baja 1
IF rojo = 0, verde = 0, azul = 1 entonces alta 100 a 260
IF rojo = 160 y 80, verde = 20 a 50, azul = baja entonces de 130 a 260 1
