`Pat's Infrared 25 Coloured(x5) LED Light Bar - 15/2/2018
`This program uses Multiplexing to light up 25 LED's from 10 outputs.
`This program uses 1577 of 2048 Bytes leaving room for you own ideas.
`LED1=Blue,LED2=Yellow,LED3=Red,LED4=Green,LED5=Orange x5 repeat to 25.

Symbol delay =50
Symbol delay1 =2000
main:
infrain2			'wait for new signal from hand controller
	
	if infra=101 then AllOff'Button Daewoo,turns on AllOff
	if infra=23 then AllOn	'Button Surround,turns on AllOn.
	if infra=51 then CentreToOut	'UpToggle gives CentreToOut.
	if infra=52 then OutToCentre 	'DownToggle gives OutToCentre.
	if infra=117 then RightToLeft		'LeftToggle gives RightToLeft.
	if infra=116 then LeftToRight	'RightToggle gives LeftToRight.
	if infra=18 then CrissCross '+VOL gives LeftToRight
	if infra=19 then Raining '-VOL gives Raining
	if infra=16 then StrobeLightx30 'TV/AV gives StrobeLightx30
	if infra=58 then ColourRun 'Display gives ColourRun
	if infra=76 then RedOn 'Red(picture) gives RedOn
	if infra=77 then GreenOn 'Green(audio) gives GreenOn
	if infra=78 then YellowOn `Yellow(time) gives YellowOn
	if infra=79 then BlueOn 'Blue(system) gives BlueOn
	if infra=54 then OrangeOn 'Dot(sleep) OrangeOn
	`if infra=20 then Manual: 		'Runs all programs Auotomatically
	
AllOn:
high 0,1,2,3,4 low 5,c.0,c.1,c.2,c.4
goto main
AllOff:
low 0,1,2,3,4 high 5,c.0,c.1,c.2,c.4
goto main
RightToLeft:
let b3=0
do
`LED1:
high 0 low 5 pause delay low 0 high 5
`LED2:
high 0 low c.0 pause delay low 0 high c.0
`LED3:
high 0 low C.1 pause delay low 0 high c.1
`LED4:
high 0 low C.2 pause delay low 0 high c.2
`LED5:
high 0 low C.4 pause delay low 0 high c.4
`LED6:
high 1 low 5 pause delay low 1 high 5
`LED7:
high 1 low c.0 pause delay low 1 high c.0
`LED8:
high 1 low C.1 pause delay low 1 high c.1
`LED9:
high 1 low C.2 pause delay low 1 high c.2
`LED10:
high 1 low C.4 pause delay low 1 high c.4
`LED11:
high 2 low 5 pause delay low 2 high 5
`LED12:
high 2 low c.0 pause delay low 2 high c.0
`LED13:
high 2 low C.1 pause delay low 2 high c.1
`LED14:
high 2 low C.2 pause delay low 2 high c.2
`LED15:
high 2 low C.4 pause delay low 2 high c.4
`LED16:
high 3 low 5 pause delay low 3 high 5
`LED17:
high 3 low c.0 pause delay low 3 high c.0
`LED18:
high 3 low C.1 pause delay low 3 high c.1
`LED19:
high 3 low C.2 pause delay low 3 high c.2
`LED20:
high 3 low C.4 pause delay low 3 high c.4
`LED21:
high 4 low 5 pause delay low 4 high 5
`LED22:
high 4 low c.0 pause delay low 4 high c.0
`LED23:
high 4 low C.1 pause delay low 4 high c.1
`LED24:
high 4 low C.2 pause delay low 4 high c.2
`LED25:
high 4 low C.4 pause delay low 4 high c.4
inc b3
loop while b3<3
goto main
LeftToRight:
let b3=0
do
`LED25:
high 4 low C.4 pause delay low 4 high c.4
`LED24:
high 4 low C.2 pause delay low 4 high c.2
`LED23:
high 4 low C.1 pause delay low 4 high c.1
`LED22:
high 4 low c.0 pause delay low 4 high c.0
`LED21:
high 4 low 5 pause delay low 4 high 5
`LED20:
high 3 low C.4 pause delay low 3 high c.4
LED19:
high 3 low C.2 pause delay low 3 high c.2
`LED18:
high 3 low C.1 pause delay low 3 high c.1
`LED17:
high 3 low c.0 pause delay low 3 high c.0
`LED16:
high 3 low 5 pause delay low 3 high 5
`LED15:
high 2 low C.4 pause delay low 2 high c.4
`LED14:
high 2 low C.2 pause delay low 2 high c.2
`LED13:
high 2 low C.1 pause delay low 2 high c.1
`LED12:
high 2 low c.0 pause delay low 2 high c.0
`LED11:
high 2 low 5 pause delay low 2 high 5
`LED10:
high 1 low C.4 pause delay low 1 high c.4
`LED9:
high 1 low C.2 pause delay low 1 high c.2
`LED8:
high 1 low C.1 pause delay low 1 high c.1
`LED7:
high 1 low c.0 pause delay low 1 high c.0
`LED6:
high 1 low 5 pause delay low 1 high 5
`LED5:
high 0 low C.4 pause delay low 0 high c.4
`LED4:
high 0 low C.2 pause delay low 0 high c.2
`LED3:
high 0 low C.1 pause delay low 0 high c.1
`LED2:
high 0 low c.0 pause delay low 0 high c.0
`LED1:
high 0 low 5 pause delay low 0 high 5
inc b3
loop while b3<3
goto main
CentreToOut:
let b3=0
do

`LED13:
high 2 low C.1 pause delay low 2 high c.1
`LED14:
high 2 low C.2 pause delay low 2 high c.2
`LED12:
high 2 low c.0 pause delay low 2 high c.0
`LED11:
high 2 low 5 pause delay low 2 high 5
`LED15:
high 2 low C.4 pause delay low 2 high c.4
`LED10:
high 1 low C.4 pause delay low 1 high c.4
`LED16:
high 3 low 5 pause delay low 3 high 5
`LED9:
high 1 low C.2 pause delay low 1 high c.2
`LED17:
high 3 low c.0 pause delay low 3 high c.0
`LED8:
high 1 low C.1 pause delay low 1 high c.1
`LED18:
high 3 low C.1 pause delay low 3 high c.1
`LED7:
high 1 low c.0 pause delay low 1 high c.0
`LED19:
high 3 low C.2 pause delay low 3 high c.2
`LED6:
high 1 low 5 pause delay low 1 high 5
`LED20:
high 3 low C.4 pause delay low 3 high c.4
`LED5:
high 0 low C.4 pause delay low 0 high c.4
`LED21:
high 4 low 5 pause delay low 4 high 5
`LED4:
high 0 low C.2 pause delay low 0 high c.2
`LED22:
high 4 low c.0 pause delay low 4 high c.0
`LED3:
high 0 low C.1 pause delay low 0 high c.1
`LED23:
high 4 low C.1 pause delay low 4 high c.1
`LED2:
high 0 low c.0 pause delay low 0 high c.0
`LED24:
high 4 low C.2 pause delay low 4 high c.2
`LED1:
high 0 low 5 pause delay low 0 high 5
`LED25:
high 4 low C.4 pause delay low 4 high c.4
inc b3
loop while b3<3
goto main

OutToCentre:
let b3=0
do
`LED25:
high 4 low C.4 pause delay low 4 high c.4
`LED1:
high 0 low 5 pause delay low 0 high 5
`LED24:
high 4 low C.2 pause delay low 4 high c.2
`LED2:
high 0 low c.0 pause delay low 0 high c.0
`LED23:
high 4 low C.1 pause delay low 4 high c.1
`LED3:
high 0 low C.1 pause delay low 0 high c.1
`LED22:
high 4 low c.0 pause delay low 4 high c.0
`LED4:
high 0 low C.2 pause delay low 0 high c.2
`LED21:
high 4 low 5 pause delay low 4 high 5
`LED5:
high 0 low C.4 pause delay low 0 high c.4
`LED20:
high 3 low C.4 pause delay low 3 high c.4
`LED6:
high 1 low 5 pause delay low 1 high 5
`LED19:
high 3 low C.2 pause delay low 3 high c.2
`LED7:
high 1 low c.0 pause delay low 1 high c.0
`LED18:
high 3 low C.1 pause delay low 3 high c.1
`LED8:
high 1 low C.1 pause delay low 1 high c.1
`LED17:
high 3 low c.0 pause delay low 3 high c.0
`LED9:
high 1 low C.2 pause delay low 1 high c.2
`LED16:
high 3 low 5 pause delay low 3 high 5
`LED10:
high 1 low C.4 pause delay low 1 high c.4
`LED15:
high 2 low C.4 pause delay low 2 high c.4
`LED11:
high 2 low 5 pause delay low 2 high 5
`LED14:
high 2 low C.2 pause delay low 2 high c.2
`LED12:
high 2 low c.0 pause delay low 2 high c.0
`LED13:
high 2 low C.1 pause delay low 2 high c.1
inc b3
loop while b3<3
goto main
CrissCross:
let b3=0
do
`LED25:
high 4 low C.4 pause delay low 4 high c.4
`LED1:
high 0 low 5 pause delay low 0 high 5
`LED24:
high 4 low C.2 pause delay low 4 high c.2
`LED2:
high 0 low c.0 pause delay low 0 high c.0
`LED23:
high 4 low C.1 pause delay low 4 high c.1
`LED3:
high 0 low C.1 pause delay low 0 high c.1
`LED22:
high 4 low c.0 pause delay low 4 high c.0
`LED4:
high 0 low C.2 pause delay low 0 high c.2
`LED21:
high 4 low 5 pause delay low 4 high 5
`LED5:
high 0 low C.4 pause delay low 0 high c.4
`LED20:
high 3 low C.4 pause delay low 3 high c.4
`LED6:
high 1 low 5 pause delay low 1 high 5
`LED19:
high 3 low C.2 pause delay low 3 high c.2
`LED7:
high 1 low c.0 pause delay low 1 high c.0
`LED18:
high 3 low C.1 pause delay low 3 high c.1
`LED8:
high 1 low C.1 pause delay low 1 high c.1
`LED17:
high 3 low c.0 pause delay low 3 high c.0
`LED9:
high 1 low C.2 pause delay low 1 high c.2
`LED16:
high 3 low 5 pause delay low 3 high 5
`LED10:
high 1 low C.4 pause delay low 1 high c.4
`LED15:
high 2 low C.4 pause delay low 2 high c.4
`LED11:
high 2 low 5 pause delay low 2 high 5
`LED14:
high 2 low C.2 pause delay low 2 high c.2
`LED12:
high 2 low c.0 pause delay low 2 high c.0
`LED13:
high 2 low C.1 pause delay low 2 high c.1
`LED14:
high 2 low C.2 pause delay low 2 high c.2
`LED12:
high 2 low c.0 pause delay low 2 high c.0
`LED15:
high 2 low C.4 pause delay low 2 high c.4
`LED11:
high 2 low 5 pause delay low 2 high 5
`LED16:
high 3 low 5 pause delay low 3 high 5
`LED10:
high 1 low C.4 pause delay low 1 high c.4
`LED17:
high 3 low c.0 pause delay low 3 high c.0
`LED9:
high 1 low C.2 pause delay low 1 high c.2
`LED18:
high 3 low C.1 pause delay low 3 high c.1
`LED8:
high 1 low C.1 pause delay low 1 high c.1
`LED19:
high 3 low C.2 pause delay low 3 high c.2
`LED7:
high 1 low c.0 pause delay low 1 high c.0
`LED20:
high 3 low C.4 pause delay low 3 high c.4
`LED6:
high 1 low 5 pause delay low 1 high 5
`LED21:
high 4 low 5 pause delay low 4 high 5
`LED5:
high 0 low C.4 pause delay low 0 high c.4
`LED22:
high 4 low c.0 pause delay low 4 high c.0
`LED4:
high 0 low C.2 pause delay low 0 high c.2
`LED23:
high 4 low C.1 pause delay low 4 high c.1
`LED3:
high 0 low C.1 pause delay low 0 high c.1
`LED24:
high 4 low C.2 pause delay low 4 high c.2
`LED2:
high 0 low c.0 pause delay low 0 high c.0
`LED25:
high 4 low C.4 pause delay low 4 high c.4
`LED1:
high 0 low 5 pause delay low 0 high 5
`LED13:
high 2 low C.1 pause delay low 2 high c.1
inc b3
loop while b3<3
goto main
Raining:
let b3=0
do
`LED1:
low 0 high 5 pause delay high 0 low 5
`LED2:
low 0 high c.0 pause delay high 0 low c.0
`LED3:
low 0 high C.1 pause delay high 0 low c.1
`LED4:
low 0 high C.2 pause delay high 0 low c.2
`LED5:
low 0 high C.4 pause delay high 0 low c.4
`LED6:
low 1 high 5 pause delay high 1 low 5
`LED7:
low 1 high c.0 pause delay high 1 low c.0
`LED8:
low 1 high C.1 pause delay high 1 low c.1
`LED9:
low 1 high C.2 pause delay high 1 low c.2
`LED10:
low 1 high C.4 pause delay high 1 low c.4
`LED11:
low 2 high 5 pause delay high 2 low 5
`LED12:
low 2 high c.0 pause delay high 2 low c.0
`LED13:
low 2 high C.1 pause delay high 2 low c.1
`LED14:
low 2 high C.2 pause delay high 2 low c.2
`LED15:
high 2 high C.4 pause delay high 2 low c.4
`LED16:
low 3 high 5 pause delay high 3 low 5
`LED17:
low 3 high c.0 pause delay high 3 low c.0
`LED18:
low 3 high C.1 pause delay high 3 low c.1
`LED19:
low 3 high C.2 pause delay high 3 low c.2
`LED20:
low 3 high C.4 pause delay high 3 low c.4
`LED21:
low 4 high 5 pause delay high 4 low 5
`LED22:
low 4 high c.0 pause delay high 4 low c.0
`LED23:
low 4 high C.1 pause delay high 4 low c.1
`LED24:
low 4 high C.2 pause delay high 4 low c.2
`LED25:
low 4 high C.4 pause delay high 4 low c.4
inc b3
loop while b3<3
low 0,1,2,3,4 high 5,c.0,c.1,c.2,c.4
goto main
StrobeLightx30:
let b1=0
do
high 0 high 1 high 2 high 3 high 4 high 5 high C.0 high C.1 high C.2 high C.4 
pause 25
low 0 low 1 low 2 low 3 low 4 low 5 low C.0 low C.1 low C.2 low C.4 
pause 25		
let b1=0+b1
inc b1		
loop while b1<30
`pause delay
goto main
ColourRun:
let b1=0
do
high 0,1,2,3,4 low 5 pause delay low 0,1,2,3,4 high 5
high 0,1,2,3,4 low c.0 pause delay low 0,1,2,3,4 high c.0
high 0,1,2,3,4 low c.1 pause delay low 0,1,2,3,4 high c.1
high 0,1,2,3,4 low c.2 pause delay low 0,1,2,3,4 high c.2
high 0,1,2,3,4 low c.4 pause delay low 0,1,2,3,4 high c.4
pause 25		
let b1=0+b1
inc b1		
loop while b1<10
`pause delay
goto main
RedOn:
high 0,1,2,3,4 low c.1 pause delay1 low 0,1,2,3,4 high c.1
goto main
GreenOn:
high 0,1,2,3,4 low c.2 pause delay1 low 0,1,2,3,4 high c.2
goto main
YellowOn:
high 0,1,2,3,4 low c.0 pause delay1 low 0,1,2,3,4 high c.0
goto main
BlueOn:
high 0,1,2,3,4 low 5 pause delay1 low 0,1,2,3,4 high 5
goto main
OrangeOn:
high 0,1,2,3,4 low c.4 pause delay1 low 0,1,2,3,4 high c.4
goto main