**TI92P*main–àç*Tà4@¿9²ý¿,%·(ç*–à–àç*r làT?¿9¶ Rstrsub¥Z½(s,so,sn) func ©strsub(string,oldsub,newsub) Local c,sl ""sl instring(s,so)c while c>0 sl&mid(s,1,c-1)&snsl mid(s,c+dim(so))s instring(s,so)c endwhile return sl&s endfunc äåÜP>