/* k 0165	25/05/91	*/
/* k 0175 	09/06/91	*/
/* k 0191	02/07/91	*/
/* k 0206	06/09/91	*/
/* k 0218	16/09/91	*//* printf if no VT */
/* k 0224       23/09/91        *//* ebss */
/* k 0226	24/09/91	*//* literals */
/* k 0232	11/10/91	*/
/* k 0258	10/11/91	*//* 1 to -1 */
/* k 0304	23/02/92	*//*	path     */
#include <ebss.h>               /* @0224 */
#include <fcntl.h>		/* @0218 */
#if (OVL_TYPE!=1)
#include <stdio.h>		/* @0218 */
#endif
#include <pconio.h>
extern char wbuf[];                             /* @0230 */
extern char *msg1;	/* @0206 */             /* @0230 */
extern char *mname;	/* @0206 *//* @0208 */  /* @0230 */
extern char *p_msg;    /* @0230 */
smsgop(mno,pno,a)		/* @0191 */
short mno;			/* @0191 */
short pno;			/* @0191 */
short *a[];			/* @0191 */
{
char *s0,*s1;
short i;
short mfd;		/* @0206 */
#if ((OVL_TYPE==1)&&(RESIDENT!=1))      /* @0304 */
 Res_strcpy(portpath+1+portpath[0],mname);	/* @0304 */
#else                                           /* @0304 */
 strcpy(portpath+1+portpath[0],mname);	/* @0304 */
#endif                                  /* @0304 */
#if ((OVL_TYPE==1)&&(RESIDENT!=1))
 if ((mfd=Res_open(portpath+1,O_BINARY|0))==-1)/* @0206  @0218 @0230 @0304 */
  {			/* @0206 */
   pcprintf(msg1);	/* @0206 *//* @0230 *//* @0233 */
   return;		/* @0206 */
  }			/* @0206 */
 if (Res_lseek(mfd,(long)(2*(mno-1)),0)!=-1)	/* @0175 *//* @0258 */
   if (Res_read(mfd,&offs,2)>0)		/* @0175 */
    if (offs!=0)
     if (Res_lseek(mfd,(long)offs,0)!=-1)	/* @0175 */
       {
	 Res_read(mfd,wbuf+160,70);		/* @0175 @0206 @0230 */
#else
 if ((mfd=open(portpath+1,O_BINARY|0))==-1)/* @0206  @0218 @0230 *//* @0304 */
  {			/* @0206 */
   printf(msg1);	/* @0206 *//* @0230 */
   return;		/* @0206 */
  }			/* @0206 */
 if (lseek(mfd,(long)(2*(mno-1)),0)!=1)	/* @0175 */
   if (read(mfd,&offs,2)>0)		/* @0175 */
    if (offs!=0)
     if (lseek(mfd,(long)offs,0)!=-1)	/* @0175 */
       {
	 read(mfd,wbuf+160,70);		/* @0175 *//* @0206 */
#endif
	 i=0;
	 while (wbuf[i+160]!=0x0a)	/* @0175 @0206 *//* @0230 */
	   i++;
/*	 setcursor(NOCURSOR);*/		/* @0258 *//* @0308 */
	 if (vt_flag & VT_ACT)		/* @0218 */
	 {				/* @0218 */
	 setcursor(NOCURSOR);		/* @0258 */
	 wbuf[i+160]=0x00;		/* @0175 *//* @0206 *//* @0230 */
#if (OS_TYPE==0)			/* @0191 */
	 pcprintf(p_msg,mno);			/* @0226 *//* @0230 */
#elif (OS_TYPE==3)			/* @0191 */
         pcprintf("PORT-M MSG %u: ",mno);	/* @0191 */
#else					/* @0191 */
         pcprintf("PORT-X MSG %u: ",mno);	/* @0191 */
#endif					/* @0191 */
/*	 if (pno==0)   */
	   pcprintf(wbuf+160);		/* @0206 */
/*	 else
	  {
	   s0=wbuf+160;		/* @0206 */
	   for (i=0;i<70;i++)
	     if (wbuf[i+160]=='%')		/* @0206 *//* @0230 */
	       break;
	   if (i<70)
	     s1=s0+i;
	   for (i=0;i<pno;i++)
	    {
	    }
	  }          */
	 }		/* @0218 */
	 else		/* @0218 */
	 {		/* @0218 */
	 wbuf[i+161]=0x00;		/* @0175 *//* @0206 *//* @0230 */
#if (OS_TYPE==0)			/* @0191 *//* @0218 */
#if ((OVL_TYPE==1)&&(RESIDENT!=1))
	 Res_printf(p_msg,mno);          /* @0218 *//* @0226 *//* @0230 */
#else
	 printf(p_msg,mno);          /* @0218 *//* @0226 *//* @230 */
#endif
#elif (OS_TYPE==3)			/* @0191 *//* @0218 */
	 printf("PORT-M MSG %u: ",mno);	/* @0191 *//* @0218 */
#else					/* @0191 *//* @0218 */
	 printf("PORT-X MSG %u: ",mno);	/* @0191 *//* @0218 */
#endif					/* @0191 *//* @0218 */
#if ((OVL_TYPE==1)&&(RESIDENT!=1))
	 Res_printf(wbuf+160);	/* @0206 *//* @0218 *//* @0230 */
#else
	 printf(wbuf+160);		/* @0206 *//* @0218 *//* @0230 */
#endif
	 }					   /* @0218 */
	}
#if ((OVL_TYPE==1)&&(RESIDENT!=1))
	Res_close(mfd);		/* @0206 */
#else
	close(mfd);		/* @0206 */
#endif
}