nProcs

nProc translate(string src,fnd,rpl){

    long p=1,fndL=len(fnd),cc=len(src)-fndL+1,rplL=len(rpl)
    case cc<1 : return src
    case src=="" : return ""
    case fnd=="" : return src
    long fndCH=fnd[1]

    while 1 {

        case p > cc : break

        if src[p]==fndCH {

            if mid$(src,p,fndL)==fnd {

                src=del$(src,p,fndL)

                if p>len(src){

                    src=src+rpl

                } else {

                    src=ins$(rpl,src,p)

                }

                add p,rplL
                cc=len(src)-fndL+1
                continue

            }

        }

        add p,1

    }

    return src

}