Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0049/font7.for
There is 1 other file named font7.for in the archive. Click here to see a list.
BLOCK DATA
C FONT7 05/07/69
C FONT7 - COORDINATE ARRAYS FOR DRAFTING AND ITALIC LETTERING
C FONT7 PRODUCES SEMI-SCRIPT ITALIC LETTERING (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) / 7390739, 807480748, 807500750,
1 807570757, 807670767, 7690769, 7760776, 7860786, 7890789,
2 8030803, 10001, 908340834, 8360836, 10001, 10001,
3 10001, 108270827, 3800511, 3840522, 3930533, 4010540,
4 4080552, 4120562, 4150566, 4240578, 4280587, 10001,
5 708230823,1108180818, 10001, 10001, 10001/
DATA (LOCATN(I), I= 97,128) / 208290829, 4300596, 4360605,
1 4400614, 4420619, 4450632, 4470641, 4560650, 4620663,
2 4730674, 10001, 500010001, 308300830, 10001, 10001,
3 10001, 10001, 408330833, 4800681, 4890689, 4920693,
4 4980702, 5000709, 5030720, 5060725, 5090735, 10001,
5 608420842,1008130813, 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, 987758758, 802003840,1038981286,1003487232,
6 990002799, 787265356, 917349189, 809108960, 146716, 734850937,
7 964581235, 857457263,1003487232, 990615171, 538312960, 168921125,
8 8399919, 120806713, 465105596, 834497401, 964621312/
DATA ( KRD(I), I= 401, 450) / 990904572, 634089242, 898489235,
1 957199178, 813373027, 504725504,1003487232, 991657984, 151253916,
21038238320,1003487232, 991953040, 265188318, 151602109, 990392107,
3 777653761, 402915489, 102798344, 11582579, 225764795, 600503067,
4 900589463,1003487232, 991953040, 265255056, 856652700, 856327101,
5 978355036,1003487232, 990948360, 6328418, 169083264, 504924804,
6 746337180,1003487232, 990904393, 265254985, 454980574, 454788029,
7 988082176, 940504064, 999293116, 445543136,1003487232, 991953148,
8 705590205, 989360796, 800910199, 961431405, 849024578/
DATA ( KRD(I), I= 451, 500) / 538312960, 168921125, 8399919,
1 120806746, 431518653, 990904429, 264925979, 900589463, 962448176,
2 719893613,1003487232, 989069473, 102798344, 11582579, 225798555,
3 566915835, 867032980, 958248745, 744032769, 402916318, 545259142,
41003487232, 990904429, 264925979, 900589463, 962448176, 719893613,
51038661344,1003487232, 989859938, 169148864, 639340325, 880617259,
6 786086288, 353651957, 258236762, 431518364, 868117437, 987922908,
71038119836,1003487232, 991096841, 6328418, 169083264, 504924804,
8 746337180,1003487232, 987787424, 969864192, 997224480/
DATA ( KRD(I), I= 501, 550) / 499614620,1003487232, 990905244,
11038414560,1003487232, 987922733,1038119213, 969864192, 992244636,
2 689085, 988452451, 538312960, 168921124, 7349292, 116606226,
3 423120530, 789330910, 893139621, 673842848, 772605826,1003487232,
4 986736731, 230977851, 329431109, 1013829, 137594208, 503973570,
5 843947914, 953007921, 791268851, 388219054,1003487232, 986451650,
6 639009056, 168921124, 7349291, 115556690, 523882258, 957281280,
7 988452451, 538312960, 168921124, 7349292, 116606226, 423120530,
8 789330910, 699100988, 936275866, 820680322, 672826080/
DATA ( KRD(I), I= 551, 600) / 874384317, 986451650, 639009056,
1 168921124, 7349291, 115556722, 591056690, 924729230, 919317033,
2 311568427,1003487232, 987778771,1038254486, 496561884, 969864192,
3 988518051, 605487424, 236095588, 74523756, 183780690, 490294994,
4 856505310, 960314085,1073353314, 605553056, 236062724,1003487232,
5 988833883, 197390619, 295806976,1038198957, 285624851, 658164433,
6 788247170, 672826080, 874384317, 979384463, 419971695, 652511521,
7 403178241, 942635574, 494364219, 734851995, 966581942, 594473984,
8 987486935, 765194044, 936275865, 930929398,1038596655/
DATA ( KRD(I), I= 601, 650) / 722191119, 821034531, 538378592,
1 135269309, 988833883, 197390619, 295805952,1038198026, 414691950,
2 790417374, 516433476, 672826080, 874384317, 977299675, 634155931,
3 966789121, 134546113, 942601216, 996164658, 120736946, 185705504,
41038197933, 251971955, 456608240, 518464896,1038558733, 621431507,
5 826067792, 887851745, 806126433, 942601216, 989873234, 187911410,
6 252880960,1038264557, 352799283, 691751665, 821834402, 706413280,
7 874384317, 986173043, 791463791, 953035590, 810191425, 436502689,
8 102797319, 9516175, 253053427,1003487232, 987776082/
DATA ( KRD(I), I= 651, 700) / 187944210, 286505093,1072695297,
1 33652929, 271546501, 171181440, 537528002, 843947914, 953007921,
2 791301651, 421839086,1003487232, 987469475, 571900192, 168921124,
3 7349292, 116606226, 456707762, 822950878, 960314085,1073318497,
4 671810369, 942601216, 987776082, 187944210, 286468192,1038297454,
5 487148243, 859687825, 957281280, 985663585, 302482049, 774672229,
6 914170633, 681913580, 215170288, 320227891, 725502909, 984633235,
71038709030, 306514305, 571212733, 989873234, 187911410, 252845188,
8 170067200, 369559107, 711698398, 893101730, 706413280/
DATA ( KRD(I), I= 701, 750) / 874384317, 988824658, 187944210,
1 286432420, 203654432, 403146274, 676044586, 922636221, 994067506,
2 120769746, 219259973, 70354048, 201590116, 479738419,1038558629,
3 439813600, 571049668, 849197971,1003487232, 987776082, 187944210,
4 672826080, 874384350, 937917, 988824658, 187944210, 286432420,
5 203654432, 403179139, 778872798, 960276479, 709495393, 570884385,
6 203494333, 988008307, 959334256, 36702209, 34276285, 566915835,
7 867032980, 958248745, 744032769, 402915489, 102798344, 11582579,
8 225798555, 567211008, 429419099, 667222973, 227830139/
DATA ( KRD(I), I= 751, 800) / 566915867, 900589463, 962449169,
1 415508648, 106990592, 806286336, 4262017, 302416481, 741084997,
2 915254092, 753450704, 824037269, 964552538, 834302492, 397699289,
31003487232, 638480391, 880735232, 3278112, 436799138, 810359657,
4 919419664, 756632018, 320029084, 969864192, 7383148, 181680591,
5 586890060, 917349189, 809175649, 436535457, 36705290, 48384310,
6 530280348,1003487232, 67279114, 418926296, 968913853, 485767341,
7 113289223, 5278881, 335970913, 741084997, 915254092, 753450447,
8 352601330, 222517496, 363228732, 701263706, 933126037/
DATA ( KRD(I), I= 801, 850) / 926697168, 587133952, 198051,
1 644623214, 959340409, 800682492, 330524825, 91279410, 84097389,
2 484063983, 856542101,1003487232, 235014212, 39855116, 50415765,
3 225764795, 567211008, 403146339, 744234826, 919487379, 929915674,
4 734983168, 403015011, 408361478, 576228865, 470156221, 15612894,
5 374923197, 15612861, 15612894, 644144094, 828513213, 947133,
6 10266590, 121524157, 253053331, 525917785, 632877564, 464938391,
7 459790903,1003487232, 571965856, 404098469, 510171717, 607684607,
8 512104773, 240055296, 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,291400000506,
C 381 232827062800,303027060506,292900000000,291604151915,231425132612,
C 386 271027082605,240320011500,000004150828,212825272725,282328212719,
C 391 251723161915,292900000000,291623052003,160112000800,050103020105,
C 396 000800110115,031906230925,132717282128,242726262725,282329290000,
C 401 291700000728,182822272426,262427222819,281627122610,240722051903,
C 406 150111000000,292900000000,291723000000,041607282828,303004161916,
C 411 292900000000,291800000416,072828283030,041618162929,291616112511,
C 416 230520031601,120008000501,030201050008,001101150319,062309251327,
C 421 172821282427,262627252823,292900000000,291800000416,072830300416,
C 426 251630302828,251621002929,290501002628,292900000000,291701110008,
C 431 000601040302,050108001200,150117022004,220724122828,292900000000,
C 436 291700000209,072830300209,131728283030,131723002929,291409280000,
C 441 280029290000,292500000528,130828282300,292900000000,291800000728,
C 446 210028282929,291516282028,232725262723,282028172713,250922051802,
C 451 160112000800,050103020105,000800110115,031906231026,122716282929,
C 456 291700000313,072820282427,262627252823,282127182516,211417130313,
C 461 292900000000,291508000501,030201050008,001101150319,062310261227,
C 466 162820282327,252627232820,281727132509,220518021601,120008003030,
C 471 160731312006,292900000000,291700000313,072820282427,262627252823,
C 476 282127182516,211417130313,303017132300,292900000000,291600040302,
C 481 050110001400,190123032505,260726092511,231321141216,101708190721,
C 486 072208241026,122716282028,252728262929,291405001428,303000282828,
C 491 292900000000,291705280009,000601040302,050108001200,150117022004,
C 496 220724122828,292900000000,291400280500,282829290000,292300280100,
C 501 142815002828,292900000000,291700002828,303009282300,292900000000,
C 506 291405000913,303000280913,282829290000,291808282828,000021002929,
C 511 291421051903,160112000800,050103020104,000700090112,031506170818,
C 516 121916192018,231624143030,261924142105,200220012100,230026012802,
C 521 292900000000,291300260227,062808280927,092605140205,000030300205,
C 526 040307011100,150020012202,250427072810,281227152517,231819191519,
C 531 111807160514,292900000000,291224032202,190113000900,050103020104,
C 536 000700090111,031406161018,151919192418,281629290000,291421051903,
C 541 160112000800,050103020104,000700090112,031506170818,121916192018,
C 546 231624143030,202622272528,272828272826,241421052002,200121002300,
C 551 260128022929,291224032202,190113000900,050103020104,000700090111,
C 556 031406161118,171921192518,271728152814,271223101709,090904100111,
C 561 292900000000,291400192219,303005001222,142517272228,282829290000,
C 566 291423052103,180114001000,070105020304,020702090312,051508171018,
C 571 141918192218,251626143030,281926142305,313120041902,180116001300,
C 576 070104020004,292900000000,291500260227,052807280827,082603100000,
C 581 303003100513,081612181619,191921182217,231523122002,200121002300,
C 586 260128022929,290600140415,121616161915,191409020901,120016002401,
C 591 280230301722,142314251727,212825282827,282525232122,172229290000,
C 596 291323222223,222523272528,272828272825,272325222322,303015141715,
C 601 211623162415,241431311703,160114001100,040100022929,291500260227,
C 606 052807280827,082603090000,303003090810,121115121914,231725193030,
C 611 151216091804,200121002300,260128022929,290400260627,182824282827,
C 616 282600020001,040010002201,280229290000,292200170118,031904190518,
C 621 051703090100,303003090513,071609181119,131914181516,151414091200,
C 626 303014091613,181620182219,241925182616,261423022301,240025002701,
C 631 280229290000,291600170218,051906190718,071705100200,303005100713,
C 636 101614181719,201922182317,241524122102,210122002300,260128022929,
C 641 291215191919,231825172715,281228102606,240421021801,130009000501,
C 646 030201040007,000902130415,071710181519,292900000000,291400170218,
C 651 051907190818,081707140405,313100020001,010003000601,080230300405,
C 656 050308011200,160020012202,250427072810,281227152517,231820191619,
C 661 121809160714,292900000000,291323052103,170113000900,050103020104,
C 666 000700090112,031506170818,131917192118,241626143030,281926142305,
C 671 313119021901,200022002601,280229290000,291400170218,051907190818,
C 676 081706100300,303006101114,141618182219,251927182817,281629290000,
C 681 291200020301,090015002001,230225032705,270726082409,201010110712,
C 686 061306150716,091712181719,211928182929,291100192819,303018280906,
C 691 090410021201,170024002929,291600170218,051906190718,071704070404,
C 696 050206010800,110014011803,210623093030,261923092102,210122002300,
C 701 260128022929,291500170218,051907190818,081705070504,060207010900,
C 706 120015011702,200423072510,271528192929,292000170118,031905190618,
C 711 061703090205,020303010400,060008011104,140916141719,303014091305,
C 716 130314011500,170019012204,250927142819,292900000000,291400170218,
C 721 051907190818,200121002300,260128023030,000028192929,291500170218,
C 726 051907190818,081705070504,060207010900,120016012003,230625093030,
C 731 281925093131,210420021901,170014000901,060202042929,291407192719,
C 736 281828172716,010300020001,010022002929,162820282327,252627232820,
C 741 281727132509,220518021601,120008000501,030201050008,001101150319,
C 746 062310261227,162829290000,122516261827,192810002929,062508261127,
C 751 162820282427,262627252823,282127192417,121208100508,030601030000,
C 756 240029290000,000402020401,090013001901,220224032605,270827102612,
C 761 221417152216,241727192821,282327252626,242720281628,112708260625,
C 766 292900000000,190028280007,260729290000,000304010900,130018012102,
C 771 240426062709,271226142416,221718181418,091706161228,282829290000,
C 776 000701100312,051308141415,171522142612,271027082605,240322021901,
C 781 130010000501,010300050010,011404180922,152522272828,292900000000,
C 786 020005060810,121516192224,282800282929,141508140513,031201100007,
C 791 000501030501,100013001901,220224032605,270827102612,221417151415,
C 796 101608170718,062006220724,102612271728,202824272626,272528232821,
C 801 271924172216,171529290000,000006011303,190624102714,281828232725,
C 806 232718281528,092706260425,022301200118,021606141113,141320142315,
C 811 251627182821,292900000000,070004020204,010600090012,011602180421,
C 816 062309251327,162829290000,120015011903,220524072610,271228162819,
C 821 272226242426,212829290000,120011011103,120514061606,170517031601,
C 826 140012002929,001428143030,110517232929,001428142929,001428143030,
C 831 190609223030,242204062929,000028282929,000925093030,031928192929,
C 836 071710181219,152117231825,182717281528,132712251223,132215221723,
C 841 292900000000,170115001300,120112031305,150617061805,180317013131,
C 846 150812061005,070429290000,000000000000,000000000000,000000000000,
C ADVANCED LTRPLT PROGRAM DECK MUST BE USED WITH THIS ARRAY DECK
END