5 10 REM ******************************************************************** 20 REM * Programma S1DEB6 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 ,in una sola direzione. * 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 160 XBY(64000)=255-(2**X) 165 X=X+1: FOR Z=0 TO 100 :NEXT Z 170 IF X<8 THEN GOTO 160 ELSE XBY(64000)=255 :X=0 180 REM ********** Accensione LED port C 190 XBY(64002)=255-(2**X) 200 X=X+1 : FOR Z=0 TO 100 : NEXT Z 300 IF X<8 THEN GOTO 190 ELSE XBY(64002)=255 :X=0 310 GOTO 160