>>646
書き換えるなら

sub Test(byval st as zstring ptr)
print *st
end sub

dim as zstring*10 a = "abcd"
print @a
Test(@a)

とするか、

sub Test(byval st as string ptr)
print *st
end sub

dim as string a = "abcd"
print @a
Test(@a)

とすれば良い