need help in lookup

[malwww]

hi joe thank you again for explaining to me ,i have another question please if you dont mind...i i want to write atring (lookup) to the external eeprom then i read it and send it out just to get more ideas bcz im new in pbp ,but its easy to lern than asm. have a great weekend joe


'' I2CREAD and I2WRITE Commands

Include "modedefs.bas"
DEFINE I2C_SLOW 1
DEFINE SHIFT_PAUSEUS 1000
SDO VAR PortB.0
SCLK var PortB.1

SCLK = 8
SO con 0
DPIN var PORTA.0
CPIN var PORTA.1
B0 var byte
B1 var byte
B2 var byte
B3 var byte
n var byte
portB = 0
TRISB = 0
'for n = 0 to 15

lookup n,[252,96,218,242,102,182,190,224,254,246],b0 ' numbers from 0 to 9

For B2 = 0 To 15

I2CWRITE DPIN,CPIN,$A0,b2,[str B0\8]
Pause 20


Next B2
'next n
loop: For B3 = 0 To 15
I2CREAD DPIN,CPIN,$A0,B3,[B1]
pause 1000

SHiftOUT SDO,SCLK,0,[b1]
'

Next B3



Goto loop
end

i wrote this code but it doesnt shiftout the numbers from 0 to 9 like i have in the string .but it works good with last programe you fixed for me .see u joe