#define PKTOGF
#include "cpascal.h"
#define maxcounts ( 400 ) 
typedef char ASCIIcode  ;
typedef text /* of  char */ textfile  ;
typedef unsigned char eightbits  ;
typedef text /* of  eightbits */ bytefile  ;
ASCIIcode xord[256]  ;
char xchr[256]  ;
bytefile gffile, pkfile  ;
cstring gfname, pkname  ;
integer gfloc, curloc  ;
integer i, j  ;
integer endofpacket  ;
integer dynf  ;
integer car  ;
integer tfmwidth  ;
integer xoff, yoff  ;
char comment[18]  ;
integer magnification  ;
integer designsize  ;
integer checksum  ;
integer hppp, vppp  ;
integer cheight, cwidth  ;
integer wordwidth  ;
integer horesc, veresc  ;
integer packetlength  ;
integer lasteoc  ;
integer minm, maxm, minn, maxn  ;
integer mminm, mmaxm, mminn, mmaxn  ;
integer charpointer[256], stfmwidth[256]  ;
integer shoresc[256], sveresc[256]  ;
integer thischarptr  ;
eightbits inputbyte  ;
eightbits bitweight  ;
integer rowcounts[maxcounts + 1]  ;
integer rcp  ;
integer countdown  ;
boolean done  ;
integer max  ;
integer repeatcount  ;
integer xtogo, ytogo  ;
boolean turnon, firston  ;
integer count  ;
integer curn  ;
integer flagbyte  ;
cinttype verbose  ;

#include "pktogf.h"
void 
#ifdef HAVE_PROTOTYPES
parsearguments ( void ) 
#else
parsearguments ( ) 
#endif
{
  
#define noptions ( 3 ) 
  getoptstruct longoptions[noptions + 1]  ;
  integer getoptreturnval  ;
  cinttype optionindex  ;
  integer currentoption  ;
  verbose = false ;
  currentoption = 0 ;
  longoptions [currentoption ].name = "help" ;
  longoptions [currentoption ].hasarg = 0 ;
  longoptions [currentoption ].flag = 0 ;
  longoptions [currentoption ].val = 0 ;
  currentoption = currentoption + 1 ;
  longoptions [currentoption ].name = "version" ;
  longoptions [currentoption ].hasarg = 0 ;
  longoptions [currentoption ].flag = 0 ;
  longoptions [currentoption ].val = 0 ;
  currentoption = currentoption + 1 ;
  longoptions [currentoption ].name = "verbose" ;
  longoptions [currentoption ].hasarg = 0 ;
  longoptions [currentoption ].flag = addressof ( verbose ) ;
  longoptions [currentoption ].val = 1 ;
  currentoption = currentoption + 1 ;
  longoptions [currentoption ].name = 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 , "pktogf" ) ;
    } 
    else if ( ( strcmp ( longoptions [optionindex ].name , "help" ) == 0 ) ) 
    {
      usage ( 0 , PKTOGFHELP ) ;
    } 
    else if ( ( strcmp ( longoptions [optionindex ].name , "version" ) == 0 
    ) ) 
    {
      printversionandexit ( "This is PKtoGF, Version 1.1" , nil , 
      "Tomas Rokicki" ) ;
    } 
  } while ( ! ( getoptreturnval == -1 ) ) ;
  if ( ( optind + 1 != argc ) && ( optind + 2 != argc ) ) 
  {
    fprintf( stderr , "%s\n",  "pktogf: Need one or two file arguments." ) ;
    usage ( 1 , "pktogf" ) ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
initialize ( void ) 
#else
initialize ( ) 
#endif
{
  integer i  ;
  kpsesetprogname ( argv [0 ]) ;
  kpseinitprog ( "PKTOGF" , 0 , nil , nil ) ;
  parsearguments () ;
  if ( verbose ) 
  fprintf( output , "%s\n",  "This is PKtoGF, Version 1.1" ) ;
  {register integer for_end; i = 0 ;for_end = 31 ; if ( i <= for_end) do 
    xchr [i ]= '?' ;
  while ( i++ < for_end ) ;} 
  xchr [32 ]= ' ' ;
  xchr [33 ]= '!' ;
  xchr [34 ]= '"' ;
  xchr [35 ]= '#' ;
  xchr [36 ]= '$' ;
  xchr [37 ]= '%' ;
  xchr [38 ]= '&' ;
  xchr [39 ]= '\'' ;
  xchr [40 ]= '(' ;
  xchr [41 ]= ')' ;
  xchr [42 ]= '*' ;
  xchr [43 ]= '+' ;
  xchr [44 ]= ',' ;
  xchr [45 ]= '-' ;
  xchr [46 ]= '.' ;
  xchr [47 ]= '/' ;
  xchr [48 ]= '0' ;
  xchr [49 ]= '1' ;
  xchr [50 ]= '2' ;
  xchr [51 ]= '3' ;
  xchr [52 ]= '4' ;
  xchr [53 ]= '5' ;
  xchr [54 ]= '6' ;
  xchr [55 ]= '7' ;
  xchr [56 ]= '8' ;
  xchr [57 ]= '9' ;
  xchr [58 ]= ':' ;
  xchr [59 ]= ';' ;
  xchr [60 ]= '<' ;
  xchr [61 ]= '=' ;
  xchr [62 ]= '>' ;
  xchr [63 ]= '?' ;
  xchr [64 ]= '@' ;
  xchr [65 ]= 'A' ;
  xchr [66 ]= 'B' ;
  xchr [67 ]= 'C' ;
  xchr [68 ]= 'D' ;
  xchr [69 ]= 'E' ;
  xchr [70 ]= 'F' ;
  xchr [71 ]= 'G' ;
  xchr [72 ]= 'H' ;
  xchr [73 ]= 'I' ;
  xchr [74 ]= 'J' ;
  xchr [75 ]= 'K' ;
  xchr [76 ]= 'L' ;
  xchr [77 ]= 'M' ;
  xchr [78 ]= 'N' ;
  xchr [79 ]= 'O' ;
  xchr [80 ]= 'P' ;
  xchr [81 ]= 'Q' ;
  xchr [82 ]= 'R' ;
  xchr [83 ]= 'S' ;
  xchr [84 ]= 'T' ;
  xchr [85 ]= 'U' ;
  xchr [86 ]= 'V' ;
  xchr [87 ]= 'W' ;
  xchr [88 ]= 'X' ;
  xchr [89 ]= 'Y' ;
  xchr [90 ]= 'Z' ;
  xchr [91 ]= '[' ;
  xchr [92 ]= '\\' ;
  xchr [93 ]= ']' ;
  xchr [94 ]= '^' ;
  xchr [95 ]= '_' ;
  xchr [96 ]= '`' ;
  xchr [97 ]= 'a' ;
  xchr [98 ]= 'b' ;
  xchr [99 ]= 'c' ;
  xchr [100 ]= 'd' ;
  xchr [101 ]= 'e' ;
  xchr [102 ]= 'f' ;
  xchr [103 ]= 'g' ;
  xchr [104 ]= 'h' ;
  xchr [105 ]= 'i' ;
  xchr [106 ]= 'j' ;
  xchr [107 ]= 'k' ;
  xchr [108 ]= 'l' ;
  xchr [109 ]= 'm' ;
  xchr [110 ]= 'n' ;
  xchr [111 ]= 'o' ;
  xchr [112 ]= 'p' ;
  xchr [113 ]= 'q' ;
  xchr [114 ]= 'r' ;
  xchr [115 ]= 's' ;
  xchr [116 ]= 't' ;
  xchr [117 ]= 'u' ;
  xchr [118 ]= 'v' ;
  xchr [119 ]= 'w' ;
  xchr [120 ]= 'x' ;
  xchr [121 ]= 'y' ;
  xchr [122 ]= 'z' ;
  xchr [123 ]= '{' ;
  xchr [124 ]= '|' ;
  xchr [125 ]= '}' ;
  xchr [126 ]= '~' ;
  {register integer for_end; i = 127 ;for_end = 255 ; if ( i <= for_end) do 
    xchr [i ]= '?' ;
  while ( i++ < for_end ) ;} 
  {register integer for_end; i = 0 ;for_end = 127 ; if ( i <= for_end) do 
    xord [chr ( i ) ]= 32 ;
  while ( i++ < for_end ) ;} 
  {register integer for_end; i = 32 ;for_end = 126 ; if ( i <= for_end) do 
    xord [xchr [i ]]= i ;
  while ( i++ < for_end ) ;} 
  mminm = 999999L ;
  mminn = 999999L ;
  mmaxm = -999999L ;
  mmaxn = -999999L ;
  {register integer for_end; i = 0 ;for_end = 255 ; if ( i <= for_end) do 
    charpointer [i ]= -1 ;
  while ( i++ < for_end ) ;} 
} 
void 
#ifdef HAVE_PROTOTYPES
openpkfile ( void ) 
#else
openpkfile ( ) 
#endif
{
  pkname = cmdline ( optind ) ;
  pkfile = kpseopenfile ( cmdline ( optind ) , kpsepkformat ) ;
  if ( pkfile ) 
  {
    curloc = 0 ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
opengffile ( void ) 
#else
opengffile ( ) 
#endif
{
  if ( optind + 1 == argc ) 
  {
    gfname = basenamechangesuffix ( pkname , "pk" , "gf" ) ;
  } 
  else {
      
    gfname = cmdline ( optind + 1 ) ;
  } 
  rewritebin ( gffile , gfname ) ;
  gfloc = 0 ;
} 
integer 
#ifdef HAVE_PROTOTYPES
getbyte ( void ) 
#else
getbyte ( ) 
#endif
{
  register integer Result; eightbits b  ;
  if ( eof ( pkfile ) ) 
  Result = 0 ;
  else {
      
    read ( pkfile , b ) ;
    curloc = curloc + 1 ;
    Result = b ;
  } 
  return Result ;
} 
integer 
#ifdef HAVE_PROTOTYPES
signedbyte ( void ) 
#else
signedbyte ( ) 
#endif
{
  register integer Result; eightbits b  ;
  read ( pkfile , b ) ;
  curloc = curloc + 1 ;
  if ( b < 128 ) 
  Result = b ;
  else Result = b - 256 ;
  return Result ;
} 
integer 
#ifdef HAVE_PROTOTYPES
gettwobytes ( void ) 
#else
gettwobytes ( ) 
#endif
{
  register integer Result; eightbits a, b  ;
  read ( pkfile , a ) ;
  read ( pkfile , b ) ;
  curloc = curloc + 2 ;
  Result = a * 256 + b ;
  return Result ;
} 
integer 
#ifdef HAVE_PROTOTYPES
signedpair ( void ) 
#else
signedpair ( ) 
#endif
{
  register integer Result; eightbits a, b  ;
  read ( pkfile , a ) ;
  read ( pkfile , b ) ;
  curloc = curloc + 2 ;
  if ( a < 128 ) 
  Result = a * 256 + b ;
  else Result = ( a - 256 ) * 256 + b ;
  return Result ;
} 
integer 
#ifdef HAVE_PROTOTYPES
signedquad ( void ) 
#else
signedquad ( ) 
#endif
{
  register integer Result; eightbits a, b, c, d  ;
  read ( pkfile , a ) ;
  read ( pkfile , b ) ;
  read ( pkfile , c ) ;
  read ( pkfile , d ) ;
  curloc = curloc + 4 ;
  if ( a < 128 ) 
  Result = ( ( a * 256 + b ) * 256 + c ) * 256 + d ;
  else Result = ( ( ( a - 256 ) * 256 + b ) * 256 + c ) * 256 + d ;
  return Result ;
} 
void 
#ifdef HAVE_PROTOTYPES
zgf16 ( integer i ) 
#else
zgf16 ( i ) 
  integer i ;
#endif
{
  {
    putbyte ( i / 256 , gffile ) ;
    gfloc = gfloc + 1 ;
  } 
  {
    putbyte ( i % 256 , gffile ) ;
    gfloc = gfloc + 1 ;
  } 
} 
void 
#ifdef HAVE_PROTOTYPES
zgf24 ( integer i ) 
#else
zgf24 ( i ) 
  integer i ;
#endif
{
  {
    putbyte ( i / 65536L , gffile ) ;
    gfloc = gfloc + 1 ;
  } 
  gf16 ( i % 65536L ) ;
} 
void 
#ifdef HAVE_PROTOTYPES
zgfquad ( integer i ) 
#else
zgfquad ( i ) 
  integer i ;
#endif
{
  if ( i >= 0 ) 
  {
    {
      putbyte ( i / 16777216L , gffile ) ;
      gfloc = gfloc + 1 ;
    } 
  } 
  else {
      
    i = i + 1073741824L ;
    i = i + 1073741824L ;
    {
      putbyte ( 128 + ( i / 16777216L ) , gffile ) ;
      gfloc = gfloc + 1 ;
    } 
  } 
  gf24 ( i % 16777216L ) ;
} 
integer 
#ifdef HAVE_PROTOTYPES
getnyb ( void ) 
#else
getnyb ( ) 
#endif
{
  register integer Result; eightbits temp  ;
  if ( bitweight == 0 ) 
  {
    inputbyte = getbyte () ;
    bitweight = 16 ;
  } 
  temp = inputbyte / bitweight ;
  inputbyte = inputbyte - temp * bitweight ;
  bitweight = bitweight / 16 ;
  Result = temp ;
  return Result ;
} 
boolean 
#ifdef HAVE_PROTOTYPES
getbit ( void ) 
#else
getbit ( ) 
#endif
{
  register boolean Result; boolean temp  ;
  bitweight = bitweight / 2 ;
  if ( bitweight == 0 ) 
  {
    inputbyte = getbyte () ;
    bitweight = 128 ;
  } 
  temp = inputbyte >= bitweight ;
  if ( temp ) 
  inputbyte = inputbyte - bitweight ;
  Result = temp ;
  return Result ;
} 
integer 
#ifdef HAVE_PROTOTYPES
pkpackednum ( void ) 
#else
pkpackednum ( ) 
#endif
{
  register integer Result; integer i, j  ;
  i = getnyb () ;
  if ( i == 0 ) 
  {
    do {
	j = getnyb () ;
      i = i + 1 ;
    } while ( ! ( j != 0 ) ) ;
    while ( i > 0 ) {
	
      j = j * 16 + getnyb () ;
      i = i - 1 ;
    } 
    Result = j - 15 + ( 13 - dynf ) * 16 + dynf ;
  } 
  else if ( i <= dynf ) 
  Result = i ;
  else if ( i < 14 ) 
  Result = ( i - dynf - 1 ) * 16 + getnyb () + dynf + 1 ;
  else {
      
    if ( i == 14 ) 
    repeatcount = pkpackednum () ;
    else repeatcount = 1 ;
    Result = pkpackednum () ;
  } 
  return Result ;
} 
void 
#ifdef HAVE_PROTOTYPES
skipspecials ( void ) 
#else
skipspecials ( ) 
#endif
{
  integer i, j, k  ;
  thischarptr = gfloc ;
  do {
      flagbyte = getbyte () ;
    if ( flagbyte >= 240 ) 
    switch ( flagbyte ) 
    {case 240 : 
    case 241 : 
    case 242 : 
    case 243 : 
      {
	i = 0 ;
	{
	  putbyte ( flagbyte - 1 , gffile ) ;
	  gfloc = gfloc + 1 ;
	} 
	{register integer for_end; j = 240 ;for_end = flagbyte ; if ( j <= 
	for_end) do 
	  {
	    k = getbyte () ;
	    {
	      putbyte ( k , gffile ) ;
	      gfloc = gfloc + 1 ;
	    } 
	    i = 256 * i + k ;
	  } 
	while ( j++ < for_end ) ;} 
	{register integer for_end; j = 1 ;for_end = i ; if ( j <= for_end) 
	do 
	  {
	    putbyte ( getbyte () , gffile ) ;
	    gfloc = gfloc + 1 ;
	  } 
	while ( j++ < for_end ) ;} 
      } 
      break ;
    case 244 : 
      {
	{
	  putbyte ( 243 , gffile ) ;
	  gfloc = gfloc + 1 ;
	} 
	gfquad ( signedquad () ) ;
      } 
      break ;
    case 245 : 
      {
	;
      } 
      break ;
    case 246 : 
      {
	;
      } 
      break ;
    case 247 : 
    case 248 : 
    case 249 : 
    case 250 : 
    case 251 : 
    case 252 : 
    case 253 : 
    case 254 : 
    case 255 : 
      {
	verbose = true ;
	if ( verbose ) 
	fprintf( output , "%s%ld%c\n",  "Unexpected " , (long)flagbyte , '!' ) ;
	uexit ( 1 ) ;
      } 
      break ;
    } 
  } while ( ! ( ( flagbyte < 240 ) || ( flagbyte == 245 ) ) ) ;
} 
void mainbody() {
    
  initialize () ;
  openpkfile () ;
  opengffile () ;
  if ( getbyte () != 247 ) 
  {
    verbose = true ;
    if ( verbose ) 
    fprintf( output , "%s\n",  "Bad pk file!  pre command missing." ) ;
    uexit ( 1 ) ;
  } 
  {
    putbyte ( 247 , gffile ) ;
    gfloc = gfloc + 1 ;
  } 
  if ( getbyte () != 89 ) 
  {
    verbose = true ;
    if ( verbose ) 
    fprintf( output , "%s\n",  "Wrong version of packed file!." ) ;
    uexit ( 1 ) ;
  } 
  {
    putbyte ( 131 , gffile ) ;
    gfloc = gfloc + 1 ;
  } 
  j = getbyte () ;
  {
    putbyte ( j , gffile ) ;
    gfloc = gfloc + 1 ;
  } 
  if ( verbose ) 
  putc ( '{' ,  output );
  {register integer for_end; i = 1 ;for_end = j ; if ( i <= for_end) do 
    {
      hppp = getbyte () ;
      {
	putbyte ( hppp , gffile ) ;
	gfloc = gfloc + 1 ;
      } 
      if ( verbose ) 
      putc ( xchr [xord [hppp ]],  output );
    } 
  while ( i++ < for_end ) ;} 
  if ( verbose ) 
  fprintf( output , "%c\n",  '}' ) ;
  designsize = signedquad () ;
  checksum = signedquad () ;
  hppp = signedquad () ;
  vppp = signedquad () ;
  if ( hppp != vppp ) 
  if ( verbose ) 
  fprintf( output , "%s\n",  "Warning:  aspect ratio not 1:1!" ) ;
  magnification = round ( hppp * 72.27 * 5 / ((double) 65536L ) ) ;
  lasteoc = gfloc ;
  skipspecials () ;
  while ( flagbyte != 245 ) {
      
    dynf = flagbyte / 16 ;
    flagbyte = flagbyte % 16 ;
    turnon = flagbyte >= 8 ;
    if ( turnon ) 
    flagbyte = flagbyte - 8 ;
    if ( flagbyte == 7 ) 
    {
      packetlength = signedquad () ;
      car = signedquad () ;
      endofpacket = packetlength + curloc ;
      tfmwidth = signedquad () ;
      horesc = signedquad () ;
      veresc = signedquad () ;
      cwidth = signedquad () ;
      cheight = signedquad () ;
      wordwidth = ( cwidth + 31 ) / 32 ;
      xoff = signedquad () ;
      yoff = signedquad () ;
    } 
    else if ( flagbyte > 3 ) 
    {
      packetlength = ( flagbyte - 4 ) * 65536L + gettwobytes () ;
      car = getbyte () ;
      endofpacket = packetlength + curloc ;
      i = getbyte () ;
      tfmwidth = i * 65536L + gettwobytes () ;
      horesc = gettwobytes () * 65536L ;
      veresc = 0 ;
      cwidth = gettwobytes () ;
      cheight = gettwobytes () ;
      wordwidth = ( cwidth + 31 ) / 32 ;
      xoff = signedpair () ;
      yoff = signedpair () ;
    } 
    else {
	
      packetlength = flagbyte * 256 + getbyte () ;
      car = getbyte () ;
      endofpacket = packetlength + curloc ;
      i = getbyte () ;
      tfmwidth = i * 65536L + gettwobytes () ;
      horesc = getbyte () * 65536L ;
      veresc = 0 ;
      cwidth = getbyte () ;
      cheight = getbyte () ;
      wordwidth = ( cwidth + 31 ) / 32 ;
      xoff = signedbyte () ;
      yoff = signedbyte () ;
    } 
    if ( ( cheight == 0 ) || ( cwidth == 0 ) ) 
    {
      cheight = 0 ;
      cwidth = 0 ;
      xoff = 0 ;
      yoff = 0 ;
    } 
    minm = - (integer) xoff ;
    if ( minm < mminm ) 
    mminm = minm ;
    maxm = cwidth + minm ;
    if ( maxm > mmaxm ) 
    mmaxm = maxm ;
    minn = yoff - cheight + 1 ;
    maxn = yoff ;
    if ( minn > maxn ) 
    minn = maxn ;
    if ( minn < mminn ) 
    mminn = minn ;
    if ( maxn > mmaxn ) 
    mmaxn = maxn ;
    {
      i = car % 256 ;
      if ( ( charpointer [i ]== -1 ) ) 
      {
	sveresc [i ]= veresc ;
	shoresc [i ]= horesc ;
	stfmwidth [i ]= tfmwidth ;
      } 
      else {
	  
	if ( ( sveresc [i ]!= veresc ) || ( shoresc [i ]!= horesc ) || ( 
	stfmwidth [i ]!= tfmwidth ) ) 
	if ( verbose ) 
	fprintf( output , "%s%ld%s\n",  "Two characters mod " , (long)i ,         " have mismatched parameters" ) ;
      } 
    } 
    {
      if ( ( charpointer [car % 256 ]== -1 ) && ( car >= 0 ) && ( car < 256 
      ) && ( maxm >= 0 ) && ( maxm < 256 ) && ( maxn >= 0 ) && ( maxn < 256 ) 
      && ( maxm >= minm ) && ( maxn >= minn ) && ( maxm < minm + 256 ) && ( 
      maxn < minn + 256 ) ) 
      {
	charpointer [car % 256 ]= thischarptr ;
	{
	  putbyte ( 68 , gffile ) ;
	  gfloc = gfloc + 1 ;
	} 
	{
	  putbyte ( car , gffile ) ;
	  gfloc = gfloc + 1 ;
	} 
	{
	  putbyte ( maxm - minm , gffile ) ;
	  gfloc = gfloc + 1 ;
	} 
	{
	  putbyte ( maxm , gffile ) ;
	  gfloc = gfloc + 1 ;
	} 
	{
	  putbyte ( maxn - minn , gffile ) ;
	  gfloc = gfloc + 1 ;
	} 
	{
	  putbyte ( maxn , gffile ) ;
	  gfloc = gfloc + 1 ;
	} 
      } 
      else {
	  
	{
	  putbyte ( 67 , gffile ) ;
	  gfloc = gfloc + 1 ;
	} 
	gfquad ( car ) ;
	gfquad ( charpointer [car % 256 ]) ;
	charpointer [car % 256 ]= thischarptr ;
	gfquad ( minm ) ;
	gfquad ( maxm ) ;
	gfquad ( minn ) ;
	gfquad ( maxn ) ;
      } 
    } 
    if ( ( cwidth > 0 ) && ( cheight > 0 ) ) 
    {
      bitweight = 0 ;
      countdown = cheight * cwidth - 1 ;
      if ( dynf == 14 ) 
      turnon = getbit () ;
      repeatcount = 0 ;
      xtogo = cwidth ;
      ytogo = cheight ;
      curn = cheight ;
      count = 0 ;
      firston = turnon ;
      turnon = ! turnon ;
      rcp = 0 ;
      while ( ytogo > 0 ) {
	  
	if ( count == 0 ) 
	{
	  turnon = ! turnon ;
	  if ( dynf == 14 ) 
	  {
	    count = 1 ;
	    done = false ;
	    while ( ! done ) {
		
	      if ( countdown <= 0 ) 
	      done = true ;
	      else if ( ( turnon == getbit () ) ) 
	      count = count + 1 ;
	      else done = true ;
	      countdown = countdown - 1 ;
	    } 
	  } 
	  else count = pkpackednum () ;
	} 
	if ( rcp == 0 ) 
	firston = turnon ;
	while ( count >= xtogo ) {
	    
	  rowcounts [rcp ]= xtogo ;
	  count = count - xtogo ;
	  {register integer for_end; i = 0 ;for_end = repeatcount ; if ( i 
	  <= for_end) do 
	    {
	      if ( ( rcp > 0 ) || firston ) 
	      {
		j = 0 ;
		max = rcp ;
		if ( ! turnon ) 
		max = max - 1 ;
		if ( curn - ytogo == 1 ) 
		{
		  if ( firston ) 
		  {
		    putbyte ( 74 , gffile ) ;
		    gfloc = gfloc + 1 ;
		  } 
		  else if ( rowcounts [0 ]< 165 ) 
		  {
		    {
		      putbyte ( 74 + rowcounts [0 ], gffile ) ;
		      gfloc = gfloc + 1 ;
		    } 
		    j = j + 1 ;
		  } 
		  else {
		      
		    putbyte ( 70 , gffile ) ;
		    gfloc = gfloc + 1 ;
		  } 
		} 
		else if ( curn > ytogo ) 
		{
		  if ( curn - ytogo < 257 ) 
		  {
		    {
		      putbyte ( 71 , gffile ) ;
		      gfloc = gfloc + 1 ;
		    } 
		    {
		      putbyte ( curn - ytogo - 1 , gffile ) ;
		      gfloc = gfloc + 1 ;
		    } 
		  } 
		  else {
		      
		    {
		      putbyte ( 72 , gffile ) ;
		      gfloc = gfloc + 1 ;
		    } 
		    gf16 ( curn - ytogo - 1 ) ;
		  } 
		  if ( firston ) 
		  {
		    putbyte ( 0 , gffile ) ;
		    gfloc = gfloc + 1 ;
		  } 
		} 
		else if ( firston ) 
		{
		  putbyte ( 0 , gffile ) ;
		  gfloc = gfloc + 1 ;
		} 
		curn = ytogo ;
		while ( j <= max ) {
		    
		  if ( rowcounts [j ]< 64 ) 
		  {
		    putbyte ( 0 + rowcounts [j ], gffile ) ;
		    gfloc = gfloc + 1 ;
		  } 
		  else if ( rowcounts [j ]< 256 ) 
		  {
		    {
		      putbyte ( 64 , gffile ) ;
		      gfloc = gfloc + 1 ;
		    } 
		    {
		      putbyte ( rowcounts [j ], gffile ) ;
		      gfloc = gfloc + 1 ;
		    } 
		  } 
		  else {
		      
		    {
		      putbyte ( 65 , gffile ) ;
		      gfloc = gfloc + 1 ;
		    } 
		    gf16 ( rowcounts [j ]) ;
		  } 
		  j = j + 1 ;
		} 
	      } 
	      ytogo = ytogo - 1 ;
	    } 
	  while ( i++ < for_end ) ;} 
	  repeatcount = 0 ;
	  xtogo = cwidth ;
	  rcp = 0 ;
	  if ( ( count > 0 ) ) 
	  firston = turnon ;
	} 
	if ( count > 0 ) 
	{
	  rowcounts [rcp ]= count ;
	  if ( rcp == 0 ) 
	  firston = turnon ;
	  rcp = rcp + 1 ;
	  if ( rcp > maxcounts ) 
	  {
	    verbose = true ;
	    if ( verbose ) 
	    fprintf( output , "%s\n",  "A character had too many run counts" ) ;
	    uexit ( 1 ) ;
	  } 
	  xtogo = xtogo - count ;
	  count = 0 ;
	} 
      } 
    } 
    {
      putbyte ( 69 , gffile ) ;
      gfloc = gfloc + 1 ;
    } 
    lasteoc = gfloc ;
    if ( endofpacket != curloc ) 
    {
      verbose = true ;
      if ( verbose ) 
      fprintf( output , "%s\n",  "Bad pk file!  Bad packet length." ) ;
      uexit ( 1 ) ;
    } 
    skipspecials () ;
  } 
  while ( ! eof ( pkfile ) ) i = getbyte () ;
  j = gfloc ;
  {
    putbyte ( 248 , gffile ) ;
    gfloc = gfloc + 1 ;
  } 
  gfquad ( lasteoc ) ;
  gfquad ( designsize ) ;
  gfquad ( checksum ) ;
  gfquad ( hppp ) ;
  gfquad ( vppp ) ;
  gfquad ( mminm ) ;
  gfquad ( mmaxm ) ;
  gfquad ( mminn ) ;
  gfquad ( mmaxn ) ;
  {register integer for_end; i = 0 ;for_end = 255 ; if ( i <= for_end) do 
    if ( charpointer [i ]!= -1 ) 
    {
      if ( ( sveresc [i ]== 0 ) && ( shoresc [i ]>= 0 ) && ( shoresc [i ]
      < 16777216L ) && ( shoresc [i ]% 65536L == 0 ) ) 
      {
	{
	  putbyte ( 246 , gffile ) ;
	  gfloc = gfloc + 1 ;
	} 
	{
	  putbyte ( i , gffile ) ;
	  gfloc = gfloc + 1 ;
	} 
	{
	  putbyte ( shoresc [i ]/ 65536L , gffile ) ;
	  gfloc = gfloc + 1 ;
	} 
      } 
      else {
	  
	{
	  putbyte ( 245 , gffile ) ;
	  gfloc = gfloc + 1 ;
	} 
	{
	  putbyte ( i , gffile ) ;
	  gfloc = gfloc + 1 ;
	} 
	gfquad ( shoresc [i ]) ;
	gfquad ( sveresc [i ]) ;
      } 
      gfquad ( stfmwidth [i ]) ;
      gfquad ( charpointer [i ]) ;
    } 
  while ( i++ < for_end ) ;} 
  {
    putbyte ( 249 , gffile ) ;
    gfloc = gfloc + 1 ;
  } 
  gfquad ( j ) ;
  {
    putbyte ( 131 , gffile ) ;
    gfloc = gfloc + 1 ;
  } 
  {register integer for_end; i = 0 ;for_end = 3 ; if ( i <= for_end) do 
    {
      putbyte ( 223 , gffile ) ;
      gfloc = gfloc + 1 ;
    } 
  while ( i++ < for_end ) ;} 
  while ( gfloc % 4 != 0 ) {
      
    putbyte ( 223 , gffile ) ;
    gfloc = gfloc + 1 ;
  } 
  if ( verbose ) 
  fprintf( output , "%ld%s%ld%s\n",  (long)curloc , " bytes unpacked to " , (long)gfloc , " bytes." ) ;
}