Rem Two functions to
Rem Replace a character in a string
Rem Insert a character in a string

fn.def ReplaceChr$(string$, place, character$)
   string$ = left$(string$, place - 1) + character$ + mid$(string$, place + 1)
fn.rtn string$
fn.end

fn.def InsertChr$(string$, place, character$)
    string$ = left$(string$, place - 1) + character$ + mid$(string$, place)
fn.rtn string$
fn.end


string$ = "abc2345"
?"Replace some Characters in "; string$

string$ = ReplaceChr$(string$, 4, "X")

? string$

string$ = ReplaceChr$(string$, 5, "S")

? string$

string$ = ReplaceChr$(string$, 1, "A")

? string$

string$ = ReplaceChr$(string$, 7, "Z")

? string$

string$ = "123abc"

?"Insert some Characters in "; string$

string$ = InsertChr$(string$, 4, "4")

? string$

string$ = InsertChr$(string$, 1, "0")

? string$

string$ = InsertChr$(string$, 9, "D")

? string$

end