![]() |
BCX Console Demonstration Program S19.bas |
'==================================
' This is a remark
'==================================
DIM
a$DIM
b$[
6
]
DIM
i a$=
"The "
&
"value "
&
"of "
&
"pi:"
&
STR$
(
ATN
(
1
)
*
4
)
? a$ ?FOR
i=
1
TO
5
b$[
i]
=
a$NEXT
iFOR
i=
1
TO
5
?"The answer is >>"
, b$[
i]
NEXT
i ?FOR
i=
1
TO
5
?"The "
,"value "
,"of "
,"pi:"
,STR$
(
ATN
(
1
)
*
4
)
NEXT
i