- if (!(st->scoreFont = XLoadQueryFont(st->dpy, "-*-times-*-r-*-*-*-180-*-*-*-*-*-*")))
- fprintf(stderr, "%s: Can't load Times font.", progname);
+ st->scoreFont = XLoadQueryFont(st->dpy, scorefont);
+ if (!st->scoreFont) {
+ fprintf (stderr, "%s: could not load font %s.\n", progname, scorefont);
+ st->scoreFont = XLoadQueryFont(st->dpy, levelfont);
+ if (! st->scoreFont)
+ st->scoreFont = XLoadQueryFont(st->dpy, "fixed");
+ if (! st->scoreFont) abort();
+ }