# Начало
$ONOBJSEL = "Меню" 
ADDOBJ 'Меню' 
ADDOBJ '"Разделительная полоса"' 
ADDOBJ 'Какой-то предмет' 
ADDOBJ 'Ещё один предмет' 
--- Начало ---------------------------------

# Меню
IF $SELOBJ = "Меню": 
MENU "$Меню" 
unsel 
$Меню[0] = 'Первое действие:Первое_действие' 
$Меню[1] = '-:-' 
$Меню[2] = 'Второе действие:Второе_действие' 
$Меню[3] = 'Третье действие:Третье_действие' 
$Меню[4] = 'Четвёртое действие:Четвёртое_действие' 
END
--- Меню ---------------------------------

# Первое_действие
'Вы выбрали первое действие' 
--- Первое_действие ---------------------------------

# Второе_действие
'Вы выбрали второе действие' 
--- Второе_действие ---------------------------------

# Третье_действие
'Вы выбрали третье действие' 
--- Третье_действие ---------------------------------

# Четвёртое_действие
'Вы выбрали четвёртое действие' 
--- Четвёртое_действие ---------------------------------