>>658
取り敢えず、書き殴るだけでは何なので試してみた

dim as ubyte a(13) = {&h41, &h42, &h43, &h44, &h00, &h45, &h46, &h47, &h00, &h48, &h49, &h4A, &h00, &h00 }
dim as integer size = 14

dim as integer count
dim as zstring ptr st = cast(zstring ptr, @a(0))

while count < size
dim as string tmp = *st
dim as integer length = len(tmp) + 1

count += length
st += length

print count, tmp
wend

結果：
5 ABCD
9 EFG
13 HIJ
14