need help in lookup

[malwww]

[thank you joe got it now it works have a great day ...


' I2CREAD and I2WRITE Commands

Include "modedefs.bas"

DEFINE SHIFT_PAUSEUS 1000
SDO VAR PortB.0
SCLK var PortB.1

SCLK = 8

DPIN var PORTA.0
CPIN var PORTA.1
B0 var byte
B1 var byte
B2 var byte

N var byte
portB = 0
TRISB = 0

pause 100

For B2 = 0 To 9
lookup b2,[252,96,218,242,102,182,190,224,254,246],b0
I2CWRITE DPIN,CPIN,$A0,b2,[ b0]
Pause 20
Next B2

loop: For B3 = 0 To 9
I2CREAD DPIN,CPIN,$A0,b3,[B1]
pause 1000

SHiftOUT SDO,SCLK,0,[b1]
'
Next B3

Goto loop
end