BCX Console Demonstration Program S20.bas

 DIM A$
 
 '--------------------------------------------------
 '    REPLACE$(main$, match$, change$)
 ' -------------------------------------------------
 A$ = REPLACE$("1234567890", "456", "-ABC-")
 
 PRINT A$