![]() |
BCX Console Demonstration Program S54.bas |
DIM
AGLOBAL
Buffer$*
(
1000
*
LEN
(
"Line No. "
)
+
1000
*
10
)
FOR
A=
1
TO
1000
Buffer$=
Buffer$&
"Line No. "
&
STR$
(
A)
&
CHR$
(
13
)
&
CHR$
(
10
)
NEXT
=
LEN
(
Buffer$)
"The length of Buffer$ = "
, A," bytes."
FREE
Buffer$'release memory back to Windows