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

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

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

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

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

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

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

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

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

#include <pdefs.h>

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

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