Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0049/font6a.for
There is 1 other file named font6a.for in the archive. Click here to see a list.
SUBROUTINE FONT6
C FONT6 09/15/67
C FONT6 - COORDINATE ARRAYS FOR ROUNDED ROMAN AND GREEK LETTERING
C FONT6 IS AN ALTERNATE FORM OF THE SINGLE STROKE LETTERING OF FONT3
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) / 2850285, 802940294, 802960296,
1 803030303, 803130313, 3150315, 3220322, 3320332, 3350335,
2 3490349, 10001, 903830383, 3700370, 10001, 10001,
3 10001, 103760376, 20120, 50129, 130138, 200146,
4 260155, 290164, 320168, 400179, 430185, 10001,
5 703590359,1103850385, 3950395, 3980398, 10001/
DATA (LOCATN(I), I= 33, 64) / 203780378, 450191, 500200,
1 540204, 560206, 590214, 610220, 700229, 750238,
2 850247, 10001, 500010001, 303790379, 10001, 10001,
3 10001, 10001, 403820382, 910252, 1010260, 1030264,
4 1080270, 1100272, 1130275, 1150278, 1180283, 10001,
5 603640364,1003900390, 4070407, 4010401, 4040404/
DATA (LOCATN(I), I= 65, 96) / 2850285, 802940294, 802960296,
1 803030303, 803130313, 3150315, 3220322, 3320332, 3350335,
2 3490349, 10001, 903830383, 3700370, 10001, 10001,
3 10001, 103760376, 4080513, 4110524, 4210535, 4230545,
4 4250557, 4280566, 4300579, 4330586, 4430596, 10001,
5 703590359,1103850385, 3950395, 3980398, 10001/
DATA (LOCATN(I), I= 97,128) / 203780378, 4460600, 4490608,
1 4510613, 4530622, 4550629, 4580644, 4670652, 4690655,
2 4750663, 10001, 500010001, 303790379, 10001, 10001,
3 10001, 10001, 403820382, 4770671, 4790676, 4860683,
4 4960692, 4980697, 5060703, 10001, 10001, 10001,
5 603640364,1003900390, 4070407, 4010401, 4040404/
DATA ( KRD(I), I= 1, 50) /1003487232, 488320,1038195494,
11003487232, 16301774, 819834761, 946705154, 739803136, 29946555,
2 799859542, 895274737, 721993661, 945622721, 570884385, 171021353,
3 12599347, 124970299, 499708635, 899571645, 29116, 599419640,
4 862834576, 953001766, 776604193, 436208573, 939524124, 902789135,
5 620688384, 29596,1038106191,1003487232, 616443781, 876283424,
6 470058147, 105948172, 16829559, 194309596, 600534873, 964621312,
7 29662, 16662494, 969802685, 973566400,1003487232, 11543590,
8 137627008, 537528067, 913188764,1003487232, 29662/
DATA ( KRD(I), I= 51, 100) / 9815900,1038468992,1003487232,
1 29361024,1003487232, 995098652, 478049152,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, 161738140, 533393210,1003487232/
DATA ( KRD(I), I= 101, 150) / 30307294, 499581885, 29369382,
1 137627008, 537528067, 913188764,1003487232, 29819804,1003487232,
2 995127520, 499811228,1003487232, 881630, 97387453, 470234140,
31038563228,1003487232, 97415168, 940504064, 985534274, 773390752,
4 269649988, 39855115, 48316594, 288805460, 792546193,1039029120,
51003487232, 984641536,1038093378, 169148896, 672893764, 913188747,
6 921518834, 691523924, 187779089,1003487232, 985548626, 792285620,
7 288540752, 48245769, 39915682, 269910592, 773655427,1003487232,
8 985548626, 792285620, 288540752, 48245769, 39915682/
DATA ( KRD(I), I= 151, 200) / 269910592, 773655427,1039008668,
11003487232, 984625035, 921518834, 725111188, 254986320, 48245769,
2 39915682, 236323328, 706480996,1003487232, 984634196,1039037148,
3 599255513, 460751805, 985534274, 773390752, 269649988, 39855115,
4 48316594, 288805460, 792546193,1039029247, 945655618, 706217282,
5 205452288, 984641536,1038103599, 118738324, 558550833, 922630016,
61003487232, 978704950, 830333818, 834204028, 162588728, 158718942,
7 486998973, 985291542, 931029914, 935096988, 599288344, 595221470,
8 756022981, 708446689, 336726019,1003487232, 984641536/
DATA ( KRD(I), I= 201, 250) /1038097236,1038530432,1003487232,
1 973566400,1003487232, 995098644,1038104625, 120803604, 389465550,
2 470776270, 521719444, 760008561, 955122621, 984612884,1038103599,
3 118738324, 558550833, 922630016,1003487232, 985006592, 706448196,
4 913188747, 921518834, 725111188, 254986320, 48245769, 39915682,
5 236323773, 984616002, 169148896, 672893764, 913188747, 921518834,
6 691523924, 187779089,1038111743, 2028544, 985534274, 773390752,
7 269649988, 39855115, 48316594, 288805460, 792546193,1039029247,
8 941552640, 984612884,1038101549, 116606323, 592106291/
DATA ( KRD(I), I= 251, 300) / 925779901, 984615041, 436765409,
1 875434886, 881566988, 181516367, 85051571, 424170291,1003487232,
2 984634196,1038545317, 473401889, 739115965, 984633351, 38898913,
3 403178145, 842897287,1039029120,1003487232, 984633792, 961475584,
4 995119328, 491422612,1003487232, 984613716,1038177152,1003487232,
5 984633792,1039028672,1073059107, 237077505,1003487232, 984699796,
6 918461, 403178113, 775722856, 953041780, 863757979, 566653211,
7 194108468, 16789544, 106073345, 403633152, 261482939, 499581885,
8 26306747, 365392539, 799859542, 895274737, 721727723/
DATA ( KRD(I), I= 301, 350) / 143693827, 918461, 93481211,
1 432566939, 799859542, 895274737, 688406190, 819834761, 946705154,
2 706216320, 202475524,1003487232, 806121479, 947844096, 3310912,
3 503973667, 912139146, 920436369, 522537137, 84046652,1003487232,
4 39887947, 181680559, 553302797, 918431622, 910953121, 537297153,
5 169938982, 9450544, 120805753, 599520189, 30307064, 659046827,
6 375718845, 553272049, 859658070, 864807579, 566653211, 195158102,
7 89246897, 285621775, 720123755, 949885796, 808093184, 402883714,
8 37754889, 45233390, 419361792, 168134179, 745318252/
DATA ( KRD(I), I= 351, 400) / 956190582, 898362011, 533098747,
1 161538070, 19973263, 249968109, 686538577, 926800829, 442997285,
2 608766497, 503742817, 337973605, 443479040,1073294890, 513189226,
3 347420014, 452443694, 618212904, 510006205, 629726710, 459660632,
4 363195836, 533261914, 629724659, 421458944, 494344158, 15612861,
5 15612861, 15612894, 727948254, 258644925, 968885181, 20860894,
6 10364861, 667642648, 895340432, 953001799, 810224224,1003487232,
7 331573400, 89181200, 12624967, 138610976,1003487232, 954678172,
8 15598030,1003487232, 15154071, 969128832, 945241021/
DATA ( KRD(I), I= 401, 450) / 954677271, 30062592, 5716925,
1 15153180, 954204622,1003487232, 499581885, 488320,1038230280,
21003487232, 15219373, 818753386, 948837220, 876350113, 536870940,
3 566947610, 899539862, 961399633, 822787598,1003487232, 29596,
41003487232, 488320, 979968, 968912896, 940537870, 720303104,
5 30306304, 940504064, 29361118, 15612894, 969802685, 432566939,
6 798809972, 957231976, 844861057, 537264385, 171021352, 12599348,
7 124970267, 433027310, 720303104, 264958942, 499581918, 235570109,
8 29361118, 11432926, 387843005, 488320,1003487232/
DATA ( KRD(I), I= 451, 500) / 29134, 969802685, 29568,
1 969864192, 30307294, 250264542, 918461, 432566939, 798809972,
2 957231976, 844861057, 537264385, 171021352, 12599348, 124970267,
3 432993280, 29596, 940504064, 29212, 733768537, 932076436,
4 925714192, 720910350,1003487232, 968913358, 918461, 30307294,
5 499581885, 24175739, 230977915, 462904768,1038573049, 599421660,
6 868083607,1003487232, 428368567, 795693939, 957233002, 882613926,
7 542512358, 175186986, 13647923, 88266999, 428833244, 470742016,
8 30278622, 947133, 25220147, 16790570, 76717286/
DATA ( KRD(I), I= 501, 550) / 408426150, 779954026, 954090355,
1 928932830, 499581885, 229422, 17846327, 92465403, 432566971,
2 799892343, 961431406, 705561533, 960346921, 778702369, 436568257,
3 103846920, 10531984, 254135731, 623559406, 817637060, 742098688,
4 873301891,1003487232, 143792292, 270861760, 604735266, 911088521,
5 918304462, 654066513, 925782934, 931982075, 667414907, 329540855,
61072694205,1072716857, 94530812, 331771354, 530078228, 480680323,
7 370475264, 236161286, 346471922, 627729146, 868119485, 456510706,
8 151041034, 8426595, 202736032, 572133094, 815541998/
DATA ( KRD(I), I= 551, 600) / 722028979, 323179670, 125953178,
1 230027740, 733801369,1003487232, 924600915, 489965745, 117521486,
2 114471179, 480486504, 40900612, 36800705, 403178177, 841937920,
3 331640090, 328654358, 693884790, 964584313, 799697433, 393499892,
4 185709641, 73502851, 270532136, 679156452, 775621249, 503709857,
5 3077120, 20040850, 184727616,1038231725, 285592051, 591088432,
6 921579401,1073480637, 533263003, 798808913, 887925512, 744099361,
7 436568321, 171022411, 81905812, 225731963, 533690446, 888075264,
8 490019140, 371623424, 604669666, 810294205, 154221611/
DATA ( KRD(I), I= 601, 650) / 5243870, 5349578, 383337234,
1 960461100, 346430917, 574196480,1003487232, 29551866, 361126355,
2 809305984,1038090707,1003487232, 222297088,1038231718, 205785409,
3 436699745, 742135591, 883838942, 883726115, 874349440,1003487232,
4 20204850, 320093322, 38799361, 33652961, 406328968, 784119664,
5 960427008, 163768537, 294084247, 898525082, 901411292, 296937625,
6 124900499, 219431311,1038761359, 182563883, 9443364, 136513535,
7 579477190, 776703682, 672629120,1003487232, 456642194, 789363531,
8 882678467, 639074720, 269651045, 75573357, 218417587/
DATA ( KRD(I), I= 651, 700) /1003487232, 20860894, 254903262,
1 725124029,1072693395, 191128955, 533263067, 865984404, 959299340,
2 715695593, 346271918, 152195005, 959827186, 151041034, 8426595,
3 202736032, 572133094, 815541998, 722028979,1003487232, 20860894,
4 490019140, 371623424, 604669666, 810294205, 20106450, 219293832,
5 173247809, 503874209, 809343881, 951960402, 859763712, 456642194,
6 789363531, 882678467, 639074720, 269651045, 75573357, 218417587,
71038709759, 336524288,1072722075, 228845219, 741083008,1039137792,
8 969864192, 154214501, 171181472, 503940803, 846014355/
DATA ( KRD(I), I= 701, 750) /1038709759, 336524288, 154222638,
1 10493988, 69305504, 235177315, 442966500, 539526752, 705398563,
2 913189772, 923618099,1003487232, 0, 0, 0,
3 0, 0, 0, 0, 0, 0,
4 0, 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 LOCATN(I),I=1,64 CONTAINS LOCATION POINTERS FOR SINGLE LINE ROMAN
C
C LOCATN(I),I=65,128 CONTAINS LOCATION POINTERS FOR GREEK LETTERS
C GREEK LETTERS ARE GIVEN IN SAME NUMERICAL SEQUENCE AS ROMAN
C CODE FOR 24TH LETTER OF GREEK ALPHABET IS SAME AS 24TH OF ROMAN
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 , LFTARO , LFTARO , ****** /
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 , ****** , RITARO , RITARO /
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,000014282800,303003062506,292900000000,001517152214,
C 6 241327112809,280627042402,220117000000,002817282127,232625242622,
C 11 262125192317,211617152929,280526032201,170014000901,050303050109,
C 16 001200160119,032305250927,142817282227,262528232929,000000281328,
C 21 172720262324,252227192816,281227092506,230420021701,130000002929,
C 26 280000000028,262830300015,181529290000,000000282828,303000151815,
C 31 292900000000,181128112805,260322011700,140009010503,030501090012,
C 36 001601190323,052509271428,172822272625,282329290000,000000283030,
C 41 001528153030,282828002929,290014281400,292900000000,001100090106,
C 46 040308011200,160020012403,270628092828,292900000000,000000283030,
C 51 000911172628,303011172800,292900000000,002800002800,292900000000,
C 56 292100000028,140728282800,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,042607271228,152821272526,292900000000,
C 101 002828283030,142814002929,002800090106,040308011200,160020012403,
C 106 270628092828,292900000000,002814002828,292900000000,292100280700,
C 111 142821002828,292900000000,000026283030,022828002929,140014130028,
C 116 303014132828,292900000000,022828280000,280029290000,291128032602,
C 121 230118001300,080105020204,010600090011,011402160518,081913201820,
C 126 231926182817,303028202800,292900000000,291100280000,303000030202,
C 131 050110001500,200123022604,270628092811,271426162318,201915201020,
C 136 051902180017,292900000000,291128172618,231918201320,081905180216,
C 141 011400110009,010602040502,080113001800,230126022803,292900000000,
C 146 291128172618,231918201320,081905180216,011400110009,010602040502,
C 151 080113001800,230126022803,303028002828,292900000000,291100112811,
C 156 271426162318,211916201220,071905180216,011400110009,010602040502,
C 161 070112001600,210124022704,292900000000,291100202620,303028282228,
C 166 172715261425,132313002929,291128032602,230118001300,080105020204,
C 171 010600090011,011402160518,081913201820,231926182817,303028203131,
C 176 280527032602,210116011002,060329290000,291100280000,303000130115,
C 181 031707191220,162021192517,271528132800,292900000000,290511221722,
C 186 242327242726,242717281128,042701260124,042311223030,141614002929,
C 191 291120222422,272328242826,272724282028,172716261624,172320223030,
C 196 221631312205,210320021501,100104020003,292900000000,291100280000,
C 201 303000062620,303013132800,292900000000,290014281400,292900000000,
C 206 292100000020,303000140117,031906200820,111913171414,140030301414,
C 211 151717192020,222025192717,281428002929,291100000020,303000130115,
C 216 031707191220,162021192517,271528132800,292900000000,291112001600,
C 221 210123022604,270628092811,271426162318,211916201220,071905180216,
C 226 011400110009,010602040502,070112002929,291100030202,050110001500,
C 231 200123022604,270628092811,271426162318,201915201020,051902180017,
C 236 303000203131,000129290000,291128032602,230118001300,080105020204,
C 241 010600090011,011402160518,081913201820,231926182817,303028203131,
C 246 280129290000,291100000020,303000110113,031506171119,172021202519,
C 251 271828172929,291100020401,130017002301,260228042806,260823090812,
C 256 051303140215,021703180519,122016202519,292900000000,291100202620,
C 261 303013281305,140315021701,220028002929,291100200007,010503030701,
C 266 120016002101,250327052807,303028202800,292900000000,291100201400,
C 271 282029290000,292100200700,142021002820,292900000000,291100002620,
C 276 303002202800,292900000000,291100201400,303028201400,313111050903,
C 281 070203010001,292900000000,291102202820,000028002929,120016002001,
C 286 230325052708,281228162720,252323252027,162812280827,052503230120,
C 291 001600120108,030505030801,120029290000,072511261327,142814002929,
C 296 002502260527,102814282027,232625242622,262125192317,211609120711,
C 301 040901060003,000028002929,022504260727,122816282027,232625242622,
C 306 262125192317,201616152114,241327112809,280627042402,210116001200,
C 311 060103020004,292900000000,240024280007,280729290000,000305011000,
C 316 150020012503,270528082810,271325152017,151810180517,021604282528,
C 321 292900000000,010601090211,051308141315,161521142413,271128092806,
C 326 270424022101,160013000801,050202040106,000900130116,031906221125,
C 331 172723282929,002828282324,192016161311,110610002929,161520162317,
C 336 251926212622,252423262027,162812280827,052603240222,022103190517,
C 341 081612151615,211424132711,280928062704,240221011600,120007010402,
C 346 010400060009,011104130714,121529290000,050011011703,220625092712,
C 351 281528192722,262423262027,152812280727,042601240022,001901170415,
C 356 071412131513,201423152617,271927222929,130615061705,180418021701,
C 361 150013001101,100210041105,130629290000,313118111710,150913091110,
C 366 101110131114,131515151714,181318111708,150612042929,182417231522,
C 371 132211231024,102611271328,152817271826,182417211519,121729290000,
C 376 142314053030,001428142929,001428142929,001428143030,212207063030,
C 381 072221062929,282800002929,001928193030,000928092929,192822262424,
C 386 262127192816,281227092607,240422021900,292900000000,092806260424,
C 391 022101190016,001201090207,040406020900,292900000000,281414142828,
C 396 001428001414,292900000000,001414142823,282807142800,280514142929,
C 401 281414140023,002821140000,000514142929,001414140028,281400001414,
C 406 292900000000,142814002929,000014282800,303004082408,292900000000,
C 411 001416142113,241226112710,280828062704,260324022101,160000000028,
C 416 162821272426,262527242822,282027182617,241621151614,292900000000,
C 421 000000282828,292900000000,000014282800,000029290000,282800280000,
C 426 280030300014,211429290000,002828280000,280029290000,002800003030,
C 431 001428143030,282828002929,122816282027,232525232720,281628122708,
C 436 250523032001,160012000801,050303050108,001200160120,032305250827,
C 441 122830300714,211429290000,072821283030,142814003030,070021002929,
C 446 002800003030,001028283030,111728002929,000014282800,292900000000,
C 451 000000281414,282828002929,000000282800,282829290000,002828283030,
C 456 071421143030,000028002929,122816282027,232525232720,281628122708,
C 461 250523032001,160012000801,050303050108,001200160120,032305250827,
C 466 122829290000,000000282828,280029290000,000000281628,212724262625,
C 471 272428222820,271826172416,211516140014,292900000000,282800281414,
C 476 000028002929,002828283030,142814002929,002301250327,062808281127,
C 481 132514231400,303014231525,172720282228,252727252823,292900000000,
C 486 122416242123,232226202719,281628132710,260923072106,160512050706,
C 491 050702090110,001300160119,022005220723,122430301428,140029290000,
C 496 002828003030,000028282929,002401210119,001600130110,020905070706,
C 501 120516052106,230726092710,281328162719,272128243030,142814002929,
C 506 000007000114,001700200123,022405260727,122816282127,232626242723,
C 511 282028172714,210028002929,281927142509,230620031701,130011000601,
C 516 030301050008,001001130416,071811191319,181821162314,241124092204,
C 521 220323012400,260027012803,292900000000,040904060504,080210011400,
C 526 180023012502,270428062809,271124132214,191524162617,271828202822,
C 531 272425262327,192815281127,092608250723,313100002929,313100230125,
C 536 022604270728,092812271426,152516221620,141013061203,110110000800,
C 541 070107020806,101013151518,182220242326,252728282929,131911190718,
C 546 041601130010,000801050303,060111001300,170120032306,240924112314,
C 551 211618181319,092006210422,032403250426,062711281428,212725262825,
C 556 292900000000,271724181819,141908180517,031602150214,031305120811,
C 561 141007090308,010700060004,010303020601,120016002201,250229290000,
C 566 092808270826,092513231622,202123212722,282328242725,232620261625,
C 571 112308210720,051703130209,020603040403,080131311708,200722062304,
C 576 230322022001,150012000501,000229290000,001903190418,051605140200,
C 581 303004100513,081611181519,171922182516,271428112809,313124002929,
C 586 152817282027,232525222617,261425102408,220520031701,130011000801,
C 591 050303060211,021403180420,062308251127,152830300214,261429290000,
C 596 141910061004,110213011600,180021012302,240424062929,041902150111,
C 601 000500003030,000503080610,111318162418,281930300912,101012071405,
C 606 170319022400,292900000000,002805270726,102412221419,240326012800,
C 611 303000001419,292900000000,061931310000,303004100506,060408021001,
C 616 130015001901,220324052507,261028193030,261025052503,260127002800,
C 621 292900000000,001908190918,091708150410,010500020001,010003000701,
C 626 120316052008,231125132716,281929290000,042805260625,082414232023,
C 631 262428252826,262720281428,082705260425,032303210419,061708161215,
C 636 303020151215,051403130111,000900060104,040206013131,170820072206,
C 641 230423032202,200115001200,292900000000,131915192018,231625142611,
C 646 260925062203,190115001300,080105030305,020802100313,061609181319,
C 651 292900000000,001928193030,071903003030,211917002929,313100000419,
C 656 052208251127,152817282227,252527232820,281827152412,211017091509,
C 661 101007120514,041704192929,281911190718,041601130010,000801050303,
C 666 060111001300,170120032306,240924112314,211618181319,292900000000,
C 671 001928193030,141910061004,110213011600,180021012302,240424062929,
C 676 001905190618,061704100408,050507031001,150017002101,240327062809,
C 681 281127162618,251929290000,131915192018,231625142611,260925062203,
C 686 190115001300,080105030305,020802100313,061609181319,303018283131,
C 691 100029290000,313100280427,062607252103,220224012800,303031310000,
C 696 282829290000,041902080305,050308011300,150019012203,250626092819,
C 701 303018283131,100029290000,041902160114,001000080104,020203010500,
C 706 070009011103,130614081504,160217011900,210023012503,270628102812,
C 711 271626182519,292900000000,000000000000,000000000000,000000000000,
C ADVANCED LTRPLT PROGRAM DECK MUST BE USED WITH THIS ARRAY DECK
RETURN
END