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