![]() |
BCX Console Demonstration Program S36.bas |
DIM
a$DIM
b a$=
"Hello"
b=
1
SELECT
CASE
UCASE$
(
a$)
CASE
"GoodBye"
?"GoodBye"
CASE
"12345"
?"12345"
CASE
"HELLO"
?"It passed the Case string test!"
CASE
"bombed"
?"bombed"
END
SELECT
SELECT
CASE
b+
1
CASE
4
?"GoodBye"
CASE
3
?"12345"
CASE
2
?"It passed the Case numeric test!"
CASE
1
?"bombed"
END
SELECT