Path: seismo!harvard!talcott!panda!sources-request From: sources-request@panda.UUCP Newsgroups: mod.sources Subject: Hershey Fonts in Fortran 77 part 2 of 2 Message-ID: <1509@panda.UUCP> Date: 12 Mar 86 12:14:44 GMT Sender: jpn@panda.UUCP Lines: 989 Approved: jpn@panda.UUCP Mod.sources: Volume 4, Issue 26 Submitted by: seismo!s3sun!sdcsvax!brian (Brian Kantor) How it works: The subroutine and data storage assume that you are using a system with 32-bit integers. The character index is used to index into array 'istart'. The resulting starting index is used to begin retrieval from array 'symbcd'. Each 32 bit word in 'symbcd' contains two 16 bit fields, which in turn contain three subfields: (bit 16 - highest order bit - is zero, then) 3-bit-int pencode 6-bit-int delta-x 6-bit-int delta-y pencode is a drawing flag: 0 - end of character 2 - draw from current position (x,y) to (x+dx, y+dy) 3 - move from current position (x,y) to (x+dx, y+dy) other values - undefined ---------------------------------------------------------------------------- C BLOCK DATA FOR SUBROUTINE SYMBOL PROVIDING 4 FONTS, SPECIAL C MATHEMATICAL SYMBOLS, AND CENTERED SYMBOLS FOR DATA POINT C PLOTTING C TAKEN FROM WOLCOTT, NBS PUBLICATION C MODIFIED BY A.CHAVE, R.L.PARKER, AND L.SHURE, IGPP/UCSD AUG 1981,FEB 1982 C C APPENDED FROM HERE ----- C BLOCKDATA BLOCKA C WOLCOTT'S BLOCKDATA STATEMENT REORDERED FOR SUBROUTINE LETTER. C THE NEW ORDERING IS AS FOLLOWS C THE SYMBOL NUMBERS ARE C 1-26 UPPER CASE ROMAN SIMPLEX C 27-52 LOWER CASE ROMAN SIMPLEX C 53-72 SIMPLEX NUMBERS AND SYMBOLS C 73-96 UPPER CASE GREEK SIMPLEX C 97-120 LOWER CASE GREEK SIMPLEX C 121-146 UPPER CASE ROMAN COMPLEX C 147-172 LOWER CASE ROMAN COMPLEX C 173-192 COMPLEX NUMBERS AND SYMBOLS C 193-216 UPPER CASE GREEK COMPLEX C 217-240 LOWER CASE GREEK COMPLEX C 241-266 UPPER CASE ROMAN ITALIC C 267-292 LOWER CASE ROMAN ITALIC C 293-312 ITALIC NUMBERS AND SYMBOLS C 313-338 UPPER CASE ROMAN DUPLEX C 339-364 LOWER CASE ROMAN DUPLEX C 365-384 DUPLEX NUMBERS AND SYMBOLS C 385-432 SPECIAL MATHEMATICAL SYMBOLS C INTEGER SYMBCD,SSYMBC COMMON /IALPH/ SYMBCD(4711),ISTART(432),SSYMBC(128), $ISSTAR(22) COMMON /IWID/ WIDTH(432) DATA (SYMBCD(J), J=1, 114)/ $443556555,443557579,432612882, 0,433070987,433071584, $323987166,328083226,325854871,317404054,317400725,325723922, $327657165,323364299,298156032,462268125,321889760,309339231, $300852123,296493907,298329038,304489675,317040204,325527312, $ 0,433070987,433071456,319792797,325953304,327788240, $323429900,312845195, 0,433070987,433071840,432743830, $432383691, 0,433070987,433071840,432743830, 0, $462268125,321889760,309339231,300852123,296493907,298329038, $304489675,317040204,325527312,327792083,327778304,433070987, $462432011,432744214, 0,433070987, 0,449848720, $312911116,306553867,298197837,294134546, 0,433070987, $462431122,443262731, 0,433070987,432383627, 0, $433070987,433071499,466625931,466626443, 0,433070987, $433071883,462432011, 0,443556959,300852123,296493907, $298329038,304489675,317040204,325527312,329885528,328050397, $321889760,309329920,433070987,433071584,323987166,328083225, $325822102,317367189, 0,443556959,300852123,296493907, $298329038,304489675,317040204,325527312,329885528,328050397, $321889760,309343631,327450624,433070987,433071584,323987166/ DATA (SYMBCD(J), J = 115, 228)/ $328083226,325854871,317399958,447424267, 0,460236383, $315630752,300917597,296592281,300688471,317367892,323593937, $325527116,314942603,300294990, 0,441459851,426780256, $ 0,433070993,300360780,310748555,321267406,327722784, $ 0,426779851,460334283, 0,428876875,449848395, $449849035,470820555, 0,430974667,460333899, 0, $426779862,308655840,309002240,460333899,430974688,430286539, $ 0,443556555,443557579,432612882, 0,433070987, $433071584,323987166,328083226,325854871,317404054,317400725, $325723922,327657165,323364299,298156032,433070987,433071776, $ 0,443556555,443557579,426092235, 0,433070987, $433071840,432743830,432383691, 0,460333899,430974688, $430286539, 0,433070987,462432011,432744214, 0, $443556959,300852123,296493907,298329038,304489675,317040204, $325527312,329885528,328050397,321889760,309343382,319488000, $433070987, 0,433070987,462431122,443262731, 0, $443556555,443557579, 0,433070987,433071499,466625931, $466626443, 0,433070987,433071883,462432011, 0, $428877472,436938134,428189323, 0,443556959,300852123/ DATA (SYMBCD(J), J = 229, 342)/ $296493907,298329038,304489675,317040204,325527312,329885528, $328050397,321889760,309329920,433070987,462432011,433071904, $ 0,433070987,433071584,323987166,328083225,325822102, $317367189, 0,428877014,293974816,324023051,323321856, $441459851,426780256, 0,428712733,296723360,303047775, $307143897,308655771,323921503,319825312,313500957,309100544, $445654283,441295834,298623831,296362898,300459152,315106897, $323561172,325822105,321725851,307068928,430974667,430286560, $ 0,447751499,428680026,298623957,302621778,310945169, $321463955,325756697,330114970, 0,430285899,298394454, $296559517,303015136,313533983,323921626,325789330,317040331, $ 0,455910987,455812568,313304217,302785430,296330065, $298263564,306554187,317072974, 0,433070987,432743448, $307012953,317466198,323593873,321332684,312845451,302392206, $ 0,455812568,313304217,302785430,296330065,298263564, $306554187,317072974, 0,456140363,455812568,313304217, $302785430,296330065,298263564,306554187,317072974, 0, $430548563,321562135,317465945,307012632,298525523,296264590, $302392459,312845772,321323008,445654176,303014876,300266265/ DATA (SYMBCD(J), J = 343, 456)/ $309100544,455910985,318973381,312616068,302167638,317465945, $307012632,298525523,296264590,302392459,312845772,321323008, $433070987,432710744,309110169,319563349,321224704,430973855, $300950433,296760217,298156032,435168287,305144865,300954649, $302261189,295838404, 0,433070987,453813135,441034315, $ 0,433070987, 0,432841611,432710744,309110169, $319563349,321238613,327952281,338471128,344631563, 0, $432841611,432710744,309110169,319563349,321224704,441230360, $298525523,296264590,302392459,312845772,321332881,323593814, $317465945,307003392,432841604,432743448,307012953,317466198, $323593873,321332684,312845451,302392206, 0,455910980, $455812568,313304217,302785430,296330065,298263564,306554187, $317072974, 0,432841611,432645078,304882905,315392000, $453715416,311207001,298591062,298460179,313075153,319268366, $317072651,304456588,296157184,435168207,302392459,310752025, $309100544,432841615,300295243,310748556,321369689,321224704, $428647563,453813387, 0,430744651,447521867,447522379, $464299595, 0,430745099,453813067, 0,428647563, $453813387,302228357,293741252, 0,453813067,430745113/ DATA (SYMBCD(J), J = 457, 570)/ $430286347, 0,443327576,300622740,296264526,298198027, $306554124,317171282,325789465,443327833,315368918,321332876, $325429003, 0,449848607,307143705,300622738,296100612, $449848864,323954331,321693208,315335895,443262294,317335058, $319268301,314975499,306553868,300327824, 0,426451800, $300721177,306980055,311043344,308655833,323692116,308651079, $302120960,447521945,302785430,296330064,298230732,304456907, $312878542,319333908,317433177,309175453,307209440,313533919, $321814528,451650968,311207001,300688342,302654675,443130834, $296231758,298198027,308651340,317128704,445654175,305079389, $307111259,319665691,311206999,298459985,296199053,302359753, $310617349,308421700,302186496,426418967,298624025,304882774, $302588811,436806806,311174553,319596183,323626575,314703872, $426418967,298624025,304882774,302556174,304489611,310748556, $319268433,323626713,325985951,319825312,313468252,315401750, $323626834, 0,437035922,296166220,298165259,306619599, $ 0,437035787,457975385,319595928,306848787,300528595, $304686225,310781259,314942924, 0,426779488,300917790, $319141017,293961728,439132868,436904912,300328011,308651340/ DATA (SYMBCD(J), J = 571, 684)/ $317138514,460105298,319235596,321234635,329688975, 0, $430744601,300524430,296072857,321594900,315139278,302392139, $ 0,445654175,305079389,307111259,319665499,307045401, $300655573,304719122,315176210,302556048,296166220,300229832, $310617349,306324484, 0,441230360,298525523,296231821, $300295243,308651340,317138449,319432151,315368729,307003392, $443327435,453813843,323430091,428549016,304916377, 0, $432645008,300327948,306554123,314975758,321431124,319530456, $313304281,304882646,298427012, 0,462202009,302785430, $296330064,298230732,304456907,312878542,319333908,317433240, $311197696,447521931,428549016,304916249, 0,426418967, $298624025,304882774,300426189,304456907,314975758,323561174, $325877760,441197591,298492754,296199053,300295243,310748620, $323430161,329918295,325887577,317433171,308749316, 0, $428647321,302753158,318908036,460105367,319431561,293806788, $ 0,458237060,426418967,298624025,304882774,302556174, $304489675,312845836,323430161,332081113, 0,441230360, $298492754,296199052,300262475,308684111,449422671,314975691, $321234636,329754514,332048216,327974912,445653835,445654731/ DATA (SYMBCD(J), J = 685, 798)/ $445556363,434677265,426091595,451258187, 0,435168203, $437265419,428877344,326084382,330180442,327952087,319501856, $323987166,328083226,325854871,319501334,319497941,327821138, $329754381,325461515,293975574,323659476,327755535,325494412, $319127552,460236570,328214237,321889696,311436383,300852123, $296493907,298329038,304489739,314943052,325527312,445654175, $302949339,298591123,300426254,306586891, 0,435168203, $437265419,428877216,321890013,328050520,329885456,325527116, $314942219,449848863,323921627,327952147,325592718,319169931, $ 0,435168203,437265419,449652114,428877600,328017632, $436938134,428189451,327722699, 0,435168203,437265419, $449652114,428877600,328017632,436938134,428188875, 0, $460236570,328214237,321889696,311436383,300852123,296493907, $298329038,304489739,314943052,325530912,307209245,300786584, $298427344,302457996,310752979,325433107,327530003,334069760, $435168203,437265419,462432011,464529227,428877024,456140832, $436938518,428188875,455452683, 0,435168203,437265419, $428877024,428188875, 0,445654287,308683851,300262220, $294069008,296264592,296203488,308782220,304460832,317718528/ DATA (SYMBCD(J), J = 799, 912)/ $435168203,437265419,464528403,447457099,445359883,428877024, $456140768,428188875,455452619, 0,435168203,437265419, $428877024,428189387,325625483, 0,435168203,437265806, $435168651,464528779,464529227,466626443,428876832,464529504, $428188811,457549899, 0,435168203,437266189,437200651, $462432011,428876832,456140768,428188811, 0,445654111, $300852123,296461140,298329038,304489739,314943052,325527312, $329918295,328050397,321889696,311440672,307209245,300786583, $298460112,302457996,310752651,319170190,325592852,327919323, $323921439,315621376,435168203,437265419,428877344,326084382, $330180441,327919318,319464469,454043295,326051612,327984855, $323692053,428188875, 0,445654111,300852123,296461140, $298329038,304489739,314943052,325527312,329918295,328050397, $321889696,311440672,307209245,300786583,298460112,302457996, $310752651,319170190,325592852,327919323,323921439,315634765, $304555152,310945105,317203982,321103494,327362376,329561614, $321201800,325297927,329515008,435168203,437265419,428877344, $326084382,330180442,327952087,319497238,454043295,326051612, $328017624,323724822,428188875,447423957,319432397,327558988/ DATA (SYMBCD(J), J = 913, 1026)/ $331789781,319399564,325429067,331786126, 0,458139360, $325920413,319792480,307241951,296657755,298623960,304850389, $321529554,430810073,304883158,321562260,325658318,321267083, $308651020,298263377,296067982, 0,443557067,445654283, $430973722,294659808,325920416,436577739, 0,435168209, $302457996,312845771,323364622,329820000,437265425,304555212, $312849184,309343904,336592896,430974219,433071374,460334347, $426779744,451946336, 0,433071243,435168400,449848459, $449848971,451946128,466626187,426779808,460335200, 0, $430974603,433071819,460333899,426779744,451946336,426091595, $451258187, 0,430974229,310752160,313173323,462431573, $426779744,454043552,438674955, 0,458236747,460333963, $433070938,296756960,430286539,325625483, 0,445653835, $445654731,445556363,434677265,426091595,451258187, 0, $435168203,437265419,428877344,326084382,330180442,327952087, $319501856,323987166,328083226,325854871,319501334,319497941, $327821138,329754381,325461515,293975574,323659476,327755535, $325494412,319127552,435168203,437265419,428877536,325920416, $428188875, 0,445653771,445654795,445556427,430319308/ DATA (SYMBCD(J), J = 1027, 1140)/ $428189451, 0,435168203,437265419,449652114,428877600, $328017632,436938134,428189451,327722699, 0,458236747, $460333963,433070938,296756960,430286539,325625483, 0, $435168203,437265419,462432011,464529227,428877024,456140832, $436938518,428188875,455452683, 0,445654111,300852123, $296461140,298329038,304489739,314943052,325527312,329918295, $328050397,321889696,311440672,307209245,300786583,298460112, $302457996,310752651,319170190,325592852,327919323,323921439, $315634841,306787865,319370390,319501461,319455232,435168203, $437265419,428877024,428188875, 0,435168203,437265419, $464528403,447457099,445359883,428877024,456140768,428188875, $455452619, 0,445653835,445654731,445556363,426091595, $451258187, 0,435168203,437265806,435168651,464528779, $464529227,466626443,428876832,464529504,428188811,457549899, $ 0,435168203,437266189,437200651,462432011,428876832, $456140768,428188811, 0,433103708,464561948,441197651, $455878163,432513866,463972106,433039135,433006366,441132566, $441099797,432449293,432416524, 0,445654111,300852123, $296461140,298329038,304489739,314943052,325527312,329918295/ DATA (SYMBCD(J), J = 1141, 1254)/ $328050397,321889696,311440672,307209245,300786583,298460112, $302457996,310752651,319170190,325592852,327919323,323921439, $315621376,435168203,437265419,462432011,464529227,428877856, $428188875,455452683, 0,435168203,437265419,428877344, $326084382,330180441,327919318,319464469,454043295,326051612, $327984855,323692053,428188875, 0,430974230,293974816, $309015328,326117146,324023116,323367691,325429009,323321856, $443557067,445654283,430973722,294659808,325920416,436577739, $ 0,428712733,296723360,303047775,307143897,308654877, $298820639,307148507,326018719,321922528,315598173,311207179, $460236383,317695325,436577739, 0,445654283,447751499, $441295834,298623831,296362898,300459152,317204113,325658388, $327919321,323823067,307082395,302851033,298558356,300491793, $306722256,321431186,325723863,323790426,317568096,319829067, $319127552,430974603,433071819,460333899,426779744,451946336, $426091595,451258187, 0,447751499,449848715,428647258, $300721173,304718994,310948698,298623957,302621778,310945233, $323561171,327853913,332215761,321463955,325756697,332212185, $441460320,440772171, 0,430384011,306553871,298427222/ DATA (SYMBCD(J), J = 1255, 1368)/ $296559517,303015136,317728415,328116058,329983763,323462667, $327526222,436708306,298525594,300852319,309343712,321890013, $328017686,325658255,432415820,455485196, 0,434873302, $298525591,300688473,313304536,319530581,321332876,325432855, $319235660,325429003,453682644,304718738,296231758,298198091, $310748556,319239251,300491664,298263500,304447488,435168203, $437265419,436937880,311207321,321660630,327788305,325527116, $314942731,306586638,449619480,323692243,325625486,319169931, $428876832, 0,455812629,321529493,323692056,315401433, $302785430,296330065,298263564,308651339,319170190,443327576, $300622739,298361806,304489675, 0,456140363,458237579, $455812568,313304281,302785430,296330065,298263564,308651339, $317072974,443327576,300622739,298361806,304489675,449848992, $455452491, 0,432645779,323659351,319563161,309109784, $298525523,296264590,302392523,312845836,323434067,321594904, $443327576,300622739,298361806,304489675, 0,445621470, $311338334,313500960,307242015,300852171,441459807,302949387, $428647705,428188875, 0,441230360,300655509,298427345, $302523535,310879632,317236755,319464919,315368729,307016728/ DATA (SYMBCD(J), J = 1369, 1482)/ $300622802,302527888,317269462,315373015,319563417,323757592, $434676624,296166221,298165322,314910281,323236685,298198091, $314943050,323233415,321037700,302129989,293839624,296035339, $ 0,435168203,437265419,436937880,313304537,323757782, $325432793,321660566,323334944,303051531,308655563,331710464, $435168159,300885023,300954585,300266521,302363417,302822155, $308641792,437265375,302982239,303051865,304325637,297935620, $291676870,293839686,293778457,302228421,297939801,304906240, $435168203,437265419,458007567,447325899,445228683,428876832, $451716953,428188875,451258187, 0,435168203,437265419, $428876832,428188875, 0,434938827,437036043,436937880, $313304537,323757782,325432793,321660566,323335894,330049561, $340568408,348858763,474786072,346761547,428647449,428188875, $451258251,474327627, 0,434938827,437036043,436937880, $313304537,323757782,325432793,321660566,323334937,302822155, $308655563,331710464,443327512,298525523,296264590,302392523, $312845836,323430097,325691030,319563097,309114073,304882646, $298427281,300360780,308655435,317072974,323528339,321594840, $313294848,434938820,437036036,436937880,311207321,321660630/ DATA (SYMBCD(J), J = 1483, 1596)/ $327788305,325527116,314942731,306586638,449619480,323692243, $325625486,319169931,428647449,427959492, 0,455910980, $458008196,455812568,313304281,302785430,296330065,298263564, $308651339,317072974,443327576,300622739,298361806,304489675, $448931652, 0,434938827,437036043,436839510,309077337, $319596120,321627670,317433368,428647449,428188875, 0, $451651097,319464919,315368729,302818200,296461141,298460179, $313042384,319271766,298492948,313075153,319301133,317072715, $304456652,298230607,296067981, 0,435168207,302392459, $310748556,317142048,302490700,306557721,311197696,434938830, $302392523,312845836,323433497,302457932,308655769,323335897, $325432089,302822873,325891723,331710464,430744779,432841933, $455910603,426550361,447522521, 0,432841867,434939022, $449619083,449619595,451716750,466396811,426550425,460105817, $ 0,432842315,434939531,458007435,428647577,449619737, $428188811,449160971, 0,432841995,434939149,458007819, $306422789,297935684,293774150,297972505,307017113,327974912, $453813067,455910283,432841557,296527449,430286411,321365515, $ 0,445424728,300622740,296264526,298198091,308651340/ DATA (SYMBCD(J), J = 1597, 1710)/ $319268498,327886681,445424792,302719956,298361742,300295243, $445425049,319563350,325527308,329627033,317466134,323430092, $329623435, 0,451945759,307143705,300622738,296100612, $451945823,309240921,302719954,298197828,451946080,326084382, $328050393,323757527,309048928,326051547,323790424,317437143, $317400660,323561103,321299980,312845515,304489485,300430551, $315303444,321463887,319202764,312836096,426451800,300721241, $309077271,313140560,310780996,428581784,306980119,462202582, $323626317,306455556,460105366,321529165, 0,451683673, $309109784,298492754,296199053,300295243,308651404,319268434, $321562135,311305438,309339425,315663904,323957977,304882645, $298394510,300299467,312878543,319366678,317465947,311338271, $313533920,323944448,455812568,313304153,300688342,304751891, $439133208,302720148,311014675,300491600,296166284,304456971, $314975758,445228050,298328974,300295243, 0,447751391, $307176605,309208475,325953244,319661337,304849812,296264527, $298230859,310682951,312648964,306324549,449651863,300557201, $298296269,304447488,426418967,298624089,306979990,304686027, $437036120,304817170,298169426,309011800,317498969,325854999/ DATA (SYMBCD(J), J = 1711, 1824)/ $327821007,318912089,325822164,323462596, 0,426418967, $298624089,306979990,304653390,306586827,437036120,304817169, $302457932,308651339,317072974,325625620,330082141,328181408, $319825310,315499993,321595092,331953612,321365649,325723929, $328115935,324009984,437035922,296166220,298165323,308716815, $439133138,298263436,300253184,437035787,439133003,458008280, $327952089,321693144,308946003,300528723,308880716,314946643, $306783500,312845771,321267407, 0,430973920,305112222, $309208654,323364555,435168350,307111438,321267403,327529753, $293975321,296058880,439132868,441230084,439034896,302425227, $310748556,319235729,462202446,321267339,329623501,336050009, $323430028,325419008,437035915,439133203,300360587,460105365, $319338265,325789332,319333775,308716620,298169177,304906240, $447751391,307176605,309208475,321762715,307045401,300655573, $304719122,317273499,309142617,302752789,306816274,445195281, $298328910,296100810,310650183,312648900,304231698,304653264, $298263436,302327048, 0,443327512,298492754,296199053, $300295243,308651404,319268434,321562135,317465945,309114073, $304882645,298394510,300299467,312878543,319366678,317456384/ DATA (SYMBCD(J), J = 1825, 1938)/ $443294667,443294731,455878219,455878283,428549016,304916377, $428549015,304883608, 0,432546765,302392459,310748620, $321365650,323659351,319563161,311207000,300589970,289551627, $314975759,321463894,319567129,306979861,300491460, 0, $464299225,302785429,296297295,298230732,304456907,314975759, $321463893,319530456,313308377,304882645,298394510,300299467, $312878543,319366678,317470168,330039296,447489163,447489227, $428549016,304916249,428549015,304883480, 0,426418967, $298624089,306979990,302523405,306557977,304882774,300426189, $302392459,308651404,319235729,325723863,323790424,323725012, $457746135, 0,441197591,298492754,296199053,300295243, $310748620,323430161,329918295,325887577,317433171,308749316, $430416845,304489740,317105807,327726935,325854808,317400403, $308716612, 0,428647321,302785622,314811845,318911385, $300688406,312714629,318908036,460105367,319431561,293806788, $ 0,456139972,458237060,426418967,298624089,306979990, $304653390,308684172,319203024,329888793,304882774,302556174, $304489675,314942988,323430161,329885657, 0,432710679, $309077145,302785429,296297295,298197963,304456908,312976786/ DATA (SYMBCD(J), J = 1939, 2052)/ $430416781,300295244,308716879,447292751,314975691,321234636, $329754514,332048216,327984856,330016661,447194509,317072972, $325494607, 0,451945099,451945995,449783243,432580049, $419799947,444966539, 0,443556683,445653899,437266144, $332376029,334342040,330016406,460334943,332310427,330049303, $323695702,323692309,329885521,327624332,314942091,457909973, $327788305,325527116,314933248,462366558,332408666,330180382, $326084192,315630815,305046490,298558291,296231821,300295307, $312845772,321332880,449848607,307143706,300655507,298329037, $302392459, 0,443556683,445653899,437266016,328181598, $332244887,329885391,321299916,308650635,456140511,328148827, $330016531,323462669,314975435, 0,443556683,445653899, $453846418,437266400,332212128,439035350,423994955,325592587, $ 0,443556683,445653899,453846418,437266400,332212128, $439035350,423994443, 0,462366558,332408666,330180382, $326084192,315630815,305046490,298558291,296231821,300295307, $310748620,321332946,449848607,307143706,300655507,298329037, $302392459,444966284,319235730,451487634, 0,443556683, $445653899,470820491,472917707,437265888,464529696,439035734/ DATA (SYMBCD(J), J = 2053, 2166)/ $423994443,451258251, 0,443556683,445653899,437265888, $423994443, 0,456140047,308716684,302359435,294003406, $292037393,296231695,454042831,306619403,447751968, 0, $443556683,445653899,472917011,451651275,449554059,437265888, $464529632,423994443,451258187, 0,443556683,445653899, $437265888,423994955,325625355, 0,443556683,443557131, $445654349,472917259,472917707,475014923,437265696,472918368, $423994379,453355467, 0,443556683,443557518,443459211, $470820491,437265632,464529632,423994379, 0,449848543, $305046490,298558291,296231821,300295243,310748620,321332945, $327821144,330147614,326084192,315635104,311403677,302851031, $298427280,300328011,444966284,319235729,325723928,328050398, $321912832,443556683,445653899,437266208,334473245,336439256, $329983573,304789280,332376029,334342040,327886421,423994443, $ 0,449848543,305046490,298558291,296231821,300295243, $310748620,321332945,327821144,330147614,326084192,315635104, $311403677,302851031,298427280,300328011,444966284,319235729, $325723928,328050398,321926093,300360720,306750673,313009550, $314811846,321070728,323270030,316941831,321103496, 0/ DATA (SYMBCD(J), J = 2167, 2280)/ $443556683,445653899,437266144,332376029,334342040,330016406, $304821984,330278813,332244824,327919254,449521173,321529484, $325429067,331786126,455747277,327558988,331788939,304447488, $464463774,334505882,332277598,328181344,313533599,302949403, $304915608,321529554,437101721,321562260,325658319,323397196, $314942603,300295053,296198993,293970765,298221568,451945547, $454042763,439362458,303048672,332212128,432383307, 0, $441459669,298361742,300295307,314943052,325527313,336606432, $302687185,300360716,306557920,315635552,342884352,437265483, $439362701,466625611,433071392,458237984, 0,441459723, $443556941,458236939,458237451,460334669,475014667,435168672, $468724064, 0,439363083,441460299,468722379,435168608, $460335200,421897163,447063755, 0,437265686,304460896, $313205899,468723030,433071392,460335200,432383307, 0, $466625227,468722443,441459674,305145824,426092107,325625355, $ 0,466527124,331710464,432973716,298156032,455747095, $317465945,309109784,298492754,296199053,300295243,308651404, $319235665,323692187,321857055,315630816,305112094,302949469, $305083609,304882645,298394510,300299467,312878542,319333974/ DATA (SYMBCD(J), J = 2281, 2394)/ $321758750,315621376,428877067,430974221,462431499,428877600, $430941919, 0,453780889,309109784,298525523,296231821, $300295307,312845772,443327576,300622739,298329037,302392459, $432612754, 0,466625433,331953040,331887499,331710464, $433072025,298398608,331887499,331710464,468166479,325592658, $315303255,309077080,300655509,298427345,304620752,313042322, $321595096,330082265, 0,468821922,334538786,336701412, $330442467,321955359,317597080,310781128,306394786,321922588, $315106636,310682823,304260036,295838469,293806919,298001221, $ 0,468821922,334538786,336701412,330442467,321955359, $317597080,310781128,306394786,321922588,315106636,310682823, $304260036,295838469,293806919,298001221,447587482,302785493, $300524560,306652493,317105806,327690067,329951000,323823067, $313360384,470394833,329787088,321431058,313206039,306979864, $298558293,296330129,302523536,310945106,319497815,325855064, $334211093,336166912,449717643,432678804,432383883, 0, $449717643,432940956,432678804, 0,432908045,462267277, $ 0,451847580,317564444,317633428,336213453,314975691, $319169997, 0,439493700,441590916,479340804,481438020/ DATA (SYMBCD(J), J = 2395, 2508)/ $431106660,430056836,469903940, 0,434807700,300524564, $300580864,430744665,317109273,317044772,317030400,435299926, $297939876,319501156,319468388,345123229,343028677,344109956, $344074635,341966848,447751327,302916570,298558290,296166284, $302359691,312878543,319333972,323790493,321889760,313537888, $309306460,302851031,298394510,300295179,440771852,315074001, $319432281,321824287,317731798,319488000,443688035,303113184, $300885020,304981145,306947093,439460897,303015005,307111130, $309077142,298460306,308815054,306586699,302294023,304264211, $306750607,304522252,300229576,302195781,308412416,435299427, $307307744,309273756,304981017,302752917,439461025,307209309, $302916570,300688406,311043090,300426190,302392395,306488455, $304264339,302556175,304522380,308618440,306390085,300023808, $462169818,321758619,311239897,306914451,308847952,319301265, $325694875,311207126,308913425,313014043,325691089,329787344, $338241685,340502618,336471966,328181344,315630815,305079260, $298656599,296362897,300393549,308684171,321234700,331786190, $464365331,327722832, 0,426321109,325661394,309012178, $ 0,298394766,308651209,306390020,300032901,295936842/ DATA (SYMBCD(J), J = 2509, 2622)/ $298263570,306881880,317498969,327952214,329852686,323364363, $317040012,315041231,319235533,455911128,327886610,325527180, $ 0,458008082,317138380,319137483,329688975,460105298, $319235596,321238546,319464920,313304281,302785429,296297295, $298230732,304456907,312878543,319370457,304882645,298394510, $300285952,441459603,298329037,302396640,300528595,302720152, $311207321,319563351,323659410,321365452,310748299,302392271, $300529176,321594962,319268236,310752224,309329920,453715477, $321562198,319563161,309109784,298492754,296199053,300295243, $308651404,319272153,304882645,298394510,300285952,462431762, $317138380,319137483,329688975,464528978,319235596,321238546, $319464920,313304281,302785429,296297295,298230732,304456907, $312878543,319370457,304882645,298394510,300299872,330301440, $432546961,313075220,321594904,315401433,302785429,296297295, $298230732,304456907,314975758,443327576,300589970,298263500, $ 0,456107550,321824414,323987040,317728095,311370972, $307012555,298033989,451945822,311305432,304587787,300163974, $295871172,287449605,285418055,289612357,432842265, 0, $460105163,314844421,304227204,293774022,291742472,295936774/ DATA (SYMBCD(J), J = 2623, 2736)/ $458007947,312747205,304231954,319464920,313304281,302785429, $296297295,298230732,304456907,312878543,319370457,304882645, $298394510,300285952,441459467,443556683,434709590,309077337, $317498968,323724949,319268364,321238489,321627733,317171148, $319137483,329688975,435168480, 0,443557023,309273887, $309342933,294364057,304915608,306881551,302392395,437036120, $304784335,300295179,308651341,315064320,445654239,311371103, $311440149,296461273,307012824,308978699,300163974,295871172, $287449605,285418055,289612357,439133336,306881483,298066758, $291635200,441459467,443556683,457975383,323692247,325854873, $321693144,308946003,300528723,308880716,314946643,306783500, $312845771,321267407,435168480, 0,441459602,296166220, $298165323,308716815,443556818,298263436,300266464,309329920, $426418967,298624089,306979990,304686027,437036120,304817170, $298169426,309011800,317498969,325854999,327853643,455911127, $325756427,459876182,334243929,342665560,348891541,344434956, $346405081,346794325,342337740,344304075,354855567, 0, $426418967,298624089,306979990,304686027,437036120,304817170, $298169426,309011800,317498969,325854999,327853711,323364555/ DATA (SYMBCD(J), J = 2737, 2850)/ $455911127,325756495,321267339,329623501,336035840,443327512, $298492754,296199053,300295243,308651404,319268434,321562135, $317465945,309114073,304882645,298394510,300299467,312878543, $319366678,317456384,426418967,298624089,306979990,304685892, $437036120,304817170,293745746,306881816,315401753,323757783, $327853842,325559884,314942731,306586703,304690840,325789394, $323462668,314946116,302120960,458007812,460105028,453584405, $317465945,309109784,298492754,296199053,300295243,308651340, $317171218,443327576,300589970,298263500,438445572, 0, $426418967,298624089,306979990,304686027,437036120,304817170, $298169426,309011800,317498969,323757719,321594903,321650688, $453748246,321594967,319563097,307012568,298558357,300557712, $317174678,300590481,317203917,314975435,302359372,294036238, $296166221, 0,443556818,298263436,300262539,310814031, $445654034,300360652,302363481,315392000,426418967,298624089, $306979989,302490637,306557977,304882773,300393421,302392459, $310748556,319235730,462202514,321332812,323331915,333883407, $464299730,323430028,325419008,426418967,298624089,306979989, $302490637,306557977,304882773,300393421,302392459,308651404/ DATA (SYMBCD(J), J = 2851, 2964)/ $319235729,325756633,323790551, 0,426418967,298624089, $306979989,302490637,306557977,304882773,300393421,302392459, $310748556,319235664,460105296,321300108,327526283,335947918, $342370580,344762585,344700697,323495565,327516160,430613464, $304915737,313238868,443327767,311043280,306652172,298165067, $294003469,296166285,296105168,308716811,317040204,325564120, $323725014,327919384,325887641,319563158,313140496,310814027, $ 0,426418967,298624089,306979989,302490637,306557977, $304882773,300393421,302392459,310748556,319235730,464299595, $319038853,308421636,297968454,295936904,300131206,462202379, $316941637,308412416,460105367,319464463,298230603,432710615, $304915737,319534039,304882968,319530647,432448525,310781388, $321303565,310748619,321300111, 0,433202052,435299268, $433202532,432153924, 0,443688132,445785348,431105316, $430056708, 0,447751044,460334340,432711445,430417615, $ 0,447653148,313370012,315532639,309339232,300917661, $298689497,304850324,434939158,315237842,317203854,310785048, $298525524,296297360,302458187,432547021,312845705,314811717, $308421700,300065671,298066889,302261191, 0,441459806/ DATA (SYMBCD(J), J = 2965, 3078)/ $307111134,307246240,306328725,304686212,308880533,428647320, $302818202,294433561,319599897,315368985,315434265, 0, $434938776,300655640,300725197,298197963,302392269, 0, $434938776,300655640,300725195,298197965,302392330,300163975, $ 0,435168158,300491806,300954590,300692429,298197963, $302392269, 0,432939995,298656603,296625054,300917856, $311436767,319759964,321725976,317433045,308884768,315598302, $319694362,317465942,442934412,308651276,308707328,468722507, $441459998,311305434,304915417,296592221,298820640,307242271, $317662878,330278880,459875921,319268365,323331851,331753422, $333981522,325648384,468461463,334178327,336340953,332179288, $327886481,319235468,310748235,298197838,296264595,311141785, $317564381,315598112,307209309,304981144,311076430,325461899, $333817868,335983691,300295054,298361811,304788571,307013262, $327559051, 0,437035992,302752856,302822221,294003531, $298188800,437035992,302752856,302822219,294003533,298197899, $296002247, 0,441459807,300528799,300528800,309306323, $430351116,296067980,296124416,439231643,304948251,302916702, $307209568,321922847,330213211,327984856,313205973,308913426/ DATA (SYMBCD(J), J = 3079, 3192)/ $315176544,326084381,328050393,323757591,440837196,306554060, $306610176,430482259,298525719,306947350,319399570,327755667, $334148435,298492950,306914581,319366801,327722898,334145495, $ 0,445784916,310509568,433202516,297926656,433202052, $ 0,435168153,437265305,451945881,454043033, 0, $323397323,441131922,296231758,298197835,430449612,432612240, $300360652,296072531,323761693,319628888,325854938,321758749, $453944922,325844992,437265311,296657755,298624024,306980121, $313369949,311403680,303038464,464201748,329856665,334112399, $432678868, 0,454042756,456139844,445424664,298525523, $296231822,302392523,314943116,327624529,329918230,323757529, $311211289,304882646,298427280,300360780,308655499,321267406, $327722772,325789272,317489152,443557017,445654169, 0, $306787478,304751824,306652240,308946070,441001092,440673350, $306324678,306459417,298591257,298656537,428647961,445425048, $319595930,311210763,298132491,298197771,428189195,444966282, $319137164,310738944,443556895,298722135,296362895,302392523, $312845836,323462868,325822108,319792480,309329920,437134493, $313533771, 0,432907164,300885023,307242400,319792734/ DATA (SYMBCD(J), J = 3193, 3306)/ $323888794,321660373,296068811, 0,435168928,311174616, $321627798,325691089,323429900,312845451,300295053,296189952, $451945298,327759328,317030400,456139744,298558424,307012953, $319563414,325691089,323429900,312845451,300295053,296189952, $458139231,315630880,305112028,298558354,300360780,310748491, $319170190,325625554,323659287,313271576,304849877,298385408, $460334155,430974688, 0,441459679,298754971,300721240, $313239062,323626706,325559949,321267083,306553804,298230607, $296297364,302720215,317466201,323856029,321889696,307232768, $458008150,317334803,308913172,298525529,296559517,303015136, $311436767,321824409,323626575,317072651,306553804,298254336, $451847627,432678932, 0,432678932, 0,466756356, $ 0,432777239,432580625, 0,447882466,305112027, $298525586,300328009,308487492, 0,431104994,305112283, $311108882,308716617,300098372, 0,441263246,430679505, $451650385, 0,436609995,298197965,302392330,300163975, $ 0,434545548,300262412,300318720,441590919,449979783, $460236383,315630752,300917597,296592281,300688471,317367892, $323593937,325527116,314942603,300294990, 0,443556895/ DATA (SYMBCD(J), J = 3307, 3420)/ $298722135,296362895,302392523,312845836,323462868,325822108, $319792480,309343456,305112094,300819351,298460111,302425164, $308655435,317072909,321365652,323724892,319759839,313524224, $437134493,313533771,445621515,436577867, 0,432939995, $298656603,296625054,300917920,315631199,323954396,325920408, $317400212,302621585,296166219,449848863,321857180,323823192, $315303060,430351246,302458188,319170189,325530638,312845899, $323364558,325582848,432939995,298656603,296625054,300917920, $315631199,323921562,321660311,309048736,319792733,321725976, $315340183,319497876,325658319,323397196,314942603,300295053, $296198992,298361808,298301013,323561103,321299980,314933248, $449783179,451945931,451945233,327726283,323321856,435168086, $430646232,307012953,319563414,325691089,323429900,312845451, $300295053,296198992,298361808,298300761,317466198,323593873, $321332684,312849376,321926111,311404128, 0,456042012, $321758876,323921503,317728032,305112029,298689367,296264590, $302392523,312845836,323430097,325658261,319530328,311174231, $300589970,445654175,302949339,298558353,300360780,308655435, $317072974,323528338,321562071,313262080,430973786,430842782/ DATA (SYMBCD(J), J = 3421, 3534)/ $303047840,317630045,323954400,433005599,307209693,460334813, $323822997,313107728,310752922,313173267,308815051, 0, $441459679,298754970,300688535,315336280,323823261,321889696, $307246240,303014877,300753944,306951575,319563354,321824287, $315634839,300622741,296330063,298230732,306554251,321267341, $325560019,323659350,315339927,302719957,298427279,300327948, $306558347,319170125,323462803,321562134,315326464,458008150, $317334803,308913172,298525529,296559517,303015136,313533983, $323921626,325723792,321332684,310748235,300295054,298296272, $302490574,443130964,300622745,298656733,305112288,447751647, $321824410,323626576,319235468,310738944,451847627,432678932, $ 0,432678932, 0,466756356, 0,432777239, $432580625, 0,447882466,305112027,298525586,300328009, $308487492,443622494,302883798,300491789,304424134, 0, $431104994,305112283,311108882,308716617,300098372,435233886, $307078358,308880525,304423878, 0,441459860,430876119, $451846999, 0,434480012,300327948,302326728,298024960, $434545548,300262412,300318720,441590919,449979783,458139228, $323856092,326018655,315630752,300917597,296592281,300688471/ DATA (SYMBCD(J), J = 3535, 3648)/ $317367892,325661531,300721240,317400661,323626706,325527116, $314942603,300294990,296199056,300393358, 0,449848543, $305046490,298558291,296231821,300295243,308651404,319235729, $325723928,328050398,323986976,315635104,311403677,302851031, $298427280,300328011,442869068,317138513,323626712,325953182, $319815680,449717323,454042763,454042973,307078170,451847387, $302841856,439231643,304948251,302916702,307209568,319825631, $328115995,325887575,315270291,300458831,291878432,323987165, $325953177,319530131,428254030,300360972,317072973,323466190, $310748619,321267343, 0,439231643,304948251,302916702, $307209568,319825631,328115995,325887511,313210400,323987165, $325953177,319534294,313206293,321529490,323462733,319169867, $304456588,296133391,294134609,298328911,447423957,319432274, $321365517,317072715, 0,458204427,460334411,460333841, $327712768,443556758,443557728,443524639,330314646,300655768, $313271831,321595028,323528270,317072651,304456588,296133391, $294134609,298328911,447489495,319497812,321431054,314975499, $ 0,460236444,325953308,328115935,321922464,309306461, $300753815,296330063,298230732,304456971,317072974,323495571/ DATA (SYMBCD(J), J = 3649, 3762)/ $321562134,315335895,304817108,298399136,311403677,302851031, $298427278,300299531,314975758,321398356,319488000,437265306, $464529181,323822932,308847759,304461466,311043217,304587787, $435070112,311436893,437200031,311404125,326018846,330301440, $447751327,305079324,302818391,309011862,323725016,328017693, $326084128,313537888,309306526,305013849,306947286,449521239, $323757786,326018719,319829206,300589907,294167310,296100875, $310748684,321300111,323561044,319464854,443229205,298427217, $296166284,302363915,317072909,321365587,319455232,460105367, $319464852,308946005,302719960,300786717,307209568,319825567, $326051612,327952084,323528206,314975435,302359436,296166223, $298329039,298267733,302752795,305046751,313538207,326018776, $323626577,317138252,308641792,451847627,432678932, 0, $432678932, 0,475144708, 0,432777239,432580625, $ 0,456271201,307176475,298558290,296166281,300098564, $447784093,302818262,298361740,300131332, 0,443688226, $313501082,315303249,308716618,298033796,443688225,313402711, $310977743,304456583, 0,445654292,435070551,456041431, $ 0,430285580,296133516,298165065,291733504,430351116/ DATA (SYMBCD(J), J = 3763, 3876)/ $296067980,296124416,449979271,460465351,462300891,328017755, $330180382,326084128,311436383,300852187,302818392,319432338, $435004505,319465044,323561103,321299980,312845387,298197837, $294101776,296264592,296189952,443556895,298722135,296362895, $302392523,312845836,323462868,325822108,319792480,309343327, $300819351,298460111,304493581,308684108,319206860,321365652, $323724892,317699614,313500895,302972928,437134493,313533771, $437134363,307111198,310748491, 0,432907164,300885023, $307242400,319792734,323888794,321660373,298169243,300786652, $302982303,315598366,321791578,319563157,296072076,325461707, $430286539, 0,435168928,309048288,300918367,456139927, $443295064,319530645,325658321,323429900,312845451,300295053, $296199055,441165143,319497875,449554005,323561105,321332620, $457713165,312878220,300327823,438707086, 0,451847627, $319141408,319141408,296232720,451847056,432580369,327680000, $435168151,437232600,435168864,321893407,321893336,307012953, $319563414,325691089,323429900,312845451,300295053,296199055, $432776151,304883032,319530644,449586774,323593873,321332620, $457713165,312878220,300327823,438707086, 0,454010461/ DATA (SYMBCD(J), J = 3877, 3990)/ $323921503,315630880,305112028,298558354,300360780,310748491, $319170190,325625554,323659287,313271576,304849877,456074655, $311403614,441426972,300655570,302458060,434644045,310781260, $319202960,449193550,323528338,321562007,457811478,313238807, $304817107,443261973,300482560,430974688,304460640,296724127, $458236939,304447488,441459679,298754971,300721176,306947478, $319465044,323561103,321299852,306586573,298296210,300557333, $306914711,319563353,323856029,321889696,307246111,300852187, $302818456,315336214,323626706,325559949,321267083,306553804, $298230607,296297364,302720151,315368985,321758813,319796830, $315597983,300888974,304494028,323420160,455812564,311010515, $302654358,296526682,298755103,309339424,317695581,323790484, $321365452,310748299,300295054,300360716,455910934,313144920, $317367572,308945941,298595476,300622745,298656733,307213211, $302982367,311403998,321762655,319727193,321529359,314979789, $310781068,300318720,449750412,317076893,317629900,432711637, $334115733,298461140, 0,432711637,334115733,298461140, $ 0,466756356,295843748,334635844, 0,432842713, $334246809,298592216,432580561,333984657,298330064, 0/ DATA (SYMBCD(J), J = 3991, 4104)/ $445785250,303014811,296428370,298230793,306390276,312620324, $313664738,305112027,298525586,300328009,308487492, 0, $431104994,305112283,311108882,308716617,300098372,297939812, $298984482,307209499,313206098,310813833,302195588, 0, $441459807,308978836,441459860,441459935,304784532,430875549, $315336151,430876119,430875484,317466071,451847581,298558295, $451846999,451847644,296493911, 0,438707211,300262284, $298230734,302457933,304423944,298038221,300295180,302425037, $436577354,438707208, 0,434578317,298197963,302359628, $304522254,300364749,300295180,302425037, 0,443688135, $310621412,311567623,453944989,319792480,307241951,296657755, $298623960,317335059,321431119,319202636,306586637,300365341, $317662559,307209182,298754971,300721621,321496721,323462733, $319169867,306553804,296166350,455550348, 0,445653771, $445555531,293975325,325429003,445654795,434677329,432547472, $ 0,433070987,435135436,433071520,321889950,325986009, $323724886,315274207,315598430,323888793,321627542,434840982, $321562260,325658319,323397196,314942347,434808213,321529490, $323462733,314975180, 0,462268125,321889760,309339231/ DATA (SYMBCD(J), J = 4105, 4218)/ $300852123,296493907,298329038,304489675,317040204,325527312, $462268123,323921502,317695199,305079259,298591123,300426317, $308684236,321300110,325592848, 0,433070987,435135436, $433071456,319792797,325953304,327788240,323429900,312845195, $435135839,319759965,323856088,325691024,321332749,312878028, $ 0,433070987,435135436,433071776,435136159,324023254, $313206101,434808149,434513548,323335051,323321856,433070987, $435135435,298169248,324023263,323987104,434840918,313177045, $313163776,462268125,321889760,309339231,300852123,296493907, $298329038,304489675,317040204,325527312,327820756,462268123, $323921502,317695199,305079325,300786584,298427344,302457933, $308684236,321300110,325592787,317302228, 0,433070987, $433071072,300262283,462431968,325429003,462432011,434841302, $434808533, 0,433070987,300266400,300950475, 0, $449848720,312911052,304489421,298328912,449848800,317203853, $312878283,304456652,298230608, 0,433070987,300266400, $300950475,462431968,300562208,300528791,325429003,443262731, $ 0,433070987,433071072,300299212,323364491,432383627, $ 0,433070987,435004363,298169307,314946464,315045792/ DATA (SYMBCD(J), J = 4219, 4332)/ $315045723,314947419,329623435,466626443, 0,433070987, $435069899,298169309,327529376,325531360,325531360,328214283, $ 0,443556959,300852123,296493907,298329038,304489675, $317040204,325527312,329885528,328050397,321889760,309343519, $305079259,298591123,300426317,310781324,321300176,327788312, $325953118,315598111, 0,433070987,435135435,298169248, $317728351,323954396,325887639,321594837,300594143,317695582, $323888793,321627606,300613632,443556959,300852123,296493907, $298329038,304489675,317040204,325527312,329885528,328050397, $321889760,309343519,305079259,298591123,300426317,310781324, $321300176,327788312,325953118,315598111,449259209,327464334, $317138697, 0,433070987,435135435,298169248,315631199, $323954396,325887639,321594773,300594143,315598430,323888793, $321627542,300627221,323331787,447391435, 0,460236383, $315630752,300917597,296592281,300688471,315270676,321496721, $323429965,314975372,302425038,296171229,321824286,315597983, $300884893,298689497,304883094,319465107,325625550,321267083, $306553804,296157184,441427083,443524299,306557728,321922655, $428876575,321880064,433070993,300360780,310748555,321267406/ DATA (SYMBCD(J), J = 4333, 4446)/ $327722784,433071072,300459022,304522508,314975821,323430097, $326117152, 0,428877067,428876640,310851360,326116622, $462431499, 0,428876939,428876640,306656736,306656733, $306558429,327529952,327628960,338700046,475014923, 0, $430974603,325432160,298854091,460334752,296072928,298165067, $ 0,428877014,308651275,428876640,311113440,324019414, $460334358,310738944,458236747,460333963,430974688,430973791, $323990412,325461707,430286539, 0,455910987,323335769, $323790475,455812568,313304217,302785430,296330065,298263564, $306554187,317072974,455812440,306979863,300622739,298361806, $302425228,312878670, 0,433070987,300266400,300950475, $434840664,309110169,319563414,325691089,323429900,314942667, $304489422,434840792,315368983,321595027,323528270,319202700, $308683726, 0,455812568,313304217,302785430,296330065, $298263564,306554187,317072974,455812629,317433176,306979863, $300622739,298361806,302425228,312878541,319268430, 0, $456140363,323335776,324019851,455812568,313304217,302785430, $296330065,298263564,306554187,317072974,455812440,306979863, $300622739,298361806,302425228,312878670, 0,432612946/ DATA (SYMBCD(J), J = 4447, 4560)/ $321562135,317465945,307012632,298525523,296264590,302392459, $312845772,321336211,319399445,317433176,306979863,300622739, $298361806,302425228,312878541,319268430, 0,447751392, $305112092,302359627,447751519,309306462,441427036,304460633, $311207192,430744408,311164928,458008153,321201671,316876101, $308454470,302228359,458008202,321103301,312616068,302162823, $455812568,313304217,302785430,296330065,298263564,306554187, $317072974,455812440,306979863,300622739,298361806,302425228, $312878670, 0,433070987,300266400,300950475,434807960, $311207385,321660565,323335125,306947352,315368983,321562187, $323321856,433070943,296690589,300852254,303014880,298857375, $298787806,300917663,432841611,300266393,300721099, 0, $433070943,296690589,300852254,303014880,298857375,298787806, $300917663,432841604,300037017,300721092, 0,433070987, $300266400,300950475,458008153,300398233,300364946,319137419, $443131531, 0,433070987,300266400,300950475, 0, $432841611,300266393,300721099,434807960,311207385,321660565, $323335125,306947352,315368983,321562187,323335829,330049497, $340568344,346728779,457877335,334243928,342599957,344303947/ DATA (SYMBCD(J), J = 4561, 4674)/ $ 0,432841611,300266393,300721099,434807960,311207385, $321660565,323335125,306947352,315368983,321562187,323321856, $441230360,298525523,296264590,302392459,312845772,321332881, $323593814,317465945,307016856,302752726,298427281,300360717, $306586956,317105678,321431123,319497687,313271448, 0, $432841604,300037017,300721092,434840664,309110169,319563414, $325691089,323429900,314942667,304489422,434840792,315368983, $321595027,323528270,319202700,308683726, 0,455910980, $323106393,323790468,455812568,313304217,302785430,296330065, $298263564,306554187,317072974,455812440,306979863,300622739, $298361806,302425228,312878670, 0,432841611,300266393, $300721099,434742294,306980121,317502419,302687383,311174616, $317489152,453715416,311207001,298591062,298460179,313042384, $449357263,317138316,451323148,304489357,434512782,296171030, $317400472,451650840,304882583,434906006,300561301,302654802, $317236751,319235532,310748235,298197838, 0,435168203, $302363616,303047691,428647641,309080857,294397144, 0, $432841615,300295243,310748556,321368985,300721103,302425228, $310781325,321369689,321234571,455911065,323321856,428647563/ DATA (SYMBCD(J), J = 4675, 4711)/ $428647257,306624025,317498509,453813387, 0,430744715, $430744473,306656665,306656662,306558358,323335577,323434457, $332179086,468493963, 0,430745099,321237849,298624587, $455910937,296072793,298165067, 0,428647563,428647257, $306624025,317498509,297940505,306553796,297926656,451683147, $455910348,430745177,430744408,317469644,321267275,430286411, $ 0/ C DATA (ISTART(J), J=1,229)/ $ 1, 5, 16, 26, 34, 39, 43, 54, 58, 60, 66, 70, 73, $78, 82, 93, 100, 112, 120, 131, 134, 140, 143, 148, 151, 154, $ 296, 305, 314, 322, 331, 340, 344, 355, 360, 364, 370, 374, 376, $385, 390, 399, 408, 417, 421, 430, 434, 439, 442, 447, 450, 455, $3177,3186,3189,3197,3205,3208,3217,3229,3232,3247,3259,3262,3264, $3266,3269,3275,3281,3285,3290,3293, $ 158, 162, 173, 176, 180, 185, 189, 193, 205, 207, 211, 214, 219, $223, 227, 238, 242, 249, 253, 256, 265, 275, 278, 287, $ 459, 471, 486, 494, 506, 515, 526, 535, 549, 554, 563, 567, 577, $584, 598, 607, 613, 623, 632, 636, 644, 655, 662, 672, $ 683, 690, 710, 726, 740, 749, 757, 775, 785, 790, 799, 809, 815, $826, 834, 855, 868, 898, 918, 935, 942, 952, 958, 967, 975, 983, $1272,1290,1305,1319,1335,1350,1360,1388,1399,1406,1417,1427,1432, $1450,1461,1478,1494,1509,1519,1535,1542,1553,1559,1568,1576,1585, $3306,3325,3330,3351,3373,3378,3396,3419,3433,3462,3485,3488,3490, $3492,3495,3505,3515,3519,3523,3526, $ 990, 997,1017,1023,1029,1038,1045,1055,1080,1085,1095,1101,1112, $1120,1133,1154,1162,1175,1183,1190,1205,1226,1234,1252, $1592,1611,1637,1650,1671,1686,1701,1716,1737,1744,1757,1767,1779/ DATA (ISTART(J), J=230, 432)/ $1789,1810,1825,1834,1849,1865,1872,1887,1905,1916,1932, $1953,1960,1978,1995,2009,2018,2026,2046,2056,2061,2071,2081,2087, $2098,2106,2126,2138,2167,2185,2202,2209,2220,2226,2235,2243,2251, $2522,2540,2556,2568,2587,2600,2617,2637,2651,2663,2678,2693,2701, $2725,2742,2757,2776,2791,2803,2817,2825,2842,2855,2874,2894,2913, $3546,3566,3572,3592,3616,3620,3638,3660,3673,3702,3724,3727,3729, $3731,3734,3744,3754,3758,3762,3765, $4074,4082,4102,4121,4136,4146,4154,4176,4185,4189,4199,4208,4214, $4224,4232,4252,4264,4287,4302,4323,4329,4341,4347,4357,4364,4371, $4379,4396,4413,4429,4446,4464,4474,4497,4508,4519,4530,4539,4543, $4562,4573,4591,4608,4625,4634,4656,4663,4674,4680,4690,4697,4704, $3784,3803,3809,3825,3846,3853,3876,3904,3909,3941,3969,3976,3980, $3984,3991,4003,4015,4031,4042,4050, $2258,2260,2262,2283,2289,2301,2305,2309,2320,2336,2360,2373,2377, $2381,2384,2391,2399,2402,2406,2415,2435,2454,2473,2500, $2927,2932,2937,2942,2964,2977,2983,2990,2997,3012,3027,3051,3056, $3063,3070,3086,3098,3100,3102,3104,3123,3130,3135,3154/ DATA (WIDTH(J), J=1,216)/ $18.,21.,21.,21.,19.,18.,21.,22., 8.,16.,21.,17.,24.,22.,22.,21., $22.,21.,20.,16.,22.,18.,24.,20.,18.,20., $19.,19.,18.,19.,18.,12.,19.,19., 8.,10.,17., 8.,30.,19.,19.,19., $19.,13.,17.,12.,19.,16.,22.,17.,16.,17., $20.,20.,20.,20.,20.,20.,20.,20.,20.,20.,26.,26.,22.,26.,14.,14., $16.,10.,10.,20., $18.,21.,17.,18.,19.,20.,22.,22., 8.,21.,18.,24.,22.,18.,22.,22., $21.,18.,16.,18.,20.,20.,22.,20., $21.,19.,19.,18.,16.,15.,20.,21.,11.,18.,16.,21.,18.,16.,17.,22., $18.,20.,20.,20.,22.,18.,23.,23., $20.,22.,21.,22.,21.,20.,23.,24.,11.,15.,22.,18.,25.,23.,22.,22., $22.,22.,20.,19.,24.,20.,24.,20.,21.,20., $20.,21.,19.,21.,19.,13.,19.,22.,11.,11.,21.,11.,33.,22.,20.,21., $20.,17.,17.,15.,22.,18.,24.,20.,19.,18., $20.,20.,20.,20.,20.,20.,20.,20.,20.,20.,26.,26.,22.,26.,14.,14., $16.,10.,10.,20., $20.,22.,18.,20.,21.,20.,24.,22.,11.,22.,20.,25.,23.,22.,22.,24., $22.,21.,19.,19.,21.,20.,23.,22./ DATA (WIDTH(J), J= 217, 432)/ $23.,21.,20.,19.,18.,18.,22.,23.,12.,20.,20.,23.,20.,17.,18.,22., $19.,21.,20.,20.,22.,18.,23.,23., $20.,24.,21.,23.,23.,22.,22.,26.,13.,18.,23.,20.,27.,25.,22.,23., $22.,24.,23.,21.,25.,20.,26.,22.,21.,22., $21.,19.,18.,21.,18.,15.,20.,21.,13.,13.,20.,12.,33.,23.,18.,21., $20.,17.,17.,14.,23.,20.,29.,20.,21.,20., $21.,21.,21.,21.,21.,21.,21.,21.,21.,21.,26.,26.,22.,26.,15.,15., $17.,11.,11.,21., $20.,20.,21.,21.,19.,18.,21.,22., 9.,17.,21.,17.,24.,22.,22.,20., $22.,20.,20.,17.,22.,20.,26.,20.,19.,20., $20.,20.,18.,20.,18.,14.,20.,20., 9., 9.,19., 9.,31.,20.,19.,20., $20.,14.,17.,11.,20.,16.,24.,18.,16.,18., $20.,20.,20.,20.,20.,20.,20.,20.,20.,20.,25.,25.,23.,25.,14.,14., $16.,11.,11.,19., $24.,24.,19.,20.,17.,24.,24.,25.,24.,24.,25.,24.,24.,22.,26.,34., $10.,22.,31.,19.,14.,14.,27.,22., $14.,14.,21.,16.,16.,10.,10.,10.,18.,24.,25.,11.,11.,11.,21.,24., $14.,14., 8.,16.,14.,26.,22., 8./ DATA (SSYMBC(J), J=1,120)/ $ 471149226,357246358,315959338,336592896,470820906, $ 345320100,357443862,327886236,315762474,336920576,470820906, $ 355313115,336920576,470493226,449850016,0,455911911,456370649,0, $ 471149216,336274848,336930848,0,470493226,357574048,336920576, $ 449522346,315959958,0,470820906,355641947,336274907,317892650,0, $ 456370208,336279584,351502336,481470811,325953253,347256234, $ 326284694,325958294,346929184,357892096,449850016,470493226, $ 455911911,485271143,0,450177706,315304598,315949056,470493226,0, $ 470820906,355313115,336935525,336274917,355631104,470853600, $ 336570464,336625664,468592477,328181537,330409956, $ 338831587,345024799,342796380,334364672,466265814,319563163, $ 313468258,315794984,326444971,341158250,353643173,359738078, $ 357411352,346761365,332038144,465905227,312910991,300491605, $ 292332190,290530023,297116654,307799411,322611126,341518837, $ 360295345,372714731,380874146,382676313,376089682,365406925, $ 350595210,331677696,468592477,328181537,330409956,338831587, $ 345024799,342796380,334378847,330344289,466560930,468625379, $ 470722595,472819811,474949794,477079777,0,462300964,345123100, $ 328087389,330413981,332511197,334608413,336705629,338802845/ DATA (SSYMBC(J), J=121,128)/ $ 340900061,342982656,470623971,347187226,464594973, $ 342964256,334571552,338755584/ DATA ISSTAR /1,5,11,14,17,20,24,27,30,35,38,45,50,53,55,60,63,70, $ 81,98,113,123/ C END BLOCKA