DIM a$

a$ = "filename.bas"

a$ = EXTRACT$(a$, ".") & ".c"

?  a$

Result:

filename.c