Stap 3: De Code van de steekproef
' {$STAMP BS2}
' {$PBASIC 2.0} out CON 7
S3 CON 0
S2 CON 1
LED CON 5
pRED CON 15
pGREEN CON 12
pBLUE CON 9
RODE VAR Word
GROENE VAR Word
BLAUWE VAR Word
Start: Hoge LED
MainLp:
GOSUB kleur DEBUG "R", DEC3 rode DEBUG "G", DEC3 groen DEBUG "B", DEC3 blauwe DEBUG CR GOTO MainLp kleur:
LAGE S2 laag S3 COUNT Out, pRED, rode hoog S3 COUNT Out, pBLUE, blauwe hoge S2 COUNT Out, pGREEN, groen
TERUGKEER
ALS rood = 200 tot 260, groen = 100 tot 200, blauw = 100 tot 200 dan laag 1
ALS rood = 0, groen = 0, blauw = 100 tot 260 dan hoge 1
ALS rood = 160 tot 80, groen = 20 tot 50, blauw = 130 tot 260 vervolgens laag 1