Hi,
How about:
Code:
inBuff VAR BYTE[100]
i VAR BYTE

i = 24         ' Start putting the string at inBuff[24] for example  
repeat
  peekcode w0, x
  if x then 
    inBuff[i] = x
    debug x
    w0=w0+2
  endif
  i=i+1
until x=0
/Henrik.