BCX Console Demonstration Program s09.bas
DIM
a$ a$
=
"filename.bas"
a$
=
EXTRACT$
(
a$,
"."
)
&
".c"
? a$