DIM a$
 
 a$ = "filename.bas"
 
 a$ = EXTRACT$(a$, ".") & ".c"
 
 ?  a$

Result:

 filename.c