Thats what i needed thanks.
modified as below seems to be working fine.

i had to add j and k to increment the lowbyte correctly.
with i and i +1 it was over writing the previous bytes.
j increments even and k increments odd prob not the best way to do it but hey it works..

Code:
j=0
k=1
for i = 0 to 8
    for h=0 to 7
         read i*8+h, id[h]
    next
    OWOUT DQ, 1,[$55,id[0],id[1],id[2],id[3],id[4],id[5],id[6],id[7],$BE]
    OWIN DQ, 2, [Temps.LOWBYTE[j],Temps.LOWBYTE[k]]
    TEMPnows[i] = Temps[i] + ofst30 
    if Temps[i] = 65535 then
    Temps[i] = 0
    tempnows[i] = 480
    else
    hserout ["TEMP",dec i," Raw:= ",dec4 TEMPs[i],13]
    endif
    j=j+2
    k=k+2
    next