DIM tmp as BYTE
for tmp = 0 to 7
if wert.tmp = 1 then