#include <bdscio.h>
char c,puf1[128],puf2[128];
char fcb1[36],fcb2[36];
main()
  {
	int i,j;
	strcpy(&fcb2[1],"TEST    XXX");fcb2[0]=3;
	strcpy(&fcb1[1],"M       MAC");fcb1[0]=3;	 
	bdos(15,fcb1);
	bdos(19,fcb2);
	bdos(22,fcb2);
	bdos(26,puf1);
	j=0;
M1:
	if((c=bdos(20,fcb1))!=0) {
	bdos(26,puf2); bdos(21,fcb2);bdos(16,fcb2);exit();
				 }
	i=0;
	while(i<128) {
		c=puf1[i];
		if((c>=' '&&c<='z')||c==9||c==13||c==10) 
			{
			puf2[j]=c;j=tst(j);
			if(c==13) 
				{puf2[j]=10;j=tst(j);}
			}
		i++;  }
	goto M1;
  }
tst(j)
int  j;
  { 
	if(++j<128) return j;
	 bdos(26,puf2);
	 bdos(21,fcb2);
	 bdos(26,puf1);
	return (j=0);
  }