Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0049/font5.for
There is 1 other file named font5.for in the archive. Click here to see a list.
SUBROUTINE FONT5
C FONT5 09/20/67
C FONT5 - COORDINATE ARRAYS FOR OUTLINE ROMAN LETTERING WITH SERIFS
C
C DONALD BARTH, C/O K.B. WIBERG, DEPT. OF CHEMISTRY, YALE UNIVERSITY
C
COMMON/FONT/LOCATN(128),KRD(950),ICHECK(2)
DATA ICHECK/4HFONT,4H MIS/
DATA (LOCATN(I), I= 1, 32) / 8360836, 806790679, 806840684,
1 807050705, 807300730, 7380738, 7550755, 7780778, 7860786,
2 8130813, 10001, 909190919, 8840884, 10001, 10001,
3 10001, 108910891, 20322, 110341, 300357, 470372,
4 590388, 710403, 820416, 1000446, 1130459, 10001,
5 708520852,1108570857, 10001, 10001, 10001/
DATA (LOCATN(I), I= 33, 64) / 208960896, 1200469, 1320485,
1 1430495, 1500501, 1620519, 1710532, 1870547, 2000565,
2 2200582, 10001, 500010001, 308980898, 10001, 10001,
3 10001, 10001, 409170917, 2340594, 2560612, 2640620,
4 2760632, 2830639, 2930649, 3060662, 3160673, 10001,
5 608770877,1008670867, 10001, 10001, 10001/
C
C FOLLOWING LOCATN CARDS NOT REALLY NEEDED EXCEPT AS SAFEGUARD. ANY
C ATTEMPT TO WRITE GREEK CHARACTERS IS TRANSFERRED TO ROMAN.
C
DATA (LOCATN(I), I= 65, 96) / 8360836, 806790679, 806840684,
1 807050705, 807300730, 7380738, 7550755, 7780778, 7860786,
2 8130813, 10001, 909190919, 8840884, 10001, 10001,
3 10001, 108910891, 20322, 110341, 300357, 470372,
4 590388, 710403, 820416, 1000446, 1130459, 10001,
5 708520852,1108570857, 10001, 10001, 10001/
DATA (LOCATN(I), I= 97,128) / 208960896, 1200469, 1320485,
1 1430495, 1500501, 1620519, 1710532, 1870547, 2000565,
2 2200582, 10001, 500010001, 308980898, 10001, 10001,
3 10001, 10001, 409170917, 2340594, 2560612, 2640620,
4 2760632, 2830639, 2930649, 3060662, 3160673, 10001,
5 608770877,1008670867, 10001, 10001, 10001/
DATA ( KRD(I), I= 1, 50) /1003487232, 1057, 103248380,
1 841844609, 940048897, 572099141, 240322817, 303333376,1038359986,
2 578035645, 29913787, 799892343, 962483058, 891010734, 786247530,
3 948838245, 877365921, 536870913, 34703482, 61893660,1038412282,
4 664461013, 759876208, 519355706,1038398957, 650816200, 746231395,
5 505710893,1003487232, 968748890, 866872860, 432303289, 124833808,
6 12623973, 171181440, 537593634, 875399041, 950905639, 812290659,
7 505842019, 307470541, 217305399, 395766266, 664462102, 861784978,
8 968815616, 29913755, 798809972, 957231976, 844861057/
DATA ( KRD(I), I= 51, 100) / 536870913, 34703482, 61893660,
11038412282, 597286580, 754661032, 643337698, 304409533, 30307221,
2 928867129, 765782319, 519651953, 692769448, 680111692, 517256482,
3 741117764, 914235264, 1057, 102885435, 28341181, 30307221,
4 928867129, 765782319, 519651953, 692769448, 680111692, 517256482,
5 370541952, 1057, 102885435, 28341181, 867987194, 766144028,
6 432303289, 124833808, 12623973, 171181440, 537528002, 774637345,
7 848144265, 950544905, 580493924, 607619490, 372544744, 215170292,
8 326493626, 531195575, 794577714, 868152320, 29749627/
DATA ( KRD(I), I= 101, 150) / 364177711, 653912667, 599323548,
1 968748858, 841844609, 940081697, 605653613, 315918657, 370507776,
2 1082466, 127986715, 30340096, 980448156, 968683162, 674006913,
3 939524097, 101976346, 129002524,1003487232, 567178139, 935127846,
4 810191425, 470122721, 136351750, 8430698, 212084008, 308548804,
5 271944130, 574165606, 665382427, 567211008, 29782427, 397732144,
6 732589691, 667841435, 935127505, 940212558, 315918689, 404094976,
7 1082466, 127986715, 30340096, 29782427, 397732130, 741117764,
8 914235264, 1057, 102885435, 28341181, 995127484/
DATA ( KRD(I), I= 151, 200) / 476803996, 968748890, 875399041,
1 940180097, 706415319, 470155412, 136479937, 201326593, 34670682,
2 61893660,1003487232, 29651659, 766144123, 667841435, 935127840,
3 805525698, 269780256, 1057, 102885435, 28341181, 432566939,
4 798809972, 957231976, 844861057, 537264385, 171021352, 12599348,
5 124970267, 433027514, 531162743, 726351565, 713659939, 505842019,
6 307470541, 217305399, 395766717, 29913787, 799892343, 962483058,
7 891010734, 550810914, 370541952, 1057, 102885435, 28341214,
8 329771641, 729503444, 724156911, 318041021, 369362083/
DATA ( KRD(I), I= 201, 250) / 105947148, 16830583, 194276764,
1 566914809, 863884176, 953000741, 775554592,1073258053, 642420419,
2 740854211, 408264041,1038584226, 372544744, 215170292, 326493626,
3 531162743, 726351565, 713659939, 506393600, 29913787, 799892343,
4 962483058, 891010734, 618529440, 383038754, 370541952, 1057,
5 102885435, 28341214, 329771641, 729503444, 724156911, 318041021,
6 968748890, 866872860, 432270522, 92331029, 21022801, 183745130,
7 747347686, 743050754, 438602980, 140614698, 10486817, 69306561,
8 403178145, 774706021, 947790698, 884717230, 321081525/
DATA ( KRD(I), I= 251, 300) / 191062297, 430434937, 730618677,
1 925780891,1003487232, 30307221, 928867129, 766044706, 639239808,
2 268698913, 371583194, 126967861, 22049725, 29782427, 397732134,
3 340102594, 573181604, 745237147, 666497948, 968748858, 845943523,
4 672629152, 269651076, 107079739, 28341181, 29782427, 397732330,
5 766144123, 667841435, 935127488, 436332603, 28341181, 995127580,
6 297004250, 347566620, 683436795, 767259548, 968748890, 638124499,
7 335839322, 61893660,1003487232, 29815227, 431319538, 732589691,
8 667841435, 935127599, 841844609, 940016097, 538511786/
DATA ( KRD(I), I= 301, 350) / 237241633, 301989889, 34703725,
1 127986715, 30340096, 29815227, 431319538, 732589691, 667841435,
2 935127599, 573146753, 671351041, 303401325, 127986715, 30340096,
3 30306562, 741117764, 914235264, 682202, 126967861, 22049725,
4 941427491, 855394034, 657870002, 84950029, 46247115, 281326895,
5 285656593, 621395563, 244424743, 5247010, 101941600, 504924772,
6 673875744, 940443614, 647273702, 206770403, 304449987, 576264808,
7 647951360, 26505532, 318096818, 557436626, 824000365, 950937446,
8 877365921, 570884417, 270663776, 125853721,1038598672/
DATA ( KRD(I), I= 351, 400) / 653965002, 747279971, 539462019,
1 341090602, 349584880,1003487232, 880547524, 607653220, 274963658,
2 214153520, 454542992, 653899404, 750563180, 954089297, 791170451,
3 253936719, 48245769, 39948482, 303497728, 706480996, 945627069,
4 563901244, 843977603, 671711844, 573015424, 302187650, 71342089,
5 10531919, 185846131, 490326648, 562587614, 420922896, 619294313,
6 610800035, 406098150, 210971886, 319178685, 880547524, 607653220,
7 274963658, 950939502, 888915634, 557206770, 185678894, 11543590,
8 105056545, 470287009, 808293253, 880769740, 214153520/
DATA ( KRD(I), I= 401, 450) / 454542960, 720057277, 135431394,
1 250625105, 252956951, 362212892, 734850938, 966680438, 861623958,
2 662300314, 631793111, 457623185, 620150178, 504890880, 134350781,
3 242394251, 148028657, 321310195, 657114835, 827118451, 958283631,
4 890028783, 819736297, 712612325, 441751749, 172133634, 506136384,
51073587078, 945655618, 739770592, 101746691, 4232294, 242327593,
6 11546670, 116638686, 454542896, 618212904, 511090024, 347420016,
7 455048191, 410492550, 744166019, 505809123, 172135654, 410973184,
8 26505532, 319112594, 523816594, 756794126, 851217249/
DATA ( KRD(I), I= 451, 500) / 941490784, 649673263, 520536431,
1 350530850, 370541952, 1057, 102883352, 27194368, 980434515,
2 691669793, 941490176, 1148162, 283129871,1038479868, 733734648,
3 728225141, 190963833, 196473789, 554454835,1073519364, 707331520,
4 369329282, 37754888, 43100362, 278176038, 273879299, 371657251,
5 608803448, 562587614, 701199163, 899506998, 760895030, 562587195,
6 701428736, 26505532, 314197618, 623464339, 959302449, 482214560,
7 345284898, 370541952, 1057, 102883352, 27194368, 980443740,
8 701106977, 941490176, 1148162, 292576280,1003487232/
DATA ( KRD(I), I= 501, 550) / 995115187, 221461745, 287657363,
1 489145871, 588860051, 758926129, 888998753, 941490880, 752533136,
2 654883340, 539526721, 604373389, 385171760, 249770178, 236193024,
3 1057, 69286927, 17757184, 17059123, 319112594, 523816594,
4 756794126, 851217249, 941490784, 649673263, 520536431, 350530850,
5 370541952, 1057, 102874127, 17757184, 423120562, 790445934,
6 951984997, 877365921, 537264353, 169938981, 8399918, 83018994,
7 423590321, 521749165, 749414054, 607619490, 338925769, 212055376,
8 455013376, 17059123, 318096818, 557436626, 824000365/
DATA ( KRD(I), I= 551, 600) / 950937446, 877365921, 570884385,
11072990561, 404094976, 1082466, 125853721,1038598672, 653965002,
2 747279971, 539462019, 341090602, 349584880,1003487232, 642288097,
3 402948289, 136384550, 9447469, 83018994, 389500498, 689721139,
41073515361, 941490688, 538478178, 652179857, 454574670, 649700934,
5 541494659, 306419913, 213104944, 421458944, 17059123, 318129618,
6 624611122, 924730254, 920433356, 685357680, 689422734, 313821537,
7 404094976, 1082466, 116407312,1003487232, 959302481, 857426451,
8 422791281, 50345997, 45197513, 678106820, 674728354/
DATA ( KRD(I), I= 601, 650) / 271781990, 41951233, 34670690,
1 202768896, 740068195, 945691496, 849029389, 216218896, 454542992,
2 754759531, 951995325, 17197498, 454969167, 452369861, 508104482,
3 942473952, 471140611, 240368655, 17757184, 20237608, 341152163,
4 507023941, 646563378, 556289843, 843977603, 671711843, 606602656,
5 369362114, 171054184, 118540306, 20902912, 20336018, 388285927,
6 756697714, 658395026, 925681088, 436323378, 18894781, 995118355,
7 287557841, 343363091, 679233266, 757813139, 959302481, 638124493,
8 335839313, 52447251,1003487232, 20368818, 421873132/
DATA ( KRD(I), I= 651, 700) / 723143282, 658395026, 925681194,
1 841844609, 940016097, 538511783, 237241633, 301989889, 34703721,
2 118540306, 20902912, 20336018, 388285926, 756697714, 658395026,
3 925681663, 372507808, 100697090, 4232294, 174298372, 413263931,
4 28341181, 20860194, 741117764, 913185664, 640209, 117521453,
5 13651901, 227045948, 573179585, 738394305, 269846903, 225665981,
6 226778422, 323243218, 119589908, 23126170, 263582236, 733735768,
7 931026835, 924630701, 243440774, 105026854, 376050372, 844962664,
8 948837219, 840630912, 371492961, 33554434, 39952586/
DATA ( KRD(I), I= 701, 750) / 655018708, 760929913, 530966809,
1 227472384, 226778422, 323243218, 119589908, 23126170, 263582236,
2 733735768, 931026836, 925714159, 720090955, 917382023, 912069346,
3 706216288, 236062756, 6299689, 111356169, 310679813, 205786466,
4 506039973, 746267306, 650622381, 452443760, 724259541, 729409018,
5 396649688,1003487232, 8155964, 849225606, 845974369, 941490688,
6 538478178, 643831815,1038296692, 647178173, 198079288, 260263284,
7 558517970, 856537995, 949852964, 740951552, 369329282, 37754888,
8 43100362, 278176038, 273879299, 371690051, 711665355/
DATA ( KRD(I), I= 751, 800) / 719930866, 388187280, 116473020,
11003487232, 764042870, 659181266, 858640276, 963502906, 800682396,
2 296936567, 54542348, 42046627, 269877792, 773622628, 947790699,
3 853260879, 519387405, 213074164, 326493658, 631957208,1038562829,
4 650816200, 746231395, 539429219, 307502344, 312848845,1003487232,
5 21099420, 933026381, 513218978, 436437218, 275099317, 797171831,
6 90230804,1003487232, 249740369, 52449301, 57761978, 263615004,
7 733735768, 931026836, 925714159, 720090955, 917382023, 912069346,
8 706216320, 236095556, 38804488, 44117165, 250575439/
DATA ( KRD(I), I= 801, 850) / 321081525, 191062297, 430467705,
1 730554101, 793463473, 620722509, 648749799, 778769027, 539363619,
2 239277223, 176367851, 350155776, 205788454, 310650058, 111191048,
3 6328418, 169148928, 672894757, 915288976, 927784697, 699953532,
4 196208696, 22040625, 116570445, 450443919, 756757160, 643337666,
5 337874116,1038499279, 587844244, 693755449, 497445177, 259216596,
6 254067087,1003487232, 432566939, 798809972, 957231976, 844861057,
7 537264385, 171021352, 12599348, 124970267, 433027514, 531162743,
8 726351565, 713659939, 505842019, 307470541, 217305399/
DATA ( KRD(I), I= 851, 900) / 395766717, 444046918, 642354753,
1 503742785, 305434950, 444527616, 499707514, 764204914, 956184426,
2 846926434, 571933089, 540612232, 715863759, 724193879, 563539420,
31003487232, 499510586, 226612274, 15741994, 108204322, 370606561,
4 406131976, 245576911, 254038359, 429387228,1003487232, 436536611,
5 306518439, 511253092, 641270783, 544642372, 307599751, 446624768,
6 458578232, 328560060, 533294713, 663311891, 454377777, 388386229,
71003487232, 17187224, 562578320, 953693701, 408302605, 17757184,
8 17712013, 13648829, 383857709, 14695472, 84262254/
DATA ( KRD(I), I= 901, 950) /1038500053, 224681271, 359056784,
11038599766, 662331094, 760758769,1038663504, 923680654, 920466990,
2 587168269, 747314822, 644423148, 551516588, 343185670, 208871821,
3 449770496, 783260, 167773117, 22960018, 18896862, 12464008,
4 8400829, 0, 0, 0, 0, 0,
5 0, 0, 0, 0, 0, 0,
6 0, 0, 0, 0, 0, 0,
7 0, 0, 0, 0, 0, 0,
8 0, 0, 0, 0, 0/
C
C SUBSCRIPT OF LOCATN ARRAY = 1+((KIND-1)*64)+BCD CODE OF LETTER
C LOCATN POINTER MAY BE COMPOSED OF AS MANY AS 10 DIGITS
C LEFT 2 DIGITS DETERMINE OPTION WHEN LETTER FOLLOWS $ CHARACTER
C FOR UPPER CASE LETTER NEXT 4 DIGITS IS FIRST KRD ARRAY SUBSCRIPT
C FOR LOWER CASE LETTER RIGHT 4 DIGITS IS FIRST KRD ARRAY SUBSCRIPT
C COORDINATES IN KRD ARRAY ARE PLOTTED UNTIL COORDINATE 29 IS FOUND
C
C LETTER SEQUENCE IN FOLLOWING TABLE IS THAT USED IN LOCATN ARRAY
C BCD CODE FOR CHARACTER B IS 18 AND IS 19TH ENTRY IN LOCATN ARRAY
C
C POINTER POSITION AND BCD CODE / 0 = 00 , 1 = 01 , 2 = 02 ,
C 3 = 03 , 4 = 04 , 5 = 05 , 6 = 06 , 7 = 07 , 8 = 08 ,
C 9 = 09 , ****** , = = 11 , @ = 12 , ****** , ****** ,
C ****** , + = 16 , A = 17 , B = 18 , C = 19 , D = 20 ,
C E = 21 , F = 22 , G = 23 , H = 24 , I = 25 , ****** ,
C . = 27 , ) = 28 , ****** , ****** , ****** /
C POINTER POSITION AND BCD CODE / - = 32 , J = 33 , K = 34 ,
C L = 35 , M = 36 , N = 37 , O = 38 , P = 39 , Q = 40 ,
C R = 41 , ****** , $ = 43 , * = 44 , ****** , ****** ,
C ****** , = 48 , / = 49 , S = 50 , T = 51 , U = 52 ,
C V = 53 , W = 54 , X = 55 , Y = 56 , Z = 57 , ****** ,
C , = 59 , ( = 60 , ****** , ****** , ****** /
C
C THE FOLLOWING IS THE UNPACKED DECIMAL COORDINATE TABLE
C CORRESPONDING KRD SUBSCRIPT OF FIRST ENTRY IN LINE IS AT LEFT
C X AND Y COORDINATES (2 DIGITS EACH) FOR 3 POINTS FORM EACH ENTRY
C ENTRY 000014282800 CONTAINS POINTS X=0,Y=0 X=14,Y=28 X=28,Y=0
C IN PACKED KRD COORDINATE ARRAY THIS ENTRY WOULD APPEAR AS FOLLOWS
C (0*(32**5))+(0*(32**4))+(14*(32**3))+(28*(32**2))+(28*32)+0=324220
C
C 1 292900000000,000000010101,030214281528,250227012801,280016001601,
C 6 170119021805,070506020801,090109000000,303008071318,170708072929,
C 11 002816282127,232626242723,282128202718,261723152114,231326112710,
C 16 280828072705,260423022101,160000000001,010103020326,012700270028,
C 21 303009261526,192521232221,222021181916,151509150926,303009131513,
C 26 191221102208,220721051903,150209020913,292900000000,282727272626,
C 31 252622271628,122808270525,032301200016,001201080305,050308011200,
C 36 160022012502,260227012801,281027102507,240621041903,150213021103,
C 41 090507080613,061507200923,112513261526,192521242422,252127182818,
C 46 282729290000,002816282027,232525232720,281628122708,250523032001,
C 51 160000000001,010103020326,012700270028,303009261526,172519232120,
C 56 221522132108,190517031502,090209262929,002828282821,272126242525,
C 61 222609260915,151518161917,202021202108,200819111812,151309130902,
C 66 220225032604,270728072800,000000010101,030203260127,002700282929,
C 71 002828282821,272126242525,222609260915,151518161917,202021202108,
C 76 200819111812,151309130902,110112011200,000000010101,030203260127,
C 81 002700282929,252724272326,222620271628,122808270525,032301200016,
C 86 001201080305,050308011200,160020012202,230224012501,250827092809,
C 91 281016101609,170919081904,180315021302,110309050708,061306150720,
C 96 092311251326,152618252123,232124182518,252729290000,002811281127,
C 101 102709260915,191519261827,172717282828,282727272526,250227012801,
C 106 280017001701,180119021913,091309021001,110111000000,000101010302,
C 111 032601270027,002829290000,290700282828,282725272026,200225012801,
C 116 280000000001,030108020826,032700270028,292900000000,162828282827,
C 121 272725262506,240421021801,140011000701,040201040006,000801090310,
C 126 061008090908,090608050604,080311021402,170318041906,192617271627,
C 131 162829290000,002812281227,112709260916,212620271927,192828282827,
C 136 272725261417,280021001014,091309021101,120112000000,000101010302,
C 141 032601270027,002829290000,002812281227,112709260902,220225032604,
C 146 270728072800,000000010101,030203260127,002700282929,292100280528,
C 151 140622282828,282727272626,260227012801,280020002001,210122022223,
C 156 140012000420,040205010601,060000000001,010102020226,012700270028,
C 161 292900000000,002808282211,222620271927,192828282827,272725262500,
C 166 240006220602,080109010900,000000010101,030203260127,002700282929,
C 171 122816282027,232525232720,281628122708,250523032001,160012000801,
C 176 050303050108,001200160120,032305250827,122830301326,152617251923,
C 181 212022152213,210819051703,150213021103,090507080613,061507200923,
C 186 112513262929,002816282127,232626242723,282128202718,261723152114,
C 191 161309130902,110112011200,000000010101,030203260127,002700283030,
C 196 092615261925,212322212220,211819161515,091509262929,110008010503,
C 201 030501080012,001601200323,052508271228,162820272325,252327202816,
C 206 281227082505,230320011700,313117071805,190421032203,220217021403,
C 211 120511071109,303015021302,110309050708,061306150720,092311251326,
C 216 152617251923,212022152213,210819051703,150229290000,002816282127,
C 221 232626242723,282128202718,261723152114,181328002100,111309130902,
C 226 110112011200,000000010101,030203260127,002700283030,092615261925,
C 231 212322212220,211819161515,091509262929,282727272626,252622271628,
C 236 122807270526,022401230021,002001180217,051507141910,220823072306,
C 241 220420031602,130209030704,040603070110,001000010101,020203020601,
C 246 120016002101,230226042705,280728082710,261123132114,091806200521,
C 251 052206240825,122615261925,212424222521,271828182827,292900000000,
C 256 002828282821,272126242525,222617261702,190120012000,080008010901,
C 261 110211260626,032502240121,002100282929,002812281227,112709260906,
C 266 100411031402,170220032104,220622262027,192719282828,282727272526,
C 271 250624042303,200115001300,080105030404,030603260127,002700282929,
C 276 002812281227,112709261510,222620271927,192828282827,272725261400,
C 281 130003260127,002700282929,292100280828,082707270626,101114281628,
C 286 201124262327,222722282828,282727272626,190018001419,100009000226,
C 291 012700270028,292900000000,002813281327,122710261518,212620271927,
C 296 192828282827,272725261715,250227012801,280015001501,160118021310,
C 301 070208010901,090000000001,010103021113,032601270027,002829290000,
C 306 002813281327,122710261518,212620271927,192828282827,272725261715,
C 311 170219012001,200008000801,090111021113,032601270027,002829290000,
C 316 002828280802,220225032604,270728072800,000020260626,032502240121,
C 321 002100282929,280126022503,251524172318,191912190518,021700150013,
C 326 011203110611,081209130915,081613171617,181619151911,070903080107,
C 331 000500040102,030107001100,150117021904,200221012500,280028013030,
C 336 190909070706,060506040703,090211021403,170518061908,190929290000,
C 341 002508280928,091511171318,161919192218,241726152713,281028092706,
C 346 260423022101,170014001001,080204000300,032400240025,303015161616,
C 351 191521132210,220821051903,160215021203,100509080910,101312151516,
C 356 292900000000,260724052204,180316031104,080607070610,061207140916,
C 361 131715172016,191519132012,221125112712,281328152617,231816191219,
C 366 071805170215,011400110009,010603040602,090114001600,210124022704,
C 371 280526072929,162524282528,250428042803,200019001904,170215011200,
C 376 090006010402,020401060009,001001130215,051707181119,141919181924,
C 381 162416253030,121713171616,181419111909,180616041303,120309040706,
C 386 060906110714,091612172929,260724052204,180316031104,080607070610,
C 391 281028112714,261523172118,161912190718,051702150114,001100090106,
C 396 030406020901,140016002101,240227042805,260730302212,061207140916,
C 401 131715171916,211422122929,040105010702,071500150217,071707200823,
C 406 102513271628,212825272726,282528232722,252122212022,192319252026,
C 411 182616251423,132013172017,181513151302,150116011600,040004012929,
C 416 070705090411,041305150717,091813191519,191821172219,242025202719,
C 421 281728152715,261625162315,241324112309,210719061505,130509060605,
C 426 050405030802,150222012600,313127082806,280527032602,220116000700,
C 431 030101020003,000401050306,070703080109,001100120114,031507163030,
C 436 131715171716,181318111708,150713071108,101110131116,131730303131,
C 441 120715072006,220522042003,150212020703,050405050706,120729290000,
C 446 002508280928,091610171218,151917192018,221723162414,251125022701,
C 451 280128001900,191118141715,151613161115,101409110902,110112011200,
C 456 000000010101,030203240024,002529290000,290700151819,201920022501,
C 461 280128000000,000103010802,081400140015,303011281528,212723252324,
C 466 212215211121,052203240325,052711282929,161624192519,313125062404,
C 471 210218011400,110007010402,010400060008,010903100610,080909080906,
C 476 080506040803,110214021703,180419061924,162416253030,202822282527,
C 481 262526242522,222120211722,162416251727,202829290000,002508280928,
C 486 091120171918,181818192819,281827182517,141128002100,100909080902,
C 491 110112011200,000000010101,030203240024,002529290000,290700241828,
C 496 202820022501,280128000000,000103010802,082300230024,292900000000,
C 501 292100160519,061906150717,081810191219,141815171615,171718182019,
C 506 221924182517,261526022701,280128002200,221321152016,191617141612,
C 511 160217011801,180012001213,111510160916,071406120602,070108010800,
C 516 000000010101,020202150015,001629290000,001608190919,091610171218,
C 521 151917192018,221723162414,251125022701,280128001900,191118141715,
C 526 151613161115,101409110902,110112011200,000000010101,030203150015,
C 531 001629290000,121916192118,231726152714,281128082705,260423022101,
C 536 160012000701,050202040105,000800110114,021505170718,121930301317,
C 541 151718162113,221022092106,180315021302,100307060609,061007131016,
C 546 131729290000,001608190919,091511171318,161919192218,241726152713,
C 551 281028092706,260423022101,170014000901,313109021101,120112000000,
C 556 000101010302,032400240025,303015161616,191521132210,220821051903,
C 561 160215021203,100509080910,101312151516,292900000000,190417021501,
C 566 120009000601,040202040106,000900100113,021505170718,111914191818,
C 571 201724192519,313125022701,280128001600,160117011902,191330301217,
C 576 131716161814,191119091806,160413031203,090407060609,061107140916,
C 581 121729290000,001608190919,091512171418,181921192518,271728162814,
C 586 271325122212,201319141916,201715161214,091109021101,120112000000,
C 591 000101010302,031500150016,292900000000,281827182617,251722181619,
C 596 121906180317,011600140013,011103100609,200622052204,200315021302,
C 601 080306040306,010800080001,010102020302,060112001600,220125022703,
C 606 280528062708,250922100813,061406150816,131715172016,221525132711,
C 611 281128182929,001612261326,131728172615,131513071405,150418032502,
C 616 280226002300,140110020803,070507150015,001629290000,001909190908,
C 621 100511041303,150317041805,190819171718,161816192519,250428042803,
C 626 200019001903,180216011300,110008010602,050304050308,031701180018,
C 631 001929290000,001912191218,111809171507,221720181918,191928192818,
C 636 271825171400,130003170118,001800192929,292100190819,081807180617,
C 641 100714191619,200724172318,221822192819,281827182617,190018001413,
C 646 100009000217,011800180019,292900000000,001913191318,121810171512,
C 651 211720181918,191928192818,271825171710,250227012801,280015001501,
C 656 160118021307,070208010901,090000000001,010103021109,031701180018,
C 661 001929290000,001912191218,111809171506,221720181918,191928192818,
C 666 271825173131,110308010500,030001010002,000401050306,050607050804,
C 671 121003260127,002700282929,001928190902,220225032604,270628062800,
C 676 000019170617,031602150113,001300192929,062416281728,170220012201,
C 681 220006000601,080111021123,062306242929,062408230922,092008190618,
C 686 031801190020,002201240426,072711281628,212723262624,272328212819,
C 691 271725152113,070805070406,030405050906,110620042204,250526062708,
C 696 280828062703,250122002000,110209020301,010000000002,010603080610,
C 701 191621182220,222121231925,152611260825,062429290000,062408230922,
C 706 092008190618,031801190020,002201240426,072711281628,212723262624,
C 711 272328212820,271826172315,211423132611,271028082807,270526042302,
C 716 210116001100,070104020104,000600080109,031006100809,090809060805,
C 721 060408031102,150219032105,220722082110,191215131313,131515151916,
C 726 211822202221,212319251526,112608250624,292900000000,000724282528,
C 731 250928092806,250625022701,280128001600,160117011902,190600060007,
C 736 303006091920,190906092929,052828282524,072406191120,162020192218,
C 741 251627142811,280927062504,220220011600,110007010402,010400060008,
C 746 010903100610,080909080906,080506040803,110215021803,210622092211,
C 751 211418171518,111806170416,031502150528,292900000000,222420231922,
C 756 192020192218,251827192820,282227242526,232718281228,082705250323,
C 761 012000160012,010803050503,080112001700,230125022704,280728082711,
C 766 251323141815,151510140813,061106160720,092311251426,182621252224,
C 771 303014131613,191221102208,220721051903,160214021103,090508070808,
C 776 091011121413,292900000000,002003282828,272525221813,150914061302,
C 781 130007000702,080611112121,232407240323,022201200020,292900000000,
C 786 071405150217,011800200021,012302240526,072712281628,212723262624,
C 791 272328212820,271826172315,211423132611,271028082807,270526042302,
C 796 210116001200,070105020204,010500070008,011002110513,071430301815,
C 801 091806200521,052206240825,122616261925,212422232321,232022182117,
C 806 181530301013,191022082307,230622042003,160212020903,070406050507,
C 811 050806100711,101329290000,060408050906,090808090610,031001090008,
C 816 000601040302,050110001600,200123032505,270828122816,272025232325,
C 821 202716281128,052703260124,002100200117,031505141013,131318142015,
C 826 221722122108,190517031402,100207030604,303012151415,171619182020,
C 831 202119231725,142612260925,072306210620,071809161215,292900000000,
C 836 122816282027,232525232720,281628122708,250523032001,160012000801,
C 841 050303050108,001200160120,032305250827,122830301326,152617251923,
C 846 212022152213,210819051703,150213021103,090507080613,061507200923,
C 851 112513262929,130715071806,190419031801,150013001001,090309041006,
C 856 130729290000,142817271926,222425212718,281528132710,250722041902,
C 861 170114001301,160318052008,211022132215,211820201823,162513271428,
C 866 292900000000,142811270926,062403210118,001500130110,030706040902,
C 871 110114001501,120310050808,071006130615,071808201023,122515271428,
C 876 292900000000,130010010903,090410061307,150718061904,190318003131,
C 881 160713051004,090511061207,130929290000,132110220924,092510271328,
C 886 152818271925,192418211619,131710160917,111812191321,292900000000,
C 891 001612161224,162416162816,281316131605,120512130013,001629290000,
C 896 001628162813,001300162929,111402130113,001400150116,021611151114,
C 901 303012160621,062208230923,102213171216,303015171822,192320232222,
C 906 222116161517,303017152616,271628152814,271326131714,171530301613,
C 911 220822072006,190618071512,161330301312,100709060806,060706081213,
C 916 131229290000,000023282828,050000002929,002128212818,001800213030,
C 921 001128112808,000800112929,000000000000,000000000000,000000000000,
C ADVANCED LTRPLT PROGRAM DECK MUST BE USED WITH THIS ARRAY DECK
RETURN
END