#include <string.h>
#include "extern.h"

exejul()                        /* ºÏÝÄÞ ÖØ ¼Þ¬Ý٠ʱ¸ */
   {  int i , j = 1 ,k;

      i = strlen(wjunle);
      
      for (  ; i < 8  ; i++)
          {  *(wjunle + i) = ' '; }
      *(wjunle + 8) = NULL;              /* 8Ó¼Þ ºÃ² Ø®³²· Íݼ­³ */
      
      
      for ( i = 0 ; i <= JUNLE_MAX ; i++)
             
          {  if ( jtbl[i][0] == NULL )     return(0); 
                                /* ¼Þ¬Ý٠ðÌÞ٠ŸÅÚÊÞ return */
             if ( strcmp(wjunle,jtbl[i]))   continue;
                                /* ºÏÝÄÞ ¶Þ Ö³² ¼À ¼Þ¬ÝÙ Æ Å¹ÚÊÞ return */
             
             if (! strcmp(nowjle,wjunle))  return(1);
								 /* µÅ¼Þ ¼Þ¬ÝÙ Å× ÅÆÓ ¼Å² */

             strcpy(nowjle,jtbl[i]);            /* ¼Þ¯º³ ¼Þ¬ÝÙ Íݺ³ */
             strcpy(jlepmt,nowjle);             /* ºÏÝÄÞ ÌßÛÝÌßÄ Íݼ­³ */
             
             for (k = 0 ; k < 8; k++)
                 {   if (*(jlepmt + k) == ' ' ) break; }
                 *(jlepmt + k) = ' ';
                 k++; *(jlepmt + k) = '-';
                 k++; *(jlepmt + k) = '>';
                 k++; *(jlepmt + k) = NULL;
             
             fpw = fopen(JUL_FIL,"r");          /* ¼Þ¬ÝÙ ±ÝŲ ̧²Ù open */
             
             while(j)
             {   for ( i = 0; i < 5; i++)
                 
              {  fgets(fbuff,255,fpw);        /* ¼Þ¬ÝÙ Ò² É Úº°ÄÞ Ê±¸ */    
                 if (i != 0)  continue;
                 if (i == 0)
                 {  char wkjul[9];

					idcpy(wkjul,fbuff);
					if (strncmp(nowjle,wkjul,8) != 0)  continue; 
                                        /* Úº°ÄÞ Ê±¸ */
                    fgets(fbuff,255,fpw);
				    idcpy(wjunle,fbuff);
                                        /* sig call ʱ¸ */
                    fgets(fbuff,255,fpw);
                                        /* ¶Þ²ÀÞݽ ʱ¸ */
                    if ( ! exp_flg )
                       { sprintf(ssent,"\n: ÎÞ°ÄÞ = %s sigop = %s\n: %s\n",nowjle,wjunle,fbuff);
                        rsout();            /* ÎÞ°ÄÞ¥Ò¯¾°¼Þ µ¸ØÀÞ¼ */
                       }

                  j = 0; strcpy(sigop,wjunle); break;
                 }
              }
             } 
             fclose(fpw);
             remove(seek_hdr); seek_flg = 0;
             for ( i = 0 ; i <= 1000 ; i++) { *(rtbl + i) = 0; }
             return(1);
           }

        return(0);
        }