5
10 REM ********************************************************************
20 REM *        Programma S1DEB5 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 * Riporta sul port A il negato del port C,se lo swich 1 del        *
70 REM * dip-swich e' in OFF,riporta C negli altri casi                   *
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 in output, B,C input
130 XBY(64003)=139
135 REM ********** Spegnimento LED purt A
140 XBY(64000)=255
150 REM ********** Rilevamento port C 
160 C=XBY(64002)
170 B=XBY(64001)
180 REM ********** Controllo dip 1 
190 E=B-(INT(B/2)*2) : IF E<>0 THEN GOTO 310 
200 REM ********** Accensione LED port A
300 XBY(64000)=C :GOTO 160
310 XBY(64000)=255-C
400 GOTO 160