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

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

 ”г­ЄжЁЁ: ®ЎҐбЇҐзЁў Ґв ўлЎ®а ў ўҐавЁЄ «м­®¬ ¬Ґ­о.

 €бЇ®«м§®ў ­ЁҐ: run2( w2, ch ).

 ЋЇЁб ­ЁҐ Ї p ¬Ґвp®ў: w2 - ®Є­® ¬Ґ­о вЁЇ  pumist;
                      ch - ¬ ббЁў бва®Є-ўлЎ®а®ў ¬Ґ­о.

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

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

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

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

#include <pdefs.h>

int run2( wnd_for,ch2 )
    HDL wnd_for;
    char *ch2[];
{
    static  int  ch2_g = 0;
    int t;

    pumsetarrow( NULLPTR, 0 );
    do {
        t=pumedt( wnd_for, &ch2_g, ch2 );
        } while( (t != RC_ENTER) && (t != RC_ESC) );
    if (t == RC_ESC)
        return( -1 );
    else return  ( ch2_g );
}