dofont
dofont(char *name) /* create fitab and width tab for font */
dofont(name) /* create fitab and width tab for font */