5
10 REM ********************************************************************
20 REM *        Programma S2DEB3 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 * Visualizza su un determinato display un numero esadecimale       *
70 REM * inserito dalla tastiera del terminale.                           *
80 REM *                                                                  *
90 REM *  Pedrielli Adriano.           20 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 CN4 della 
104 REM DEB01
105 REM 
110 REM ************************* Main program *************************
120 REM ********** Inizializzo port A in out ,port C out
130 XBY(64003)= 128
140 INPUT " INSERIRE DISPLAY DA ACCENDERE (1-4) =",Z
150 IF Z>4.OR.Z<1 THEN GOTO 140
160 REM ********** Spengo i segmenti
170 XBY(64000)=255
175 XBY(64002)=2**(3+Z)
180 STRING 100,10
190 PRINT " PREMERE CARRATTERE ESADECIMALE (0-F) =",
195 A=GET :IF A=0 THEN GOTO 195
197 PRINT CHR(A)
200 IF A>47.AND.A<58 THEN GOSUB 300
210 IF A>64.AND.A<71 THEN GOSUB 500
215 XBY(64000)=A
220 GOTO 140
300 IF A=48 THEN A=192
310 IF A=49 THEN A=249
320 IF A=50 THEN A=164
330 IF A=51 THEN A=176
340 IF A=52 THEN A=153
350 IF A=53 THEN A=146
360 IF A=54 THEN A=130
370 IF A=55 THEN A=216
380 IF A=56 THEN A=128
390 IF A=57 THEN A=144
400 RETURN
500 IF A=65 THEN A=136
510 IF A=66 THEN A=131
520 IF A=67 THEN A=198
530 IF A=68 THEN A=161
540 IF A=69 THEN A=134
550 IF A=70 THEN A=142
560 RETURN