Пример 9.4.30. Обработка пунктов меню многострочным IF

OPM1: REM подпрограмма обработки пунктов меню

GOSUB ONK : REM вызов подпрограммы выбора пунктов меню

IF nkl=1 THEN

GOSUB M11

GOSUB MENU

ELSEIF nkl=2

GOSUB M21

GOSUB MENU

ELSE

LOCATE 1,1: PRINT "Неправильный ввод. Введите пункт меню"

BEEP 1: REM Выдача звукового сигнала

SLEEP 3: REM Останов на 3 секунды и очистка строки сообщения

LOCATE 1,1: PRINT “ ”

GOTO OPM1: REM Возврат для ожидания ввода пункта меню"

END IF

Пример 9.4.31. Обработка пунктов меню оператором ON GOTO/GOSUB

OPM2: REM подпрограмма обработки пунктов меню

GOSUB ONK : REM вызов подпрограммы выбора пунктов меню

Вариант 1 Вариант 2

ON nkl GOTO M1,M2,...,Mn ON nkl GOSUB M1,M2,...,Mn

 

LOCATE 1,1: PRINT "Неправильный ввод. Введите пункт меню"

BEEP 1: REM Выдача звукового сигнала

SLEEP 3: REM Останов на 3 секунды и очистка строки сообщения

LOCATE 1,1: PRINT “ ”

GOTO OPM2: REM Возврат для ожидания ввода пункта меню"