5
10 REM ********************************************************************
20 REM *        Programma S1DEB7 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  direzione o nella    *
70 REM * altra ,a seconda della posizione dello swich 1 del dip-swich .   *
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
144 REM ********* Lettura dip-swich
146 B=XBY(64001) :E=B-(INT(B/2)*2):IF E<>0 THEN GOTO 400
150 REM ********** Accensione LED port A
155 X=0
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 146
400 X=7
410 REM ********** Spegnimento LED purt A
420 XBY(64000)=255 :XBY(64002)=255
430 REM ********** Accensione LED port C
440 XBY(64002)=255-(2**X)
450 X=X-1: FOR Z=0 TO 100 :NEXT Z
460 IF X>-1 THEN GOTO 440 ELSE XBY(64002)=255 :X=7
480 REM ********** Accensione LED port A
490 XBY(64000)=255-(2**X) 
500 X=X-1 : FOR Z=0 TO 100 : NEXT Z
510 IF X>-1 THEN GOTO 490 ELSE XBY(64000)=255 :X=7
520 GOTO 146