Basic LED free-running demo

 

-- turn all LEDs off
for i=1,4,1 do
  jn_led(i,0);
end

i=0;
status = 0;
mydelay = 15;
while(1) do
    doevents();
    pause(mydelay);
    i=i+1;
    if(i>4) then
       i=0;
    end
    for j=1,4,1 do
       if (j == i) then status = 1; else status = 0; end
       jn_led(j,status);
    end
end