10 REM ******************************************************************
20 REM *      Programa S1DEB1 Rel.1.0 per l'interprete NSB8 e BAZIC     *
25 REM *            Utilizzando le schede GPC-81 e DEB-01               *
30 REM *    GRIFO(R)  Via Dante, 1      40016  S.Giorgio di Piano (BO)  *
40 REM *    Tel.(051)89.20.52           Fax.(051)89.36.61               *  
50 REM *                                                                *
60 REM *  Riporta sul porta A il carattere esadecimale inpostato da     *
70 REM *  tastiera                                                      *
80 REM *                                                                *
90 REM * By Pedrielli Adriano.          05  GIUNIO    1991              *
95 REM ******************************************************************
110 REM
120 REM Per il collegamento fra le due schede e'necessario un flat     
130 REM inserito nel connetore CN1 da 20 vie della GPC81 e nel connettore 
140 REM CN15 da 20 vie della DEB01
145 REM
150 REM *************************** Main program ************************
155 REM
160     REM ********** Inizalizzo port A e C in output 
170 OUT 7,128
225     REM ********** Spegnimento LED
235 OUT 4,255\OUT 6,255
245     REM ********** Attesa tasto
255 PRINT "PREMERE UN TASTO (0-F)"
265 A$=INCHAR$(0)
285     REM ********** Conversione ASCI
295 A=ASC(A$)
305     REM ********** Elimina tasti non esadecimali
315 IF A>47 AND A<58 OR A>64 AND A<71 THEN GOTO 335
325 PRINT "TASTO ERRATO "\GOTO 255
335     REM ********** Conversiune tasti esadecimali
345 IF A>58 THEN GOTO 405
355     REM ********** Tasti numerici
365 B=A-48
375 C=255-B
385 GOTO 435
395     REM ********** Tasti letterali
405 B=A-55
415 C=255-B
425     REM ********** Accensione LED
435 OUT 4,C
445 GOTO 255
    REM ********** Tasti letterali
405 B=A-55
415 C=255-B
425     REM ********** A