gigatron/rom/BASIC/LEDs.gtb
2025-01-28 19:17:01 +03:00

13 lines
212 B
Plaintext

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