/*
 * File: gem_mp.c
 * SGoldthorpe	20-Jul-91
 *
 */

/*
 * QUICK HACK TO LET GEM USERS USE MIDIPLAY
 */

#include	<string.h>
#include	<osbind.h>

#define	CL_SCR	"\033H\033J"

main(argc,argv,envp)
int	argc;
char	*argv[],*envp[];
{	char	pathname[96];
	char	tail[255];
	int	i;

	/* GET PATHNAME OF EXECUTABLE */
	Dgetpath(pathname,0);
	strcat(pathname,"\\midiplay.ttp");

	/* GET PARAMETERS */
	*tail='\0';
	for(i=1;i<argc;i++)
	{	strcat(tail," ");
		strcat(tail,argv[i]);
	};

	/* CLEAR SCREEN AND DISPLAY INFO */
	printf(CL_SCR);
	printf("gem_mp running: %s%s\n\n",pathname,tail);

	/* EXECUTE MIDIPLAY WITH PARAM STRING */
	Pexec(0,pathname,tail,envp);

	/* STOP UNTIL RETURN PRESSED */
	printf("\n**** PRESS RETURN TO QUIT ****\n");
	for(;(Bconin(2)&0xff)!=13;);
};