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