BCX Console Demonstration Program s20.bas 

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