10 'save "SPA1.BAS"
15 'Slave Parallel Transmiter By Leonardo Padial 7.9.02
20 A%=INP(&H90):'READ STATUS
30 B%=A% AND &B0000100:'DATA RECEIVED ?
40 IF B%=0 THEN 50 ELSE 20
50 C%=INP(&H91):'LEE DATO
60 PRINT "DATA received ";:PRINTHEX$(C%);:PRINTC%
70 GOTO 20