Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - 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