*** UFL?DoErr ****************************************************************
* Interface	: ( --> )
* Description	: Errors if UFL not found or FNT1 does not exist in it
******************************************************************************
NULLNAME UFL?DoErr
::
 xFNTSTR palparse DROP ' xFNT EQUALNOTcase :: UFLErr ERROROUT ;
 FNT1 DROP
;