/*
 * override the definition of l_rest (from mpu.c):
 */
#define l_rest(d) m_rest(d)
#define l_restuntil(t) m_restuntil(t)

#include "\music\musicfns.h"
#define when if (
#define then ) {
#define otherwise ;} else {
#define endif ;}
#define endwhen ;}
#define begin {
#define end ;}

#define repeat(var, count) {int var; for (var=1; var <= count; var++) {
#define endrep ;}}

extern int moxcdone;
extern cause();
extern long event_time;

int moxc_loudness = 127;

#define loud(l) moxc_loudness = (l);

note(pitch, duration)
    begin
	midi_note(1, pitch, moxc_loudness);
	cause(duration, midi_note, 1, pitch, 0);
    end