Change the conditions on me eh ... 
How about ...
Code:
;---------------------------------------
Main:
Random MyWord
MyByte=(MyWord//6)+1
GOSUB HIGH_LED
PAUSE 200
GOSUB LOW_LED
PAUSE 200
GOTO Main
;---------------------------------------
HIGH_LED:
SELECT CASE MyByte
CASE 1 : HIGH LED1
CASE 2 : HIGH LED2
CASE 3 : HIGH LED3
CASE 4 : HIGH LED4
CASE 5 : HIGH LED5
CASE 6 : HIGH LED6
END SELECT
RETURN
;---------------------------------------
LOW_LED:
SELECT CASE MyByte
CASE 1 : LOW LED1
CASE 2 : LOW LED2
CASE 3 : LOW LED3
CASE 4 : LOW LED4
CASE 5 : LOW LED5
CASE 6 : LOW LED6
END SELECT
RETURN
Bookmarks