/* Output from p2c 1.21alpha-07.Dec.93, the Pascal-to-C translator */
/* From input file "war2.pas" */


#include <p2c/p2c.h>
/* p2c: war2.pas, line 1: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 2: 
 * Warning: Unrecognized character 015 in file [247] */


#ifndef GRAPH_H
#include "graph.h"
#endif
/* p2c: war2.pas, line 3: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 4: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 5: 
 * Warning: Unrecognized character 015 in file [247] */


#define wide            160
/* p2c: war2.pas, line 6: 
 * Warning: Unrecognized character 015 in file [247] */
#define max             6880
/* p2c: war2.pas, line 7: 
 * Warning: Unrecognized character 015 in file [247] */
#define min             9
/* p2c: war2.pas, line 8: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 9: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 10: 
 * Warning: Unrecognized character 015 in file [247] */


typedef char code;

/* p2c: war2.pas, line 11:
 * Warning: Unrecognized character 015 in file [247] */
typedef short len;

/* p2c: war2.pas, line 12:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 13:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 14: 
 * Warning: Unrecognized character 015 in file [247] */


Static code core[max][min];
/* p2c: war2.pas, line 15:
 * Warning: Unrecognized character 015 in file [247] */
Static len x;
/* p2c: war2.pas, line 16:
 * Warning: Unrecognized character 015 in file [247] */
Static Char ch;
/* p2c: war2.pas, line 17:
 * Warning: Unrecognized character 015 in file [247] */
Static long i, n, g, h, cc, gd, gm, z;
/* p2c: war2.pas, line 18:
 * Warning: Unrecognized character 015 in file [247] */
Static FILE *f;
/* p2c: war2.pas, line 19:
 * Warning: Unrecognized character 015 in file [247] */
Static Char blah[256];
/* p2c: war2.pas, line 20:
 * Warning: Unrecognized character 015 in file [247] */
Static boolean wrap, radiation, back, fore, mutate, blank;
/* p2c: war2.pas, line 23: 
 * Warning: Unrecognized character 015 in file [247] */


/* p2c: war2.pas, line 21:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 22:
 * Warning: Unrecognized character 015 in file [247] */
Static Void drawit()
{
  long xx, yy, e, col;

/* p2c: war2.pas, line 24:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 25:
 * Warning: Unrecognized character 015 in file [247] */
  ClearDevice();
/* p2c: war2.pas, line 26:
 * Warning: Unrecognized character 015 in file [247] */
  for (x = 1; x <= max; x++) {
/* p2c: war2.pas, line 27:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 28:
 * Warning: Unrecognized character 015 in file [247] */
    if (core[x-1][0] > 0) {
/* p2c: war2.pas, line 29:
 * Warning: Unrecognized character 015 in file [247] */
      g = 0;
/* p2c: war2.pas, line 30:
 * Warning: Unrecognized character 015 in file [247] */
      for (i = 1; i <= min; i++) {
/* p2c: war2.pas, line 31:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 32:
 * Warning: Unrecognized character 015 in file [247] */
	if (core[x-1][i-1] > 15)
	  core[x-1][i-1] = 15;
/* p2c: war2.pas, line 33:
 * Warning: Unrecognized character 015 in file [247] */
	if (core[x-1][i-1] < 0)
	  core[x-1][i-1] = 0;
/* p2c: war2.pas, line 34:
 * Warning: Unrecognized character 015 in file [247] */
      }
/* p2c: war2.pas, line 35:
 * Warning: Unrecognized character 015 in file [247] */
      xx = x;
/* p2c: war2.pas, line 36:
 * Warning: Unrecognized character 015 in file [247] */
      yy = 1;
/* p2c: war2.pas, line 37:
 * Warning: Unrecognized character 015 in file [247] */
      while (xx > wide) {
/* p2c: war2.pas, line 38:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 39:
 * Warning: Unrecognized character 015 in file [247] */
	yy++;
/* p2c: war2.pas, line 40:
 * Warning: Unrecognized character 015 in file [247] */
	xx -= wide;
/* p2c: war2.pas, line 41:
 * Warning: Unrecognized character 015 in file [247] */
      }
/* p2c: war2.pas, line 42:
 * Warning: Unrecognized character 015 in file [247] */
      xx *= 4;
/* p2c: war2.pas, line 43:
 * Warning: Unrecognized character 015 in file [247] */
      yy *= min - 1;
/* p2c: war2.pas, line 44:
 * Warning: Unrecognized character 015 in file [247] */
      col = core[x-1][min-1];
/* p2c: war2.pas, line 45:
 * Warning: Unrecognized character 015 in file [247] */
      for (i = 0; i <= min - 2; i++) {
/* p2c: war2.pas, line 46:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 47:
 * Warning: Unrecognized character 015 in file [247] */
	e = core[x-1][i];
/* p2c: war2.pas, line 48:
 * Warning: Unrecognized character 015 in file [247] */
	if (e > 0) {
/* p2c: war2.pas, line 49:
 * Warning: Unrecognized character 015 in file [247] */
	  if (e >= 8) {
	    PutPixel(xx, yy + i, (int)col);
	    e -= 8;
	  }
/* p2c: war2.pas, line 50:
 * Warning: Unrecognized character 015 in file [247] */
	  if (e >= 4) {
	    PutPixel(xx + 1, yy + i, (int)col);
	    e -= 4;
	  }
/* p2c: war2.pas, line 51:
 * Warning: Unrecognized character 015 in file [247] */
	  if (e >= 2) {
	    PutPixel(xx + 2, yy + i, (int)col);
	    e -= 2;
	  }
/* p2c: war2.pas, line 52:
 * Warning: Unrecognized character 015 in file [247] */
	  if (e >= 1)
	    PutPixel(xx + 3, yy + i, (int)col);
/* p2c: war2.pas, line 53:
 * Warning: Unrecognized character 015 in file [247] */
	}
/* p2c: war2.pas, line 54:
 * Warning: Unrecognized character 015 in file [247] */
      }
/* p2c: war2.pas, line 55:
 * Warning: Unrecognized character 015 in file [247] */
    }
/* p2c: war2.pas, line 56:
 * Warning: Unrecognized character 015 in file [247] */
  }
/* p2c: war2.pas, line 57:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 58: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 59: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 60: 
 * Warning: Unrecognized character 015 in file [247] */


Static long xxx(xx)
long xx;
{
/* p2c: war2.pas, line 61:
 * Warning: Unrecognized character 015 in file [247] */
  if (wrap == true) {
/* p2c: war2.pas, line 62:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 63:
 * Warning: Unrecognized character 015 in file [247] */
    while (xx > wide) {
/* p2c: war2.pas, line 64:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 65:
 * Warning: Unrecognized character 015 in file [247] */
      xx -= wide;
/* p2c: war2.pas, line 66:
 * Warning: Unrecognized character 015 in file [247] */
    }
/* p2c: war2.pas, line 67:
 * Warning: Unrecognized character 015 in file [247] */
  }
/* p2c: war2.pas, line 68:
 * Warning: Unrecognized character 015 in file [247] */
  return xx;
/* p2c: war2.pas, line 69:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 70: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 71: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 72: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 73: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void saveit()
{
  long i, j;

/* p2c: war2.pas, line 74:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 75:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 76: Warning:
 * Don't know how to ASSIGN to a non-explicit file variable [207] */
  assign(f, "core.dat");
/* p2c: war2.pas, line 76:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 77: Note: REWRITE does not specify a name [181] */
  if (f != NULL)
    rewind(f);
  else
    f = tmpfile();
  if (f == NULL)
    _EscIO(FileNotFound);
/* p2c: war2.pas, line 77:
 * Warning: Unrecognized character 015 in file [247] */
  for (i = 0; i < max; i++) {
/* p2c: war2.pas, line 78:
 * Warning: Unrecognized character 015 in file [247] */
    for (j = 0; j < min; j++)
      fwrite(&core[i][j], 1, 1, f);
/* p2c: war2.pas, line 79:
 * Warning: Unrecognized character 015 in file [247] */
  }
/* p2c: war2.pas, line 80:
 * Warning: Unrecognized character 015 in file [247] */
  fclose(f);
  f = NULL;
/* p2c: war2.pas, line 81:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 82: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 83: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 84: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 85: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void loadit()
{
  long i, j;

/* p2c: war2.pas, line 86:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 87:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 88: Warning:
 * Don't know how to ASSIGN to a non-explicit file variable [207] */
  assign(f, "core.dat");
/* p2c: war2.pas, line 88:
 * Warning: Unrecognized character 015 in file [247] */
  rewind(f);
/* p2c: war2.pas, line 89:
 * Warning: Unrecognized character 015 in file [247] */
  for (i = 0; i < max; i++) {
/* p2c: war2.pas, line 90:
 * Warning: Unrecognized character 015 in file [247] */
    for (j = 0; j < min; j++)
      fread(&core[i][j], 1, 1, f);
/* p2c: war2.pas, line 91:
 * Warning: Unrecognized character 015 in file [247] */
  }
/* p2c: war2.pas, line 92:
 * Warning: Unrecognized character 015 in file [247] */
  if (f != NULL)
    fclose(f);
  f = NULL;
/* p2c: war2.pas, line 93:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 94: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 95: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 96: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 97: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 98: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void noth()
{
/* p2c: war2.pas, line 99:
 * Warning: Unrecognized character 015 in file [247] */
  /*  write('not ');*/
/* p2c: war2.pas, line 100:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 101: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 102: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 103: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void mov_fd()
{
/* p2c: war2.pas, line 104:
 * Warning: Unrecognized character 015 in file [247] */
  /*write('mov_fd ');*/
/* p2c: war2.pas, line 105:
 * Warning: Unrecognized character 015 in file [247] */
  if (xxx((long)x) >= wide)
    return;
/* p2c: war2.pas, line 115:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 106:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 107:
 * Warning: Unrecognized character 015 in file [247] */
  for (i = 1; i <= min; i++) {
/* p2c: war2.pas, line 108:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 109:
 * Warning: Unrecognized character 015 in file [247] */
    core[x][i-1] = core[x-1][i-1];
/* p2c: war2.pas, line 110:
 * Warning: Unrecognized character 015 in file [247] */
    core[x-1][i-1] = 0;
/* p2c: war2.pas, line 111:
 * Warning: Unrecognized character 015 in file [247] */
  }
/* p2c: war2.pas, line 112:
 * Warning: Unrecognized character 015 in file [247] */
  core[x-1][min-1] = 3;
/* p2c: war2.pas, line 113:
 * Warning: Unrecognized character 015 in file [247] */
  x++;
/* p2c: war2.pas, line 114:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 116: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 117: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 118: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void mov_bk()
{
/* p2c: war2.pas, line 119:
 * Warning: Unrecognized character 015 in file [247] */
  /*write('mov_bk ');*/
/* p2c: war2.pas, line 120:
 * Warning: Unrecognized character 015 in file [247] */
  if (xxx((long)x) <= 1)
    return;
/* p2c: war2.pas, line 130:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 121:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 122:
 * Warning: Unrecognized character 015 in file [247] */
  for (i = 1; i <= min; i++) {
/* p2c: war2.pas, line 123:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 124:
 * Warning: Unrecognized character 015 in file [247] */
    core[x-2][i-1] = core[x-1][i-1];
/* p2c: war2.pas, line 125:
 * Warning: Unrecognized character 015 in file [247] */
    core[x-1][i-1] = 0;
/* p2c: war2.pas, line 126:
 * Warning: Unrecognized character 015 in file [247] */
  }
/* p2c: war2.pas, line 127:
 * Warning: Unrecognized character 015 in file [247] */
  core[x-1][min-1] = 3;
/* p2c: war2.pas, line 128:
 * Warning: Unrecognized character 015 in file [247] */
  x--;
/* p2c: war2.pas, line 129:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 131: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 132: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 133: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void mul_fd()
{
/* p2c: war2.pas, line 134:
 * Warning: Unrecognized character 015 in file [247] */
  /*write('mul_fd ');*/
/* p2c: war2.pas, line 135:
 * Warning: Unrecognized character 015 in file [247] */
  if (!((x < max) & (xxx((long)x) < wide)))
    return;
/* p2c: war2.pas, line 141:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 136:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 137:
 * Warning: Unrecognized character 015 in file [247] */
  for (i = 1; i < min; i++) {
/* p2c: war2.pas, line 138:
 * Warning: Unrecognized character 015 in file [247] */
    if (_randint(20L) > 0)
      core[x][i-1] |= core[x-1][i-1];
  }
/* p2c: war2.pas, line 139:
 * Warning: Unrecognized character 015 in file [247] */
  core[x][min-1] = core[x-1][min-1];
/* p2c: war2.pas, line 140:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 142: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 143: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 144: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void mul_bk()
{
/* p2c: war2.pas, line 145:
 * Warning: Unrecognized character 015 in file [247] */
  /*write('mul_bk ');*/
/* p2c: war2.pas, line 146:
 * Warning: Unrecognized character 015 in file [247] */
  if (!((x > 1) & (xxx((long)x) > 1)))
    return;
/* p2c: war2.pas, line 154:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 147:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 148:
 * Warning: Unrecognized character 015 in file [247] */
  for (i = 1; i < min; i++) {
/* p2c: war2.pas, line 149:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 150:
 * Warning: Unrecognized character 015 in file [247] */
    if (_randint(20L) > 0)
      core[x-2][i-1] |= core[x-1][i-1];
/* p2c: war2.pas, line 151:
 * Warning: Unrecognized character 015 in file [247] */
  }
/* p2c: war2.pas, line 152:
 * Warning: Unrecognized character 015 in file [247] */
  core[x-2][min-1] = core[x-1][min-1];
/* p2c: war2.pas, line 153:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 155: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 156: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 157: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void setup()
{
/* p2c: war2.pas, line 158:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 159:
 * Warning: Symbol 'RANDSEED' is not defined [221] */
  scanf("%ld%*[^\n]", &randseed);
  getchar();
/* p2c: war2.pas, line 159:
 * Warning: Unrecognized character 015 in file [247] */
  for (x = 1; x <= max; x++) {
/* p2c: war2.pas, line 160:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 161:
 * Warning: Unrecognized character 015 in file [247] */
    for (i = 1; i <= min; i++) {
/* p2c: war2.pas, line 162:
 * Warning: Unrecognized character 015 in file [247] */
      core[x-1][i-1] = 0;
    }
/* p2c: war2.pas, line 163:
 * Warning: Unrecognized character 015 in file [247] */
    /*      core[x,min] := random(5)+1;*/
/* p2c: war2.pas, line 164:
 * Warning: Unrecognized character 015 in file [247] */
  }
/* p2c: war2.pas, line 165:
 * Warning: Unrecognized character 015 in file [247] */
  /*    writeln('1:mov_fd 2:mov_bk 3:mov_up 4:mov_dn 5:mul_fd 6:mul_bk 7:mul_up 8:mul_dn');

      writeln('9:kil_fd 10:kil_bk 11:kil_up 12:kil_dn 13:jump 14:swap 15:mut');

      writeln('Enter #1');

      for i:=1 to min-1 do readln(core[81,i]);

      writeln('Enter #2');

      for i:=1 to min-1 do readln(core[max-81,i]);

      core[max-81,min] := 2;

      core[81,min] := 1;*/
/* p2c: war2.pas, line 173:
 * Warning: Unrecognized character 015 in file [247] */
  gd = Detect;
/* p2c: war2.pas, line 174:
 * Warning: Unrecognized character 015 in file [247] */
  InitGraph(&gd, &gm, "c:\\tp\\bgi");
/* p2c: war2.pas, line 175:
 * Warning: Unrecognized character 015 in file [247] */
  if (GraphResult() != grOk) {
    printf("dead\n");
    _Escape(1);
  }
/* p2c: war2.pas, line 176: Warning: Symbol 'GROK' is not defined [221] */
/* p2c: war2.pas, line 176:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 177: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 178: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 179: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void mov_up()
{
/* p2c: war2.pas, line 180:
 * Warning: Unrecognized character 015 in file [247] */
  if (x <= wide)
    return;
/* p2c: war2.pas, line 189:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 181:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 182:
 * Warning: Unrecognized character 015 in file [247] */
  for (i = 1; i <= min; i++) {
/* p2c: war2.pas, line 183:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 184:
 * Warning: Unrecognized character 015 in file [247] */
    core[x - wide - 1][i-1] = core[x-1][i-1];
/* p2c: war2.pas, line 185:
 * Warning: Unrecognized character 015 in file [247] */
    core[x-1][i-1] = 0;
/* p2c: war2.pas, line 186:
 * Warning: Unrecognized character 015 in file [247] */
  }
/* p2c: war2.pas, line 187:
 * Warning: Unrecognized character 015 in file [247] */
  x -= wide;
/* p2c: war2.pas, line 188:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 190: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 191: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 192: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void mov_dn()
{
/* p2c: war2.pas, line 193:
 * Warning: Unrecognized character 015 in file [247] */
  if (x >= max - wide)
    return;
/* p2c: war2.pas, line 202:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 194:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 195:
 * Warning: Unrecognized character 015 in file [247] */
  for (i = 1; i <= min; i++) {
/* p2c: war2.pas, line 196:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 197:
 * Warning: Unrecognized character 015 in file [247] */
    core[x + wide - 1][i-1] = core[x-1][i-1];
/* p2c: war2.pas, line 198:
 * Warning: Unrecognized character 015 in file [247] */
    core[x-1][i-1] = 0;
/* p2c: war2.pas, line 199:
 * Warning: Unrecognized character 015 in file [247] */
  }
/* p2c: war2.pas, line 200:
 * Warning: Unrecognized character 015 in file [247] */
  x += wide;
/* p2c: war2.pas, line 201:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 203: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 204: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 205: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void mul_dn()
{
/* p2c: war2.pas, line 206:
 * Warning: Unrecognized character 015 in file [247] */
  if (x >= max - wide)
    return;
/* p2c: war2.pas, line 214:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 207:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 208:
 * Warning: Unrecognized character 015 in file [247] */
  for (i = 1; i < min; i++) {
/* p2c: war2.pas, line 209:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 210:
 * Warning: Unrecognized character 015 in file [247] */
    if (_randint(20L) > 0)
      core[x + wide - 1][i-1] |= core[x-1][i-1];
/* p2c: war2.pas, line 211:
 * Warning: Unrecognized character 015 in file [247] */
  }
/* p2c: war2.pas, line 212:
 * Warning: Unrecognized character 015 in file [247] */
  core[x + wide - 1][min-1] = core[x-1][min-1];
/* p2c: war2.pas, line 213:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 215: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 216: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 217: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void mul_up()
{
/* p2c: war2.pas, line 218:
 * Warning: Unrecognized character 015 in file [247] */
  if (x <= wide)
    return;
/* p2c: war2.pas, line 226:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 219:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 220:
 * Warning: Unrecognized character 015 in file [247] */
  for (i = 1; i < min; i++) {
/* p2c: war2.pas, line 221:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 222:
 * Warning: Unrecognized character 015 in file [247] */
    if (_randint(20L) > 0)
      core[x - wide - 1][i-1] |= core[x-1][i-1];
/* p2c: war2.pas, line 223:
 * Warning: Unrecognized character 015 in file [247] */
  }
/* p2c: war2.pas, line 224:
 * Warning: Unrecognized character 015 in file [247] */
  core[x - wide - 1][min-1] = core[x-1][min-1];
/* p2c: war2.pas, line 225:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 227: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 228: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 229: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void kil_fd()
{
/* p2c: war2.pas, line 230:
 * Warning: Unrecognized character 015 in file [247] */
  /*write('mul_fd ');*/
/* p2c: war2.pas, line 231:
 * Warning: Unrecognized character 015 in file [247] */
  if (!((x < max) & (xxx((long)x) < wide)))
    return;
/* p2c: war2.pas, line 239:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 232:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 233:
 * Warning: Unrecognized character 015 in file [247] */
  for (i = 1; i < min; i++) {
/* p2c: war2.pas, line 234:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 235:
 * Warning: Unrecognized character 015 in file [247] */
    core[x][i-1] = 0;
/* p2c: war2.pas, line 236:
 * Warning: Unrecognized character 015 in file [247] */
  }
/* p2c: war2.pas, line 237:
 * Warning: Unrecognized character 015 in file [247] */
  core[x][min-1] = core[x-1][min-1];
/* p2c: war2.pas, line 238:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 240: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 241: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 242: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void kil_bk()
{
/* p2c: war2.pas, line 243:
 * Warning: Unrecognized character 015 in file [247] */
  /*write('mul_bk ');*/
/* p2c: war2.pas, line 244:
 * Warning: Unrecognized character 015 in file [247] */
  if (!((x > 1) & (xxx((long)x) > 1)))
    return;
/* p2c: war2.pas, line 252:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 245:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 246:
 * Warning: Unrecognized character 015 in file [247] */
  for (i = 1; i < min; i++) {
/* p2c: war2.pas, line 247:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 248:
 * Warning: Unrecognized character 015 in file [247] */
    core[x-2][i-1] = 0;
/* p2c: war2.pas, line 249:
 * Warning: Unrecognized character 015 in file [247] */
  }
/* p2c: war2.pas, line 250:
 * Warning: Unrecognized character 015 in file [247] */
  core[x-2][min-1] = core[x-1][min-1];
/* p2c: war2.pas, line 251:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 253: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 254: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 255: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void kil_up()
{
/* p2c: war2.pas, line 256:
 * Warning: Unrecognized character 015 in file [247] */
  if (x <= wide)
    return;
/* p2c: war2.pas, line 264:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 257:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 258:
 * Warning: Unrecognized character 015 in file [247] */
  for (i = 1; i < min; i++) {
/* p2c: war2.pas, line 259:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 260:
 * Warning: Unrecognized character 015 in file [247] */
    core[x - wide - 1][i-1] = 0;
/* p2c: war2.pas, line 261:
 * Warning: Unrecognized character 015 in file [247] */
  }
/* p2c: war2.pas, line 262:
 * Warning: Unrecognized character 015 in file [247] */
  core[x - wide - 1][min-1] = core[x-1][min-1];
/* p2c: war2.pas, line 263:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 265: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 266: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 267: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void kil_dn()
{
/* p2c: war2.pas, line 268:
 * Warning: Unrecognized character 015 in file [247] */
  if (x >= max - wide)
    return;
/* p2c: war2.pas, line 276:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 269:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 270:
 * Warning: Unrecognized character 015 in file [247] */
  for (i = 1; i < min; i++) {
/* p2c: war2.pas, line 271:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 272:
 * Warning: Unrecognized character 015 in file [247] */
    core[x + wide - 1][i-1] = 0;
/* p2c: war2.pas, line 273:
 * Warning: Unrecognized character 015 in file [247] */
  }
/* p2c: war2.pas, line 274:
 * Warning: Unrecognized character 015 in file [247] */
  core[x + wide - 1][min-1] = core[x-1][min-1];
/* p2c: war2.pas, line 275:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 277: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 278: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 279: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void explode()
{
/* p2c: war2.pas, line 280:
 * Warning: Unrecognized character 015 in file [247] */
  kil_up();
/* p2c: war2.pas, line 281:
 * Warning: Unrecognized character 015 in file [247] */
  kil_dn();
/* p2c: war2.pas, line 282:
 * Warning: Unrecognized character 015 in file [247] */
  kil_fd();
/* p2c: war2.pas, line 283:
 * Warning: Unrecognized character 015 in file [247] */
  kil_bk();
/* p2c: war2.pas, line 284:
 * Warning: Unrecognized character 015 in file [247] */
  for (i = 1; i < min; i++)
    core[x-1][i-1] = 0;
/* p2c: war2.pas, line 285:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 286: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 287: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 288: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 289: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void swap_()
{
  code cod;

/* p2c: war2.pas, line 290:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 291:
 * Warning: Unrecognized character 015 in file [247] */
  cod = core[x-1][0];
/* p2c: war2.pas, line 292:
 * Warning: Unrecognized character 015 in file [247] */
  core[x-1][0] = core[x-1][min-2];
/* p2c: war2.pas, line 293:
 * Warning: Unrecognized character 015 in file [247] */
  core[x-1][min-2] = cod;
/* p2c: war2.pas, line 294:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 295: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 296: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 297: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 298: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void cross()
{
  code cod;
/* p2c: war2.pas, line 299:
 * Warning: Unrecognized character 015 in file [247] */
  long n;

/* p2c: war2.pas, line 300:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 301:
 * Warning: Unrecognized character 015 in file [247] */
  n = _randint((long)max) + 1;
/* p2c: war2.pas, line 302:
 * Warning: Unrecognized character 015 in file [247] */
  for (i = 1; i < min; i++) {
/* p2c: war2.pas, line 303:
 * Warning: Unrecognized character 015 in file [247] */
    if (_randint(2L) == 0) {
/* p2c: war2.pas, line 304:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 305:
 * Warning: Unrecognized character 015 in file [247] */
      cod = core[x-1][i-1];
/* p2c: war2.pas, line 306:
 * Warning: Unrecognized character 015 in file [247] */
      core[x-1][i-1] = core[n-1][i-1];
/* p2c: war2.pas, line 307:
 * Warning: Unrecognized character 015 in file [247] */
      core[n-1][i-1] = cod;
/* p2c: war2.pas, line 308:
 * Warning: Unrecognized character 015 in file [247] */
    }
  }
/* p2c: war2.pas, line 309:
 * Warning: Unrecognized character 015 in file [247] */
  core[n-1][min-1] = core[x-1][min-1];
/* p2c: war2.pas, line 310:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 311: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 312: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 313: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void mut(c)
boolean c;
{
/* p2c: war2.pas, line 314:
 * Warning: Unrecognized character 015 in file [247] */
  i = _randint(min - 1L) + 1;
/* p2c: war2.pas, line 315:
 * Warning: Unrecognized character 015 in file [247] */
  core[x-1][i-1] = _randint(15L);
/* p2c: war2.pas, line 316:
 * Warning: Unrecognized character 015 in file [247] */
  if (c)
    core[x-1][min-1] = _randint(15L) + 1;
/* p2c: war2.pas, line 317:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 318: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 319: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 320: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 321: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void jump()
{
  uchar zzz;

/* p2c: war2.pas, line 322:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 323:
 * Warning: Unrecognized character 015 in file [247] */
  zzz = _randint(4L);
/* p2c: war2.pas, line 324:
 * Warning: Unrecognized character 015 in file [247] */
  switch (zzz) {

/* p2c: war2.pas, line 325:
 * Warning: Unrecognized character 015 in file [247] */
  case 0:
    mov_up();
    break;

/* p2c: war2.pas, line 326:
 * Warning: Unrecognized character 015 in file [247] */
  case 1:
    mov_dn();
    break;

/* p2c: war2.pas, line 327:
 * Warning: Unrecognized character 015 in file [247] */
  case 3:
    mov_fd();
    break;

/* p2c: war2.pas, line 328:
 * Warning: Unrecognized character 015 in file [247] */
  case 4:
    mov_bk();
    break;
/* p2c: war2.pas, line 329:
 * Warning: Unrecognized character 015 in file [247] */
  }
/* p2c: war2.pas, line 330:
 * Warning: Unrecognized character 015 in file [247] */
  switch (zzz) {

/* p2c: war2.pas, line 331:
 * Warning: Unrecognized character 015 in file [247] */
  case 0:
    mov_up();
    break;

/* p2c: war2.pas, line 332:
 * Warning: Unrecognized character 015 in file [247] */
  case 1:
    mov_dn();
    break;

/* p2c: war2.pas, line 333:
 * Warning: Unrecognized character 015 in file [247] */
  case 3:
    mov_fd();
    break;

/* p2c: war2.pas, line 334:
 * Warning: Unrecognized character 015 in file [247] */
  case 4:
    mov_bk();
    break;
/* p2c: war2.pas, line 335:
 * Warning: Unrecognized character 015 in file [247] */
  }
/* p2c: war2.pas, line 336:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 337: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 338: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 339: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void doit()
{
/* p2c: war2.pas, line 340:
 * Warning: Unrecognized character 015 in file [247] */
  switch (core[x-1][n-1]) {

/* p2c: war2.pas, line 341:
 * Warning: Unrecognized character 015 in file [247] */
  case 1:
    mov_fd();
    break;

/* p2c: war2.pas, line 342:
 * Warning: Unrecognized character 015 in file [247] */
  case 2:
    mov_bk();
    break;

/* p2c: war2.pas, line 343:
 * Warning: Unrecognized character 015 in file [247] */
  case 3:
    mul_fd();
    break;

/* p2c: war2.pas, line 344:
 * Warning: Unrecognized character 015 in file [247] */
  case 4:
    mul_bk();
    break;

/* p2c: war2.pas, line 345:
 * Warning: Unrecognized character 015 in file [247] */
  case 5:
    mov_up();
    break;

/* p2c: war2.pas, line 346:
 * Warning: Unrecognized character 015 in file [247] */
  case 6:
    mov_dn();
    break;

/* p2c: war2.pas, line 347:
 * Warning: Unrecognized character 015 in file [247] */
  case 7:
    mul_up();
    break;

/* p2c: war2.pas, line 348:
 * Warning: Unrecognized character 015 in file [247] */
  case 8:
    mul_dn();
    break;

/* p2c: war2.pas, line 349:
 * Warning: Unrecognized character 015 in file [247] */
  case 9:
    kil_up();
    break;

/* p2c: war2.pas, line 350:
 * Warning: Unrecognized character 015 in file [247] */
  case 10:
    kil_dn();
    break;

/* p2c: war2.pas, line 351:
 * Warning: Unrecognized character 015 in file [247] */
  case 11:
    jump();
    break;

/* p2c: war2.pas, line 352:
 * Warning: Unrecognized character 015 in file [247] */
  case 12:
    if (mutate)
      mut(fore);
    break;

/* p2c: war2.pas, line 353:
 * Warning: Unrecognized character 015 in file [247] */
  case 13:
    jump();
    break;

/* p2c: war2.pas, line 354:
 * Warning: Unrecognized character 015 in file [247] */
  case 14:
    swap_();
    break;

/* p2c: war2.pas, line 355:
 * Warning: Unrecognized character 015 in file [247] */
  case 15:
    explode();
    break;
/* p2c: war2.pas, line 356:
 * Warning: Unrecognized character 015 in file [247] */
  }
/* p2c: war2.pas, line 357:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 358: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 359: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 360: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void whiteout()
{
/* p2c: war2.pas, line 361:
 * Warning: Unrecognized character 015 in file [247] */
  for (i = 1; i <= max; i++) {
/* p2c: war2.pas, line 362:
 * Warning: Unrecognized character 015 in file [247] */
    core[i-1][min-1] = 15;
  }
/* p2c: war2.pas, line 363:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 364: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 365: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 366: 
 * Warning: Unrecognized character 015 in file [247] */


Static Void randout()
{
/* p2c: war2.pas, line 367:
 * Warning: Unrecognized character 015 in file [247] */
  for (i = 1; i <= max; i++) {
/* p2c: war2.pas, line 368:
 * Warning: Unrecognized character 015 in file [247] */
    core[i-1][min-1] = i % 14 + 1;
/* p2c: war2.pas, line 369:
 * Note: Using % for possibly-negative arguments [317] */
  }
/* p2c: war2.pas, line 369:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 370: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 371: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 372: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 373: 
 * Warning: Unrecognized character 015 in file [247] */


Static Char *strs(Result, a)
Char *Result;
long a;
{
  Char s[256];

/* p2c: war2.pas, line 374:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 375:
 * Warning: Unrecognized character 015 in file [247] */
  sprintf(s, "%12ld", a);
/* p2c: war2.pas, line 376:
 * Warning: Unrecognized character 015 in file [247] */
  return strcpy(Result, s);
/* p2c: war2.pas, line 377:
 * Warning: Unrecognized character 015 in file [247] */
}
/* p2c: war2.pas, line 378: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 379: 
 * Warning: Unrecognized character 015 in file [247] */


main(argc, argv)
int argc;
Char *argv[];
{
  Char STR1[256];
  Char STR2[256];

  PASCAL_MAIN(argc, argv);
  f = NULL;
/* p2c: war2.pas, line 380:
 * Warning: Unrecognized character 015 in file [247] */
  radiation = true;
/* p2c: war2.pas, line 381:
 * Warning: Unrecognized character 015 in file [247] */
  back = true;
/* p2c: war2.pas, line 382:
 * Warning: Unrecognized character 015 in file [247] */
  fore = true;
/* p2c: war2.pas, line 383:
 * Warning: Unrecognized character 015 in file [247] */
  mutate = true;
/* p2c: war2.pas, line 384:
 * Warning: Unrecognized character 015 in file [247] */
  wrap = false;
/* p2c: war2.pas, line 385:
 * Warning: Unrecognized character 015 in file [247] */
  blank = false;
/* p2c: war2.pas, line 386:
 * Warning: Unrecognized character 015 in file [247] */
  ch = ' ';
/* p2c: war2.pas, line 387:
 * Warning: Unrecognized character 015 in file [247] */
  z = 0;
/* p2c: war2.pas, line 388:
 * Warning: Unrecognized character 015 in file [247] */
  setup();
/* p2c: war2.pas, line 389:
 * Warning: Unrecognized character 015 in file [247] */
  cc = -1;
/* p2c: war2.pas, line 390:
 * Warning: Unrecognized character 015 in file [247] */
  x = 1;
/* p2c: war2.pas, line 391:
 * Warning: Unrecognized character 015 in file [247] */
  drawit();
/* p2c: war2.pas, line 392:
 * Warning: Unrecognized character 015 in file [247] */
  h = 0;
/* p2c: war2.pas, line 393:
 * Warning: Unrecognized character 015 in file [247] */
  do {
/* p2c: war2.pas, line 394:
 * Warning: Unrecognized character 015 in file [247] */
    if (core[x-1][0] > 0) {
/* p2c: war2.pas, line 395:
 * Warning: Unrecognized character 015 in file [247] */
      for (n = 1; n < min; n++) {
/* p2c: war2.pas, line 396:
 * Warning: Unrecognized character 015 in file [247] */
	if (core[x-1][n-1] > 0)
	  doit();
      }
    }
/* p2c: war2.pas, line 397:
 * Warning: Unrecognized character 015 in file [247] */
    h++;
/* p2c: war2.pas, line 398:
 * Warning: Unrecognized character 015 in file [247] */
    x++;
/* p2c: war2.pas, line 399:
 * Warning: Unrecognized character 015 in file [247] */
    if (h >= max * 2) {
/* p2c: war2.pas, line 400:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 401:
 * Warning: Unrecognized character 015 in file [247] */
      for (h = 1; h <= 5; h++) {
/* p2c: war2.pas, line 402:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 403:
 * Warning: Unrecognized character 015 in file [247] */
	x = _randint((long)max) + 1;
/* p2c: war2.pas, line 404:
 * Warning: Unrecognized character 015 in file [247] */
	if (radiation)
	  mut(back);
/* p2c: war2.pas, line 405:
 * Warning: Unrecognized character 015 in file [247] */
      }
/* p2c: war2.pas, line 406:
 * Warning: Unrecognized character 015 in file [247] */
      h = 0;
/* p2c: war2.pas, line 407:
 * Warning: Unrecognized character 015 in file [247] */
      drawit();
/* p2c: war2.pas, line 408:
 * Warning: Unrecognized character 015 in file [247] */
      z++;
      sprintf(STR2, "Year: %s", strs(STR1, z * 2));
/* p2c: war2.pas, line 409:
 * Warning: Unrecognized character 015 in file [247] */
      OutTextXY(50L, 400L, STR2);
/* p2c: war2.pas, line 410:
 * Warning: Unrecognized character 015 in file [247] */
      if (kbhit()) {
/* p2c: war2.pas, line 411:
 * Warning: Unrecognized character 015 in file [247] */
	ch = getch();
/* p2c: war2.pas, line 412:
 * Warning: Unrecognized character 015 in file [247] */
	switch (ch) {

/* p2c: war2.pas, line 413:
 * Warning: Unrecognized character 015 in file [247] */
	case 'w':
	  whiteout();
	  break;

/* p2c: war2.pas, line 414:
 * Warning: Unrecognized character 015 in file [247] */
	case 'c':
	  randout();
	  break;

/* p2c: war2.pas, line 415:
 * Warning: Unrecognized character 015 in file [247] */
	case 'r':
	  radiation = !radiation;
	  break;

/* p2c: war2.pas, line 416:
 * Warning: Unrecognized character 015 in file [247] */
	case 'b':
	  back = !back;
	  break;

/* p2c: war2.pas, line 417:
 * Warning: Unrecognized character 015 in file [247] */
	case 'f':
	  fore = !fore;
	  break;

/* p2c: war2.pas, line 418:
 * Warning: Unrecognized character 015 in file [247] */
	case 'u':
	  wrap = !wrap;
	  break;

/* p2c: war2.pas, line 419:
 * Warning: Unrecognized character 015 in file [247] */
	case 'm':
	  mutate = !mutate;
	  break;

/* p2c: war2.pas, line 420:
 * Warning: Unrecognized character 015 in file [247] */
	case 'l':
	  blank = !blank;
	  break;
/* p2c: war2.pas, line 421:
 * Warning: Unrecognized character 015 in file [247] */
	}
/* p2c: war2.pas, line 422:
 * Warning: Unrecognized character 015 in file [247] */
      }
/* p2c: war2.pas, line 423:
 * Warning: Unrecognized character 015 in file [247] */
    }
/* p2c: war2.pas, line 424:
 * Warning: Unrecognized character 015 in file [247] */
    x = _randint((long)max) + 1;
/* p2c: war2.pas, line 425:
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 426:
 * Warning: Unrecognized character 015 in file [247] */
  } while (ch != 'q');
/* p2c: war2.pas, line 427:
 * Warning: Unrecognized character 015 in file [247] */
  CloseGraph();
/* p2c: war2.pas, line 428:
 * Warning: Unrecognized character 015 in file [247] */
  if (f != NULL)
    fclose(f);
  exit(EXIT_SUCCESS);
}
/* p2c: war2.pas, line 429: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 430: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 431: 
 * Warning: Unrecognized character 015 in file [247] */
/* p2c: war2.pas, line 432: 
 * Warning: Unrecognized character 015 in file [247] */



/* End. */