/* Dumps incoming MIDI data to screen in HEX */


#include <stdio.h>
#include <string.h>
#include <conio.h>
#include <midi.h>


main(int argc, char **argv)
{
int i,k,stamp;
long midiin,timestamp;

       clrscr();

       init_midi();

       stamp = 0;

       for(i = 1;i < argc;i++)
       {
               if(! strcmp(strupr(argv[i]),"/S"))
                       stamp = 1;
       }

       while(1)
       {
               if(midiin=get_midibyte())
               {
                       printf("%02X  ",(unsigned char)midiin);
                       if(stamp)
                       {
                               timestamp = midiin >> 8;
                               printf("%-8lu    ",timestamp);
                       }
               }
               if(kbhit())
               {
                       k = getch();
                       if(k == 13) clrscr();
                       else
                       if(k == 27) break;
               }
       }
       exit_midi();
       clrscr();
}