Liberty BASIC

PROMPT "How many cats do you own?";answer$
SELECT CASE
CASE answer$ 1 TO 5
PRINT "Nedostatochno Vasiliev."
CASE answer$ 6 TO 9
PRINT "Are you out of your mind?"
END SELECT
END

value=3
select case
    case (value > 1) or (value < 5)
       PRINT  "Nedostatochno Vasiliev."
     case (value > 6) and (value < 9)
       PRINT "Are you out of your mind?"

NOMAINWIN
array$ (0)= "Mystery meat"
array$ (1)= "Cat food"
arrey$ (2)= "Something pink and artificially preserved"
arrey$ (3)= "liquid mush"
arrey$ (4)= "Sugar and artificial coloring"
 
WindowWidth= 300
WindowHeight= 240
 
COMBOBOX #1.combo1 ,array$(), [Action1], 40, 50, 216, 100
OPEN "Here are your choices for dinner tonight" FOR Window AS #1
PRINT #1, "trapclose [quit]"
WAIT
 
[Action1]
PRINT #1.combo1, "selection?"
INPUT #1.combo1, selected$
NOTICE "You chose "+ selected$
WAIT
 
 
[quit]
CONFIRM "Tochno hotite vyjte?";quit$
IF quit$ = "no" THEN WAIT
CLOSE #1
END

array$ (0)= "Mystery meat"
array$ (1)= "Cat food"
arr[B]e[/B]y$ (2)= "Something pink and artificially preserved"
arr[B]e[/B]y$ (3)= "liquid mush"
arr[B]e[/B]y$ (4)= "Sugar and artificial coloring"

PROMPT "How many cats do you own?";answer$
SELECT CASE answer$
CASE "1", "2", "3", "4", "5"
PRINT "Nedostatochno Vasiliev."
CASE "6", "7", "8", "9"
PRINT "Are you out of your mind?"
END SELECT
END

[m1]
PROMPT "How many cats do you own?";answer$
SELECT CASE answer$
CASE "1", "2", "3", "4", "5"
PRINT "Nedostatochno Vasiliev."
CASE "6", "7", "8", "9"
PRINT "Are you out of your mind?"
CASE ELSE
NOTICE "Введите число в диапазоне от 1 до 9"
goto [m1]
END SELECT
END