#include bdscio.h
#define DEL1	0x1f	/* C-<underbar> */
#define DEL2	0x1e	/* C-<caret> */

main(argc,argv)
char **argv;
{
	char ibuf[BUFSIZ];
	char line[132];
	int ifd, on, lcount, i;
	on = i = lcount = 0;
	if (argc != 2) {
		printf("Usage:\nMlist infile outfile");
		exit();
	}

	if (fopen(argv[1],ibuf) == -1){
		printf ("File open error on %s",argv[1]);
		exit();
	}
	printf ("%s",argv[1]);
	while (fgets(line,ibuf) != 0){
		lcount++;
		if (DEL2 == line[0]){
			if (on) do {
				lcount++;
				fputs("     \n",2);
			}while (lcount <= 12);
			on = 0;
		}else if (DEL1 == line[0]) {
			on = 1;
			lcount = 0;
		}else if (on){
			fputs(line,2);
		}
	}
	fclose (ibuf);
}