typeClock (code 10)

A Real Time Clock message.

Clock events have no field.

Creates a Clock event. Return a pointer to the event or NIL if there is no more memory space.

MidiEvPtr Clock ( long date, short port)
{
    MidiEvPtr e;

    if ( e = MidiNewEv( typeClock ) )/* Allocate a new event. Check not NIL*/ 
    {
        Date(e) = date;        /* These information's are common to all */
        Port(e) = port;        /* kind of events */
    }
    return e;
}