dim st as string = !"hello\0 world"
dim x as ubyte ptr = @st[0]
do
do until st[x] = asc(!"\0")
print chr(st[x])
print st[x]
loop until st[x] = chr(!"\0")
loop
