subroutine char MENU_BLOCK char MODE
menu block MENU_BLOCK item NMOL_MODE button off
set vari  NMOL_MODE global char = MODE
menu block MENU_BLOCK item NMOL_MODE button on
return