10 Print "Valores Lógicos":resultado%=0:Pot=1
30 For i=1 to 8
40 Print "LED[";i;"];:input a%
50 If a%<>0 then resultado%=resultado% + 1*Pot
60 Pot=Pot * 2
70 Next i
80 Out &h278,resultado%
90 End