Операторы MENU. MESSAGE. PROMPT.
Операторы MENU. MESSAGE. PROMPT.
В результате работы фрагмента программы let sta_return=podtwervdenie(" В самом деле решили закончить? ") ... function podtwervdenie(stroka) define stroka char(38) , kod_wozwr int
open window podtwervdenie AT 11,10 WITH 4 rows, 39 columns ATTRIBUTE(border) display stroka at 4, 2 attribute (reverse)
menu " " command key("Y") " Yes " "Действительно Да." let kod_wozwr=1 exit menu command key("N",ESC) " No " "Нет, вернуться обратно." let kod_wozwr=0 exit menu command key("A") " Abort " "Отменить. И кончить." let kod_wozwr=-1 exit menu end menu close window podtwervdenie return kod_wozwr end function
на экране в текущем окне появится такое меню +---------------------------------------+ | : Yes No Abort | |Действительно Да. | | | | В самом деле решили закончить? | +---------------------------------------+
