#include "extern.h"
                
/* ̧²Ù ¶× É ¿³¼Ý ¼®Ø  */
xmitfil()                           /*  *fname ÃÞ ¼Ã² »Ú٠̧²Ù ¿³¼Ý  */
        {int i,p;                   /*  i..Ó¼Þ ¶³ÝÀ  p..¿³¼Ý Êß¹¯Ä ¶³ÝÀ */
         int chp;

         fp1 = fopen(fname,"r");        /*  *fname ÃÞÉ open  */
         if(fp1 == NULL)  return(9);    /*  ̧²Ù ż ÏÀÊ ERR Å× ØÀ°Ý */
         

           for ( p = 0 ; p < 5000 ; p++ )  /* ÎÞ³¿³ ÎÞ³¼ ¿³¼Ý Ê 5000 ¶² ÏÃÞ */
               {for ( i = 0 ; i <=253 ; i++ )  /* 1¶² É ¿³¼Ý ÃÞÊ 254 Ó¼Þ ÏÃÞ */
                        {chp = fgetc(fp1); /* 1Ó¼Þ É ¶¸É³ */
                         if (chp == EOF) break;         /* EOF or ERR ¹Ý¼­Â */
						 *(ssent + i) = chp; 
                       }
                        
                if (chp == EOF) { *(ssent + i) = 0x0d; i++; }
											/* »²ºÞ Æ cr ̶ */
                *(ssent + i) = NULL;       /* C Ó¼ÞÚÂ Æ ¼Ã ¿³¼Ý */
                rsout();
                if (chp == EOF) break;    /* EOF or ERR Å× ¼Õ³Ø®³ */
               }              

         fclose(fp1);
         fp1 = NULL;

         return(0);    
         }