10 REM Program S1DEB9 Rel.1.0 per GPC 011 della GRIFO(R) 
20 REM Via Dante 1  40016 S.Giorgio di Piano (BOLOGNA) Tel.(051) 89.20.52
30 REM Procedura che fa scorrere un led acceso da PORT a verso PORT c
40 REM e viceversa
50 REM By Bartolai Massimiliano  21.12.90
60 REM INIZIALIZZAZIONE PORT A E C IN OUTPUT
70 S=0
80 L=7
90 OUT 84,255
100 OUT 85,255
110 REM SPEGNIMENTO LED
120 OUT 80,255
130 OUT 81,255
140 FOR F=0 TO 7
150 I=2^F
160 G=255-I
170 FOR H=1 TO 100\NEXT H
180 OUT 80,G
190 J=255-(2^L)
200 OUT 81,J
210 L=L-1
220 NEXT F
230 FOR F=7 TO 0 STEP(-1)
240 I=255-(2^F)
250 FOR H=1 TO 100\NEXT H
260 OUT 80,I
270 G=255-(2^S)
280 FOR H=1 TO 100\NEXT H
290 OUT 81,G
300 S=S+1
310 NEXT F
320 OUT 80,255
330 OUT 81,255
340 REM FINE
270 G=255-(2^S)
280 FOR H=1 TO 100\NEXT H
290 OUT 81,G
300 S=S+1
310 NEXT F
320 OUT 80,255
330 OUT 81,255
340 REM FINE