hi John,

 JP> I somehow suspect that Philips would have even less of a clue about
 JP> VioSetFont than I have.

But they might have a font.  I have some code (for GCC: _tmalloc() returns
tiled memory, _emx_32to16 thunks a pointer down).  This part of the program
loads a font from file.  The information it was based on is in PRCP.INF, I
think.

..
#define INCL_VIO
..
#include 

#define VRQ_OVERSCAN 1
..
HVIO hVio = 0;
int rc;
..
void rcheck( int err )
{
  static char *buf;
  ULONG ul;

  if (!err) return;
  if (NULL == buf) buf = _tmalloc( 1024 );
  DosGetMessage( NULL, 0, buf, 1024, err, "OSO001.MSG", &ul );
  fprintf( stderr, "%.*s", (int)ul, buf );
  rc = EPERM;
}

void SetMode( PVIOMODEINFO pVmi, BOOL cls )
{
  USHORT len = pVmi->buf_length;
  PCH buf = _tmalloc( len );

  VioReadCellStr( buf, &len, 0, 0, hVio );
  rcheck( VioSetMode( pVmi, hVio ));
  VioGetMode( pVmi, hVio );
  VioScrollDn( 0, 0, -1, -1, -1, " \7", hVio );
  if (!cls) VioWrtCellStr( buf, len, 0, 0, hVio );
  _tfree( buf );   
}

inline
int SetFont( PVIOFONTINFO pVfi, PVIOMODEINFO pVmi )
{
  struct { USHORT cb; USHORT adapter; } vci = { sizeof vci };
  USHORT rows = pVmi->vres / pVfi->cyCell;
  if (rows != pVmi->row)
  {
 pVmi->row = rows;
 SetMode( pVmi, FALSE );
  }
  VioGetConfig( VIO_CONFIG_CURRENT, (PVIOCONFIGINFO)&vci, hVio );
  pVfi->cxCell = 8 + (vci.adapter > DISPLAY_EGA);
  return VioSetFont( pVfi, hVio );
}

int main( int argc, char **argv)
{
  int opt, act = 0;
  VIOMODEINFO vmi = { sizeof vmi };
  VIOOVERSCAN vos = { sizeof vos, VRQ_OVERSCAN };
  VIOFONTINFO vfi = { sizeof vfi, VGFI_GETCURFONT };
..
  VioGetMode( &vmi, hVio );
  VioGetState( &vos, hVio );
  VioGetFont( &vfi, hVio );
..
  while (EOF != (opt = getopt( argc, argv, "m:f:b:p:qc" )))
  {
 switch (opt)
 {
..
   int fh;
   long fl;
   void *vp;
..
#define Pbreak { rc = EINVAL; perror( optarg ); break; }
   case 'f': if (-1 == (fh = open( optarg, O_RDONLY|O_BINARY ))) Pbreak;
    if (-1 == (fl = filelength( fh ))) Pbreak;
    if (NULL == (vp = _tmalloc( fl ))) Pbreak;
    if (-1 == read( fh, vp, fl )) Pbreak;
    vfi.cyCell = (USHORT) (fl / 256);
    vfi.cbData = (USHORT)fl;
    vfi.pbData = _emx_32to16( vp );
    act |= DO_F;
    break;
..
 }
  } /* while */;
..
  if (act & DO_F) rcheck( SetFont( &vfi, &vmi ));
..
  return rc;
}

regards,
         hugo