#define WEAVE
#include "cpascal.h"
#define maxbytes ( 60000L ) 
#define maxnames ( 5000 ) 
#define maxmodules ( 2000 ) 
#define hashsize ( 353 ) 
#define bufsize ( 3000 ) 
#define longestname ( 400 ) 
#define longbufsize ( 500 ) 
#define linelength ( 80 ) 
#define maxrefs ( 30000 ) 
#define maxtoks ( 65000L ) 
#define maxtexts ( 10000 ) 
#define maxscraps ( 10000 ) 
#define stacksize ( 2000 ) 
typedef unsigned char ASCIIcode  ;
typedef text /* of  ASCIIcode */ textfile  ;
typedef unsigned char eightbits  ;
typedef unsigned short sixteenbits  ;
typedef integer namepointer  ;
typedef integer xrefnumber  ;
typedef integer textpointer  ;
typedef char mode  ;
typedef struct {
    sixteenbits endfield ;
  sixteenbits tokfield ;
  mode modefield ;
} outputstate  ;
char history  ;
ASCIIcode xord[256]  ;
ASCIIcode xchr[256]  ;
textfile webfile  ;
textfile changefile  ;
textfile texfile  ;
ASCIIcode buffer[longbufsize + 1]  ;
boolean phaseone  ;
boolean phasethree  ;
ASCIIcode bytemem[2][maxbytes + 1]  ;
sixteenbits bytestart[maxnames + 1]  ;
sixteenbits link[maxnames + 1]  ;
sixteenbits ilk[maxnames + 1]  ;
sixteenbits xref[maxnames + 1]  ;
namepointer nameptr  ;
integer byteptr[2]  ;
integer modulecount  ;
boolean changedmodule[maxmodules + 1]  ;
boolean changeexists  ;
struct {
    sixteenbits numfield ;
  sixteenbits xlinkfield ;
} xmem[maxrefs + 1]  ;
xrefnumber xrefptr  ;
short xrefswitch, modxrefswitch  ;
sixteenbits tokmem[maxtoks + 1]  ;
sixteenbits tokstart[maxtexts + 1]  ;
textpointer textptr  ;
integer tokptr  ;
integer idfirst  ;
integer idloc  ;
sixteenbits hash[hashsize + 1]  ;
namepointer curname  ;
ASCIIcode modtext[longestname + 1]  ;
integer ii  ;
integer line  ;
integer otherline  ;
integer templine  ;
integer limit  ;
integer loc  ;
boolean inputhasended  ;
boolean changing  ;
boolean changepending  ;
ASCIIcode changebuffer[bufsize + 1]  ;
integer changelimit  ;
namepointer curmodule  ;
boolean scanninghex  ;
eightbits nextcontrol  ;
namepointer lhs, rhs  ;
xrefnumber curxref  ;
ASCIIcode outbuf[linelength + 1]  ;
integer outptr  ;
integer outline  ;
char dig[5]  ;
eightbits cat[maxscraps + 1]  ;
short trans[maxscraps + 1]  ;
integer pp  ;
integer scrapbase  ;
integer scrapptr  ;
integer loptr  ;
integer hiptr  ;
outputstate curstate  ;
outputstate stack[stacksize + 1]  ;
integer stackptr  ;
integer saveline  ;
sixteenbits saveplace  ;
namepointer thismodule  ;
xrefnumber nextxref, thisxref, firstxref, midxref  ;
integer kmodule  ;
namepointer bucket[256]  ;
namepointer nextname  ;
ASCIIcode c  ;
integer h  ;
sixteenbits blink[maxnames + 1]  ;
eightbits curdepth  ;
integer curbyte  ;
char curbank  ;
sixteenbits curval  ;
ASCIIcode collate[230]  ;
cinttype noxref  ;
cstring webname, chgname, texname  ;

#include "weave.h"
void 
#ifdef HAVE_PROTOTYPES
parsearguments ( void ) 
#else
parsearguments ( ) 
#endif
{
  
#define noptions ( 4 ) 
  getoptstruct longoptions[noptions + 1]  ;
  integer getoptreturnval  ;
  cinttype optionindex  ;
  integer currentoption  ;
  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 = chartostring ( 'x' ) ;
  longoptions [currentoption ].hasarg = 0 ;
  longoptions [currentoption ].flag = addressof ( noxref ) ;
  longoptions [currentoption ].val = 1 ;
  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 , "weave" ) ;
    } 
    else if ( ( strcmp ( longoptions [optionindex ].name , "help" ) == 0 ) ) 
    {
      usage ( 0 , WEAVEHELP ) ;
    } 
    else if ( ( strcmp ( longoptions [optionindex ].name , "version" ) == 0 
    ) ) 
    {
      printversionandexit ( "This is WEAVE, Version 4.4" , nil , "D.E. Knuth" 
      ) ;
    } 
  } while ( ! ( getoptreturnval == -1 ) ) ;
  if ( ( optind + 1 != argc ) && ( optind + 2 != argc ) ) 
  {
    fprintf( stderr , "%s\n",  "weave: Need one or two file arguments." ) ;
    usage ( 1 , "weave" ) ;
  } 
  webname = extendfilename ( cmdline ( optind ) , "web" ) ;
  if ( optind + 2 == argc ) 
  {
    chgname = extendfilename ( cmdline ( optind + 1 ) , "ch" ) ;
  } 
  texname = basenamechangesuffix ( webname , ".web" , ".tex" ) ;
} 
void 
#ifdef HAVE_PROTOTYPES
error ( void ) 
#else
error ( ) 
#endif
{
  integer k, l  ;
  {
    if ( changing ) 
    Fputs( stdout ,  ". (change file " ) ;
    else
    Fputs( stdout ,  ". (" ) ;
    fprintf( stdout , "%s%ld%c\n",  "l." , (long)line , ')' ) ;
    if ( loc >= limit ) 
    l = limit ;
    else l = loc ;
    {register integer for_end; k = 1 ;for_end = l ; if ( k <= for_end) do 
      if ( buffer [k - 1 ]== 9 ) 
      putc ( ' ' ,  stdout );
      else
      putc ( xchr [buffer [k - 1 ]],  stdout );
    while ( k++ < for_end ) ;} 
    putc ('\n',  stdout );
    {register integer for_end; k = 1 ;for_end = l ; if ( k <= for_end) do 
      putc ( ' ' ,  stdout );
    while ( k++ < for_end ) ;} 
    {register integer for_end; k = l + 1 ;for_end = limit ; if ( k <= 
    for_end) do 
      putc ( xchr [buffer [k - 1 ]],  stdout );
    while ( k++ < for_end ) ;} 
    if ( buffer [limit ]== 124 ) 
    putc ( xchr [124 ],  stdout );
    putc ( ' ' ,  stdout );
  } 
  fflush ( stdout ) ;
  history = 2 ;
} 
void 
#ifdef HAVE_PROTOTYPES
jumpout ( void ) 
#else
jumpout ( ) 
#endif
{
  switch ( history ) 
  {case 0 : 
    {
      putc ('\n',  stdout );
      Fputs( stdout ,  "(No errors were found.)" ) ;
    } 
    break ;
  case 1 : 
    {
      putc ('\n',  stdout );
      Fputs( stdout ,  "(Did you see the warning message above?)" ) ;
    } 
    break ;
  case 2 : 
    {
      putc ('\n',  stdout );
      Fputs( stdout ,  "(Pardon me, but I think I spotted something wrong.)" ) 
      ;
    } 
    break ;
  case 3 : 
    {
      putc ('\n',  stdout );
      Fputs( stdout ,  "(That was a fatal error, my friend.)" ) ;
    } 
    break ;
  } 
  putc ('\n',  stdout );
  if ( ( history != 0 ) && ( history != 1 ) ) 
  uexit ( 1 ) ;
  else uexit ( 0 ) ;
} 
void 
#ifdef HAVE_PROTOTYPES
initialize ( void ) 
#else
initialize ( ) 
#endif
{
  unsigned char i  ;
  char wi  ;
  integer h  ;
  ASCIIcode c  ;
  kpsesetprogname ( argv [0 ]) ;
  parsearguments () ;
  history = 0 ;
  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 ]= '~' ;
  xchr [0 ]= ' ' ;
  xchr [127 ]= ' ' ;
  {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 = 128 ;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 [' ' ]= 32 ;
  rewrite ( texfile , texname ) ;
  {register integer for_end; wi = 0 ;for_end = 1 ; if ( wi <= for_end) do 
    {
      bytestart [wi ]= 0 ;
      byteptr [wi ]= 0 ;
    } 
  while ( wi++ < for_end ) ;} 
  bytestart [2 ]= 0 ;
  nameptr = 1 ;
  ilk [0 ]= 0 ;
  xrefptr = 0 ;
  xrefswitch = 0 ;
  modxrefswitch = 0 ;
  xmem [0 ].numfield = 0 ;
  xref [0 ]= 0 ;
  tokptr = 1 ;
  textptr = 1 ;
  tokstart [0 ]= 1 ;
  tokstart [1 ]= 1 ;
  {register integer for_end; h = 0 ;for_end = hashsize - 1 ; if ( h <= 
  for_end) do 
    hash [h ]= 0 ;
  while ( h++ < for_end ) ;} 
  scanninghex = false ;
  modtext [0 ]= 32 ;
  outptr = 1 ;
  outline = 1 ;
  outbuf [1 ]= 99 ;
  Fputs( texfile ,  "\\input webma" ) ;
  outbuf [0 ]= 92 ;
  scrapbase = 1 ;
  scrapptr = 0 ;
  collate [0 ]= 0 ;
  collate [1 ]= 32 ;
  {register integer for_end; c = 1 ;for_end = 31 ; if ( c <= for_end) do 
    collate [c + 1 ]= c ;
  while ( c++ < for_end ) ;} 
  {register integer for_end; c = 33 ;for_end = 47 ; if ( c <= for_end) do 
    collate [c ]= c ;
  while ( c++ < for_end ) ;} 
  {register integer for_end; c = 58 ;for_end = 64 ; if ( c <= for_end) do 
    collate [c - 10 ]= c ;
  while ( c++ < for_end ) ;} 
  {register integer for_end; c = 91 ;for_end = 94 ; if ( c <= for_end) do 
    collate [c - 36 ]= c ;
  while ( c++ < for_end ) ;} 
  collate [59 ]= 96 ;
  {register integer for_end; c = 123 ;for_end = 255 ; if ( c <= for_end) do 
    collate [c - 63 ]= c ;
  while ( c++ < for_end ) ;} 
  collate [193 ]= 95 ;
  {register integer for_end; c = 97 ;for_end = 122 ; if ( c <= for_end) do 
    collate [c + 97 ]= c ;
  while ( c++ < for_end ) ;} 
  {register integer for_end; c = 48 ;for_end = 57 ; if ( c <= for_end) do 
    collate [c + 172 ]= c ;
  while ( c++ < for_end ) ;} 
} 
void 
#ifdef HAVE_PROTOTYPES
openinput ( void ) 
#else
openinput ( ) 
#endif
{
  reset ( webfile , webname ) ;
  if ( chgname ) 
  reset ( changefile , chgname ) ;
} 
boolean 
#ifdef HAVE_PROTOTYPES
zinputln ( textfile f ) 
#else
zinputln ( f ) 
  textfile f ;
#endif
{
  register boolean Result; integer finallimit  ;
  limit = 0 ;
  finallimit = 0 ;
  if ( eof ( f ) ) 
  Result = false ;
  else {
      
    while ( ! eoln ( f ) ) {
	
      buffer [limit ]= xord [getc ( f ) ];
      limit = limit + 1 ;
      if ( buffer [limit - 1 ]!= 32 ) 
      finallimit = limit ;
      if ( limit == bufsize ) 
      {
	while ( ! eoln ( f ) ) vgetc ( f ) ;
	limit = limit - 1 ;
	if ( finallimit > limit ) 
	finallimit = limit ;
	{
	  putc ('\n',  stdout );
	  Fputs( stdout ,  "! Input line too long" ) ;
	} 
	loc = 0 ;
	error () ;
      } 
    } 
    readln ( f ) ;
    limit = finallimit ;
    Result = true ;
  } 
  return Result ;
} 
void 
#ifdef HAVE_PROTOTYPES
zprintid ( namepointer p ) 
#else
zprintid ( p ) 
  namepointer p ;
#endif
{
  integer k  ;
  char w  ;
  if ( p >= nameptr ) 
  Fputs( stdout ,  "IMPOSSIBLE" ) ;
  else {
      
    w = p % 2 ;
    {register integer for_end; k = bytestart [p ];for_end = bytestart [p 
    + 2 ]- 1 ; if ( k <= for_end) do 
      putc ( xchr [bytemem [w ][ k ]],  stdout );
    while ( k++ < for_end ) ;} 
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
znewxref ( namepointer p ) 
#else
znewxref ( p ) 
  namepointer p ;
#endif
{
  /* 10 */ xrefnumber q  ;
  sixteenbits m, n  ;
  if ( noxref ) 
  goto lab10 ;
  if ( ( ( ilk [p ]> 3 ) || ( bytestart [p ]+ 1 == bytestart [p + 2 ]) ) 
  && ( xrefswitch == 0 ) ) 
  goto lab10 ;
  m = modulecount + xrefswitch ;
  xrefswitch = 0 ;
  q = xref [p ];
  if ( q > 0 ) 
  {
    n = xmem [q ].numfield ;
    if ( ( n == m ) || ( n == m + 10240 ) ) 
    goto lab10 ;
    else if ( m == n + 10240 ) 
    {
      xmem [q ].numfield = m ;
      goto lab10 ;
    } 
  } 
  if ( xrefptr == maxrefs ) 
  {
    putc ('\n',  stdout );
    fprintf( stderr , "%s%s%s",  "! Sorry, " , "cross reference" , " capacity exceeded" ) 
    ;
    error () ;
    history = 3 ;
    jumpout () ;
  } 
  else {
      
    xrefptr = xrefptr + 1 ;
    xmem [xrefptr ].numfield = m ;
  } 
  xmem [xrefptr ].xlinkfield = q ;
  xref [p ]= xrefptr ;
  lab10: ;
} 
void 
#ifdef HAVE_PROTOTYPES
znewmodxref ( namepointer p ) 
#else
znewmodxref ( p ) 
  namepointer p ;
#endif
{
  xrefnumber q, r  ;
  q = xref [p ];
  r = 0 ;
  if ( q > 0 ) 
  {
    if ( modxrefswitch == 0 ) 
    while ( xmem [q ].numfield >= 10240 ) {
	
      r = q ;
      q = xmem [q ].xlinkfield ;
    } 
    else if ( xmem [q ].numfield >= 10240 ) 
    {
      r = q ;
      q = xmem [q ].xlinkfield ;
    } 
  } 
  if ( xrefptr == maxrefs ) 
  {
    putc ('\n',  stdout );
    fprintf( stderr , "%s%s%s",  "! Sorry, " , "cross reference" , " capacity exceeded" ) 
    ;
    error () ;
    history = 3 ;
    jumpout () ;
  } 
  else {
      
    xrefptr = xrefptr + 1 ;
    xmem [xrefptr ].numfield = modulecount + modxrefswitch ;
  } 
  xmem [xrefptr ].xlinkfield = q ;
  modxrefswitch = 0 ;
  if ( r == 0 ) 
  xref [p ]= xrefptr ;
  else xmem [r ].xlinkfield = xrefptr ;
} 
namepointer 
#ifdef HAVE_PROTOTYPES
zidlookup ( eightbits t ) 
#else
zidlookup ( t ) 
  eightbits t ;
#endif
{
  /* 31 */ register namepointer Result; integer i  ;
  integer h  ;
  integer k  ;
  char w  ;
  integer l  ;
  namepointer p  ;
  l = idloc - idfirst ;
  h = buffer [idfirst ];
  i = idfirst + 1 ;
  while ( i < idloc ) {
      
    h = ( h + h + buffer [i ]) % hashsize ;
    i = i + 1 ;
  } 
  p = hash [h ];
  while ( p != 0 ) {
      
    if ( ( bytestart [p + 2 ]- bytestart [p ]== l ) && ( ( ilk [p ]== t 
    ) || ( ( t == 0 ) && ( ilk [p ]> 3 ) ) ) ) 
    {
      i = idfirst ;
      k = bytestart [p ];
      w = p % 2 ;
      while ( ( i < idloc ) && ( buffer [i ]== bytemem [w ][ k ]) ) {
	  
	i = i + 1 ;
	k = k + 1 ;
      } 
      if ( i == idloc ) 
      goto lab31 ;
    } 
    p = link [p ];
  } 
  p = nameptr ;
  link [p ]= hash [h ];
  hash [h ]= p ;
  lab31: ;
  if ( p == nameptr ) 
  {
    w = nameptr % 2 ;
    if ( byteptr [w ]+ l > maxbytes ) 
    {
      putc ('\n',  stdout );
      fprintf( stderr , "%s%s%s",  "! Sorry, " , "byte memory" , " capacity exceeded" ) ;
      error () ;
      history = 3 ;
      jumpout () ;
    } 
    if ( nameptr + 2 > maxnames ) 
    {
      putc ('\n',  stdout );
      fprintf( stderr , "%s%s%s",  "! Sorry, " , "name" , " capacity exceeded" ) ;
      error () ;
      history = 3 ;
      jumpout () ;
    } 
    i = idfirst ;
    k = byteptr [w ];
    while ( i < idloc ) {
	
      bytemem [w ][ k ]= buffer [i ];
      k = k + 1 ;
      i = i + 1 ;
    } 
    byteptr [w ]= k ;
    bytestart [nameptr + 2 ]= k ;
    nameptr = nameptr + 1 ;
    ilk [p ]= t ;
    xref [p ]= 0 ;
  } 
  Result = p ;
  return Result ;
} 
namepointer 
#ifdef HAVE_PROTOTYPES
zmodlookup ( sixteenbits l ) 
#else
zmodlookup ( l ) 
  sixteenbits l ;
#endif
{
  /* 31 */ register namepointer Result; char c  ;
  integer j  ;
  integer k  ;
  char w  ;
  namepointer p  ;
  namepointer q  ;
  c = 2 ;
  q = 0 ;
  p = ilk [0 ];
  while ( p != 0 ) {
      
    {
      k = bytestart [p ];
      w = p % 2 ;
      c = 1 ;
      j = 1 ;
      while ( ( k < bytestart [p + 2 ]) && ( j <= l ) && ( modtext [j ]== 
      bytemem [w ][ k ]) ) {
	  
	k = k + 1 ;
	j = j + 1 ;
      } 
      if ( k == bytestart [p + 2 ]) 
      if ( j > l ) 
      c = 1 ;
      else c = 4 ;
      else if ( j > l ) 
      c = 3 ;
      else if ( modtext [j ]< bytemem [w ][ k ]) 
      c = 0 ;
      else c = 2 ;
    } 
    q = p ;
    if ( c == 0 ) 
    p = link [q ];
    else if ( c == 2 ) 
    p = ilk [q ];
    else goto lab31 ;
  } 
  w = nameptr % 2 ;
  k = byteptr [w ];
  if ( k + l > maxbytes ) 
  {
    putc ('\n',  stdout );
    fprintf( stderr , "%s%s%s",  "! Sorry, " , "byte memory" , " capacity exceeded" ) ;
    error () ;
    history = 3 ;
    jumpout () ;
  } 
  if ( nameptr > maxnames - 2 ) 
  {
    putc ('\n',  stdout );
    fprintf( stderr , "%s%s%s",  "! Sorry, " , "name" , " capacity exceeded" ) ;
    error () ;
    history = 3 ;
    jumpout () ;
  } 
  p = nameptr ;
  if ( c == 0 ) 
  link [q ]= p ;
  else ilk [q ]= p ;
  link [p ]= 0 ;
  ilk [p ]= 0 ;
  xref [p ]= 0 ;
  c = 1 ;
  {register integer for_end; j = 1 ;for_end = l ; if ( j <= for_end) do 
    bytemem [w ][ k + j - 1 ]= modtext [j ];
  while ( j++ < for_end ) ;} 
  byteptr [w ]= k + l ;
  bytestart [nameptr + 2 ]= k + l ;
  nameptr = nameptr + 1 ;
  lab31: if ( c != 1 ) 
  {
    {
      if ( ! phaseone ) 
      {
	putc ('\n',  stdout );
	Fputs( stdout ,  "! Incompatible section names" ) ;
	error () ;
      } 
    } 
    p = 0 ;
  } 
  Result = p ;
  return Result ;
} 
namepointer 
#ifdef HAVE_PROTOTYPES
zprefixlookup ( sixteenbits l ) 
#else
zprefixlookup ( l ) 
  sixteenbits l ;
#endif
{
  register namepointer Result; char c  ;
  integer count  ;
  integer j  ;
  integer k  ;
  char w  ;
  namepointer p  ;
  namepointer q  ;
  namepointer r  ;
  q = 0 ;
  p = ilk [0 ];
  count = 0 ;
  r = 0 ;
  while ( p != 0 ) {
      
    {
      k = bytestart [p ];
      w = p % 2 ;
      c = 1 ;
      j = 1 ;
      while ( ( k < bytestart [p + 2 ]) && ( j <= l ) && ( modtext [j ]== 
      bytemem [w ][ k ]) ) {
	  
	k = k + 1 ;
	j = j + 1 ;
      } 
      if ( k == bytestart [p + 2 ]) 
      if ( j > l ) 
      c = 1 ;
      else c = 4 ;
      else if ( j > l ) 
      c = 3 ;
      else if ( modtext [j ]< bytemem [w ][ k ]) 
      c = 0 ;
      else c = 2 ;
    } 
    if ( c == 0 ) 
    p = link [p ];
    else if ( c == 2 ) 
    p = ilk [p ];
    else {
	
      r = p ;
      count = count + 1 ;
      q = ilk [p ];
      p = link [p ];
    } 
    if ( p == 0 ) 
    {
      p = q ;
      q = 0 ;
    } 
  } 
  if ( count != 1 ) 
  if ( count == 0 ) 
  {
    if ( ! phaseone ) 
    {
      putc ('\n',  stdout );
      Fputs( stdout ,  "! Name does not match" ) ;
      error () ;
    } 
  } 
  else {
      
    if ( ! phaseone ) 
    {
      putc ('\n',  stdout );
      Fputs( stdout ,  "! Ambiguous prefix" ) ;
      error () ;
    } 
  } 
  Result = r ;
  return Result ;
} 
boolean 
#ifdef HAVE_PROTOTYPES
linesdontmatch ( void ) 
#else
linesdontmatch ( ) 
#endif
{
  /* 10 */ register boolean Result; integer k  ;
  Result = true ;
  if ( changelimit != limit ) 
  goto lab10 ;
  if ( limit > 0 ) 
  {register integer for_end; k = 0 ;for_end = limit - 1 ; if ( k <= for_end) 
  do 
    if ( changebuffer [k ]!= buffer [k ]) 
    goto lab10 ;
  while ( k++ < for_end ) ;} 
  Result = false ;
  lab10: ;
  return Result ;
} 
void 
#ifdef HAVE_PROTOTYPES
primethechangebuffer ( void ) 
#else
primethechangebuffer ( ) 
#endif
{
  /* 22 30 10 */ integer k  ;
  changelimit = 0 ;
  while ( true ) {
      
    line = line + 1 ;
    if ( ! inputln ( changefile ) ) 
    goto lab10 ;
    if ( limit < 2 ) 
    goto lab22 ;
    if ( buffer [0 ]!= 64 ) 
    goto lab22 ;
    if ( ( buffer [1 ]>= 88 ) && ( buffer [1 ]<= 90 ) ) 
    buffer [1 ]= buffer [1 ]+ 32 ;
    if ( buffer [1 ]== 120 ) 
    goto lab30 ;
    if ( ( buffer [1 ]== 121 ) || ( buffer [1 ]== 122 ) ) 
    {
      loc = 2 ;
      {
	if ( ! phaseone ) 
	{
	  putc ('\n',  stdout );
	  Fputs( stdout ,  "! Where is the matching @x?" ) ;
	  error () ;
	} 
      } 
    } 
    lab22: ;
  } 
  lab30: ;
  do {
      line = line + 1 ;
    if ( ! inputln ( changefile ) ) 
    {
      {
	if ( ! phaseone ) 
	{
	  putc ('\n',  stdout );
	  Fputs( stdout ,  "! Change file ended after @x" ) ;
	  error () ;
	} 
      } 
      goto lab10 ;
    } 
  } while ( ! ( limit > 0 ) ) ;
  {
    changelimit = limit ;
    if ( limit > 0 ) 
    {register integer for_end; k = 0 ;for_end = limit - 1 ; if ( k <= 
    for_end) do 
      changebuffer [k ]= buffer [k ];
    while ( k++ < for_end ) ;} 
  } 
  lab10: ;
} 
void 
#ifdef HAVE_PROTOTYPES
checkchange ( void ) 
#else
checkchange ( ) 
#endif
{
  /* 10 */ integer n  ;
  integer k  ;
  if ( linesdontmatch () ) 
  goto lab10 ;
  changepending = false ;
  if ( ! changedmodule [modulecount ]) 
  {
    loc = 0 ;
    buffer [limit ]= 33 ;
    while ( ( buffer [loc ]== 32 ) || ( buffer [loc ]== 9 ) ) loc = loc + 
    1 ;
    buffer [limit ]= 32 ;
    if ( buffer [loc ]== 64 ) 
    if ( ( buffer [loc + 1 ]== 42 ) || ( buffer [loc + 1 ]== 32 ) || ( 
    buffer [loc + 1 ]== 9 ) ) 
    changepending = true ;
    if ( ! changepending ) 
    changedmodule [modulecount ]= true ;
  } 
  n = 0 ;
  while ( true ) {
      
    changing = ! changing ;
    templine = otherline ;
    otherline = line ;
    line = templine ;
    line = line + 1 ;
    if ( ! inputln ( changefile ) ) 
    {
      {
	if ( ! phaseone ) 
	{
	  putc ('\n',  stdout );
	  Fputs( stdout ,  "! Change file ended before @y" ) ;
	  error () ;
	} 
      } 
      changelimit = 0 ;
      changing = ! changing ;
      templine = otherline ;
      otherline = line ;
      line = templine ;
      goto lab10 ;
    } 
    if ( limit > 1 ) 
    if ( buffer [0 ]== 64 ) 
    {
      if ( ( buffer [1 ]>= 88 ) && ( buffer [1 ]<= 90 ) ) 
      buffer [1 ]= buffer [1 ]+ 32 ;
      if ( ( buffer [1 ]== 120 ) || ( buffer [1 ]== 122 ) ) 
      {
	loc = 2 ;
	{
	  if ( ! phaseone ) 
	  {
	    putc ('\n',  stdout );
	    Fputs( stdout ,  "! Where is the matching @y?" ) ;
	    error () ;
	  } 
	} 
      } 
      else if ( buffer [1 ]== 121 ) 
      {
	if ( n > 0 ) 
	{
	  loc = 2 ;
	  {
	    if ( ! phaseone ) 
	    {
	      putc ('\n',  stdout );
	      fprintf( stdout , "%s%ld%s",  "! Hmm... " , (long)n ,               " of the preceding lines failed to match" ) ;
	      error () ;
	    } 
	  } 
	} 
	goto lab10 ;
      } 
    } 
    {
      changelimit = limit ;
      if ( limit > 0 ) 
      {register integer for_end; k = 0 ;for_end = limit - 1 ; if ( k <= 
      for_end) do 
	changebuffer [k ]= buffer [k ];
      while ( k++ < for_end ) ;} 
    } 
    changing = ! changing ;
    templine = otherline ;
    otherline = line ;
    line = templine ;
    line = line + 1 ;
    if ( ! inputln ( webfile ) ) 
    {
      {
	if ( ! phaseone ) 
	{
	  putc ('\n',  stdout );
	  Fputs( stdout ,  "! WEB file ended during a change" ) ;
	  error () ;
	} 
      } 
      inputhasended = true ;
      goto lab10 ;
    } 
    if ( linesdontmatch () ) 
    n = n + 1 ;
  } 
  lab10: ;
} 
void 
#ifdef HAVE_PROTOTYPES
resetinput ( void ) 
#else
resetinput ( ) 
#endif
{
  openinput () ;
  line = 0 ;
  otherline = 0 ;
  changing = true ;
  primethechangebuffer () ;
  changing = ! changing ;
  templine = otherline ;
  otherline = line ;
  line = templine ;
  limit = 0 ;
  loc = 1 ;
  buffer [0 ]= 32 ;
  inputhasended = false ;
} 
void 
#ifdef HAVE_PROTOTYPES
getline ( void ) 
#else
getline ( ) 
#endif
{
  /* 20 */ lab20: if ( changing ) 
  {
    line = line + 1 ;
    if ( ! inputln ( changefile ) ) 
    {
      {
	if ( ! phaseone ) 
	{
	  putc ('\n',  stdout );
	  Fputs( stdout ,  "! Change file ended without @z" ) ;
	  error () ;
	} 
      } 
      buffer [0 ]= 64 ;
      buffer [1 ]= 122 ;
      limit = 2 ;
    } 
    if ( limit > 0 ) 
    {
      if ( changepending ) 
      {
	loc = 0 ;
	buffer [limit ]= 33 ;
	while ( ( buffer [loc ]== 32 ) || ( buffer [loc ]== 9 ) ) loc = 
	loc + 1 ;
	buffer [limit ]= 32 ;
	if ( buffer [loc ]== 64 ) 
	if ( ( buffer [loc + 1 ]== 42 ) || ( buffer [loc + 1 ]== 32 ) || ( 
	buffer [loc + 1 ]== 9 ) ) 
	changepending = false ;
	if ( changepending ) 
	{
	  changedmodule [modulecount ]= true ;
	  changepending = false ;
	} 
      } 
      buffer [limit ]= 32 ;
      if ( buffer [0 ]== 64 ) 
      {
	if ( ( buffer [1 ]>= 88 ) && ( buffer [1 ]<= 90 ) ) 
	buffer [1 ]= buffer [1 ]+ 32 ;
	if ( ( buffer [1 ]== 120 ) || ( buffer [1 ]== 121 ) ) 
	{
	  loc = 2 ;
	  {
	    if ( ! phaseone ) 
	    {
	      putc ('\n',  stdout );
	      Fputs( stdout ,  "! Where is the matching @z?" ) ;
	      error () ;
	    } 
	  } 
	} 
	else if ( buffer [1 ]== 122 ) 
	{
	  primethechangebuffer () ;
	  changing = ! changing ;
	  templine = otherline ;
	  otherline = line ;
	  line = templine ;
	} 
      } 
    } 
  } 
  if ( ! changing ) 
  {
    {
      line = line + 1 ;
      if ( ! inputln ( webfile ) ) 
      inputhasended = true ;
      else if ( limit == changelimit ) 
      if ( buffer [0 ]== changebuffer [0 ]) 
      if ( changelimit > 0 ) 
      checkchange () ;
    } 
    if ( changing ) 
    goto lab20 ;
  } 
  loc = 0 ;
  buffer [limit ]= 32 ;
} 
eightbits 
#ifdef HAVE_PROTOTYPES
zcontrolcode ( ASCIIcode c ) 
#else
zcontrolcode ( c ) 
  ASCIIcode c ;
#endif
{
  register eightbits Result; switch ( c ) 
  {case 64 : 
    Result = 64 ;
    break ;
  case 39 : 
    Result = 12 ;
    break ;
  case 34 : 
    Result = 13 ;
    break ;
  case 36 : 
    Result = 135 ;
    break ;
  case 32 : 
  case 9 : 
  case 42 : 
    Result = 147 ;
    break ;
  case 61 : 
    Result = 2 ;
    break ;
  case 92 : 
    Result = 3 ;
    break ;
  case 68 : 
  case 100 : 
    Result = 144 ;
    break ;
  case 70 : 
  case 102 : 
    Result = 143 ;
    break ;
  case 123 : 
    Result = 9 ;
    break ;
  case 125 : 
    Result = 10 ;
    break ;
  case 80 : 
  case 112 : 
    Result = 145 ;
    break ;
  case 38 : 
    Result = 136 ;
    break ;
  case 60 : 
    Result = 146 ;
    break ;
  case 62 : 
    {
      {
	if ( ! phaseone ) 
	{
	  putc ('\n',  stdout );
	  Fputs( stdout ,  "! Extra @>" ) ;
	  error () ;
	} 
      } 
      Result = 0 ;
    } 
    break ;
  case 84 : 
  case 116 : 
    Result = 134 ;
    break ;
  case 33 : 
    Result = 126 ;
    break ;
  case 63 : 
    Result = 125 ;
    break ;
  case 94 : 
    Result = 131 ;
    break ;
  case 58 : 
    Result = 132 ;
    break ;
  case 46 : 
    Result = 133 ;
    break ;
  case 44 : 
    Result = 137 ;
    break ;
  case 124 : 
    Result = 138 ;
    break ;
  case 47 : 
    Result = 139 ;
    break ;
  case 35 : 
    Result = 140 ;
    break ;
  case 43 : 
    Result = 141 ;
    break ;
  case 59 : 
    Result = 142 ;
    break ;
    default: 
    {
      {
	if ( ! phaseone ) 
	{
	  putc ('\n',  stdout );
	  Fputs( stdout ,  "! Unknown control code" ) ;
	  error () ;
	} 
      } 
      Result = 0 ;
    } 
    break ;
  } 
  return Result ;
} 
void 
#ifdef HAVE_PROTOTYPES
skiplimbo ( void ) 
#else
skiplimbo ( ) 
#endif
{
  /* 10 */ ASCIIcode c  ;
  while ( true ) if ( loc > limit ) 
  {
    getline () ;
    if ( inputhasended ) 
    goto lab10 ;
  } 
  else {
      
    buffer [limit + 1 ]= 64 ;
    while ( buffer [loc ]!= 64 ) loc = loc + 1 ;
    if ( loc <= limit ) 
    {
      loc = loc + 2 ;
      c = buffer [loc - 1 ];
      if ( ( c == 32 ) || ( c == 9 ) || ( c == 42 ) ) 
      goto lab10 ;
    } 
  } 
  lab10: ;
} 
eightbits 
#ifdef HAVE_PROTOTYPES
skipTeX ( void ) 
#else
skipTeX ( ) 
#endif
{
  /* 30 */ register eightbits Result; eightbits c  ;
  while ( true ) {
      
    if ( loc > limit ) 
    {
      getline () ;
      if ( inputhasended ) 
      {
	c = 147 ;
	goto lab30 ;
      } 
    } 
    buffer [limit + 1 ]= 64 ;
    do {
	c = buffer [loc ];
      loc = loc + 1 ;
      if ( c == 124 ) 
      goto lab30 ;
    } while ( ! ( c == 64 ) ) ;
    if ( loc <= limit ) 
    {
      c = controlcode ( buffer [loc ]) ;
      loc = loc + 1 ;
      goto lab30 ;
    } 
  } 
  lab30: Result = c ;
  return Result ;
} 
eightbits 
#ifdef HAVE_PROTOTYPES
zskipcomment ( eightbits bal ) 
#else
zskipcomment ( bal ) 
  eightbits bal ;
#endif
{
  /* 30 */ register eightbits Result; ASCIIcode c  ;
  while ( true ) {
      
    if ( loc > limit ) 
    {
      getline () ;
      if ( inputhasended ) 
      {
	bal = 0 ;
	goto lab30 ;
      } 
    } 
    c = buffer [loc ];
    loc = loc + 1 ;
    if ( c == 124 ) 
    goto lab30 ;
    if ( c == 64 ) 
    {
      c = buffer [loc ];
      if ( ( c != 32 ) && ( c != 9 ) && ( c != 42 ) ) 
      loc = loc + 1 ;
      else {
	  
	loc = loc - 1 ;
	bal = 0 ;
	goto lab30 ;
      } 
    } 
    else if ( ( c == 92 ) && ( buffer [loc ]!= 64 ) ) 
    loc = loc + 1 ;
    else if ( c == 123 ) 
    bal = bal + 1 ;
    else if ( c == 125 ) 
    {
      bal = bal - 1 ;
      if ( bal == 0 ) 
      goto lab30 ;
    } 
  } 
  lab30: Result = bal ;
  return Result ;
} 
eightbits 
#ifdef HAVE_PROTOTYPES
getnext ( void ) 
#else
getnext ( ) 
#endif
{
  /* 20 30 31 */ register eightbits Result; eightbits c  ;
  eightbits d  ;
  integer j, k  ;
  lab20: if ( loc > limit ) 
  {
    getline () ;
    if ( inputhasended ) 
    {
      c = 147 ;
      goto lab31 ;
    } 
  } 
  c = buffer [loc ];
  loc = loc + 1 ;
  if ( scanninghex ) 
  if ( ( ( c >= 48 ) && ( c <= 57 ) ) || ( ( c >= 65 ) && ( c <= 70 ) ) ) 
  goto lab31 ;
  else scanninghex = false ;
  switch ( c ) 
  {case 65 : 
  case 66 : 
  case 67 : 
  case 68 : 
  case 69 : 
  case 70 : 
  case 71 : 
  case 72 : 
  case 73 : 
  case 74 : 
  case 75 : 
  case 76 : 
  case 77 : 
  case 78 : 
  case 79 : 
  case 80 : 
  case 81 : 
  case 82 : 
  case 83 : 
  case 84 : 
  case 85 : 
  case 86 : 
  case 87 : 
  case 88 : 
  case 89 : 
  case 90 : 
  case 97 : 
  case 98 : 
  case 99 : 
  case 100 : 
  case 101 : 
  case 102 : 
  case 103 : 
  case 104 : 
  case 105 : 
  case 106 : 
  case 107 : 
  case 108 : 
  case 109 : 
  case 110 : 
  case 111 : 
  case 112 : 
  case 113 : 
  case 114 : 
  case 115 : 
  case 116 : 
  case 117 : 
  case 118 : 
  case 119 : 
  case 120 : 
  case 121 : 
  case 122 : 
    {
      if ( ( ( c == 69 ) || ( c == 101 ) ) && ( loc > 1 ) ) 
      if ( ( buffer [loc - 2 ]<= 57 ) && ( buffer [loc - 2 ]>= 48 ) ) 
      c = 128 ;
      if ( c != 128 ) 
      {
	loc = loc - 1 ;
	idfirst = loc ;
	do {
	    loc = loc + 1 ;
	  d = buffer [loc ];
	} while ( ! ( ( ( d < 48 ) || ( ( d > 57 ) && ( d < 65 ) ) || ( ( d > 
	90 ) && ( d < 97 ) ) || ( d > 122 ) ) && ( d != 95 ) ) ) ;
	c = 130 ;
	idloc = loc ;
      } 
    } 
    break ;
  case 39 : 
  case 34 : 
    {
      idfirst = loc - 1 ;
      do {
	  d = buffer [loc ];
	loc = loc + 1 ;
	if ( loc > limit ) 
	{
	  {
	    if ( ! phaseone ) 
	    {
	      putc ('\n',  stdout );
	      Fputs( stdout ,  "! String constant didn't end" ) ;
	      error () ;
	    } 
	  } 
	  loc = limit ;
	  d = c ;
	} 
      } while ( ! ( d == c ) ) ;
      idloc = loc ;
      c = 129 ;
    } 
    break ;
  case 64 : 
    {
      c = controlcode ( buffer [loc ]) ;
      loc = loc + 1 ;
      if ( c == 126 ) 
      {
	xrefswitch = 10240 ;
	goto lab20 ;
      } 
      else if ( c == 125 ) 
      {
	xrefswitch = 0 ;
	goto lab20 ;
      } 
      else if ( ( c <= 134 ) && ( c >= 131 ) ) 
      {
	idfirst = loc ;
	buffer [limit + 1 ]= 64 ;
	while ( buffer [loc ]!= 64 ) loc = loc + 1 ;
	idloc = loc ;
	if ( loc > limit ) 
	{
	  {
	    if ( ! phaseone ) 
	    {
	      putc ('\n',  stdout );
	      Fputs( stdout ,  "! Control text didn't end" ) ;
	      error () ;
	    } 
	  } 
	  loc = limit ;
	} 
	else {
	    
	  loc = loc + 2 ;
	  if ( buffer [loc - 1 ]!= 62 ) 
	  {
	    if ( ! phaseone ) 
	    {
	      putc ('\n',  stdout );
	      Fputs( stdout ,  "! Control codes are forbidden in control text"               ) ;
	      error () ;
	    } 
	  } 
	} 
      } 
      else if ( c == 13 ) 
      scanninghex = true ;
      else if ( c == 146 ) 
      {
	k = 0 ;
	while ( true ) {
	    
	  if ( loc > limit ) 
	  {
	    getline () ;
	    if ( inputhasended ) 
	    {
	      {
		if ( ! phaseone ) 
		{
		  putc ('\n',  stdout );
		  Fputs( stdout ,  "! Input ended in section name" ) ;
		  error () ;
		} 
	      } 
	      loc = 1 ;
	      goto lab30 ;
	    } 
	  } 
	  d = buffer [loc ];
	  if ( d == 64 ) 
	  {
	    d = buffer [loc + 1 ];
	    if ( d == 62 ) 
	    {
	      loc = loc + 2 ;
	      goto lab30 ;
	    } 
	    if ( ( d == 32 ) || ( d == 9 ) || ( d == 42 ) ) 
	    {
	      {
		if ( ! phaseone ) 
		{
		  putc ('\n',  stdout );
		  Fputs( stdout ,  "! Section name didn't end" ) ;
		  error () ;
		} 
	      } 
	      goto lab30 ;
	    } 
	    k = k + 1 ;
	    modtext [k ]= 64 ;
	    loc = loc + 1 ;
	  } 
	  loc = loc + 1 ;
	  if ( k < longestname - 1 ) 
	  k = k + 1 ;
	  if ( ( d == 32 ) || ( d == 9 ) ) 
	  {
	    d = 32 ;
	    if ( modtext [k - 1 ]== 32 ) 
	    k = k - 1 ;
	  } 
	  modtext [k ]= d ;
	} 
	lab30: if ( k >= longestname - 2 ) 
	{
	  {
	    putc ('\n',  stdout );
	    Fputs( stdout ,  "! Section name too long: " ) ;
	  } 
	  {register integer for_end; j = 1 ;for_end = 25 ; if ( j <= 
	  for_end) do 
	    putc ( xchr [modtext [j ]],  stdout );
	  while ( j++ < for_end ) ;} 
	  Fputs( stdout ,  "..." ) ;
	  if ( history == 0 ) 
	  history = 1 ;
	} 
	if ( ( modtext [k ]== 32 ) && ( k > 0 ) ) 
	k = k - 1 ;
	if ( k > 3 ) 
	{
	  if ( ( modtext [k ]== 46 ) && ( modtext [k - 1 ]== 46 ) && ( 
	  modtext [k - 2 ]== 46 ) ) 
	  curmodule = prefixlookup ( k - 3 ) ;
	  else curmodule = modlookup ( k ) ;
	} 
	else curmodule = modlookup ( k ) ;
	xrefswitch = 0 ;
      } 
      else if ( c == 2 ) 
      {
	idfirst = loc ;
	loc = loc + 1 ;
	buffer [limit + 1 ]= 64 ;
	buffer [limit + 2 ]= 62 ;
	while ( ( buffer [loc ]!= 64 ) || ( buffer [loc + 1 ]!= 62 ) ) loc 
	= loc + 1 ;
	if ( loc >= limit ) 
	{
	  if ( ! phaseone ) 
	  {
	    putc ('\n',  stdout );
	    Fputs( stdout ,  "! Verbatim string didn't end" ) ;
	    error () ;
	  } 
	} 
	idloc = loc ;
	loc = loc + 2 ;
      } 
    } 
    break ;
  case 46 : 
    if ( buffer [loc ]== 46 ) 
    {
      if ( loc <= limit ) 
      {
	c = 32 ;
	loc = loc + 1 ;
      } 
    } 
    else if ( buffer [loc ]== 41 ) 
    {
      if ( loc <= limit ) 
      {
	c = 93 ;
	loc = loc + 1 ;
      } 
    } 
    break ;
  case 58 : 
    if ( buffer [loc ]== 61 ) 
    {
      if ( loc <= limit ) 
      {
	c = 24 ;
	loc = loc + 1 ;
      } 
    } 
    break ;
  case 61 : 
    if ( buffer [loc ]== 61 ) 
    {
      if ( loc <= limit ) 
      {
	c = 30 ;
	loc = loc + 1 ;
      } 
    } 
    break ;
  case 62 : 
    if ( buffer [loc ]== 61 ) 
    {
      if ( loc <= limit ) 
      {
	c = 29 ;
	loc = loc + 1 ;
      } 
    } 
    break ;
  case 60 : 
    if ( buffer [loc ]== 61 ) 
    {
      if ( loc <= limit ) 
      {
	c = 28 ;
	loc = loc + 1 ;
      } 
    } 
    else if ( buffer [loc ]== 62 ) 
    {
      if ( loc <= limit ) 
      {
	c = 26 ;
	loc = loc + 1 ;
      } 
    } 
    break ;
  case 40 : 
    if ( buffer [loc ]== 42 ) 
    {
      if ( loc <= limit ) 
      {
	c = 9 ;
	loc = loc + 1 ;
      } 
    } 
    else if ( buffer [loc ]== 46 ) 
    {
      if ( loc <= limit ) 
      {
	c = 91 ;
	loc = loc + 1 ;
      } 
    } 
    break ;
  case 42 : 
    if ( buffer [loc ]== 41 ) 
    {
      if ( loc <= limit ) 
      {
	c = 10 ;
	loc = loc + 1 ;
      } 
    } 
    break ;
  case 32 : 
  case 9 : 
    goto lab20 ;
    break ;
  case 125 : 
    {
      {
	if ( ! phaseone ) 
	{
	  putc ('\n',  stdout );
	  Fputs( stdout ,  "! Extra }" ) ;
	  error () ;
	} 
      } 
      goto lab20 ;
    } 
    break ;
    default: 
    if ( c >= 128 ) 
    goto lab20 ;
    else ;
    break ;
  } 
  lab31: Result = c ;
  return Result ;
} 
void 
#ifdef HAVE_PROTOTYPES
Pascalxref ( void ) 
#else
Pascalxref ( ) 
#endif
{
  /* 10 */ namepointer p  ;
  while ( nextcontrol < 143 ) {
      
    if ( ( nextcontrol >= 130 ) && ( nextcontrol <= 133 ) ) 
    {
      p = idlookup ( nextcontrol - 130 ) ;
      newxref ( p ) ;
      if ( ( ilk [p ]== 17 ) || ( ilk [p ]== 22 ) ) 
      xrefswitch = 10240 ;
    } 
    nextcontrol = getnext () ;
    if ( ( nextcontrol == 124 ) || ( nextcontrol == 123 ) ) 
    goto lab10 ;
  } 
  lab10: ;
} 
void 
#ifdef HAVE_PROTOTYPES
outerxref ( void ) 
#else
outerxref ( ) 
#endif
{
  eightbits bal  ;
  while ( nextcontrol < 143 ) if ( nextcontrol != 123 ) 
  Pascalxref () ;
  else {
      
    bal = skipcomment ( 1 ) ;
    nextcontrol = 124 ;
    while ( bal > 0 ) {
	
      Pascalxref () ;
      if ( nextcontrol == 124 ) 
      bal = skipcomment ( bal ) ;
      else bal = 0 ;
    } 
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
zmodcheck ( namepointer p ) 
#else
zmodcheck ( p ) 
  namepointer p ;
#endif
{
  if ( p > 0 ) 
  {
    modcheck ( link [p ]) ;
    curxref = xref [p ];
    if ( xmem [curxref ].numfield < 10240 ) 
    {
      {
	putc ('\n',  stdout );
	Fputs( stdout ,  "! Never defined: <" ) ;
      } 
      printid ( p ) ;
      putc ( '>' ,  stdout );
      if ( history == 0 ) 
      history = 1 ;
    } 
    while ( xmem [curxref ].numfield >= 10240 ) curxref = xmem [curxref ]
    .xlinkfield ;
    if ( curxref == 0 ) 
    {
      {
	putc ('\n',  stdout );
	Fputs( stdout ,  "! Never used: <" ) ;
      } 
      printid ( p ) ;
      putc ( '>' ,  stdout );
      if ( history == 0 ) 
      history = 1 ;
    } 
    modcheck ( ilk [p ]) ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
zflushbuffer ( eightbits b , boolean percent , boolean carryover ) 
#else
zflushbuffer ( b , percent , carryover ) 
  eightbits b ;
  boolean percent ;
  boolean carryover ;
#endif
{
  /* 30 31 */ integer j, k  ;
  j = b ;
  if ( ! percent ) 
  while ( true ) {
      
    if ( j == 0 ) 
    goto lab30 ;
    if ( outbuf [j ]!= 32 ) 
    goto lab30 ;
    j = j - 1 ;
  } 
  lab30: {
      register integer for_end; k = 1 ;for_end = j ; if ( k <= for_end) 
  do 
    putc ( xchr [outbuf [k ]],  texfile );
  while ( k++ < for_end ) ;} 
  if ( percent ) 
  putc ( xchr [37 ],  texfile );
  putc ('\n',  texfile );
  outline = outline + 1 ;
  if ( carryover ) 
  {register integer for_end; k = 1 ;for_end = j ; if ( k <= for_end) do 
    if ( outbuf [k ]== 37 ) 
    if ( ( k == 1 ) || ( outbuf [k - 1 ]!= 92 ) ) 
    {
      outbuf [b ]= 37 ;
      b = b - 1 ;
      goto lab31 ;
    } 
  while ( k++ < for_end ) ;} 
  lab31: if ( ( b < outptr ) ) 
  {register integer for_end; k = b + 1 ;for_end = outptr ; if ( k <= 
  for_end) do 
    outbuf [k - b ]= outbuf [k ];
  while ( k++ < for_end ) ;} 
  outptr = outptr - b ;
} 
void 
#ifdef HAVE_PROTOTYPES
finishline ( void ) 
#else
finishline ( ) 
#endif
{
  /* 10 */ integer k  ;
  if ( outptr > 0 ) 
  flushbuffer ( outptr , false , false ) ;
  else {
      
    {register integer for_end; k = 0 ;for_end = limit ; if ( k <= for_end) 
    do 
      if ( ( buffer [k ]!= 32 ) && ( buffer [k ]!= 9 ) ) 
      goto lab10 ;
    while ( k++ < for_end ) ;} 
    flushbuffer ( 0 , false , false ) ;
  } 
  lab10: ;
} 
void 
#ifdef HAVE_PROTOTYPES
breakout ( void ) 
#else
breakout ( ) 
#endif
{
  /* 10 */ integer k  ;
  ASCIIcode d  ;
  k = outptr ;
  while ( true ) {
      
    if ( k == 0 ) 
    {
      {
	putc ('\n',  stdout );
	fprintf( stdout , "%s%ld",  "! Line had to be broken (output l." , (long)outline ) ;
      } 
      fprintf( stdout , "%s\n",  "):" ) ;
      {register integer for_end; k = 1 ;for_end = outptr - 1 ; if ( k <= 
      for_end) do 
	putc ( xchr [outbuf [k ]],  stdout );
      while ( k++ < for_end ) ;} 
      putc ('\n',  stdout );
      if ( history == 0 ) 
      history = 1 ;
      flushbuffer ( outptr - 1 , true , true ) ;
      goto lab10 ;
    } 
    d = outbuf [k ];
    if ( d == 32 ) 
    {
      flushbuffer ( k , false , true ) ;
      goto lab10 ;
    } 
    if ( ( d == 92 ) && ( outbuf [k - 1 ]!= 92 ) ) 
    {
      flushbuffer ( k - 1 , true , true ) ;
      goto lab10 ;
    } 
    k = k - 1 ;
  } 
  lab10: ;
} 
void 
#ifdef HAVE_PROTOTYPES
zoutmod ( integer m ) 
#else
zoutmod ( m ) 
  integer m ;
#endif
{
  char k  ;
  integer a  ;
  k = 0 ;
  a = m ;
  do {
      dig [k ]= a % 10 ;
    a = a / 10 ;
    k = k + 1 ;
  } while ( ! ( a == 0 ) ) ;
  do {
      k = k - 1 ;
    {
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= dig [k ]+ 48 ;
    } 
  } while ( ! ( k == 0 ) ) ;
  if ( changedmodule [m ]) 
  {
    if ( outptr == linelength ) 
    breakout () ;
    outptr = outptr + 1 ;
    outbuf [outptr ]= 92 ;
    if ( outptr == linelength ) 
    breakout () ;
    outptr = outptr + 1 ;
    outbuf [outptr ]= 42 ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
zoutname ( namepointer p ) 
#else
zoutname ( p ) 
  namepointer p ;
#endif
{
  integer k  ;
  char w  ;
  {
    if ( outptr == linelength ) 
    breakout () ;
    outptr = outptr + 1 ;
    outbuf [outptr ]= 123 ;
  } 
  w = p % 2 ;
  {register integer for_end; k = bytestart [p ];for_end = bytestart [p + 
  2 ]- 1 ; if ( k <= for_end) do 
    {
      if ( bytemem [w ][ k ]== 95 ) 
      {
	if ( outptr == linelength ) 
	breakout () ;
	outptr = outptr + 1 ;
	outbuf [outptr ]= 92 ;
      } 
      {
	if ( outptr == linelength ) 
	breakout () ;
	outptr = outptr + 1 ;
	outbuf [outptr ]= bytemem [w ][ k ];
      } 
    } 
  while ( k++ < for_end ) ;} 
  {
    if ( outptr == linelength ) 
    breakout () ;
    outptr = outptr + 1 ;
    outbuf [outptr ]= 125 ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
copylimbo ( void ) 
#else
copylimbo ( ) 
#endif
{
  /* 10 */ ASCIIcode c  ;
  while ( true ) if ( loc > limit ) 
  {
    finishline () ;
    getline () ;
    if ( inputhasended ) 
    goto lab10 ;
  } 
  else {
      
    buffer [limit + 1 ]= 64 ;
    while ( buffer [loc ]!= 64 ) {
	
      {
	if ( outptr == linelength ) 
	breakout () ;
	outptr = outptr + 1 ;
	outbuf [outptr ]= buffer [loc ];
      } 
      loc = loc + 1 ;
    } 
    if ( loc <= limit ) 
    {
      loc = loc + 2 ;
      c = buffer [loc - 1 ];
      if ( ( c == 32 ) || ( c == 9 ) || ( c == 42 ) ) 
      goto lab10 ;
      if ( ( c != 122 ) && ( c != 90 ) ) 
      {
	{
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 64 ;
	} 
	if ( c != 64 ) 
	{
	  if ( ! phaseone ) 
	  {
	    putc ('\n',  stdout );
	    Fputs( stdout ,  "! Double @ required outside of sections" ) ;
	    error () ;
	  } 
	} 
      } 
    } 
  } 
  lab10: ;
} 
eightbits 
#ifdef HAVE_PROTOTYPES
copyTeX ( void ) 
#else
copyTeX ( ) 
#endif
{
  /* 30 */ register eightbits Result; eightbits c  ;
  while ( true ) {
      
    if ( loc > limit ) 
    {
      finishline () ;
      getline () ;
      if ( inputhasended ) 
      {
	c = 147 ;
	goto lab30 ;
      } 
    } 
    buffer [limit + 1 ]= 64 ;
    do {
	c = buffer [loc ];
      loc = loc + 1 ;
      if ( c == 124 ) 
      goto lab30 ;
      if ( c != 64 ) 
      {
	{
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= c ;
	} 
	if ( ( outptr == 1 ) && ( ( c == 32 ) || ( c == 9 ) ) ) 
	outptr = outptr - 1 ;
      } 
    } while ( ! ( c == 64 ) ) ;
    if ( loc <= limit ) 
    {
      c = controlcode ( buffer [loc ]) ;
      loc = loc + 1 ;
      goto lab30 ;
    } 
  } 
  lab30: Result = c ;
  return Result ;
} 
eightbits 
#ifdef HAVE_PROTOTYPES
zcopycomment ( eightbits bal ) 
#else
zcopycomment ( bal ) 
  eightbits bal ;
#endif
{
  /* 30 */ register eightbits Result; ASCIIcode c  ;
  while ( true ) {
      
    if ( loc > limit ) 
    {
      getline () ;
      if ( inputhasended ) 
      {
	{
	  if ( ! phaseone ) 
	  {
	    putc ('\n',  stdout );
	    Fputs( stdout ,  "! Input ended in mid-comment" ) ;
	    error () ;
	  } 
	} 
	loc = 1 ;
	{
	  if ( tokptr + 2 > maxtoks ) 
	  {
	    putc ('\n',  stdout );
	    fprintf( stderr , "%s%s%s",  "! Sorry, " , "token" , " capacity exceeded" ) ;
	    error () ;
	    history = 3 ;
	    jumpout () ;
	  } 
	  tokmem [tokptr ]= 32 ;
	  tokptr = tokptr + 1 ;
	} 
	do {
	    { 
	    if ( tokptr + 2 > maxtoks ) 
	    {
	      putc ('\n',  stdout );
	      fprintf( stderr , "%s%s%s",  "! Sorry, " , "token" , " capacity exceeded" ) 
	      ;
	      error () ;
	      history = 3 ;
	      jumpout () ;
	    } 
	    tokmem [tokptr ]= 125 ;
	    tokptr = tokptr + 1 ;
	  } 
	  bal = bal - 1 ;
	} while ( ! ( bal == 0 ) ) ;
	goto lab30 ;
      } 
    } 
    c = buffer [loc ];
    loc = loc + 1 ;
    if ( c == 124 ) 
    goto lab30 ;
    {
      if ( tokptr + 2 > maxtoks ) 
      {
	putc ('\n',  stdout );
	fprintf( stderr , "%s%s%s",  "! Sorry, " , "token" , " capacity exceeded" ) ;
	error () ;
	history = 3 ;
	jumpout () ;
      } 
      tokmem [tokptr ]= c ;
      tokptr = tokptr + 1 ;
    } 
    if ( c == 64 ) 
    {
      loc = loc + 1 ;
      if ( buffer [loc - 1 ]!= 64 ) 
      {
	{
	  if ( ! phaseone ) 
	  {
	    putc ('\n',  stdout );
	    Fputs( stdout ,  "! Illegal use of @ in comment" ) ;
	    error () ;
	  } 
	} 
	loc = loc - 2 ;
	tokptr = tokptr - 1 ;
	{
	  if ( tokptr + 2 > maxtoks ) 
	  {
	    putc ('\n',  stdout );
	    fprintf( stderr , "%s%s%s",  "! Sorry, " , "token" , " capacity exceeded" ) ;
	    error () ;
	    history = 3 ;
	    jumpout () ;
	  } 
	  tokmem [tokptr ]= 32 ;
	  tokptr = tokptr + 1 ;
	} 
	do {
	    { 
	    if ( tokptr + 2 > maxtoks ) 
	    {
	      putc ('\n',  stdout );
	      fprintf( stderr , "%s%s%s",  "! Sorry, " , "token" , " capacity exceeded" ) 
	      ;
	      error () ;
	      history = 3 ;
	      jumpout () ;
	    } 
	    tokmem [tokptr ]= 125 ;
	    tokptr = tokptr + 1 ;
	  } 
	  bal = bal - 1 ;
	} while ( ! ( bal == 0 ) ) ;
	goto lab30 ;
      } 
    } 
    else if ( ( c == 92 ) && ( buffer [loc ]!= 64 ) ) 
    {
      {
	if ( tokptr + 2 > maxtoks ) 
	{
	  putc ('\n',  stdout );
	  fprintf( stderr , "%s%s%s",  "! Sorry, " , "token" , " capacity exceeded" ) ;
	  error () ;
	  history = 3 ;
	  jumpout () ;
	} 
	tokmem [tokptr ]= buffer [loc ];
	tokptr = tokptr + 1 ;
      } 
      loc = loc + 1 ;
    } 
    else if ( c == 123 ) 
    bal = bal + 1 ;
    else if ( c == 125 ) 
    {
      bal = bal - 1 ;
      if ( bal == 0 ) 
      goto lab30 ;
    } 
  } 
  lab30: Result = bal ;
  return Result ;
} 
void 
#ifdef HAVE_PROTOTYPES
zred ( sixteenbits j , eightbits k , eightbits c , integer d ) 
#else
zred ( j , k , c , d ) 
  sixteenbits j ;
  eightbits k ;
  eightbits c ;
  integer d ;
#endif
{
  integer i  ;
  cat [j ]= c ;
  trans [j ]= textptr ;
  textptr = textptr + 1 ;
  tokstart [textptr ]= tokptr ;
  if ( k > 1 ) 
  {
    {register integer for_end; i = j + k ;for_end = loptr ; if ( i <= 
    for_end) do 
      {
	cat [i - k + 1 ]= cat [i ];
	trans [i - k + 1 ]= trans [i ];
      } 
    while ( i++ < for_end ) ;} 
    loptr = loptr - k + 1 ;
  } 
  if ( pp + d >= scrapbase ) 
  pp = pp + d ;
  else pp = scrapbase ;
} 
void 
#ifdef HAVE_PROTOTYPES
zsq ( sixteenbits j , eightbits k , eightbits c , integer d ) 
#else
zsq ( j , k , c , d ) 
  sixteenbits j ;
  eightbits k ;
  eightbits c ;
  integer d ;
#endif
{
  integer i  ;
  if ( k == 1 ) 
  {
    cat [j ]= c ;
    if ( pp + d >= scrapbase ) 
    pp = pp + d ;
    else pp = scrapbase ;
  } 
  else {
      
    {register integer for_end; i = j ;for_end = j + k - 1 ; if ( i <= 
    for_end) do 
      {
	tokmem [tokptr ]= 40960L + trans [i ];
	tokptr = tokptr + 1 ;
      } 
    while ( i++ < for_end ) ;} 
    red ( j , k , c , d ) ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
fivecases ( void ) 
#else
fivecases ( ) 
#endif
{
  /* 31 */ switch ( cat [pp ]) 
  {case 5 : 
    if ( cat [pp + 1 ]== 6 ) 
    {
      if ( ( cat [pp + 2 ]== 10 ) || ( cat [pp + 2 ]== 11 ) ) 
      {
	sq ( pp , 3 , 11 , -2 ) ;
	goto lab31 ;
      } 
    } 
    else if ( cat [pp + 1 ]== 11 ) 
    {
      tokmem [tokptr ]= 40960L + trans [pp ];
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 140 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 40960L + trans [pp + 1 ];
      tokptr = tokptr + 1 ;
      red ( pp , 2 , 5 , -1 ) ;
      goto lab31 ;
    } 
    break ;
  case 3 : 
    if ( cat [pp + 1 ]== 11 ) 
    {
      tokmem [tokptr ]= 40960L + trans [pp ];
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 32 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 138 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 55 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 135 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 40960L + trans [pp + 1 ];
      tokptr = tokptr + 1 ;
      red ( pp , 2 , 11 , -2 ) ;
      goto lab31 ;
    } 
    break ;
  case 2 : 
    if ( cat [pp + 1 ]== 6 ) 
    {
      tokmem [tokptr ]= 36 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 40960L + trans [pp ];
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 36 ;
      tokptr = tokptr + 1 ;
      red ( pp , 1 , 11 , -2 ) ;
      goto lab31 ;
    } 
    else if ( cat [pp + 1 ]== 14 ) 
    {
      tokmem [tokptr ]= 141 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 139 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 36 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 40960L + trans [pp ];
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 36 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 40960L + trans [pp + 1 ];
      tokptr = tokptr + 1 ;
      red ( pp , 2 , 3 , -3 ) ;
      goto lab31 ;
    } 
    else if ( cat [pp + 1 ]== 2 ) 
    {
      sq ( pp , 2 , 2 , -1 ) ;
      goto lab31 ;
    } 
    else if ( cat [pp + 1 ]== 1 ) 
    {
      sq ( pp , 2 , 2 , -1 ) ;
      goto lab31 ;
    } 
    else if ( cat [pp + 1 ]== 11 ) 
    {
      tokmem [tokptr ]= 36 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 40960L + trans [pp ];
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 36 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 136 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 140 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 40960L + trans [pp + 1 ];
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 135 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 137 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 141 ;
      tokptr = tokptr + 1 ;
      red ( pp , 2 , 11 , -2 ) ;
      goto lab31 ;
    } 
    else if ( cat [pp + 1 ]== 10 ) 
    {
      tokmem [tokptr ]= 36 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 40960L + trans [pp ];
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 36 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 40960L + trans [pp + 1 ];
      tokptr = tokptr + 1 ;
      red ( pp , 2 , 11 , -2 ) ;
      goto lab31 ;
    } 
    break ;
  case 4 : 
    if ( ( cat [pp + 1 ]== 17 ) && ( cat [pp + 2 ]== 6 ) ) 
    {
      tokmem [tokptr ]= 40960L + trans [pp ];
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 36 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 135 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 40960L + trans [pp + 1 ];
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 135 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 137 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 36 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 40960L + trans [pp + 2 ];
      tokptr = tokptr + 1 ;
      red ( pp , 3 , 2 , -1 ) ;
      goto lab31 ;
    } 
    else if ( cat [pp + 1 ]== 6 ) 
    {
      tokmem [tokptr ]= 40960L + trans [pp ];
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 44 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 40960L + trans [pp + 1 ];
      tokptr = tokptr + 1 ;
      red ( pp , 2 , 2 , -1 ) ;
      goto lab31 ;
    } 
    else if ( cat [pp + 1 ]== 2 ) 
    {
      if ( ( cat [pp + 2 ]== 17 ) && ( cat [pp + 3 ]== 6 ) ) 
      {
	tokmem [tokptr ]= 40960L + trans [pp ];
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 36 ;
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 135 ;
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 40960L + trans [pp + 2 ];
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 135 ;
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 137 ;
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 36 ;
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 40960L + trans [pp + 3 ];
	tokptr = tokptr + 1 ;
	red ( pp , 4 , 2 , -1 ) ;
	goto lab31 ;
      } 
      else if ( cat [pp + 2 ]== 6 ) 
      {
	sq ( pp , 3 , 2 , -1 ) ;
	goto lab31 ;
      } 
      else if ( cat [pp + 2 ]== 14 ) 
      {
	sq ( pp + 1 , 2 , 2 , 0 ) ;
	goto lab31 ;
      } 
      else if ( cat [pp + 2 ]== 16 ) 
      {
	if ( cat [pp + 3 ]== 3 ) 
	{
	  tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 133 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 135 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 40960L + trans [pp + 2 ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 125 ;
	  tokptr = tokptr + 1 ;
	  red ( pp + 1 , 3 , 2 , 0 ) ;
	  goto lab31 ;
	} 
      } 
      else if ( cat [pp + 2 ]== 9 ) 
      {
	tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 40960L + trans [pp + 2 ];
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 92 ;
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 44 ;
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 138 ;
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 53 ;
	tokptr = tokptr + 1 ;
	red ( pp + 1 , 2 , 2 , 0 ) ;
	goto lab31 ;
      } 
      else if ( cat [pp + 2 ]== 19 ) 
      {
	if ( cat [pp + 3 ]== 3 ) 
	{
	  tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 133 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 135 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 40960L + trans [pp + 2 ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 125 ;
	  tokptr = tokptr + 1 ;
	  red ( pp + 1 , 3 , 2 , 0 ) ;
	  goto lab31 ;
	} 
      } 
    } 
    else if ( cat [pp + 1 ]== 16 ) 
    {
      if ( cat [pp + 2 ]== 3 ) 
      {
	tokmem [tokptr ]= 133 ;
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 135 ;
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 125 ;
	tokptr = tokptr + 1 ;
	red ( pp + 1 , 2 , 2 , 0 ) ;
	goto lab31 ;
      } 
    } 
    else if ( cat [pp + 1 ]== 1 ) 
    {
      sq ( pp + 1 , 1 , 2 , 0 ) ;
      goto lab31 ;
    } 
    else if ( ( cat [pp + 1 ]== 11 ) && ( cat [pp + 2 ]== 6 ) ) 
    {
      tokmem [tokptr ]= 40960L + trans [pp ];
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 36 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 135 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 40960L + trans [pp + 1 ];
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 135 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 36 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 40960L + trans [pp + 2 ];
      tokptr = tokptr + 1 ;
      red ( pp , 3 , 2 , -1 ) ;
      goto lab31 ;
    } 
    else if ( cat [pp + 1 ]== 19 ) 
    {
      if ( cat [pp + 2 ]== 3 ) 
      {
	tokmem [tokptr ]= 133 ;
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 135 ;
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 125 ;
	tokptr = tokptr + 1 ;
	red ( pp + 1 , 2 , 2 , 0 ) ;
	goto lab31 ;
      } 
    } 
    break ;
  case 1 : 
    if ( cat [pp + 1 ]== 6 ) 
    {
      sq ( pp , 1 , 11 , -2 ) ;
      goto lab31 ;
    } 
    else if ( cat [pp + 1 ]== 14 ) 
    {
      tokmem [tokptr ]= 141 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 139 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 40960L + trans [pp ];
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 40960L + trans [pp + 1 ];
      tokptr = tokptr + 1 ;
      red ( pp , 2 , 3 , -3 ) ;
      goto lab31 ;
    } 
    else if ( cat [pp + 1 ]== 2 ) 
    {
      sq ( pp , 2 , 2 , -1 ) ;
      goto lab31 ;
    } 
    else if ( cat [pp + 1 ]== 22 ) 
    {
      sq ( pp , 2 , 22 , 0 ) ;
      goto lab31 ;
    } 
    else if ( cat [pp + 1 ]== 1 ) 
    {
      sq ( pp , 2 , 1 , -2 ) ;
      goto lab31 ;
    } 
    else if ( cat [pp + 1 ]== 10 ) 
    {
      sq ( pp , 2 , 11 , -2 ) ;
      goto lab31 ;
    } 
    break ;
    default: 
    ;
    break ;
  } 
  pp = pp + 1 ;
  lab31: ;
} 
void 
#ifdef HAVE_PROTOTYPES
alphacases ( void ) 
#else
alphacases ( ) 
#endif
{
  /* 31 */ if ( cat [pp + 1 ]== 2 ) 
  {
    if ( cat [pp + 2 ]== 14 ) 
    {
      sq ( pp + 1 , 2 , 2 , 0 ) ;
      goto lab31 ;
    } 
    else if ( cat [pp + 2 ]== 8 ) 
    {
      tokmem [tokptr ]= 40960L + trans [pp ];
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 32 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 36 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 40960L + trans [pp + 1 ];
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 36 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 32 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 136 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 40960L + trans [pp + 2 ];
      tokptr = tokptr + 1 ;
      red ( pp , 3 , 13 , -2 ) ;
      goto lab31 ;
    } 
  } 
  else if ( cat [pp + 1 ]== 8 ) 
  {
    tokmem [tokptr ]= 40960L + trans [pp ];
    tokptr = tokptr + 1 ;
    tokmem [tokptr ]= 32 ;
    tokptr = tokptr + 1 ;
    tokmem [tokptr ]= 136 ;
    tokptr = tokptr + 1 ;
    tokmem [tokptr ]= 40960L + trans [pp + 1 ];
    tokptr = tokptr + 1 ;
    red ( pp , 2 , 13 , -2 ) ;
    goto lab31 ;
  } 
  else if ( cat [pp + 1 ]== 1 ) 
  {
    sq ( pp + 1 , 1 , 2 , 0 ) ;
    goto lab31 ;
  } 
  pp = pp + 1 ;
  lab31: ;
} 
textpointer 
#ifdef HAVE_PROTOTYPES
translate ( void ) 
#else
translate ( ) 
#endif
{
  /* 30 31 */ register textpointer Result; integer i  ;
  integer j  ;
  integer k  ;
  pp = scrapbase ;
  loptr = pp - 1 ;
  hiptr = pp ;
  while ( true ) {
      
    if ( loptr < pp + 3 ) 
    {
      do {
	  if ( hiptr <= scrapptr ) 
	{
	  loptr = loptr + 1 ;
	  cat [loptr ]= cat [hiptr ];
	  trans [loptr ]= trans [hiptr ];
	  hiptr = hiptr + 1 ;
	} 
      } while ( ! ( ( hiptr > scrapptr ) || ( loptr == pp + 3 ) ) ) ;
      {register integer for_end; i = loptr + 1 ;for_end = pp + 3 ; if ( i <= 
      for_end) do 
	cat [i ]= 0 ;
      while ( i++ < for_end ) ;} 
    } 
    if ( ( tokptr + 8 > maxtoks ) || ( textptr + 4 > maxtexts ) ) 
    {
      {
	putc ('\n',  stdout );
	fprintf( stderr , "%s%s%s",  "! Sorry, " , "token/text" , " capacity exceeded" ) ;
	error () ;
	history = 3 ;
	jumpout () ;
      } 
    } 
    if ( pp > loptr ) 
    goto lab30 ;
    if ( cat [pp ]<= 7 ) 
    if ( cat [pp ]< 7 ) 
    fivecases () ;
    else alphacases () ;
    else {
	
      switch ( cat [pp ]) 
      {case 17 : 
	if ( cat [pp + 1 ]== 21 ) 
	{
	  if ( cat [pp + 2 ]== 13 ) 
	  {
	    tokmem [tokptr ]= 40960L + trans [pp ];
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 137 ;
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 40960L + trans [pp + 2 ];
	    tokptr = tokptr + 1 ;
	    red ( pp , 3 , 17 , 0 ) ;
	    goto lab31 ;
	  } 
	} 
	else if ( cat [pp + 1 ]== 6 ) 
	{
	  if ( cat [pp + 2 ]== 10 ) 
	  {
	    tokmem [tokptr ]= 40960L + trans [pp ];
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 135 ;
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 137 ;
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 40960L + trans [pp + 2 ];
	    tokptr = tokptr + 1 ;
	    red ( pp , 3 , 11 , -2 ) ;
	    goto lab31 ;
	  } 
	} 
	else if ( cat [pp + 1 ]== 11 ) 
	{
	  tokmem [tokptr ]= 40960L + trans [pp ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 141 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	  tokptr = tokptr + 1 ;
	  red ( pp , 2 , 17 , 0 ) ;
	  goto lab31 ;
	} 
	break ;
      case 21 : 
	if ( cat [pp + 1 ]== 13 ) 
	{
	  sq ( pp , 2 , 17 , 0 ) ;
	  goto lab31 ;
	} 
	break ;
      case 13 : 
	if ( cat [pp + 1 ]== 11 ) 
	{
	  tokmem [tokptr ]= 40960L + trans [pp ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 140 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 135 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 137 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 141 ;
	  tokptr = tokptr + 1 ;
	  red ( pp , 2 , 11 , -2 ) ;
	  goto lab31 ;
	} 
	break ;
      case 12 : 
	if ( ( cat [pp + 1 ]== 13 ) && ( cat [pp + 2 ]== 11 ) ) 
	if ( cat [pp + 3 ]== 20 ) 
	{
	  tokmem [tokptr ]= 40960L + trans [pp ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 140 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 40960L + trans [pp + 2 ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 40960L + trans [pp + 3 ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 32 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 135 ;
	  tokptr = tokptr + 1 ;
	  red ( pp , 4 , 13 , -2 ) ;
	  goto lab31 ;
	} 
	else {
	    
	  tokmem [tokptr ]= 40960L + trans [pp ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 140 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 40960L + trans [pp + 2 ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 135 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 137 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 141 ;
	  tokptr = tokptr + 1 ;
	  red ( pp , 3 , 11 , -2 ) ;
	  goto lab31 ;
	} 
	break ;
      case 20 : 
	{
	  sq ( pp , 1 , 3 , -3 ) ;
	  goto lab31 ;
	} 
	break ;
      case 15 : 
	if ( cat [pp + 1 ]== 2 ) 
	{
	  if ( cat [pp + 2 ]== 1 ) 
	  if ( cat [pp + 3 ]!= 1 ) 
	  {
	    tokmem [tokptr ]= 40960L + trans [pp ];
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 40960L + trans [pp + 2 ];
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 125 ;
	    tokptr = tokptr + 1 ;
	    red ( pp , 3 , 2 , -1 ) ;
	    goto lab31 ;
	  } 
	} 
	else if ( cat [pp + 1 ]== 1 ) 
	if ( cat [pp + 2 ]!= 1 ) 
	{
	  tokmem [tokptr ]= 40960L + trans [pp ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 125 ;
	  tokptr = tokptr + 1 ;
	  red ( pp , 2 , 2 , -1 ) ;
	  goto lab31 ;
	} 
	break ;
      case 22 : 
	if ( ( cat [pp + 1 ]== 10 ) || ( cat [pp + 1 ]== 9 ) ) 
	{
	  tokmem [tokptr ]= 40960L + trans [pp ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 141 ;
	  tokptr = tokptr + 1 ;
	  red ( pp , 2 , 11 , -2 ) ;
	  goto lab31 ;
	} 
	else {
	    
	  sq ( pp , 1 , 1 , -2 ) ;
	  goto lab31 ;
	} 
	break ;
      case 16 : 
	if ( cat [pp + 1 ]== 5 ) 
	{
	  if ( ( cat [pp + 2 ]== 6 ) && ( cat [pp + 3 ]== 10 ) ) 
	  {
	    tokmem [tokptr ]= 40960L + trans [pp ];
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 135 ;
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 137 ;
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 40960L + trans [pp + 2 ];
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 40960L + trans [pp + 3 ];
	    tokptr = tokptr + 1 ;
	    red ( pp , 4 , 11 , -2 ) ;
	    goto lab31 ;
	  } 
	} 
	else if ( cat [pp + 1 ]== 11 ) 
	{
	  tokmem [tokptr ]= 40960L + trans [pp ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 140 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	  tokptr = tokptr + 1 ;
	  red ( pp , 2 , 16 , -2 ) ;
	  goto lab31 ;
	} 
	break ;
      case 18 : 
	if ( ( cat [pp + 1 ]== 3 ) && ( cat [pp + 2 ]== 21 ) ) 
	{
	  tokmem [tokptr ]= 40960L + trans [pp ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 32 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 135 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 40960L + trans [pp + 2 ];
	  tokptr = tokptr + 1 ;
	  red ( pp , 3 , 21 , -2 ) ;
	  goto lab31 ;
	} 
	else {
	    
	  tokmem [tokptr ]= 136 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 40960L + trans [pp ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 135 ;
	  tokptr = tokptr + 1 ;
	  red ( pp , 1 , 17 , 0 ) ;
	  goto lab31 ;
	} 
	break ;
      case 9 : 
	{
	  sq ( pp , 1 , 10 , -3 ) ;
	  goto lab31 ;
	} 
	break ;
      case 11 : 
	if ( cat [pp + 1 ]== 11 ) 
	{
	  tokmem [tokptr ]= 40960L + trans [pp ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 140 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	  tokptr = tokptr + 1 ;
	  red ( pp , 2 , 11 , -2 ) ;
	  goto lab31 ;
	} 
	break ;
      case 10 : 
	{
	  sq ( pp , 1 , 11 , -2 ) ;
	  goto lab31 ;
	} 
	break ;
      case 19 : 
	if ( cat [pp + 1 ]== 5 ) 
	{
	  sq ( pp , 1 , 11 , -2 ) ;
	  goto lab31 ;
	} 
	else if ( cat [pp + 1 ]== 2 ) 
	{
	  if ( cat [pp + 2 ]== 14 ) 
	  {
	    tokmem [tokptr ]= 36 ;
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 36 ;
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 40960L + trans [pp + 2 ];
	    tokptr = tokptr + 1 ;
	    red ( pp + 1 , 2 , 3 , 1 ) ;
	    goto lab31 ;
	  } 
	} 
	else if ( cat [pp + 1 ]== 1 ) 
	{
	  if ( cat [pp + 2 ]== 14 ) 
	  {
	    sq ( pp + 1 , 2 , 3 , 1 ) ;
	    goto lab31 ;
	  } 
	} 
	else if ( cat [pp + 1 ]== 11 ) 
	{
	  tokmem [tokptr ]= 40960L + trans [pp ];
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 140 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 40960L + trans [pp + 1 ];
	  tokptr = tokptr + 1 ;
	  red ( pp , 2 , 19 , -2 ) ;
	  goto lab31 ;
	} 
	break ;
	default: 
	;
	break ;
      } 
      pp = pp + 1 ;
      lab31: ;
    } 
  } 
  lab30: ;
  if ( ( loptr == scrapbase ) && ( cat [loptr ]!= 2 ) ) 
  Result = trans [loptr ];
  else {
      
    ;
    {register integer for_end; j = scrapbase ;for_end = loptr ; if ( j <= 
    for_end) do 
      {
	if ( j != scrapbase ) 
	{
	  tokmem [tokptr ]= 32 ;
	  tokptr = tokptr + 1 ;
	} 
	if ( cat [j ]== 2 ) 
	{
	  tokmem [tokptr ]= 36 ;
	  tokptr = tokptr + 1 ;
	} 
	tokmem [tokptr ]= 40960L + trans [j ];
	tokptr = tokptr + 1 ;
	if ( cat [j ]== 2 ) 
	{
	  tokmem [tokptr ]= 36 ;
	  tokptr = tokptr + 1 ;
	} 
	if ( tokptr + 6 > maxtoks ) 
	{
	  putc ('\n',  stdout );
	  fprintf( stderr , "%s%s%s",  "! Sorry, " , "token" , " capacity exceeded" ) ;
	  error () ;
	  history = 3 ;
	  jumpout () ;
	} 
      } 
    while ( j++ < for_end ) ;} 
    textptr = textptr + 1 ;
    tokstart [textptr ]= tokptr ;
    Result = textptr - 1 ;
  } 
  return Result ;
} 
void 
#ifdef HAVE_PROTOTYPES
appcomment ( void ) 
#else
appcomment ( ) 
#endif
{
  textptr = textptr + 1 ;
  tokstart [textptr ]= tokptr ;
  if ( ( scrapptr < scrapbase ) || ( cat [scrapptr ]< 8 ) || ( cat [
  scrapptr ]> 10 ) ) 
  {
    scrapptr = scrapptr + 1 ;
    cat [scrapptr ]= 10 ;
    trans [scrapptr ]= 0 ;
  } 
  else {
      
    tokmem [tokptr ]= 40960L + trans [scrapptr ];
    tokptr = tokptr + 1 ;
  } 
  tokmem [tokptr ]= textptr + 40959L ;
  tokptr = tokptr + 1 ;
  trans [scrapptr ]= textptr ;
  textptr = textptr + 1 ;
  tokstart [textptr ]= tokptr ;
} 
void 
#ifdef HAVE_PROTOTYPES
appoctal ( void ) 
#else
appoctal ( ) 
#endif
{
  tokmem [tokptr ]= 92 ;
  tokptr = tokptr + 1 ;
  tokmem [tokptr ]= 79 ;
  tokptr = tokptr + 1 ;
  tokmem [tokptr ]= 123 ;
  tokptr = tokptr + 1 ;
  while ( ( buffer [loc ]>= 48 ) && ( buffer [loc ]<= 55 ) ) {
      
    {
      if ( tokptr + 2 > maxtoks ) 
      {
	putc ('\n',  stdout );
	fprintf( stderr , "%s%s%s",  "! Sorry, " , "token" , " capacity exceeded" ) ;
	error () ;
	history = 3 ;
	jumpout () ;
      } 
      tokmem [tokptr ]= buffer [loc ];
      tokptr = tokptr + 1 ;
    } 
    loc = loc + 1 ;
  } 
  {
    tokmem [tokptr ]= 125 ;
    tokptr = tokptr + 1 ;
    scrapptr = scrapptr + 1 ;
    cat [scrapptr ]= 1 ;
    trans [scrapptr ]= textptr ;
    textptr = textptr + 1 ;
    tokstart [textptr ]= tokptr ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
apphex ( void ) 
#else
apphex ( ) 
#endif
{
  tokmem [tokptr ]= 92 ;
  tokptr = tokptr + 1 ;
  tokmem [tokptr ]= 72 ;
  tokptr = tokptr + 1 ;
  tokmem [tokptr ]= 123 ;
  tokptr = tokptr + 1 ;
  while ( ( ( buffer [loc ]>= 48 ) && ( buffer [loc ]<= 57 ) ) || ( ( 
  buffer [loc ]>= 65 ) && ( buffer [loc ]<= 70 ) ) ) {
      
    {
      if ( tokptr + 2 > maxtoks ) 
      {
	putc ('\n',  stdout );
	fprintf( stderr , "%s%s%s",  "! Sorry, " , "token" , " capacity exceeded" ) ;
	error () ;
	history = 3 ;
	jumpout () ;
      } 
      tokmem [tokptr ]= buffer [loc ];
      tokptr = tokptr + 1 ;
    } 
    loc = loc + 1 ;
  } 
  {
    tokmem [tokptr ]= 125 ;
    tokptr = tokptr + 1 ;
    scrapptr = scrapptr + 1 ;
    cat [scrapptr ]= 1 ;
    trans [scrapptr ]= textptr ;
    textptr = textptr + 1 ;
    tokstart [textptr ]= tokptr ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
easycases ( void ) 
#else
easycases ( ) 
#endif
{
  switch ( nextcontrol ) 
  {case 6 : 
    {
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 105 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 110 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 32 : 
    {
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 116 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 111 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 35 : 
  case 36 : 
  case 37 : 
  case 94 : 
  case 95 : 
    {
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= nextcontrol ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 0 : 
  case 124 : 
  case 131 : 
  case 132 : 
  case 133 : 
    ;
    break ;
  case 40 : 
  case 91 : 
    {
      tokmem [tokptr ]= nextcontrol ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 4 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 41 : 
  case 93 : 
    {
      tokmem [tokptr ]= nextcontrol ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 6 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 42 : 
    {
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 97 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 115 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 116 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 44 : 
    {
      tokmem [tokptr ]= 44 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 138 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 57 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 46 : 
  case 48 : 
  case 49 : 
  case 50 : 
  case 51 : 
  case 52 : 
  case 53 : 
  case 54 : 
  case 55 : 
  case 56 : 
  case 57 : 
    {
      tokmem [tokptr ]= nextcontrol ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 1 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 59 : 
    {
      tokmem [tokptr ]= 59 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 9 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 58 : 
    {
      tokmem [tokptr ]= 58 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 14 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 26 : 
    {
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 73 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 28 : 
    {
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 76 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 29 : 
    {
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 71 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 30 : 
    {
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 83 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 4 : 
    {
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 87 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 31 : 
    {
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 86 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 5 : 
    {
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 82 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 24 : 
    {
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 75 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 128 : 
    {
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 69 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 123 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 15 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 9 : 
    {
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 66 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 10 : 
    {
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 84 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 12 : 
    appoctal () ;
    break ;
  case 13 : 
    apphex () ;
    break ;
  case 135 : 
    {
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 41 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 1 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 3 : 
    {
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 93 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 1 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 137 : 
    {
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 44 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 138 : 
    {
      tokmem [tokptr ]= 138 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 48 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 1 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 139 : 
    {
      tokmem [tokptr ]= 141 ;
      tokptr = tokptr + 1 ;
      appcomment () ;
    } 
    break ;
  case 140 : 
    {
      tokmem [tokptr ]= 142 ;
      tokptr = tokptr + 1 ;
      appcomment () ;
    } 
    break ;
  case 141 : 
    {
      tokmem [tokptr ]= 134 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 32 ;
      tokptr = tokptr + 1 ;
      {
	tokmem [tokptr ]= 134 ;
	tokptr = tokptr + 1 ;
	appcomment () ;
      } 
    } 
    break ;
  case 142 : 
    {
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 9 ;
      trans [scrapptr ]= 0 ;
    } 
    break ;
  case 136 : 
    {
      tokmem [tokptr ]= 92 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 74 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
    default: 
    {
      tokmem [tokptr ]= nextcontrol ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
zsubcases ( namepointer p ) 
#else
zsubcases ( p ) 
  namepointer p ;
#endif
{
  switch ( ilk [p ]) 
  {case 0 : 
    {
      tokmem [tokptr ]= 10240 + p ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 1 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 4 : 
    {
      tokmem [tokptr ]= 20480 + p ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 7 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 7 : 
    {
      tokmem [tokptr ]= 141 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 139 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 20480 + p ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 3 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 8 : 
    {
      tokmem [tokptr ]= 131 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 20480 + p ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 125 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 9 : 
    {
      tokmem [tokptr ]= 20480 + p ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 8 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 12 : 
    {
      tokmem [tokptr ]= 141 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 20480 + p ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 7 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 13 : 
    {
      tokmem [tokptr ]= 20480 + p ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 3 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 16 : 
    {
      tokmem [tokptr ]= 20480 + p ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 1 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  case 20 : 
    {
      tokmem [tokptr ]= 132 ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 20480 + p ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 125 ;
      tokptr = tokptr + 1 ;
      scrapptr = scrapptr + 1 ;
      cat [scrapptr ]= 2 ;
      trans [scrapptr ]= textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
    } 
    break ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
Pascalparse ( void ) 
#else
Pascalparse ( ) 
#endif
{
  /* 21 10 */ integer j  ;
  namepointer p  ;
  while ( nextcontrol < 143 ) {
      
    if ( ( scrapptr + 4 > maxscraps ) || ( tokptr + 6 > maxtoks ) || ( textptr 
    + 4 > maxtexts ) ) 
    {
      {
	putc ('\n',  stdout );
	fprintf( stderr , "%s%s%s",  "! Sorry, " , "scrap/token/text" ,         " capacity exceeded" ) ;
	error () ;
	history = 3 ;
	jumpout () ;
      } 
    } 
    lab21: switch ( nextcontrol ) 
    {case 129 : 
    case 2 : 
      {
	tokmem [tokptr ]= 92 ;
	tokptr = tokptr + 1 ;
	if ( nextcontrol == 2 ) 
	{
	  tokmem [tokptr ]= 61 ;
	  tokptr = tokptr + 1 ;
	} 
	else {
	    
	  tokmem [tokptr ]= 46 ;
	  tokptr = tokptr + 1 ;
	} 
	tokmem [tokptr ]= 123 ;
	tokptr = tokptr + 1 ;
	j = idfirst ;
	while ( j < idloc ) {
	    
	  switch ( buffer [j ]) 
	  {case 32 : 
	  case 92 : 
	  case 35 : 
	  case 37 : 
	  case 36 : 
	  case 94 : 
	  case 39 : 
	  case 96 : 
	  case 123 : 
	  case 125 : 
	  case 126 : 
	  case 38 : 
	  case 95 : 
	    {
	      tokmem [tokptr ]= 92 ;
	      tokptr = tokptr + 1 ;
	    } 
	    break ;
	  case 64 : 
	    if ( buffer [j + 1 ]== 64 ) 
	    j = j + 1 ;
	    else {
		
	      if ( ! phaseone ) 
	      {
		putc ('\n',  stdout );
		Fputs( stdout ,  "! Double @ should be used in strings" ) ;
		error () ;
	      } 
	    } 
	    break ;
	    default: 
	    ;
	    break ;
	  } 
	  {
	    if ( tokptr + 2 > maxtoks ) 
	    {
	      putc ('\n',  stdout );
	      fprintf( stderr , "%s%s%s",  "! Sorry, " , "token" , " capacity exceeded" ) 
	      ;
	      error () ;
	      history = 3 ;
	      jumpout () ;
	    } 
	    tokmem [tokptr ]= buffer [j ];
	    tokptr = tokptr + 1 ;
	  } 
	  j = j + 1 ;
	} 
	{
	  tokmem [tokptr ]= 125 ;
	  tokptr = tokptr + 1 ;
	  scrapptr = scrapptr + 1 ;
	  cat [scrapptr ]= 1 ;
	  trans [scrapptr ]= textptr ;
	  textptr = textptr + 1 ;
	  tokstart [textptr ]= tokptr ;
	} 
      } 
      break ;
    case 130 : 
      {
	p = idlookup ( 0 ) ;
	switch ( ilk [p ]) 
	{case 0 : 
	case 4 : 
	case 7 : 
	case 8 : 
	case 9 : 
	case 12 : 
	case 13 : 
	case 16 : 
	case 20 : 
	  subcases ( p ) ;
	  break ;
	case 5 : 
	  {
	    {
	      tokmem [tokptr ]= 141 ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 20480 + p ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 135 ;
	      tokptr = tokptr + 1 ;
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 5 ;
	      trans [scrapptr ]= textptr ;
	      textptr = textptr + 1 ;
	      tokstart [textptr ]= tokptr ;
	    } 
	    {
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 3 ;
	      trans [scrapptr ]= 0 ;
	    } 
	  } 
	  break ;
	case 6 : 
	  {
	    {
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 21 ;
	      trans [scrapptr ]= 0 ;
	    } 
	    {
	      tokmem [tokptr ]= 141 ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 20480 + p ;
	      tokptr = tokptr + 1 ;
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 7 ;
	      trans [scrapptr ]= textptr ;
	      textptr = textptr + 1 ;
	      tokstart [textptr ]= tokptr ;
	    } 
	  } 
	  break ;
	case 10 : 
	  {
	    if ( ( scrapptr < scrapbase ) || ( ( cat [scrapptr ]!= 10 ) && ( 
	    cat [scrapptr ]!= 9 ) ) ) 
	    {
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 10 ;
	      trans [scrapptr ]= 0 ;
	    } 
	    {
	      tokmem [tokptr ]= 141 ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 139 ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 20480 + p ;
	      tokptr = tokptr + 1 ;
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 20 ;
	      trans [scrapptr ]= textptr ;
	      textptr = textptr + 1 ;
	      tokstart [textptr ]= tokptr ;
	    } 
	  } 
	  break ;
	case 11 : 
	  {
	    if ( ( scrapptr < scrapbase ) || ( ( cat [scrapptr ]!= 10 ) && ( 
	    cat [scrapptr ]!= 9 ) ) ) 
	    {
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 10 ;
	      trans [scrapptr ]= 0 ;
	    } 
	    {
	      tokmem [tokptr ]= 141 ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 20480 + p ;
	      tokptr = tokptr + 1 ;
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 6 ;
	      trans [scrapptr ]= textptr ;
	      textptr = textptr + 1 ;
	      tokstart [textptr ]= tokptr ;
	    } 
	  } 
	  break ;
	case 14 : 
	  {
	    {
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 12 ;
	      trans [scrapptr ]= 0 ;
	    } 
	    {
	      tokmem [tokptr ]= 141 ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 20480 + p ;
	      tokptr = tokptr + 1 ;
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 7 ;
	      trans [scrapptr ]= textptr ;
	      textptr = textptr + 1 ;
	      tokstart [textptr ]= tokptr ;
	    } 
	  } 
	  break ;
	case 23 : 
	  {
	    {
	      tokmem [tokptr ]= 141 ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 92 ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 126 ;
	      tokptr = tokptr + 1 ;
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 7 ;
	      trans [scrapptr ]= textptr ;
	      textptr = textptr + 1 ;
	      tokstart [textptr ]= tokptr ;
	    } 
	    {
	      tokmem [tokptr ]= 20480 + p ;
	      tokptr = tokptr + 1 ;
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 8 ;
	      trans [scrapptr ]= textptr ;
	      textptr = textptr + 1 ;
	      tokstart [textptr ]= tokptr ;
	    } 
	  } 
	  break ;
	case 17 : 
	  {
	    {
	      tokmem [tokptr ]= 141 ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 139 ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 20480 + p ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 135 ;
	      tokptr = tokptr + 1 ;
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 16 ;
	      trans [scrapptr ]= textptr ;
	      textptr = textptr + 1 ;
	      tokstart [textptr ]= tokptr ;
	    } 
	    {
	      tokmem [tokptr ]= 136 ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 92 ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 32 ;
	      tokptr = tokptr + 1 ;
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 3 ;
	      trans [scrapptr ]= textptr ;
	      textptr = textptr + 1 ;
	      tokstart [textptr ]= tokptr ;
	    } 
	  } 
	  break ;
	case 18 : 
	  {
	    {
	      tokmem [tokptr ]= 20480 + p ;
	      tokptr = tokptr + 1 ;
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 18 ;
	      trans [scrapptr ]= textptr ;
	      textptr = textptr + 1 ;
	      tokstart [textptr ]= tokptr ;
	    } 
	    {
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 3 ;
	      trans [scrapptr ]= 0 ;
	    } 
	  } 
	  break ;
	case 19 : 
	  {
	    {
	      tokmem [tokptr ]= 141 ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 136 ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 20480 + p ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 135 ;
	      tokptr = tokptr + 1 ;
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 5 ;
	      trans [scrapptr ]= textptr ;
	      textptr = textptr + 1 ;
	      tokstart [textptr ]= tokptr ;
	    } 
	    {
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 3 ;
	      trans [scrapptr ]= 0 ;
	    } 
	  } 
	  break ;
	case 21 : 
	  {
	    if ( ( scrapptr < scrapbase ) || ( ( cat [scrapptr ]!= 10 ) && ( 
	    cat [scrapptr ]!= 9 ) ) ) 
	    {
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 10 ;
	      trans [scrapptr ]= 0 ;
	    } 
	    {
	      tokmem [tokptr ]= 141 ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 139 ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 20480 + p ;
	      tokptr = tokptr + 1 ;
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 6 ;
	      trans [scrapptr ]= textptr ;
	      textptr = textptr + 1 ;
	      tokstart [textptr ]= tokptr ;
	    } 
	    {
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 13 ;
	      trans [scrapptr ]= 0 ;
	    } 
	  } 
	  break ;
	case 22 : 
	  {
	    {
	      tokmem [tokptr ]= 141 ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 139 ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 20480 + p ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 135 ;
	      tokptr = tokptr + 1 ;
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 19 ;
	      trans [scrapptr ]= textptr ;
	      textptr = textptr + 1 ;
	      tokstart [textptr ]= tokptr ;
	    } 
	    {
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 3 ;
	      trans [scrapptr ]= 0 ;
	    } 
	  } 
	  break ;
	  default: 
	  {
	    nextcontrol = ilk [p ]- 24 ;
	    goto lab21 ;
	  } 
	  break ;
	} 
      } 
      break ;
    case 134 : 
      {
	tokmem [tokptr ]= 92 ;
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 104 ;
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 98 ;
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 111 ;
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 120 ;
	tokptr = tokptr + 1 ;
	tokmem [tokptr ]= 123 ;
	tokptr = tokptr + 1 ;
	{register integer for_end; j = idfirst ;for_end = idloc - 1 ; if ( j 
	<= for_end) do 
	  {
	    if ( tokptr + 2 > maxtoks ) 
	    {
	      putc ('\n',  stdout );
	      fprintf( stderr , "%s%s%s",  "! Sorry, " , "token" , " capacity exceeded" ) 
	      ;
	      error () ;
	      history = 3 ;
	      jumpout () ;
	    } 
	    tokmem [tokptr ]= buffer [j ];
	    tokptr = tokptr + 1 ;
	  } 
	while ( j++ < for_end ) ;} 
	{
	  tokmem [tokptr ]= 125 ;
	  tokptr = tokptr + 1 ;
	  scrapptr = scrapptr + 1 ;
	  cat [scrapptr ]= 1 ;
	  trans [scrapptr ]= textptr ;
	  textptr = textptr + 1 ;
	  tokstart [textptr ]= tokptr ;
	} 
      } 
      break ;
      default: 
      easycases () ;
      break ;
    } 
    nextcontrol = getnext () ;
    if ( ( nextcontrol == 124 ) || ( nextcontrol == 123 ) ) 
    goto lab10 ;
  } 
  lab10: ;
} 
textpointer 
#ifdef HAVE_PROTOTYPES
Pascaltranslate ( void ) 
#else
Pascaltranslate ( ) 
#endif
{
  register textpointer Result; textpointer p  ;
  integer savebase  ;
  savebase = scrapbase ;
  scrapbase = scrapptr + 1 ;
  Pascalparse () ;
  if ( nextcontrol != 124 ) 
  {
    if ( ! phaseone ) 
    {
      putc ('\n',  stdout );
      Fputs( stdout ,  "! Missing \"|\" after Pascal text" ) ;
      error () ;
    } 
  } 
  {
    if ( tokptr + 2 > maxtoks ) 
    {
      putc ('\n',  stdout );
      fprintf( stderr , "%s%s%s",  "! Sorry, " , "token" , " capacity exceeded" ) ;
      error () ;
      history = 3 ;
      jumpout () ;
    } 
    tokmem [tokptr ]= 135 ;
    tokptr = tokptr + 1 ;
  } 
  appcomment () ;
  p = translate () ;
  scrapptr = scrapbase - 1 ;
  scrapbase = savebase ;
  Result = p ;
  return Result ;
} 
void 
#ifdef HAVE_PROTOTYPES
outerparse ( void ) 
#else
outerparse ( ) 
#endif
{
  eightbits bal  ;
  textpointer p, q  ;
  while ( nextcontrol < 143 ) if ( nextcontrol != 123 ) 
  Pascalparse () ;
  else {
      
    if ( ( tokptr + 7 > maxtoks ) || ( textptr + 3 > maxtexts ) || ( scrapptr 
    >= maxscraps ) ) 
    {
      {
	putc ('\n',  stdout );
	fprintf( stderr , "%s%s%s",  "! Sorry, " , "token/text/scrap" ,         " capacity exceeded" ) ;
	error () ;
	history = 3 ;
	jumpout () ;
      } 
    } 
    tokmem [tokptr ]= 92 ;
    tokptr = tokptr + 1 ;
    tokmem [tokptr ]= 67 ;
    tokptr = tokptr + 1 ;
    tokmem [tokptr ]= 123 ;
    tokptr = tokptr + 1 ;
    bal = copycomment ( 1 ) ;
    nextcontrol = 124 ;
    while ( bal > 0 ) {
	
      p = textptr ;
      textptr = textptr + 1 ;
      tokstart [textptr ]= tokptr ;
      q = Pascaltranslate () ;
      tokmem [tokptr ]= 40960L + p ;
      tokptr = tokptr + 1 ;
      tokmem [tokptr ]= 51200L + q ;
      tokptr = tokptr + 1 ;
      if ( nextcontrol == 124 ) 
      bal = copycomment ( bal ) ;
      else bal = 0 ;
    } 
    tokmem [tokptr ]= 141 ;
    tokptr = tokptr + 1 ;
    appcomment () ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
zpushlevel ( textpointer p ) 
#else
zpushlevel ( p ) 
  textpointer p ;
#endif
{
  if ( stackptr == stacksize ) 
  {
    putc ('\n',  stdout );
    fprintf( stderr , "%s%s%s",  "! Sorry, " , "stack" , " capacity exceeded" ) ;
    error () ;
    history = 3 ;
    jumpout () ;
  } 
  else {
      
    if ( stackptr > 0 ) 
    stack [stackptr ]= curstate ;
    stackptr = stackptr + 1 ;
    curstate .tokfield = tokstart [p ];
    curstate .endfield = tokstart [p + 1 ];
  } 
} 
eightbits 
#ifdef HAVE_PROTOTYPES
getoutput ( void ) 
#else
getoutput ( ) 
#endif
{
  /* 20 */ register eightbits Result; sixteenbits a  ;
  lab20: while ( curstate .tokfield == curstate .endfield ) {
      
    stackptr = stackptr - 1 ;
    curstate = stack [stackptr ];
  } 
  a = tokmem [curstate .tokfield ];
  curstate .tokfield = curstate .tokfield + 1 ;
  if ( a >= 256 ) 
  {
    curname = a % 10240 ;
    switch ( a / 10240 ) 
    {case 2 : 
      a = 129 ;
      break ;
    case 3 : 
      a = 128 ;
      break ;
    case 4 : 
      {
	pushlevel ( curname ) ;
	goto lab20 ;
      } 
      break ;
    case 5 : 
      {
	pushlevel ( curname ) ;
	curstate .modefield = 0 ;
	goto lab20 ;
      } 
      break ;
      default: 
      a = 130 ;
      break ;
    } 
  } 
  Result = a ;
  return Result ;
} 
void 
#ifdef HAVE_PROTOTYPES
outputPascal ( void ) 
#else
outputPascal ( ) 
#endif
{
  sixteenbits savetokptr, savetextptr, savenextcontrol  ;
  textpointer p  ;
  savetokptr = tokptr ;
  savetextptr = textptr ;
  savenextcontrol = nextcontrol ;
  nextcontrol = 124 ;
  p = Pascaltranslate () ;
  tokmem [tokptr ]= p + 51200L ;
  tokptr = tokptr + 1 ;
  makeoutput () ;
  textptr = savetextptr ;
  tokptr = savetokptr ;
  nextcontrol = savenextcontrol ;
} 
void 
#ifdef HAVE_PROTOTYPES
makeoutput ( void ) 
#else
makeoutput ( ) 
#endif
{
  /* 21 10 31 */ eightbits a  ;
  eightbits b  ;
  integer k, klimit  ;
  char w  ;
  integer j  ;
  ASCIIcode stringdelimiter  ;
  integer saveloc, savelimit  ;
  namepointer curmodname  ;
  mode savemode  ;
  tokmem [tokptr ]= 143 ;
  tokptr = tokptr + 1 ;
  textptr = textptr + 1 ;
  tokstart [textptr ]= tokptr ;
  pushlevel ( textptr - 1 ) ;
  while ( true ) {
      
    a = getoutput () ;
    lab21: switch ( a ) 
    {case 143 : 
      goto lab10 ;
      break ;
    case 130 : 
    case 129 : 
      {
	{
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 92 ;
	} 
	if ( a == 130 ) 
	if ( bytestart [curname + 2 ]- bytestart [curname ]== 1 ) 
	{
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 124 ;
	} 
	else {
	    
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 92 ;
	} 
	else {
	    
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 38 ;
	} 
	if ( bytestart [curname + 2 ]- bytestart [curname ]== 1 ) 
	{
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= bytemem [curname % 2 ][ bytestart [curname ]]
	  ;
	} 
	else outname ( curname ) ;
      } 
      break ;
    case 128 : 
      {
	{
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 92 ;
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 88 ;
	} 
	curxref = xref [curname ];
	if ( xmem [curxref ].numfield >= 10240 ) 
	{
	  outmod ( xmem [curxref ].numfield - 10240 ) ;
	  if ( phasethree ) 
	  {
	    curxref = xmem [curxref ].xlinkfield ;
	    while ( xmem [curxref ].numfield >= 10240 ) {
		
	      {
		if ( outptr == linelength ) 
		breakout () ;
		outptr = outptr + 1 ;
		outbuf [outptr ]= 44 ;
		if ( outptr == linelength ) 
		breakout () ;
		outptr = outptr + 1 ;
		outbuf [outptr ]= 32 ;
	      } 
	      outmod ( xmem [curxref ].numfield - 10240 ) ;
	      curxref = xmem [curxref ].xlinkfield ;
	    } 
	  } 
	} 
	else {
	    
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 48 ;
	} 
	{
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 58 ;
	} 
	k = bytestart [curname ];
	w = curname % 2 ;
	klimit = bytestart [curname + 2 ];
	curmodname = curname ;
	while ( k < klimit ) {
	    
	  b = bytemem [w ][ k ];
	  k = k + 1 ;
	  if ( b == 64 ) 
	  {
	    if ( bytemem [w ][ k ]!= 64 ) 
	    {
	      {
		putc ('\n',  stdout );
		Fputs( stdout ,  "! Illegal control code in section name:" ) ;
	      } 
	      {
		putc ('\n',  stdout );
		putc ( '<' ,  stdout );
	      } 
	      printid ( curmodname ) ;
	      Fputs( stdout ,  "> " ) ;
	      history = 2 ;
	    } 
	    k = k + 1 ;
	  } 
	  if ( b != 124 ) 
	  {
	    if ( outptr == linelength ) 
	    breakout () ;
	    outptr = outptr + 1 ;
	    outbuf [outptr ]= b ;
	  } 
	  else {
	      
	    j = limit + 1 ;
	    buffer [j ]= 124 ;
	    stringdelimiter = 0 ;
	    while ( true ) {
		
	      if ( k >= klimit ) 
	      {
		{
		  putc ('\n',  stdout );
		  Fputs( stdout ,  "! Pascal text in section name didn't end:"                   ) ;
		} 
		{
		  putc ('\n',  stdout );
		  putc ( '<' ,  stdout );
		} 
		printid ( curmodname ) ;
		Fputs( stdout ,  "> " ) ;
		history = 2 ;
		goto lab31 ;
	      } 
	      b = bytemem [w ][ k ];
	      k = k + 1 ;
	      if ( b == 64 ) 
	      {
		if ( j > longbufsize - 4 ) 
		{
		  putc ('\n',  stdout );
		  fprintf( stderr , "%s%s%s",  "! Sorry, " , "buffer" ,                   " capacity exceeded" ) ;
		  error () ;
		  history = 3 ;
		  jumpout () ;
		} 
		buffer [j + 1 ]= 64 ;
		buffer [j + 2 ]= bytemem [w ][ k ];
		j = j + 2 ;
		k = k + 1 ;
	      } 
	      else {
		  
		if ( ( b == 34 ) || ( b == 39 ) ) 
		if ( stringdelimiter == 0 ) 
		stringdelimiter = b ;
		else if ( stringdelimiter == b ) 
		stringdelimiter = 0 ;
		if ( ( b != 124 ) || ( stringdelimiter != 0 ) ) 
		{
		  if ( j > longbufsize - 3 ) 
		  {
		    putc ('\n',  stdout );
		    fprintf( stderr , "%s%s%s",  "! Sorry, " , "buffer" ,                     " capacity exceeded" ) ;
		    error () ;
		    history = 3 ;
		    jumpout () ;
		  } 
		  j = j + 1 ;
		  buffer [j ]= b ;
		} 
		else goto lab31 ;
	      } 
	    } 
	    lab31: ;
	    saveloc = loc ;
	    savelimit = limit ;
	    loc = limit + 2 ;
	    limit = j + 1 ;
	    buffer [limit ]= 124 ;
	    outputPascal () ;
	    loc = saveloc ;
	    limit = savelimit ;
	  } 
	} 
	{
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 92 ;
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 88 ;
	} 
      } 
      break ;
    case 131 : 
    case 133 : 
    case 132 : 
      {
	{
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 92 ;
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 109 ;
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 97 ;
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 116 ;
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 104 ;
	} 
	if ( a == 131 ) 
	{
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 98 ;
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 105 ;
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 110 ;
	} 
	else if ( a == 132 ) 
	{
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 114 ;
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 101 ;
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 108 ;
	} 
	else {
	    
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 111 ;
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 112 ;
	} 
	{
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 123 ;
	} 
      } 
      break ;
    case 135 : 
      {
	do {
	    a = getoutput () ;
	} while ( ! ( ( a < 139 ) || ( a > 142 ) ) ) ;
	goto lab21 ;
      } 
      break ;
    case 134 : 
      {
	do {
	    a = getoutput () ;
	} while ( ! ( ( ( a < 139 ) && ( a != 32 ) ) || ( a > 142 ) ) ) ;
	goto lab21 ;
      } 
      break ;
    case 136 : 
    case 137 : 
    case 138 : 
    case 139 : 
    case 140 : 
    case 141 : 
    case 142 : 
      if ( a < 140 ) 
      {
	if ( curstate .modefield == 1 ) 
	{
	  {
	    if ( outptr == linelength ) 
	    breakout () ;
	    outptr = outptr + 1 ;
	    outbuf [outptr ]= 92 ;
	    if ( outptr == linelength ) 
	    breakout () ;
	    outptr = outptr + 1 ;
	    outbuf [outptr ]= a - 87 ;
	  } 
	  if ( a == 138 ) 
	  {
	    if ( outptr == linelength ) 
	    breakout () ;
	    outptr = outptr + 1 ;
	    outbuf [outptr ]= getoutput () ;
	  } 
	} 
	else if ( a == 138 ) 
	b = getoutput () ;
      } 
      else {
	  
	b = a ;
	savemode = curstate .modefield ;
	while ( true ) {
	    
	  a = getoutput () ;
	  if ( ( a == 135 ) || ( a == 134 ) ) 
	  goto lab21 ;
	  if ( ( ( a != 32 ) && ( a < 140 ) ) || ( a > 142 ) ) 
	  {
	    if ( savemode == 1 ) 
	    {
	      if ( outptr > 3 ) 
	      if ( ( outbuf [outptr ]== 80 ) && ( outbuf [outptr - 1 ]== 
	      92 ) && ( outbuf [outptr - 2 ]== 89 ) && ( outbuf [outptr - 3 
	      ]== 92 ) ) 
	      goto lab21 ;
	      {
		if ( outptr == linelength ) 
		breakout () ;
		outptr = outptr + 1 ;
		outbuf [outptr ]= 92 ;
		if ( outptr == linelength ) 
		breakout () ;
		outptr = outptr + 1 ;
		outbuf [outptr ]= b - 87 ;
	      } 
	      if ( a != 143 ) 
	      finishline () ;
	    } 
	    else if ( ( a != 143 ) && ( curstate .modefield == 0 ) ) 
	    {
	      if ( outptr == linelength ) 
	      breakout () ;
	      outptr = outptr + 1 ;
	      outbuf [outptr ]= 32 ;
	    } 
	    goto lab21 ;
	  } 
	  if ( a > b ) 
	  b = a ;
	} 
      } 
      break ;
      default: 
      {
	if ( outptr == linelength ) 
	breakout () ;
	outptr = outptr + 1 ;
	outbuf [outptr ]= a ;
      } 
      break ;
    } 
  } 
  lab10: ;
} 
void 
#ifdef HAVE_PROTOTYPES
finishPascal ( void ) 
#else
finishPascal ( ) 
#endif
{
  textpointer p  ;
  {
    if ( outptr == linelength ) 
    breakout () ;
    outptr = outptr + 1 ;
    outbuf [outptr ]= 92 ;
    if ( outptr == linelength ) 
    breakout () ;
    outptr = outptr + 1 ;
    outbuf [outptr ]= 80 ;
  } 
  {
    if ( tokptr + 2 > maxtoks ) 
    {
      putc ('\n',  stdout );
      fprintf( stderr , "%s%s%s",  "! Sorry, " , "token" , " capacity exceeded" ) ;
      error () ;
      history = 3 ;
      jumpout () ;
    } 
    tokmem [tokptr ]= 141 ;
    tokptr = tokptr + 1 ;
  } 
  appcomment () ;
  p = translate () ;
  tokmem [tokptr ]= p + 40960L ;
  tokptr = tokptr + 1 ;
  makeoutput () ;
  if ( outptr > 1 ) 
  if ( outbuf [outptr - 1 ]== 92 ) 
  if ( outbuf [outptr ]== 54 ) 
  outptr = outptr - 2 ;
  else if ( outbuf [outptr ]== 55 ) 
  outbuf [outptr ]= 89 ;
  {
    if ( outptr == linelength ) 
    breakout () ;
    outptr = outptr + 1 ;
    outbuf [outptr ]= 92 ;
    if ( outptr == linelength ) 
    breakout () ;
    outptr = outptr + 1 ;
    outbuf [outptr ]= 112 ;
    if ( outptr == linelength ) 
    breakout () ;
    outptr = outptr + 1 ;
    outbuf [outptr ]= 97 ;
    if ( outptr == linelength ) 
    breakout () ;
    outptr = outptr + 1 ;
    outbuf [outptr ]= 114 ;
  } 
  finishline () ;
  tokptr = 1 ;
  textptr = 1 ;
  scrapptr = 0 ;
} 
void 
#ifdef HAVE_PROTOTYPES
zfootnote ( sixteenbits flag ) 
#else
zfootnote ( flag ) 
  sixteenbits flag ;
#endif
{
  /* 30 10 */ xrefnumber q  ;
  if ( xmem [curxref ].numfield <= flag ) 
  goto lab10 ;
  finishline () ;
  {
    if ( outptr == linelength ) 
    breakout () ;
    outptr = outptr + 1 ;
    outbuf [outptr ]= 92 ;
  } 
  if ( flag == 0 ) 
  {
    if ( outptr == linelength ) 
    breakout () ;
    outptr = outptr + 1 ;
    outbuf [outptr ]= 85 ;
  } 
  else {
      
    if ( outptr == linelength ) 
    breakout () ;
    outptr = outptr + 1 ;
    outbuf [outptr ]= 65 ;
  } 
  q = curxref ;
  if ( xmem [xmem [q ].xlinkfield ].numfield > flag ) 
  {
    if ( outptr == linelength ) 
    breakout () ;
    outptr = outptr + 1 ;
    outbuf [outptr ]= 115 ;
  } 
  while ( true ) {
      
    outmod ( xmem [curxref ].numfield - flag ) ;
    curxref = xmem [curxref ].xlinkfield ;
    if ( xmem [curxref ].numfield <= flag ) 
    goto lab30 ;
    if ( xmem [xmem [curxref ].xlinkfield ].numfield > flag ) 
    {
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 44 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 32 ;
    } 
    else {
	
      {
	if ( outptr == linelength ) 
	breakout () ;
	outptr = outptr + 1 ;
	outbuf [outptr ]= 92 ;
	if ( outptr == linelength ) 
	breakout () ;
	outptr = outptr + 1 ;
	outbuf [outptr ]= 69 ;
	if ( outptr == linelength ) 
	breakout () ;
	outptr = outptr + 1 ;
	outbuf [outptr ]= 84 ;
      } 
      if ( curxref != xmem [q ].xlinkfield ) 
      {
	if ( outptr == linelength ) 
	breakout () ;
	outptr = outptr + 1 ;
	outbuf [outptr ]= 115 ;
      } 
    } 
  } 
  lab30: ;
  {
    if ( outptr == linelength ) 
    breakout () ;
    outptr = outptr + 1 ;
    outbuf [outptr ]= 46 ;
  } 
  lab10: ;
} 
void 
#ifdef HAVE_PROTOTYPES
zunbucket ( eightbits d ) 
#else
zunbucket ( d ) 
  eightbits d ;
#endif
{
  ASCIIcode c  ;
  {register integer for_end; c = 229 ;for_end = 0 ; if ( c >= for_end) do 
    if ( bucket [collate [c ]]> 0 ) 
    {
      if ( scrapptr > maxscraps ) 
      {
	putc ('\n',  stdout );
	fprintf( stderr , "%s%s%s",  "! Sorry, " , "sorting" , " capacity exceeded" ) ;
	error () ;
	history = 3 ;
	jumpout () ;
      } 
      scrapptr = scrapptr + 1 ;
      if ( c == 0 ) 
      cat [scrapptr ]= 255 ;
      else cat [scrapptr ]= d ;
      trans [scrapptr ]= bucket [collate [c ]];
      bucket [collate [c ]]= 0 ;
    } 
  while ( c-- > for_end ) ;} 
} 
void 
#ifdef HAVE_PROTOTYPES
zmodprint ( namepointer p ) 
#else
zmodprint ( p ) 
  namepointer p ;
#endif
{
  if ( p > 0 ) 
  {
    modprint ( link [p ]) ;
    {
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 92 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 58 ;
    } 
    tokptr = 1 ;
    textptr = 1 ;
    scrapptr = 0 ;
    stackptr = 0 ;
    curstate .modefield = 1 ;
    tokmem [tokptr ]= p + 30720 ;
    tokptr = tokptr + 1 ;
    makeoutput () ;
    footnote ( 0 ) ;
    finishline () ;
    modprint ( ilk [p ]) ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
PhaseI ( void ) 
#else
PhaseI ( ) 
#endif
{
  phaseone = true ;
  phasethree = false ;
  resetinput () ;
  modulecount = 0 ;
  skiplimbo () ;
  changeexists = false ;
  while ( ! inputhasended ) {
      
    modulecount = modulecount + 1 ;
    if ( modulecount == maxmodules ) 
    {
      putc ('\n',  stdout );
      fprintf( stderr , "%s%s%s",  "! Sorry, " , "section number" , " capacity exceeded" ) 
      ;
      error () ;
      history = 3 ;
      jumpout () ;
    } 
    changedmodule [modulecount ]= changing ;
    if ( buffer [loc - 1 ]== 42 ) 
    {
      fprintf( stdout , "%c%ld",  '*' , (long)modulecount ) ;
      fflush ( stdout ) ;
    } 
    do {
	nextcontrol = skipTeX () ;
      switch ( nextcontrol ) 
      {case 126 : 
	xrefswitch = 10240 ;
	break ;
      case 125 : 
	xrefswitch = 0 ;
	break ;
      case 124 : 
	Pascalxref () ;
	break ;
      case 131 : 
      case 132 : 
      case 133 : 
      case 146 : 
	{
	  loc = loc - 2 ;
	  nextcontrol = getnext () ;
	  if ( nextcontrol != 146 ) 
	  newxref ( idlookup ( nextcontrol - 130 ) ) ;
	} 
	break ;
	default: 
	;
	break ;
      } 
    } while ( ! ( nextcontrol >= 143 ) ) ;
    while ( nextcontrol <= 144 ) {
	
      xrefswitch = 10240 ;
      if ( nextcontrol == 144 ) 
      nextcontrol = getnext () ;
      else {
	  
	nextcontrol = getnext () ;
	if ( nextcontrol == 130 ) 
	{
	  lhs = idlookup ( 0 ) ;
	  ilk [lhs ]= 0 ;
	  newxref ( lhs ) ;
	  nextcontrol = getnext () ;
	  if ( nextcontrol == 30 ) 
	  {
	    nextcontrol = getnext () ;
	    if ( nextcontrol == 130 ) 
	    {
	      rhs = idlookup ( 0 ) ;
	      ilk [lhs ]= ilk [rhs ];
	      ilk [rhs ]= 0 ;
	      newxref ( rhs ) ;
	      ilk [rhs ]= ilk [lhs ];
	      nextcontrol = getnext () ;
	    } 
	  } 
	} 
      } 
      outerxref () ;
    } 
    if ( nextcontrol <= 146 ) 
    {
      if ( nextcontrol == 145 ) 
      modxrefswitch = 0 ;
      else modxrefswitch = 10240 ;
      do {
	  if ( nextcontrol == 146 ) 
	newmodxref ( curmodule ) ;
	nextcontrol = getnext () ;
	outerxref () ;
      } while ( ! ( nextcontrol > 146 ) ) ;
    } 
    if ( changedmodule [modulecount ]) 
    changeexists = true ;
  } 
  changedmodule [modulecount ]= changeexists ;
  phaseone = false ;
  modcheck ( ilk [0 ]) ;
} 
void 
#ifdef HAVE_PROTOTYPES
PhaseII ( void ) 
#else
PhaseII ( ) 
#endif
{
  resetinput () ;
  {
    putc ('\n',  stdout );
    Fputs( stdout ,  "Writing the output file..." ) ;
  } 
  modulecount = 0 ;
  copylimbo () ;
  finishline () ;
  flushbuffer ( 0 , false , false ) ;
  while ( ! inputhasended ) {
      
    modulecount = modulecount + 1 ;
    {
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 92 ;
    } 
    if ( buffer [loc - 1 ]!= 42 ) 
    {
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 77 ;
    } 
    else {
	
      {
	if ( outptr == linelength ) 
	breakout () ;
	outptr = outptr + 1 ;
	outbuf [outptr ]= 78 ;
      } 
      fprintf( stdout , "%c%ld",  '*' , (long)modulecount ) ;
      fflush ( stdout ) ;
    } 
    outmod ( modulecount ) ;
    {
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 46 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 32 ;
    } 
    saveline = outline ;
    saveplace = outptr ;
    do {
	nextcontrol = copyTeX () ;
      switch ( nextcontrol ) 
      {case 124 : 
	{
	  stackptr = 0 ;
	  curstate .modefield = 1 ;
	  outputPascal () ;
	} 
	break ;
      case 64 : 
	{
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 64 ;
	} 
	break ;
      case 12 : 
	{
	  {
	    if ( outptr == linelength ) 
	    breakout () ;
	    outptr = outptr + 1 ;
	    outbuf [outptr ]= 92 ;
	    if ( outptr == linelength ) 
	    breakout () ;
	    outptr = outptr + 1 ;
	    outbuf [outptr ]= 79 ;
	    if ( outptr == linelength ) 
	    breakout () ;
	    outptr = outptr + 1 ;
	    outbuf [outptr ]= 123 ;
	  } 
	  while ( ( buffer [loc ]>= 48 ) && ( buffer [loc ]<= 55 ) ) {
	      
	    {
	      if ( outptr == linelength ) 
	      breakout () ;
	      outptr = outptr + 1 ;
	      outbuf [outptr ]= buffer [loc ];
	    } 
	    loc = loc + 1 ;
	  } 
	  {
	    if ( outptr == linelength ) 
	    breakout () ;
	    outptr = outptr + 1 ;
	    outbuf [outptr ]= 125 ;
	  } 
	} 
	break ;
      case 13 : 
	{
	  {
	    if ( outptr == linelength ) 
	    breakout () ;
	    outptr = outptr + 1 ;
	    outbuf [outptr ]= 92 ;
	    if ( outptr == linelength ) 
	    breakout () ;
	    outptr = outptr + 1 ;
	    outbuf [outptr ]= 72 ;
	    if ( outptr == linelength ) 
	    breakout () ;
	    outptr = outptr + 1 ;
	    outbuf [outptr ]= 123 ;
	  } 
	  while ( ( ( buffer [loc ]>= 48 ) && ( buffer [loc ]<= 57 ) ) || 
	  ( ( buffer [loc ]>= 65 ) && ( buffer [loc ]<= 70 ) ) ) {
	      
	    {
	      if ( outptr == linelength ) 
	      breakout () ;
	      outptr = outptr + 1 ;
	      outbuf [outptr ]= buffer [loc ];
	    } 
	    loc = loc + 1 ;
	  } 
	  {
	    if ( outptr == linelength ) 
	    breakout () ;
	    outptr = outptr + 1 ;
	    outbuf [outptr ]= 125 ;
	  } 
	} 
	break ;
      case 134 : 
      case 131 : 
      case 132 : 
      case 133 : 
      case 146 : 
	{
	  loc = loc - 2 ;
	  nextcontrol = getnext () ;
	  if ( nextcontrol == 134 ) 
	  {
	    if ( ! phaseone ) 
	    {
	      putc ('\n',  stdout );
	      Fputs( stdout ,  "! TeX string should be in Pascal text only" ) 
	      ;
	      error () ;
	    } 
	  } 
	} 
	break ;
      case 9 : 
      case 10 : 
      case 135 : 
      case 137 : 
      case 138 : 
      case 139 : 
      case 140 : 
      case 141 : 
      case 136 : 
      case 142 : 
	{
	  if ( ! phaseone ) 
	  {
	    putc ('\n',  stdout );
	    Fputs( stdout ,  "! You can't do that in TeX text" ) ;
	    error () ;
	  } 
	} 
	break ;
	default: 
	;
	break ;
      } 
    } while ( ! ( nextcontrol >= 143 ) ) ;
    if ( nextcontrol <= 144 ) 
    {
      if ( ( saveline != outline ) || ( saveplace != outptr ) ) 
      {
	if ( outptr == linelength ) 
	breakout () ;
	outptr = outptr + 1 ;
	outbuf [outptr ]= 92 ;
	if ( outptr == linelength ) 
	breakout () ;
	outptr = outptr + 1 ;
	outbuf [outptr ]= 89 ;
      } 
      saveline = outline ;
      saveplace = outptr ;
    } 
    while ( nextcontrol <= 144 ) {
	
      stackptr = 0 ;
      curstate .modefield = 1 ;
      if ( nextcontrol == 144 ) 
      {
	{
	  tokmem [tokptr ]= 92 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 68 ;
	  tokptr = tokptr + 1 ;
	  scrapptr = scrapptr + 1 ;
	  cat [scrapptr ]= 3 ;
	  trans [scrapptr ]= textptr ;
	  textptr = textptr + 1 ;
	  tokstart [textptr ]= tokptr ;
	} 
	nextcontrol = getnext () ;
	if ( nextcontrol != 130 ) 
	{
	  if ( ! phaseone ) 
	  {
	    putc ('\n',  stdout );
	    Fputs( stdout ,  "! Improper macro definition" ) ;
	    error () ;
	  } 
	} 
	else {
	    
	  tokmem [tokptr ]= 10240 + idlookup ( 0 ) ;
	  tokptr = tokptr + 1 ;
	  scrapptr = scrapptr + 1 ;
	  cat [scrapptr ]= 2 ;
	  trans [scrapptr ]= textptr ;
	  textptr = textptr + 1 ;
	  tokstart [textptr ]= tokptr ;
	} 
	nextcontrol = getnext () ;
      } 
      else {
	  
	{
	  tokmem [tokptr ]= 92 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 70 ;
	  tokptr = tokptr + 1 ;
	  scrapptr = scrapptr + 1 ;
	  cat [scrapptr ]= 3 ;
	  trans [scrapptr ]= textptr ;
	  textptr = textptr + 1 ;
	  tokstart [textptr ]= tokptr ;
	} 
	nextcontrol = getnext () ;
	if ( nextcontrol == 130 ) 
	{
	  {
	    tokmem [tokptr ]= 10240 + idlookup ( 0 ) ;
	    tokptr = tokptr + 1 ;
	    scrapptr = scrapptr + 1 ;
	    cat [scrapptr ]= 2 ;
	    trans [scrapptr ]= textptr ;
	    textptr = textptr + 1 ;
	    tokstart [textptr ]= tokptr ;
	  } 
	  nextcontrol = getnext () ;
	  if ( nextcontrol == 30 ) 
	  {
	    {
	      tokmem [tokptr ]= 92 ;
	      tokptr = tokptr + 1 ;
	      tokmem [tokptr ]= 83 ;
	      tokptr = tokptr + 1 ;
	      scrapptr = scrapptr + 1 ;
	      cat [scrapptr ]= 2 ;
	      trans [scrapptr ]= textptr ;
	      textptr = textptr + 1 ;
	      tokstart [textptr ]= tokptr ;
	    } 
	    nextcontrol = getnext () ;
	    if ( nextcontrol == 130 ) 
	    {
	      {
		tokmem [tokptr ]= 10240 + idlookup ( 0 ) ;
		tokptr = tokptr + 1 ;
		scrapptr = scrapptr + 1 ;
		cat [scrapptr ]= 2 ;
		trans [scrapptr ]= textptr ;
		textptr = textptr + 1 ;
		tokstart [textptr ]= tokptr ;
	      } 
	      {
		scrapptr = scrapptr + 1 ;
		cat [scrapptr ]= 9 ;
		trans [scrapptr ]= 0 ;
	      } 
	      nextcontrol = getnext () ;
	    } 
	  } 
	} 
	if ( scrapptr != 5 ) 
	{
	  if ( ! phaseone ) 
	  {
	    putc ('\n',  stdout );
	    Fputs( stdout ,  "! Improper format definition" ) ;
	    error () ;
	  } 
	} 
      } 
      outerparse () ;
      finishPascal () ;
    } 
    thismodule = 0 ;
    if ( nextcontrol <= 146 ) 
    {
      if ( ( saveline != outline ) || ( saveplace != outptr ) ) 
      {
	if ( outptr == linelength ) 
	breakout () ;
	outptr = outptr + 1 ;
	outbuf [outptr ]= 92 ;
	if ( outptr == linelength ) 
	breakout () ;
	outptr = outptr + 1 ;
	outbuf [outptr ]= 89 ;
      } 
      stackptr = 0 ;
      curstate .modefield = 1 ;
      if ( nextcontrol == 145 ) 
      nextcontrol = getnext () ;
      else {
	  
	thismodule = curmodule ;
	do {
	    nextcontrol = getnext () ;
	} while ( ! ( nextcontrol != 43 ) ) ;
	if ( ( nextcontrol != 61 ) && ( nextcontrol != 30 ) ) 
	{
	  if ( ! phaseone ) 
	  {
	    putc ('\n',  stdout );
	    Fputs( stdout ,  "! You need an = sign after the section name" ) ;
	    error () ;
	  } 
	} 
	else nextcontrol = getnext () ;
	if ( outptr > 1 ) 
	if ( ( outbuf [outptr ]== 89 ) && ( outbuf [outptr - 1 ]== 92 ) ) 
	{
	  tokmem [tokptr ]= 139 ;
	  tokptr = tokptr + 1 ;
	} 
	{
	  tokmem [tokptr ]= 30720 + thismodule ;
	  tokptr = tokptr + 1 ;
	  scrapptr = scrapptr + 1 ;
	  cat [scrapptr ]= 22 ;
	  trans [scrapptr ]= textptr ;
	  textptr = textptr + 1 ;
	  tokstart [textptr ]= tokptr ;
	} 
	curxref = xref [thismodule ];
	if ( xmem [curxref ].numfield != modulecount + 10240 ) 
	{
	  {
	    tokmem [tokptr ]= 132 ;
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 43 ;
	    tokptr = tokptr + 1 ;
	    tokmem [tokptr ]= 125 ;
	    tokptr = tokptr + 1 ;
	    scrapptr = scrapptr + 1 ;
	    cat [scrapptr ]= 2 ;
	    trans [scrapptr ]= textptr ;
	    textptr = textptr + 1 ;
	    tokstart [textptr ]= tokptr ;
	  } 
	  thismodule = 0 ;
	} 
	{
	  tokmem [tokptr ]= 92 ;
	  tokptr = tokptr + 1 ;
	  tokmem [tokptr ]= 83 ;
	  tokptr = tokptr + 1 ;
	  scrapptr = scrapptr + 1 ;
	  cat [scrapptr ]= 2 ;
	  trans [scrapptr ]= textptr ;
	  textptr = textptr + 1 ;
	  tokstart [textptr ]= tokptr ;
	} 
	{
	  tokmem [tokptr ]= 141 ;
	  tokptr = tokptr + 1 ;
	  scrapptr = scrapptr + 1 ;
	  cat [scrapptr ]= 9 ;
	  trans [scrapptr ]= textptr ;
	  textptr = textptr + 1 ;
	  tokstart [textptr ]= tokptr ;
	} 
      } 
      while ( nextcontrol <= 146 ) {
	  
	outerparse () ;
	if ( nextcontrol < 146 ) 
	{
	  {
	    if ( ! phaseone ) 
	    {
	      putc ('\n',  stdout );
	      Fputs( stdout ,  "! You can't do that in Pascal text" ) ;
	      error () ;
	    } 
	  } 
	  nextcontrol = getnext () ;
	} 
	else if ( nextcontrol == 146 ) 
	{
	  {
	    tokmem [tokptr ]= 30720 + curmodule ;
	    tokptr = tokptr + 1 ;
	    scrapptr = scrapptr + 1 ;
	    cat [scrapptr ]= 22 ;
	    trans [scrapptr ]= textptr ;
	    textptr = textptr + 1 ;
	    tokstart [textptr ]= tokptr ;
	  } 
	  nextcontrol = getnext () ;
	} 
      } 
      finishPascal () ;
    } 
    if ( thismodule > 0 ) 
    {
      firstxref = xref [thismodule ];
      thisxref = xmem [firstxref ].xlinkfield ;
      if ( xmem [thisxref ].numfield > 10240 ) 
      {
	midxref = thisxref ;
	curxref = 0 ;
	do {
	    nextxref = xmem [thisxref ].xlinkfield ;
	  xmem [thisxref ].xlinkfield = curxref ;
	  curxref = thisxref ;
	  thisxref = nextxref ;
	} while ( ! ( xmem [thisxref ].numfield <= 10240 ) ) ;
	xmem [firstxref ].xlinkfield = curxref ;
      } 
      else midxref = 0 ;
      curxref = 0 ;
      while ( thisxref != 0 ) {
	  
	nextxref = xmem [thisxref ].xlinkfield ;
	xmem [thisxref ].xlinkfield = curxref ;
	curxref = thisxref ;
	thisxref = nextxref ;
      } 
      if ( midxref > 0 ) 
      xmem [midxref ].xlinkfield = curxref ;
      else xmem [firstxref ].xlinkfield = curxref ;
      curxref = xmem [firstxref ].xlinkfield ;
      footnote ( 10240 ) ;
      footnote ( 0 ) ;
    } 
    {
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 92 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 102 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 105 ;
    } 
    finishline () ;
    flushbuffer ( 0 , false , false ) ;
  } 
} 
void mainbody() {
    
  initialize () ;
  Fputs( stdout ,  "This is WEAVE, Version 4.4" ) ;
  fprintf( stdout , "%s\n",  versionstring ) ;
  idloc = 10 ;
  idfirst = 7 ;
  buffer [7 ]= 97 ;
  buffer [8 ]= 110 ;
  buffer [9 ]= 100 ;
  curname = idlookup ( 28 ) ;
  idfirst = 5 ;
  buffer [5 ]= 97 ;
  buffer [6 ]= 114 ;
  buffer [7 ]= 114 ;
  buffer [8 ]= 97 ;
  buffer [9 ]= 121 ;
  curname = idlookup ( 4 ) ;
  idfirst = 5 ;
  buffer [5 ]= 98 ;
  buffer [6 ]= 101 ;
  buffer [7 ]= 103 ;
  buffer [8 ]= 105 ;
  buffer [9 ]= 110 ;
  curname = idlookup ( 5 ) ;
  idfirst = 6 ;
  buffer [6 ]= 99 ;
  buffer [7 ]= 97 ;
  buffer [8 ]= 115 ;
  buffer [9 ]= 101 ;
  curname = idlookup ( 6 ) ;
  idfirst = 5 ;
  buffer [5 ]= 99 ;
  buffer [6 ]= 111 ;
  buffer [7 ]= 110 ;
  buffer [8 ]= 115 ;
  buffer [9 ]= 116 ;
  curname = idlookup ( 7 ) ;
  idfirst = 7 ;
  buffer [7 ]= 100 ;
  buffer [8 ]= 105 ;
  buffer [9 ]= 118 ;
  curname = idlookup ( 8 ) ;
  idfirst = 8 ;
  buffer [8 ]= 100 ;
  buffer [9 ]= 111 ;
  curname = idlookup ( 9 ) ;
  idfirst = 4 ;
  buffer [4 ]= 100 ;
  buffer [5 ]= 111 ;
  buffer [6 ]= 119 ;
  buffer [7 ]= 110 ;
  buffer [8 ]= 116 ;
  buffer [9 ]= 111 ;
  curname = idlookup ( 20 ) ;
  idfirst = 6 ;
  buffer [6 ]= 101 ;
  buffer [7 ]= 108 ;
  buffer [8 ]= 115 ;
  buffer [9 ]= 101 ;
  curname = idlookup ( 10 ) ;
  idfirst = 7 ;
  buffer [7 ]= 101 ;
  buffer [8 ]= 110 ;
  buffer [9 ]= 100 ;
  curname = idlookup ( 11 ) ;
  idfirst = 6 ;
  buffer [6 ]= 102 ;
  buffer [7 ]= 105 ;
  buffer [8 ]= 108 ;
  buffer [9 ]= 101 ;
  curname = idlookup ( 4 ) ;
  idfirst = 7 ;
  buffer [7 ]= 102 ;
  buffer [8 ]= 111 ;
  buffer [9 ]= 114 ;
  curname = idlookup ( 12 ) ;
  idfirst = 2 ;
  buffer [2 ]= 102 ;
  buffer [3 ]= 117 ;
  buffer [4 ]= 110 ;
  buffer [5 ]= 99 ;
  buffer [6 ]= 116 ;
  buffer [7 ]= 105 ;
  buffer [8 ]= 111 ;
  buffer [9 ]= 110 ;
  curname = idlookup ( 17 ) ;
  idfirst = 6 ;
  buffer [6 ]= 103 ;
  buffer [7 ]= 111 ;
  buffer [8 ]= 116 ;
  buffer [9 ]= 111 ;
  curname = idlookup ( 13 ) ;
  idfirst = 8 ;
  buffer [8 ]= 105 ;
  buffer [9 ]= 102 ;
  curname = idlookup ( 14 ) ;
  idfirst = 8 ;
  buffer [8 ]= 105 ;
  buffer [9 ]= 110 ;
  curname = idlookup ( 30 ) ;
  idfirst = 5 ;
  buffer [5 ]= 108 ;
  buffer [6 ]= 97 ;
  buffer [7 ]= 98 ;
  buffer [8 ]= 101 ;
  buffer [9 ]= 108 ;
  curname = idlookup ( 7 ) ;
  idfirst = 7 ;
  buffer [7 ]= 109 ;
  buffer [8 ]= 111 ;
  buffer [9 ]= 100 ;
  curname = idlookup ( 8 ) ;
  idfirst = 7 ;
  buffer [7 ]= 110 ;
  buffer [8 ]= 105 ;
  buffer [9 ]= 108 ;
  curname = idlookup ( 16 ) ;
  idfirst = 7 ;
  buffer [7 ]= 110 ;
  buffer [8 ]= 111 ;
  buffer [9 ]= 116 ;
  curname = idlookup ( 29 ) ;
  idfirst = 8 ;
  buffer [8 ]= 111 ;
  buffer [9 ]= 102 ;
  curname = idlookup ( 9 ) ;
  idfirst = 8 ;
  buffer [8 ]= 111 ;
  buffer [9 ]= 114 ;
  curname = idlookup ( 55 ) ;
  idfirst = 4 ;
  buffer [4 ]= 112 ;
  buffer [5 ]= 97 ;
  buffer [6 ]= 99 ;
  buffer [7 ]= 107 ;
  buffer [8 ]= 101 ;
  buffer [9 ]= 100 ;
  curname = idlookup ( 13 ) ;
  idfirst = 1 ;
  buffer [1 ]= 112 ;
  buffer [2 ]= 114 ;
  buffer [3 ]= 111 ;
  buffer [4 ]= 99 ;
  buffer [5 ]= 101 ;
  buffer [6 ]= 100 ;
  buffer [7 ]= 117 ;
  buffer [8 ]= 114 ;
  buffer [9 ]= 101 ;
  curname = idlookup ( 17 ) ;
  idfirst = 3 ;
  buffer [3 ]= 112 ;
  buffer [4 ]= 114 ;
  buffer [5 ]= 111 ;
  buffer [6 ]= 103 ;
  buffer [7 ]= 114 ;
  buffer [8 ]= 97 ;
  buffer [9 ]= 109 ;
  curname = idlookup ( 17 ) ;
  idfirst = 4 ;
  buffer [4 ]= 114 ;
  buffer [5 ]= 101 ;
  buffer [6 ]= 99 ;
  buffer [7 ]= 111 ;
  buffer [8 ]= 114 ;
  buffer [9 ]= 100 ;
  curname = idlookup ( 18 ) ;
  idfirst = 4 ;
  buffer [4 ]= 114 ;
  buffer [5 ]= 101 ;
  buffer [6 ]= 112 ;
  buffer [7 ]= 101 ;
  buffer [8 ]= 97 ;
  buffer [9 ]= 116 ;
  curname = idlookup ( 19 ) ;
  idfirst = 7 ;
  buffer [7 ]= 115 ;
  buffer [8 ]= 101 ;
  buffer [9 ]= 116 ;
  curname = idlookup ( 4 ) ;
  idfirst = 6 ;
  buffer [6 ]= 116 ;
  buffer [7 ]= 104 ;
  buffer [8 ]= 101 ;
  buffer [9 ]= 110 ;
  curname = idlookup ( 9 ) ;
  idfirst = 8 ;
  buffer [8 ]= 116 ;
  buffer [9 ]= 111 ;
  curname = idlookup ( 20 ) ;
  idfirst = 6 ;
  buffer [6 ]= 116 ;
  buffer [7 ]= 121 ;
  buffer [8 ]= 112 ;
  buffer [9 ]= 101 ;
  curname = idlookup ( 7 ) ;
  idfirst = 5 ;
  buffer [5 ]= 117 ;
  buffer [6 ]= 110 ;
  buffer [7 ]= 116 ;
  buffer [8 ]= 105 ;
  buffer [9 ]= 108 ;
  curname = idlookup ( 21 ) ;
  idfirst = 7 ;
  buffer [7 ]= 118 ;
  buffer [8 ]= 97 ;
  buffer [9 ]= 114 ;
  curname = idlookup ( 22 ) ;
  idfirst = 5 ;
  buffer [5 ]= 119 ;
  buffer [6 ]= 104 ;
  buffer [7 ]= 105 ;
  buffer [8 ]= 108 ;
  buffer [9 ]= 101 ;
  curname = idlookup ( 12 ) ;
  idfirst = 6 ;
  buffer [6 ]= 119 ;
  buffer [7 ]= 105 ;
  buffer [8 ]= 116 ;
  buffer [9 ]= 104 ;
  curname = idlookup ( 12 ) ;
  idfirst = 3 ;
  buffer [3 ]= 120 ;
  buffer [4 ]= 99 ;
  buffer [5 ]= 108 ;
  buffer [6 ]= 97 ;
  buffer [7 ]= 117 ;
  buffer [8 ]= 115 ;
  buffer [9 ]= 101 ;
  curname = idlookup ( 23 ) ;
  PhaseI () ;
  PhaseII () ;
  if ( noxref ) 
  {
    finishline () ;
    {
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 92 ;
    } 
    {
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 118 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 102 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 105 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 108 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 108 ;
    } 
    {
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 92 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 101 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 110 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 100 ;
    } 
    finishline () ;
  } 
  else {
      
    phasethree = true ;
    {
      putc ('\n',  stdout );
      Fputs( stdout ,  "Writing the index..." ) ;
    } 
    if ( changeexists ) 
    {
      finishline () ;
      {
	kmodule = 1 ;
	{
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 92 ;
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 99 ;
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 104 ;
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 32 ;
	} 
	while ( kmodule < modulecount ) {
	    
	  if ( changedmodule [kmodule ]) 
	  {
	    outmod ( kmodule ) ;
	    {
	      if ( outptr == linelength ) 
	      breakout () ;
	      outptr = outptr + 1 ;
	      outbuf [outptr ]= 44 ;
	      if ( outptr == linelength ) 
	      breakout () ;
	      outptr = outptr + 1 ;
	      outbuf [outptr ]= 32 ;
	    } 
	  } 
	  kmodule = kmodule + 1 ;
	} 
	outmod ( kmodule ) ;
	{
	  if ( outptr == linelength ) 
	  breakout () ;
	  outptr = outptr + 1 ;
	  outbuf [outptr ]= 46 ;
	} 
      } 
    } 
    finishline () ;
    {
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 92 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 105 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 110 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 120 ;
    } 
    finishline () ;
    {register integer for_end; c = 0 ;for_end = 255 ; if ( c <= for_end) do 
      bucket [c ]= 0 ;
    while ( c++ < for_end ) ;} 
    {register integer for_end; h = 0 ;for_end = hashsize - 1 ; if ( h <= 
    for_end) do 
      {
	nextname = hash [h ];
	while ( nextname != 0 ) {
	    
	  curname = nextname ;
	  nextname = link [curname ];
	  if ( xref [curname ]!= 0 ) 
	  {
	    c = bytemem [curname % 2 ][ bytestart [curname ]];
	    if ( ( c <= 90 ) && ( c >= 65 ) ) 
	    c = c + 32 ;
	    blink [curname ]= bucket [c ];
	    bucket [c ]= curname ;
	  } 
	} 
      } 
    while ( h++ < for_end ) ;} 
    scrapptr = 0 ;
    unbucket ( 1 ) ;
    while ( scrapptr > 0 ) {
	
      curdepth = cat [scrapptr ];
      if ( ( blink [trans [scrapptr ]]== 0 ) || ( curdepth == 255 ) ) 
      {
	curname = trans [scrapptr ];
	do {
	    { 
	    if ( outptr == linelength ) 
	    breakout () ;
	    outptr = outptr + 1 ;
	    outbuf [outptr ]= 92 ;
	    if ( outptr == linelength ) 
	    breakout () ;
	    outptr = outptr + 1 ;
	    outbuf [outptr ]= 58 ;
	  } 
	  switch ( ilk [curname ]) 
	  {case 0 : 
	    if ( bytestart [curname + 2 ]- bytestart [curname ]== 1 ) 
	    {
	      if ( outptr == linelength ) 
	      breakout () ;
	      outptr = outptr + 1 ;
	      outbuf [outptr ]= 92 ;
	      if ( outptr == linelength ) 
	      breakout () ;
	      outptr = outptr + 1 ;
	      outbuf [outptr ]= 124 ;
	    } 
	    else {
		
	      if ( outptr == linelength ) 
	      breakout () ;
	      outptr = outptr + 1 ;
	      outbuf [outptr ]= 92 ;
	      if ( outptr == linelength ) 
	      breakout () ;
	      outptr = outptr + 1 ;
	      outbuf [outptr ]= 92 ;
	    } 
	    break ;
	  case 1 : 
	    ;
	    break ;
	  case 2 : 
	    {
	      if ( outptr == linelength ) 
	      breakout () ;
	      outptr = outptr + 1 ;
	      outbuf [outptr ]= 92 ;
	      if ( outptr == linelength ) 
	      breakout () ;
	      outptr = outptr + 1 ;
	      outbuf [outptr ]= 57 ;
	    } 
	    break ;
	  case 3 : 
	    {
	      if ( outptr == linelength ) 
	      breakout () ;
	      outptr = outptr + 1 ;
	      outbuf [outptr ]= 92 ;
	      if ( outptr == linelength ) 
	      breakout () ;
	      outptr = outptr + 1 ;
	      outbuf [outptr ]= 46 ;
	    } 
	    break ;
	    default: 
	    {
	      if ( outptr == linelength ) 
	      breakout () ;
	      outptr = outptr + 1 ;
	      outbuf [outptr ]= 92 ;
	      if ( outptr == linelength ) 
	      breakout () ;
	      outptr = outptr + 1 ;
	      outbuf [outptr ]= 38 ;
	    } 
	    break ;
	  } 
	  outname ( curname ) ;
	  thisxref = xref [curname ];
	  curxref = 0 ;
	  do {
	      nextxref = xmem [thisxref ].xlinkfield ;
	    xmem [thisxref ].xlinkfield = curxref ;
	    curxref = thisxref ;
	    thisxref = nextxref ;
	  } while ( ! ( thisxref == 0 ) ) ;
	  do {
	      { 
	      if ( outptr == linelength ) 
	      breakout () ;
	      outptr = outptr + 1 ;
	      outbuf [outptr ]= 44 ;
	      if ( outptr == linelength ) 
	      breakout () ;
	      outptr = outptr + 1 ;
	      outbuf [outptr ]= 32 ;
	    } 
	    curval = xmem [curxref ].numfield ;
	    if ( curval < 10240 ) 
	    outmod ( curval ) ;
	    else {
		
	      {
		if ( outptr == linelength ) 
		breakout () ;
		outptr = outptr + 1 ;
		outbuf [outptr ]= 92 ;
		if ( outptr == linelength ) 
		breakout () ;
		outptr = outptr + 1 ;
		outbuf [outptr ]= 91 ;
	      } 
	      outmod ( curval - 10240 ) ;
	      {
		if ( outptr == linelength ) 
		breakout () ;
		outptr = outptr + 1 ;
		outbuf [outptr ]= 93 ;
	      } 
	    } 
	    curxref = xmem [curxref ].xlinkfield ;
	  } while ( ! ( curxref == 0 ) ) ;
	  {
	    if ( outptr == linelength ) 
	    breakout () ;
	    outptr = outptr + 1 ;
	    outbuf [outptr ]= 46 ;
	  } 
	  finishline () ;
	  curname = blink [curname ];
	} while ( ! ( curname == 0 ) ) ;
	scrapptr = scrapptr - 1 ;
      } 
      else {
	  
	nextname = trans [scrapptr ];
	do {
	    curname = nextname ;
	  nextname = blink [curname ];
	  curbyte = bytestart [curname ]+ curdepth ;
	  curbank = curname % 2 ;
	  if ( curbyte == bytestart [curname + 2 ]) 
	  c = 0 ;
	  else {
	      
	    c = bytemem [curbank ][ curbyte ];
	    if ( ( c <= 90 ) && ( c >= 65 ) ) 
	    c = c + 32 ;
	  } 
	  blink [curname ]= bucket [c ];
	  bucket [c ]= curname ;
	} while ( ! ( nextname == 0 ) ) ;
	scrapptr = scrapptr - 1 ;
	unbucket ( curdepth + 1 ) ;
      } 
    } 
    {
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 92 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 102 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 105 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 110 ;
    } 
    finishline () ;
    modprint ( ilk [0 ]) ;
    {
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 92 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 99 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 111 ;
      if ( outptr == linelength ) 
      breakout () ;
      outptr = outptr + 1 ;
      outbuf [outptr ]= 110 ;
    } 
    finishline () ;
  } 
  Fputs( stdout ,  "Done." ) ;
  if ( changelimit != 0 ) 
  {
    {register integer for_end; ii = 0 ;for_end = changelimit ; if ( ii <= 
    for_end) do 
      buffer [ii ]= changebuffer [ii ];
    while ( ii++ < for_end ) ;} 
    limit = changelimit ;
    changing = true ;
    line = otherline ;
    loc = changelimit ;
    {
      if ( ! phaseone ) 
      {
	putc ('\n',  stdout );
	Fputs( stdout ,  "! Change file entry did not match" ) ;
	error () ;
      } 
    } 
  } 
  jumpout () ;
}