![]() |
BCX Console Demonstration Program S23.bas |
DIM
aDIM
b$WHILE
a+
10
<100
+
1
a+
+
? aWEND
WHILE
LEN
(
b$)
<80
b$=
b$&
"a"
? b$WEND
WHILE
LEN
(
b$)
>1
b$=
MID$
(
b$,1
,LEN
(
b$)
-
1
)
? b$WEND
b$=
"hello"
WHILE
b$=
"hello"
? b$ b$=
"goodbye"
WEND