PACKET minimal fonts routines DEFINES lf height of current font, 
                                      x factor per inch, 
                                      y factor per inch: 
 
REAL CONST lf height of current font :: 2.54 / 6.0;
INT CONST x factor per inch         :: 10,
          y factor per inch         ::  6;
 
END PACKET minimal fonts routines;