#ifndef lint
static char sccsid[] = "@(#)midi_232.c	1.1 (mg@ukc.ac.uk) 2/11/90";
#endif
/*
 * MIDI_232 - copy midi data straight from Atari ST's midi port to the
 * RS232 serial port
 *
 *	Martin Guy, Canterbury, February 1990
 */

#define AUX 1 /* guess */
#define CON 2	/* screen/keyboard */
#define MIDI 3	/* midi port */

main()
{
	while (1) {
		register int c;
		c = Bconin(MIDI);
		Bconout(AUX, c);
		if (Bconstat(CON)) break;	/* press any key to exit */
	}
}