BCX Console Demonstration Program S09.bas

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