5 10 REM ******************************************************************** 20 REM * Programma S1DEB9 Rel 1.0 utilizzando MCS BASIC 52 * 15 REM * per le schede GPCF2 e DEB01 * 30 REM * GRIFO(R) via Dante, 1 40016 S.Giorgio di Piano (BO) * 40 REM * Tel.(051)89.20.52 FAX.(051)89.86.61 * 50 REM * * 60 REM * Fa scorrere l'accensione di un LED da destra verso sinistra * 70 REM * ed uno da sinistra verso destra . * 80 REM * * 90 REM * by Pedrielli Adriano. 24 AGOSTO 1991 * 95 REM ******************************************************************** 100 REM 102 REM Per il collegamento fra le due schede occorre un flat inserito nel 103 REM connettore CN2 da 20 vie della GPCF2 e nel connettore CN15 della 104 REM DEB01 105 REM 110 REM ************************* Main program ************************* 120 REM ********** Inizializzo port A,C in output, B input 130 XBY(64003)=130 135 REM ********** Spegnimento LED purt A 140 XBY(64000)=255 :XBY(64002)=255 150 REM ********** Accensione LED port A 155 X=0:K=7 160 XBY(64000)=255-(2**X):XBY(64002)=255-(2**K) 165 X=X+1: K=K-1: FOR Z=0 TO 100 :NEXT Z 170 IF X<8 THEN GOTO 160 180 X=X-1 : K=K+1 190 XBY(64000)=255-(2**X):XBY(64002)=255-(2**K) 200 FOR Z=0 TO 100 : NEXT Z 300 IF X<>0 THEN GOTO 180 310 GOTO 155