#define GFTODVI
#include "cpascal.h"
#define maxlabels ( 2000 ) 
#define poolsize ( 10000 ) 
#define maxstrings ( 1100 ) 
#define terminallinelength ( 150 ) 
#define filenamesize ( 50 ) 
#define fontmemsize ( 2000 ) 
#define dvibufsize ( 800 ) 
#define widestrow ( 8192 ) 
#define liglookahead ( 20 ) 
typedef integer scaled  ;
typedef unsigned char ASCIIcode  ;
typedef text /* of  ASCIIcode */ textfile  ;
typedef unsigned char eightbits  ;
typedef text /* of  eightbits */ bytefile  ;
typedef integer fontindex  ;
typedef unsigned char quarterword  ;
typedef struct {
    quarterword B0 ;
  quarterword B1 ;
  quarterword B2 ;
  quarterword B3 ;
} fourquarters  ;
#include "gftodmem.h"
typedef char internalfontnumber  ;
typedef integer poolpointer  ;
typedef integer strnumber  ;
typedef char keywordcode  ;
typedef integer dviindex  ;
typedef integer nodepointer  ;
ASCIIcode xord[256]  ;
ASCIIcode xchr[256]  ;
unsigned char buffer[terminallinelength + 1]  ;
integer bufptr  ;
integer linelength  ;
short lf, lh, bc, ec, nw, nh, nd, ni, nl, nk, ne, np  ;
bytefile gffile  ;
bytefile dvifile  ;
bytefile tfmfile  ;
integer curloc  ;
ASCIIcode * nameoffile  ;
eightbits b0, b1, b2, b3  ;
memoryword fontinfo[fontmemsize + 1]  ;
fontindex fmemptr  ;
fourquarters fontcheck[6]  ;
scaled fontsize[6]  ;
scaled fontdsize[6]  ;
eightbits fontbc[6]  ;
eightbits fontec[6]  ;
integer charbase[6]  ;
integer widthbase[6]  ;
integer heightbase[6]  ;
integer depthbase[6]  ;
integer italicbase[6]  ;
integer ligkernbase[6]  ;
integer kernbase[6]  ;
integer extenbase[6]  ;
integer parambase[6]  ;
fontindex bcharlabel[6]  ;
short fontbchar[6]  ;
ASCIIcode strpool[poolsize + 1]  ;
poolpointer strstart[maxstrings + 1]  ;
poolpointer poolptr  ;
strnumber strptr  ;
strnumber initstrptr  ;
integer l  ;
eightbits curgf  ;
strnumber curstring  ;
eightbits labeltype  ;
strnumber curname  ;
strnumber curarea  ;
strnumber curext  ;
poolpointer areadelimiter  ;
poolpointer extdelimiter  ;
strnumber jobname  ;
boolean interaction  ;
boolean fontsnotloaded  ;
strnumber fontname[6]  ;
strnumber fontarea[6]  ;
scaled fontat[6]  ;
integer totalpages  ;
scaled maxv  ;
scaled maxh  ;
integer lastbop  ;
eightbits dvibuf[dvibufsize + 1]  ;
dviindex halfbuf  ;
dviindex dvilimit  ;
dviindex dviptr  ;
integer dvioffset  ;
scaled boxwidth  ;
scaled boxheight  ;
scaled boxdepth  ;
quarterword ligstack[liglookahead + 1]  ;
fourquarters dummyinfo  ;
boolean suppresslig  ;
short c[121]  ;
short d[121]  ;
short twotothe[14]  ;
real ruleslant  ;
integer slantn  ;
real slantunit  ;
real slantreported  ;
scaled xl[maxlabels + 1], xr[maxlabels + 1], yt[maxlabels + 1], 
yb[maxlabels + 1]  ;
scaled xx[maxlabels + 1], yy[maxlabels + 1]  ;
nodepointer prev[maxlabels + 1], next[maxlabels + 1]  ;
strnumber info[maxlabels + 1]  ;
nodepointer maxnode  ;
scaled maxheight  ;
scaled maxdepth  ;
nodepointer firstdot  ;
boolean twin  ;
scaled rulethickness  ;
scaled offsetx, offsety  ;
scaled xoffset, yoffset  ;
scaled preminx, premaxx, preminy, premaxy  ;
nodepointer ruleptr  ;
nodepointer labeltail  ;
nodepointer titlehead, titletail  ;
integer charcode, ext  ;
integer minx, maxx, miny, maxy  ;
integer x, y  ;
integer z  ;
real xratio, yratio, slantratio  ;
real unscxratio, unscyratio, unscslantratio  ;
real fudgefactor  ;
scaled deltax, deltay  ;
scaled dvix, dviy  ;
scaled overcol  ;
scaled pageheight, pagewidth  ;
scaled grayrulethickness  ;
scaled tempx, tempy  ;
integer overflowline  ;
scaled delta  ;
scaled halfxheight  ;
scaled thricexheight  ;
scaled dotwidth, dotheight  ;
char b[4096]  ;
short rho[4096]  ;
short a[widestrow + 1]  ;
integer blankrows  ;
integer k, m, p, q, r, s, t, dx, dy  ;
strnumber timestamp  ;
boolean uselogo  ;
cinttype verbose  ;
integer overflowlabeloffset  ;
real offsetinpoints  ;

#include "gftodvi.h"
void 
#ifdef HAVE_PROTOTYPES
parsearguments ( void ) 
#else
parsearguments ( ) 
#endif
{
  
#define noptions ( 4 ) 
  getoptstruct longoptions[noptions + 1]  ;
  integer getoptreturnval  ;
  cinttype optionindex  ;
  integer currentoption  ;
  verbose = false ;
  overflowlabeloffset = 10000000L ;
  currentoption = 0 ;
  longoptions [currentoption ].name = "help" ;
  longoptions [currentoption ].hasarg = 0 ;
  longoptions [currentoption ].flag = 0 ;
  longoptions [currentoption ].val = 0 ;
  currentoption = currentoption + 1 ;
  longoptions [currentoption ].name = "version" ;
  longoptions [currentoption ].hasarg = 0 ;
  longoptions [currentoption ].flag = 0 ;
  longoptions [currentoption ].val = 0 ;
  currentoption = currentoption + 1 ;
  longoptions [currentoption ].name = "verbose" ;
  longoptions [currentoption ].hasarg = 0 ;
  longoptions [currentoption ].flag = addressof ( verbose ) ;
  longoptions [currentoption ].val = 1 ;
  currentoption = currentoption + 1 ;
  longoptions [currentoption ].name = "overflow-label-offset" ;
  longoptions [currentoption ].hasarg = 1 ;
  longoptions [currentoption ].flag = 0 ;
  longoptions [currentoption ].val = 0 ;
  currentoption = currentoption + 1 ;
  longoptions [currentoption ].name = 0 ;
  longoptions [currentoption ].hasarg = 0 ;
  longoptions [currentoption ].flag = 0 ;
  longoptions [currentoption ].val = 0 ;
  do {
      getoptreturnval = getoptlongonly ( argc , argv , "" , longoptions , 
    addressof ( optionindex ) ) ;
    if ( getoptreturnval == -1 ) 
    {
      ;
    } 
    else if ( getoptreturnval == 63 ) 
    {
      usage ( 1 , "gftodvi" ) ;
    } 
    else if ( ( strcmp ( longoptions [optionindex ].name , "help" ) == 0 ) ) 
    {
      usage ( 0 , GFTODVIHELP ) ;
    } 
    else if ( ( strcmp ( longoptions [optionindex ].name , "version" ) == 0 
    ) ) 
    {
      printversionandexit ( "This is GFtoDVI, Version 3.0" , nil , 
      "D.E. Knuth" ) ;
    } 
    else if ( ( strcmp ( longoptions [optionindex ].name , 
    "overflow-label-offset" ) == 0 ) ) 
    {
      offsetinpoints = atof ( optarg ) ;
      overflowlabeloffset = round ( offsetinpoints * 65536L ) ;
    } 
  } while ( ! ( getoptreturnval == -1 ) ) ;
  if ( ( optind + 1 != argc ) ) 
  {
    fprintf( stderr , "%s\n",  "gftodvi: Need exactly one file argument." ) ;
    usage ( 1 , "gftodvi" ) ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
initialize ( void ) 
#else
initialize ( ) 
#endif
{
  integer i, j, m, n  ;
  kpsesetprogname ( argv [0 ]) ;
  kpseinitprog ( "GFTODVI" , 0 , nil , nil ) ;
  parsearguments () ;
  if ( verbose ) 
  {
    Fputs( stdout ,  "This is GFtoDVI, Version 3.0" ) ;
    fprintf( stdout , "%s\n",  versionstring ) ;
  } 
  xchr [32 ]= ' ' ;
  xchr [33 ]= '!' ;
  xchr [34 ]= '"' ;
  xchr [35 ]= '#' ;
  xchr [36 ]= '$' ;
  xchr [37 ]= '%' ;
  xchr [38 ]= '&' ;
  xchr [39 ]= '\'' ;
  xchr [40 ]= '(' ;
  xchr [41 ]= ')' ;
  xchr [42 ]= '*' ;
  xchr [43 ]= '+' ;
  xchr [44 ]= ',' ;
  xchr [45 ]= '-' ;
  xchr [46 ]= '.' ;
  xchr [47 ]= '/' ;
  xchr [48 ]= '0' ;
  xchr [49 ]= '1' ;
  xchr [50 ]= '2' ;
  xchr [51 ]= '3' ;
  xchr [52 ]= '4' ;
  xchr [53 ]= '5' ;
  xchr [54 ]= '6' ;
  xchr [55 ]= '7' ;
  xchr [56 ]= '8' ;
  xchr [57 ]= '9' ;
  xchr [58 ]= ':' ;
  xchr [59 ]= ';' ;
  xchr [60 ]= '<' ;
  xchr [61 ]= '=' ;
  xchr [62 ]= '>' ;
  xchr [63 ]= '?' ;
  xchr [64 ]= '@' ;
  xchr [65 ]= 'A' ;
  xchr [66 ]= 'B' ;
  xchr [67 ]= 'C' ;
  xchr [68 ]= 'D' ;
  xchr [69 ]= 'E' ;
  xchr [70 ]= 'F' ;
  xchr [71 ]= 'G' ;
  xchr [72 ]= 'H' ;
  xchr [73 ]= 'I' ;
  xchr [74 ]= 'J' ;
  xchr [75 ]= 'K' ;
  xchr [76 ]= 'L' ;
  xchr [77 ]= 'M' ;
  xchr [78 ]= 'N' ;
  xchr [79 ]= 'O' ;
  xchr [80 ]= 'P' ;
  xchr [81 ]= 'Q' ;
  xchr [82 ]= 'R' ;
  xchr [83 ]= 'S' ;
  xchr [84 ]= 'T' ;
  xchr [85 ]= 'U' ;
  xchr [86 ]= 'V' ;
  xchr [87 ]= 'W' ;
  xchr [88 ]= 'X' ;
  xchr [89 ]= 'Y' ;
  xchr [90 ]= 'Z' ;
  xchr [91 ]= '[' ;
  xchr [92 ]= '\\' ;
  xchr [93 ]= ']' ;
  xchr [94 ]= '^' ;
  xchr [95 ]= '_' ;
  xchr [96 ]= '`' ;
  xchr [97 ]= 'a' ;
  xchr [98 ]= 'b' ;
  xchr [99 ]= 'c' ;
  xchr [100 ]= 'd' ;
  xchr [101 ]= 'e' ;
  xchr [102 ]= 'f' ;
  xchr [103 ]= 'g' ;
  xchr [104 ]= 'h' ;
  xchr [105 ]= 'i' ;
  xchr [106 ]= 'j' ;
  xchr [107 ]= 'k' ;
  xchr [108 ]= 'l' ;
  xchr [109 ]= 'm' ;
  xchr [110 ]= 'n' ;
  xchr [111 ]= 'o' ;
  xchr [112 ]= 'p' ;
  xchr [113 ]= 'q' ;
  xchr [114 ]= 'r' ;
  xchr [115 ]= 's' ;
  xchr [116 ]= 't' ;
  xchr [117 ]= 'u' ;
  xchr [118 ]= 'v' ;
  xchr [119 ]= 'w' ;
  xchr [120 ]= 'x' ;
  xchr [121 ]= 'y' ;
  xchr [122 ]= 'z' ;
  xchr [123 ]= '{' ;
  xchr [124 ]= '|' ;
  xchr [125 ]= '}' ;
  xchr [126 ]= '~' ;
  {register integer for_end; i = 1 ;for_end = 31 ; if ( i <= for_end) do 
    xchr [i ]= chr ( i ) ;
  while ( i++ < for_end ) ;} 
  {register integer for_end; i = 127 ;for_end = 255 ; if ( i <= for_end) do 
    xchr [i ]= chr ( i ) ;
  while ( i++ < for_end ) ;} 
  {register integer for_end; i = 0 ;for_end = 255 ; if ( i <= for_end) do 
    xord [chr ( i ) ]= 32 ;
  while ( i++ < for_end ) ;} 
  {register integer for_end; i = 1 ;for_end = 255 ; if ( i <= for_end) do 
    xord [xchr [i ]]= i ;
  while ( i++ < for_end ) ;} 
  xord ['?' ]= 63 ;
  fmemptr = 0 ;
  interaction = false ;
  fontsnotloaded = true ;
  fontname [1 ]= 29 ;
  fontname [2 ]= 30 ;
  fontname [3 ]= 31 ;
  fontname [4 ]= 0 ;
  fontname [5 ]= 32 ;
  {register integer for_end; k = 1 ;for_end = 5 ; if ( k <= for_end) do 
    {
      fontarea [k ]= 0 ;
      fontat [k ]= 0 ;
    } 
  while ( k++ < for_end ) ;} 
  totalpages = 0 ;
  maxv = 0 ;
  maxh = 0 ;
  lastbop = -1 ;
  halfbuf = dvibufsize / 2 ;
  dvilimit = dvibufsize ;
  dviptr = 0 ;
  dvioffset = 0 ;
  dummyinfo .B0 = 0 ;
  dummyinfo .B1 = 0 ;
  dummyinfo .B2 = 0 ;
  dummyinfo .B3 = 0 ;
  c [1 ]= 1 ;
  d [1 ]= 2 ;
  twotothe [0 ]= 1 ;
  m = 1 ;
  {register integer for_end; k = 1 ;for_end = 13 ; if ( k <= for_end) do 
    twotothe [k ]= 2 * twotothe [k - 1 ];
  while ( k++ < for_end ) ;} 
  {register integer for_end; k = 2 ;for_end = 6 ; if ( k <= for_end) do 
    {
      n = twotothe [k - 1 ];
      {register integer for_end; j = 0 ;for_end = n - 1 ; if ( j <= for_end) 
      do 
	{
	  m = m + 1 ;
	  c [m ]= m ;
	  d [m ]= n + n ;
	} 
      while ( j++ < for_end ) ;} 
    } 
  while ( k++ < for_end ) ;} 
  {register integer for_end; k = 7 ;for_end = 12 ; if ( k <= for_end) do 
    {
      n = twotothe [k - 1 ];
      {register integer for_end; j = k ;for_end = 1 ; if ( j >= for_end) do 
	{
	  m = m + 1 ;
	  d [m ]= n + n ;
	  if ( j == k ) 
	  c [m ]= n ;
	  else c [m ]= c [m - 1 ]+ twotothe [j - 1 ];
	} 
      while ( j-- > for_end ) ;} 
    } 
  while ( k++ < for_end ) ;} 
  yy [0 ]= -1073741824L ;
  yy [maxlabels ]= 1073741824L ;
} 
void 
#ifdef HAVE_PROTOTYPES
jumpout ( void ) 
#else
jumpout ( ) 
#endif
{
  uexit ( 0 ) ;
} 
void 
#ifdef HAVE_PROTOTYPES
inputln ( void ) 
#else
inputln ( ) 
#endif
{
  fflush ( stdout ) ;
  if ( eoln ( stdin ) ) 
  readln ( stdin ) ;
  linelength = 0 ;
  while ( ( linelength < terminallinelength ) && ! eoln ( stdin ) ) {
      
    buffer [linelength ]= xord [getc ( stdin ) ];
    linelength = linelength + 1 ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
opengffile ( void ) 
#else
opengffile ( ) 
#endif
{
  gffile = kpseopenfile ( (char*)nameoffile , kpsegfformat ) ;
  curloc = 0 ;
} 
void 
#ifdef HAVE_PROTOTYPES
opentfmfile ( void ) 
#else
opentfmfile ( ) 
#endif
{
  tfmfile = kpseopenfile ( (char*)nameoffile , kpsetfmformat ) ;
} 
void 
#ifdef HAVE_PROTOTYPES
opendvifile ( void ) 
#else
opendvifile ( ) 
#endif
{
  rewritebin ( dvifile , (char*)nameoffile ) ;
} 
void 
#ifdef HAVE_PROTOTYPES
readtfmword ( void ) 
#else
readtfmword ( ) 
#endif
{
  read ( tfmfile , b0 ) ;
  read ( tfmfile , b1 ) ;
  read ( tfmfile , b2 ) ;
  read ( tfmfile , b3 ) ;
} 
integer 
#ifdef HAVE_PROTOTYPES
getbyte ( void ) 
#else
getbyte ( ) 
#endif
{
  register integer Result; eightbits b  ;
  if ( eof ( gffile ) ) 
  Result = 0 ;
  else {
      
    read ( gffile , b ) ;
    curloc = curloc + 1 ;
    Result = b ;
  } 
  return Result ;
} 
integer 
#ifdef HAVE_PROTOTYPES
gettwobytes ( void ) 
#else
gettwobytes ( ) 
#endif
{
  register integer Result; eightbits a, b  ;
  read ( gffile , a ) ;
  read ( gffile , b ) ;
  curloc = curloc + 2 ;
  Result = a * toint ( 256 ) + b ;
  return Result ;
} 
integer 
#ifdef HAVE_PROTOTYPES
getthreebytes ( void ) 
#else
getthreebytes ( ) 
#endif
{
  register integer Result; eightbits a, b, c  ;
  read ( gffile , a ) ;
  read ( gffile , b ) ;
  read ( gffile , c ) ;
  curloc = curloc + 3 ;
  Result = ( a * toint ( 256 ) + b ) * 256 + c ;
  return Result ;
} 
integer 
#ifdef HAVE_PROTOTYPES
signedquad ( void ) 
#else
signedquad ( ) 
#endif
{
  register integer Result; eightbits a, b, c, d  ;
  read ( gffile , a ) ;
  read ( gffile , b ) ;
  read ( gffile , c ) ;
  read ( gffile , d ) ;
  curloc = curloc + 4 ;
  if ( a < 128 ) 
  Result = ( ( a * toint ( 256 ) + b ) * 256 + c ) * 256 + d ;
  else Result = ( ( ( a - 256 ) * toint ( 256 ) + b ) * 256 + c ) * 256 + d ;
  return Result ;
} 
void 
#ifdef HAVE_PROTOTYPES
zreadfontinfo ( integer f , scaled s ) 
#else
zreadfontinfo ( f , s ) 
  integer f ;
  scaled s ;
#endif
{
  /* 30 11 */ fontindex k  ;
  unsigned short lf, lh, bc, ec, nw, nh, nd, ni, nl, nk, ne, np  ;
  integer bchlabel  ;
  short bchar  ;
  fourquarters qw  ;
  scaled sw  ;
  scaled z  ;
  integer alpha  ;
  char beta  ;
  {
    readtfmword () ;
    lf = b0 * toint ( 256 ) + b1 ;
    lh = b2 * toint ( 256 ) + b3 ;
    readtfmword () ;
    bc = b0 * toint ( 256 ) + b1 ;
    ec = b2 * toint ( 256 ) + b3 ;
    if ( ( bc > ec + 1 ) || ( ec > 255 ) ) 
    goto lab11 ;
    if ( bc > 255 ) 
    {
      bc = 1 ;
      ec = 0 ;
    } 
    readtfmword () ;
    nw = b0 * toint ( 256 ) + b1 ;
    nh = b2 * toint ( 256 ) + b3 ;
    readtfmword () ;
    nd = b0 * toint ( 256 ) + b1 ;
    ni = b2 * toint ( 256 ) + b3 ;
    readtfmword () ;
    nl = b0 * toint ( 256 ) + b1 ;
    nk = b2 * toint ( 256 ) + b3 ;
    readtfmword () ;
    ne = b0 * toint ( 256 ) + b1 ;
    np = b2 * toint ( 256 ) + b3 ;
    if ( lf != 6 + lh + ( ec - bc + 1 ) + nw + nh + nd + ni + nl + nk + ne + 
    np ) 
    goto lab11 ;
  } 
  lf = lf - 6 - lh ;
  if ( np < 8 ) 
  lf = lf + 8 - np ;
  if ( fmemptr + lf > fontmemsize ) 
  {
    fprintf( stderr , "%s\n",  "No room for TFM file!" ) ;
    uexit ( 1 ) ;
  } 
  charbase [f ]= fmemptr - bc ;
  widthbase [f ]= charbase [f ]+ ec + 1 ;
  heightbase [f ]= widthbase [f ]+ nw ;
  depthbase [f ]= heightbase [f ]+ nh ;
  italicbase [f ]= depthbase [f ]+ nd ;
  ligkernbase [f ]= italicbase [f ]+ ni ;
  kernbase [f ]= ligkernbase [f ]+ nl ;
  extenbase [f ]= kernbase [f ]+ nk ;
  parambase [f ]= extenbase [f ]+ ne ;
  {
    if ( lh < 2 ) 
    goto lab11 ;
    {
      readtfmword () ;
      qw .B0 = b0 + 0 ;
      qw .B1 = b1 + 0 ;
      qw .B2 = b2 + 0 ;
      qw .B3 = b3 + 0 ;
      fontcheck [f ]= qw ;
    } 
    readtfmword () ;
    if ( b0 > 127 ) 
    goto lab11 ;
    z = ( ( b0 * toint ( 256 ) + b1 ) * toint ( 256 ) + b2 ) * 16 + ( b3 / 16 
    ) ;
    if ( z < 65536L ) 
    goto lab11 ;
    while ( lh > 2 ) {
	
      readtfmword () ;
      lh = lh - 1 ;
    } 
    fontdsize [f ]= z ;
    if ( s > 0 ) 
    z = s ;
    fontsize [f ]= z ;
  } 
  {register integer for_end; k = fmemptr ;for_end = widthbase [f ]- 1 
  ; if ( k <= for_end) do 
    {
      {
	readtfmword () ;
	qw .B0 = b0 + 0 ;
	qw .B1 = b1 + 0 ;
	qw .B2 = b2 + 0 ;
	qw .B3 = b3 + 0 ;
	fontinfo [k ].qqqq = qw ;
      } 
      if ( ( b0 >= nw ) || ( b1 / 16 >= nh ) || ( b1 % 16 >= nd ) || ( b2 / 4 
      >= ni ) ) 
      goto lab11 ;
      switch ( b2 % 4 ) 
      {case 1 : 
	if ( b3 >= nl ) 
	goto lab11 ;
	break ;
      case 3 : 
	if ( b3 >= ne ) 
	goto lab11 ;
	break ;
      case 0 : 
      case 2 : 
	;
	break ;
      } 
    } 
  while ( k++ < for_end ) ;} 
  {
    {
      alpha = 16 * z ;
      beta = 16 ;
      while ( z >= 8388608L ) {
	  
	z = z / 2 ;
	beta = beta / 2 ;
      } 
    } 
    {register integer for_end; k = widthbase [f ];for_end = ligkernbase [
    f ]- 1 ; if ( k <= for_end) do 
      {
	readtfmword () ;
	sw = ( ( ( ( ( b3 * z ) / 256 ) + ( b2 * z ) ) / 256 ) + ( b1 * z ) ) 
	/ beta ;
	if ( b0 == 0 ) 
	fontinfo [k ].sc = sw ;
	else if ( b0 == 255 ) 
	fontinfo [k ].sc = sw - alpha ;
	else goto lab11 ;
      } 
    while ( k++ < for_end ) ;} 
    if ( fontinfo [widthbase [f ]].sc != 0 ) 
    goto lab11 ;
    if ( fontinfo [heightbase [f ]].sc != 0 ) 
    goto lab11 ;
    if ( fontinfo [depthbase [f ]].sc != 0 ) 
    goto lab11 ;
    if ( fontinfo [italicbase [f ]].sc != 0 ) 
    goto lab11 ;
  } 
  {
    bchlabel = 32767 ;
    bchar = 256 ;
    if ( nl > 0 ) 
    {
      {register integer for_end; k = ligkernbase [f ];for_end = kernbase [
      f ]- 1 ; if ( k <= for_end) do 
	{
	  {
	    readtfmword () ;
	    qw .B0 = b0 + 0 ;
	    qw .B1 = b1 + 0 ;
	    qw .B2 = b2 + 0 ;
	    qw .B3 = b3 + 0 ;
	    fontinfo [k ].qqqq = qw ;
	  } 
	  if ( b0 > 128 ) 
	  {
	    if ( 256 * b2 + b3 >= nl ) 
	    goto lab11 ;
	    if ( b0 == 255 ) 
	    if ( k == ligkernbase [f ]) 
	    bchar = b1 ;
	  } 
	  else {
	      
	    if ( b1 != bchar ) 
	    {
	      if ( ( b1 < bc ) || ( b1 > ec ) ) 
	      goto lab11 ;
	    } 
	    if ( b2 < 128 ) 
	    {
	      if ( ( b3 < bc ) || ( b3 > ec ) ) 
	      goto lab11 ;
	    } 
	    else if ( toint ( 256 ) * ( b2 - 128 ) + b3 >= nk ) 
	    goto lab11 ;
	  } 
	} 
      while ( k++ < for_end ) ;} 
      if ( b0 == 255 ) 
      bchlabel = 256 * b2 + b3 ;
    } 
    {register integer for_end; k = kernbase [f ];for_end = extenbase [f ]
    - 1 ; if ( k <= for_end) do 
      {
	readtfmword () ;
	sw = ( ( ( ( ( b3 * z ) / 256 ) + ( b2 * z ) ) / 256 ) + ( b1 * z ) ) 
	/ beta ;
	if ( b0 == 0 ) 
	fontinfo [k ].sc = sw ;
	else if ( b0 == 255 ) 
	fontinfo [k ].sc = sw - alpha ;
	else goto lab11 ;
      } 
    while ( k++ < for_end ) ;} 
  } 
  {register integer for_end; k = extenbase [f ];for_end = parambase [f ]
  - 1 ; if ( k <= for_end) do 
    {
      {
	readtfmword () ;
	qw .B0 = b0 + 0 ;
	qw .B1 = b1 + 0 ;
	qw .B2 = b2 + 0 ;
	qw .B3 = b3 + 0 ;
	fontinfo [k ].qqqq = qw ;
      } 
      if ( b0 != 0 ) 
      {
	if ( ( b0 < bc ) || ( b0 > ec ) ) 
	goto lab11 ;
      } 
      if ( b1 != 0 ) 
      {
	if ( ( b1 < bc ) || ( b1 > ec ) ) 
	goto lab11 ;
      } 
      if ( b2 != 0 ) 
      {
	if ( ( b2 < bc ) || ( b2 > ec ) ) 
	goto lab11 ;
      } 
      {
	if ( ( b3 < bc ) || ( b3 > ec ) ) 
	goto lab11 ;
      } 
    } 
  while ( k++ < for_end ) ;} 
  {
    {register integer for_end; k = 1 ;for_end = np ; if ( k <= for_end) do 
      if ( k == 1 ) 
      {
	readtfmword () ;
	if ( b0 > 127 ) 
	sw = b0 - 256 ;
	else sw = b0 ;
	sw = sw * 256 + b1 ;
	sw = sw * 256 + b2 ;
	fontinfo [parambase [f ]].sc = ( sw * 16 ) + ( b3 / 16 ) ;
      } 
      else {
	  
	readtfmword () ;
	sw = ( ( ( ( ( b3 * z ) / 256 ) + ( b2 * z ) ) / 256 ) + ( b1 * z ) ) 
	/ beta ;
	if ( b0 == 0 ) 
	fontinfo [parambase [f ]+ k - 1 ].sc = sw ;
	else if ( b0 == 255 ) 
	fontinfo [parambase [f ]+ k - 1 ].sc = sw - alpha ;
	else goto lab11 ;
      } 
    while ( k++ < for_end ) ;} 
    {register integer for_end; k = np + 1 ;for_end = 8 ; if ( k <= for_end) 
    do 
      fontinfo [parambase [f ]+ k - 1 ].sc = 0 ;
    while ( k++ < for_end ) ;} 
  } 
  fontbc [f ]= bc ;
  fontec [f ]= ec ;
  if ( bchlabel < nl ) 
  bcharlabel [f ]= bchlabel + ligkernbase [f ];
  else bcharlabel [f ]= fontmemsize ;
  fontbchar [f ]= bchar + 0 ;
  widthbase [f ]= widthbase [f ]- 0 ;
  ligkernbase [f ]= ligkernbase [f ]- 0 ;
  kernbase [f ]= kernbase [f ]- 0 ;
  extenbase [f ]= extenbase [f ]- 0 ;
  parambase [f ]= parambase [f ]- 1 ;
  fmemptr = fmemptr + lf ;
  goto lab30 ;
  lab11: {
      
    putc ('\n',  stdout );
    Fputs( stdout ,  "Bad TFM file for" ) ;
  } 
  switch ( f ) 
  {case 1 : 
    {
      fprintf( stderr , "%s\n",  "titles!" ) ;
      uexit ( 1 ) ;
    } 
    break ;
  case 2 : 
    {
      fprintf( stderr , "%s\n",  "labels!" ) ;
      uexit ( 1 ) ;
    } 
    break ;
  case 3 : 
    {
      fprintf( stderr , "%s\n",  "pixels!" ) ;
      uexit ( 1 ) ;
    } 
    break ;
  case 4 : 
    {
      fprintf( stderr , "%s\n",  "slants!" ) ;
      uexit ( 1 ) ;
    } 
    break ;
  case 5 : 
    {
      fprintf( stderr , "%s\n",  "METAFONT logo!" ) ;
      uexit ( 1 ) ;
    } 
    break ;
  } 
  lab30: ;
} 
strnumber 
#ifdef HAVE_PROTOTYPES
makestring ( void ) 
#else
makestring ( ) 
#endif
{
  register strnumber Result; if ( strptr == maxstrings ) 
  {
    fprintf( stderr , "%s\n",  "Too many labels!" ) ;
    uexit ( 1 ) ;
  } 
  strptr = strptr + 1 ;
  strstart [strptr ]= poolptr ;
  Result = strptr - 1 ;
  return Result ;
} 
void 
#ifdef HAVE_PROTOTYPES
zfirststring ( integer c ) 
#else
zfirststring ( c ) 
  integer c ;
#endif
{
  if ( strptr != c ) 
  {
    fprintf( stderr , "%c\n",  '?' ) ;
    uexit ( 1 ) ;
  } 
  while ( l > 0 ) {
      
    {
      strpool [poolptr ]= buffer [l ];
      poolptr = poolptr + 1 ;
    } 
    l = l - 1 ;
  } 
  strptr = strptr + 1 ;
  strstart [strptr ]= poolptr ;
} 
keywordcode 
#ifdef HAVE_PROTOTYPES
interpretxxx ( void ) 
#else
interpretxxx ( ) 
#endif
{
  /* 30 31 45 */ register keywordcode Result; integer k  ;
  integer j  ;
  char l  ;
  keywordcode m  ;
  char n1  ;
  poolpointer n2  ;
  keywordcode c  ;
  c = 19 ;
  curstring = 0 ;
  switch ( curgf ) 
  {case 244 : 
    goto lab30 ;
    break ;
  case 243 : 
    {
      k = signedquad () ;
      goto lab30 ;
    } 
    break ;
  case 239 : 
    k = getbyte () ;
    break ;
  case 240 : 
    k = gettwobytes () ;
    break ;
  case 241 : 
    k = getthreebytes () ;
    break ;
  case 242 : 
    k = signedquad () ;
    break ;
  } 
  j = 0 ;
  if ( k < 2 ) 
  goto lab45 ;
  while ( true ) {
      
    l = j ;
    if ( j == k ) 
    goto lab31 ;
    if ( j == 13 ) 
    goto lab45 ;
    j = j + 1 ;
    buffer [j ]= getbyte () ;
    if ( buffer [j ]== 32 ) 
    goto lab31 ;
  } 
  lab31: {
      register integer for_end; m = 0 ;for_end = 18 ; if ( m <= for_end) 
  do 
    if ( ( strstart [m + 1 ]- strstart [m ]) == l ) 
    {
      n1 = 0 ;
      n2 = strstart [m ];
      while ( ( n1 < l ) && ( buffer [n1 + 1 ]== strpool [n2 ]) ) {
	  
	n1 = n1 + 1 ;
	n2 = n2 + 1 ;
      } 
      if ( n1 == l ) 
      {
	c = m ;
	if ( m == 0 ) 
	{
	  j = j + 1 ;
	  labeltype = getbyte () ;
	} 
	{
	  if ( poolptr + k - j > poolsize ) 
	  {
	    fprintf( stderr , "%s\n",  "Too many strings!" ) ;
	    uexit ( 1 ) ;
	  } 
	} 
	while ( j < k ) {
	    
	  j = j + 1 ;
	  {
	    strpool [poolptr ]= getbyte () ;
	    poolptr = poolptr + 1 ;
	  } 
	} 
	curstring = makestring () ;
	goto lab30 ;
      } 
    } 
  while ( m++ < for_end ) ;} 
  lab45: while ( j < k ) {
      
    j = j + 1 ;
    curgf = getbyte () ;
  } 
  lab30: curgf = getbyte () ;
  Result = c ;
  return Result ;
} 
scaled 
#ifdef HAVE_PROTOTYPES
getyyy ( void ) 
#else
getyyy ( ) 
#endif
{
  register scaled Result; scaled v  ;
  if ( curgf != 243 ) 
  Result = 0 ;
  else {
      
    v = signedquad () ;
    curgf = getbyte () ;
    Result = v ;
  } 
  return Result ;
} 
void 
#ifdef HAVE_PROTOTYPES
skipnop ( void ) 
#else
skipnop ( ) 
#endif
{
  /* 30 */ integer k  ;
  integer j  ;
  switch ( curgf ) 
  {case 244 : 
    goto lab30 ;
    break ;
  case 243 : 
    {
      k = signedquad () ;
      goto lab30 ;
    } 
    break ;
  case 239 : 
    k = getbyte () ;
    break ;
  case 240 : 
    k = gettwobytes () ;
    break ;
  case 241 : 
    k = getthreebytes () ;
    break ;
  case 242 : 
    k = signedquad () ;
    break ;
  } 
  {register integer for_end; j = 1 ;for_end = k ; if ( j <= for_end) do 
    curgf = getbyte () ;
  while ( j++ < for_end ) ;} 
  lab30: curgf = getbyte () ;
} 
void 
#ifdef HAVE_PROTOTYPES
beginname ( void ) 
#else
beginname ( ) 
#endif
{
  areadelimiter = 0 ;
  extdelimiter = 0 ;
} 
boolean 
#ifdef HAVE_PROTOTYPES
zmorename ( ASCIIcode c ) 
#else
zmorename ( c ) 
  ASCIIcode c ;
#endif
{
  register boolean Result; if ( c == 32 ) 
  Result = false ;
  else {
      
    if ( ( c == 47 ) ) 
    {
      areadelimiter = poolptr ;
      extdelimiter = 0 ;
    } 
    else if ( c == 46 ) 
    extdelimiter = poolptr ;
    {
      if ( poolptr + 1 > poolsize ) 
      {
	fprintf( stderr , "%s\n",  "Too many strings!" ) ;
	uexit ( 1 ) ;
      } 
    } 
    {
      strpool [poolptr ]= c ;
      poolptr = poolptr + 1 ;
    } 
    Result = true ;
  } 
  return Result ;
} 
void 
#ifdef HAVE_PROTOTYPES
endname ( void ) 
#else
endname ( ) 
#endif
{
  if ( strptr + 3 > maxstrings ) 
  {
    fprintf( stderr , "%s\n",  "Too many strings!" ) ;
    uexit ( 1 ) ;
  } 
  if ( areadelimiter == 0 ) 
  curarea = 0 ;
  else {
      
    curarea = strptr ;
    strptr = strptr + 1 ;
    strstart [strptr ]= areadelimiter + 1 ;
  } 
  if ( extdelimiter == 0 ) 
  {
    curext = 0 ;
    curname = makestring () ;
  } 
  else {
      
    curname = strptr ;
    strptr = strptr + 1 ;
    strstart [strptr ]= extdelimiter ;
    curext = makestring () ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
zpackfilename ( strnumber n , strnumber a , strnumber e ) 
#else
zpackfilename ( n , a , e ) 
  strnumber n ;
  strnumber a ;
  strnumber e ;
#endif
{
  integer k  ;
  ASCIIcode c  ;
  integer j  ;
  integer namelength  ;
  namelength = ( strstart [a + 1 ]- strstart [a ]) + ( strstart [n + 1 ]
  - strstart [n ]) + ( strstart [e + 1 ]- strstart [e ]) ;
  nameoffile = xmalloc ( namelength + 1 ) ;
  k = -1 ;
  {register integer for_end; j = strstart [a ];for_end = strstart [a + 1 
  ]- 1 ; if ( j <= for_end) do 
    {
      c = strpool [j ];
      k = k + 1 ;
      nameoffile [k ]= xchr [c ];
    } 
  while ( j++ < for_end ) ;} 
  {register integer for_end; j = strstart [n ];for_end = strstart [n + 1 
  ]- 1 ; if ( j <= for_end) do 
    {
      c = strpool [j ];
      k = k + 1 ;
      nameoffile [k ]= xchr [c ];
    } 
  while ( j++ < for_end ) ;} 
  {register integer for_end; j = strstart [e ];for_end = strstart [e + 1 
  ]- 1 ; if ( j <= for_end) do 
    {
      c = strpool [j ];
      k = k + 1 ;
      nameoffile [k ]= xchr [c ];
    } 
  while ( j++ < for_end ) ;} 
  nameoffile [namelength ]= 0 ;
} 
void 
#ifdef HAVE_PROTOTYPES
startgf ( void ) 
#else
startgf ( ) 
#endif
{
  /* 30 */ char * argbuffer  ;
  integer argbufptr  ;
  argbuffer = cmdline ( optind ) ;
  argbufptr = 0 ;
  while ( ( linelength < terminallinelength ) && ( argbuffer [argbufptr ]!= 
  0 ) ) {
      
    buffer [linelength ]= xord [argbuffer [argbufptr ]];
    linelength = linelength + 1 ;
    argbufptr = argbufptr + 1 ;
  } 
  bufptr = 0 ;
  buffer [linelength ]= 63 ;
  while ( buffer [bufptr ]== 32 ) bufptr = bufptr + 1 ;
  if ( bufptr < linelength ) 
  {
    if ( buffer [linelength - 1 ]== 47 ) 
    {
      interaction = true ;
      linelength = linelength - 1 ;
    } 
    beginname () ;
    while ( true ) {
	
      if ( bufptr == linelength ) 
      goto lab30 ;
      if ( ! morename ( buffer [bufptr ]) ) 
      goto lab30 ;
      bufptr = bufptr + 1 ;
    } 
    lab30: endname () ;
    if ( curext == 0 ) 
    curext = 19 ;
    packfilename ( curname , curarea , curext ) ;
    opengffile () ;
  } 
  jobname = curname ;
  packfilename ( jobname , 0 , 20 ) ;
  opendvifile () ;
} 
void 
#ifdef HAVE_PROTOTYPES
zwritedvi ( dviindex a , dviindex b ) 
#else
zwritedvi ( a , b ) 
  dviindex a ;
  dviindex b ;
#endif
{
  writechunk ( dvifile , dvibuf , a , b ) ;
} 
void 
#ifdef HAVE_PROTOTYPES
dviswap ( void ) 
#else
dviswap ( ) 
#endif
{
  if ( dvilimit == dvibufsize ) 
  {
    writedvi ( 0 , halfbuf - 1 ) ;
    dvilimit = halfbuf ;
    dvioffset = dvioffset + dvibufsize ;
    dviptr = 0 ;
  } 
  else {
      
    writedvi ( halfbuf , dvibufsize - 1 ) ;
    dvilimit = dvibufsize ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
zdvifour ( integer x ) 
#else
zdvifour ( x ) 
  integer x ;
#endif
{
  if ( x >= 0 ) 
  {
    dvibuf [dviptr ]= x / 16777216L ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
  else {
      
    x = x + 1073741824L ;
    x = x + 1073741824L ;
    {
      dvibuf [dviptr ]= ( x / 16777216L ) + 128 ;
      dviptr = dviptr + 1 ;
      if ( dviptr == dvilimit ) 
      dviswap () ;
    } 
  } 
  x = x % 16777216L ;
  {
    dvibuf [dviptr ]= x / 65536L ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
  x = x % 65536L ;
  {
    dvibuf [dviptr ]= x / 256 ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
  {
    dvibuf [dviptr ]= x % 256 ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
zdvifontdef ( internalfontnumber f ) 
#else
zdvifontdef ( f ) 
  internalfontnumber f ;
#endif
{
  integer k  ;
  {
    dvibuf [dviptr ]= 243 ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
  {
    dvibuf [dviptr ]= f ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
  {
    dvibuf [dviptr ]= fontcheck [f ].B0 - 0 ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
  {
    dvibuf [dviptr ]= fontcheck [f ].B1 - 0 ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
  {
    dvibuf [dviptr ]= fontcheck [f ].B2 - 0 ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
  {
    dvibuf [dviptr ]= fontcheck [f ].B3 - 0 ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
  dvifour ( fontsize [f ]) ;
  dvifour ( fontdsize [f ]) ;
  {
    dvibuf [dviptr ]= ( strstart [fontarea [f ]+ 1 ]- strstart [
    fontarea [f ]]) ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
  {
    dvibuf [dviptr ]= ( strstart [fontname [f ]+ 1 ]- strstart [
    fontname [f ]]) ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
  {register integer for_end; k = strstart [fontarea [f ]];for_end = 
  strstart [fontarea [f ]+ 1 ]- 1 ; if ( k <= for_end) do 
    {
      dvibuf [dviptr ]= strpool [k ];
      dviptr = dviptr + 1 ;
      if ( dviptr == dvilimit ) 
      dviswap () ;
    } 
  while ( k++ < for_end ) ;} 
  {register integer for_end; k = strstart [fontname [f ]];for_end = 
  strstart [fontname [f ]+ 1 ]- 1 ; if ( k <= for_end) do 
    {
      dvibuf [dviptr ]= strpool [k ];
      dviptr = dviptr + 1 ;
      if ( dviptr == dvilimit ) 
      dviswap () ;
    } 
  while ( k++ < for_end ) ;} 
} 
void 
#ifdef HAVE_PROTOTYPES
loadfonts ( void ) 
#else
loadfonts ( ) 
#endif
{
  /* 30 22 40 45 */ internalfontnumber f  ;
  fourquarters i  ;
  integer j, k, v  ;
  char m  ;
  char n1  ;
  poolpointer n2  ;
  if ( interaction ) 
  while ( true ) {
      
    lab45: {
	
      putc ('\n',  stdout );
      Fputs( stdout ,  "Special font substitution: " ) ;
    } 
    lab22: inputln () ;
    if ( linelength == 0 ) 
    goto lab30 ;
    bufptr = 0 ;
    buffer [linelength ]= 32 ;
    while ( buffer [bufptr ]!= 32 ) bufptr = bufptr + 1 ;
    {register integer for_end; m = 1 ;for_end = 8 ; if ( m <= for_end) do 
      if ( ( strstart [m + 1 ]- strstart [m ]) == bufptr ) 
      {
	n1 = 0 ;
	n2 = strstart [m ];
	while ( ( n1 < bufptr ) && ( buffer [n1 ]== strpool [n2 ]) ) {
	    
	  n1 = n1 + 1 ;
	  n2 = n2 + 1 ;
	} 
	if ( n1 == bufptr ) 
	goto lab40 ;
      } 
    while ( m++ < for_end ) ;} 
    Fputs( stdout ,      "Please say, e.g., \"grayfont foo\" or \"slantfontarea baz\"." ) ;
    goto lab45 ;
    lab40: bufptr = bufptr + 1 ;
    {
      if ( poolptr + linelength - bufptr > poolsize ) 
      {
	fprintf( stderr , "%s\n",  "Too many strings!" ) ;
	uexit ( 1 ) ;
      } 
    } 
    while ( bufptr < linelength ) {
	
      {
	strpool [poolptr ]= buffer [bufptr ];
	poolptr = poolptr + 1 ;
      } 
      bufptr = bufptr + 1 ;
    } 
    if ( m > 4 ) 
    fontarea [m - 4 ]= makestring () ;
    else {
	
      fontname [m ]= makestring () ;
      fontarea [m ]= 0 ;
      fontat [m ]= 0 ;
    } 
    initstrptr = strptr ;
    Fputs( stdout ,  "OK; any more? " ) ;
    goto lab22 ;
  } 
  lab30: ;
  fontsnotloaded = false ;
  {register integer for_end; f = 1 ;for_end = 5 ; if ( f <= for_end) do 
    if ( ( f != 4 ) || ( ( strstart [fontname [f ]+ 1 ]- strstart [
    fontname [f ]]) > 0 ) ) 
    {
      if ( ( strstart [fontarea [f ]+ 1 ]- strstart [fontarea [f ]]) 
      == 0 ) 
      fontarea [f ]= 34 ;
      packfilename ( fontname [f ], fontarea [f ], 21 ) ;
      opentfmfile () ;
      readfontinfo ( f , fontat [f ]) ;
      if ( fontarea [f ]== 34 ) 
      fontarea [f ]= 0 ;
      dvifontdef ( f ) ;
    } 
  while ( f++ < for_end ) ;} 
  if ( ( strstart [fontname [4 ]+ 1 ]- strstart [fontname [4 ]]) == 0 
  ) 
  ruleslant = 0.0 ;
  else {
      
    ruleslant = fontinfo [1 + parambase [4 ]].sc / ((double) 65536L ) ;
    slantn = fontec [4 ];
    i = fontinfo [charbase [4 ]+ slantn ].qqqq ;
    slantunit = fontinfo [heightbase [4 ]+ ( i .B1 - 0 ) / 16 ].sc 
    / ((double) slantn ) ;
  } 
  slantreported = 0.0 ;
  i = fontinfo [charbase [3 ]+ 1 ].qqqq ;
  if ( ! ( i .B0 > 0 ) ) 
  {
    fprintf( stderr , "%s\n",  "Missing pixel char!" ) ;
    uexit ( 1 ) ;
  } 
  unscxratio = fontinfo [widthbase [3 ]+ i .B0 ].sc ;
  xratio = unscxratio / ((double) 65536L ) ;
  unscyratio = fontinfo [heightbase [3 ]+ ( i .B1 - 0 ) / 16 ].sc ;
  yratio = unscyratio / ((double) 65536L ) ;
  unscslantratio = fontinfo [1 + parambase [3 ]].sc * yratio ;
  slantratio = unscslantratio / ((double) 65536L ) ;
  if ( xratio * yratio == 0 ) 
  {
    fprintf( stderr , "%s\n",  "Vanishing pixel size!" ) ;
    uexit ( 1 ) ;
  } 
  fudgefactor = ( slantratio / ((double) xratio ) ) / ((double) yratio ) ;
  grayrulethickness = fontinfo [8 + parambase [3 ]].sc ;
  if ( grayrulethickness == 0 ) 
  grayrulethickness = 26214 ;
  i = fontinfo [charbase [3 ]+ 0 ].qqqq ;
  if ( ! ( i .B0 > 0 ) ) 
  {
    fprintf( stderr , "%s\n",  "Missing dot char!" ) ;
    uexit ( 1 ) ;
  } 
  dotwidth = fontinfo [widthbase [3 ]+ i .B0 ].sc ;
  dotheight = fontinfo [heightbase [3 ]+ ( i .B1 - 0 ) / 16 ].sc ;
  delta = fontinfo [2 + parambase [2 ]].sc / 2 ;
  thricexheight = 3 * fontinfo [5 + parambase [2 ]].sc ;
  halfxheight = thricexheight / 6 ;
  {register integer for_end; k = 0 ;for_end = 4095 ; if ( k <= for_end) do 
    b [k ]= 0 ;
  while ( k++ < for_end ) ;} 
  {register integer for_end; k = fontbc [3 ];for_end = fontec [3 ]; if ( 
  k <= for_end) do 
    if ( k >= 1 ) 
    if ( k <= 120 ) 
    if ( ( fontinfo [charbase [3 ]+ k ].qqqq .B0 > 0 ) ) 
    {
      v = c [k ];
      do {
	  b [v ]= k ;
	v = v + d [k ];
      } while ( ! ( v > 4095 ) ) ;
    } 
  while ( k++ < for_end ) ;} 
  {register integer for_end; j = 0 ;for_end = 11 ; if ( j <= for_end) do 
    {
      k = twotothe [j ];
      v = k ;
      do {
	  rho [v ]= k ;
	v = v + k + k ;
      } while ( ! ( v > 4095 ) ) ;
    } 
  while ( j++ < for_end ) ;} 
  rho [0 ]= 4096 ;
} 
void 
#ifdef HAVE_PROTOTYPES
ztypeset ( eightbits c ) 
#else
ztypeset ( c ) 
  eightbits c ;
#endif
{
  if ( c >= 128 ) 
  {
    dvibuf [dviptr ]= 128 ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
  {
    dvibuf [dviptr ]= c ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
zdviscaled ( real x ) 
#else
zdviscaled ( x ) 
  real x ;
#endif
{
  integer n  ;
  integer m  ;
  integer k  ;
  n = round ( x / ((double) 6553.6 ) ) ;
  if ( n < 0 ) 
  {
    {
      dvibuf [dviptr ]= 45 ;
      dviptr = dviptr + 1 ;
      if ( dviptr == dvilimit ) 
      dviswap () ;
    } 
    n = - (integer) n ;
  } 
  m = n / 10 ;
  k = 0 ;
  do {
      k = k + 1 ;
    buffer [k ]= ( m % 10 ) + 48 ;
    m = m / 10 ;
  } while ( ! ( m == 0 ) ) ;
  do {
      { 
      dvibuf [dviptr ]= buffer [k ];
      dviptr = dviptr + 1 ;
      if ( dviptr == dvilimit ) 
      dviswap () ;
    } 
    k = k - 1 ;
  } while ( ! ( k == 0 ) ) ;
  if ( n % 10 != 0 ) 
  {
    {
      dvibuf [dviptr ]= 46 ;
      dviptr = dviptr + 1 ;
      if ( dviptr == dvilimit ) 
      dviswap () ;
    } 
    {
      dvibuf [dviptr ]= ( n % 10 ) + 48 ;
      dviptr = dviptr + 1 ;
      if ( dviptr == dvilimit ) 
      dviswap () ;
    } 
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
zhbox ( strnumber s , internalfontnumber f , boolean sendit ) 
#else
zhbox ( s , f , sendit ) 
  strnumber s ;
  internalfontnumber f ;
  boolean sendit ;
#endif
{
  /* 22 30 */ poolpointer k, endk, maxk  ;
  fourquarters i, j  ;
  short curl  ;
  short curr  ;
  short bchar  ;
  integer stackptr  ;
  fontindex l  ;
  scaled kernamount  ;
  eightbits hd  ;
  scaled x  ;
  ASCIIcode savec  ;
  boxwidth = 0 ;
  boxheight = 0 ;
  boxdepth = 0 ;
  k = strstart [s ];
  maxk = strstart [s + 1 ];
  savec = strpool [maxk ];
  strpool [maxk ]= 32 ;
  while ( k < maxk ) {
      
    if ( strpool [k ]== 32 ) 
    {
      boxwidth = boxwidth + fontinfo [2 + parambase [f ]].sc ;
      if ( sendit ) 
      {
	{
	  dvibuf [dviptr ]= 146 ;
	  dviptr = dviptr + 1 ;
	  if ( dviptr == dvilimit ) 
	  dviswap () ;
	} 
	dvifour ( fontinfo [2 + parambase [f ]].sc ) ;
      } 
      k = k + 1 ;
    } 
    else {
	
      endk = k ;
      do {
	  endk = endk + 1 ;
      } while ( ! ( strpool [endk ]== 32 ) ) ;
      kernamount = 0 ;
      curl = 256 ;
      stackptr = 0 ;
      bchar = fontbchar [f ];
      if ( k < endk ) 
      curr = strpool [k ]+ 0 ;
      else curr = bchar ;
      suppresslig = false ;
      lab22: if ( ( curl < fontbc [f ]) || ( curl > fontec [f ]) ) 
      {
	i = dummyinfo ;
	if ( curl == 256 ) 
	l = bcharlabel [f ];
	else l = fontmemsize ;
      } 
      else {
	  
	i = fontinfo [charbase [f ]+ curl ].qqqq ;
	if ( ( ( i .B2 - 0 ) % 4 ) != 1 ) 
	l = fontmemsize ;
	else {
	    
	  l = ligkernbase [f ]+ i .B3 ;
	  j = fontinfo [l ].qqqq ;
	  if ( j .B0 - 0 > 128 ) 
	  l = ligkernbase [f ]+ 256 * ( j .B2 - 0 ) + j .B3 ;
	} 
      } 
      if ( suppresslig ) 
      suppresslig = false ;
      else while ( l < kernbase [f ]+ 0 ) {
	  
	j = fontinfo [l ].qqqq ;
	if ( j .B1 == curr ) 
	if ( j .B0 - 0 <= 128 ) 
	if ( j .B2 - 0 >= 128 ) 
	{
	  kernamount = fontinfo [kernbase [f ]+ 256 * ( j .B2 - 128 ) + j 
	  .B3 ].sc ;
	  goto lab30 ;
	} 
	else {
	    
	  switch ( j .B2 - 0 ) 
	  {case 1 : 
	  case 5 : 
	    curl = j .B3 - 0 ;
	    break ;
	  case 2 : 
	  case 6 : 
	    {
	      curr = j .B3 ;
	      if ( stackptr == 0 ) 
	      {
		stackptr = 1 ;
		if ( k < endk ) 
		k = k + 1 ;
		else bchar = 256 ;
	      } 
	      ligstack [stackptr ]= curr ;
	    } 
	    break ;
	  case 3 : 
	  case 7 : 
	  case 11 : 
	    {
	      curr = j .B3 ;
	      stackptr = stackptr + 1 ;
	      ligstack [stackptr ]= curr ;
	      if ( j .B2 - 0 == 11 ) 
	      suppresslig = true ;
	    } 
	    break ;
	    default: 
	    {
	      curl = j .B3 - 0 ;
	      if ( stackptr > 0 ) 
	      {
		stackptr = stackptr - 1 ;
		if ( stackptr > 0 ) 
		curr = ligstack [stackptr ];
		else if ( k < endk ) 
		curr = strpool [k ]+ 0 ;
		else curr = bchar ;
	      } 
	      else if ( k == endk ) 
	      goto lab30 ;
	      else {
		  
		k = k + 1 ;
		if ( k < endk ) 
		curr = strpool [k ]+ 0 ;
		else curr = bchar ;
	      } 
	    } 
	    break ;
	  } 
	  if ( j .B2 - 0 > 3 ) 
	  goto lab30 ;
	  goto lab22 ;
	} 
	if ( j .B0 - 0 >= 128 ) 
	goto lab30 ;
	l = l + j .B0 + 1 ;
      } 
      lab30: ;
      if ( ( i .B0 > 0 ) ) 
      {
	boxwidth = boxwidth + fontinfo [widthbase [f ]+ i .B0 ].sc + 
	kernamount ;
	hd = i .B1 - 0 ;
	x = fontinfo [heightbase [f ]+ ( hd ) / 16 ].sc ;
	if ( x > boxheight ) 
	boxheight = x ;
	x = fontinfo [depthbase [f ]+ hd % 16 ].sc ;
	if ( x > boxdepth ) 
	boxdepth = x ;
	if ( sendit ) 
	{
	  typeset ( curl ) ;
	  if ( kernamount != 0 ) 
	  {
	    {
	      dvibuf [dviptr ]= 146 ;
	      dviptr = dviptr + 1 ;
	      if ( dviptr == dvilimit ) 
	      dviswap () ;
	    } 
	    dvifour ( kernamount ) ;
	  } 
	} 
	kernamount = 0 ;
      } 
      curl = curr - 0 ;
      if ( stackptr > 0 ) 
      {
	{
	  stackptr = stackptr - 1 ;
	  if ( stackptr > 0 ) 
	  curr = ligstack [stackptr ];
	  else if ( k < endk ) 
	  curr = strpool [k ]+ 0 ;
	  else curr = bchar ;
	} 
	goto lab22 ;
      } 
      if ( k < endk ) 
      {
	k = k + 1 ;
	if ( k < endk ) 
	curr = strpool [k ]+ 0 ;
	else curr = bchar ;
	goto lab22 ;
      } 
    } 
  } 
  strpool [maxk ]= savec ;
} 
void 
#ifdef HAVE_PROTOTYPES
zslantcomplaint ( real r ) 
#else
zslantcomplaint ( r ) 
  real r ;
#endif
{
  if ( fabs ( r - slantreported ) > 0.001 ) 
  {
    {
      putc ('\n',  stdout );
      Fputs( stdout ,  "Sorry, I can't make diagonal rules of slant " ) ;
    } 
    printreal ( r , 10 , 5 ) ;
    putc ( '!' ,  stdout );
    slantreported = r ;
  } 
} 
nodepointer 
#ifdef HAVE_PROTOTYPES
getavail ( void ) 
#else
getavail ( ) 
#endif
{
  register nodepointer Result; maxnode = maxnode + 1 ;
  if ( maxnode == maxlabels ) 
  {
    fprintf( stderr , "%s\n",  "Too many labels and/or rules!" ) ;
    uexit ( 1 ) ;
  } 
  Result = maxnode ;
  return Result ;
} 
void 
#ifdef HAVE_PROTOTYPES
znodeins ( nodepointer p , nodepointer q ) 
#else
znodeins ( p , q ) 
  nodepointer p ;
  nodepointer q ;
#endif
{
  nodepointer r  ;
  if ( yy [p ]>= yy [q ]) 
  {
    do {
	r = q ;
      q = next [q ];
    } while ( ! ( yy [p ]<= yy [q ]) ) ;
    next [r ]= p ;
    prev [p ]= r ;
    next [p ]= q ;
    prev [q ]= p ;
  } 
  else {
      
    do {
	r = q ;
      q = prev [q ];
    } while ( ! ( yy [p ]>= yy [q ]) ) ;
    prev [r ]= p ;
    next [p ]= r ;
    prev [p ]= q ;
    next [q ]= p ;
  } 
  if ( yy [p ]- yt [p ]> maxheight ) 
  maxheight = yy [p ]- yt [p ];
  if ( yb [p ]- yy [p ]> maxdepth ) 
  maxdepth = yb [p ]- yy [p ];
} 
boolean 
#ifdef HAVE_PROTOTYPES
zoverlap ( nodepointer p , nodepointer q ) 
#else
zoverlap ( p , q ) 
  nodepointer p ;
  nodepointer q ;
#endif
{
  /* 10 */ register boolean Result; scaled ythresh  ;
  scaled xleft, xright, ytop, ybot  ;
  nodepointer r  ;
  xleft = xl [p ];
  xright = xr [p ];
  ytop = yt [p ];
  ybot = yb [p ];
  ythresh = ybot + maxheight ;
  r = next [q ];
  while ( yy [r ]< ythresh ) {
      
    if ( ybot > yt [r ]) 
    if ( xleft < xr [r ]) 
    if ( xright > xl [r ]) 
    if ( ytop < yb [r ]) 
    {
      Result = true ;
      goto lab10 ;
    } 
    r = next [r ];
  } 
  ythresh = ytop - maxdepth ;
  r = q ;
  while ( yy [r ]> ythresh ) {
      
    if ( ybot > yt [r ]) 
    if ( xleft < xr [r ]) 
    if ( xright > xl [r ]) 
    if ( ytop < yb [r ]) 
    {
      Result = true ;
      goto lab10 ;
    } 
    r = prev [r ];
  } 
  Result = false ;
  lab10: ;
  return Result ;
} 
nodepointer 
#ifdef HAVE_PROTOTYPES
znearestdot ( nodepointer p , scaled d0 ) 
#else
znearestdot ( p , d0 ) 
  nodepointer p ;
  scaled d0 ;
#endif
{
  register nodepointer Result; nodepointer bestq  ;
  scaled dmin, d  ;
  twin = false ;
  bestq = 0 ;
  dmin = 268435456L ;
  q = next [p ];
  while ( yy [q ]< yy [p ]+ dmin ) {
      
    d = abs ( xx [q ]- xx [p ]) ;
    if ( d < yy [q ]- yy [p ]) 
    d = yy [q ]- yy [p ];
    if ( d < d0 ) 
    twin = true ;
    else if ( d < dmin ) 
    {
      dmin = d ;
      bestq = q ;
    } 
    q = next [q ];
  } 
  q = prev [p ];
  while ( yy [q ]> yy [p ]- dmin ) {
      
    d = abs ( xx [q ]- xx [p ]) ;
    if ( d < yy [p ]- yy [q ]) 
    d = yy [p ]- yy [q ];
    if ( d < d0 ) 
    twin = true ;
    else if ( d < dmin ) 
    {
      dmin = d ;
      bestq = q ;
    } 
    q = prev [q ];
  } 
  Result = bestq ;
  return Result ;
} 
void 
#ifdef HAVE_PROTOTYPES
zconvert ( scaled x , scaled y ) 
#else
zconvert ( x , y ) 
  scaled x ;
  scaled y ;
#endif
{
  x = x + xoffset ;
  y = y + yoffset ;
  dviy = - (integer) round ( yratio * y ) + deltay ;
  dvix = round ( xratio * x + slantratio * y ) + deltax ;
} 
void 
#ifdef HAVE_PROTOTYPES
zdvigoto ( scaled x , scaled y ) 
#else
zdvigoto ( x , y ) 
  scaled x ;
  scaled y ;
#endif
{
  {
    dvibuf [dviptr ]= 141 ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
  if ( x != 0 ) 
  {
    {
      dvibuf [dviptr ]= 146 ;
      dviptr = dviptr + 1 ;
      if ( dviptr == dvilimit ) 
      dviswap () ;
    } 
    dvifour ( x ) ;
  } 
  if ( y != 0 ) 
  {
    {
      dvibuf [dviptr ]= 160 ;
      dviptr = dviptr + 1 ;
      if ( dviptr == dvilimit ) 
      dviswap () ;
    } 
    dvifour ( y ) ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
ztopcoords ( nodepointer p ) 
#else
ztopcoords ( p ) 
  nodepointer p ;
#endif
{
  xx [p ]= dvix - ( boxwidth / 2 ) ;
  xl [p ]= xx [p ]- delta ;
  xr [p ]= xx [p ]+ boxwidth + delta ;
  yb [p ]= dviy - dotheight ;
  yy [p ]= yb [p ]- boxdepth ;
  yt [p ]= yy [p ]- boxheight - delta ;
} 
void 
#ifdef HAVE_PROTOTYPES
zbotcoords ( nodepointer p ) 
#else
zbotcoords ( p ) 
  nodepointer p ;
#endif
{
  xx [p ]= dvix - ( boxwidth / 2 ) ;
  xl [p ]= xx [p ]- delta ;
  xr [p ]= xx [p ]+ boxwidth + delta ;
  yt [p ]= dviy + dotheight ;
  yy [p ]= yt [p ]+ boxheight ;
  yb [p ]= yy [p ]+ boxdepth + delta ;
} 
void 
#ifdef HAVE_PROTOTYPES
zrightcoords ( nodepointer p ) 
#else
zrightcoords ( p ) 
  nodepointer p ;
#endif
{
  xl [p ]= dvix + dotwidth ;
  xx [p ]= xl [p ];
  xr [p ]= xx [p ]+ boxwidth + delta ;
  yy [p ]= dviy + halfxheight ;
  yb [p ]= yy [p ]+ boxdepth + delta ;
  yt [p ]= yy [p ]- boxheight - delta ;
} 
void 
#ifdef HAVE_PROTOTYPES
zleftcoords ( nodepointer p ) 
#else
zleftcoords ( p ) 
  nodepointer p ;
#endif
{
  xr [p ]= dvix - dotwidth ;
  xx [p ]= xr [p ]- boxwidth ;
  xl [p ]= xx [p ]- delta ;
  yy [p ]= dviy + halfxheight ;
  yb [p ]= yy [p ]+ boxdepth + delta ;
  yt [p ]= yy [p ]- boxheight - delta ;
} 
boolean 
#ifdef HAVE_PROTOTYPES
zplacelabel ( nodepointer p ) 
#else
zplacelabel ( p ) 
  nodepointer p ;
#endif
{
  /* 10 40 */ register boolean Result; char oct  ;
  nodepointer dfl  ;
  hbox ( info [p ], 2 , false ) ;
  dvix = xx [p ];
  dviy = yy [p ];
  dfl = xl [p ];
  oct = xr [p ];
  switch ( oct ) 
  {case 0 : 
  case 4 : 
  case 9 : 
  case 13 : 
    leftcoords ( p ) ;
    break ;
  case 1 : 
  case 2 : 
  case 8 : 
  case 11 : 
    botcoords ( p ) ;
    break ;
  case 3 : 
  case 7 : 
  case 10 : 
  case 14 : 
    rightcoords ( p ) ;
    break ;
  case 6 : 
  case 5 : 
  case 15 : 
  case 12 : 
    topcoords ( p ) ;
    break ;
  } 
  if ( ! overlap ( p , dfl ) ) 
  goto lab40 ;
  switch ( oct ) 
  {case 0 : 
  case 3 : 
  case 15 : 
  case 12 : 
    botcoords ( p ) ;
    break ;
  case 1 : 
  case 5 : 
  case 10 : 
  case 14 : 
    leftcoords ( p ) ;
    break ;
  case 2 : 
  case 6 : 
  case 9 : 
  case 13 : 
    rightcoords ( p ) ;
    break ;
  case 7 : 
  case 4 : 
  case 8 : 
  case 11 : 
    topcoords ( p ) ;
    break ;
  } 
  if ( ! overlap ( p , dfl ) ) 
  goto lab40 ;
  switch ( oct ) 
  {case 0 : 
  case 3 : 
  case 14 : 
  case 13 : 
    topcoords ( p ) ;
    break ;
  case 1 : 
  case 5 : 
  case 11 : 
  case 15 : 
    rightcoords ( p ) ;
    break ;
  case 2 : 
  case 6 : 
  case 8 : 
  case 12 : 
    leftcoords ( p ) ;
    break ;
  case 7 : 
  case 4 : 
  case 9 : 
  case 10 : 
    botcoords ( p ) ;
    break ;
  } 
  if ( ! overlap ( p , dfl ) ) 
  goto lab40 ;
  switch ( oct ) 
  {case 0 : 
  case 4 : 
  case 8 : 
  case 12 : 
    rightcoords ( p ) ;
    break ;
  case 1 : 
  case 2 : 
  case 9 : 
  case 10 : 
    topcoords ( p ) ;
    break ;
  case 3 : 
  case 7 : 
  case 11 : 
  case 15 : 
    leftcoords ( p ) ;
    break ;
  case 6 : 
  case 5 : 
  case 14 : 
  case 13 : 
    botcoords ( p ) ;
    break ;
  } 
  if ( ! overlap ( p , dfl ) ) 
  goto lab40 ;
  xx [p ]= dvix ;
  yy [p ]= dviy ;
  xl [p ]= dfl ;
  Result = false ;
  goto lab10 ;
  lab40: nodeins ( p , dfl ) ;
  dvigoto ( xx [p ], yy [p ]) ;
  hbox ( info [p ], 2 , true ) ;
  {
    dvibuf [dviptr ]= 142 ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
  Result = true ;
  lab10: ;
  return Result ;
} 
void 
#ifdef HAVE_PROTOTYPES
dopixels ( void ) 
#else
dopixels ( ) 
#endif
{
  /* 30 31 21 22 10 */ boolean paintblack  ;
  integer startingcol, finishingcol  ;
  integer j  ;
  integer l  ;
  fourquarters i  ;
  eightbits v  ;
  {
    dvibuf [dviptr ]= 174 ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
  deltax = deltax + round ( unscxratio * minx ) ;
  {register integer for_end; j = 0 ;for_end = maxx - minx ; if ( j <= 
  for_end) do 
    a [j ]= 0 ;
  while ( j++ < for_end ) ;} 
  l = 1 ;
  z = 0 ;
  startingcol = 0 ;
  finishingcol = 0 ;
  y = maxy + 12 ;
  paintblack = false ;
  blankrows = 0 ;
  curgf = getbyte () ;
  while ( true ) {
      
    do {
	if ( blankrows > 0 ) 
      blankrows = blankrows - 1 ;
      else if ( curgf != 69 ) 
      {
	x = z ;
	if ( startingcol > x ) 
	startingcol = x ;
	while ( true ) {
	    
	  lab22: if ( ( curgf >= 74 ) && ( curgf <= 238 ) ) 
	  {
	    z = curgf - 74 ;
	    paintblack = true ;
	    curgf = getbyte () ;
	    goto lab31 ;
	  } 
	  else switch ( curgf ) 
	  {case 0 : 
	  case 1 : 
	  case 2 : 
	  case 3 : 
	  case 4 : 
	  case 5 : 
	  case 6 : 
	  case 7 : 
	  case 8 : 
	  case 9 : 
	  case 10 : 
	  case 11 : 
	  case 12 : 
	  case 13 : 
	  case 14 : 
	  case 15 : 
	  case 16 : 
	  case 17 : 
	  case 18 : 
	  case 19 : 
	  case 20 : 
	  case 21 : 
	  case 22 : 
	  case 23 : 
	  case 24 : 
	  case 25 : 
	  case 26 : 
	  case 27 : 
	  case 28 : 
	  case 29 : 
	  case 30 : 
	  case 31 : 
	  case 32 : 
	  case 33 : 
	  case 34 : 
	  case 35 : 
	  case 36 : 
	  case 37 : 
	  case 38 : 
	  case 39 : 
	  case 40 : 
	  case 41 : 
	  case 42 : 
	  case 43 : 
	  case 44 : 
	  case 45 : 
	  case 46 : 
	  case 47 : 
	  case 48 : 
	  case 49 : 
	  case 50 : 
	  case 51 : 
	  case 52 : 
	  case 53 : 
	  case 54 : 
	  case 55 : 
	  case 56 : 
	  case 57 : 
	  case 58 : 
	  case 59 : 
	  case 60 : 
	  case 61 : 
	  case 62 : 
	  case 63 : 
	    k = curgf ;
	    break ;
	  case 64 : 
	    k = getbyte () ;
	    break ;
	  case 65 : 
	    k = gettwobytes () ;
	    break ;
	  case 66 : 
	    k = getthreebytes () ;
	    break ;
	  case 69 : 
	    goto lab31 ;
	    break ;
	  case 70 : 
	    {
	      blankrows = 0 ;
	      z = 0 ;
	      paintblack = false ;
	      curgf = getbyte () ;
	      goto lab31 ;
	    } 
	    break ;
	  case 71 : 
	    {
	      blankrows = getbyte () ;
	      z = 0 ;
	      paintblack = false ;
	      curgf = getbyte () ;
	      goto lab31 ;
	    } 
	    break ;
	  case 72 : 
	    {
	      blankrows = gettwobytes () ;
	      z = 0 ;
	      paintblack = false ;
	      curgf = getbyte () ;
	      goto lab31 ;
	    } 
	    break ;
	  case 73 : 
	    {
	      blankrows = getthreebytes () ;
	      z = 0 ;
	      paintblack = false ;
	      curgf = getbyte () ;
	      goto lab31 ;
	    } 
	    break ;
	  case 239 : 
	  case 240 : 
	  case 241 : 
	  case 242 : 
	  case 243 : 
	  case 244 : 
	    {
	      skipnop () ;
	      goto lab22 ;
	    } 
	    break ;
	    default: 
	    {
	      fprintf( stderr , "%s%s%s%ld%c\n",  "Bad GF file: " , "Improper opcode" ,               "! (at byte " , (long)curloc - 1 , ')' ) ;
	      uexit ( 1 ) ;
	    } 
	    break ;
	  } 
	  if ( x + k > finishingcol ) 
	  finishingcol = x + k ;
	  if ( paintblack ) 
	  {register integer for_end; j = x ;for_end = x + k - 1 ; if ( j <= 
	  for_end) do 
	    a [j ]= a [j ]+ l ;
	  while ( j++ < for_end ) ;} 
	  paintblack = ! paintblack ;
	  x = x + k ;
	  curgf = getbyte () ;
	} 
	lab31: ;
      } 
      l = l + l ;
      y = y - 1 ;
    } while ( ! ( l == 4096 ) ) ;
    dvigoto ( 0 , deltay - round ( unscyratio * y ) ) ;
    j = startingcol ;
    while ( true ) {
	
      while ( ( j <= finishingcol ) && ( b [a [j ]]== 0 ) ) j = j + 1 ;
      if ( j > finishingcol ) 
      goto lab30 ;
      {
	dvibuf [dviptr ]= 141 ;
	dviptr = dviptr + 1 ;
	if ( dviptr == dvilimit ) 
	dviswap () ;
      } 
      {
	dvibuf [dviptr ]= 146 ;
	dviptr = dviptr + 1 ;
	if ( dviptr == dvilimit ) 
	dviswap () ;
      } 
      dvifour ( round ( unscxratio * j + unscslantratio * y ) + deltax ) ;
      do {
	  v = b [a [j ]];
	a [j ]= a [j ]- c [v ];
	k = j ;
	j = j + 1 ;
	while ( b [a [j ]]== v ) {
	    
	  a [j ]= a [j ]- c [v ];
	  j = j + 1 ;
	} 
	k = j - k ;
	lab21: if ( k == 1 ) 
	typeset ( v ) ;
	else {
	    
	  i = fontinfo [charbase [3 ]+ v ].qqqq ;
	  if ( ( ( i .B2 - 0 ) % 4 ) == 2 ) 
	  {
	    if ( odd ( k ) ) 
	    typeset ( v ) ;
	    k = k / 2 ;
	    v = i .B3 - 0 ;
	    goto lab21 ;
	  } 
	  else do {
	      typeset ( v ) ;
	    k = k - 1 ;
	  } while ( ! ( k == 0 ) ) ;
	} 
      } while ( ! ( b [a [j ]]== 0 ) ) ;
      {
	dvibuf [dviptr ]= 142 ;
	dviptr = dviptr + 1 ;
	if ( dviptr == dvilimit ) 
	dviswap () ;
      } 
    } 
    lab30: ;
    {
      dvibuf [dviptr ]= 142 ;
      dviptr = dviptr + 1 ;
      if ( dviptr == dvilimit ) 
      dviswap () ;
    } 
    l = rho [a [startingcol ]];
    {register integer for_end; j = startingcol + 1 ;for_end = finishingcol 
    ; if ( j <= for_end) do 
      if ( l > rho [a [j ]]) 
      l = rho [a [j ]];
    while ( j++ < for_end ) ;} 
    if ( l == 4096 ) 
    if ( curgf == 69 ) 
    goto lab10 ;
    else {
	
      y = y - blankrows ;
      blankrows = 0 ;
      l = 1 ;
      startingcol = z ;
      finishingcol = z ;
    } 
    else {
	
      while ( a [startingcol ]== 0 ) startingcol = startingcol + 1 ;
      while ( a [finishingcol ]== 0 ) finishingcol = finishingcol - 1 ;
      {register integer for_end; j = startingcol ;for_end = finishingcol 
      ; if ( j <= for_end) do 
	a [j ]= a [j ]/ l ;
      while ( j++ < for_end ) ;} 
      l = 4096 / l ;
    } 
  } 
  lab10: ;
} 
void mainbody() {
    
  initialize () ;
  strptr = 0 ;
  poolptr = 0 ;
  strstart [0 ]= 0 ;
  l = 0 ;
  firststring ( 0 ) ;
  l = 9 ;
  buffer [9 ]= 116 ;
  buffer [8 ]= 105 ;
  buffer [7 ]= 116 ;
  buffer [6 ]= 108 ;
  buffer [5 ]= 101 ;
  buffer [4 ]= 102 ;
  buffer [3 ]= 111 ;
  buffer [2 ]= 110 ;
  buffer [1 ]= 116 ;
  firststring ( 1 ) ;
  l = 9 ;
  buffer [9 ]= 108 ;
  buffer [8 ]= 97 ;
  buffer [7 ]= 98 ;
  buffer [6 ]= 101 ;
  buffer [5 ]= 108 ;
  buffer [4 ]= 102 ;
  buffer [3 ]= 111 ;
  buffer [2 ]= 110 ;
  buffer [1 ]= 116 ;
  firststring ( 2 ) ;
  l = 8 ;
  buffer [8 ]= 103 ;
  buffer [7 ]= 114 ;
  buffer [6 ]= 97 ;
  buffer [5 ]= 121 ;
  buffer [4 ]= 102 ;
  buffer [3 ]= 111 ;
  buffer [2 ]= 110 ;
  buffer [1 ]= 116 ;
  firststring ( 3 ) ;
  l = 9 ;
  buffer [9 ]= 115 ;
  buffer [8 ]= 108 ;
  buffer [7 ]= 97 ;
  buffer [6 ]= 110 ;
  buffer [5 ]= 116 ;
  buffer [4 ]= 102 ;
  buffer [3 ]= 111 ;
  buffer [2 ]= 110 ;
  buffer [1 ]= 116 ;
  firststring ( 4 ) ;
  l = 13 ;
  buffer [13 ]= 116 ;
  buffer [12 ]= 105 ;
  buffer [11 ]= 116 ;
  buffer [10 ]= 108 ;
  buffer [9 ]= 101 ;
  buffer [8 ]= 102 ;
  buffer [7 ]= 111 ;
  buffer [6 ]= 110 ;
  buffer [5 ]= 116 ;
  buffer [4 ]= 97 ;
  buffer [3 ]= 114 ;
  buffer [2 ]= 101 ;
  buffer [1 ]= 97 ;
  firststring ( 5 ) ;
  l = 13 ;
  buffer [13 ]= 108 ;
  buffer [12 ]= 97 ;
  buffer [11 ]= 98 ;
  buffer [10 ]= 101 ;
  buffer [9 ]= 108 ;
  buffer [8 ]= 102 ;
  buffer [7 ]= 111 ;
  buffer [6 ]= 110 ;
  buffer [5 ]= 116 ;
  buffer [4 ]= 97 ;
  buffer [3 ]= 114 ;
  buffer [2 ]= 101 ;
  buffer [1 ]= 97 ;
  firststring ( 6 ) ;
  l = 12 ;
  buffer [12 ]= 103 ;
  buffer [11 ]= 114 ;
  buffer [10 ]= 97 ;
  buffer [9 ]= 121 ;
  buffer [8 ]= 102 ;
  buffer [7 ]= 111 ;
  buffer [6 ]= 110 ;
  buffer [5 ]= 116 ;
  buffer [4 ]= 97 ;
  buffer [3 ]= 114 ;
  buffer [2 ]= 101 ;
  buffer [1 ]= 97 ;
  firststring ( 7 ) ;
  l = 13 ;
  buffer [13 ]= 115 ;
  buffer [12 ]= 108 ;
  buffer [11 ]= 97 ;
  buffer [10 ]= 110 ;
  buffer [9 ]= 116 ;
  buffer [8 ]= 102 ;
  buffer [7 ]= 111 ;
  buffer [6 ]= 110 ;
  buffer [5 ]= 116 ;
  buffer [4 ]= 97 ;
  buffer [3 ]= 114 ;
  buffer [2 ]= 101 ;
  buffer [1 ]= 97 ;
  firststring ( 8 ) ;
  l = 11 ;
  buffer [11 ]= 116 ;
  buffer [10 ]= 105 ;
  buffer [9 ]= 116 ;
  buffer [8 ]= 108 ;
  buffer [7 ]= 101 ;
  buffer [6 ]= 102 ;
  buffer [5 ]= 111 ;
  buffer [4 ]= 110 ;
  buffer [3 ]= 116 ;
  buffer [2 ]= 97 ;
  buffer [1 ]= 116 ;
  firststring ( 9 ) ;
  l = 11 ;
  buffer [11 ]= 108 ;
  buffer [10 ]= 97 ;
  buffer [9 ]= 98 ;
  buffer [8 ]= 101 ;
  buffer [7 ]= 108 ;
  buffer [6 ]= 102 ;
  buffer [5 ]= 111 ;
  buffer [4 ]= 110 ;
  buffer [3 ]= 116 ;
  buffer [2 ]= 97 ;
  buffer [1 ]= 116 ;
  firststring ( 10 ) ;
  l = 10 ;
  buffer [10 ]= 103 ;
  buffer [9 ]= 114 ;
  buffer [8 ]= 97 ;
  buffer [7 ]= 121 ;
  buffer [6 ]= 102 ;
  buffer [5 ]= 111 ;
  buffer [4 ]= 110 ;
  buffer [3 ]= 116 ;
  buffer [2 ]= 97 ;
  buffer [1 ]= 116 ;
  firststring ( 11 ) ;
  l = 11 ;
  buffer [11 ]= 115 ;
  buffer [10 ]= 108 ;
  buffer [9 ]= 97 ;
  buffer [8 ]= 110 ;
  buffer [7 ]= 116 ;
  buffer [6 ]= 102 ;
  buffer [5 ]= 111 ;
  buffer [4 ]= 110 ;
  buffer [3 ]= 116 ;
  buffer [2 ]= 97 ;
  buffer [1 ]= 116 ;
  firststring ( 12 ) ;
  l = 4 ;
  buffer [4 ]= 114 ;
  buffer [3 ]= 117 ;
  buffer [2 ]= 108 ;
  buffer [1 ]= 101 ;
  firststring ( 13 ) ;
  l = 5 ;
  buffer [5 ]= 116 ;
  buffer [4 ]= 105 ;
  buffer [3 ]= 116 ;
  buffer [2 ]= 108 ;
  buffer [1 ]= 101 ;
  firststring ( 14 ) ;
  l = 13 ;
  buffer [13 ]= 114 ;
  buffer [12 ]= 117 ;
  buffer [11 ]= 108 ;
  buffer [10 ]= 101 ;
  buffer [9 ]= 116 ;
  buffer [8 ]= 104 ;
  buffer [7 ]= 105 ;
  buffer [6 ]= 99 ;
  buffer [5 ]= 107 ;
  buffer [4 ]= 110 ;
  buffer [3 ]= 101 ;
  buffer [2 ]= 115 ;
  buffer [1 ]= 115 ;
  firststring ( 15 ) ;
  l = 6 ;
  buffer [6 ]= 111 ;
  buffer [5 ]= 102 ;
  buffer [4 ]= 102 ;
  buffer [3 ]= 115 ;
  buffer [2 ]= 101 ;
  buffer [1 ]= 116 ;
  firststring ( 16 ) ;
  l = 7 ;
  buffer [7 ]= 120 ;
  buffer [6 ]= 111 ;
  buffer [5 ]= 102 ;
  buffer [4 ]= 102 ;
  buffer [3 ]= 115 ;
  buffer [2 ]= 101 ;
  buffer [1 ]= 116 ;
  firststring ( 17 ) ;
  l = 7 ;
  buffer [7 ]= 121 ;
  buffer [6 ]= 111 ;
  buffer [5 ]= 102 ;
  buffer [4 ]= 102 ;
  buffer [3 ]= 115 ;
  buffer [2 ]= 101 ;
  buffer [1 ]= 116 ;
  firststring ( 18 ) ;
  l = 7 ;
  buffer [7 ]= 46 ;
  buffer [6 ]= 50 ;
  buffer [5 ]= 54 ;
  buffer [4 ]= 48 ;
  buffer [3 ]= 50 ;
  buffer [2 ]= 103 ;
  buffer [1 ]= 102 ;
  firststring ( 19 ) ;
  l = 4 ;
  buffer [4 ]= 46 ;
  buffer [3 ]= 100 ;
  buffer [2 ]= 118 ;
  buffer [1 ]= 105 ;
  firststring ( 20 ) ;
  l = 4 ;
  buffer [4 ]= 46 ;
  buffer [3 ]= 116 ;
  buffer [2 ]= 102 ;
  buffer [1 ]= 109 ;
  firststring ( 21 ) ;
  l = 7 ;
  buffer [7 ]= 32 ;
  buffer [6 ]= 32 ;
  buffer [5 ]= 80 ;
  buffer [4 ]= 97 ;
  buffer [3 ]= 103 ;
  buffer [2 ]= 101 ;
  buffer [1 ]= 32 ;
  firststring ( 22 ) ;
  l = 12 ;
  buffer [12 ]= 32 ;
  buffer [11 ]= 32 ;
  buffer [10 ]= 67 ;
  buffer [9 ]= 104 ;
  buffer [8 ]= 97 ;
  buffer [7 ]= 114 ;
  buffer [6 ]= 97 ;
  buffer [5 ]= 99 ;
  buffer [4 ]= 116 ;
  buffer [3 ]= 101 ;
  buffer [2 ]= 114 ;
  buffer [1 ]= 32 ;
  firststring ( 23 ) ;
  l = 6 ;
  buffer [6 ]= 32 ;
  buffer [5 ]= 32 ;
  buffer [4 ]= 69 ;
  buffer [3 ]= 120 ;
  buffer [2 ]= 116 ;
  buffer [1 ]= 32 ;
  firststring ( 24 ) ;
  l = 4 ;
  buffer [4 ]= 32 ;
  buffer [3 ]= 32 ;
  buffer [2 ]= 96 ;
  buffer [1 ]= 96 ;
  firststring ( 25 ) ;
  l = 2 ;
  buffer [2 ]= 39 ;
  buffer [1 ]= 39 ;
  firststring ( 26 ) ;
  l = 3 ;
  buffer [3 ]= 32 ;
  buffer [2 ]= 61 ;
  buffer [1 ]= 32 ;
  firststring ( 27 ) ;
  l = 4 ;
  buffer [4 ]= 32 ;
  buffer [3 ]= 43 ;
  buffer [2 ]= 32 ;
  buffer [1 ]= 40 ;
  firststring ( 28 ) ;
  l = 4 ;
  buffer [4 ]= 99 ;
  buffer [3 ]= 109 ;
  buffer [2 ]= 114 ;
  buffer [1 ]= 56 ;
  firststring ( 29 ) ;
  l = 6 ;
  buffer [6 ]= 99 ;
  buffer [5 ]= 109 ;
  buffer [4 ]= 116 ;
  buffer [3 ]= 116 ;
  buffer [2 ]= 49 ;
  buffer [1 ]= 48 ;
  firststring ( 30 ) ;
  l = 4 ;
  buffer [4 ]= 103 ;
  buffer [3 ]= 114 ;
  buffer [2 ]= 97 ;
  buffer [1 ]= 121 ;
  firststring ( 31 ) ;
  l = 5 ;
  buffer [5 ]= 108 ;
  buffer [4 ]= 111 ;
  buffer [3 ]= 103 ;
  buffer [2 ]= 111 ;
  buffer [1 ]= 56 ;
  firststring ( 32 ) ;
  l = 8 ;
  buffer [8 ]= 77 ;
  buffer [7 ]= 69 ;
  buffer [6 ]= 84 ;
  buffer [5 ]= 65 ;
  buffer [4 ]= 70 ;
  buffer [3 ]= 79 ;
  buffer [2 ]= 78 ;
  buffer [1 ]= 84 ;
  firststring ( 33 ) ;
  l = 0 ;
  firststring ( 34 ) ;
  startgf () ;
  if ( getbyte () != 247 ) 
  {
    fprintf( stderr , "%s%s%s%ld%c\n",  "Bad GF file: " , "No preamble" , "! (at byte " ,     (long)curloc - 1 , ')' ) ;
    uexit ( 1 ) ;
  } 
  if ( getbyte () != 131 ) 
  {
    fprintf( stderr , "%s%s%s%ld%c\n",  "Bad GF file: " , "Wrong ID" , "! (at byte " , (long)curloc -     1 , ')' ) ;
    uexit ( 1 ) ;
  } 
  k = getbyte () ;
  {register integer for_end; m = 1 ;for_end = k ; if ( m <= for_end) do 
    {
      strpool [poolptr ]= getbyte () ;
      poolptr = poolptr + 1 ;
    } 
  while ( m++ < for_end ) ;} 
  {
    dvibuf [dviptr ]= 247 ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
  {
    dvibuf [dviptr ]= 2 ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
  dvifour ( 25400000L ) ;
  dvifour ( 473628672L ) ;
  dvifour ( 1000 ) ;
  {
    dvibuf [dviptr ]= k ;
    dviptr = dviptr + 1 ;
    if ( dviptr == dvilimit ) 
    dviswap () ;
  } 
  uselogo = false ;
  s = strstart [strptr ];
  {register integer for_end; m = 1 ;for_end = k ; if ( m <= for_end) do 
    {
      dvibuf [dviptr ]= strpool [s + m - 1 ];
      dviptr = dviptr + 1 ;
      if ( dviptr == dvilimit ) 
      dviswap () ;
    } 
  while ( m++ < for_end ) ;} 
  if ( strpool [s ]== 32 ) 
  if ( strpool [s + 1 ]== 77 ) 
  if ( strpool [s + 2 ]== 69 ) 
  if ( strpool [s + 3 ]== 84 ) 
  if ( strpool [s + 4 ]== 65 ) 
  if ( strpool [s + 5 ]== 70 ) 
  if ( strpool [s + 6 ]== 79 ) 
  if ( strpool [s + 7 ]== 78 ) 
  if ( strpool [s + 8 ]== 84 ) 
  {
    strptr = strptr + 1 ;
    strstart [strptr ]= s + 9 ;
    uselogo = true ;
  } 
  timestamp = makestring () ;
  curgf = getbyte () ;
  initstrptr = strptr ;
  while ( true ) {
      
    maxnode = 0 ;
    next [0 ]= maxlabels ;
    prev [maxlabels ]= 0 ;
    maxheight = 0 ;
    maxdepth = 0 ;
    rulethickness = 0 ;
    offsetx = 0 ;
    offsety = 0 ;
    xoffset = 0 ;
    yoffset = 0 ;
    preminx = 268435456L ;
    premaxx = -268435456L ;
    preminy = 268435456L ;
    premaxy = -268435456L ;
    ruleptr = 0 ;
    titlehead = 0 ;
    titletail = 0 ;
    next [maxlabels ]= 0 ;
    labeltail = maxlabels ;
    firstdot = maxlabels ;
    while ( ( curgf >= 239 ) && ( curgf <= 244 ) ) {
	
      k = interpretxxx () ;
      switch ( k ) 
      {case 19 : 
	;
	break ;
      case 1 : 
      case 2 : 
      case 3 : 
      case 4 : 
	if ( fontsnotloaded ) 
	{
	  fontname [k ]= curstring ;
	  fontarea [k ]= 0 ;
	  fontat [k ]= 0 ;
	  initstrptr = strptr ;
	} 
	else {
	    
	  putc ('\n',  stdout );
	  fprintf( stdout , "%s%ld%s",  "(Tardy font change will be ignored (byte " ,           (long)curloc , ")!)" ) ;
	} 
	break ;
      case 5 : 
      case 6 : 
      case 7 : 
      case 8 : 
	if ( fontsnotloaded ) 
	{
	  fontarea [k - 4 ]= curstring ;
	  initstrptr = strptr ;
	} 
	else {
	    
	  putc ('\n',  stdout );
	  fprintf( stdout , "%s%ld%s",  "(Tardy font change will be ignored (byte " ,           (long)curloc , ")!)" ) ;
	} 
	break ;
      case 9 : 
      case 10 : 
      case 11 : 
      case 12 : 
	if ( fontsnotloaded ) 
	{
	  fontat [k - 8 ]= getyyy () ;
	  initstrptr = strptr ;
	} 
	else {
	    
	  putc ('\n',  stdout );
	  fprintf( stdout , "%s%ld%s",  "(Tardy font change will be ignored (byte " ,           (long)curloc , ")!)" ) ;
	} 
	break ;
      case 15 : 
	rulethickness = getyyy () ;
	break ;
      case 13 : 
	{
	  p = getavail () ;
	  next [p ]= ruleptr ;
	  ruleptr = p ;
	  xl [p ]= getyyy () ;
	  yt [p ]= getyyy () ;
	  xr [p ]= getyyy () ;
	  yb [p ]= getyyy () ;
	  if ( xl [p ]< preminx ) 
	  preminx = xl [p ];
	  if ( xl [p ]> premaxx ) 
	  premaxx = xl [p ];
	  if ( yt [p ]< preminy ) 
	  preminy = yt [p ];
	  if ( yt [p ]> premaxy ) 
	  premaxy = yt [p ];
	  if ( xr [p ]< preminx ) 
	  preminx = xr [p ];
	  if ( xr [p ]> premaxx ) 
	  premaxx = xr [p ];
	  if ( yb [p ]< preminy ) 
	  preminy = yb [p ];
	  if ( yb [p ]> premaxy ) 
	  premaxy = yb [p ];
	  xx [p ]= rulethickness ;
	} 
	break ;
      case 16 : 
	{
	  offsetx = getyyy () ;
	  offsety = getyyy () ;
	} 
	break ;
      case 17 : 
	xoffset = getyyy () ;
	break ;
      case 18 : 
	yoffset = getyyy () ;
	break ;
      case 14 : 
	{
	  p = getavail () ;
	  info [p ]= curstring ;
	  if ( titlehead == 0 ) 
	  titlehead = p ;
	  else next [titletail ]= p ;
	  titletail = p ;
	} 
	break ;
      case 0 : 
	if ( ( labeltype < 47 ) || ( labeltype > 56 ) ) 
	{
	  putc ('\n',  stdout );
	  fprintf( stdout , "%s%ld%c",  "Bad label type precedes byte " , (long)curloc , '!' ) ;
	} 
	else {
	    
	  p = getavail () ;
	  next [labeltail ]= p ;
	  labeltail = p ;
	  prev [p ]= labeltype ;
	  info [p ]= curstring ;
	  xx [p ]= getyyy () ;
	  yy [p ]= getyyy () ;
	  if ( xx [p ]< preminx ) 
	  preminx = xx [p ];
	  if ( xx [p ]> premaxx ) 
	  premaxx = xx [p ];
	  if ( yy [p ]< preminy ) 
	  preminy = yy [p ];
	  if ( yy [p ]> premaxy ) 
	  premaxy = yy [p ];
	} 
	break ;
      } 
    } 
    if ( curgf == 248 ) 
    {
      {
	dvibuf [dviptr ]= 248 ;
	dviptr = dviptr + 1 ;
	if ( dviptr == dvilimit ) 
	dviswap () ;
      } 
      dvifour ( lastbop ) ;
      lastbop = dvioffset + dviptr - 5 ;
      dvifour ( 25400000L ) ;
      dvifour ( 473628672L ) ;
      dvifour ( 1000 ) ;
      dvifour ( maxv ) ;
      dvifour ( maxh ) ;
      {
	dvibuf [dviptr ]= 0 ;
	dviptr = dviptr + 1 ;
	if ( dviptr == dvilimit ) 
	dviswap () ;
      } 
      {
	dvibuf [dviptr ]= 3 ;
	dviptr = dviptr + 1 ;
	if ( dviptr == dvilimit ) 
	dviswap () ;
      } 
      {
	dvibuf [dviptr ]= totalpages / 256 ;
	dviptr = dviptr + 1 ;
	if ( dviptr == dvilimit ) 
	dviswap () ;
      } 
      {
	dvibuf [dviptr ]= totalpages % 256 ;
	dviptr = dviptr + 1 ;
	if ( dviptr == dvilimit ) 
	dviswap () ;
      } 
      if ( ! fontsnotloaded ) 
      {register integer for_end; k = 1 ;for_end = 5 ; if ( k <= for_end) do 
	if ( ( strstart [fontname [k ]+ 1 ]- strstart [fontname [k ]]) 
	> 0 ) 
	dvifontdef ( k ) ;
      while ( k++ < for_end ) ;} 
      {
	dvibuf [dviptr ]= 249 ;
	dviptr = dviptr + 1 ;
	if ( dviptr == dvilimit ) 
	dviswap () ;
      } 
      dvifour ( lastbop ) ;
      {
	dvibuf [dviptr ]= 2 ;
	dviptr = dviptr + 1 ;
	if ( dviptr == dvilimit ) 
	dviswap () ;
      } 
      k = 4 + ( ( dvibufsize - dviptr ) % 4 ) ;
      while ( k > 0 ) {
	  
	{
	  dvibuf [dviptr ]= 223 ;
	  dviptr = dviptr + 1 ;
	  if ( dviptr == dvilimit ) 
	  dviswap () ;
	} 
	k = k - 1 ;
      } 
      if ( dvilimit == halfbuf ) 
      writedvi ( halfbuf , dvibufsize - 1 ) ;
      if ( dviptr > 0 ) 
      writedvi ( 0 , dviptr - 1 ) ;
      if ( verbose ) 
      fprintf( stdout , "%c\n",  ' ' ) ;
      uexit ( 0 ) ;
    } 
    if ( curgf != 67 ) 
    if ( curgf != 68 ) 
    {
      fprintf( stderr , "%s\n",  "Missing boc!" ) ;
      uexit ( 1 ) ;
    } 
    {
      if ( fontsnotloaded ) 
      loadfonts () ;
      if ( curgf == 67 ) 
      {
	ext = signedquad () ;
	charcode = ext % 256 ;
	if ( charcode < 0 ) 
	charcode = charcode + 256 ;
	ext = ( ext - charcode ) / 256 ;
	k = signedquad () ;
	minx = signedquad () ;
	maxx = signedquad () ;
	miny = signedquad () ;
	maxy = signedquad () ;
      } 
      else {
	  
	ext = 0 ;
	charcode = getbyte () ;
	minx = getbyte () ;
	maxx = getbyte () ;
	minx = maxx - minx ;
	miny = getbyte () ;
	maxy = getbyte () ;
	miny = maxy - miny ;
      } 
      if ( maxx - minx > widestrow ) 
      {
	fprintf( stderr , "%s\n",  "Character too wide!" ) ;
	uexit ( 1 ) ;
      } 
      if ( preminx < minx * 65536L ) 
      offsetx = offsetx + minx * 65536L - preminx ;
      if ( premaxy > maxy * 65536L ) 
      offsety = offsety + maxy * 65536L - premaxy ;
      if ( premaxx > maxx * 65536L ) 
      premaxx = premaxx / 65536L ;
      else premaxx = maxx ;
      if ( preminy < miny * 65536L ) 
      preminy = preminy / 65536L ;
      else preminy = miny ;
      deltay = round ( unscyratio * ( maxy + 1 ) - yratio * offsety ) + 
      3276800L ;
      deltax = round ( xratio * offsetx - unscxratio * minx ) ;
      if ( slantratio >= 0 ) 
      overcol = round ( unscxratio * premaxx + unscslantratio * maxy ) ;
      else overcol = round ( unscxratio * premaxx + unscslantratio * miny ) ;
      overcol = overcol + deltax + overflowlabeloffset ;
      pageheight = round ( unscyratio * ( maxy + 1 - preminy ) ) + 3276800L - 
      offsety ;
      if ( pageheight > maxv ) 
      maxv = pageheight ;
      pagewidth = overcol - 10000000L ;
      {
	dvibuf [dviptr ]= 139 ;
	dviptr = dviptr + 1 ;
	if ( dviptr == dvilimit ) 
	dviswap () ;
      } 
      totalpages = totalpages + 1 ;
      dvifour ( totalpages ) ;
      dvifour ( charcode ) ;
      dvifour ( ext ) ;
      {register integer for_end; k = 3 ;for_end = 9 ; if ( k <= for_end) do 
	dvifour ( 0 ) ;
      while ( k++ < for_end ) ;} 
      dvifour ( lastbop ) ;
      lastbop = dvioffset + dviptr - 45 ;
      dvigoto ( 0 , 655360L ) ;
      if ( uselogo ) 
      {
	{
	  dvibuf [dviptr ]= 176 ;
	  dviptr = dviptr + 1 ;
	  if ( dviptr == dvilimit ) 
	  dviswap () ;
	} 
	hbox ( 33 , 5 , true ) ;
      } 
      {
	dvibuf [dviptr ]= 172 ;
	dviptr = dviptr + 1 ;
	if ( dviptr == dvilimit ) 
	dviswap () ;
      } 
      hbox ( timestamp , 1 , true ) ;
      hbox ( 22 , 1 , true ) ;
      dviscaled ( totalpages * 65536.0 ) ;
      if ( ( charcode != 0 ) || ( ext != 0 ) ) 
      {
	hbox ( 23 , 1 , true ) ;
	dviscaled ( charcode * 65536.0 ) ;
	if ( ext != 0 ) 
	{
	  hbox ( 24 , 1 , true ) ;
	  dviscaled ( ext * 65536.0 ) ;
	} 
      } 
      if ( titlehead != 0 ) 
      {
	next [titletail ]= 0 ;
	do {
	    hbox ( 25 , 1 , true ) ;
	  hbox ( info [titlehead ], 1 , true ) ;
	  hbox ( 26 , 1 , true ) ;
	  titlehead = next [titlehead ];
	} while ( ! ( titlehead == 0 ) ) ;
      } 
      {
	dvibuf [dviptr ]= 142 ;
	dviptr = dviptr + 1 ;
	if ( dviptr == dvilimit ) 
	dviswap () ;
      } 
      if ( verbose ) 
      {
	fprintf( stdout , "%c%ld",  '[' , (long)totalpages ) ;
	fflush ( stdout ) ;
      } 
      if ( ruleslant != 0 ) 
      {
	dvibuf [dviptr ]= 175 ;
	dviptr = dviptr + 1 ;
	if ( dviptr == dvilimit ) 
	dviswap () ;
      } 
      while ( ruleptr != 0 ) {
	  
	p = ruleptr ;
	ruleptr = next [p ];
	if ( xx [p ]== 0 ) 
	xx [p ]= grayrulethickness ;
	if ( xx [p ]> 0 ) 
	{
	  convert ( xl [p ], yt [p ]) ;
	  tempx = dvix ;
	  tempy = dviy ;
	  convert ( xr [p ], yb [p ]) ;
	  if ( abs ( tempx - dvix ) < 6554 ) 
	  {
	    if ( tempy > dviy ) 
	    {
	      k = tempy ;
	      tempy = dviy ;
	      dviy = k ;
	    } 
	    dvigoto ( dvix - ( xx [p ]/ 2 ) , dviy ) ;
	    {
	      dvibuf [dviptr ]= 137 ;
	      dviptr = dviptr + 1 ;
	      if ( dviptr == dvilimit ) 
	      dviswap () ;
	    } 
	    dvifour ( dviy - tempy ) ;
	    dvifour ( xx [p ]) ;
	    {
	      dvibuf [dviptr ]= 142 ;
	      dviptr = dviptr + 1 ;
	      if ( dviptr == dvilimit ) 
	      dviswap () ;
	    } 
	  } 
	  else if ( abs ( tempy - dviy ) < 6554 ) 
	  {
	    if ( tempx < dvix ) 
	    {
	      k = tempx ;
	      tempx = dvix ;
	      dvix = k ;
	    } 
	    dvigoto ( dvix , dviy + ( xx [p ]/ 2 ) ) ;
	    {
	      dvibuf [dviptr ]= 137 ;
	      dviptr = dviptr + 1 ;
	      if ( dviptr == dvilimit ) 
	      dviswap () ;
	    } 
	    dvifour ( xx [p ]) ;
	    dvifour ( tempx - dvix ) ;
	    {
	      dvibuf [dviptr ]= 142 ;
	      dviptr = dviptr + 1 ;
	      if ( dviptr == dvilimit ) 
	      dviswap () ;
	    } 
	  } 
	  else if ( ( ruleslant == 0 ) || ( abs ( tempx + ruleslant * ( tempy 
	  - dviy ) - dvix ) > xx [p ]) ) 
	  slantcomplaint ( ( dvix - tempx ) / ((double) ( tempy - dviy ) ) ) ;
	  else {
	      
	    if ( tempy > dviy ) 
	    {
	      k = tempy ;
	      tempy = dviy ;
	      dviy = k ;
	      k = tempx ;
	      tempx = dvix ;
	      dvix = k ;
	    } 
	    m = round ( ( dviy - tempy ) / ((double) slantunit ) ) ;
	    if ( m > 0 ) 
	    {
	      dvigoto ( dvix , dviy ) ;
	      q = ( ( m - 1 ) / slantn ) + 1 ;
	      k = m / q ;
	      p = m % q ;
	      q = q - p ;
	      typeset ( k ) ;
	      dy = round ( k * slantunit ) ;
	      {
		dvibuf [dviptr ]= 170 ;
		dviptr = dviptr + 1 ;
		if ( dviptr == dvilimit ) 
		dviswap () ;
	      } 
	      dvifour ( - (integer) dy ) ;
	      while ( q > 1 ) {
		  
		typeset ( k ) ;
		{
		  dvibuf [dviptr ]= 166 ;
		  dviptr = dviptr + 1 ;
		  if ( dviptr == dvilimit ) 
		  dviswap () ;
		} 
		q = q - 1 ;
	      } 
	      if ( p > 0 ) 
	      {
		k = k + 1 ;
		typeset ( k ) ;
		dy = round ( k * slantunit ) ;
		{
		  dvibuf [dviptr ]= 170 ;
		  dviptr = dviptr + 1 ;
		  if ( dviptr == dvilimit ) 
		  dviswap () ;
		} 
		dvifour ( - (integer) dy ) ;
		while ( p > 1 ) {
		    
		  typeset ( k ) ;
		  {
		    dvibuf [dviptr ]= 166 ;
		    dviptr = dviptr + 1 ;
		    if ( dviptr == dvilimit ) 
		    dviswap () ;
		  } 
		  p = p - 1 ;
		} 
	      } 
	      {
		dvibuf [dviptr ]= 142 ;
		dviptr = dviptr + 1 ;
		if ( dviptr == dvilimit ) 
		dviswap () ;
	      } 
	    } 
	  } 
	} 
      } 
      overflowline = 1 ;
      if ( next [maxlabels ]!= 0 ) 
      {
	next [labeltail ]= 0 ;
	{
	  dvibuf [dviptr ]= 174 ;
	  dviptr = dviptr + 1 ;
	  if ( dviptr == dvilimit ) 
	  dviswap () ;
	} 
	p = next [maxlabels ];
	firstdot = maxnode + 1 ;
	while ( p != 0 ) {
	    
	  convert ( xx [p ], yy [p ]) ;
	  xx [p ]= dvix ;
	  yy [p ]= dviy ;
	  if ( prev [p ]< 53 ) 
	  {
	    q = getavail () ;
	    xl [p ]= q ;
	    info [q ]= p ;
	    xx [q ]= dvix ;
	    xl [q ]= dvix - dotwidth ;
	    xr [q ]= dvix + dotwidth ;
	    yy [q ]= dviy ;
	    yt [q ]= dviy - dotheight ;
	    yb [q ]= dviy + dotheight ;
	    nodeins ( q , 0 ) ;
	    dvigoto ( xx [q ], yy [q ]) ;
	    {
	      dvibuf [dviptr ]= 0 ;
	      dviptr = dviptr + 1 ;
	      if ( dviptr == dvilimit ) 
	      dviswap () ;
	    } 
	    {
	      dvibuf [dviptr ]= 142 ;
	      dviptr = dviptr + 1 ;
	      if ( dviptr == dvilimit ) 
	      dviswap () ;
	    } 
	  } 
	  p = next [p ];
	} 
	p = next [maxlabels ];
	while ( p != 0 ) {
	    
	  if ( prev [p ]<= 48 ) 
	  {
	    r = xl [p ];
	    q = nearestdot ( r , 10 ) ;
	    if ( twin ) 
	    xr [p ]= 8 ;
	    else xr [p ]= 0 ;
	    if ( q != 0 ) 
	    {
	      dx = xx [q ]- xx [r ];
	      dy = yy [q ]- yy [r ];
	      if ( dy > 0 ) 
	      xr [p ]= xr [p ]+ 4 ;
	      if ( dx < 0 ) 
	      xr [p ]= xr [p ]+ 1 ;
	      if ( dy > dx ) 
	      xr [p ]= xr [p ]+ 1 ;
	      if ( - (integer) dy > dx ) 
	      xr [p ]= xr [p ]+ 1 ;
	    } 
	  } 
	  p = next [p ];
	} 
	{
	  dvibuf [dviptr ]= 173 ;
	  dviptr = dviptr + 1 ;
	  if ( dviptr == dvilimit ) 
	  dviswap () ;
	} 
	q = maxlabels ;
	while ( next [q ]!= 0 ) {
	    
	  p = next [q ];
	  if ( prev [p ]> 48 ) 
	  {
	    next [q ]= next [p ];
	    {
	      hbox ( info [p ], 2 , false ) ;
	      dvix = xx [p ];
	      dviy = yy [p ];
	      if ( prev [p ]< 53 ) 
	      r = xl [p ];
	      else r = 0 ;
	      switch ( prev [p ]) 
	      {case 49 : 
	      case 53 : 
		topcoords ( p ) ;
		break ;
	      case 50 : 
	      case 54 : 
		leftcoords ( p ) ;
		break ;
	      case 51 : 
	      case 55 : 
		rightcoords ( p ) ;
		break ;
	      case 52 : 
	      case 56 : 
		botcoords ( p ) ;
		break ;
	      } 
	      nodeins ( p , r ) ;
	      dvigoto ( xx [p ], yy [p ]) ;
	      hbox ( info [p ], 2 , true ) ;
	      {
		dvibuf [dviptr ]= 142 ;
		dviptr = dviptr + 1 ;
		if ( dviptr == dvilimit ) 
		dviswap () ;
	      } 
	    } 
	  } 
	  else q = next [q ];
	} 
	q = maxlabels ;
	while ( next [q ]!= 0 ) {
	    
	  p = next [q ];
	  r = next [p ];
	  s = xl [p ];
	  if ( placelabel ( p ) ) 
	  next [q ]= r ;
	  else {
	      
	    info [s ]= 0 ;
	    if ( prev [p ]== 47 ) 
	    next [q ]= r ;
	    else q = p ;
	  } 
	} 
	p = next [0 ];
	while ( p != maxlabels ) {
	    
	  q = next [p ];
	  if ( ( p < firstdot ) || ( info [p ]== 0 ) ) 
	  {
	    r = prev [p ];
	    next [r ]= q ;
	    prev [q ]= r ;
	    next [p ]= r ;
	  } 
	  p = q ;
	} 
	p = next [maxlabels ];
	while ( p != 0 ) {
	    
	  {
	    r = next [xl [p ]];
	    s = next [r ];
	    t = next [p ];
	    next [p ]= s ;
	    prev [s ]= p ;
	    next [r ]= p ;
	    prev [p ]= r ;
	    q = nearestdot ( p , 0 ) ;
	    next [r ]= s ;
	    prev [s ]= r ;
	    next [p ]= t ;
	    overflowline = overflowline + 1 ;
	    dvigoto ( overcol , overflowline * thricexheight + 655360L ) ;
	    hbox ( info [p ], 2 , true ) ;
	    if ( q != 0 ) 
	    {
	      hbox ( 27 , 2 , true ) ;
	      hbox ( info [info [q ]], 2 , true ) ;
	      hbox ( 28 , 2 , true ) ;
	      dviscaled ( ( xx [p ]- xx [q ]) / ((double) xratio ) + ( yy 
	      [p ]- yy [q ]) * fudgefactor ) ;
	      {
		dvibuf [dviptr ]= 44 ;
		dviptr = dviptr + 1 ;
		if ( dviptr == dvilimit ) 
		dviswap () ;
	      } 
	      dviscaled ( ( yy [q ]- yy [p ]) / ((double) yratio ) ) ;
	      {
		dvibuf [dviptr ]= 41 ;
		dviptr = dviptr + 1 ;
		if ( dviptr == dvilimit ) 
		dviswap () ;
	      } 
	    } 
	    {
	      dvibuf [dviptr ]= 142 ;
	      dviptr = dviptr + 1 ;
	      if ( dviptr == dvilimit ) 
	      dviswap () ;
	    } 
	  } 
	  p = next [p ];
	} 
      } 
      dopixels () ;
      {
	dvibuf [dviptr ]= 140 ;
	dviptr = dviptr + 1 ;
	if ( dviptr == dvilimit ) 
	dviswap () ;
      } 
      if ( overflowline > 1 ) 
      pagewidth = overcol + 10000000L ;
      if ( pagewidth > maxh ) 
      maxh = pagewidth ;
      if ( verbose ) 
      {
	putc ( ']' ,  stdout );
	if ( totalpages % 13 == 0 ) 
	fprintf( stdout , "%c\n",  ' ' ) ;
	else
	putc ( ' ' ,  stdout );
	fflush ( stdout ) ;
      } 
    } 
    curgf = getbyte () ;
    strptr = initstrptr ;
    poolptr = strstart [strptr ];
  } 
  if ( verbose && ( totalpages % 13 != 0 ) ) 
  fprintf( stdout , "%c\n",  ' ' ) ;
}