5
10 REM ********************************************************************
20 REM *        Programma S2DEB2 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, il codice di un carattere. *
70 REM * Entrambi i parametri, vengono immessi da tastiera.               *
80 REM *                                                                  *
90 REM * by 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 in out
130 XBY(64003)= 128
160 REM ********** Spengo i display
170 XBY(64000)=255
140 INPUT " SELEZIONARE DISPLAY DA VISUALIZZARE (1-4) =",Z
145 A=0:B=0:C=0:D=0:E=0:F=0:G=0:H=0: REM ** Resetto variabili
150 IF Z>4.OR.Z<1 THEN GOTO 140
175 XBY(64002)=2**(3+Z)
180 INPUT " IL SEGMENTO -A- ACCESO (1) O SPENTO (0) ? ",A
190 IF A<>0.AND.A<>1 THEN GOTO 180 ELSE GOSUB 300
200 INPUT " IL SEGMENTO -B- ACCESO (1) O SPENTO (0) ? ",B
210 IF B<>0.AND.B<>1 THEN GOTO 200 ELSE GOSUB 300
220 INPUT " IL SEGMENTO -C- ACCESO (1) O SPENTO (0) ? ",C
230 IF C<>0.AND.C<>1 THEN GOTO 220 ELSE GOSUB 300
240 INPUT " IL SEGMENTO -D- ACCESO (1) O SPENTO (0) ? ",D
250 IF D<>0.AND.D<>1 THEN GOTO 240 ELSE GOSUB 300
260 INPUT " IL SEGMENTO -E- ACCESO (1) O SPENTO (0) ? ",E
270 IF E<>0.AND.E<>1 THEN GOTO 260 ELSE GOSUB 300
275 INPUT " IL SEGMENTO -F- ACCESO (1) O SPENTO (0) ? ",F
280 IF F<>0.AND.F<>1 THEN GOTO 275 ELSE GOSUB 300
285 INPUT " IL SEGMENTO -G- ACCESO (1) O SPENTO (0) ? ",G
290 IF G<>0.AND.G<>1 THEN GOTO 285 ELSE GOSUB 300
294 INPUT " IL PUTO -D.P.-  ACCESO (1) O SPENTO (0) ? ",H
296 IF H<>0.AND.H<>1 THEN GOTO 294 ELSE GOSUB 300
298 GOTO 140
300 XBY(64000)=255-(2**7*H+2**6*G+2**5*F+2**4*E+2**3*D+2**2*C+2*B+A)
310 RETURN