#include <stdio.h>
#include <ctype.h>
#include "midifile.h"

FILE *F;

mygetc() { return(getc(F)); }

mytext(type,leng,msg)
char *msg;
{
       char *p;
       char *ep = msg + leng;

       for ( p=msg; p<ep ; p++ )
               putchar( isprint(*p) ? *p : '?' );
       putchar('\n');
}

main(argc,argv)
char **argv;
{
       if ( argc > 1 )
               F = fopen(argv[1],"r");
       else
               F = stdin;

       Mf_getc = mygetc;
       Mf_text = mytext;

       midifile();

       exit(0);
}