; Experiment-26-28X2+DS1804+OddTones.bas #picaxe 28X2 ; Define the MCU ; Begin Declare Variables, Constants and Devices * * * * * * * * * * * * * * * symbol RLED = B.7 symbol GLED = B.6 symbol BLED = B.5 symbol INCDEC = B.0 symbol DIR = B.1 symbol i = b0 ; BEGIN Main Body * * * * * * * * * * * * * * * do for i = 0 to 98 gosub SEQDN pause 100 next i ;loop pause 3000 ;do for i = 0 to 98 gosub SEQUP pause 100 next i pause 3000 loop ; END Main Body * * * * * * * * * * * * * * * * end ; BEGIN Subroutines * * * * * * * * * * * * * * * SEQUP: gosub red high DIR high INCDEC pause 50 low INCDEC gosub LEDsOFF return SEQDN: gosub blue low DIR high INCDEC pause 50 low INCDEC gosub LEDsOFF return LEDsOFF: high RLED ; switch Red OFF high GLED ; switch Green OFF high BLED ; switch Blue OFF return red: low RLED ; switch RED ON high GLED ; switch Green OFF high BLED ; switch Blue OFF return green: high RLED ; switch Red OFF low GLED ; switch Green ON high BLED ; switch Blue OFF return blue: high RLED ; switch Red OFF high GLED ; switch Green OFF low BLED ; switch RED ON return ; END Subroutines * * * * * * * * * * * * * * * * end