10 REM Program S1DEB2 Rel.1.0 per GPC 011 della GRIFO(R)
20 REM Via Dante 1 40016 S.Giorgio di Piano (BOLOGNA) Tel.(051) 89.20.52
30 REM Procedura che legge lo stato dei tre port dopo averli
40 REM inizializzati in input.
50 REM By BARTOLAI MASSIMILIANO 19-12-90
60 REM INIZIALIZZAZIONE PORT A E C IN INPUT
70 OUT 84,0
80 OUT 85,0
90 OUT 86,0
100 REM LETTURA VALORE PRESENTE SUI 3 PORT
110 A=INP(80)
120 B=INP(31)
130 C=INP(81)
140 PRINT"PORT A CONTIENE",A
150 PRINT"PORT B CONTIENE",B
160 PRINT"PORT C CONTIENE",C
P(80)
120 B=INP(31)
130 C=INP(81)
140 PRINT"PORT A CONTIENE",A
150 PRINT"PORT B CONTIENE",B
160 PRINT