ИТ в ОЭС (КР) / 6_Обучающая-сист_GPSS / SIM_GPS / SORCE / TASK

/************************************************************************
 Џ®¤Їp®Јp ¬¬       TASK
*************************************************************************

 ”г­ЄжЁЁ: ®ЎҐбЇҐзЁў Ґв ­ §­ зҐ­ЁҐ ­®¬Ґа  § ¤ ­Ёп Ё Їа®бв ў«пҐв ¬ҐвЄг ­ §-
          ­ зҐ­Ёп ­®¬Ґа  § ¤ ­Ёп;

 €бЇ®«м§®ў ­ЁҐ: task( &variant, name_db ).

 ЋЇЁб ­ЁҐ Ї p ¬Ґвp®ў: variant - ­®¬ а § ¤ ­Ёп;
                      name_db - Ё¬п д ©« -¦га­ « .

 ‚л§лў Ґ¬лҐ ¬®¤г«Ё: varian,independ,run4.

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

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

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

#include <pdefs.h>


task( variant,name_db )
int  *variant;
char *name_db;
{

  HDL wnd_for8,ma_help,pumist(),maist();
  extern char basa[40][45];


  static  char *ch7[] = {"   Ђўв®¬ вЁзҐбЄЁ   ",
                         "   Џ® ўлЎ®аг       ", 0 };

  wnd_for8 = pumist( 2, 24, 8, 17, 4);
 /* wndtotop( wnd_for8 );
  wndbox( wnd_for8,1 );  */

  ma_help = maist( 10, 25, 1, 24, 8, 150);

/*FOREVER
    {  */
      switch ( run2( wnd_for8,ch7 ) )
        {
           case 0:                               /*  ўв®¬ вЁзҐбЄЁ */
             if( basa[34][0] == '*' )
               {
                 madsp( ma_help, " ‚ аЁ ­в 㦥 ­ §­ зҐ­ ! " );
                 goto end;
               }
             else
               {
                 varian( variant );
                 cvtitoa( basa[36], *variant, 10 );
                 basa[34][0] = '*';
                 strcpy( basa[35], " Ђўв®¬ вЁзҐбЄЁ " );
                 write_b( name_db );
               }
             break;
           case 1:                               /*  ўв®­®¬­® */
             if( basa[34][0] == '*' )
               {
                 madsp( ma_help, " ‚ аЁ ­в 㦥 ­ §­ зҐ­ ! " );
                 goto end;
               }
             else
               {
                 independ( variant );
                 cvtitoa( basa[36], *variant, 10 );
                 basa[34][0]='*';
                 strcpy( basa[35], " Џ® ўлЎ®аг " );
                 write_b( name_db );
               }
             break;
           case 2:
           case -1:                               /* ўл室 */
             goto end;
        }
  /*}*/
 end:/* wndtobot( wnd_for8 );
      wndrls( wnd_for8 );   */
      marls( ma_help );
}