у параметра "r-L" нет индекса. попробуйте так:

res=WriteWord(0,0,"r-L ",val,-1);