10 'save "MPA1.BAS"
15 'Master Parallel Transmiter By Leonardo Padial 7.9.02
20 C%=&H0
30 A%=INP(&H91):'DATA OUTPUT TRIESTATE
40 FOR I=0TO 255
50 A%=INP(&H90):'READ STATUS
60 B%=A% AND &B0000010:'DEVICE SLAVE READY ?
70 IF B%=0 THEN 80 ELSE 50
80 OUT &H91,C%:'ESCRIBE DATO
90 OUT &H90,&H0:'CONFIRMA DATO VALIDO
100 PRINTI,:PRINT "DATA sended to Parallel Port ";:PRINTHEX$(C%);:PRINTI
110 C%=C%+1
120 NEXT I
130 GOTO 20