![]() |
BCX Console Demonstration Program S39.bas |
DIM
iDIM
z$ z$=
" We'll replace all spaces with underscores "
WHILE
INSTR
(
z$," "
)
i=
INSTR
(
z$," "
)
IF
iTHEN
z$=
MID$
(
z$,1
, i-
1
)
&
"_"
&
MID$
(
z$, i+
1
,LEN
(
z$)
)
END
IF
WEND