Скачиваний:
25
Добавлен:
17.06.2016
Размер:
1.51 Кб
Скачать
/************************************************************************
 Џ®¤Їp®Јp ¬¬       TEST
*************************************************************************

 ”г­ЄжЁЁ: ў § ўЁбЁ¬®бвЁ ®в par Ё pri ўл¤ Ґв б®®ЎйҐ­ЁҐ Ё ®ЇаҐ¤Ґ«пҐв help Ё
          repeat;

 €бЇ®«м§®ў ­ЁҐ: test( par,&help,&repeat,pri ).

 ЋЇЁб ­ЁҐ Ї p ¬Ґвp®ў: par    - бЁ¬ў®« ўлЇ®«­Ґ­Ёп Ї®¤Їг­Єв ;
                      help   - Ё­¤ЁЄ в®а Ї®¤бзҐв  ३⨭Ј  Ї® Ї®¤Їг­Євг;
                      repeat - Ё­¤ЁЄ в®а а §аҐиҐ­Ёп а Ў®вл ў Ї®¤Їг­ЄвҐ;
                      pri    - Ё­¤ЁЄ в®а Ї®¤бзҐв  ३⨭Ј  Ї® Ї®¤вҐ¬Ґ.

 ‚л§лў Ґ¬лҐ ¬®¤г«Ё: ­Ґв.

 Ђўв®p: ЁЈЁ­ ‚.€., ‹гЄмп­®ў ‘.Ђ. ( Њѓ’“ Ё¬.Ќ.ќ.Ѓ г¬ ­ , Є д.€“6 ).

 „ в  Ї®б«Ґ¤­Ёе Ё§¬Ґ­Ґ­Ё© 29.04.91.

*************************************************************************/

#include <pdefs.h>

test( par,help,repeat,pri )
char par;
int  *help, *repeat, pri;
{

 HDL  wnd_mess, wndist();
 int key;

 *help=1;
 *repeat=1;
 if( pri != 0 )
   if( par == '*' )
     {
       wnd_mess=wndist( 5, 24, 2, 25, 1 );
       wndbox( wnd_mess, 1 );
       wndsetactv( wnd_mess );
       wndtotop( wnd_mess );
       vdspls( 0, 0, "\n ќв  Ї®¤вҐ¬  㦥 Ё§г祭 .\n"
                     "\r •®вЁвҐ Ї®ўв®аЁвм ? (Y/N)" );
       key=kbnec();
       wndtobot( wnd_mess );
       wndrls( wnd_mess );
       if( key == 121 || key == 89 )             /* ¤  */
         *help=0;
       else
         *repeat=0;
     }
   else ;
 else
   *help=0;

}
Соседние файлы в папке SORCE