5
10 REM ********************************************************************
20 REM *        Programma S1DEB1 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 codice esadecimale del tasto premuto      *
70 REM * da tastiera.                                                     *
80 REM *                                                                  *
90 REM * by Pedrielli Adriano.           23 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,B,C, in output
130 XBY(64003)=128 
135 REM ********** Spegnimento LED
140 XBY(64000)=255 : XBY(64002)=255
145 PRINT " PREMI UN TASTO DEL COICE ESADECIMALE ",
150 REM ********** Rilevamento tasto premuto da tastiera **************
160 A=GET :IF A=0 THEN GOTO 160 
170 IF A>47.AND.A<58.OR.A>64.AND.A<71 THEN PRINT CHR(A) ELSE GOSUB 1000
180 IF A>47.AND.A<58 THEN GOTO 300 ELSE GOTO 400
200 REM ********** Accensione LED 
300 XBY(64000)=255-(A-48) : GOTO 145
400 XBY(64000)=255-(A-55) : GOTO 145
1000 PRINT CHR(A) :PRINT :PRINT " ERROR !" : PRINT : GOTO 140