10 REM ******************************************************************
15 REM *      Programa S1DEB9 Rel.1.0 per l'interprete NSB8 e BAZIC     *
25 REM *            Utilizzando le schede GPC-81 e DEB-01               *
35 REM *    GRIFO(R)  Via Dante, 1      40016  S.Giorgio di Piano (BO)  *
45 REM *    Tel.(051)89.20.52           Fax.(051)89.36.61               *  
55 REM *                                                                *
65 REM * Fa scorrere l'accensione di un LED da sinistra verso destra    *
75 REM * ed uno da destra verso sinistra .                              *
85 REM *                                                                *
95 REM * By Pedrielli Adriano.          24  LUGLIO    1991              *
98 REM ******************************************************************
115 REM
125 REM Per il collegamento fra le due schede e'necessario un flat     
135 REM inserito nel connetore CN2 da 20 vie della GPC81 e nel connettore 
145 REM CN15 da 20 vie della DEB01
155 REM
165 REM *************************** Main program ************************
175 REM
185     REM ********** Inizalizzo port A e C in output
195 OUT 7,128
225     REM ********** Spegnimento LED
235 OUT 4,255\OUT 6,255
245 J=0 \H=7
255     REM ********** Loop incremento port A 
265 FOR I=0 TO 6
275   REM ********** J incrementa port A, H decrementa port C
285 J=J+1 \H=H-1
295     REM ********** Accensione LED
305 OUT 4,(255-2^J)\OUT 6,(255-2^H)
315   REM ********** Ritardo 
325 FOR X=0 TO 100 \NEXT X
335 NEXT I
345 FOR I=0 TO 6
355     REM ********** J decrementa port A, H incrementa port C
365 J=J-1 \H=H+1
375     REM ********** Accensione LED
385 OUT 4,(255-2^J)\OUT 6,(255-2^H)
395    REM ********** Ritardo 
405 FOR X=0 TO 100 \NEXT X
415 NEXT I
425 GOTO 245
ED
385 OUT 4,(255-2^J)\OUT 6,(255-2^H)
395    REM ********** Ritardo 
405 FOR X=0 TO 100 \NEX