![]() |
BCX Console Demonstration Program S127.bas |
DIM
A, B$INPUT
"Enter A Number "
, ASELECT
CASE
ACASE
=
>1
AND
<=
10
"=> 1 And <= 10 "
CASE
>10
AND
<20
"> 10 And < 20"
CASE
31
,32
,33
"31, 32, 33"
CASE
ELSE
"No special case found"
END
SELECT
INPUT
"Type one, two, qwerty, or other "
, B$SELECT
CASE
B$CASE
"one"
,"two"
"one, two"
CASE
"qwerty"
"qwerty"
END
SELECT