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

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

 ”г­ЄжЁЁ: ®ЎҐбЇҐзЁў Ґв Ё­ЁжЁ «Ё§ жЁо ¬ ббЁў  ®ЇжЁ©.

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

 ЋЇЁб ­ЁҐ Ї p ¬Ґвp®ў: config - ¬ ббЁў ®ЇжЁ©.

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

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

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

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

#include <stdio.h>

#define CONF 3

in_conf( config )
int config[];
{

  extern char basa[40][45];

  FILE *out;
  int i;

  if( basa[34][2] == '*' )
    {
      out = fopen( basa[16], "r" );
      if( out != NULL )
        for( i=0; i<CONF; ++i )
           fscanf( out, "%d", &config[i] );
      else
        {
          config[0] = 6;          /* Їа®Ј®­ */
          config[1] = 1;          /* ўҐабЁп */
          config[2] = 5;          /* а §Ўа®б,% */
        }
      fclose( out );
    }
  else
    {
      config[0] = 6;              /* Їа®Ј®­ */
      config[1] = 1;              /* ўҐабЁп */
      config[2] = 5;              /* а §Ўа®б,% */
    }

}