Oh, you need my poke/peek string lib:
Global svar.s
ProcedureDLL PokeString(*bank,offset,value.s)
PokeS(*bank+offset,value)
EndProcedure
ProcedureDLL.l PeekString(*bank,offset)
svar=PeekS(*bank+offset)
ProcedureReturn @svar
EndProcedure
Global svar.s
ProcedureDLL PokeString(*bank,offset,value.s)
PokeS(*bank+offset,value)
EndProcedure
ProcedureDLL.l PeekString(*bank,offset)
svar=PeekS(*bank+offset)
ProcedureReturn @svar
EndProcedure