![]() |
BCX Console Demonstration Program S123.bas |
' Shows how BCX can use "C" functions directly
$HEADER
char
*
Remove_All_White_Space(
char
*
)
;$HEADER
DIM
a$DIM
b$ a$=
" this is a test "
b$=
Remove_All_White_Space(
a$)
END
PROGRAM
!char
*
Remove_All_White_Space(
char
*
str1)
! { !char
*
obuf,*
nbuf; !if
(
str1)
! { !for
(
obuf=
str1,nbuf=
str1;*
obuf;+
+
obuf)
! { !if
(
!isspace(
*
obuf)
)
!*
nbuf+
+
=
*
obuf; ! } !*
nbuf=
0; ! } !return
str1; ! }