ИТ в ОЭС (КР) / 7_Тестир,система_GPSS / SORCE / JOUR_1

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

 ”г­ЄжЁЁ: ®ЎҐбЇҐзЁў Ґв Ї®¤бўҐвЄг ¦га­ «  Ї® ⥬Ґ "ЏҐаўЁз­®Ґ §­ Є®¬бвў®".

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

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

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

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

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

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

#include <pdefs.h>

jour_1()
{

 HDL wnd_jour,wndist(),w2;

 extern char basa[40][45];

 static char
    *string[]={ "Ѓ«®ЄЁ","ЏаЁЎ®ал","‹®ЈЁзҐбЄЁҐ ЇҐаҐЄ«оз вҐ«Ё",
                "ЋзҐаҐ¤Ё","Њ­®Ј®Є ­ «м­лҐ гбва®©бвў ",
                "‘®еа ­пҐ¬лҐ ўҐ«ЁзЁ­л","’ Ў«Ёжл","–ҐЇЁ Ї®«м§®ў вҐ«п",
                "‘в ­¤ ав­лҐ зЁб«®ўлҐ  ваЁЎгвл","ЋЇҐа в®ал ®в­®иҐ­Ёп",
                "‹®ЈЁзҐбЄЁҐ гЄ § вҐ«Ё","’а ­§ Євл", 0 };

 int i,y,k;

 wnd_jour=wndist( 0, 0, 25, 80, 12 );
 wndboxs( wnd_jour, 1, 0, 1, 0, "ННН      ", 9 );
 wndtitle( wnd_jour, 9, STR_CENTER,
                              " †га­ « Ї® ⥬Ґ 'ЏҐаўЁз­®Ґ §­ Є®¬бвў®' " );
 wndtotop( wnd_jour );
 wndsetactv( wnd_jour );
 vdspls( 2, 10, " ЋЎгз Ґ¬л© %s ", basa[0] );
 vdspls( 2, 45, " ЈагЇЇ  %s", basa[1] );
 vdspls( 5, 6,
 "ЪДДДДДДДВДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДВДДДДДДДДДДДВДДДДДДДДДї" );
 vdspls( 6, 6,
 "і       і                                і           і         і" );

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

 vdspls( 9, 6,
 "ГДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДЕДДДДДДДДДґ" );
 vdspls( 22, 6,
 "АДДДДДДДБДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДБДДДДДДДДДЩ" );


 for( i=0; i<12; ++i )
   {
      y=i+10; k=i+4;
      vdspls( y, 6, "і       і %s", string[i] );
      vdspls( y, 47, "і     %c", basa[3][i] );
      vdspls( y, 59, "і %s", basa[k] );
      vdspls( y, 69, "і" );
   }

 vdspls( 16, 10, "1" );

 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 );

}