Programme de multiplexage sur leds

 5  rem initialisations
 10 dim Dig1
 20 dim Dig2
 30 dim rouge
 40 dim verte
 50 dim scl as pin scl for digital output
 60 dim sda as pin sda for digital output
 70 configure timer 0 for 5 ms
 80 let Dig1 = 0
 90 let Dig2 = 1
100 let rouge = 1
105 rem main
110 while 1 do
120   on timer 0 do gosub interrupt
140   sleep 1 s
150 endwhile
155 rem subinterrupt
160 sub interrupt
170   if rouge==1 then
180     let rouge = 0
190     gosub ledV
200   else
210     let verte = 0
211     gosub ledR
215   endif
216 endsub
220 gosub ledR
230 rem subledR
250 sub ledR
260   let rouge = 1
270   if Dig1==1 then
280     let scl = 1
290   else
300     let scl = 0
310   endif
315 endsub
320 rem subledV
325 sub ledV
330   let verte = 1
340   if Dig2==1 then
350     let sda = 1
360   else
370     let sda = 0
380   endif
390 endsub