あ、すまん
sss@hsp
じゃなくて
sss@
だった

で、501のはstrで渡した奴じゃメモリとして扱えない
やるなら変数として渡すか、他の変数に移してからじゃないとダメ
sdim sss,1000
#module
#defcfunc aaa var p1,int p2
b = wpeek(p1,p2)
return b
#global
*start
sss="12345678910"
d = aaa(sss,8)
mes d
stop