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

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

 ”г­ЄжЁЁ: ®ЎҐбЇҐзЁў Ґв Ї®¤бўҐвЄг ¦га­ «  Ї® ⥬Ґ "Њ®¤Ґ«Ёа®ў ­ЁҐ ‘ЊЋ".

 €бЇ®«м§®ў ­ЁҐ: jour_1().

 ЋЇЁб ­ЁҐ Ї p ¬Ґвp®ў:

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

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

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

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

#include <pdefs.h>

jour_2()
{

 HDL wnd_jour,w2,wndist();

 extern char basa[40][45];

 static char
    *string[]={"  Ј1 ","  Ј2 ", 0 };

 int i,y,k;

 wnd_jour=wndist( 1, 0, 23, 80, 12 );
 wndboxs( wnd_jour, 1, 0, 1, 0, "ННН      ", 9 );
 wndtitle( wnd_jour, 9, STR_CENTER,
                           " †га­ « Ї® ⥬Ґ =Њ®¤Ґ«Ёа®ў ­ЁҐ ‘ЊЋ= " );
 wndtotop( wnd_jour );
 wndsetactv( wnd_jour );
 vdspls( 3, 10, " ЋЎгз Ґ¬л© %s ", basa[0] );
 vdspls( 3, 45, " ЈагЇЇ  %s", basa[1] );
 vdspls( 1, 6, "‚ аЁ ­в %s", basa[36] );
 vdspls( 1, 21, "%s", basa[35] );
 vdspls( 7, 6,
 "ЪДДДДДДДВДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДВДДДДДДДДДДДДДВДДДДДДДДДДДї" );
 vdspls( 8, 6,
 "і       і                                   і             і           і" );

 vdspls( 9, 6,
 "і  ’Ґ¬  і              ‡ ¤ ­Ёп              і  ‚лЇ®«­Ґ­®  і  ђҐ©вЁ­Ј  і" );
 vdspls( 10, 6,
 "і       і                                   і             і           і" );

 vdspls( 11, 6,
 "ГДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДЕДДДДДДДДДДДґ" );

 y=12;
 for( i=0; i<2; ++i )
    {
      k=i+18;
      vdspls( y, 6,
 "і       і                                   і             і           і" );
      ++y;
      vdspls( y, 6, "і       і                %s", string[i] );
      vdspls( y, 50, "і      %c", basa[17][i] );
      vdspls( y, 64, "і %s", basa[k] );
      vdspls( y, 76, "і" );
      ++y;
      vdspls( y, 6,
 "і       і                                   і             і           і" );
      ++y;
 vdspls( y, 6,
 "і       ГДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДЕДДДДДДДДДДДґ" );
      ++y;
    }
      vdspls( 19, 6,
 "АДДДДДДДБДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДДДБДДДДДДДДДДДЩ" );

 vdspls( 15, 10, "2" );

 w2=wndist( 24, 0, 1, 80, 9 );
 wndtotop( w2 );
 wndsetactv( w2 );
 vdspls( 0, 55, "ESC=‚л室   F1=HELP" );
while( (i=kbnec()) != 27 )
 if( i== 513 )
     viewer( "help\\help_sys\\help_4.txt", " Џ®¤бЄ §Є  " );
 wndtobot( wnd_jour );
 wndrls( wnd_jour );
 wndtobot( w2 );

}