Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
13 lines (12 sloc) 212 Bytes
10'Stop LED sequencer
20 POKE 46,1
30 FOR N=0 TO 15
39'Set LED state
40 POKE 20,N
49'Reset frame counter
50 POKE 14,0
59'Wait half second
60 IF PEEK(14)<30 GOTO 60
70 NEXT N
80'Restart LED sequencer
90 POKE 46,0