Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0049/font8.for
There is 1 other file named font8.for in the archive. Click here to see a list.
BLOCK DATA
C FONT8 05/08/69
C FONT8 - COORDINATE ARRAYS FOR DRAFTING AND BACKHAND LETTERING
C FONT8 PRODUCES SEMI-SCRIPT BACKHAND LETTERS (NOT GREEK) FOR $3 $4
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) / 2700270, 802790279, 802810281,
1 802880288, 802980298, 3000300, 3070307, 3170317, 3200320,
2 3340334, 10001, 903780378, 3650365, 10001, 10001,
3 10001, 103710371, 20119, 50126, 130133, 200139,
4 260146, 290154, 320158, 400168, 430174, 10001,
5 703600360,1103490349, 10001, 10001, 10001/
DATA (LOCATN(I), I= 33, 64) / 203730373, 450180, 500189,
1 540193, 560195, 590203, 610209, 700217, 750225,
2 850233, 10001, 500010001, 303740374, 10001, 10001,
3 10001, 10001, 403770377, 910238, 1000246, 1020250,
4 1070256, 1090258, 1120261, 1140264, 1170268, 10001,
5 603540354,1003440344, 10001, 10001, 10001/
DATA (LOCATN(I), I= 65, 96) / 7340734, 807430743, 807450745,
1 807520752, 807620762, 7640764, 7710771, 7810781, 7840784,
2 7980798, 10001, 908290829, 8310831, 10001, 10001,
3 10001, 108220822, 3800510, 3840521, 3930533, 4010540,
4 4080551, 4120561, 4150565, 4240578, 4280587, 10001,
5 708180818,1108130813, 10001, 10001, 10001/
DATA (LOCATN(I), I= 97,128) / 208240824, 4300596, 4350605,
1 4390616, 4410621, 4440631, 4460638, 4550647, 4610658,
2 4720671, 10001, 500010001, 308250825, 10001, 10001,
3 10001, 10001, 408280828, 4790678, 4880686, 4910690,
4 4970697, 4990704, 5020715, 5050720, 5080730, 10001,
5 608360836,1008080808, 10001, 10001, 10001/
DATA ( KRD(I), I= 1, 50) /1003487232, 488320,1038195494,
11003487232, 16301774, 819834761, 946705154, 739803136, 29946555,
2 799859542, 895274737, 721993661, 945622721, 570884385, 171021352,
3 12599348, 124970299, 499708635, 899571645, 29116, 599419640,
4 862834576, 953001766, 776604193, 436208573, 939524124, 902789136,
5 621736960, 29596,1038107216,1003487232, 616443781, 876283424,
6 470058147, 105947148, 16830583, 194309596, 600534873, 964621312,
7 29662, 17712094, 969802685, 973566400,1003487232, 11543590,
8 137627008, 537528067, 913188764,1003487232, 29662/
DATA ( KRD(I), I= 51, 100) / 9815900,1038468992,1003487232,
1 29361024,1003487232, 995098652, 479097728,1003487232, 29568,
2 969864192, 403178113, 775722856, 953041780, 863757979, 566653211,
3 194108468, 16789544, 106073345, 403633152, 29244, 767323000,
4 963530609, 821770797, 14611456, 403178113, 775722856, 953041780,
5 863757979, 566653211, 194108468, 16789544, 106073345, 403667527,
61073552317, 29244, 767323000, 963530609, 821770797, 14645805,
7 940504064, 4327649, 436765377, 841847686, 948808523, 786053456,
8 252857460, 90266745, 230027772, 733801405, 30307294/
DATA ( KRD(I), I= 101, 150) / 499581885, 29369382, 137627008,
1 537528067, 913188764,1003487232, 29819804,1003487232, 997224672,
2 499811228,1003487232, 881630, 97387453, 470234140,1038563228,
31003487232, 97415168, 940504064, 985534209, 637960449, 137402377,
4 11581585, 288805492, 826165214, 961414077, 984616065, 302482049,
5 809343881, 951958289, 691523892, 154159070, 29361085, 985534209,
6 637960449, 137402377, 11581585, 288805492, 826165181, 985534209,
7 637960449, 137402377, 11581585, 288805492, 826165214, 969802685,
8 985502466, 706216320, 236031014, 9448494, 118738324/
DATA ( KRD(I), I= 151, 200) / 558550833, 921578507,1003487232,
1 984634196,1039037148, 599255513, 460751805, 985534209, 637960449,
2 137402377, 11581585, 288805492, 826165214, 961544068, 908920480,
3 537199810,1003487232, 984641536,1038103599, 118738324, 558550833,
4 922630016,1003487232, 978704950, 830333818, 834204028, 162588728,
5 158718942, 486998973, 985291542, 931029914, 935096988, 599288344,
6 595221470, 756022980, 707397088, 335676418,1003487232, 984641536,
71038097236,1038530432,1003487232, 973566400,1003487232, 995119104,
81038103601, 120803604, 389465549, 470776269, 521719444/
DATA ( KRD(I), I= 201, 250) / 760008561, 954074045, 984612884,
11038103599, 118738324, 558550833, 922630016,1003487232, 985027092,
2 725403502, 951986022, 842696192, 402883683, 39855115, 48350451,
3 424604672, 984616065, 302482049, 809343881, 951958289, 691523892,
4 154159070, 22019072,1003487232, 985534209, 637960449, 137402377,
5 11581585, 288805492, 826165214, 961544064,1003487232, 984612884,
61038101549, 116606323, 592106291, 925779901, 984615041, 403276545,
7 875434886, 881567338, 380874925, 116506770, 221630996, 859763712,
8 984634196,1038545317, 473401889, 739115965, 984633351/
DATA ( KRD(I), I= 251, 300) / 38898913, 403178145, 842897287,
11039029120,1003487232, 984633792, 961475584, 995119328, 491422612,
21003487232, 984613716,1038177152,1003487232, 984633792,1039028672,
31073024225, 100664253, 984699796, 918461, 403178113, 775722856,
4 953041780, 863757979, 566653211, 194108468, 16789544, 106073345,
5 403633152, 261482939, 499581885, 26306747, 365392539, 799859542,
6 895274737, 721727723, 143693827, 918461, 93481211, 432566939,
7 799859542, 895274737, 688406190, 819834761, 946705154, 706216320,
8 202475524,1003487232, 806121479, 947844096, 3310912/
DATA ( KRD(I), I= 301, 350) / 503973667, 912139146, 920436369,
1 522537137, 84046652,1003487232, 39887947, 181680559, 553302797,
2 918431622, 910953121, 537297153, 169938982, 9450544, 120805753,
3 599520189, 30307064, 659046827, 375718845, 553272049, 859658070,
4 864807579, 566653211, 195158102, 89246897, 285621775, 720123755,
5 949885796, 808093184, 402883714, 37754889, 45233390, 419361792,
6 168134179, 745318252, 956190582, 898362011, 533098747, 161538070,
7 19973263, 249968109, 686538577, 926800829, 331573400, 89181200,
8 12624967, 138610976,1003487232, 667642648, 895340432/
DATA ( KRD(I), I= 351, 400) / 953001799, 810224224,1003487232,
11073294890, 513189226, 347420014, 452443694, 618212904, 510006205,
2 442997285, 608766497, 503742817, 337973605, 443479040, 629726710,
3 459660632, 363195836, 533261914, 629724659, 421458944, 494344158,
4 15612861, 15612861, 15612894, 727948254, 258644925, 968885181,
5 20860894, 10364861, 987758630, 197892992,1038129894,1003487232,
6 991018543, 720155498, 947787619, 875300480, 234994716, 499740314,
7 764140276, 757744175,1003487232, 990633625, 565604636, 196208695,
8 20988973, 110302499, 437813920, 807209827, 945746944/
DATA ( KRD(I), I= 401, 450) / 991133724, 398978681, 763123538,
1 923677577, 913117954, 739836128,1003487232, 992636956, 117670784,
21038205488,1003487232, 988053648, 30307294, 151733181, 990633625,
3 565604636, 196208695, 20988973, 110302499, 437813920, 807209827,
4 945630763,1003487232, 991981680, 235894896, 823098044, 823002045,
5 978416480,1003487232, 987769896, 106106209, 503939809, 876485513,
6 768537600, 991981737, 235894953, 387609566, 387843005, 991981792,
7 940504064, 999456796, 512488320,1003487232, 992182300, 940241853,
8 989332096, 773622629, 948842351, 859528794, 565604636/
DATA ( KRD(I), I= 451, 500) / 196208695, 20988973, 110302530,
1 404227005, 989069485, 29880987, 799860599, 961432432, 820622509,
21003487232, 990347872, 740036389, 881667887, 792386137, 532017404,
3 162620471, 20988973, 110270723, 370639838, 612368262,1003487232,
4 992182413, 29815355, 731635476, 824951503, 686339213,1038661504,
51003487232, 989991170, 370672256, 840797060, 946710315, 785003824,
6 219270197, 24141882, 129200476, 532278205, 987788188,1038578400,
71003487232, 990933132, 208933218, 437781120, 773622628, 946743036,
81003487232, 987788000, 969864192, 997224864, 500007836/
DATA ( KRD(I), I= 501, 550) /1003487232, 991068796,1038119808,
11003487232, 987787885, 772766317, 969864192, 990933692, 168690621,
2 988550883, 672661888, 269682788, 40904716, 49398962, 288771602,
3 655014878, 958221043, 725240465, 720115520,1003487232, 988047579,
4 130084891, 27408613, 270796000, 167838722,1038325027, 404226688,
5 773622628, 947791724, 855328402, 557206802, 184695741, 986464977,
6 656854323, 186762287, 12593192, 106106177, 503939841, 943649792,
7 987567875, 706249120, 269682788, 40904716, 49398962, 322358834,
8 722189278, 967667420, 701099642, 787289984,1003487232/
DATA ( KRD(I), I= 551, 600) / 985673835, 245802569, 749481773,
1 854344401, 656887091, 186762287, 12593192, 106106177, 503939841,
2 943649792, 984633235,1039037116, 565668280, 459998141, 988550883,
3 672661888, 269682788, 40904716, 49398962, 288771602, 655014878,
4 958221043, 725240465, 720115711, 942540640, 772310434, 273609728,
5 988047579, 130084891, 27438338, 269713568, 68160478, 179517680,
6 321277427, 657146637, 940504064, 979622007, 26242172, 264629721,
7 494262518,1038092417, 403178081, 639940911, 419971855, 955184128,
8 981883191, 261352764, 432533049, 595057046,1039022895/
DATA ( KRD(I), I= 601, 650) / 654852559, 485490466, 840663616,
1 235932605, 990111931, 96530459, 27436258, 236126368, 68160478,
2 177547691, 516505234, 725307186, 924809708, 613094272,1003487232,
3 978217691, 365064219, 28183425, 805896385, 3077120, 994052129,
4 100827329, 203536467,1038203025, 186895667, 388415950, 571439566,
5 521685587, 691751696, 853410749, 987760705, 168001793, 270707795,
61038265550, 251971987, 523881168, 819856317, 986153281, 237113414,
7 10498095, 118671667, 456739505, 821901193, 947753762, 773423584,
81003487232, 986879203, 370639456, 773622628, 947791724/
DATA ( KRD(I), I= 651, 700) / 855328402, 523619570, 151075806,
1 20002981,1072990497, 268632129, 3077120, 988550883, 672661888,
2 269682788, 40904716, 49398962, 288771602, 655014878, 958221043,
3 725240465, 720115711, 942540640, 839583362,1003487232, 986712129,
4 201589025, 304294003,1038297324, 318129618, 624611122, 924730301,
5 985762017, 470418209, 908988293, 880550537, 212971565, 14696497,
6 119819699, 690942976, 988827315,1038381511, 509120129, 806224829,
7 987778182, 204768672, 537495203, 744203230, 958221043, 725240465,
8 780993469, 988826671, 111320324, 371623424, 638224066/
DATA ( KRD(I), I= 701, 750) / 776707729, 690671347, 892225469,
1 994069550, 110301473, 369525185, 506959305,1038470542, 479761025,
2 738984737, 876418857, 756763379, 859687825,1003487232, 987778944,
31038092353, 168001793, 690671347, 892225469, 987778182, 204768672,
4 537495203, 744203230, 958221043, 725240465, 781188994, 941458144,
5 605489444,1003487232, 986730163, 757810338, 169018240,1003487232,
6 537527009, 841848712, 951959347, 762931739, 432304315, 127982612,
7 17871977, 206899585, 537850880, 227862907, 432702397, 26273915,
8 264630811, 631956182, 759876176, 314779784, 107056256/
DATA ( KRD(I), I= 751, 800) / 940504064, 26273915, 264630811,
1 631956182, 759876241, 621231758, 786215786, 947787619, 773390784,
2 269649956,1003487232, 946871868, 873395200, 137562401, 470352577,
3 841847686, 949859118, 755615186, 354600016, 29914045, 40937548,
4 216382927, 686536492, 917380997, 909870656, 503612610, 137434151,
5 10500146, 122871065, 465138621, 30307096, 726254155, 610894781,
6 486097553, 724259542, 730425883, 398749851, 94430231, 22072465,
7 218480079, 686536492, 917380997, 909870656, 503612610, 137434152,
8 44118222, 385807360, 336037507, 777822058, 955140981/
DATA ( KRD(I), I= 801, 850) / 897345242, 666300764, 196142103,
1 22071408, 183777741, 584792912, 925751229, 264398936, 56642576,
2 46213255, 206867873, 537850880, 432533113, 763123538, 923677577,
3 913117954, 705623040, 470286881, 574100934, 409310563, 404161469,
4 15612894, 393779133, 15612861, 15612894, 660904926, 158079933,
5 947133, 20762590, 111028157, 387402260, 595125787, 499544443,
6 395730390, 560521149, 571998656, 404065637, 409410053, 574130175,
7 544675172,1003487232, 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 LOCATN(I),I=1,64 CONTAINS LOCATION POINTERS FOR DRAFTING LETTERS
C
C LOCATN(I),I=65,128 CONTAINS LOCATION POINTERS FOR ITALIC LETTERS
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=488320
C
C 1 292900000000,000014282800,303003062506,292900000000,001517152214,
C 6 241327112809,280627042402,220117000000,002817282127,232625242622,
C 11 262125192317,211617152929,280526032201,170014000901,050303050108,
C 16 001200160120,032305250927,142817282227,262528232929,000000281328,
C 21 172720262324,252227192816,281227092506,230420021701,130000002929,
C 26 280000000028,262830300016,181629290000,000000282828,303000161816,
C 31 292900000000,181128112805,260322011700,140009010503,030501080012,
C 36 001601200323,052509271428,172822272625,282329290000,000000283030,
C 41 001628163030,282828002929,290014281400,292900000000,001100090106,
C 46 040308011200,160020012403,270628092828,292900000000,000000283030,
C 51 000911172628,303011172800,292900000000,002800002800,292900000000,
C 56 292100000028,140828282800,292900000000,000000282800,282829290000,
C 61 120016002001,230325052708,281228162720,252323252027,162812280827,
C 66 052503230120,001600120108,030505030801,120029290000,000000281728,
C 71 222724262724,282228192717,241522141713,001329290000,120016002001,
C 76 230325052708,281228162720,252323252027,162812280827,052503230120,
C 81 001600120108,030505030801,120030301807,313126062929,000000281728,
C 86 222724262724,282228192717,241522141713,001330301713,280029290000,
C 91 000404020701,130017002201,250227042806,280827102611,231320141016,
C 96 071704190320,022202230325,062711281528,212725262929,002828283030,
C 101 142814002929,002800090106,040308011200,160020012403,270628092828,
C 106 292900000000,002814002828,292900000000,292300280700,142821002828,
C 111 292900000000,000026283030,022828002929,140014130028,303014132828,
C 116 292900000000,022828280000,280029290000,291128032401,190013000801,
C 121 040301060009,001101140417,081913201920,241928173030,282028002929,
C 126 291100030401,090015002001,240327062809,281127142417,201915200920,
C 131 041900173030,002800002929,291128032401,190013000801,040301060009,
C 136 001101140417,081913201920,241928172929,291128032401,190013000801,
C 141 040301060009,001101140417,081913201920,241928173030,282828002929,
C 146 291127042402,210116001200,070103030106,000900110114,031707191220,
C 151 162021192517,271428110011,292900000000,291100202620,303028282228,
C 156 172715261425,132313002929,291128032401,190013000801,040301060009,
C 161 001101140417,081913201920,241928173030,282031312804,270226012100,
C 166 160010010602,292900000000,291100280000,303000130115,031707191220,
C 171 162021192517,271528132800,292900000000,290511221722,242327242726,
C 176 242717281128,042701260124,042311223030,141614002929,291120222422,
C 181 272328242826,272724282028,172716261624,172320223030,221631312204,
C 186 210220011500,100004010002,292900000000,291100280000,303000062620,
C 191 303013132800,292900000000,290014281400,292900000000,292100200000,
C 196 303000130117,031906200820,111913171413,140030301413,151717192020,
C 201 222025192717,281328002929,291100000020,303000130115,031707191220,
C 206 162021192517,271528132800,292900000000,291112201620,211925172714,
C 211 281128092706,250321011600,120007010303,010600090011,011403170719,
C 216 122029290000,291100030401,090015002001,240327062809,281127142417,
C 221 201915200920,041900173030,002031310000,292900000000,291128032401,
C 226 190013000801,040301060009,001101140417,081913201920,241928173030,
C 231 282031312800,292900000000,291100000020,303000110113,031506171119,
C 236 172021202519,271828172929,291100020401,120019002401,260228042806,
C 241 260823091910,111107120513,031503160418,061911201620,251929290000,
C 246 291100202620,303013281305,140315021701,220028002929,291100200007,
C 251 010503030701,120016002101,250327052807,303028202800,292900000000,
C 256 291100201400,282029290000,292100200700,142021002820,292900000000,
C 261 291100002620,303002202800,292900000000,291100201400,303028201400,
C 266 313110030701,030000002929,291102202820,000028002929,120016002001,
C 271 230325052708,281228162720,252323252027,162812280827,052503230120,
C 276 001600120108,030505030801,120029290000,072511261327,142814002929,
C 281 002502260527,102814282027,232625242622,262125192317,211609120711,
C 286 040901060003,000028002929,022504260727,122816282027,232625242622,
C 291 262125192317,201616152114,241327112809,280627042402,210116001200,
C 296 060103020004,292900000000,240024280007,280729290000,000305011000,
C 301 150020012503,270528082810,271325152017,151810180517,021604282528,
C 306 292900000000,010601090211,051308141315,161521142413,271128092806,
C 311 270424022101,160013000801,050202040106,000900130116,031906221125,
C 316 172723282929,002828282324,192016161311,110610002929,161520162317,
C 321 251926212622,252423262027,162812280827,052603240222,022103190517,
C 326 081612151615,211424132711,280928062704,240221011600,120007010402,
C 331 010400060009,011104130714,121529290000,050011011703,220625092712,
C 336 281528192722,262423262027,152812280727,042601240022,001901170415,
C 341 071412131513,201423152617,271927222929,092806260424,022101190016,
C 346 001201090207,040406020900,292900000000,192822262424,262127192816,
C 351 281227092607,240422021900,292900000000,313118111710,150913091110,
C 356 101110131114,131515151714,181318111708,150612042929,130615061705,
C 361 180418021701,150013001101,100210041105,130629290000,182417231522,
C 366 132211231024,102611271328,152817271826,182417211519,121729290000,
C 371 142314053030,001428142929,001428142929,001428143030,212207063030,
C 376 072221062929,282800002929,001928193030,000928092929,291400000106,
C 381 052823062800,303001062306,292900000000,291703151715,211425122710,
C 386 280728052703,260224012000,070003150028,142818272026,222423222320,
C 391 221820161715,292900000000,291623232025,162712280828,052703260123,
C 396 002000170113,030906050903,130117002100,240126022703,280529290000,
C 401 291707000028,112815271925,222324212618,271628122809,270626042402,
C 406 220118000700,292900000000,291820280028,031607002800,303003161716,
C 411 292900000000,291409000416,002828283030,041622162929,291623232025,
C 416 162712280828,052703260123,002000170113,030906050903,130117002100,
C 421 240126022703,280526111711,292900000000,291800280316,070030300316,
C 426 241630302128,241628002929,290502282700,292900000000,291400110108,
C 431 030506031101,150019002301,260328062809,222829290000,291800280509,
C 436 070030300509,111720283030,111728002929,291800280700,280029290000,
C 441 292505000028,150823282800,292900000000,291807000028,280021282929,
C 446 291516002000,230125022705,280828112715,251922231826,162712280828,
C 451 052703260123,002000170113,030906051002,120116002929,291508000513,
C 456 002815282027,232625252723,282028182716,241419130513,292900000000,
C 461 291615001900,220124032505,260826112515,231921221825,152711280728,
C 466 042702250123,002000170113,030905060803,110115003030,180731312806,
C 471 292900000000,291807000413,002813281727,212523232420,241823162215,
C 476 201417130413,303017132800,292900000000,291604040802,110116002000,
C 481 250127022804,280627092511,231220130916,061703190121,002300240126,
C 486 032706281028,152719262929,291400282828,303014282300,292900000000,
C 491 291700280412,060708041102,130116002000,230125022704,280628092328,
C 496 292900000000,291400282300,282829290000,292300281300,142827002828,
C 501 292900000000,291705001928,303000282800,292900000000,291400281913,
C 506 230030301913,282829290000,291700282128,050028002929,291424052303,
C 511 200116001200,080106020304,010700100012,011503170518,081912191618,
C 516 191621143030,281726182319,211920182017,211424052600,292900000000,
C 521 291408260627,032801280027,002604140705,080208010700,050002010002,
C 526 303007050903,120116002000,230125022704,280728092712,251522172018,
C 531 161912190818,051604142929,291224162217,191813190919,051803170115,
C 536 001200100108,030506031001,150019002401,280329290000,291326052403,
C 541 210117001300,080106020304,010700100012,011503170518,091913191718,
C 546 211623143030,282626272228,202819271926,231426052800,292900000000,
C 551 291200120311,071013091809,221024112513,251424162217,191814190919,
C 556 051803170115,001200100108,030506031001,150019002401,280329290000,
C 561 291100192819,303028282128,162714261324,132222002929,291424052303,
C 566 200116001200,080106020304,010700100012,011503170518,081912191618,
C 571 191621143030,281726182319,211920182017,211424053131,280228012700,
C 576 230017011302,080429290000,291408260627,032801280027,002605110802,
C 581 080107000500,020100023030,051106140716,091812191519,191822162413,
C 586 280029290000,290607220323,002500270328,072811271425,142311220722,
C 591 303000020401,120016001901,190209140915,121616162415,281429290000,
C 596 290812220923,072507270928,122815271725,172315221222,303028142515,
C 601 191616161415,141431312502,250123001800,070100022929,291607260527,
C 606 022801280027,002605090702,070106000500,020100023030,050910101311,
C 611 151218152018,211922192518,271730301512,180822042800,292900000000,
C 616 290428262227,102804280027,002628022801,240018000601,000229290000,
C 621 292000020101,030005000601,060203140219,303003140417,051807190919,
C 626 111813161414,170030301414,151716181819,201922182416,251328002929,
C 631 291400020201,050007000801,080205110219,303005110614,071609181219,
C 636 151919182216,241328002929,291215001001,070204040206,001000120115,
C 641 031705180919,131918182117,241526132809,280727042502,230119001500,
C 646 292900000000,291305050703,110115001900,230125022704,280728092712,
C 651 251522172018,151911190718,041602143030,001902140505,313109020901,
C 656 080006000201,000229290000,291424052303,200116001200,080106020304,
C 661 010700100012,011503170518,081912191618,191621143030,281726182319,
C 666 211920182017,211424053131,280228012700,250022012002,292900000000,
C 671 291300020201,060008000901,090206100319,303006100712,091512171418,
C 676 181921192518,271728162929,291203020701,140020002501,270228032805,
C 681 260724082009,061103120113,001400160117,031808191319,201829290000,
C 686 291500192119,303008281407,150517032001,240028002929,291400190406,
C 691 060309011300,160019012103,220523083030,281726182319,211920182017,
C 696 230826002929,291500190115,031005070804,110213011600,190021012202,
C 701 230423072017,201821192319,261828172929,292000190114,030906040901,
C 706 110013001401,150315051409,303011191214,140917042001,220024002501,
C 711 260326052509,221722182319,251927182817,292900000000,291400192800,
C 716 303000020201,050007000801,201821192319,261828172929,291400190406,
C 721 060309011300,160019012103,220523083030,281726182319,211920182017,
C 726 230831312802,280127002300,180114020904,292900000000,291300192119,
C 731 221822170502,050106002800,292900000000,160020002301,250227052808,
C 736 281127152519,222318261627,122808280527,032601230020,001701130309,
C 741 060510021201,160029290000,062509261127,122821002929,002501260327,
C 746 072811281627,182621242222,222021181816,091206100408,030603030400,
C 751 280029290000,002501260327,072811281627,182621242222,222021182017,
C 756 181614152014,231325122710,280728052703,230118001400,080105020104,
C 761 292900000000,280700071728,260029290000,040306020901,140018002201,
C 766 250227042806,280927122514,221619171418,101805170216,002816282929,
C 771 010701100212,061411151415,201423132512,271028072805,270323011800,
C 776 150009010602,040302050107,001000140118,032105230825,132718282929,
C 781 002828282424,212019161811,180619002929,141518162017,211822202222,
C 786 212418261627,112808280427,022601250023,002101190417,061611151415,
C 791 201423132512,271028072805,270323011800,150009010602,040302050108,
C 796 011002120614,111529290000,100015012003,230525072710,281428182721,
C 801 262324252226,192713281028,052701250023,002101180316,051508141413,
C 806 171322142616,271827212929,072804260224,012200190016,011202100407,
C 811 060509031301,160029290000,122815271925,222324212618,271628122809,
C 816 270626042402,210029290000,140016001701,170316051406,120611051103,
C 821 120114002929,001428143030,112317052929,001428142929,001428143030,
C 826 192209063030,042224062929,000028282929,001925193030,030928092929,
C 831 111714181620,172317251627,142812281127,112512231422,162217232929,
C 836 170116001400,120111031105,120614061605,170317013131,160714051104,
C 841 292900000000,000000000000,000000000000,000000000000,000000000000,
C ADVANCED LTRPLT PROGRAM DECK MUST BE USED WITH THIS ARRAY DECK
END