path: root/sys/gio/sgikern/greek.com

# GCHTAB -- Table of strokes for the printable GREEK characters.  Each
# character is encoded as a series of strokes.  Each stroke is ex-
# pressed by a single integer containing the following bitfields:
#
#       2                   1
#       0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1
#                 | | | |         | |         |
#                 | | | +---------+ +---------+
#                 | | |      |           |
#                 | | |      X           Y
#                 | | |
#                 | | +-- pen up/down
#                 | +---- begin paint (not used at present)
#                 +------ end paint (not used at present)
#
#----------------------------------------------------------------------------

# Define the database.

short   gchidx[97]	# character index in gchtab
short   gchwid[97]	# character width table
short   gchtab[2140]	# stroke data to draw the characters

# Index into CHRTAB of each printable character (starting with SP)

data    (gchidx(i), i=001,005) /    1,    3,   16,   29,   38/
data    (gchidx(i), i=006,010) /   77,  107,  154,  162,  181/
data    (gchidx(i), i=011,015) /  200,  205,  212,  233,  240/
data    (gchidx(i), i=016,020) /  246,  259,  297,  306,  348/
data    (gchidx(i), i=021,025) /  392,  402,  437,  483,  510/
data    (gchidx(i), i=026,030) /  568,  614,  645,  658,  666/
data    (gchidx(i), i=031,035) /  673,  681,  688,  741,  767/
data    (gchidx(i), i=036,040) /  793,  795,  806,  821,  863/
data    (gchidx(i), i=041,045) /  874,  883,  888,  899,  901/
data    (gchidx(i), i=046,050) /  912,  921,  930,  972,  987/
data    (gchidx(i), i=051,055) / 1037, 1067, 1083, 1088, 1117/
data    (gchidx(i), i=056,060) / 1143, 1182, 1207, 1242, 1244/
data    (gchidx(i), i=061,065) / 1253, 1256, 1265, 1267, 1276/
data    (gchidx(i), i=066,070) / 1284, 1321, 1373, 1394, 1436/
data    (gchidx(i), i=071,075) / 1465, 1500, 1525, 1554, 1568/
data    (gchidx(i), i=076,080) / 1610, 1635, 1655, 1679, 1699/
data    (gchidx(i), i=081,085) / 1729, 1746, 1788, 1817, 1849/
data    (gchidx(i), i=086,090) / 1862, 1891, 1893, 1934, 1975/
data    (gchidx(i), i=091,095) / 2006, 2036, 2074, 2079, 2117/
data    (gchidx(i), i=096,096) / 2126/


# Width data.

data    (gchwid(i), i=001,005) /   21,   15,   15,   26,   25/
data    (gchwid(i), i=006,010) /   29,   30,   15,   19,   19/
data    (gchwid(i), i=011,015) /   27,   29,   30,   29,   15/
data    (gchwid(i), i=016,020) /   31,   25,   25,   25,   25/
data    (gchwid(i), i=021,025) /   25,   25,   25,   25,   25/
data    (gchwid(i), i=026,030) /   25,   29,   15,   29,   31/
data    (gchwid(i), i=031,035) /   29,   31,   32,   25,   30/
data    (gchwid(i), i=036,040) /   21,   25,   29,   26,   23/
data    (gchwid(i), i=041,045) /   26,   19,   25,   21,   25/
data    (gchwid(i), i=046,050) /   21,   21,   27,   29,   27/
data    (gchwid(i), i=051,055) /   29,   26,   19,   24,   25/
data    (gchwid(i), i=056,060) /   27,   27,   28,   21,   19/
data    (gchwid(i), i=061,065) /   19,   19,   21,   31,   27/
data    (gchwid(i), i=066,070) /   28,   26,   23,   24,   23/
data    (gchwid(i), i=071,075) /   27,   25,   27,   17,   24/
data    (gchwid(i), i=076,080) /   25,   25,   28,   25,   23/
data    (gchwid(i), i=081,085) /   27,   28,   24,   26,   25/
data    (gchwid(i), i=086,090) /   25,   21,   28,   22,   28/
data    (gchwid(i), i=091,095) /   23,   19,   19,   19,   31/
data    (gchwid(i), i=096,096) /   19/


# Stroke data.

data    (gchtab(i), i=0001,0005) /    35,     0,   220,  4250,  4302/
data    (gchtab(i), i=0006,0010) /  4378,  4316,   218,  4308,   201/
data    (gchtab(i), i=0011,0015) /  4232,  4295,  4360,  4297,     0/
data    (gchtab(i), i=0016,0020) /   213,  4244,  4307,  4372,  4309/
data    (gchtab(i), i=0021,0025) /   199,  4232,  4297,  4360,  4358/
data    (gchtab(i), i=0026,0030) /  4292,  4227,     0,   604,  4224/
data    (gchtab(i), i=0031,0035) /   988,  4608,   145,  5137,    75/
data    (gchtab(i), i=0036,0040) /  5067,     0,   416,  4483,   672/
data    (gchtab(i), i=0041,0045) /  4739,   921,  4952,  5015,  5080/
data    (gchtab(i), i=0046,0050) /  5081,  4955,  4764,  4508,  4315/
data    (gchtab(i), i=0051,0055) /  4185,  4183,  4245,  4308,  4435/
data    (gchtab(i), i=0056,0060) /  4817,  4944,  5070,    87,  4309/
data    (gchtab(i), i=0061,0065) /  4436,  4818,  4945,  5008,  5070/
data    (gchtab(i), i=0066,0070) /  5066,  4936,  4743,  4487,  4296/
data    (gchtab(i), i=0071,0075) /  4170,  4171,  4236,  4299,  4234/
data    (gchtab(i), i=0076,0080) /     0,  1244,  4167,   412,  4634/
data    (gchtab(i), i=0081,0085) /  4632,  4566,  4437,  4309,  4183/
data    (gchtab(i), i=0086,0090) /  4185,  4251,  4380,  4508,  4635/
data    (gchtab(i), i=0091,0095) /  4826,  5018,  5211,  5340,   974/
data    (gchtab(i), i=0096,0100) /  4941,  4875,  4873,  4999,  5127/
data    (gchtab(i), i=0101,0105) /  5256,  5322,  5324,  5198,  5070/
data    (gchtab(i), i=0106,0110) /     0,  1236,  5267,  5330,  5395/
data    (gchtab(i), i=0111,0115) /  5396,  5333,  5269,  5204,  5138/
data    (gchtab(i), i=0116,0120) /  5005,  4874,  4744,  4615,  4423/
data    (gchtab(i), i=0121,0125) /  4232,  4170,  4173,  4239,  4627/
data    (gchtab(i), i=0126,0130) /  4757,  4823,  4825,  4763,  4636/
data    (gchtab(i), i=0131,0135) /  4507,  4441,  4439,  4500,  4625/
data    (gchtab(i), i=0136,0140) /  4938,  5064,  5255,  5319,  5384/
data    (gchtab(i), i=0141,0145) /  5385,   327,  4296,  4234,  4237/
data    (gchtab(i), i=0146,0150) /  4303,  4433,   343,  4501,  5002/
data    (gchtab(i), i=0151,0155) /  5128,  5255,     0,   218,  4251/
data    (gchtab(i), i=0156,0160) /  4316,  4379,  4377,  4311,  4246/
data    (gchtab(i), i=0161,0165) /     0,   608,  4574,  4443,  4311/
data    (gchtab(i), i=0166,0170) /  4242,  4238,  4297,  4421,  4546/
data    (gchtab(i), i=0171,0175) /  4672,   478,  4442,  4375,  4306/
data    (gchtab(i), i=0176,0180) /  4302,  4361,  4422,  4546,     0/
data    (gchtab(i), i=0181,0185) /    96,  4318,  4443,  4567,  4626/
data    (gchtab(i), i=0186,0190) /  4622,  4553,  4421,  4290,  4160/
data    (gchtab(i), i=0191,0195) /   222,  4442,  4503,  4562,  4558/
data    (gchtab(i), i=0196,0200) /  4489,  4422,  4290,     0,   151/
data    (gchtab(i), i=0201,0205) /  5129,  1047,  4233,     0,   664/
data    (gchtab(i), i=0206,0210) /  4743,   144,  5264,   135,  5255/
data    (gchtab(i), i=0211,0215) /     0,  1227,  5195,  5068,  4942/
data    (gchtab(i), i=0216,0220) /  4754,  4691,  4564,  4436,  4307/
data    (gchtab(i), i=0221,0225) /  4241,  4239,  4301,  4428,  4556/
data    (gchtab(i), i=0226,0230) /  4685,  4750,  4946,  5076,  5205/
data    (gchtab(i), i=0231,0235) /  5333,     0,   664,  4743,   152/
data    (gchtab(i), i=0236,0240) /  5272,   144,  5264,     0,   201/
data    (gchtab(i), i=0241,0245) /  4232,  4295,  4360,  4297,     0/
data    (gchtab(i), i=0246,0250) /   729,  4760,  4823,  4888,  4825/
data    (gchtab(i), i=0251,0255) /   144,  5392,   713,  4744,  4807/
data    (gchtab(i), i=0256,0260) /  4872,  4809,     0,   476,  4379/
data    (gchtab(i), i=0261,0265) /  4248,  4179,  4176,  4235,  4360/
data    (gchtab(i), i=0266,0270) /  4551,  4679,  4872,  5003,  5072/
data    (gchtab(i), i=0271,0275) /  5075,  5016,  4891,  4700,  4572/
data    (gchtab(i), i=0276,0280) /   476,  4443,  4378,  4312,  4243/
data    (gchtab(i), i=0281,0285) /  4240,  4299,  4361,  4424,  4551/
data    (gchtab(i), i=0286,0290) /   583,  4808,  4873,  4939,  5008/
data    (gchtab(i), i=0291,0295) /  5011,  4952,  4890,  4827,  4700/
data    (gchtab(i), i=0296,0300) /     0,   280,  4505,  4700,  4679/
data    (gchtab(i), i=0301,0305) /   539,  4615,   263,  4935,     0/
data    (gchtab(i), i=0306,0310) /   152,  4311,  4246,  4183,  4184/
data    (gchtab(i), i=0311,0315) /  4250,  4315,  4508,  4764,  4955/
data    (gchtab(i), i=0316,0320) /  5018,  5080,  5078,  5012,  4818/
data    (gchtab(i), i=0321,0325) /  4496,  4367,  4237,  4170,  4167/
data    (gchtab(i), i=0326,0330) /   668,  4891,  4954,  5016,  5014/
data    (gchtab(i), i=0331,0335) /  4948,  4754,  4496,    73,  4234/
data    (gchtab(i), i=0336,0340) /  4362,  4680,  4872,  5001,  5066/
data    (gchtab(i), i=0341,0345) /   266,  4679,  4935,  5000,  5066/
data    (gchtab(i), i=0346,0350) /  5068,     0,   152,  4311,  4246/
data    (gchtab(i), i=0351,0355) /  4183,  4184,  4250,  4315,  4508/
data    (gchtab(i), i=0356,0360) /  4764,  4955,  5017,  5014,  4948/
data    (gchtab(i), i=0361,0365) /  4755,  4563,   668,  4891,  4953/
data    (gchtab(i), i=0366,0370) /  4950,  4884,  4755,   659,  4882/
data    (gchtab(i), i=0371,0375) /  5008,  5070,  5067,  5001,  4936/
data    (gchtab(i), i=0376,0380) /  4743,  4487,  4296,  4233,  4171/
data    (gchtab(i), i=0381,0385) /  4172,  4237,  4300,  4235,   849/
data    (gchtab(i), i=0386,0390) /  5006,  5003,  4937,  4872,  4743/
data    (gchtab(i), i=0391,0395) /     0,   666,  4743,   732,  4807/
data    (gchtab(i), i=0396,0400) /   732,  4109,  5133,   455,  4999/
data    (gchtab(i), i=0401,0405) /     0,   220,  4178,    82,  4308/
data    (gchtab(i), i=0406,0410) /  4501,  4693,  4884,  5010,  5071/
data    (gchtab(i), i=0411,0415) /  5069,  5002,  4872,  4679,  4487/
data    (gchtab(i), i=0416,0420) /  4296,  4233,  4171,  4172,  4237/
data    (gchtab(i), i=0421,0425) /  4300,  4235,   597,  4820,  4946/
data    (gchtab(i), i=0426,0430) /  5007,  5005,  4938,  4808,  4679/
data    (gchtab(i), i=0431,0435) /   220,  4956,   219,  4635,  4956/
data    (gchtab(i), i=0436,0440) /     0,   857,  4888,  4951,  5016/
data    (gchtab(i), i=0441,0445) /  5017,  4955,  4828,  4636,  4443/
data    (gchtab(i), i=0446,0450) /  4313,  4247,  4179,  4173,  4234/
data    (gchtab(i), i=0451,0455) /  4360,  4551,  4679,  4872,  5002/
data    (gchtab(i), i=0456,0460) /  5069,  5070,  5009,  4883,  4692/
data    (gchtab(i), i=0461,0465) /  4628,  4435,  4305,  4238,   540/
data    (gchtab(i), i=0466,0470) /  4507,  4377,  4311,  4243,  4237/
data    (gchtab(i), i=0471,0475) /  4298,  4424,  4551,   583,  4808/
data    (gchtab(i), i=0476,0480) /  4938,  5005,  5006,  4945,  4819/
data    (gchtab(i), i=0481,0485) /  4692,     0,    92,  4182,    88/
data    (gchtab(i), i=0486,0490) /  4250,  4380,  4508,  4825,  4953/
data    (gchtab(i), i=0491,0495) /  5018,  5084,   154,  4379,  4507/
data    (gchtab(i), i=0496,0500) /  4825,   988,  5081,  5014,  4753/
data    (gchtab(i), i=0501,0505) /  4687,  4620,  4615,   918,  4689/
data    (gchtab(i), i=0506,0510) /  4623,  4556,  4551,     0,   412/
data    (gchtab(i), i=0511,0515) /  4315,  4249,  4246,  4308,  4499/
data    (gchtab(i), i=0516,0520) /  4755,  4948,  5014,  5017,  4955/
data    (gchtab(i), i=0521,0525) /  4764,  4508,   412,  4379,  4313/
data    (gchtab(i), i=0526,0530) /  4310,  4372,  4499,   659,  4884/
data    (gchtab(i), i=0531,0535) /  4950,  4953,  4891,  4764,   403/
data    (gchtab(i), i=0536,0540) /  4306,  4241,  4175,  4171,  4233/
data    (gchtab(i), i=0541,0545) /  4296,  4487,  4743,  4936,  5001/
data    (gchtab(i), i=0546,0550) /  5067,  5071,  5009,  4946,  4755/
data    (gchtab(i), i=0551,0555) /   403,  4370,  4305,  4239,  4235/
data    (gchtab(i), i=0556,0560) /  4297,  4360,  4487,   647,  4872/
data    (gchtab(i), i=0561,0565) /  4937,  5003,  5007,  4945,  4882/
data    (gchtab(i), i=0566,0570) /  4755,     0,   917,  4946,  4816/
data    (gchtab(i), i=0571,0575) /  4623,  4559,  4368,  4242,  4181/
data    (gchtab(i), i=0576,0580) /  4182,  4249,  4379,  4572,  4700/
data    (gchtab(i), i=0581,0585) /  4891,  5017,  5078,  5072,  5004/
data    (gchtab(i), i=0586,0590) /  4938,  4808,  4615,  4423,  4296/
data    (gchtab(i), i=0591,0595) /  4234,  4235,  4300,  4363,  4298/
data    (gchtab(i), i=0596,0600) /   463,  4432,  4306,  4245,  4246/
data    (gchtab(i), i=0601,0605) /  4313,  4443,  4572,   604,  4827/
data    (gchtab(i), i=0606,0610) /  4953,  5014,  5008,  4940,  4874/
data    (gchtab(i), i=0611,0615) /  4744,  4615,     0,  1247,  5278/
data    (gchtab(i), i=0616,0620) /  5341,  5406,  5407,  5344,  5216/
data    (gchtab(i), i=0621,0625) /  5087,  4957,  4891,  4824,  4756/
data    (gchtab(i), i=0626,0630) /  4616,  4548,  4482,   926,  4956/
data    (gchtab(i), i=0631,0635) /  4888,  4748,  4680,  4613,  4547/
data    (gchtab(i), i=0636,0640) /  4417,  4288,  4160,  4097,  4098/
data    (gchtab(i), i=0641,0645) /  4163,  4226,  4161,     0,   213/
data    (gchtab(i), i=0646,0650) /  4244,  4307,  4372,  4309,   199/
data    (gchtab(i), i=0651,0655) /  4232,  4297,  4360,  4358,  4292/
data    (gchtab(i), i=0656,0660) /  4227,     0,  1180,  4245,  5262/
data    (gchtab(i), i=0661,0665) /   140,  5260,   135,  5255,     0/
data    (gchtab(i), i=0666,0670) /   149,  5397,   144,  5392,   139/
data    (gchtab(i), i=0671,0675) /  5387,     0,   156,  5269,  4238/
data    (gchtab(i), i=0676,0680) /   140,  5260,   135,  5255,     0/
data    (gchtab(i), i=0681,0685) /  1177,  4359,   147,  5395,   141/
data    (gchtab(i), i=0686,0690) /  5389,     0,  1044,  5078,  4951/
data    (gchtab(i), i=0691,0695) /  4759,  4630,  4565,  4498,  4495/
data    (gchtab(i), i=0696,0700) /  4557,  4684,  4876,  5005,  5071/
data    (gchtab(i), i=0701,0705) /   663,  4629,  4562,  4559,  4621/
data    (gchtab(i), i=0706,0710) /  4684,  1047,  5071,  5069,  5196/
data    (gchtab(i), i=0711,0715) /  5324,  5454,  5521,  5523,  5462/
data    (gchtab(i), i=0716,0720) /  5400,  5274,  5147,  4956,  4764/
data    (gchtab(i), i=0721,0725) /  4571,  4442,  4312,  4246,  4179/
data    (gchtab(i), i=0726,0730) /  4176,  4237,  4299,  4425,  4552/
data    (gchtab(i), i=0731,0735) /  4743,  4935,  5128,  5257,  5322/
data    (gchtab(i), i=0736,0740) /  1111,  5135,  5133,  5196,     0/
data    (gchtab(i), i=0741,0745) /   473,  4167,   601,  5063,   537/
data    (gchtab(i), i=0746,0750) /  4999,   205,  4877,     7,  4423/
data    (gchtab(i), i=0751,0755) /   711,  5191,   480,  4447,  4381/
data    (gchtab(i), i=0756,0760) /  4379,  4441,  4568,  4696,  4825/
data    (gchtab(i), i=0761,0765) /  4891,  4893,  4831,  4704,  4576/
data    (gchtab(i), i=0766,0770) /     0,  1295,  5325,  5196,  5068/
data    (gchtab(i), i=0771,0775) /  4941,  4878,  4690,  4627,  4500/
data    (gchtab(i), i=0776,0780) /  4372,  4243,  4177,  4175,  4237/
data    (gchtab(i), i=0781,0785) /  4364,  4492,  4621,  4686,  4882/
data    (gchtab(i), i=0786,0790) /  4947,  5076,  5204,  5331,  5393/
data    (gchtab(i), i=0791,0795) /  5391,     0,    35,     0,   540/
data    (gchtab(i), i=0796,0800) /  4103,   540,  5127,   537,  5063/
data    (gchtab(i), i=0801,0805) /    72,  5064,     7,  5127,     0/
data    (gchtab(i), i=0806,0810) /  1176,  4824,  4567,  4438,  4308/
data    (gchtab(i), i=0811,0815) /  4241,  4239,  4300,  4426,  4553/
data    (gchtab(i), i=0816,0820) /  4808,  5256,   144,  5008,     0/
data    (gchtab(i), i=0821,0825) /   540,  4615,   604,  4679,   407/
data    (gchtab(i), i=0826,0830) /  4310,  4245,  4179,  4176,  4238/
data    (gchtab(i), i=0831,0835) /  4301,  4492,  4812,  5005,  5070/
data    (gchtab(i), i=0836,0840) /  5136,  5139,  5077,  5014,  4823/
data    (gchtab(i), i=0841,0845) /  4503,   407,  4374,  4309,  4243/
data    (gchtab(i), i=0846,0850) /  4240,  4302,  4365,  4492,   716/
data    (gchtab(i), i=0851,0855) /  4941,  5006,  5072,  5075,  5013/
data    (gchtab(i), i=0856,0860) /  4950,  4823,   348,  4892,   327/
data    (gchtab(i), i=0861,0865) /  4871,     0,   220,  4295,   284/
data    (gchtab(i), i=0866,0870) /  4359,    28,  5084,  5078,  5020/
data    (gchtab(i), i=0871,0875) /     7,  4551,     0,   608,  4224/
data    (gchtab(i), i=0876,0880) /   992,  4608,   147,  5139,    77/
data    (gchtab(i), i=0881,0885) /  5069,     0,   160,  4224,   544/
data    (gchtab(i), i=0886,0890) /  4608,     0,    28,  4615,    92/
data    (gchtab(i), i=0891,0895) /  4617,  1052,  4615,    28,  5148/
data    (gchtab(i), i=0896,0900) /    91,  5083,     0,    35,     0/
data    (gchtab(i), i=0901,0905) /   540,  4167,   540,  5063,   537/
data    (gchtab(i), i=0906,0910) /  4999,     7,  4423,   711,  5191/
data    (gchtab(i), i=0911,0915) /     0,   278,  4505,  4630,    83/
data    (gchtab(i), i=0916,0920) /  4504,  4819,   408,  4487,     0/
data    (gchtab(i), i=0921,0925) /   266,  4487,  4618,    77,  4488/
data    (gchtab(i), i=0926,0930) /  4813,   409,  4488,     0,   540/
data    (gchtab(i), i=0931,0935) /  4443,  4313,  4247,  4179,  4176/
data    (gchtab(i), i=0936,0940) /  4236,  4298,  4424,  4615,  4743/
data    (gchtab(i), i=0941,0945) /  4936,  5066,  5132,  5200,  5203/
data    (gchtab(i), i=0946,0950) /  5143,  5081,  4955,  4764,  4636/
data    (gchtab(i), i=0951,0955) /   540,  4507,  4377,  4311,  4243/
data    (gchtab(i), i=0956,0960) /  4240,  4300,  4362,  4488,  4615/
data    (gchtab(i), i=0961,0965) /   647,  4872,  5002,  5068,  5136/
data    (gchtab(i), i=0966,0970) /  5139,  5079,  5017,  4891,  4764/
data    (gchtab(i), i=0971,0975) /     0,   220,  4295,   284,  4359/
data    (gchtab(i), i=0976,0980) /  1052,  5127,  1116,  5191,    28/
data    (gchtab(i), i=0981,0985) /  5404,     7,  4551,   839,  5383/
data    (gchtab(i), i=0986,0990) /     0,   540,  4443,  4313,  4247/
data    (gchtab(i), i=0991,0995) /  4179,  4176,  4236,  4298,  4424/
data    (gchtab(i), i=0996,1000) /  4615,  4743,  4936,  5066,  5132/
data    (gchtab(i), i=1001,1005) /  5200,  5203,  5143,  5081,  4955/
data    (gchtab(i), i=1006,1010) /  4764,  4636,   540,  4507,  4377/
data    (gchtab(i), i=1011,1015) /  4311,  4243,  4240,  4300,  4362/
data    (gchtab(i), i=1016,1020) /  4488,  4615,   647,  4872,  5002/
data    (gchtab(i), i=1021,1025) /  5068,  5136,  5139,  5079,  5017/
data    (gchtab(i), i=1026,1030) /  4891,  4764,   405,  4494,   789/
data    (gchtab(i), i=1031,1035) /  4878,   402,  4882,   401,  4881/
data    (gchtab(i), i=1036,1040) /     0,  1244,  4167,   412,  4634/
data    (gchtab(i), i=1041,1045) /  4632,  4566,  4437,  4309,  4183/
data    (gchtab(i), i=1046,1050) /  4185,  4251,  4380,  4508,  4635/
data    (gchtab(i), i=1051,1055) /  4826,  5018,  5211,  5340,   974/
data    (gchtab(i), i=1056,1060) /  4941,  4875,  4873,  4999,  5127/
data    (gchtab(i), i=1061,1065) /  5256,  5322,  5324,  5198,  5070/
data    (gchtab(i), i=1066,1070) /     0,    92,  4626,  4103,    28/
data    (gchtab(i), i=1071,1075) /  4562,    28,  5084,  5142,  5020/
data    (gchtab(i), i=1076,1080) /    72,  5000,     7,  5063,  5133/
data    (gchtab(i), i=1081,1085) /  4999,     0,   160,  4224,   544/
data    (gchtab(i), i=1086,1090) /  4608,     0,    23,  4121,  4187/
data    (gchtab(i), i=1091,1095) /  4252,  4380,  4443,  4505,  4565/
data    (gchtab(i), i=1096,1100) /  4551,    25,  4251,  4379,  4505/
data    (gchtab(i), i=1101,1105) /   983,  5081,  5019,  4956,  4828/
data    (gchtab(i), i=1106,1110) /  4763,  4697,  4629,  4615,   985/
data    (gchtab(i), i=1111,1115) /  4955,  4827,  4697,   263,  4807/
data    (gchtab(i), i=1116,1120) /     0,   473,  4167,   601,  5063/
data    (gchtab(i), i=1121,1125) /   537,  4999,   205,  4877,     7/
data    (gchtab(i), i=1126,1130) /  4423,   711,  5191,   480,  4447/
data    (gchtab(i), i=1131,1135) /  4381,  4379,  4441,  4568,  4696/
data    (gchtab(i), i=1136,1140) /  4825,  4891,  4893,  4831,  4704/
data    (gchtab(i), i=1141,1145) /  4576,     0,    74,  4231,  4487/
data    (gchtab(i), i=1146,1150) /  4363,  4239,  4178,  4182,  4249/
data    (gchtab(i), i=1151,1155) /  4379,  4572,  4828,  5019,  5145/
data    (gchtab(i), i=1156,1160) /  5206,  5202,  5135,  5003,  4871/
data    (gchtab(i), i=1161,1165) /  5127,  5194,   267,  4302,  4242/
data    (gchtab(i), i=1166,1170) /  4246,  4313,  4443,  4572,   732/
data    (gchtab(i), i=1171,1175) /  4955,  5081,  5142,  5138,  5070/
data    (gchtab(i), i=1176,1180) /  5003,   136,  4424,   840,  5128/
data    (gchtab(i), i=1181,1185) /     0,   157,  4184,  1117,  5144/
data    (gchtab(i), i=1186,1190) /   404,  4431,   852,  4879,   139/
data    (gchtab(i), i=1191,1195) /  4166,  1099,  5126,   155,  5147/
data    (gchtab(i), i=1196,1200) /   154,  5146,   402,  4882,   401/
data    (gchtab(i), i=1201,1205) /  4881,   137,  5129,   136,  5128/
data    (gchtab(i), i=1206,1210) /     0,   604,  4679,   668,  4743/
data    (gchtab(i), i=1211,1215) /    21,  4182,  4309,  4369,  4431/
data    (gchtab(i), i=1216,1220) /  4494,  4621,    86,  4245,  4305/
data    (gchtab(i), i=1221,1225) /  4367,  4430,  4621,  4813,  5006/
data    (gchtab(i), i=1226,1230) /  5071,  5137,  5205,  5270,   717/
data    (gchtab(i), i=1231,1235) /  4942,  5007,  5073,  5141,  5270/
data    (gchtab(i), i=1236,1240) /  5333,   412,  4956,   391,  4935/
data    (gchtab(i), i=1241,1245) /     0,    35,     0,   160,  4224/
data    (gchtab(i), i=1246,1250) /   224,  4288,   160,  4704,   128/
data    (gchtab(i), i=1251,1255) /  4672,     0,    28,  4868,     0/
data    (gchtab(i), i=1256,1260) /   480,  4544,   544,  4608,    96/
data    (gchtab(i), i=1261,1265) /  4640,    64,  4608,     0,    35/
data    (gchtab(i), i=1266,1270) /     0,  1106,  5392,  5198,   917/
data    (gchtab(i), i=1271,1275) /  5328,  5003,   144,  5328,     0/
data    (gchtab(i), i=1276,1280) /    85,  4437,  4809,   277,  4807/
data    (gchtab(i), i=1281,1285) /  1312,  4807,     0,   533,  4436/
data    (gchtab(i), i=1286,1290) /  4306,  4240,  4173,  4170,  4232/
data    (gchtab(i), i=1291,1295) /  4423,  4551,  4680,  4875,  5006/
data    (gchtab(i), i=1296,1300) /  5138,  5205,   533,  4500,  4370/
data    (gchtab(i), i=1301,1305) /  4304,  4237,  4234,  4296,  4423/
data    (gchtab(i), i=1306,1310) /   533,  4757,  4884,  4946,  5066/
data    (gchtab(i), i=1311,1315) /  5128,  5191,   661,  4820,  4882/
data    (gchtab(i), i=1316,1320) /  5002,  5064,  5191,  5255,     0/
data    (gchtab(i), i=1321,1325) /   732,  4635,  4505,  4373,  4306/
data    (gchtab(i), i=1326,1330) /  4238,  4168,  4096,   732,  4699/
data    (gchtab(i), i=1331,1335) /  4569,  4437,  4370,  4302,  4232/
data    (gchtab(i), i=1336,1340) /  4160,   732,  4956,  5083,  5146/
data    (gchtab(i), i=1341,1345) /  5143,  5077,  5012,  4819,  4563/
data    (gchtab(i), i=1346,1350) /   860,  5082,  5079,  5013,  4948/
data    (gchtab(i), i=1351,1355) /  4819,   467,  4818,  4944,  5006/
data    (gchtab(i), i=1356,1360) /  5003,  4937,  4872,  4679,  4551/
data    (gchtab(i), i=1361,1365) /  4424,  4361,  4300,   467,  4754/
data    (gchtab(i), i=1366,1370) /  4880,  4942,  4939,  4873,  4808/
data    (gchtab(i), i=1371,1375) /  4679,     0,    21,  4245,  4372/
data    (gchtab(i), i=1376,1380) /  4434,  4739,  4801,  4864,   149/
data    (gchtab(i), i=1381,1385) /  4308,  4370,  4675,  4737,  4864/
data    (gchtab(i), i=1386,1390) /  4992,   981,  5011,  4880,  4229/
data    (gchtab(i), i=1391,1395) /  4098,  4096,     0,   724,  4693/
data    (gchtab(i), i=1396,1400) /  4565,  4372,  4241,  4174,  4171/
data    (gchtab(i), i=1401,1405) /  4233,  4296,  4423,  4551,  4744/
data    (gchtab(i), i=1406,1410) /  4875,  4942,  4945,  4883,  4632/
data    (gchtab(i), i=1411,1415) /  4570,  4572,  4637,  4765,  4892/
data    (gchtab(i), i=1416,1420) /  5018,   469,  4436,  4305,  4238/
data    (gchtab(i), i=1421,1425) /  4234,  4296,   455,  4680,  4811/
data    (gchtab(i), i=1426,1430) /  4878,  4882,  4820,  4695,  4633/
data    (gchtab(i), i=1431,1435) /  4635,  4700,  4828,  5018,     0/
data    (gchtab(i), i=1436,1440) /   850,  4820,  4693,  4437,  4308/
data    (gchtab(i), i=1441,1445) /  4306,  4432,  4623,   341,  4372/
data    (gchtab(i), i=1446,1450) /  4370,  4496,  4623,   527,  4302/
data    (gchtab(i), i=1451,1455) /  4172,  4170,  4232,  4423,  4615/
data    (gchtab(i), i=1456,1460) /  4744,  4874,   527,  4366,  4236/
data    (gchtab(i), i=1461,1465) /  4234,  4296,  4423,     0,   404/
data    (gchtab(i), i=1466,1470) /  4371,  4241,  4174,  4171,  4233/
data    (gchtab(i), i=1471,1475) /  4296,  4423,  4615,  4808,  5002/
data    (gchtab(i), i=1476,1480) /  5133,  5200,  5203,  5077,  4949/
data    (gchtab(i), i=1481,1485) /  4819,  4687,  4554,  4352,    75/
data    (gchtab(i), i=1486,1490) /  4297,  4424,  4616,  4809,  5003/
data    (gchtab(i), i=1491,1495) /  5133,  1107,  5076,  4948,  4818/
data    (gchtab(i), i=1496,1500) /  4687,  4553,  4416,     0,    18/
data    (gchtab(i), i=1501,1505) /  4180,  4309,  4437,  4564,  4627/
data    (gchtab(i), i=1506,1510) /  4688,  4684,  4616,  4416,    19/
data    (gchtab(i), i=1511,1515) /  4244,  4500,  4627,  1045,  5074/
data    (gchtab(i), i=1516,1520) /  5008,  4681,  4484,  4352,   981/
data    (gchtab(i), i=1521,1525) /  5010,  4944,  4681,     0,    17/
data    (gchtab(i), i=1526,1530) /  4115,  4245,  4437,  4500,  4498/
data    (gchtab(i), i=1531,1535) /  4430,  4295,   277,  4436,  4434/
data    (gchtab(i), i=1536,1540) /  4366,  4231,   334,  4562,  4692/
data    (gchtab(i), i=1541,1545) /  4821,  4949,  5076,  5139,  5136/
data    (gchtab(i), i=1546,1550) /  5067,  4864,   853,  5075,  5072/
data    (gchtab(i), i=1551,1555) /  5003,  4800,     0,   277,  4238/
data    (gchtab(i), i=1556,1560) /  4170,  4168,  4231,  4423,  4553/
data    (gchtab(i), i=1561,1565) /  4619,   341,  4302,  4234,  4232/
data    (gchtab(i), i=1566,1570) /  4295,     0,   848,  4883,  4820/
data    (gchtab(i), i=1571,1575) /  4693,  4565,  4372,  4241,  4174/
data    (gchtab(i), i=1576,1580) /  4171,  4233,  4296,  4423,  4551/
data    (gchtab(i), i=1581,1585) /  4744,  4874,  4941,  5010,  5015/
data    (gchtab(i), i=1586,1590) /  4954,  4891,  4764,  4572,  4443/
data    (gchtab(i), i=1591,1595) /  4378,  4377,  4441,  4442,   469/
data    (gchtab(i), i=1596,1600) /  4436,  4305,  4238,  4234,  4296/
data    (gchtab(i), i=1601,1605) /   455,  4680,  4810,  4877,  4946/
data    (gchtab(i), i=1606,1610) /  4951,  4890,  4764,     0,   277/
data    (gchtab(i), i=1611,1615) /  4103,   341,  4167,   917,  5076/
data    (gchtab(i), i=1616,1620) /  5140,  5077,  4949,  4820,  4560/
data    (gchtab(i), i=1621,1625) /  4431,  4303,   335,  4558,  4680/
data    (gchtab(i), i=1626,1630) /  4743,   335,  4494,  4616,  4679/
data    (gchtab(i), i=1631,1635) /  4807,  4936,  5067,     0,    92/
data    (gchtab(i), i=1636,1640) /  4316,  4443,  4506,  4568,  4938/
data    (gchtab(i), i=1641,1645) /  5000,  5063,   220,  4442,  4504/
data    (gchtab(i), i=1646,1650) /  4874,  4936,  5063,  5127,   533/
data    (gchtab(i), i=1651,1655) /  4103,   533,  4167,     0,   341/
data    (gchtab(i), i=1656,1660) /  4096,   405,  4096,   338,  4364/
data    (gchtab(i), i=1661,1665) /  4361,  4487,  4615,  4744,  4874/
data    (gchtab(i), i=1666,1670) /  5005,  1045,  4938,  4936,  4999/
data    (gchtab(i), i=1671,1675) /  5191,  5321,  5387,  1109,  5002/
data    (gchtab(i), i=1676,1680) /  5000,  5063,     0,   277,  4231/
data    (gchtab(i), i=1681,1685) /   341,  4367,  4298,  4231,   981/
data    (gchtab(i), i=1686,1690) /  5009,  4877,  1045,  5074,  5008/
data    (gchtab(i), i=1691,1695) /  4877,  4747,  4553,  4424,  4231/
data    (gchtab(i), i=1696,1700) /    85,  4437,     0,   469,  4372/
data    (gchtab(i), i=1701,1705) /  4241,  4174,  4171,  4233,  4296/
data    (gchtab(i), i=1706,1710) /  4423,  4551,  4744,  4875,  4942/
data    (gchtab(i), i=1711,1715) /  4945,  4883,  4820,  4693,  4565/
data    (gchtab(i), i=1716,1720) /   469,  4436,  4305,  4238,  4234/
data    (gchtab(i), i=1721,1725) /  4296,   455,  4680,  4811,  4878/
data    (gchtab(i), i=1726,1730) /  4882,  4820,     0,   468,  4295/
data    (gchtab(i), i=1731,1735) /   468,  4359,   852,  4935,   852/
data    (gchtab(i), i=1736,1740) /  4999,    18,  4244,  4437,  5269/
data    (gchtab(i), i=1741,1745) /    18,  4243,  4436,  5268,     0/
data    (gchtab(i), i=1746,1750) /    17,  4115,  4245,  4437,  4500/
data    (gchtab(i), i=1751,1755) /  4498,  4429,  4426,  4488,  4551/
data    (gchtab(i), i=1756,1760) /   277,  4436,  4434,  4365,  4362/
data    (gchtab(i), i=1761,1765) /  4424,  4551,  4679,  4808,  4938/
data    (gchtab(i), i=1766,1770) /  5069,  5136,  5205,  5209,  5147/
data    (gchtab(i), i=1771,1775) /  5020,  4892,  4762,  4760,  4821/
data    (gchtab(i), i=1776,1780) /  4946,  5072,  5262,   712,  4939/
data    (gchtab(i), i=1781,1785) /  5005,  5072,  5141,  5145,  5083/
data    (gchtab(i), i=1786,1790) /  5020,     0,   140,  4297,  4360/
data    (gchtab(i), i=1791,1795) /  4487,  4615,  4808,  4939,  5006/
data    (gchtab(i), i=1796,1800) /  5009,  4947,  4884,  4757,  4629/
data    (gchtab(i), i=1801,1805) /  4436,  4305,  4238,  4096,   519/
data    (gchtab(i), i=1806,1810) /  4744,  4875,  4942,  4946,  4884/
data    (gchtab(i), i=1811,1815) /   533,  4500,  4369,  4302,  4096/
data    (gchtab(i), i=1816,1820) /     0,  1109,  4565,  4372,  4241/
data    (gchtab(i), i=1821,1825) /  4174,  4171,  4233,  4296,  4423/
data    (gchtab(i), i=1826,1830) /  4551,  4744,  4875,  4942,  4945/
data    (gchtab(i), i=1831,1835) /  4883,  4820,  4693,   469,  4436/
data    (gchtab(i), i=1836,1840) /  4305,  4238,  4234,  4296,   455/
data    (gchtab(i), i=1841,1845) /  4680,  4811,  4878,  4882,  4820/
data    (gchtab(i), i=1846,1850) /   724,  5204,     0,   596,  4487/
data    (gchtab(i), i=1851,1855) /   596,  4551,    18,  4244,  4437/
data    (gchtab(i), i=1856,1860) /  5141,    18,  4243,  4436,  5140/
data    (gchtab(i), i=1861,1865) /     0,    17,  4115,  4245,  4437/
data    (gchtab(i), i=1866,1870) /  4500,  4498,  4364,  4361,  4487/
data    (gchtab(i), i=1871,1875) /   277,  4436,  4434,  4300,  4297/
data    (gchtab(i), i=1876,1880) /  4360,  4487,  4551,  4744,  4874/
data    (gchtab(i), i=1881,1885) /  5005,  5072,  5075,  5013,  4948/
data    (gchtab(i), i=1886,1890) /  5011,  5072,   909,  5075,     0/
data    (gchtab(i), i=1891,1895) /    35,     0,   145,  4371,  4564/
data    (gchtab(i), i=1896,1900) /  4501,  4372,  4241,  4174,  4171/
data    (gchtab(i), i=1901,1905) /  4232,  4295,  4423,  4552,  4683/
data    (gchtab(i), i=1906,1910) /  4750,    75,  4233,  4296,  4424/
data    (gchtab(i), i=1911,1915) /  4553,  4683,   590,  4683,  4744/
data    (gchtab(i), i=1916,1920) /  4807,  4935,  5064,  5195,  5262/
data    (gchtab(i), i=1921,1925) /  5265,  5204,  5141,  5076,  5203/
data    (gchtab(i), i=1926,1930) /  5265,   587,  4745,  4808,  4936/
data    (gchtab(i), i=1931,1935) /  5065,  5195,     0,   604,  4571/
data    (gchtab(i), i=1936,1940) /  4506,  4505,  4568,  4759,  4951/
data    (gchtab(i), i=1941,1945) /   663,  4502,  4373,  4307,  4305/
data    (gchtab(i), i=1946,1950) /  4431,  4622,  4814,   663,  4566/
data    (gchtab(i), i=1951,1955) /  4437,  4371,  4369,  4495,  4622/
data    (gchtab(i), i=1956,1960) /   526,  4365,  4236,  4170,  4168/
data    (gchtab(i), i=1961,1965) /  4294,  4612,  4675,  4673,  4544/
data    (gchtab(i), i=1966,1970) /  4416,   526,  4429,  4300,  4234/
data    (gchtab(i), i=1971,1975) /  4232,  4358,  4612,     0,   860/
data    (gchtab(i), i=1976,1980) /  4544,   924,  4480,    17,  4115/
data    (gchtab(i), i=1981,1985) /  4245,  4437,  4500,  4498,  4429/
data    (gchtab(i), i=1986,1990) /  4426,  4552,  4744,  4873,  5068/
data    (gchtab(i), i=1991,1995) /  5199,   277,  4436,  4434,  4365/
data    (gchtab(i), i=1996,2000) /  4362,  4424,  4551,  4743,  4872/
data    (gchtab(i), i=2001,2005) /  5002,  5133,  5199,  5333,     0/
data    (gchtab(i), i=2006,2010) /   604,  4571,  4506,  4505,  4568/
data    (gchtab(i), i=2011,2015) /  4759,  5079,  5080,  4887,  4629/
data    (gchtab(i), i=2016,2020) /  4435,  4240,  4173,  4171,  4233/
data    (gchtab(i), i=2021,2025) /  4423,  4613,  4675,  4673,  4608/
data    (gchtab(i), i=2026,2030) /  4480,  4417,   662,  4499,  4304/
data    (gchtab(i), i=2031,2035) /  4237,  4235,  4297,  4423,     0/
data    (gchtab(i), i=2036,2040) /   480,  4447,  4382,  4316,  4314/
data    (gchtab(i), i=2041,2045) /  4376,  4439,  4501,  4499,  4369/
data    (gchtab(i), i=2046,2050) /   351,  4381,  4379,  4441,  4504/
data    (gchtab(i), i=2051,2055) /  4566,  4564,  4498,  4240,  4494/
data    (gchtab(i), i=2056,2060) /  4556,  4554,  4488,  4423,  4357/
data    (gchtab(i), i=2061,2065) /  4355,  4417,   271,  4493,  4491/
data    (gchtab(i), i=2066,2070) /  4425,  4360,  4294,  4292,  4354/
data    (gchtab(i), i=2071,2075) /  4417,  4544,     0,   160,  4224/
data    (gchtab(i), i=2076,2080) /   544,  4608,     0,   224,  4447/
data    (gchtab(i), i=2081,2085) /  4510,  4572,  4570,  4504,  4439/
data    (gchtab(i), i=2086,2090) /  4373,  4371,  4497,   351,  4509/
data    (gchtab(i), i=2091,2095) /  4507,  4441,  4376,  4310,  4308/
data    (gchtab(i), i=2096,2100) /  4370,  4624,  4366,  4300,  4298/
data    (gchtab(i), i=2101,2105) /  4360,  4423,  4485,  4483,  4417/
data    (gchtab(i), i=2106,2110) /   399,  4365,  4363,  4425,  4488/
data    (gchtab(i), i=2111,2115) /  4550,  4548,  4482,  4417,  4288/
data    (gchtab(i), i=2116,2120) /     0,   338,  4240,  4430,   533/
data    (gchtab(i), i=2121,2125) /  4304,  4619,   208,  5392,     0/
data    (gchtab(i), i=2126,2130) /   284,  4251,  4185,  4183,  4245/
data    (gchtab(i), i=2131,2135) /  4372,  4500,  4629,  4695,  4697/
data    (gchtab(i), i=2136,2139) /  4635,  4508,  4380,     0/