        #command REPEAT        => DO WHILE .T.

        # command UNTIL <expl> => IF (<expl>); EXIT; END; END

*        ПРОГРАММА 2-5 Реализация цикла REPEAT UNTIL,
*                      как пользовательской команды.
********
**************************************************************
    #command DEFAULT <p> TO <val> [,<pn> TO <valn>] => ;
                     <p> = iif(<p> = NIL, <val>, <p>)  ;
                   [;<pn> = iif(<pn> = NIL, <valn>, <pn>)]
 

  *    #command DEFAULT <p> TO <val> [,<pn> TO <valn>]  =>;
   *              <p> = iif(<p> = NIL, <val>, <p>) ;
    *             [;<pn> = iif(<pn> = NIL, <valn>, <pn>)]

*        Программа 2-6.Макрос из Commands.ch, выполняющий
*                      присвоение значений параметрам по умолчанию.
***********************************************************************
        #command MENU CREATE <menu_name> [COLOR <col_str>] ;
                                         [<framed: FRAMED>] ;
                                         [<shadow: SHADOW>];
                 => ;
           <menu_name> = menu_create(<col_str>, <.framed.>, <.shadow.>)

        #command PROMPT ADD <prompt> [MESSAGE <message>] TO MENU ;
                                                      <menu_name>;
                 => ;
                 menu_prompt(<menu_name>, <prompt>, <message>)

        #command MENU INVOKE <menu_name> START PROMPT <choice> ;
                                          RETURN <new_choice>;
                 => ;
                 <new_choice> = menu_invoke(<menu_name>, <choice>)

        #command MENU KILL <menu_name> ;
                 => ;
                 menu_kill(<menu_name>)

*        Программа 2-7. Функции меню, как пользовательские команды.

***********************************************************************
**********************************************************************
        #command SCATTER <names> TO <ar> ;
                => ;
                <ar> = <names> -> (scatter())
        #command SCATTER TO <ar> ;
                => ;
                <ar> = scatter()
        #command GATHER <names> FROM <ar> ;
                => ;
                <names>->(gather(<ar>))
        #command GATHER FROM <ar> ;
                => ;
                gather(<ar>)

*        Программа 3-2. Команды, определенные пользователем
*                       для программы 3-1
**********************************************************************
*  SAVEGETS.CH
*
*  Заголовочный файл для команд пользователя SAVE GETS и RESTORE GETS

#command SAVE GETS => _push_gets()
#command RESTORE GETS => _pop_gets()

*        Программа 3-3. Команды, определенные пользователем
*                       для вложенных операторов чтения.
**********************************************************************
