Also das ist des Rätsels Lösung:Zitat von Maxigraf
Denke daß einige was damit anfangen können.Code:FOR lp = 0 TO 3 ' 4 Byte lesen LOOKUP lp,[$DE,$AD,$CA,$FE],TempB FOR BitLoop = 7 to 0 step -1 PORTB.5 = TempB.0[BitLoop] PAUSE 500 NEXT BitLoop NEXT lp END
Gruß RobberSoft
Lesezeichen