Trailing-Edge
-
PDP-10 Archives
-
decus_20tap2_198111
-
decus/20-0049/font3.for
There is 1 other file named font3.for in the archive. Click here to see a list.
SUBROUTINE FONT3
C FONT3 09/20/67
C FONT3 - COORDINATE ARRAYS FOR ROUNDED ROMAN AND GREEK LETTERING
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) / 2860286, 802950295, 802980298,
1 803090309, 803200320, 3220322, 3300330, 3420342, 3440344,
2 3610361, 10001, 903980398, 3850385, 10001, 10001,
3 10001, 103910391, 20129, 50137, 150145, 220152,
4 280160, 310168, 340174, 430185, 460190, 10001,
5 703730373,1104000400, 4100410, 4130413, 10001/
DATA (LOCATN(I), I= 33, 64) / 203930393, 500196, 550205,
1 580208, 600210, 630220, 650225, 740234, 800243,
2 910252, 10001, 500010001, 303940394, 10001, 10001,
3 10001, 10001, 403970397, 990257, 1100266, 1120268,
4 1170273, 1190275, 1220278, 1240280, 1270284, 10001,
5 603780378,1004050405, 4220422, 4160416, 4190419/
DATA (LOCATN(I), I= 65, 96) / 2860286, 802950295, 802980298,
1 803090309, 803200320, 3220322, 3300330, 3420342, 3440344,
2 3610361, 10001, 903980398, 3850385, 10001, 10001,
3 10001, 103910391, 4230528, 4260539, 4360550, 4380560,
4 4400572, 4430581, 4450594, 4480601, 4580611, 10001,
5 703730373,1104000400, 4100410, 4130413, 10001/
DATA (LOCATN(I), I= 97,128) / 203930393, 4610615, 4640623,
1 4660628, 4680637, 4700644, 4730659, 4820667, 4840670,
2 4900678, 10001, 500010001, 303940394, 10001, 10001,
3 10001, 10001, 403970397, 4920686, 4940691, 5010698,
4 5110707, 5130712, 5210718, 10001, 10001, 10001,
5 603780378,1004050405, 4220422, 4160416, 4190419/
DATA ( KRD(I), I= 1, 50) /1003487232, 488320,1038230280,
11003487232, 15219373, 818753386, 948837220, 876350113, 536870940,
2 566947610, 899539862, 961399633, 822787598,1003487232, 899443387,
3 566653179, 161571896, 23074852, 70387937, 403178145, 808259517,
4 29212, 733768537, 932076422, 911019778, 706215936,1003487232,
5 968912896, 940537870, 720303104, 968912896,1038105262,1003487232,
6 932013850, 733507996, 263350361, 58742790, 37817474, 236323328,
7 706480963, 911088523, 582939648, 29361118, 15612894, 969802685,
8 980448156,1038578112,1038091136,1003487232, 969808740/
DATA ( KRD(I), I= 51, 100) / 876350113, 537264353, 136383524,
1 6300605, 29361118, 11432926, 387843005, 29361024,1003487232,
2 995098652, 485389184,1003487232, 29568, 969864192, 432566971,
3 833447800, 963517284, 876350113, 537264353, 136383524, 6314040,
4 93481211, 432993280, 29212, 733768537, 932076436, 925714192,
5 720910350,1003487232, 432566971, 833447800, 963517284, 876350113,
6 537264353, 136383524, 6314040, 93481211, 433027529, 546906913,
7 906888125, 29212, 733768537, 932076436, 925714192, 720910350,
81038629453, 650906401, 906888125, 899443387, 566653179/
DATA ( KRD(I), I= 101, 150) / 161571896, 23089202, 85082351,
1 719074123, 917382022, 911019778, 706216320, 236062787,1003487232,
2 30307294, 499581885, 29366308, 70387937, 403178145, 808259428,
3 946762685, 29819804,1003487232, 995127584, 489259932,1003487232,
4 30278622, 968885181, 29834206, 969357760,1003487232, 30306304,
5 940504064, 888915634, 557206770, 185678894, 11542565, 71469281,
6 403178145, 774706142, 893191101, 96535518, 83018994, 423120562,
7 790445934, 951984997, 877365921, 537264353, 169939901, 888915634,
8 557206770, 185678894, 11542565, 71469281, 403178145/
DATA ( KRD(I), I= 151, 200) / 774706109, 888915634, 557206770,
1 185678894, 11542565, 71469281, 403178145, 774706142, 902628285,
2 47068014, 888915634, 557206770, 185678894, 11542565, 71469281,
3 403243745, 841880509, 963534713, 900492956, 633826714, 395664704,
41038110355,1003487232, 888915634, 557206770, 185678894, 11542565,
5 71469281, 403178145, 774706142,1073574723, 841713184, 369263682,
6 4125696, 96535518, 83018994, 423120562, 790445934, 951976893,
7 980840988, 700148440, 695753110, 292774106, 297169886, 485950397,
8 734786363, 900555575, 795531895, 629762683, 735017679/
DATA ( KRD(I), I= 201, 250) /1073421988, 640189856, 369329314,
1 104931261, 29361118, 7229406, 381551549, 980906432,1003487232,
2 995118080,1038102575, 85051603, 288737681, 452407744,1038561775,
3 555272851, 758958929, 922628992,1003487232, 87098334, 83018994,
4 423120562, 790445934, 951976893, 423120562, 790445934, 951984997,
5 877365921, 537264353, 169938981, 8399918, 83018994, 423556096,
61072787520,1038171313, 254168595, 724289359, 921579400, 912069346,
7 706216320, 236095556,1003487232, 888915634, 557206770, 185678894,
8 11542565, 71469281, 403178145, 774706142,1073574720/
DATA ( KRD(I), I= 251, 300) /1003487232, 19923934, 11581519,
1 185846163, 557501169, 889123840, 923584210, 557206770, 118538255,
2 13676651, 246064936, 914234244, 909937345, 537264321, 102797245,
3 499581918, 20860861, 19931173, 71469281, 403178145, 774706142,
4 873287613, 20382611,1003487232, 995118368, 480871315,1003487232,
5 20841438, 959447997, 20382686, 960494915, 304317568, 979968,
6 20859904, 940504064, 432566971, 833447800, 963517284, 876350113,
7 537264353, 136383524, 6314040, 93481211, 432993280, 264729024,
81038320288,1003487232, 93481211, 432566971, 833447800/
DATA ( KRD(I), I= 301, 350) / 963531634, 891044527, 248655947,
1 44048384, 34703587, 305564129, 638223137, 908988349, 93481211,
2 432566971, 833447800, 963531634, 891044527, 552253196, 884845448,
3 946705219, 808093184, 402883714, 71234560, 946872220, 940504064,
4 969076848, 254168595, 724289359, 921579400, 912069346, 706216320,
5 236095556, 39777280, 899443387, 566653179, 161571896, 23074852,
6 70387937, 403178145, 808259428, 946742122, 884748973, 551958765,
7 146877482, 9368576, 30306528,1003487232, 432566971, 833447800,
8 963531634, 891044527, 551958765, 146877482, 8394788/
DATA ( KRD(I), I= 351, 400) / 70387937, 403178145, 808259428,
1 946742122, 884748973, 551958767, 151077938, 20994104, 93481211,
2 432993280, 961399633, 822787598, 417578128, 84985876, 23126105,
3 161738140, 566947610, 899539862, 946705219, 808093184, 402883714,
4 71234560, 442997285, 608766497, 503742817, 337973605, 443479040,
51073294890, 513189226, 347420014, 452443694, 618212905, 545725766,
61003487232, 629726710, 459660632, 363195836, 533261914, 629725717,
7 491081661, 494344158, 15612861, 15612861, 15612894, 727948254,
8 258644925, 968885181, 20860894, 10364861, 667642648/
DATA ( KRD(I), I= 401, 450) / 895340432, 953001799, 810224224,
11003487232, 331573400, 89181200, 12624967, 138610976,1003487232,
2 954678172, 15598030,1003487232, 15154071, 969128832, 945241021,
3 954677271, 30062592, 5716925, 15153180, 954204622,1003487232,
4 499581885, 488320,1038230280,1003487232, 15219373, 818753386,
5 948837220, 876350113, 536870940, 566947610, 899539862, 961399633,
6 822787598,1003487232, 29596,1003487232, 488320, 979968,
7 968912896, 940537870, 720303104, 30306304, 940504064, 29361118,
8 15612894, 969802685, 432566939, 798809972, 957231976/
DATA ( KRD(I), I= 451, 500) / 844861057, 537264385, 171021352,
1 12599348, 124970267, 433027310, 720303104, 264958942, 499581918,
2 235570109, 29361118, 11432926, 387843005, 488320,1003487232,
3 29134, 969802685, 29568, 969864192, 30307294, 250264542,
4 918461, 432566939, 798809972, 957231976, 844861057, 537264385,
5 171021352, 12599348, 124970267, 432993280, 29596, 940504064,
6 29212, 733768537, 932076436, 925714192, 720910350,1003487232,
7 968913358, 918461, 30307294, 499581885, 24175739, 230977915,
8 462904768,1038573049, 599421660, 868083607,1003487232/
DATA ( KRD(I), I= 501, 550) / 428368567, 795693939, 957233002,
1 882613926, 542512358, 175186986, 13647923, 88266999, 428833244,
2 470742016, 30278622, 947133, 25220147, 16790570, 76717286,
3 408426150, 779954026, 954090355, 928932830, 499581885, 229422,
4 17846327, 92465403, 432566971, 799892343, 961431406, 705561533,
5 960346921, 778702369, 436568257, 103846920, 10531984, 254135731,
6 623559406, 817637060, 742098688, 873301891,1003487232, 143792292,
7 270861760, 604735266, 911088521, 918304462, 654066513, 925782934,
8 931982075, 667414907, 329540855,1072694205,1072716857/
DATA ( KRD(I), I= 551, 600) / 94530812, 331771354, 530078228,
1 480680323, 370475264, 236161286, 346471922, 627729146, 868119485,
2 456510706, 151041034, 8426595, 202736032, 572133094, 815541998,
3 722028979, 323179670, 125953178, 230027740, 733801369,1003487232,
4 924600915, 489965745, 117521486, 114471179, 480486504, 40900612,
5 36800705, 403178177, 841937920, 331640090, 328654358, 693884790,
6 964584313, 799697433, 393499892, 185709641, 73502851, 270532136,
7 679156452, 775621249, 503709857, 3077120, 20040850, 184727616,
81038231725, 285592051, 591088432, 921579401,1073480637/
DATA ( KRD(I), I= 601, 650) / 533263003, 798808913, 887925512,
1 744099361, 436568321, 171022411, 81905812, 225731963, 533690446,
2 888075264, 490019140, 371623424, 604669666, 810294205, 154221611,
3 5243870, 5349578, 383337234, 960461100, 346430917, 574196480,
41003487232, 29551866, 361126355, 809305984,1038090707,1003487232,
5 222297088,1038231718, 205785409, 436699745, 742135591, 883838942,
6 883726115, 874349440,1003487232, 20204850, 320093322, 38799361,
7 33652961, 406328968, 784119664, 960427008, 163768537, 294084247,
8 898525082, 901411292, 296937625, 124900499, 219431311/
DATA ( KRD(I), I= 651, 700) /1038761359, 182563883, 9443364,
1 136513535, 579477190, 776703682, 672629120,1003487232, 456642194,
2 789363531, 882678467, 639074720, 269651045, 75573357, 218417587,
31003487232, 20860894, 254903262, 725124029,1072693395, 191128955,
4 533263067, 865984404, 959299340, 715695593, 346271918, 152195005,
5 959827186, 151041034, 8426595, 202736032, 572133094, 815541998,
6 722028979,1003487232, 20860894, 490019140, 371623424, 604669666,
7 810294205, 20106450, 219293832, 173247809, 503874209, 809343881,
8 951960402, 859763712, 456642194, 789363531, 882678467/
DATA ( KRD(I), I= 701, 750) / 639074720, 269651045, 75573357,
1 218417587,1038709759, 336524288,1072722075, 228845219, 741083008,
21039137792, 969864192, 154214501, 171181472, 503940803, 846014355,
31038709759, 336524288, 154222638, 10493988, 69305504, 235177315,
4 442966500, 539526752, 705398563, 913189772, 923618099,1003487232,
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,303004082408,292900000000,001416142113,
C 6 241226112710,280828062704,260324022101,160000000028,162821272426,
C 11 262527242822,282027182617,241621151614,292900000000,262524262127,
C 16 162812280727,042602250124,002200060104,020304020701,120016002101,
C 21 240226032929,000000281628,212724262625,272428222806,270426032402,
C 26 210116000000,292900000000,282800280000,280030300014,211429290000,
C 31 282800280000,303000142114,292900000000,272426252426,212716281228,
C 36 072704260225,012400220006,010402030402,070112001600,210124022603,
C 41 270428062811,171129290000,002800003030,001428143030,282828002929,
C 46 290700282828,303014281400,303000002800,292900000000,282828062704,
C 51 260324022101,160012000701,040202030104,000600082929,002800003030,
C 56 001028283030,111728002929,002800002800,292900000000,292100000028,
C 61 141428282800,292900000000,000000282800,282829290000,122816282127,
C 66 242626252724,282228062704,260324022101,160012000701,040202030104,
C 71 000600220124,022504260727,122829290000,000000281628,212724262625,
C 76 272428222820,271826172416,211516140014,292900000000,122816282127,
C 81 242626252724,282228062704,260324022101,160012000701,040202030104,
C 86 000600220124,022504260727,122830301409,160918082501,270028002929,
C 91 000000281628,212724262625,272428222820,271826172416,211516140014,
C 96 303016141813,191224022501,270028002929,262524262127,162812280727,
C 101 042602250124,002200200118,021704160715,211324122611,271028082806,
C 106 270426032402,210116001200,070104020203,292900000000,002828283030,
C 111 142814002929,002800060104,020304020701,120016002101,240226032704,
C 116 280628282929,002814002828,292900000000,292100280900,141819002828,
C 121 292900000000,002828003030,282800002929,002814143030,282814141400,
C 126 292900000000,002828280000,280029290000,261523172118,161912190718,
C 131 051702150114,001100080105,020405020701,120016002101,230226043030,
C 136 261926002929,022802003030,021505170718,121916192118,231726152714,
C 141 281128082705,260423022101,160012000701,050202042929,261523172118,
C 146 161912190718,051702150114,001100080105,020405020701,120016002101,
C 151 230226042929,261523172118,161912190718,051702150114,001100080105,
C 156 020405020701,120016002101,230226043030,262826002929,011228122714,
C 161 261523172118,161912190718,051702150114,001100080105,020405020701,
C 166 120018002301,250228042929,282228232725,262624272028,182814271226,
C 171 112510231000,303000192019,292900000000,261523172118,161912190718,
C 176 051702150114,001100080105,020405020701,120016002101,230226043030,
C 181 313126282603,250223011700,110005010202,000329290000,022802003030,
C 186 021505170718,121916192118,231726152714,281128002929,290712281628,
C 191 202722262224,202316221222,082306240626,082712283030,141514002929,
C 196 212823282527,262626242523,232221221923,182418261927,212830302215,
C 201 313122072104,190217011300,110007010502,030402072929,002800003030,
C 206 000628193030,111128002929,290714281400,292900000000,292100190000,
C 211 303000120115,021703180619,081911181217,131514121400,303014121515,
C 216 161717182019,221925182617,271528122800,292900000000,021902003030,
C 221 021505170718,121916192118,231726152714,281128002929,121916192118,
C 226 231726152714,281128082705,260423022101,160012000701,050202040105,
C 231 000800110114,021505170718,121929290000,313102280200,303002150517,
C 236 071812191619,211823172615,271428112808,270526042302,210116001200,
C 241 070105020204,292900000000,261523172118,161912190718,051702150114,
C 246 001100080105,020405020701,120016002101,230226043030,313126282600,
C 251 292900000000,001900003030,001101140215,051707181219,161921182317,
C 256 261529290000,271625172218,161912190718,031701160015,001301120311,
C 261 071021092508,270728062804,270325022201,160012000601,030201032929,
C 266 142814003030,001928192929,001900080105,020405020701,120016002101,
C 271 230226043030,260026192929,001914002819,292900000000,292100190900,
C 276 141019002819,292900000000,001928003030,281900002929,001914003030,
C 281 281931311003,090207010400,000029290000,001928190000,280029290000,
C 286 122816282127,242626252724,282228062704,260324022101,160012000701,
C 291 040202030104,000600220124,022504260727,122829290000,072814281400,
C 296 303007002100,292900000000,022504260727,122816282127,242626252724,
C 301 282228202718,261724162115,071304120211,011000080000,010103020703,
C 306 090313021501,190021002501,270228032929,022504260727,122816282127,
C 311 242626252724,282228202718,261724162115,161421132412,261127102808,
C 316 280627042603,240221011600,120007010402,020329290000,280700072828,
C 321 280029290000,282805280316,071812191619,211823172615,271428112808,
C 326 270526042302,210116001200,070105020204,010529290000,262524262127,
C 331 162812280727,042602250124,002200060104,020304020701,120016002101,
C 336 240226032704,280628082710,261124122113,161412140713,041202110110,
C 341 000829290000,002828280700,292900000000,122816282127,242626252724,
C 346 282228202718,261724162115,161412140713,041202110110,000800060104,
C 351 020304020701,120016002101,240226032704,280628082710,261124122113,
C 356 161412140715,041602170118,002000220124,022504260727,122829290000,
C 361 282027182617,241621151614,121407150416,021701180020,002201240225,
C 366 042607271228,162821272426,262527242822,280627042603,240221011600,
C 371 120007010402,020329290000,130615061705,180418021701,150013001101,
C 376 100210041105,130629290000,313118111710,150913091110,101110131114,
C 381 131515151714,181318111709,160814071006,292900000000,182417231522,
C 386 132211231024,102611271328,152817271826,182417221621,142010192929,
C 391 142314053030,001428142929,001428142929,001428143030,212207063030,
C 396 072221062929,282800002929,001928193030,000928092929,192822262424,
C 401 262127192816,281227092607,240422021900,292900000000,092806260424,
C 406 022101190016,001201090207,040406020900,292900000000,281414142828,
C 411 001428001414,292900000000,001414142823,282807142800,280514142929,
C 416 281414140023,002821140000,000514142929,001414140028,281400001414,
C 421 292900000000,142814002929,000014282800,303004082408,292900000000,
C 426 001416142113,241226112710,280828062704,260324022101,160000000028,
C 431 162821272426,262527242822,282027182617,241621151614,292900000000,
C 436 000000282828,292900000000,000014282800,000029290000,282800280000,
C 441 280030300014,211429290000,002828280000,280029290000,002800003030,
C 446 001428143030,282828002929,122816282027,232525232720,281628122708,
C 451 250523032001,160012000801,050303050108,001200160120,032305250827,
C 456 122830300714,211429290000,072821283030,142814003030,070021002929,
C 461 002800003030,001028283030,111728002929,000014282800,292900000000,
C 466 000000281414,282828002929,000000282800,282829290000,002828283030,
C 471 071421143030,000028002929,122816282027,232525232720,281628122708,
C 476 250523032001,160012000801,050303050108,001200160120,032305250827,
C 481 122829290000,000000282828,280029290000,000000281628,212724262625,
C 486 272428222820,271826172416,211516140014,292900000000,282800281414,
C 491 000028002929,002828283030,142814002929,002301250327,062808281127,
C 496 132514231400,303014231525,172720282228,252727252823,292900000000,
C 501 122416242123,232226202719,281628132710,260923072106,160512050706,
C 506 050702090110,001300160119,022005220723,122430301428,140029290000,
C 511 002828003030,000028282929,002401210119,001600130110,020905070706,
C 516 120516052106,230726092710,281328162719,272128243030,142814002929,
C 521 000007000114,001700200123,022405260727,122816282127,232626242723,
C 526 282028172714,210028002929,281927142509,230620031701,130011000601,
C 531 030301050008,001001130416,071811191319,181821162314,241124092204,
C 536 220323012400,260027012803,292900000000,040904060504,080210011400,
C 541 180023012502,270428062809,271124132214,191524162617,271828202822,
C 546 272425262327,192815281127,092608250723,313100002929,313100230125,
C 551 022604270728,092812271426,152516221620,141013061203,110110000800,
C 556 070107020806,101013151518,182220242326,252728282929,131911190718,
C 561 041601130010,000801050303,060111001300,170120032306,240924112314,
C 566 211618181319,092006210422,032403250426,062711281428,212725262825,
C 571 292900000000,271724181819,141908180517,031602150214,031305120811,
C 576 141007090308,010700060004,010303020601,120016002201,250229290000,
C 581 092808270826,092513231622,202123212722,282328242725,232620261625,
C 586 112308210720,051703130209,020603040403,080131311708,200722062304,
C 591 230322022001,150012000501,000229290000,001903190418,051605140200,
C 596 303004100513,081611181519,171922182516,271428112809,313124002929,
C 601 152817282027,232525222617,261425102408,220520031701,130011000801,
C 606 050303060211,021403180420,062308251127,152830300214,261429290000,
C 611 141910061004,110213011600,180021012302,240424062929,041902150111,
C 616 000500003030,000503080610,111318162418,281930300912,101012071405,
C 621 170319022400,292900000000,002805270726,102412221419,240326012800,
C 626 303000001419,292900000000,061931310000,303004100506,060408021001,
C 631 130015001901,220324052507,261028193030,261025052503,260127002800,
C 636 292900000000,001908190918,091708150410,010500020001,010003000701,
C 641 120316052008,231125132716,281929290000,042805260625,082414232023,
C 646 262428252826,262720281428,082705260425,032303210419,061708161215,
C 651 303020151215,051403130111,000900060104,040206013131,170820072206,
C 656 230423032202,200115001200,292900000000,131915192018,231625142611,
C 661 260925062203,190115001300,080105030305,020802100313,061609181319,
C 666 292900000000,001928193030,071903003030,211917002929,313100000419,
C 671 052208251127,152817282227,252527232820,281827152412,211017091509,
C 676 101007120514,041704192929,281911190718,041601130010,000801050303,
C 681 060111001300,170120032306,240924112314,211618181319,292900000000,
C 686 001928193030,141910061004,110213011600,180021012302,240424062929,
C 691 001905190618,061704100408,050507031001,150017002101,240327062809,
C 696 281127162618,251929290000,131915192018,231625142611,260925062203,
C 701 190115001300,080105030305,020802100313,061609181319,303018283131,
C 706 100029290000,313100280427,062607252103,220224012800,303031310000,
C 711 282829290000,041902080305,050308011300,150019012203,250626092819,
C 716 303018283131,100029290000,041902160114,001000080104,020203010500,
C 721 070009011103,130614081504,160217011900,210023012503,270628102812,
C 726 271626182519,292900000000,000000000000,000000000000,000000000000,
C
C ADVANCED LTRPLT PROGRAM DECK MUST BE USED WITH THIS ARRAY DECK
RETURN
END