 |
BCX Console Demonstration Program S04.bas
|
DIM
A$[
1000
]
DIM
Junk$
DIM
Counter
DIM
Total
PRINT
"Creating and storing 1,000 Strings ... Please Wait"
FOR
Counter =
0
TO
999
A$[
Counter]
=
"This Is Line "
&
STR$
(
Counter)
WHILE
LEN
(
A$[
Counter]
)
< 79
A$[
Counter]
=
A$[
Counter]
&
"*"
WEND
Total =
Total +
LEN
(
A$[
Counter]
)
NEXT
Counter
? "-------------------------------------"
? "Total Bytes stored in array ="
, Total
? "-------------------------------------"
INPUT
"Press Enter To Display The Array "
, Junk$
FOR
Counter =
0
TO
999
PRINT
A$[
Counter]
NEXT
Counter