diff --git a/software/BALGOL/BAC-220-Compiler-10K.tape b/software/BALGOL/BAC-220-Compiler-10K.tape
new file mode 100644
index 0000000..6adf918
--- /dev/null
+++ b/software/BALGOL/BAC-220-Compiler-10K.tape
@@ -0,0 +1,127 @@
+0,100,300002,300060,2008500000,4450000,12001520000,420006,1450999,10000120000,1210007,360015,40090021,2001580000,9669009669,420007,300004,1101270016,4000420007,999200018,412400007,320004,300046,21643484543,25200626454,20045595956,25916000000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,420050,12201520000,420049,1450199,10000129800,1210050,360057,40090021,2201580000,9669009669,300046,1105270016,410400007,314500,2008500000,420062,1450998,10000120000,1210063,420063,10000410999,10000400999,10000110999,10000400999,12000560000,10001400999,999200073,412400063,1101270016,320061,1105270016,1450199,410400063,420050,10000460000,412400083,420077,10000120000,1210083,420083,10000400000,10000110000,10000400000,12200560000,2008500000,7450000,410400083,310094,2222,300002
+0,100,0,0,34954575956,25745590000,34348415941,24363455900,25741495900,34464575349,24341634500,35759564345,24464594500,25541544500,34664554363,24956550000,34159476454,24555630000,35449625753,24143454400,25341424553,34159496348,25445634943,35657455941,26349565500,36541594941,24253450000,36268544256,25300000000,34445434954,24153000000,25756495563,26243415345,34641436356,25900000000,36263416345,25445556300,34356556263,24155630000,25664630000,25646000000,25941554745,34356545749,25345590000,34341574143,24963680000,34567434545,24445440000,24356545441,24567635941,36264426243,25949576300,24554576368,35756624963,24956550000,25949474863,25345466300,35741594555,36348456249,26200007777,35945534163,24956550000,34256565345,24155000000,35657455941,25544000000,24159594168,34445435341,35941634956,25500000000,34162624947,25554455563,25456440000,24955576463,35449626249,25547000000,100000,0,0,0,0,0,0,96,0,40000290183,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3
+0,100,0,0,0,0,0,0,0,0,80000000000,0,0,0,0,0,0,0,0,0,0,0,0,0,24,24,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2140990000,2041010000,2140950000,2040970000,4041070000,0,2141030000,2041050000,9499,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,274000000,275000000,276000000,277000000,278000000,279000000,280000000,281000358,282000000,283000000,284000000,286000000,286000000,287000000,288000000,289000000,290000000,291000000,292000000,30032080001,10132150001,20032980001,1200480001,3,14133200001,30033610001
+0,100,10033660001,20033870001,20034050001,1000000001,30034090001,20034120001,60019830005,11430790001,30034180001,0,30034330001,10034350001,14134530001,31431440001,1100240001,30034930001,60018200005,2,30035570001,14035770001,30035880001,20035910001,20035930001,30035950001,30036060001,30029730001,60022060005,20036080001,20036120001,0,50000000001,0,60021860001,60003570004,60025250001,60023480005,60003630004,60025100001,60003520004,2202030001,20031630001,80100240001,80100120001,1000001,1120001,32236160001,25312521,25372537,25242517,25242520,119291917,90020842079,23932382,90120652057,17961801,17981801,18261801,22382214,11000000000,90120652059,25072486,18441838,25072501,20020752068,80120842449,70125312006,67001002434,26264425956,26463495545,67001001852,26455634953,67004000353,24955576463,67001001909,25945636459,25500000000,67691001860,24946000000,7001201209,24954575300,67001001868,25659000000,67001001835,24756000000,67004000359,25664635764,26300000000,67001001862,24549634845,25900000000,67004000348,24256565345,24155000000,67001001912,24356545445,25563000000,87001010012,25345580000,67004000351,24656595441
+0,100,26300000000,67404000355,25449550000,87001010006,25545580000,67004000349,24653564163,24955470000,67004000348,24955634547,24559000000,67004000350,24656590000,67004000360,25759564345,24464594500,67404000354,25441670000,67001002201,24649554962,24800000000,27401413177,25743620000,67001002159,26245475445,25563000000,67001001832,25665455953,24168000000,67001001899,24555634559,87001010018,24763590000,67004000346,24159594168,67005001884,25663484559,26649624500,67004000362,24664554363,24956550000,27001243148,25556630000,87001010030,25362620000,67001002407,25456554963,25659000000,67004000361,26266496343,24800000000,67001001905,26263565700,642220000,1404230000,1004330000,7001230200,24155440000,67004000364,24567634559,25541530000,67004000349,25945415300,67001002396,24464545700,67004000365,26359414345,67301990000,26263416345,25445556300,88888300920,88888300920,88888301049,88888300930,88888301144,88888301049,88888301049,88888301049,88888301118,88888301046,88888301088,88888301092,88888301099,88888301175,88888301179,88888301099,88888301099,88888301207,88888301172,88888301099,88888301103,88888301200,88888301106,88888301114,88888301106,88888301106,88888301106,88888301106,88888301132,88888301106
+0,100,88888301104,88888301675,88888301245,88888301106,1403930000,88888301247,88888301245,603960000,88888301106,88888301108,88888301104,88888301675,604030000,88888301106,1404080542,1804130000,1204180517,604210453,88888301106,88888301108,88888301104,88888301675,88888300850,88888301106,2003660000,88888301247,27401413190,26249475500,88888301106,88888301108,88888301104,88888301675,88888301245,88888301106,7001210206,24558644965,88888301245,805260000,88888301106,88888301108,88888301104,88888301675,11041010552,88888301106,67001001801,26356000000,7002000000,24245474955,88888301106,88888301108,88888301104,88888301675,1042240000,88888301106,67001002186,24555440000,27401413133,24142620000,87001010024,24745580000,88888301104,88888301675,804510000,88888301106,67404000356,25456440000,87001010000,24558530000,88888301106,88888301108,100001,100002,100004,100005,60000100001,110001,110002,120001,120002,60000120001,220001,220002,130001,130002,130004,230001,230002,140001,140002,240001,240002,150001,150002,250001,40000000000,10000180001,10000180002,170001,170002,400001
+0,100,400002,10000400001,10000400002,61110400002,40410400000,50000400000,300001,300002,300003,70000300400,50000300000,40000300000,300003,60000300002,60001330003,60000330003,60000360002,60000360003,60000360004,80101369999,70000010000,10001,10002,10092,40001490010,40001490000,40001490030,40001480010,40001480000,40000490009,40000420000,60000420000,1420001,4400280002,40000430000,40001430000,40009430000,70000440000,440002,440003,60000380002,40001450002,40002200000,410001,40137007310,1100001,1110001,30000000001,30000000002,60000340002,60001340002,60011350002,120004,460002,80000369999,80001339999,80000339999,80000309999,40000440074,40000300076,60101360002,90000309999,80000449999,10000400003,420009,110004,40002450000,61111310002,10900000000,11400000000,31400000000,30900000000,10800000000,31300000000,11300000000,30800000000,10109000000,10708000000,10213000000,10713000000,21200000000,21700000000,41700000000,41200000000,21100000000,41600000000,21600000000,41100000000,20112000000,20711000000,20216000000,20716000000,13202582200,13207582200,13207582200,13202582200,15822000000,35822000000,35822000000,15822000000
+0,100,10258220000,10758220000,10758220000,10258220000,23202972400,23207972400,23207972400,23202972400,29724000000,49724000000,4972400000,29724000000,20297240000,20797240000,20797240000,20297240000,11955000000,31955000000,31955000000,11955000000,11855000000,31855000000,31855000000,11855000000,10218550000,10718550000,10718550000,10218550000,22100000000,42100000000,42100000000,22100000000,22000000000,42000000000,42000000000,22000000000,20220000000,20720000000,20720000000,20220000000,52780020000,53207268001,53206278002,62781020000,52680010000,53307268001,53306278002,62681010000,50127800200,50726800100,50627800200,60127810200,52781020000,53207268101,53206278102,62780020000,52681010000,53307268101,53306278102,62680010000,50127810200,50726810100,50627810200,60127800200,12900000000,12800000000,10129000000,17991020000,17891010000,10278910100,10915650000,10815650000,10109156500,12782030000,17883910100,10127820300,14872440300,14872440300,14788000000,14788000000,18500000000,18500000000,14703000000,14703000000,18500000000,18500000000,14788000000,14788000000,14945724403,14946724403,14787000000,14786000000,18586000000,18587000000,14945034472,14946034472,18586000000,18587000000,14787000000,14786000000
+0,100,14946724403,14945724403,14786000000,14787000000,18587000000,18586000000,14946034472,14945034472,18587000000,18586000000,14786000000,14787000000,3000000000,1133000000,2630000000,1126330000,0,7284007200,1224213400,3300000000,2623330000,2633000000,3100000000,2214113300,3200000000,1411330000,2632000000,1411263300,2134000000,3400000000,2421340000,3500000000,2623350000,2635000000,1631000000,1613340000,1632000000,1613350000,1532000000,1325350000,2116340000,1634000000,2421163400,1635000000,2325350000,2535000000,300850,100335,440846,301819,410223,1400222,410199,1400198,441598,301582,4450000,100179,9999210000,9108360881,210182704,340879,9999210000,204360881,9999210000,224360881,9999210000,203360881,9999210000,213360881,9999210000,223360881,9999210000,214360881,9999210000,220360881,234360880,9998210000,200360881,1210881,214270179,2400199,410179,1400223,100198,210360900,100199,210360904,100198,490001,120199,400154,420154,10000100470,14588360470,460199,10260199,441687,882301682,30103050000
+0,100,100199,361134,201361237,300850,100198,360907,301141,441313,301310,210182704,1340856,441329,301551,460198,10260198,300856,460199,10260199,300850,6229260921,460199,850,1420197,100223,10000490008,9400280197,10000190230,202260197,310919,300850,441446,301399,6411180360,420274,10000100000,1350963,330944,6400280201,3330958,11105260000,441329,301320,100337,300848,11210260000,6400280201,10000410000,1100370952,11112400000,441687,945301682,30608100000,11108260000,104217,16410400000,441329,301320,300850,11101270000,441329,301320,411045,302475,6411180352,1350981,1330981,441329,301320,420274,10000100000,6400280201,10000410000,2330979,1106370961,1104370961,1108370961,441687,961301682,30111130000,1105371001,300976,6400280201,10000100000,6411180348,350961,1100361015,1109361025,441329,301320,6400280201,10000410000,1101371177,1104370999,1105371001,1109370850,1107370850,1288370999,211180203,350961,1645535045
+0,100,100338,300848,10000420000,1490000,124096,1331006,10000420000,9999201013,10000100001,400154,277441738,301726,420154,1211007,100333,300848,6411180346,6400280201,351020,11101260000,300987,11105260000,441329,301320,100334,300848,1490000,9331031,8331031,441687,987301682,31517000000,10000400000,6411180351,1351035,6229271041,6400284217,412400194,441305,301256,6206261290,100336,300848,6229261041,441329,301320,300916,410230,11180452,350907,301085,6229261049,100220,2490002,1210400329,100197,490008,2110400329,490001,1110400329,2222270329,104216,490004,6410400329,424216,100230,10000400000,1264216,411068,420286,1400816,2400309,9999201077,10000410001,1400154,6400280154,10000180000,341082,420816,100329,441738,301728,300850,410309,420154,301069,441329,301551,300850,441329,911301314,1260255,301134,2201270182,100230,2490001,400230,410223,111400230,300850
+0,100,441329,1049301314,300850,20000000010,1260255,1134440846,301676,850440846,301676,410223,210370854,460253,441687,916301682,31518200000,100297,440846,301819,301177,441446,301399,1100361127,1101361128,1107360955,460267,441687,1128301682,30122240000,11101260000,441329,301320,100303,300848,1130440846,301676,460197,6212400921,6201260921,422380,460230,90290230,300920,441313,301310,300856,441313,301310,203361156,441329,301551,410223,1400222,410199,1400198,300856,411102,1400197,441313,301310,203361165,1260267,441446,301399,441305,301257,300913,420197,12211156,460223,90260223,460199,6229271049,300920,441329,301316,301130,441329,930301314,100296,300848,441313,301310,410179,203371154,9108371187,441329,301316,301149,1100253,1120254,361193,441687,1184301682,31526280000,460182,2258260182,1260254,1400223,414100,1400199
+0,100,301092,100297,440846,301819,100296,440846,301819,301237,441313,301310,214361211,301184,420254,1211216,460182,2258260182,1260254,441352,301339,410230,1400187,1260253,441313,301310,220361230,234361230,210361231,9108361234,441687,1184301682,30129300000,6101261355,441313,301310,301226,400223,206270199,301240,460253,6112401355,100223,460230,460182,460254,110400230,300850,847440846,301676,1249440846,301676,420274,11210260000,10000100000,1260272,2330850,1260267,300850,6206271290,460267,6400280201,10000100000,6400361278,1267361912,441687,1305301682,30617000000,331273,414231,1400242,410466,1400185,444046,301793,301284,6400280201,10000410000,442962,304065,301284,104217,16410400000,301284,442820,620302736,6229261280,6400280201,441755,1265301752,410205,1014217,100262,361305,6400280247,444054,304053,6400280201,412401301,100201,331299,11210260001
+0,100,444046,301771,1101301,11305,2331306,6331306,301305,442694,310302706,6229261302,301305,441598,301582,361582,301313,420267,1211334,441352,301339,441537,301514,6400280201,10000100000,1107361330,2210400201,1106361332,100201,170667,440846,301819,301329,490004,301327,1102260201,301325,411102,1400197,421329,14400289999,10000300000,460229,100254,361353,100230,2300361347,2201260182,2480001,301343,1480010,100182,811400182,220182,400230,301352,100253,361366,1100230,8800361360,441687,1364301682,33436373800,490008,1120187,311357,331351,1450000,301351,2201260229,301352,120204,172338,121907,410400201,414216,1490004,6411400201,101402,2310400201,480002,4310401389,4200361397,420201,10000410000,100201,371386,441738,301728,16710400000,424216,4319261389,290229,2404216,414216,411184227,341746,6400280201,10000460000,301396,2101261389,301380
+0,100,100197,490008,2310401402,1100230,1480010,152338,1400204,410266,100265,371426,410105,361417,441674,301648,301477,2100371417,2101371417,410221,2111400220,100200,441396,301368,410220,12111400000,410267,371441,301475,361447,100200,441674,301649,301447,410255,371441,410201,1400206,100296,440846,301819,410206,1400201,460255,420281,10000410000,6400280201,1270371505,10000100000,301446,441674,301648,301459,11320,2274371431,1107371440,1109371479,2283371480,2103371473,444054,1103374053,301431,100203,361471,1450009,441674,301649,301470,2274371431,1107371440,1104371431,1103371454,1108371454,100203,441396,301368,410267,371480,11101270000,301440,100200,301471,460255,420281,10000410000,6411180348,1351488,100220,6400280201,12110400000,301441,100230,420286,9999201503,10000410001,1400154,6400280154,2211401495,12210180000,420154,1351490,100154
+0,100,2480002,6400280201,12110400000,301431,100221,301500,80000101505,412403627,460267,441738,301728,442694,345302706,1260262,300850,100230,410229,11538,6400280245,2101371520,6400280246,10000180001,351532,412401527,10000420000,9999201526,1201520,424216,412401527,20290229,2404216,11102269998,9998201532,2400201,100201,490004,6410400201,6400280201,301537,2111180241,343756,1343775,6229271516,400240,443752,303741,410240,100174,1260174,442962,302922,301329,441446,301399,1107361320,6411180348,350850,420267,1100361570,1101361564,1109361568,1211565,441687,1320301682,30122240000,9999201320,441687,1577301682,30117240000,1211577,301561,6411180352,1351575,420274,10000100000,3331579,6400280201,11101260000,460267,301320,6400280201,11109260000,301320,11623,9400280225,10000101632,420225,10000490000,144211610,361620,480008,502260225,210400179,301598,490004,287441738,301726,6233361599,100179,301598
+0,100,100279,420287,412400279,10000410000,10410400000,411400287,400371607,301599,6229261592,100179,301598,4000381613,1642449981,1632309981,449994,1632309994,460225,6212402690,6201262690,2260225,301583,510260225,110400225,301591,420856,10000100000,480004,210400179,9999202564,10000410001,411400856,301598,20002000000,0,0,0,24241432082,28280006263,24155444159,24400654559,26249565500,20000822181,22186820000,0,0,0,0,0,0,100203,120204,172338,121907,400201,420201,9999201674,10000100001,400201,2310181402,1351653,480004,400154,6309260154,410401667,401261667,5401280154,321667,421461,10000101667,10010180230,1351653,1211667,401261674,6400280201,10000410000,301674,1237440846,420846,14400289998,412400846,420222,10000100293,301819,460208,421696,1220260208,60290208,460154,101687,2450000,1480008,361711,410401688,1400329,401261688,421688,10000410100,1450209,1420154,1490002
+0,100,361707,10000490008,9400280154,430000,10000120208,10010400208,502260154,301696,3331693,502260154,100329,301688,4000381713,301715,1642449981,1632309981,706449981,208309981,421687,14400289999,100243,10000300000,100290,490004,460290,301726,104217,421738,14400289998,412401736,410273,400371739,10000410000,420273,16710400000,10000100000,10411400000,412401736,410400273,301738,414227,411184216,411400273,411401744,1274227,461744,341731,441687,157301682,33941430000,460226,421755,14400289998,412401760,10000420000,10000100000,9999201755,9999211757,410273,412400273,10411400000,410401760,421755,14400289999,10000300000,100251,490004,16410400000,401270251,10000100000,6400361764,301770,10000100000,410118,1400185,410247,4412400639,1109361784,410446,1400185,414228,2210400639,1101361784,1108361784,420252,1400242,10000100001,400230,2112400229,441537,301514,441770,301768,490002,4410400612,102133,304023,100343,301799,100344
+0,100,442694,302675,441819,300846,6410400154,6400280154,101361809,104361811,105361815,301799,10006330000,301799,10000100000,410401738,4400280281,301728,412401818,420281,10000100000,301818,301803,1331823,16400280000,16273300000,441687,2077301682,31545000000,442694,302678,442694,298302706,100317,301799,1103601,444046,304023,1260267,100321,301799,442694,302699,5260257,6229271844,100302,301799,301835,6229261844,442597,302591,442820,661302736,460186,301835,1260261,104217,6410400330,442694,330302706,100322,2201260257,301799,100340,301858,442694,299302706,442694,302699,1260261,301801,441819,300846,400227,9269361876,442694,339302706,100227,301799,442694,302678,442820,657302736,442694,302699,1260261,301860,6410180348,351893,442694,302678,442820,657302736,4260257,100324,301799,410220,1400221,420203,1211801,1400219,301801
+0,100,1260267,441819,300846,444018,304013,301801,442694,328302706,1454116,301799,444046,304019,301801,460267,441598,100179,213360916,301582,442694,325302706,442694,302699,6229271592,100179,490004,287441738,301726,460256,101260256,301980,460270,410256,101371952,102371938,102270256,460260,442582,302577,301980,442543,302539,278441755,1943301750,6141001942,442962,304064,442694,322302706,1260270,102270257,101260256,100331,301799,420281,10000410000,2202371976,1260256,442694,302678,442553,302544,442582,302572,442571,302554,441819,300846,180313,410342,1351970,410341,1400331,400227,442694,303302706,100227,301799,442553,302544,442582,302572,460257,3260257,301801,2332036,420272,460272,1211801,6410180352,352008,6410180360,352001,420257,10000301993,302023,302012,302039,302039,302025,10444452338
+0,100,442694,302678,302023,442674,302640,10001100000,11210260000,331801,1260267,301801,295442597,302586,420274,302003,442694,302678,460270,302041,1100362025,441687,2025301682,34661000000,441687,2027301682,30147000000,442543,302539,283441755,2016301750,277441755,2020301750,460226,460186,460270,460261,460257,460267,301801,442274,302272,301998,442553,302544,1260261,442820,657302736,442694,293012706,278441755,2054301750,442274,302272,460260,279441755,2051301750,302025,442962,304064,302046,100305,302060,100308,400228,442820,657302736,1260267,302077,442597,302591,302061,442820,609302736,6229262045,442694,304302706,100293,301799,293442597,302586,460186,301801,442820,657302736,5260257,442694,302699,1260267,441819,300846,202362699,460184,277441738,301725,420277,100184,2490008,12310400000,460193,460184,441313
+0,100,301310,224362089,9108362110,203362115,223362120,214362138,204362119,1480002,100184,1490007,5510400193,302096,1480001,100184,1490001,400184,301310,100184,490002,8310400193,302096,6229272129,100184,410193,372129,8300372156,210400193,442962,302918,420277,9999201801,302095,6229262129,277441755,2134301750,7043002133,2480004,1430000,400193,302125,6235271588,460194,460193,441598,301582,402280194,10000490000,190193,100179,214362153,9992211582,1220260193,442962,302918,302139,1230260193,6235261588,302125,490002,8310400193,302125,1100101,1120100,362164,442962,302948,6401260002,100002,170651,400002,490004,124217,274441738,301726,1260267,404260257,104217,410002,1404217,400205,441819,300846,6239261288,441305,301257,6239271288,100323,301799,442694,302678,1260267,441819,300846,6710180332,352186,180297,352186,180306,351803,6710180316
+0,100,1352188,460267,301803,442694,302678,2004500000,2501520400,300700,6410180346,352210,100294,301799,442597,302591,100347,301812,273441738,301726,411402224,411402225,1490014,276441738,301726,420283,16400280000,10000410000,2311402224,812402225,420283,16410400000,442694,319302706,442694,302699,100245,442694,302696,100303,1260260,301799,327442597,302586,442271,302263,442694,303302706,100217,1102362247,302256,6400280217,10000410001,1400309,420276,16400280000,10000100000,173145,140309,16411400000,420276,10000410000,2200371801,100217,282441738,301726,301801,442694,296302706,406262694,277441755,2695301750,441687,2695301682,30147000000,302271,420281,12201280000,100212274,281441755,2278301750,552002277,6410180357,422274,10001350000,420276,16400280000,412402303,412402306,10000420000,412402305,1450000,10000120000,1332293,410243,1400217,302299,442694,302699,442271,302263,442694
+0,100,302678,276441755,2302301750,6742002301,1480010,102303,170651,122305,6410402306,2200372339,100217,282441738,301726,311442597,302583,282441755,2333301750,280441755,2318301750,6938002317,1260259,295442597,302586,280441755,2327301750,1260259,275441755,1801301750,12,6600362336,442694,302696,442694,296302706,302321,280441738,301726,302313,275441755,2318301750,99,420281,10000100000,6410180352,1351801,420274,10000100000,311442597,2332583,301801,6410180360,1352364,424216,10000460000,11210270000,12389270000,104216,490004,10000120000,283441738,301726,2359441738,301726,1264216,1260259,301801,6410180357,1352375,10000420000,10000410000,6411180352,1352375,420274,10000100000,3332375,275441755,2378301750,441687,1801301682,30149475000,420276,12201260000,1450231,302260,460259,420283,16400280000,10000100000,6410402392,102392,274441738,301726,100312,301799,10000000000,295442597,302586,301801,100203,490004
+0,100,292441738,301726,6104272424,6400284217,400212407,442820,609302736,6412404217,4404264217,6271271450,1260267,1260262,441819,300846,180306,1352418,6229271450,6112402424,460267,301803,100362420,302408,6400280201,10000410000,2103372424,12287270000,299302429,11260270000,420292,14501260000,302408,11280270000,423792,444054,304053,302408,1260267,6229271280,4260257,442820,657302736,274441738,301725,441819,300846,441305,301257,288441738,301721,100320,301799,441819,300846,1260258,400241,1260267,6206271460,441819,300846,6206261460,6400280241,360212471,441305,301256,100002,6400280201,11220270000,441738,301728,6206261290,442820,609302736,301801,6400280201,16612400000,12283260000,412500,411402485,460241,441598,301582,204362483,224362482,301582,2260241,1270241,321582,302485,460221,410251,411400188,410286,1400285,460286,410262,460262,1400263,442639,302612,400203
+0,100,12112400000,12103260000,301801,442639,302612,11102270000,1260265,100331,301799,442674,302640,301801,420283,10000100000,1490002,4410402359,442674,302646,301801,460220,2101260220,302521,460220,5260257,442694,302699,301801,1260271,104100,400176,400177,100300,301799,442597,302591,420271,9999201801,100301,301799,6229261516,301801,442694,302678,442694,302699,302543,442694,302678,442820,662302736,460186,1260270,442820,657302736,460270,302553,410199,411403810,410223,411403779,410846,411403870,410279,411400856,6229261582,300916,6229271582,413810,411400199,413779,411400223,413870,411400846,302571,283441755,2575301749,7039002574,442694,302699,460186,442571,302554,442694,294302706,302582,275441755,2586301750,1053002585,422597,14400289998,10000100000,442694,302709,420281,12201260000,442543,302539,420281,12201270000,302597
+0,100,290441755,2598301750,288441755,2603301750,1565002602,480004,410400290,302972,290441755,2611301750,100251,490004,401270251,302611,442820,657302736,274441738,301725,288441738,301721,441819,300846,400331,442694,315302706,1260266,1260200,442694,302699,442694,318302706,100251,1480004,4411400623,442820,623302736,1260260,6400280201,100200,10410400000,18201270000,302639,420259,460259,1212661,420274,10000100000,1332661,6400280201,11210260000,420274,10000100000,3332652,302653,1260267,480004,430000,284441738,301726,10000100000,490004,10000400000,11210010000,283441755,2664301750,4,480004,410402668,100251,490004,6410402668,6400280331,18299270000,401270251,420274,12201260000,302674,100362696,101362709,102362699,275441755,2683301750,441687,2699301682,34652540000,6710180317,352688,442972,302977,302678,442274,302272,302694,414217,6411401631,6229262690,302694,400217,283441738,301726
+0,100,302694,420260,460260,1212694,420281,12201260000,1450040,302726,422694,14400289999,10000100000,420275,10000410000,6600372726,400224,12210180000,342726,1342729,332718,302726,3100362720,302726,420283,10000410000,1100372729,10000420000,10000410000,1100372729,275441738,301726,302694,275441755,2732301750,10000,442972,302977,100224,302709,422820,14400289999,10000100000,460193,460192,10400193,10400192,400189,410268,372755,460268,6240362752,710180627,1352755,6401274217,302820,6401274217,4101260193,4101260192,184112,342812,420193,10000410239,1105372763,442894,302844,302820,16400280239,10000410000,400190,1107372801,1105372760,11101260000,2400154,10000420000,10000100000,16400280000,10000410000,1103362785,1106372785,441770,301768,6710180186,6710400186,1352786,420154,441755,2801301752,9629000000,460186,420154,441755,2790301752,302796,291441738,301726,16400280000,1103362796,10000100000,1106361752,100664,400193
+0,100,460189,291441755,2807301750,100192,1430000,400193,410190,1400189,302760,400248,442894,302844,110664,302797,4332821,6332826,7332842,8332831,1210260193,9332831,442962,302918,302820,410193,711180624,1352818,1260268,302818,104217,480004,1120193,410400193,302818,104217,4430000,410261,372836,7430000,4400280275,410270,372840,4400280278,441738,301728,4104262940,302818,420193,10000410239,16400280239,10000100000,400252,1103372869,1101372861,1102372864,1104372879,1105372903,1108372879,10000410001,1100372858,1400185,441738,6400362912,302879,8332880,10000410001,302865,410135,1400185,441770,6400361764,302880,460252,11400252,100189,3332894,1332877,1490010,290441738,301726,102917,400185,100252,480004,410400193,441738,9332912,8332886,302887,5108362912,124096,1332895,100189,3332893,442962,302918,460185,302894,170157,130188,490008
+0,100,420284,12210180000,352912,16400280000,302899,410189,1210372879,1230372879,100273,2400273,10410400000,420252,10000100001,302878,1100002,490004,170673,124217,301728,26345545700,104217,480004,6401264217,410193,410400183,130101,420180,400362936,134100,400362932,412400207,100183,10000400003,1260180,420207,13201260003,1260180,420180,10001400002,1400184,2000382940,302942,300449981,183309981,4112402940,410183,411400101,410180,1180181,1342962,1422338,1450004,10000130101,1202950,312953,400101,1100560002,1260002,460180,460181,96260181,460003,422949,980290003,302962,1212400240,100240,283441738,301726,420283,10000410000,1100372971,302972,2400226,302972,100609,442820,302739,302972,400216,2333024,3333026,4333201,5333204,7333201,443644,303630,443644,303635,100216,1333026,8333033,6400362995,444004,303792,100175,302965,420281,10000100000,5514224873
+0,100,6710183028,1352991,100240,2221363007,410241,2221373004,302991,1400240,400241,1490010,6400280240,10000410001,1480000,1184100,342991,420276,16400280000,1480000,1450000,10000120000,1332991,1490010,490004,10001120000,16410400000,100241,302965,443644,303630,6400280216,10000300000,122380000,441687,3032301682,30167200000,460216,110240,400240,100216,400215,6210273993,460216,6112403051,444004,303792,6210263993,333045,6401260215,1100363050,430000,400240,443713,303698,442820,667302736,420275,10000410000,6700373064,6402260215,6711180340,353067,6402260215,6711180322,353067,441687,2694301682,30157200000,444046,303076,302965,100273,412400273,10000400000,411400275,444046,303076,460261,1260260,302694,6400280215,10000100776,304023,100240,460268,6710180249,353114,410241,6710180250,1353087,2100373114,333094,442820,303680,443713,303698,100627,303096,1100363092,100643,442820
+0,100,302739,443713,303696,4450000,100240,2101363104,1203104,100241,2101363107,2203107,412403100,10000413129,444018,4218204006,423100,10000103113,100302965,1100241,400241,400240,1102363126,442820,303680,100241,1100363126,1110570,442820,302739,1112400240,100296,400216,302991,24667144667,24667144653,24653144667,24653144653,443752,303741,423138,410240,1100373139,9989210634,1353141,9999210000,442820,302738,302963,420283,10013110000,10000400000,302972,410240,102602,2201373157,442820,303684,100240,1333160,2100363160,103590,444046,304023,302963,441687,3156301682,30159610000,410654,1403176,100240,2100363173,1333173,443713,303698,442820,3176302736,303073,441687,3168301682,30159610000,0,442820,303684,443735,303725,1102363184,104113,303157,6400280240,10000100001,490009,1110400640,104109,303157,443752,303741,443713,303698,1480010,104115,2100373198
+0,100,104114,444046,304023,302964,442962,304064,302972,6400280216,412400611,100611,302974,283441755,3211301750,302972,400240,460226,6400280228,10000300000,2200280257,1213029,6400280241,10000410000,3411403015,100241,1333294,1400241,10400241,420275,10000100000,6410180294,353233,420281,10000100000,6410180350,1353234,1260264,460268,100241,1109363294,1101363239,1110183238,5001343294,100240,2103363284,1102363270,443713,303698,410241,2111180240,2111400240,353254,2100373251,6400280453,303252,6400280552,444018,304005,1100241,1108363260,1103749,444046,304023,1103015,411302,6201373266,6400280241,444046,301772,303268,2333262,6333262,460264,302964,6410180246,353284,6410180245,353284,2110180241,353242,2100363280,443771,303753,303282,443771,303772,10400240,303270,100817,420264,410241,2312400240,2103260240,1213257,490006,1108373257,490006,303257,2112400240,441687,3268301682
+0,100,30167320000,443666,303645,420283,10000100000,6710180186,353308,400186,400241,442820,633302736,420274,10000100000,3333312,303313,1260267,480008,430000,1130668,410400605,12201260000,100605,302974,443752,303741,110241,1353325,400241,170240,2100363354,410240,6611180249,353357,442820,1100373667,443713,303696,100240,1110183336,2001353346,6400280240,10001110001,460230,363354,1480001,190230,1100373341,1490001,10184100,104111,1353157,460229,443771,303766,6410400240,103353,2800303157,441687,2965301682,30113376911,442820,303680,102784,303157,420269,460269,1212972,100620,302974,460271,6400280240,10000110001,140176,1490010,410280,190251,400154,100251,124100,410400174,130177,1120668,490004,6400280241,16410400000,10411400000,1100154,490004,460280,303397,6400280240,10000100001,140177,1400177,1260177,10000100001,140176,1400176,100240,423371
+0,100,410240,2221373402,441687,2972301682,30163640000,441738,301728,302972,443724,303719,100632,302974,1102301,6229272045,303421,100240,1100363430,1102363430,1333430,1101822,303421,443713,303698,103497,410194,460186,411400611,411400642,410240,2111400631,444046,304023,302972,441687,3420301682,30170640000,6229271302,302972,443735,303725,1102363440,1102585,303198,1112400240,6400280240,10000410001,1480000,1490014,173145,6400280241,10001120000,16410400000,442820,303684,1103458,303198,443666,303645,460186,274441755,3459301750,553003458,2210400607,6400280241,10000410001,1400185,10000410000,1288373473,1490006,5104363479,2211180607,353473,2200373473,441687,3473301682,30113370800,102317,444046,304023,1112400241,460267,303022,1490002,2103373473,2111180240,353473,6400280552,2100373486,6400280453,444018,304005,303473,1100363493,441687,3493301682,34661000000,283441755,3489301750,274441755,3498301749
+0,100,6273003497,410265,373506,480004,410400630,444046,304022,460265,302598,286441755,3506301750,410219,1400221,410285,1400286,410263,1400262,410284,400373552,100218,442962,304064,100188,490004,400195,420284,9999203546,10000100001,1203526,410400289,480004,410273,2400273,10001400000,410400284,1333538,170651,130195,6410403554,442820,3556302736,289441755,3541301750,303522,480004,410400604,442820,604302736,303538,100218,480004,410400611,401260611,442820,611302736,460203,303504,81100000000,1135540000,103316,6225262660,442674,302640,6225272660,460267,400242,1103260242,442820,663302736,460266,420265,1212972,410284,400373575,104217,400218,442820,609302736,404260257,302972,443724,303719,6400280240,10000410001,6400280241,100240,2221363014,11101260000,441738,301728,303022,274441755,2598301750,313003590,100606,302974,410619,303164,414217,6411180202
+0,100,1343599,6411400202,274441755,3602301750,8990003601,6410404217,8430000,480004,303201,1260269,302972,100240,443735,2100363725,302964,443713,303698,100644,302974,4400283618,444054,4230304053,1260267,283441755,3623301750,302972,400154,6400280154,10000100001,490006,423627,14410400000,302972,283441755,3633301750,303637,400240,303641,283441755,3640301750,441687,2972301682,37161000000,400241,1100363643,303644,460226,303644,410259,373651,460259,443713,303698,303666,420274,10000100000,1333648,442820,303684,100240,1100363666,333663,441687,3662301682,30111130000,400240,1102277,444046,304023,303666,303674,442611,302606,6410400241,1103260241,100602,302739,442611,302606,6410400240,1103260240,100601,302739,410240,1100373674,410241,1100373668,420226,9999202820,442611,302606,420226,16410400000,11103260000,10000410000,1400242,100663,460226,302739,424104
+0,100,303699,424100,10000100239,412403760,1100363713,442820,303684,423760,10000100239,1333717,10000100569,442820,302739,423760,11212400239,10000100239,333713,442820,10000303666,423760,10000100574,303708,100240,443735,2100363725,442820,1100363667,303724,100240,1102363736,443713,303698,2101363735,6400280453,444018,304005,2101260240,100240,303735,2101363735,443771,303772,10400240,303734,442820,303684,420275,10000410000,6711180313,1353752,275441755,3750301750,3100000000,110240,400241,303752,400154,6400280154,10000100001,460229,460230,363766,2261260230,2450000,1480003,1490001,2201270230,3100363762,810400230,441537,301514,10000100000,2310400201,100201,303771,400154,6400280154,10000100001,460229,2101260229,184110,343789,2450000,1480008,400154,210183783,1450051,1343787,450280154,10001490000,400230,303766,441687,3775301682,33436373800,4454226,410241,1100373798,9996210000,1102373798
+0,100,9998200000,2101373800,9999210000,410240,1100373805,9976210000,1102373805,9988200000,2101373807,9994210000,10000410810,1400178,410178,1450000,1490002,1400178,110400196,9103363957,1480001,400191,420191,1101373824,1102373830,1103373833,1104373839,1105373845,303903,6400280552,444018,304005,420191,12112400239,303809,442820,10000303666,303809,10000100239,443771,303753,420191,10010400239,303809,442820,303680,420191,443713,303699,303809,6400280240,410240,10000100001,1490000,400816,6400280241,410241,10000100001,1490000,400309,410216,100191,460229,101363873,100309,6711180303,1353864,220816,303889,6711180296,1353868,240816,303889,6711180314,1353809,2450000,250816,303889,2101260229,100309,6711180303,1353879,120816,303889,6711180296,1353885,140816,1490010,373889,303900,6711180314,1353809,1480010,150816,313900,10400230,400175,441537,301514,10001100000,10400175,410201
+0,100,6411400175,100175,304004,441687,3890301682,33436373800,10000100239,333913,410216,2100373913,1420191,10000110242,10000400242,420191,10001100239,10000400239,16400280239,10000410001,373945,1184102,353950,5450000,9999210000,1490019,1100363919,1490001,11184100,1353809,9998203950,100240,170241,2100363809,410216,9999210000,612400594,6248373937,420191,2213809,6224373938,303809,6201260594,6248260594,1420191,443713,9997213699,442820,594302736,303953,6109273051,410216,6500373953,6248373955,303809,410216,6711180296,1353809,1420191,10000100242,400175,304004,442820,303684,100216,480004,172338,400309,400816,100241,2480010,190816,100240,2480010,190816,190816,100216,4100363987,4101363995,100196,190816,110240,333981,170241,1333981,2101363984,441687,3984301682,30159610000,420816,10000100764,304002,100196,120196,190816,190816,420816,10000100668,9988304002,9928204001,100196,15377781547
+0,100,142663,152326,1490010,190816,420816,10000100740,444046,304023,304004,10000410001,1400185,444054,304053,2400242,5104260242,100242,490004,400242,1102574,444046,304023,460186,304018,420274,16400280000,412400630,101942,442820,404036,414036,1454026,1490002,1404036,200364037,232363667,233363668,410404026,424026,10000100569,302739,4036,334046,410240,2111404051,2111404052,2480010,410404026,424026,10000104046,400175,304046,100000000,0,10100000000,10000000000,0,10000000000,10000100000,1104364054,480004,170157,130251,410400251,1490004,16410400000,16401260000,11101260000,304053,414217,400184,1480004,411400184,410400183,7334071,304072,1260184,2000384074,304077,8334077,208449981,183309981,410184,420207,100183,410180101,344092,10000100003,400364092,410180183,344092,130183,490006,4410404089,214090,10411400004,302962,401280181,10001400005,302945,2100004099
+0,100,0,2000004101,0,2100004103,1,2000004105,5110000000,2100000000,2,2000000000,5120000000,3000510003,1604380000,371720000,6099999999,5822570000,9999999999,6034037172,4959035600,4959045600,804610000,0,0,0,403820000,0,1042600000,1203840000,0,842730000,0,842750000,0,0,0,803780537,403804270,0,0,805340000,405440000,804630000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1005460562,604560000,0,0,842394262,605540000,605560000,0,0,1242570000,0,605580000,1203870000,1004650000,1403900504,605640454,1242540000,605664244,1203980000,604010512,642520000,1604050514,604114249,604160516,0,0,0,642470000,0,1004290000,604314241,0,0,1804354266,0,604410000,1804670000,0,604430000,1404450000
+0,100,1404260000,1604580000,0,0,1042340000,1204480524,1003690000,0,0,0,1003714236,0,1203730000,0,0,403760000,0,0,0,0,4277,2000000,3000410003,3000090003,3000380003,3000480003,3100170000,24649670000,3000140001,24653564163,3000560003,9980,4042260000,3000540003,3000220003,4042300000,3000030003,3000130003,3002400003,26659496345,842370000,3001390003,25945414400,3000450000,26258596300,642420455,3000750000,24567570000,642450507,3000870000,25356470000,3000560000,26249550000,642500515,3000100000,24356620000,3000230000,26341550000,3000130000,24159436249,25500000000,3000650000,24159436341,25500000000,3000470000,25956546767,1242630000,3000200000,24159434356,26200000000,1242674108,3000140000,24555634959,24500000000,842710000,3000330000,26249554800,3000240000,26341554800,3000160000,24356624800
+0,100,0,0,0,0,3000380303,1000630388,300304,1070060353,1008500000,1300580000,4000380319,1000590333,300307,3000380317,420081,50290100,1001610352,401260347,205260311,310333,300310,1000060100,300333,3000380330,6105260347,420081,50290250,1001610352,405270322,401260347,320321,460347,6101260347,300333,1000060000,1000060100,1000060200,1101520100,100100,99360346,1450100,1420336,10000120200,1200338,310341,360309,40090082,9669009669,1101580000,300333,757007250,10000,0,0,0,0,0,4000380302,300003,1000030000,1000030100,1000030200,300003,60000300300,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333200000,0,222200000,0,10222,22222221022,22222222102,22222222210,22222222221,2222222222
+0,100
+0,100,0,0,0,0,1003624586,1008500000,460002,422959,990290002,1008624615,2004634673,2000634644,2006634731,2002634760,2008634702,1300580000,4000384519,304517,80094550,8421001248,304513,1632449981,1632309981,449994,1632309994,300854,20002000000,0,0,0,24241432082,28280005655,20053495545,20048625700,26545596249,25655000000,20000822181,22186820000,0,0,0,0,0,21615000000,20000000000,20000000000,24241432082,28280005741,25745590063,24157450065,24559624956,25500000000,20000822181,22186820000,21600000000,25753454162,24500594541,24468004849,24748206257,24545440057,25949556345,25900000000,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333300,20,3311111111,21111111111,21111111111,21111111111,21111111111,21111111111,21111111111,21111111111,21111111111,21111111111,21111111111,21111111111,21111111111,21111111111,21111111111,21111111111,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333
+0,100,33333333333,33333333333,0,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,0,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333000,0,0,0,0,0,0,0,0,3333,33322220000,100022220,2200222200,31111111111,0,0,0,0,0,0,0,0,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,0,0,0,0,0,0,0,0,3,33333322220,100022,22002200333,30000000000,31111111111,0,0,0,0,0,0,0,0,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333330000,0,0,0,0,0,0,0,0,33333,33222200000,3333333000,0,22220
+0,100,0,0,0,0,0,0,0,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333331111,11111131111,11111131111,11111131111,11111131111,11111131111,11111131111,11111100000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,33333333333,33333333333,33333333333,33333333333,33333333333,33333333222,23333000000,311111111,11311111111,11311111111,11311111111,11311111111,11311111111,11311111111,11311111111,11311111111,11311111111,11311111111,11311111111,11311111111,11311111111,11311111111,11311111111,11000000000
+0,100
+0,100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1008500000,1001520000,1001521000,4567136316
+0,100,12046915461
+0,100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10000,429981,412409993,10000109999,480006,410409992,10000109998,4210409992,480008,134100,199992,2009610000,300793,10000,429994,412409999,14400289999,11010600015,300622
+0,100,0,1390000,310004,5103260022,1018500000,400012,2400013,1420008,12739,1400560000,1308520100,300100,0,9500,420000,412400024,1004500000,1100580000,420013,390000,250020,100012,10023,5112400022,300024,420027,10290012,290199,2400012,411180012,1350027,1100520100,410069,1400048,1420035,1450100,10000120200,10000120201,10000120202,10000120203,10000120204,5200036,310043,360048,40090092,9669009669,1101580000,300031,100101,420048,4330060,460071,299260071,401280071,10000410100,1280370072,370031,16400280100,10411400000,300053,6610400064,9999210000,412400064,10000429999,290000,1480007,120070,190048,300048,100101,1,99,6711180091,1350053,300200,1111,420074,10000100000,170075,490004,10400091,401260074,4450000,41000500091,1100520100,100100,10180091,350032,30090096,9669009669,300083,80000000000,21602020202,24348454352,20062645400,24559595659,21662454754,24555630045,25959565902
+0,100,0,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,0,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,0,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,30000000000,0,0,0,0,0,0,0,0,31111111111,31100111133,33322222222,22333333333,11103333331,11100000000,0,0,0,0,0,0,0,0,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33000000000,0,0,0,0,0,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111
+0,100,0,33333333333,33333333333,33333333333,33333333333,33333333333,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,1000640232,300233,1008620129,5512400200,5401260200,310238,2000650238,300234,2000650240,300243,2004630158,2006630187,2008630229,1000650245,300246,1008630229,410013,300025
+0,100,4000380703,1642449981,1632309981,2700520900,2000521600,2000522600,1453200,1420706,10000123600,10000123601,10000123602,10000123603,10000123604,10000123605,10000123606,10000123607,10000123608,10000123609,10200708,310720,360732,40093460,9669009669,2201580000,2001580000,2001580000,2001580000,2000520400,2000521400,2000522400,2200523400,300707,2006633492,420292,9999200738,423554,441691,301690,100208,8330742,413531,1403450,420275,412400751,9999200752,441847,301812,30102030000,420751,10000420000,300743,0,100002,6400360764,100101,120100,360759,441733,301765,100002,460002,6410400002,6401260002,300772,413546,1402160,441733,301734,413536,1402160,441733,301734,413547,1400185,420775,104095,403495,6400360783,480004,10000410001,441733,301739,103495,400360787,423495,10000100000,300776,420788,104097,440783,300776,460185,2004500000,2000590795,300793,2300521857,1109271755,1109271709,420258,441153
+0,100,1211123,1102271755,1102271709,103544,610401600,463502,4450000,104217,403449,8142210810,2401441,10000100000,1330832,360834,10403501,6400283501,10000100000,1103360832,421441,11210260000,300827,6400283501,10000100000,1104360827,1263502,441691,301690,423501,9999200832,10000100001,403501,300821,421441,1200810,423502,1210805,4400281120,10000101857,360891,1330842,4401261120,300836,16400281857,10000100000,4400280844,42000501120,6410404217,490002,4410401122,480006,410401122,462217,423555,292217,461121,202261121,2004500000,2000590859,300857,2100522318,102318,181120,350872,30093457,9669009669,300842,461121,202261121,2004500000,2000590871,300869,2100522318,420873,1450098,10000122319,1210874,310877,360882,40093460,9669009669,2101580000,300866,421121,10000102317,402160,441458,301448,300840,201261121,310866,300882,2000590893,300891,2008500000,1450000,8430000,441733,301701,100100,8330901
+0,100,360903,441733,301765,103550,400002,441733,301765,1000590909,300907,1008500000,420968,10000104116,400967,6400280967,9999200925,310916,1290260967,10000100001,8330943,1109360928,420967,413548,811400941,10000100000,1000210912,201270968,320910,300969,6400360930,300920,2211270967,10000100002,10000410003,3430000,320936,2450000,310950,401653,1401654,441847,301812,33234353600,300920,310944,1108360947,1289360930,300920,413553,811400941,300928,430000,1480010,1490001,123528,1108360957,490001,300952,401653,1230261653,1450000,1490001,123528,1108360965,490001,300960,401654,300939,0,99,103449,6410180202,340973,100202,133525,1480008,310976,1450300,123549,1490001,490001,8101270976,320977,490001,401653,100251,123532,330988,1450000,1480004,1450003,123549,1490001,490001,101270989,320990,490001,401654,4000381010,101654,8810181653
+0,100,341004,441847,301812,36866707147,441847,301814,34547495036,441847,301814,34751535037,420292,1212474,103450,3105361017,916449981,2418309981,301020,4000381020,916449981,2164309981,4400283447,442463,302460,301106,413556,411401023,403495,6400283495,10000100000,403495,480008,490004,403496,4450000,41000503496,1100520100,10180100,351042,30093457,9669009669,301034,1100520100,1450100,1421042,10000120200,10000120201,10000120202,10000120203,10000120204,5201044,311051,361055,40093460,9669009669,301053,100101,4331060,413532,211401055,301041,401102,490004,6410183495,1341071,351071,101102,480001,4210401068,200261055,201261055,301055,101102,480007,121102,490004,6410183495,341078,301065,1101580000,113495,480004,173539,191102,101055,1421102,410401088,9999211087,413495,10411400000,1450100,1421089,460199,10000130200,10000130201,10000130202,10000130203,10000130204,5201092,311099,400199
+0,100,1100560100,301020,0,1000591105,301103,1008500000,4450000,290400,290500,290600,1000591112,301110,1300560000,103450,4000381118,401116,0,300233,3102361115,300233,1000000,0,0,104217,180202,341127,100202,404217,462217,423555,292217,462437,441358,301351,104217,402200,102201,2331142,441847,301812,3060809000,301132,3000381144,4000381146,1602449981,2201309981,441429,301359,102427,10183535,1351155,102428,10183543,351153,102427,2331180,1480010,153552,1402161,102437,441811,301785,301176,102157,490002,4410402217,104217,480004,410402217,410401122,490006,4410401122,6400282157,10000100000,1109361196,1108361229,441847,301812,31047141500,301278,1480010,153552,1402161,1450000,441811,301785,301190,6400282157,10000100000,1108361194,441847,301812,31712141500,301146,210402437,301146,6400282157,10000100000,403495,490002
+0,100,4410402217,442463,302460,0,490004,2210403495,103495,2200361225,173541,490004,124217,490006,403495,422439,442448,302438,103495,10000400000,2403495,103495,490004,4400283447,442448,302438,301228,430000,441733,301701,6400282157,442463,302460,301272,8331256,2200361252,173541,490004,124217,490006,403495,422439,442448,302438,103495,10000400000,2403495,103495,490004,4400283447,442448,302438,6400282157,301229,441733,301701,6400282157,301229,403495,6400282157,442463,302460,0,173534,414217,194217,1113495,1403495,441733,301701,6400282157,413495,1404217,301229,6400282157,10000100000,430000,10000400000,104217,16410400000,441358,301351,462437,102201,331334,3000381285,4000381287,1602449981,2201309981,441429,301359,102427,2331322,1480010,153552,1402161,102437,441811,301431,301318,441691,6400282157
+0,100,10000100000,8331303,430000,480004,402174,6612402174,6212262174,5103361690,102157,490002,4410402174,441429,301359,422427,100211318,102174,10000402318,301278,441847,301812,31921090000,301278,1480010,153552,1402161,1450000,441811,301785,301318,6400282157,10000100000,210402437,1108361287,301318,101272209,422201,10000102211,402160,441458,301448,301128,401262201,101272209,321335,441358,301351,102201,331334,441847,301812,30624260000,462201,423557,150292201,462162,402262162,449994,2201309994,301358,462158,462427,423558,90292427,9400282162,10000102201,422162,10000490000,480008,502262162,402163,200361378,224361377,9108361413,9104361383,9105361383,9106361383,301378,1220262427,9840201363,441847,301812,30628295809,301426,1422158,10000490008,9400282158,10211390,10000122437,10010402437,502262158,9400282162,10000102201,422162,10000490000,480008,402163,502262162,162211379,210183527,341383
+0,100,214361383,102427,331426,102163,204361426,9400282162,10000102201,422162,10000490000,480008,502262162,9838201404,301379,1480001,102427,1490001,402427,9400282162,10000102201,422162,402262162,10000490000,480008,9108361413,101430,402158,102158,490008,402159,301429,20000000010,200361433,301785,412158,311183526,341785,421441,102427,10010182175,351443,2211438,1450024,301785,10000102176,6410402157,421811,10000300001,70000000000,11448,181447,1341570,6290361548,6291361548,8331498,9331498,7331504,6331510,5331511,6299361458,6230361582,6200361586,6212361591,6201361557,6202361561,6203361564,6204361567,441847,301812,31926000000,301580,6229271448,301570,1000600000,1000610000,2000610000,6260361491,6262361491,6264361491,411473,1101361483,411474,1102361483,301493,6261361487,6263361487,6265361487,301493,1111402160,102160,6229271448,301448,411472,1101361487,441847,301812,31960380000,412160,301487,1280272160,1101122
+0,100,1122160,311502,410402160,301570,1270272160,1131122,4410402160,311508,301570,0,1220272160,1240272160,8210401509,8400281509,10000102218,361598,8331524,1122160,131509,410402160,14400282218,441613,301602,301570,14400282218,441613,301602,10000100000,1108361530,10000420000,2401509,1102160,173533,1123503,463503,490004,442448,302438,1104217,8430000,421509,461509,442448,302438,102160,462160,6710402160,301570,6240272160,4331570,5331570,1220272160,6331512,7331512,1220272160,301499,301470,411556,1401448,301580,301475,411560,1401448,301580,412160,411403503,301580,411122,4411403504,301580,1102160,1123503,463503,410402160,1102160,1123504,4410402160,463504,441733,301734,421458,10000300001,4400282217,9999211584,412402160,301570,1102160,490004,1124217,6410404217,301580,4400282160,10000410000,422160,16610402218,1480004,10411402218,301580,441847,301812
+0,100,33221000000,301518,2403495,103495,490004,423542,16410182175,351614,2211606,423495,10000410001,1100371613,1400185,301613,10000412174,1400185,423495,301613,24567635941,25345466300,35741594555,36348456249,26200000000,35449626249,25547000000,25541544500,24341594400,34567634559,25541530000,35759564345,24464594500,25556630000,34445435341,25945440000,35759454649,26700000000,34954575956,25745590000,34558644965,34153455543,24500000000,34649554962,24800000000,35762456444,25620565700,24649455344,25655000000,34845414445,25900000000,36455444546,24955454400,25341424553,22000000000,25541544500,25541544500,34955626359,36443634956,25500000000,22300000000,26356634153,24348454352,26264540000,34356545749,25345440000,35759564759,24154000000,24555446200,24163000000,36541594941,24253456200,24245474955,35349425941,25968000000,34955435659,25945436300,36268544256,25349430000,34341594441,26359565500,34356545749,25345590000,34341574143,24963680000,34567434545,24445440000,35445545659,26800000000,24656590000,35642514543,26300000000,10000100000,1104361691,480004,173540,130251,410400251,1490004,16410400000,16401260000,11101260000
+0,100,301690,414217,400184,1480004,411400184,410400183,7331708,301709,1260184,2000381711,301714,8331714,208449981,183309981,410184,420207,100183,410180101,341729,10000100003,400361729,410180183,341729,130183,490006,4410401726,211727,10411400004,301733,1270181,420181,10001400005,301762,301733,104217,480004,6401264217,311738,412160,410400183,130101,420180,400361753,134100,400361749,412400207,100183,10000400003,1260180,420207,13201260003,1260180,420180,10001400002,1400184,2000381757,301759,300449981,183309981,460185,410183,411400101,410180,1180181,1341733,1423448,1450004,10000130101,1201767,311770,400101,1000591773,301771,1004500000,1000591776,301774,1100560002,1260002,460180,460181,96260181,460003,421766,980290003,301733,122161,173533,123559,402157,422157,1211793,422157,9999201811,10000100001,2310182159,402157,480004,1351791,402174,6309262174
+0,100,410401805,401261805,5401282174,321805,423551,10000101805,10010182427,1351791,1211805,401261811,6400282157,301811,413531,1403450,461848,1220261848,421829,80291848,462174,421847,10000100000,2450000,1480008,361844,410401821,1402173,401261821,421821,10000411616,1451849,1422174,1490002,361840,10000490008,9400282174,430000,10000121848,10010401848,502262174,301829,3331826,502262174,102173,301821,401261847,906449981,1848309981,300000
+2*0,100
+0,100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,0,0,24649670000,42220000,24653564163,42240000,24667144667,42180000,24667144653,42190000,24653144667,42200000,24653144653,42210000,25341425345,41070000,25456554963,42260000,24559595659,42290000,26359414345,42300000,25949634500,42320000,25945454400,42330000,2199000000
+0,100,20000000000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,20000000000
+0,100
+0,100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,22020202020,24559595659,22462040066,24559450046,25664554420,22020202000,20000000000,20000000000,20000000000,0,0,0,0,0,0,0,0,0,0,0,412402446,410273,400372449,10000410000,420273,16710400000,10000100000,10411400000,412402446,410400273,302448,414227,411184216,411400273,411402454,1274227,462454,342441,441847,301812,36264660000,6200007777,412402468,10000420000,10000100000,9999202463,1202465,410273,412400273,10411400000,410402468,422463,10000300001,0,0,14116,423560,293576,293676,293776,104229,480004,5103362512,410402856,444262856,1280272856,104233,480004,410402751,410402752,410402866,410402867,410402876,410402877,410402900,410402901,410402912,410402913,410402914,410402915,410402938,410402939
+0,100,410403147,410403148,410403149,410403150,410403212,410403213,410403221,410403222,410403229,410403230,410403397,410403398,14116,412471,1402472,11183529,352704,422512,10000100000,10000420000,412402512,2000212528,1262471,401262473,412473,411402512,2000202512,362512,480004,410183537,1342512,410403493,1480004,430000,123549,480001,403494,1490019,332540,252539,423493,10000410001,1450000,153552,1490010,132472,10402437,10000100000,1332512,3332512,5332512,7332512,9332512,8332512,1101362564,8101262437,1105362564,8101262437,1109362562,8101262437,1108362564,302512,6410183538,1342512,3312402657,3204262657,403454,10001100001,10000410002,423494,2212572,2450000,312674,403452,1403453,413454,1450000,1101372627,1109372627,1105372582,8910403454,302627,423454,3202262657,10000410000,1403495,1480004,103454,463454,463455,463456,411403454,6710403456,463500,423495,9999202622,302599,423495,9999202607,10000410001
+0,100,16400280001,1403495,10000100001,423500,10000403505,1263500,302597,413505,1403455,423500,10000103504,123532,10000143503,10001403503,1273500,3212609,1103505,123532,490004,1123456,6410403456,302627,413454,1403455,103456,123525,302620,103561,122437,402437,403496,422437,10000100000,403495,6400283495,413452,10011180000,1342644,352670,412437,1403496,413495,1402437,302631,412437,1183496,352660,102437,410403451,443442,303437,423496,10410400000,123532,490004,6410403451,423575,40293451,2403575,302512,443442,303437,123532,490004,123575,423496,10000410000,10000400000,1403451,302656,413453,10011180001,342639,302644,362690,1480010,463452,5500372685,442696,302692,403452,442701,302699,403453,302575,1490005,442696,302692,403453,302575,413528,302573,1490001,362695,123528,1102262694,312696,490001,302692,1490001
+0,100,123528,1108362701,490001,302699,1014500000,1400580000,423562,442463,302460,302714,423563,442448,302438,302706,423563,442463,302460,303367,463499,403495,6200362739,480004,210403499,103876,403500,6400283500,10000100002,210183499,352732,423500,10000100000,302724,10000100000,10000410001,10402765,11402766,413564,411402853,1300562750,6212402807,6212403096,103495,4500362745,6229262807,6229263096,6201262807,6201263096,6400284230,412402970,302795,9000380103,2438442751,111302752,12739,10001,420104,30290108,300001,1420103,1308520100,300100,20000000000,20000000057,25956434544,26459450000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,0,0,0,0,0,0,0,0,0,0,1300562839,423499,10000103776,403495,423495
+0,100,9999202823,6400283495,10000100002,6212402831,332807,6201262831,302811,302810,6201262831,302811,6230262831,10000100000,442836,302831,10000100001,442836,302831,10000100002,442836,302831,423495,10000100000,302798,9430000,442836,302833,1105262825,313079,423499,10000103576,302798,302833,4430000,400000,201262833,312837,302836,1100560000,302836,80000013000,80004453011,80000302844,80000422971,80001202846,1100520000,80100212846,10000100100,80412402971,80009332853,89000382842,80002392853,80004332853,80000302842,80000302854,80000013017,80000422854,80040293041,80001103017,80001123018,80000312860,80000362862,80000302866,80000013041,80000422862,80412402856,80000302853,2438442866,272302867,80000422840,80000463010,81220263010,80240293010,80401272971,80000442853,80000302842,80009332905,2468442876,260302877,80401272971,80000442853,80000302842,80010403013,80009332905,80000442853,80000302842,80010403014,80000442853,80000302842,16400280100,10001110000,86244362892,10001110001,80410182970,80001352895,80002202889,480006,80000122980,80000442853,80000302964,80810403019
+0,100,2408442900,272302901,80000442853,80000302842,80000302881,80000422928,80000462998,81220262998,80350292998,80000442853,80000302842,80009333035,2468442912,248302913,2448442914,260302915,80401272971,80000442853,80000302842,80009333035,80010403001,80000442853,80000302842,80010403002,80000442853,80000302842,1480010,16400280100,80001452999,10000120000,82100372941,80000442853,80000302964,80000422839,89993212935,80030292981,80000463010,81220263010,2408442938,260302939,80000302917,490002,80210402986,480002,490002,80000442853,80000302964,80000422839,89993212949,80030292981,80203263007,80000102986,80000412982,82100372955,80000132985,80000442853,80000302964,1490016,84411403010,80000102981,480002,80410403009,88223263009,80000302938,80000462981,81220262981,80000332969,88220262981,430000,1480010,4450000,1450000,490001,80000122984,1490001,82000202972,90010402982,81105262972,80000312853,80001202971,10000,20000000000,20000000000,20000000000,8,50,0,20000000000,20000006541,25949414253,24500495500,25759564759,24154000000,20000000000,20000000000,20000000000,20000654153,26445000000,20000000000,20000000000
+0,100,20000005341,24245530049,25500575956,24759415400,20000000000,20055645442,24559005646,20063495445,26200456745,24364634544,20000000000,20000000000,20000005341,26263005341,24245530057,24162624544,20066416200,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,13027,80000423038,80030293039,300098,80001423035,1308520100,22455565545,20400000000,20000000000,20000000000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,102833,400363082,1100560000,2450000,411402833,1300563127,423499,10000103676,403495,423495,9999203118,6400283495,10000100004,6212402831,333096,6201262831,303100,303099,6201262831,303100,6230262831
+0,100,10000100000,442836,302831,10000100001,442836,302831,10000100002,442836,302831,10000100003,442836,302831,10000100004,442836,302831,423495,10000100000,303087,9430000,442836,302833,102833,400363124,1100560000,2450000,411402833,302714,80004453291,80000303131,80000423181,80001203133,1100520000,80100213133,10000100100,80412403181,80009333140,89000383129,80002393140,80004333140,80000303129,80000303142,80000303140,80009333314,80010403269,80000443140,80000303129,80010403270,2468443147,239303148,2448443149,263303150,80000443140,80000303129,80000403262,80000443140,80000303129,80010183256,80001353159,80000103257,80000403263,80000403264,80000443140,80000303129,82110183256,480004,80410403169,80000463265,80021263265,3450000,123169,80000463289,80000463252,81220263252,80000333176,88220263252,430000,80001353179,1490002,80211403258,1480010,4450000,1450000,490001,80000123259,1490001,82000203182,90010403253,81105263182,80000313190,80001203181,80000353234,80000463255,80001423265,80000413252,90411403312,80000413253,90001403313,80000413254,90001403314,80000413255
+0,100,96611403315,80401283263,89999203229,80403283265,89999203221,80401283262,80001213217,80000413251,80000373212,80000443140,80000303129,80000303142,2428443212,263303213,80000423127,80230293290,80000303209,80000463251,80401263169,1450000,80000303169,2408443221,263303222,80000463265,80421263265,80000423127,80230293290,80000443251,80000303205,2428443229,263303230,80000413264,80001403263,80000303223,80203263252,80411403254,88223263254,80000103258,80000413253,82100373241,80000133260,80000333244,80220263254,430000,2450000,1480001,490001,1490007,80000123261,80010403255,80000303192,0,20000000000,20000000000,20000000000,20000000000,1,9999,0,8,50,8080000000,0,0,0,0,20000000000,20000415959,24168000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000
+0,100,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,12650,80000423256,80030293318,300001,80001423314,1308520100,300100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1100563395,1008500000,103575,183565,343373,301012,183566,1343376,301012,2000593378,303376,2008500000,4400283379,2000580000,1100213380,2200580000,423384,10000,9999203388,2100580000,303385,2000520400,2000521400,2008500000,2000593393,303391,1004500000,301012,1018500000,9000380104,2418443397,108303398,410107
+0,100,1400013,300013,1401520000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,0,0,0,0,0,0,0,0,0,0,103575,123545,410183567,343443,103575,303442,103530,403575,303442,34460000,3447000000,99,0,757007250,0,0,0,0,0,0,21662454159,24348004559,25956590202,21643484543,25200626454,20045595956,25902020202,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333111111,11113111111,11113111111,11113111111,11113111111,11113111111,11113111111,11113111111,11113111111,11110000000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9999999999,9999999999
+0,100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10000,10,40,80,100,700,525005250,1,11,11110000,24649554962,1000600000,2000,2000000,10000001111,1111,1111110000,23,24800000000,545600,7,9669009669,25756565300,34353600,8,9999999999,9,99,10123536,4233,2218,1103,2202,2428,4116,3577,3576,292,3446,2868,1011,3877,4094,0,0,0,0,0,0,0,3877,34970000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16172650986
+0,100,0,42240000,42222156,42342154,42372153,42292152,42392151,42422150,42452149,42212145,42202144,42182143,42192140,42472139,42502138,42522135,42542132,42632129,42572128,42602126,42670000,41072125,42262123,42302122,42712120,42732117,42752115,42322114,42330000
+0,100
+0,100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,42370000,42292116,42420000,42292118,42752119,42710000,42292121,42420000,42290000,42332124,42290000,42290000,42392127,42290000,42290000,42292130,42602131,42570000,42292133,42602134,42570000,42292136,42502137,42470000,42470000,42290000,42292141,42212142,42240000,42290000,42290000,42222146,42422147,42452148,42290000,42290000,42290000,42290000,42330000,42320000,42332155,42290000,42290000
+0,100
+0,100,1000000,6450000,82200360004,480001,80001200001,1480008,90000100010,1490008,80000220013,80000420000,10000300000,58,59,60,5800000000,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,18012690202
+0,100,2000000,44229120001,6450000,1480008,80410400004,80000420004,1450000,89949200008,80010210010,10001490011,80000420000,10000300000,80002390014,80000410016,80000420000,60000300100,2450000,80000300008,24649670000,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,19264290162
+0,100,3000000,44229120001,44233120002,100010000,80410400036,80000420004,80010290236,300290101,80000420000,80412400085,10000419999,9437557,82200370013,420100,10000440000,12201370001,400132,80412400067,410130,80000370034,100134,460133,85246370196,85267370172,85249370110,85262370223,85241370025,80000300211,80000410043,1270129,80000440168,80000300159,100129,80000360050,82299370064,1490010,80000300026,80000420001,60000310121,109999,80401260036,80000330052,80000410043,80001330068,82214360036,80000440168,89900300159,82299370036,1490010,80000300041,100129,190125,190125,100130,83300360034,83300360054,80000130237,400130,210400131,1480002,310400129,87242360047,87266360088,87257360096,87263360098,87243360087,80300360036,100132,400134,80009330047,309999,80000420036,86600360084,1490003,80300370078,80000130237,83300360080,16301279999,10000419999,80411400036,80000300036,13310409999,80000300072,10000109999,1480003,16610409999,80000300036,100132,9339999,80000300075,1008610124,1480003,83111400090,62408440200,60101300200,80000420094,80010290236,240290101,80000300050,1495804750
+0,100,3000001,1008610124,80000300092,80300360103,80010090102,80001120080,80000300098,21602020202,100125,80000360050,80000120173,1480004,83211400108,990090101,80000300092,80000420120,80000360169,81100360170,400134,3450080,2400128,460126,410400126,1400127,100134,2480010,1430023,120129,130128,80001330211,190125,5000190125,100134,80000410164,80000440168,80001330158,1270128,80000320144,410127,80000370050,80000410121,80000440168,80000300158,100127,80000130126,80000420056,460129,3260129,80000300113,1270126,410126,80000370152,410133,80000370154,1270133,80000410114,80000300158,80000410081,80000300158,100134,80000410173,1490001,400134,1490018,1480008,1420125,10000490008,9400280125,80024210168,430020,10000120125,10010400125,2260125,309999,80009210114,490051,80001210112,2457557,1480008,80410180238,1400134,80001340186,80410400184,80449270184,80000420184,100130,1480004,84211400185,80000100184,2459999,80000200115,437557,80000130238,210400133,211180130,80000350193,80000100238,80000300177,80000100170,19018136231
+0,100,3000002,1110400134,80000300177,304270129,80000320200,80000300210,80000100239,80000360199,2457557,82210400125,1480008,1400134,2480010,120130,80000170170,310180129,80001340219,4260129,100129,190125,190125,2270125,80000410226,80000440168,80000300158,80000300050,80000410125,80000100156,420131,80001200115,2457557,1480008,1400134,430014,80000130238,2457557,80001330234,210180130,80000340211,80000120156,80000300221,10400133,80000300220,20000000000,10000000,50,5000000000,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,19198988395
+0,100,4000000,44232120001,70128010000,80410400090,80410400091,80401260091,80000440097,80000300090,80000420128,10000460000,80000460136,60000440100,60117300100,80000460138,80502260138,80000420128,89999200018,86400280136,100101,89999200112,89400280138,10000100101,80000420138,10000490000,80502260138,80000410136,80000370038,80160210009,84400280136,82213360053,480008,10000490000,80000190135,84102270136,80000320018,80000100135,80000440097,80000300090,85212270136,80000300018,80162210009,81108360069,82203360065,82220360063,82234360063,82223360058,82213360120,82214360051,80000420132,89999200018,80000440097,80000300076,80000300018,89416260138,80000300046,80000460136,80000100135,80000440097,89992200090,80000300018,80001260134,80000440097,80000300076,80001260131,80000300018,80001260130,80000300018,80000410124,82211400129,80001260133,80000300018,490001,80000410135,1490001,80001400135,82201270129,80001260132,80000300018,80000410131,80000370103,80000420130,80000110135,490008,89999200083,430000,80001130137,81210270137,80000320090,430000,80000300090,80000420134,80001210098,440090,300091,80009330100,80412400091,80000420108,80000460129,80070290129,18464888225
+0,100,4000001,300097,80000400137,80000300094,80000420000,80000460128,10000300000,80000100135,80000420133,89999200108,80000120129,80000220129,80000420130,89999200088,1430000,80000300088,80810180125,80001350018,410102,80011180126,80001350018,80000420128,10001260000,80000300100,80000420132,89999200036,80502270138,80000300048,5800000000,28562455563,24955455300,5110000000,0,0,0,0,0,0,0,0,0,0,0,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15758013230
+0,100,5000000,44233120001,80000440033,80000300029,25945626453,26300566463,20056460059,24155474500,24955000000,80000440033,80000300029,25945626453,26300645544,24546495545,24400465659,20000000000,80000440033,80000300029,25945626453,26300495353,22044454649,25545440046,25659000000,80000460042,80000440033,80000300031,0,20041594963,24854456349,24300566545,25946535666,80001400042,3450000,80412400036,80000420053,50290033,61106440100,60037300100,300036,0,0,0,0,0,0,0,0,0,0,0,5000000000,0,0,5110000000,0,80000000037,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,19204061430
+0,100,6000000,44229120001,4450000,80000420000,10000360000,80001330034,80810400036,82310400037,60000100148,80000140037,80000130038,82310400037,83110180037,80000350014,80001330014,82201260037,80000100039,80000240036,80000220040,80000240036,80000220041,60000400149,80000100036,60000250149,60000220149,80000240042,60000400149,80000100036,60000250149,60000220149,80000120037,80000350032,80000240043,10000300000,80000240042,10000300000,80000410044,60000300107,5110000000,0,2550000000,14916450338,5041117101,5062697923,5050000000,5015811388,26258596300,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14156674349
+0,100,7000000,44229120001,2450000,80000410062,80411400057,81210400000,80010180064,80000340055,1490002,80211400008,2450000,80000420008,80000140065,89949200014,10001490001,80001420012,1490008,82211400061,82251260061,1490012,2450000,80010200021,10001490001,1490010,60000400150,60000140150,60000400152,80000140066,80000120067,60000140152,80000120068,60000140152,80000120069,60000140150,60000400150,60000400149,80000100070,60000140152,80000120071,60000140152,80000120072,60000140152,80000120073,60000190149,60000130150,1480003,60000150149,80001120061,81210270000,80000420000,80000320050,10000300000,60000400150,80000100074,89999410052,60000250150,10000300000,80000420000,80001330059,80000410063,60000300100,1450000,10000300000,0,80000000063,24567570000,5311282665,4342944819,10000017159,10004893282,10169203872,10995711477,417304,35418755,529087016,864864000,5099999999,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11311162777
+0,100,8000000,44229120001,6450000,80001330061,80000360061,1480002,84210400068,1490004,80000180014,80001340044,80000180033,80000340044,1480001,80000120069,60000400152,80000130070,61014150152,60000400152,60000140152,60000400149,80000140071,80000120072,60000140149,80000120073,60000140149,80000120074,60000140149,80000120075,60000140149,80000120076,60000140149,80000120077,60000140152,80000120078,82200360035,9858480001,80001200032,90810400064,80000100068,80000230079,80001340040,60000220151,80000240080,90000220064,80000420000,10000300000,81101360047,1480001,80000130081,80000220082,80000360059,60000400152,62239260152,60000100152,80000240083,80000220084,60000240152,80000220085,60000240152,60000240152,60000220152,80000400067,80003200036,80000410086,80000420000,60000300107,4900000000,5000000000,5100000000,0,5200000000,316227766,632455532,410597044,57228327,250341093,282433571,400193033,666661710,2000000037,1151292547,5251000000,5123025851,2000000000,1000000000,15025000000,5033333333,15050000000,25356470000,40000990000,0,0,0,0,0,0,0,0,0,14130294806
+0,100,9000000,44229120001,44245120002,44242120003,44222120004,70006010000,60001400150,84112400017,60000400152,84400280000,60000310121,80000420000,80000360020,80001330023,60000440200,60000300200,60000240150,80000310041,80000180046,80000340038,60000440300,60000300300,430000,80000420000,10000300000,60001180124,10000340000,80000300029,1390000,1490010,60000440400,60000300400,390000,80000370032,80000420000,80000410047,60000300107,2490010,160000,2480004,84110400017,60001100152,80000300009,80000410047,80000420000,60000300100,60000100152,60000140150,80000330038,1450000,80000300018,5311282665,24653465300,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,19545241579
+0,100,10000000,44229120001,70003010000,84400280000,60000310121,60001400149,60000400152,80000420000,80000360029,60000100151,10000370000,60000400150,60000100148,60000140149,60000400149,80000370017,60000100150,60000240152,60000400150,60000410149,80000370023,60000100152,60000240152,60000400152,80000300010,80000310033,81210370026,10000300000,60000100151,60000250150,10000300000,60001180124,10000340000,80000410037,60000300107,1450000,11210370000,80000410037,60000300100,24653466700,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,13291209771
+0,100,11000000,44229120001,4450000,80000420000,80000360033,60001400149,60000400152,60000460150,60001260150,60000100148,60000140149,60000400149,80000370016,60000100150,60000140152,60001400150,80000360016,80000300022,60000410149,80000370026,60000100152,60000140152,60001400152,80000360007,60000100149,80001330037,80000410039,60000300100,60000100150,81210370029,10000300000,80000410040,1450000,60000150150,10000300000,60001180124,10000340000,80000410039,60000300107,1450000,10000300000,24667466700,1,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10129139890
+0,100,12000000,44224120001,44221120002,44229120003,4450000,80000420000,60412400200,60001400350,60001400349,60000440100,60000300100,60000410350,60000300202,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,13096871657
+0,100,13000000,44229120001,6450000,80000410046,80411400044,60000460152,80000240049,1490002,80211400048,80000420048,89949200014,80007210043,10001490018,60000400152,80000100013,1490050,1490018,60000400150,60000220150,60010180151,80001340022,430000,80000230050,1490000,60000400150,60000240150,60000400149,80000240051,80000220052,60000240149,80000220053,60000240149,80000220054,60000240149,80000220055,60000240150,60000220150,60000400150,60000100148,60000140152,60000100150,80000420000,10000370000,60000110150,10000300000,80000420000,80000410047,60000300114,80000000047,26249550000,0,5031830989,5120000000,4715148419,14846737656,4979689679,15064596371,5057079632,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16082108296
+0,100,14000000,44247120001,6450000,80000410000,60411400100,80000410007,80000220009,80000220009,60000300102,80000000008,24356620000,5078539816,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14102680052
+0,100,15000000,44247120001,44250120002,44229120003,6450000,80000400019,80000410022,60000440100,60000300204,80000360013,80000400020,80000100019,60000440100,60000300100,80000250020,80000420000,10000300000,80000410019,82211180015,15700340000,80000420000,80000410021,60000300307,0,0,26341550000,80000000021,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15591251006
+0,100,16000000,44257120001,44260120002,44229120003,10000,60000400352,80000410011,60000440200,60000300204,80000420000,60000360239,60000400349,60000100352,60000250349,60000300102,80000000012,24162495500,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16913237676
+0,100,17000000,44257120001,44260120002,44229120003,10000,60000400352,80000420000,60000360239,80000410016,60000440200,60000300204,60000250352,60000440100,60000300100,80000420000,60000410352,1490000,10000330000,80000220019,10000300000,80000000017,24143566200,0,5131415927,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12027574084
+0,100,18000000,44229120001,6450000,80000420000,60010180151,60000400152,84412400035,80001340009,84401270035,85010100053,60000250152,80010180007,80001340041,490002,60000400152,60000140152,60000400149,80000140054,80000120055,60000140149,80000120056,60000140149,80000120057,60000400150,80000100058,60000140149,80000120059,60000140149,80000120060,60000140149,80000120057,60000140152,1480002,60000150150,60000400150,61105260150,60000100150,10000200000,80000100061,60000410152,1490000,60000230150,10000300001,60000400152,60000240152,60000400149,80000240062,80000220063,60000240149,80000230064,60000240149,60000240152,60000220152,60000400150,80000300035,5099999999,49017591,565030980,1453567135,1000000000,8561189,280504541,1120234014,5115707963,15014281428,5020000000,5033333333,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,18932240304
+0,100,19000000,44229120001,44239120002,70003010000,84400280000,60000310121,80000410038,80411400034,60010180151,80000340034,82251360031,80000360032,60000400152,60000240152,1490002,80211400031,80001420031,10001480051,80000130044,1490010,60000130148,60000130148,1490010,80000310022,80051120045,84400280021,81100360029,80412400031,80000410031,1490018,80000420000,60000300202,1490001,80001210023,1430000,60000220151,80000300027,80000410037,80000420000,60000300107,25956546767,80000000037,80000100046,60000410152,10000370000,1490000,10000300000,1000000000,1,5115707963,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,13804156832
+0,100,20000000,6450000,82210180012,80000340010,1480000,80000330007,430000,80000220013,80000220012,80000230012,1490000,80000420000,10000300000,5810000000,5099999999,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,13132480065
+0,100,21000000,44229120001,8000380000,80000420036,60000310121,80000420000,14401289998,80002400049,80000420000,14400289999,80000400050,10000100000,60000400149,1480010,80000440048,80001330036,60000400144,60001400145,80001100049,80000130051,1480010,80000440048,80000300036,60811400146,80000300023,62224260146,62204260147,80403260022,87000380030,80000420000,80000100050,10000300000,80000420032,60010290124,60050290137,60000440136,60000300134,80000300027,88001450003,490001,1490001,80000130052,81108260036,80000310037,81105260041,80000310046,60000400150,80000300036,1480010,60000100150,300048,10000,80,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16368492831
+0,100,22000000,44229120001,44233120002,380000,60002400149,80000420017,60000310121,60000400152,80000420000,14400289999,10000410000,80001400050,80000420000,80000460053,80000460054,86412400051,10000109997,80000330016,60000130149,80410400020,80001450004,10000419998,81108370022,120020,80000300023,60000120152,82100370034,80000400052,80000330027,84220260051,80412400032,60504440200,60050300200,60000100152,60000420149,300032,300033,1480008,80000460052,88811400052,80000330039,84220260051,430000,88800370042,80000130055,80223260053,86203260051,80110400054,490001,88910400054,89108260054,87108260054,80000300027,0,23300000000,0,0,0,50,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16091802721
+0,100,23000000,44229120001,9000380000,84400280015,60000310121,80000420000,80000400020,10000109999,84410400002,84400360015,10000100000,80410180003,80001350012,80002200008,80001120002,80000120021,80000310015,70003440000,4400360002,80000420000,80000100020,10000300000,0,9999000000,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11253870258
+0,100,24000000,44242120001,44229120002,2450000,60010180171,80000340025,80010180028,80001340014,60000440100,60000300102,60000400252,60000110251,60000250252,60000220252,80000240028,80000420000,10000300000,60000400252,60000240252,60000400249,80000240029,80000220030,60000240249,80000220031,60000240249,60000240252,60000220252,80000300012,80000420000,80000410032,60000300200,5050000000,4719841270,4883333333,5016666667,26249554800,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14422289637
+0,100,25000000,44271120001,44275120002,44229120003,10000,80000400019,80000410021,80010180023,80000340015,60000440200,60000300202,80000400020,80000360013,80000100019,60000440100,60000300100,80000250020,80000420000,10000300000,60000100351,80000410019,1490000,80000300013,0,0,80000000022,26341554800,5250000000,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14384255963
+0,100,26000000,44242120001,44229120002,10000,80000410013,430000,60000440100,60000300102,80000360011,60000400252,60000100251,60000250252,60000220252,80000240015,80000420000,10000300000,80000000014,24356624800,5050000000,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,17882136065
+0,100,27000000,44237120001,10000,1000600117,60000300111,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15239020229
+0,100,28000000,10000,80000420000,10000109999,480006,80410400010,10000109998,84210400010,480008,80000130012,80000190010,2000610000,10000300000,1,40000990000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16623590060
+0,100,99999999999
+0,100,1000640002,300000,1001620115,1008620144,5401260080,310008,2000650008,300004,2000650010,300013,2004630231,2006630202,2008630173,1000650015,300016,1008630173,410240,1400080,410241,411400077,411400025,401270025,410080,420025,10290079,290199,2400079,411180079,1350025,410072,1400051,3000380049,420086,5200034,11010600200,5200034,1420037,1450100,10000120200,10000120201,10000120202,10000120203,10000120204,5200038,310045,360051,40090082,9669009669,300047,1000030100,300036,100101,420051,4330063,460074,299260074,401280074,10000410100,1280370075,370029,16400280100,10411400000,300056,6610400067,9999210000,412400067,10000429999,290000,1480007,120073,190051,300051,100101,1,99,6711180078,1350056,300200,80000000000,0,5000,348,21643484543,25200626454,20045595956,25900000000,9899,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333
+0,100,33333000000,333333,33333333333,33333333333,33333333333,33333333333,13313131313,13131313131,13313131313,13131313131,13313131313,13131313131,13313131313,13131313131,13313131313,13131313131,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,0,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,0,33333333333,33333333333,33333333333,33333333333,33333333333,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33000000000,0,0,0,0,0,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111
+0,100,0,0,0,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,30000000000,0,0,0,0,0,0,0,0,31111111111,31100111133,33322222222,22333333333,11103333331,11100000000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9500,200
+0,100,3000380303,1000630388,300304,1070060353,1008500000,1300580000,4000380319,1000590333,300307,3000380317,420081,50290100,1001610352,401260347,205260311,310333,300310,1000060100,300333,3000380330,6105260347,420081,50290250,1001610352,405270322,401260347,320321,460347,6101260347,300333,1000060000,1000060100,1000060200,1101520100,100100,99360346,1450100,1420336,10000120200,1200338,310341,360309,40090082,9669009669,1101580000,300333,757007250,10000,0,0,0,0,0,4000380302,300003,1000030000,1000030100,1000030200,300003,60000300300,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333200000,0,222200000,0,10222,22222221022,22222222102,22222222210,22222222221,2222222222
+6708*0,100
+0,1,1
+6832*1,100
+1,1,1
diff --git a/software/BALGOL/BAC-220-Generator-Callout-10K.card b/software/BALGOL/BAC-220-Generator-Callout-10K.card
new file mode 100644
index 0000000..6cf47cb
--- /dev/null
+++ b/software/BALGOL/BAC-220-Generator-Callout-10K.card
@@ -0,0 +1,8 @@
+777 BAC-220 GENERATOR CALLOUT PROGRAM - 10K MEMORY VERSION
+666                                                                  61000600005
+===                      6000030000200000390000000185000000000152000009999009999
+2 GENERATE STANDARD VERSION OF BAC-220;
+2 VARIABLES END AT 9500;
+2 MEMORY SIZE IS 10000;
+2 FINISH;
+777 DUMMY REJECT CARD TO END GENERATOR DECK
diff --git a/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHELT-Object.tape.txt b/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHELT-Object.tape.txt
new file mode 100644
index 0000000..4ac762c
--- /dev/null
+++ b/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHELT-Object.tape.txt
@@ -0,0 +1,50 @@
+0,100,0,1390000,310004,5103260022,1018500000,400012,2400013,1420008,12739,1400560000,1308520100,300100,0,9500,420000,412400024,1004500000,1100580000,420013,390000,250020,100012,10023,5112400022,300024,420027,10290012,290199,2400012,411180012,1350027,1100520100,410069,1400048,1420035,1450100,10000120200,10000120201,10000120202,10000120203,10000120204,5200036,310043,360048,40090092,9669009669,1101580000,300031,100101,420048,4330060,460071,299260071,401280071,10000410100,1280370072,370031,16400280100,10411400000,300053,6610400064,9999210000,412400064,10000429999,290000,1480007,120070,190048,300048,100101,1,99,6711180091,1350053,300200,1111,420074,10000100000,170075,490004,10400091,401260074,4450000,41000500091,1100520100,100100,10180091,350032,30090096,9669009669,300083,80000000000,21602020202,24348454352,20062645400,24559595659,21662454754,24555630045,25959565902
+0,100,0,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,0,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,1111111111,0,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,30000000000,0,0,0,0,0,0,0,0,31111111111,31100111133,33322222222,22333333333,11103333331,11100000000,0,0,0,0,0,0,0,0,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33000000000,0,0,0,0,0,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111
+0,100,0,33333333333,33333333333,33333333333,33333333333,33333333333,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,31111111111,1000640232,300233,1008620129,5512400200,5401260200,310238,2000650238,300234,2000650240,300243,2004630158,2006630187,2008630229,1000650245,300246,1008630229,410013,300025
+0,100,0,40950290200,300222,4203000,4900300,26701003,46701005,6600000,10000000201,4204000,36714000000,4200900,36814000000,4200900,36614000000,4200800,34265140000,4200700,34342651400,4200700,34445651400,6600300,6600000,10000000207,309999,7523010223,407469,300400,107512,127515,407171,107513,127515,407170,107513,137169,407168,107169,127515,407167,107169,127513,407166,467165,107511,407164,107169,127512,407163,107515,137513,1111310251,360252,300255,107162,407161,300262,107515,137513,447102,307102,447116,307116,407161,107169,407101,407100,407099,107512,360269,107169,360274,107098,407097,407096,300277,107169,407097,407096,1427510,10000300281,300000,300281,107169,407095,449999,300288,107169,127095,407095,137515,1111310291,360293,1330293,309999,107098,147505,0,0,17648466575
+0,100,1,40920290295,1490010,127095,147504,1407094,107095,127517,147516,1407093,427093,10000107518,427094,10000407506,107095,127505,147504,1407094,107162,427094,10000407506,300400,107098,407092,440365,300322,107169,127092,407092,137168,1111310325,360327,1330327,300366,107169,407095,440364,300334,107169,127095,407095,137515,1111310337,360339,1330339,300365,107169,127092,147505,1490010,127095,147504,1407094,107092,147505,1490010,127095,147504,1407093,107098,147505,1490010,127095,147504,1407091,427093,10000107506,427091,10000247506,427094,10000407506,300400,300400,300000,107169,407092,449999,300374,107169,127092,407092,137513,1111310377,360379,1330379,309999,107169,407095,449999,300386,107169,127095,407095,137515,0,0,2790367,40002830314,70002920315,14290400844
+0,100,2,40910290387,1111310389,360391,1330391,300408,107092,147505,1490010,127095,147504,1407094,107092,147517,1490010,127095,147516,1407091,427091,10000107518,427094,10000407506,300400,300400,107512,360412,300414,300000,300418,1427509,10000300418,300463,300418,107169,407092,440461,300425,107169,127092,407092,137513,1111310428,360430,1330430,300462,107167,407095,440450,300437,107169,127095,407095,137171,1111310440,360442,1330442,300451,107092,147505,1490010,127095,147504,1407094,427094,10000467506,300400,107092,147505,1490010,127515,127092,147504,1407094,107162,427094,10000407506,300400,300000,107169,407092,449999,300470,107169,127092,407092,137513,1111310473,360475,1330475,309999,107167,407095,449999,0,0,3660409,40003690408,70003780409,40003810407,15396819839
+0,100,3,40900290478,300482,107169,127095,407095,137171,1111310485,360487,1330487,300504,107092,147505,1490010,127095,147504,1407094,107092,147517,1490010,127095,147516,1407091,427091,10000107518,427094,10000407506,300400,300400,107169,407090,407089,407088,407087,407086,107169,407085,107169,407084,407083,107512,360519,300521,300539,300539,107169,407095,440538,300528,107169,127095,407095,137512,1111310531,360533,1330533,300539,107095,127515,407094,427094,10000467369,300400,1427508,10000300543,300567,300543,107169,407092,440565,300550,107169,127092,407092,137515,1111310553,360555,1330555,300566,107090,147505,1490010,127092,147504,1407094,427094,10000107506,427092,10000407369,300400,300000,107169,0,0,4120505,4620505,40004650504,70004740505,40004770503,14278609268
+0,100,4,40940290568,407092,440594,300574,107169,127092,407092,137515,1111310577,360579,1330579,300595,107090,147505,1490010,127092,147504,1407094,107092,147522,1407091,427094,10000107506,427091,10000247523,427092,10000407369,300400,300596,1427084,10000300600,300643,300600,107169,407092,440641,300607,107169,127092,407092,137090,1111310610,360612,1330612,300642,467082,107169,407095,440637,300620,107169,127095,407095,137171,1111310623,360625,1330625,300638,107092,147505,1490010,127095,147504,1407091,427095,10000107369,427091,10000247506,227082,407082,300400,107082,427092,10000407171,300400,300000,467081,107169,407092,449999,300651,107169,127092,407092,137171,1111310654,360656,1330656,309999,107090,147505,1490010,127092,147504,1490010,0,0,5660596,15425175567
+0,100,5,40920290661,1407091,427092,10000107369,427091,10000247506,227081,407081,300400,107081,447116,307116,407080,107101,147471,1407091,107080,427091,10000407472,107169,127101,407101,107169,407092,440712,300689,107169,127092,407092,137171,1111310692,360694,1330694,300713,107090,147505,1490010,127092,147504,1407091,107090,147505,1490010,127092,147504,1407094,427094,10000107506,2450000,257080,427091,10000407506,300400,107169,407084,300539,1427086,10000300720,300000,300720,117088,407088,107088,360727,330727,300000,300728,300728,107169,407092,440746,300735,107169,127092,407092,407091,107090,137169,137091,1111310741,360743,330743,300747,427092,10000117171,10000407171,300400,107162,427090,10000407171,107169,407092,449999,0,0,6420716,40006460668,70006550669,13179745740
+0,100,6,40920290753,300757,107169,127092,407092,137171,1111310760,360762,1330762,300792,467082,107169,407095,440787,300770,107169,127095,407095,137090,1111310773,360775,1330775,300788,107095,147505,1490010,127092,147504,1407091,427091,10000107506,427095,10000247171,227082,407082,300400,107082,427092,10000407270,300400,300000,107101,147469,1407091,427090,10000107171,447116,307116,427091,10000407470,300728,117089,407089,107089,360810,330810,300811,300811,300728,107169,407092,440844,300818,107169,127092,407092,137513,1111310821,360823,1330823,300845,107165,147486,1490010,127092,147485,1407091,427092,10000107171,427091,10000407487,107165,147483,1490010,127092,147482,1407091,427092,10000107171,10000247171,427091,10000407484,300400,0,0,7180803,7250793,40007520791,14306222073
+0,100,7,40950290845,107165,147486,1490010,127166,147485,1407091,427166,10000107171,427091,10000407487,107165,147480,1490010,127169,147479,1407091,107165,147486,1490010,127166,147485,1407094,107165,147483,1490010,127169,147482,1407093,427094,10000107487,427093,10000237484,427091,10000407481,107098,407095,440916,300886,107169,127095,407095,137513,1111310889,360891,1330891,300917,107165,147480,1490010,127095,147479,1407091,107165,147480,1490010,127095,137169,147479,1407093,107165,147483,1490010,127095,147482,1407094,427093,10000107481,427094,10000237484,427091,10000407481,300400,107162,407079,107169,407092,449999,300926,107169,127092,407092,137513,1111310929,360931,1330931,309999,107514,237079,369999,1339999,107165,147480,1490010,127092,147479,0,0,13211393609
+0,100,8,40900290940,1407091,427091,10000107481,360974,330974,107165,147477,1490010,127092,147476,1407091,107165,147480,1490010,127092,147479,1407094,427094,10001107481,407094,107514,237079,407093,107094,2450000,257093,447116,307116,407093,117093,427091,10000407478,301008,300997,107165,147477,1490010,127092,147476,1407091,107165,147480,1490010,127092,147479,1407093,107514,237079,407094,427093,10000107481,2450000,257094,447116,307116,427091,10000407478,301008,301008,107165,147480,1490010,127092,147479,1407091,117162,427091,10000407481,107162,227079,407079,300400,300728,1427085,10000301018,300000,300000,301018,107169,407092,449999,301025,107169,127092,407092,137171,1111311028,369999,1339999,309999,0,0,7921013,40009211011,70009301012,70009330999,70009340999,12038228198
+0,100,9,40890291030,107090,147505,1490010,127092,147504,1407091,427092,10000107270,427091,10000407506,300400,301095,107169,407092,441064,301049,107169,127092,407092,137515,1111311052,361054,1331054,301065,107165,147502,1490010,127092,147501,1407091,427092,10000107270,427091,10000407503,300400,107169,407092,441090,301072,107169,127092,407092,137512,1111311075,361077,1331077,301091,107165,147499,1490010,127092,147498,1407091,107092,127515,407094,427094,10000117270,427091,10000407500,300400,107078,407085,301018,301114,1427083,10000301099,301103,301099,107098,407083,407084,300539,107090,137513,1111311107,361113,331113,107169,127090,407090,300511,301114,300000,1427087,10000301118,300000,301118,107098,0,0,10151094,10161042,40010201040,70010291041,40010271030,40010281030,14294566925
+0,100,10,40930291119,407087,300000,107080,2450000,257161,407077,107077,247077,407076,107165,147496,1407091,107077,427091,10000407497,300000,1427099,10000301139,300000,301139,107169,407092,441181,301146,107169,127092,407092,137513,1111311149,361151,1331151,301182,107169,407095,441180,301158,107169,127095,407095,137512,1111311161,361163,1331163,301181,107092,147474,1490010,127095,147473,1407091,107092,147505,1490010,127515,127095,147504,1407094,427094,10000107506,427091,10000407475,300400,300400,107162,407488,107169,407092,441209,301191,107169,127092,407092,137513,1111311194,361196,1331196,301210,107092,147471,1407091,107092,147469,1407094,427091,10000107472,2450000,427094,10000257470,247488,407488,300400,107488,247488,0,0,11131135,11161121,14323116701
+0,100,11,40940291212,407488,107098,407085,407099,407086,107169,127090,407090,301222,301114,1427096,10000301226,301227,301226,301114,107169,407092,441293,301234,107169,127092,407092,137512,1111311237,361239,1331239,301294,107092,407095,441292,301246,107169,127095,407095,137512,1111311249,361251,1331251,301293,467082,107169,407075,441282,301259,107169,127075,407075,137513,1111311262,361264,1331264,301283,107075,147474,1490010,127092,147473,1407094,107075,147474,1490010,127095,147473,1407091,427094,10000107475,427091,10000247475,227082,407082,300400,107092,147494,1490010,127095,147493,1407091,107082,427091,10000407495,300400,300400,107169,407092,449999,301301,107169,127092,407092,137512,1111311304,369999,1339999,309999,0,0,11371221,15430976211
+0,100,12,40890291306,107163,147494,1490010,127092,147493,1407091,107092,147494,1490010,127092,147493,1407094,427094,10000107495,447116,307116,427091,10000407495,300400,107169,407096,301114,1427100,10000301332,300000,301332,107164,361335,301337,300000,301340,107164,137169,407164,107169,127165,407165,107098,407100,407085,1427507,10000301350,300000,301350,107169,407092,441378,301357,107169,127092,407092,137515,1111311360,361362,1331362,301379,107166,147505,1490010,127092,147504,1407091,107165,147520,1490010,127092,147519,1407094,427094,10000107521,427091,10000407506,300400,107169,407092,449999,301386,107169,127092,407092,137512,1111311389,361391,1331391,309999,107166,147505,1490010,127515,0,0,11201328,11341328,40012961324,70013051325,40013031306,40013041306,13194983001
+0,100,13,40910291395,127092,147504,1407091,427091,10000467506,300400,300513,107169,407092,441430,301409,107169,127092,407092,137171,1111311412,361414,1331414,301431,107166,147505,1490010,127092,147504,1407091,107165,147520,1490010,127092,147519,1407094,427094,10000107521,427091,10000407506,300400,300513,1427097,10000301436,301437,301436,301332,107169,407092,441482,301444,107169,127092,407092,137512,1111311447,361449,1331449,301483,107092,407095,441481,301456,107169,127095,407095,137512,1111311459,361461,1331461,301482,107165,147491,1490010,127092,147490,1490010,127095,147489,1407091,107092,147494,1490010,127095,147493,1407094,107076,427094,10000247495,427091,10000407492,300400,300400,107169,407092,449999,0,0,13301432,13481402,40013811400,70013901401,14305562709
+0,100,14,40920291486,301490,107169,127092,407092,137512,1111311493,361495,1331495,301516,107165,147491,1490010,127163,147490,1490010,127092,147489,1407091,107163,147494,1490010,127092,147493,1407094,107077,427094,10000247495,427091,10000407492,300400,301332,420223,10000300000,107470,410401206,410400801,107472,410401203,410400678,107475,410401279,410401277,410401179,107478,410400996,410400971,107481,410401007,410400990,410400958,410400942,410400915,410400911,410400878,107484,410400913,410400876,410400843,107487,410400874,410400854,410400832,107488,410401212,410401211,410401210,410401208,410401207,410401183,107492,410401514,410401480,107495,410401512,410401478,410401323,410401319,410401291,107497,410401133,107500,410401089,107503,410401063,107506,410401429,410401399,410401377,410401177,410401039,410400782,410400711,0,0,2251519,13351517,40014851515,10544332540
+0,100,15,40940291578,410400707,410400665,410400634,410400589,410400562,410400502,410400460,410400449,410400406,410400363,410400361,410400359,410400313,410400306,107518,410400500,410400404,410400304,107521,410401427,410401375,107523,410400591,300226,309999,7074011603,407072,1427074,10000301624,300000,300000,300000,300000,300000,300000,300000,300000,300000,300000,301665,301651,301646,301636,301633,301630,301627,1450002,421603,10000300000,107162,421603,10000300000,107073,421603,10000300000,107072,421603,10000300000,107073,247073,407071,107072,247072,237071,407071,117071,421603,10000300000,107073,247072,247070,421603,10000300000,417078,107073,447032,307032,407071,107072,247072,247073,247031,237071,407071,117071,421603,10000300000,107073,247073,247031,247072,417078,407071,107072,0,0,40002221602,16242287408
+0,100,16,40910291672,447032,307032,237071,407071,117071,421603,10000300000,417030,107073,447032,307032,417030,407071,107072,447032,307032,227071,407071,107073,247073,247029,407028,107072,247072,247028,237071,407071,117071,421603,10000300000,417078,107073,447032,307032,247027,247072,417078,407071,107072,447032,307032,247073,247027,237071,407071,117071,421603,10000300000,417026,107073,447032,307032,417078,407071,107073,447032,307032,247025,407028,107072,247072,247028,237071,417030,407071,107072,447032,307032,247073,247024,237071,421603,10000300000,417026,107072,447032,307032,417078,407071,107072,447032,307032,247025,407028,107073,247073,247028,237071,417030,407071,107073,0,0,16131745,16141720,16151702,16161679,10999820338
+0,100,17,40920291763,447032,307032,247072,247024,237071,421603,10000300000,417023,107073,447032,307032,417030,407071,107073,447032,307032,247022,407028,107072,247072,247028,237071,407071,107073,247073,247022,417030,407028,107072,447032,307032,247028,237071,417023,407071,107072,447032,307032,237071,407071,117071,421603,10000300000,417026,107073,447032,307032,247029,247072,417026,407071,107072,447032,307032,247073,247029,227071,417078,407071,107073,447032,307032,247021,417078,407028,107072,447032,307032,247028,237071,407071,117071,421603,10000300000,417020,107073,447032,307032,417026,407071,107073,447032,307032,247019,407028,107072,247072,247028,237071,417078,407071,107073,0,0,16101837,16111806,16121770,10994748262
+0,100,18,40930291855,447032,307032,247018,417030,407028,107072,447032,307032,247028,237071,417023,407071,107072,447032,307032,247073,247017,237071,407071,117071,421603,10000300000,417023,107073,447032,307032,247017,247072,417030,407071,107073,447032,307032,247018,417078,407028,107072,447032,307032,247028,237071,407071,107073,247073,247019,417026,407028,107072,447032,307032,247028,237071,417020,407071,107072,447032,307032,237071,407071,117071,421603,10000300000,417016,107073,447032,307032,417016,407071,107072,447032,307032,227071,417023,407071,107073,447032,307032,247015,407028,107072,247072,247028,237071,417030,407071,107073,447032,307032,247014,417030,407028,107072,447032,0,0,16081917,16091877,10989995970
+0,100,19,40930291948,307032,247028,237071,407071,107073,247073,247015,417023,407028,107072,447032,307032,247028,237071,407071,117071,421603,10000300000,417020,107073,447032,307032,247013,247072,417026,407071,107073,447032,307032,247012,417078,407028,107072,447032,307032,247028,237071,417078,407071,107073,447032,307032,247012,417026,407028,107072,447032,307032,247028,237071,417020,407071,107072,447032,307032,247073,247013,237071,407071,117071,421603,10000300000,107011,407010,107009,407008,107009,407007,107169,407006,449999,302023,107169,127006,407006,137010,1111312026,362028,1332028,309999,102029,12033,446867,306867,309999,300400,422034,2202033,427006,10000409456,422038,2202033,427006,0,0,40016022010,16071966,12104111294
+0,100,20,40920292041,10000409413,422042,2202033,427006,10000409370,9430000,302033,427006,10000109456,446792,306792,406781,427006,10000109413,446782,306782,246781,406781,107162,427006,10000239413,406693,246693,406693,10000109456,10000249456,226693,446694,306694,226781,427006,10000409273,107169,406692,442103,302080,107169,126692,406692,137008,1111312083,362085,1332085,302104,106692,146691,1490010,127006,406781,106692,4400281603,10000400000,427006,10000109456,4400281603,10000409999,427006,10000109413,441603,200301603,426781,10000408625,300400,300400,102106,19370,4400280223,10000400000,107169,10000409999,102112,19219,10000409998,106691,10000409997,107169,10000409996,102119,18625,10000409995,106691,10000409994,107169,10000409993,107010,10000409992,107010,447102,307102,4400280223,10000409991,107008,0,0,40020182104,70020272105,40020322048,19875834099
+0,100,21,40950292133,10000409990,107007,10000409989,107169,10000409988,107098,10000409987,107169,10000409986,107098,10000409985,107169,10000409984,102147,17977,10000409983,106691,10000409982,107169,10000409981,102154,17945,10000409980,107011,10000409979,107169,10000409978,102161,17966,10000409977,107009,10000409976,107169,10000409975,102168,17976,10000409974,107169,10000409973,102173,17833,10000409972,107009,10000409971,107169,10000409970,102180,17569,10000409969,106690,10000409968,107009,10000409967,107169,10000409966,102189,16689,10000409965,102192,17688,10000409964,106690,10000409963,107169,10000409962,102199,17678,10000409961,107009,10000409960,107169,10000409959,102206,17667,10000409958,107009,10000409957,107169,10000409956,102213,17656,10000409955,107009,10000409954,107169,10000409953,102220,17535,10000409952,107009,10000409951,107169,10000409950,102227,17534,0,0,10938039240
+0,100,22,40950292228,10000409949,107169,10000409948,102232,17523,10000409947,107169,440223,5400300223,107169,407006,442281,302244,107169,127006,407006,137010,1111312247,362249,1332249,302282,466688,107169,406692,442277,302257,107169,126692,406692,137008,1111312260,362262,1332262,302278,106692,4400281603,10000400000,427006,10000109456,4400281603,10000409999,427006,10000109413,441603,200301603,426692,10000247977,226688,406688,300400,106688,427006,10000409327,300400,102283,10207,446448,306448,102287,12295,4400286448,10000400000,102291,10201,446448,100306448,309999,300400,107169,407006,449999,302303,107169,127006,407006,137010,1111312306,362308,1332308,309999,107006,100422309,2202295,427006,10000109456,422313,2202295,427006,10000109413,422317,2202295,427006,10000109370,422321,2202295,0,0,13313332092
+0,100,23,40920292323,427006,10000109273,422325,2202295,427006,10000109327,422329,2202295,427006,10000109327,10000239273,422334,2202295,300400,9430000,302295,309999,6447012340,406443,300400,302359,6600400,4100500,30033001400,6600000,10000002344,6600400,4100500,32414000000,4900200,30400330014,6600000,10000002349,64602011,6600000,10000002356,302366,300400,106447,100422362,2202360,9430000,302360,302376,300400,106447,100422369,2202367,106444,100422372,2202367,9430000,302367,302400,300400,107169,406442,442397,302385,107169,126442,406442,136443,1111312388,362390,1332390,302398,106442,146445,1406441,426441,10000106446,422395,2202377,300400,9430000,302377,106444,362412,1332412,102404,12367,4400286448,10000400000,102408,12349,446448,100306448,309999,102413,12360,4400286448,0,0,40022942339,40022982336,70023072337,15036291450
+0,100,24,40920292415,10000400000,102417,12344,446448,100306448,102421,12377,4400286448,10000400000,102425,12356,446448,100306448,422340,10000300000,106446,410402394,302343,106440,4400282340,10000400000,102437,19456,10000409999,107169,10000409998,106439,10000409997,107010,442340,400302340,106438,4400282340,10000400000,102450,19413,10000409999,107169,10000409998,106439,10000409997,107010,442340,400302340,106437,4400282340,10000400000,102463,19370,10000409999,107169,10000409998,106439,10000409997,107010,442340,400302340,106436,4400282340,10000400000,102476,19327,10000409999,107169,10000409998,106439,10000409997,107010,442340,400302340,106435,4400282340,10000400000,102489,19273,10000409999,107169,10000409998,106439,10000409997,107007,127010,442340,400302340,107169,407006,449999,302506,107169,127006,407006,137008,0,0,40023392433,23422430,40024112420,10005391261
+0,100,25,40940292507,1111312509,362511,1332511,302529,106434,4400282340,10000400000,107006,146691,1490010,122518,18625,10000409999,107169,10000409998,107006,10000409997,107007,127010,442340,400302340,300400,107169,407006,442561,302536,107169,127006,407006,406781,107169,127008,136781,1111312542,362544,332544,302562,106433,4400282340,10000400000,107006,146691,1490010,122551,17977,10000409999,107169,10000409998,107006,10000409997,107007,127010,442340,400302340,300400,106432,4400282340,10000400000,102566,17988,10000409999,107169,10000409998,106439,10000409997,107010,442340,400302340,106431,4400282340,10000400000,102579,17977,10000409999,107169,10000409998,106439,10000409997,107007,442340,400302340,106430,4400282340,10000400000,102592,17976,10000409999,107169,10000409998,106439,10000409997,107169,442340,400302340,0,0,40025012528,17197710751
+0,100,26,40950292601,107169,407006,442632,302608,107169,127006,407006,406781,107169,127007,136781,1111312614,362616,332616,302633,106429,4400282340,10000400000,107006,147009,1490010,122623,17833,10000409999,107169,10000409998,107006,10000409997,107007,442340,400302340,300400,107169,407006,442664,302640,107169,127006,407006,406781,107169,127007,136781,1111312646,362648,332648,302665,106428,4400282340,10000400000,107006,147009,1490010,122655,17701,10000409999,107169,10000409998,107006,10000409997,107007,442340,400302340,300400,106427,4400282340,10000400000,102669,17667,10000409999,107169,10000409998,106439,10000409997,107008,442340,400302340,107169,407006,449999,302685,107169,127006,407006,137008,1111312688,362690,1332690,309999,106426,4400282340,10000400000,107006,147009,1490010,0,0,13101329691
+0,100,27,40800292696,122697,17535,10000409999,107169,10000409998,107006,10000409997,107007,442340,400302340,300400,106425,4400282340,10000400000,102711,17534,10000409999,107169,10000409998,106439,10000409997,107169,127008,442340,400302340,106424,4400282340,10000400000,102725,17700,10000409999,107169,10000409998,106439,10000409997,107169,127008,442340,400302340,106423,4400282340,10000400000,102739,17689,10000409999,107169,10000409998,106439,10000409997,107008,442340,400302340,106422,4400282340,10000400000,102752,17678,10000409999,107169,10000409998,106439,10000409997,107008,442340,400302340,106421,4400282340,10000400000,102765,17523,10000409999,107169,10000409998,106439,10000409997,107008,442340,400302340,9669009669,1000600000,40010296439,0,40010297169,1,40010297098,2,40010297011,43,40010297009,11,40010296691,54,40010296690,12,0,40026802706,70026892707,15942143600
+0,100,28,40010297078,3,40010297030,4,40010297026,5,40010297023,6,40010297020,7,40010297016,8,40010296440,6700000000,40010296438,6800000000,40010296437,6600000000,40010296436,4342650000,40010296435,4265000000,40010296434,6900000000,40010296433,5659634865,40010296432,4445650000,40010296431,4356460000,40010296430,6263440000,40010296429,4365000000,40010296428,6543650000,40010296427,4557000000,40010296426,4100000000,40010296425,4746000000,40010296424,5800000000,40010296423,5882000000,40010296422,4500000000,40010296421,4555460000,40010297162,5110000000,40010297070,5120000000,40010297031,5130000000,40010297029,5160000000,40010297027,5140000000,40010297025,5210000000,40010297024,5150000000,40010297022,5215000000,40010297021,5220000000,40010297019,5221000000,40010297018,5235000000,40010297017,5170000000,40010297015,5228000000,40010297014,5270000000,40010297013,5180000000,40010297012,5256000000,40130297102,6450000,2200367106,480001,1207103,1480008,10000107112,1490008,227115,427102,10000300000,58,59,60,0,0,17161130419
+0,100,29,40010297115,5800000000,40930296448,100010000,410406484,426452,10296684,300290101,426448,412406533,10000419999,9437557,2200376461,420100,10000440000,12201370001,400132,412406515,410130,376482,100134,460133,5246376644,5267376620,5249376558,5262376671,5241376473,306659,416491,1270129,446616,306607,100129,366498,2299376512,1490010,306474,426449,316375,109999,401266484,336500,416491,1336516,2214366484,446616,9900306607,2299376484,1490010,306489,100129,190125,190125,100130,3300366482,3300366502,136685,400130,210400131,1480002,310400129,7242366495,7266366536,7257366544,7263366546,7243366535,300366484,100132,400134,9336495,309999,426484,6600366532,1490003,300376526,136685,3300366528,16301279999,10000419999,411406484,306484,13310409999,306520,10000109999,1480003,16610409999,306484,100132,9339999,306523,1008610124,1480003,3111406538,2408446408,101306408,426542,0,0,16532022418
+0,100,30,40950296541,10296684,240290101,306498,1008610124,306540,300366551,10096550,1126528,306546,21602020202,100125,366498,126621,1480004,3211406556,990090101,306540,426568,366617,1100366618,400134,3450080,2400128,460126,410400126,1400127,100134,2480010,1430023,120129,130128,1336659,190125,5000190125,100134,416612,446616,1336606,1270128,326592,410127,376498,416569,446616,306606,100127,136574,426504,460129,3260129,306561,1270126,410126,376600,410133,376602,1270133,416562,306606,416529,306606,100134,416621,1490001,400134,1490018,1480008,1420125,10000490008,9400280125,24216616,430020,10000120125,10010400125,2260125,309999,9216562,490051,1216560,2457557,1480008,410186686,1400134,1346634,410406632,449276632,426632,100130,1480004,4211406633,106632,2459999,206563,437557,136686,0,0,19797172308
+0,100,31,40520296636,210400133,211180130,356641,106686,306625,106618,1110400134,306625,304270129,326648,306658,106687,366647,2457557,2210406573,1480008,1400134,2480010,120130,176618,310180129,1346667,4260129,100129,190125,190125,2270125,416674,446616,306606,306498,416573,106604,420131,1206563,2457557,1480008,1400134,430014,136686,2457557,1336682,210180130,346659,126604,306669,10400133,306668,20000000000,10000000,50,5000000000,40420296867,70128010000,410406957,410406958,401266958,446964,306957,426995,10000460000,467003,446351,117306351,467005,502267005,426995,9999206885,6400287003,100101,9999206979,9400287005,10000100101,427005,10000490000,502267005,417003,376905,160216876,4400287003,2213366920,480008,10000490000,197002,4102277003,326885,107002,446964,306957,5212277003,306885,162216876,1108366936,2203366932,2220366930,0,0,10363766641
+0,100,32,40950296909,2234366930,2223366925,2213366987,2214366918,426999,9999206885,446964,306943,306885,9416267005,306913,467003,107002,446964,9992206957,306885,1267001,446964,306943,1266998,306885,1266997,306885,416991,2211406996,1267000,306885,490001,417002,1490001,1407002,2201276996,1266999,306885,416998,376970,426997,117002,490008,9999206950,430000,1137004,1210277004,326957,430000,306957,427001,1216965,440090,300091,9336967,412406958,426975,466996,70296996,300097,407004,306961,426867,466995,10000300000,107002,427000,9999206975,126996,226996,426997,9999206955,1430000,306955,810186992,1356885,410102,11186993,1356885,426995,10001260000,306967,426999,9999206903,502277005,306915,5800000000,28562455563,24955455300,5110000000,0,0,0,0,0,0,0,0,0,0,0,11138225727
+0,100,33,40020297004,0,0,40540296354,446387,306383,25945626453,26300566463,20056460059,24155474500,24955000000,446387,306383,25945626453,26300645544,24546495545,24400465659,20000000000,446387,306383,25945626453,26300495353,22044454649,25545440046,25659000000,466396,446387,306385,0,20041594963,24854456349,24300566545,25946535666,1406396,3450000,412406390,426407,50290033,1106446408,37306408,300036,0,0,0,0,0,0,0,0,0,0,0,5000000000,0,0,5110000000,0,6391,40370297116,4450000,427116,10000360000,1337150,810407152,2310407153,106402,147153,137154,2310407153,3110187153,357130,1337130,2201267153,107155,247152,227156,247152,227157,406403,107152,256403,226403,247158,406403,107152,256403,226403,127153,357148,247159,10000300000,247158,10000300000,417160,306361,5110000000,0,0,11765949944
+0,100,34,40080297153,0,2550000000,14916450338,5041117101,5062697923,5050000000,5015811388,26258596300,40750296792,2450000,416854,411406849,1210406792,10186856,346847,1490002,211406800,2450000,426800,146857,9949206806,10001490001,1426804,1490008,2211406853,2251266853,1490012,2450000,10206813,10001490001,1490010,406404,146404,406406,146858,126859,146406,126860,146406,126861,146404,406404,406403,106862,146406,126863,146406,126864,146406,126865,196403,136404,1480003,156403,1126853,1210276792,426792,326842,10000300000,406404,106866,9999416844,256404,10000300000,426792,1336851,416855,306354,1450000,10000300000,0,6855,24567570000,5311282665,4342944819,10000017159,10004893282,10169203872,10995711477,417304,35418755,529087016,864864000,5099999999,40100296694,6450000,1336755,366755,1480002,4210406762,1490004,186708,1346738,186727,346738,0,0,16297629882
+0,100,35,40770296704,1480001,126763,406406,136764,1014156406,406406,146406,406403,146765,126766,146403,126767,146403,126768,146403,126769,146403,126770,146403,126771,146406,126772,2200366729,9858480001,1206726,10810406758,106762,236773,1346734,226405,246774,10000226758,426694,10000300000,1101366741,1480001,136775,226776,366753,406406,2239266406,106406,246777,226778,246406,226779,246406,246406,226406,406761,3206730,416780,426694,306361,4900000000,5000000000,5100000000,0,5200000000,316227766,632455532,410597044,57228327,250341093,282433571,400193033,666661710,2000000037,1151292547,5251000000,5123025851,2000000000,1000000000,15025000000,5033333333,15050000000,25356470000,40170297032,70003010000,4400287032,316375,1406403,406406,427032,367061,106405,10000370000,406404,106402,146403,406403,377049,106404,246406,406404,0,0,11019665958
+0,100,36,40210297049,416403,377055,106406,246406,406406,307042,317065,1210377058,10000300000,106405,256404,10000300000,1186378,10000340000,417069,306361,1450000,11210370000,417069,306354,24653466700,40560296295,6450000,416341,411406339,466406,246344,1490002,211406343,426343,9949206309,7216338,10001490018,406406,106308,1490050,1490018,406404,226404,10186405,1346317,430000,236345,1490000,406404,246404,406403,246346,226347,246403,226348,246403,226349,246403,226350,246404,226404,406404,106402,146406,106404,426295,10000370000,116404,10000300000,426295,416342,306368,6342,26249550000,0,5031830989,5120000000,4715148419,14846737656,4979689679,15064596371,5057079632,40100296782,6450000,416782,411406295,416789,226791,226791,306297,6790,24356620000,5078539816,40030296351,10000,1000600117,306878,40010296408,10000,0,0,18278419574
+0,100,37,40120296409,426408,10000109999,480006,410406418,10000109998,4210406418,480008,136420,196418,2000610000,10000300000,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,80000006421,16742924967
+0,100,9999999999,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,19999999999
+6790*0,100
+0,1,1
+1,100,0,1390000,310004,5103260022,1018500000,400012,2400013,1420008,12739,1400560000,1308520100,300100,0,0,420000,412400024,1004500000,1100580000,420013,390000,250020,100012,310023,5112400022,300024,420027,10290012,290199,2400012,411180012,1350027,1100520100,410069,1400048,1420035,1450100,10000120200,10000120201,10000120202,10000120203,10000120204,5200036,310043,360048,40090092,9669009669,1101580000,300031,100114,420048,4330060,460071,299260071,401280071,10000410100,1280370072,370031,16400280100,10411400000,300053,6610400064,9999210000,412400064,10000429999,120290102,1480007,120070,190048,300048,100101,1,98,6711180091,1350053,300200,1111,420074,10000100000,170075,490004,10400091,401260074,4450000,41000500091,1100520100,100100,10180091,350032,30090096,9669009669,300083,80000000000,21602020202,24348454352,20062645400,24559595659,21662454754,24555630045,25959565902
+1,100,12377,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,20000000000,9999999998,0,9999999999,0,6600000,20000000000,90000000001,0,90000000001,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,80000006421,16742924967
+1,100,300222,4203000,4900300,26701003,46701005,6600000,10000000201,4204000,36714000000,4200900,36814000000,4200900,36614000000,4200800,34265140000,4200700,34342651400,4200700,34445651400,6600300,6600000,10000000207,301602,7523012237,407469,301519,107512,127515,407171,107513,127515,407170,107513,137169,407168,107169,127515,407167,107169,127513,407166,467165,107511,407164,107169,127512,407163,107515,137513,1111310251,360252,300255,107162,407161,300262,107515,137513,447102,307102,447116,307116,407161,107169,407101,407100,407099,107512,360269,107169,360274,107098,407097,407096,300277,107169,407097,407096,1427510,10000300281,300367,300281,107169,407095,440314,300288,107169,127095,407095,137515,1111310291,360293,1330293,300315,107098,147505,1490010,127095,147504,1407094,107095
+1,100,127517,147516,1407093,427093,10000108625,427094,10000407977,107095,127505,147504,1407094,107162,427094,10000407977,300400,107098,407092,440365,300322,107169,127092,407092,137168,1111310325,360327,1330327,300366,107169,407095,440364,300334,107169,127095,407095,137515,1111310337,360339,1330339,300365,107169,127092,147505,1490010,127095,147504,1407094,107092,147505,1490010,127095,147504,1407093,107098,147505,1490010,127095,147504,1407091,427093,10000107977,427091,10000247977,427094,10000407977,300400,300400,300409,107169,407092,440408,300374,107169,127092,407092,137513,1111310377,360379,1330379,300409,107169,407095,440407,300386,107169,127095,407095,137515,1111310389,360391,1330391,300408,107092,147505,1490010,127095,147504,1407094,107092,147517,1490010
+6828*1,100
+1,1,1
diff --git a/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHLET-B5500-OUTPUT.lst b/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHLET-B5500-OUTPUT.lst
new file mode 100644
index 0000000..3cb4b76
--- /dev/null
+++ b/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHLET-B5500-OUTPUT.lst
@@ -0,0 +1,1130 @@
+________________________________________________________________________________________________________________________
+ LABEL  0XALGOL 0COMPILE00184320?COMPILE DIRCHLT/B5500 XALGOL GO                                         XALGOL /DIRCHLT
+________________________________________________________________________________________________________________________ 
+
+                      BURROUGHS B-5700 XALGOL COMPILER MARK XIII.0   THURSDAY, 11/15/84,  12:38 PM.
+ 
+ 
+ 
+ 
+ 
+                % DIRICHLET PROBLEM FOR A BEAN-SHAPED REGION.  FROM P J DAVIS,                  00100100    0000
+                % "ORTHONORMALIZING CODES IN NUMERICAL ANALYSIS" IN J TODD, --SURVEY OF         00100200    0000
+                % NUMERICAL ANLAYSIS--, MCGRAW-HILL, 1962,  P.347. P H KIMPEL 8/15/70           00100300    0000
+                % MODIFICATION LOG:                                                             00100320    0000
+                % 92/03/17  P.KIMPEL, PARADIGM CORP, SAN DIEGO, CA  92117.                      00100321    0000
+                %   CONVERT FOR UNISYS A-SERIES MCP 3.8.4.                                      00100322    0000
+                % 2014-11-15  P.KIMPEL                                                          00100330    0000
+                %   RETRO-CONVERT FROM UNISYS MCP ALGOL TO BURROUGHS B5500 XALGOL.              00100331    0000
+                                                                                                00100398    0000
+                BEGIN                                                                           00100400    0000
+                                                                                        START OF SEGMENT **********    2
+                FILE IN CDS (1,10);                                                             00100500    0000
+                FILE OUT PR 18 (2,17);                                                          00100600    0003
+                FORMAT F1 (X30,I3,2F10.3,4F10.5),                                               00100700    0007
+                                                                                        START OF SEGMENT **********    3
+                       F2 (X40,"X",X9,"Y",X9,"W",X8,"BV",X7,"CBV,",X7,"DEV"),                   00100800    0007
+                       FT (///X40,"PROCESSOR TIME: ", F6.2," SEC");                             00100900    0007
+                                                                                           3 IS   34 LONG, NEXT SEG    2
+                DEFINE N = 43#,  M = 11#,  P = 11#,  N1 = 42#,  M1 = 10#,  P1 = 10#;            00101000    0007
+                LABEL QUIT;                                                                     00101100    0007
+                INTEGER I, J;                                                                   00101200    0007
+                INTEGER STARTT;                                                                 00101210    0007
+                REAL SUM, GMDT;                                                                 00101300    0007
+                ARRAY                                                                           00101400    0007
+                  X,                      % ABSCISSA VALUES.                                    00101500    0007
+                  Y,                      % ORDINATE VALUES.                                    00101600    0007
+                  W,                      % WEIGHTS.                                            00101700    0007
+                  CBV[0:N1],              % BOUNDARY VALUES CALCULATED FROM ORTHO COEFS.        00101800    0008
+                  BV[0:0, 0:N1+P],        % GIVEN BOUNDARY VALUES.                              00101900    0009
+                  Z[0:M1, 0:N1+P],        % APPROXIMATING VECTORS.                              00102000    0013
+                  ORTHV[0:M, 0:N1+P],     % ORTHONORMAL VECTORS RETURNED BY "ORTHO"             00102100    0016
+                  DEV[0:0, 0:N1],         % DEVIATIONS.                                         00102200    0020
+                  COF[0:0, 0:P1],         % COEFFICIENTS.                                       00102300    0022
+                  STD[0:0],               % STANDARD DEVIATION.                                 00102400    0024
+                  CV[0:P, 0:P1],          % COVARIANCE MATRIX.                                  00102500    0026
+                  VCV[0:0, 0:P, 0:P1],    % VARIANCE/COVARIANCE MATRIX.                         00102600    0028
+                  Q[0:0, 0:M],            % FOURIER COEFFICIENTS.                               00102700    0030
+                  Q2,                     % SQUARED FOURIER COEFFICIENTS.                       00102800    0032
+                  E,                      % SUM OF SQUARED RESIDUALS.                           00102900    0032
+                  EP[0:0, 0:M1],          % RESIDUALS.                                          00103000    0032
+                  A[0:M1, 0:P1],          % LOWER TRIANGULAR MATRIX USED TO CALC CV.            00103100    0034
+                  GF[0:M],                % GRAM FACTORS.                                       00103200    0036
+                  ENF[0:M1];              % NORMS OF THE APPROXIMATING VECTORS.                 00103300    0038
+                %***********************************************************************        00103400    0040
+                PROCEDURE ORTHO (W, Y, Z, N, FN, M, P, R, AI, AUI, MUI, ZEI, X, DEV,            00103500    0040
+                                 COF, STD, CV, VCV, GMDT, Q, Q2, E, EP, A, GF, ENF);            00103600    0040
+                VALUE  N, M, P, R, AI, AUI, MUI, ZEI;                                           00103700    0040
+                REAL  FN, GMDT;                                                                 00103800    0040
+                REAL ARRAY STD, GF,  W, ENF [1];                                                00103900    0040
+                REAL ARRAY     Y, Z, X, DEV, COF, CV, Q, Q2, E, EP, A [1, 1];                   00104000    0040
+                REAL ARRAY VCV [1, 1, 1];                                                       00104100    0040
+                INTEGER  N, M, P, R, AI, AUI, ZEI, MUI;                                         00104200    0040
+                COMMENT                                                                         00104300    0040
+                          ORTHO    IS TAKEN FROM ACM ALGORITHM 127 [COMM. ACM, VOL.5,           00104400    0040
+                                 OCTOBER 1962, P. 511, AUTHOR: PHILIP J. WALSH];                00104500    0040
+                BEGIN                                                                           00104600    0040
+                INTEGER  NPP, NPM, M1, N2, M2, R1, RBAR, P2, BEI, RHI, I18, GAI, SII, I,        00104700    0040
+                                                                                        START OF SEGMENT **********    4
+                                 J, DEI, NUI, E1Z2, E1Z1, K, THI, ALI, OMI, NII;                00104800    0000
+                REAL ARRAY  PK, XP [1:N+P], QK[1:M+1];                                          00104900    0000
+                REAL DENOM, SUM, DK2, DK, FI, SS, SSQ;                                          00105000    0008
+                LABEL   BOX1, AT1, AT2, BOX2, AU1, AU2, BOX3, BOX4, BOX5, BOX6, MU1,            00105100    0008
+                      MU2, BOX7, OM1, OM2, BOX8, DE1, BOX8A, BOX8B, DE2, BOX8C, BOX8D,          00105200    0008
+                      BOX9, TH1, TH2, TH3, BOX10, AL1, AL2, BOX11, NU1, NU2, BOX12,             00105300    0008
+                      BE1, BE2, BOX13, GA1, GA2, BOX14, RH1, ZE1, ZE2, RH2, SI1, SI2,           00105400    0008
+                      FINAL;                                                                    00105500    0008
+                SWITCH AT := AT1, AT2;    SWITCH ZE := ZE1, ZE2;                                00105600    0008
+                SWITCH AU := AU1, AU2;    SWITCH MU := MU1, MU2;                                00105700    0018
+                SWITCH  BE := BE1, BE2;  SWITCH  RH := RH1, RH2;  SWITCH GA := GA1, GA2;        00105800    0028
+                SWITCH  SI := SI1, SI2;  SWITCH  DE := DE1, DE2;  SWITCH  NU := NU1, NU2        00105900    0041
+                ;                                                                               00106000    0056
+                SWITCH  TH := TH1, TH2, TH3;  SWITCH AL := AL1, AL2;                            00106100    0058
+                SWITCH  OM := OM1, OM2;                                                         00106200    0068
+                      NPP := N+P; NPM := N+M; M1 := M-1; N2 := N+1; M2 := M+1;                  00106300    0073
+                          R1 := 0; RBAR := R; P2 := P+1; DENOM := IF N=M THEN 1.0               00106400    0080
+                                 ELSE SQRT(N-M);  BEI := RHI := I18 := 1;                       00106500    0083
+                      IF (P NEQ 0) THEN GAI := SII := 2  ELSE  GAI := SII := 1;                 00106600    0088
+                BOX1:            GO TO AT[AI];                                                  00106700    0094
+                      AT1:       FOR J := 1 STEP 1 UNTIL N DO BEGIN                             00106800    0097
+                                 X[2,J] := Z[1,J];  X[1,J] := 1.0 END;                          00106900    0098
+                                 FOR I := 2 STEP 1 UNTIL M1 DO BEGIN                            00107000    0108
+                                 FOR J := 1 STEP 1 UNTIL N DO                                   00107100    0110
+                                 X[I+1,J] := X[I,J] × X[2,J]  END;   GO TO BOX2;                00107200    0111
+                      AT2:       FOR I := 1 STEP 1 UNTIL M DO BEGIN                             00107300    0124
+                                 FOR J := 1 STEP 1 UNTIL N DO                                   00107400    0125
+                                 X[I,J] := Z[I,J]  END;                                         00107500    0126
+                BOX2:            IF P = 0 THEN GO TO BOX3  ELSE  GO TO AU[AUI];                 00107600    0135
+                      AU1:       FOR I := 1 STEP 1 UNTIL M DO BEGIN                             00107700    0139
+                                 FOR J := N2 STEP 1 UNTIL NPP DO                                00107800    0141
+                                 X[I,J] := 0.0;  X[I,N+I] := 1.0  END;  GO TO BOX3;             00107900    0142
+                      AU2:       FOR I := 1 STEP 1 UNTIL M DO BEGIN                             00108000    0155
+                                 FOR J := N2 STEP 1 UNTIL NPP DO                                00108100    0156
+                                 X[I,J] := Z[I,J]  END;                                         00108200    0157
+                BOX3:            DEI := NUI := E1Z1 := E1Z2 := K := 1;                          00108300    0166
+                BOX4:            THI := 1;                                                      00108400    0169
+                BOX5:            ALI := OMI := 1;  IF P = 0 THEN GO TO BOX6  ELSE               00108500    0170
+                                 FOR J := 1 STEP 1 UNTIL P DO PK[N+J] := 0.0;                   00108600    0173
+                BOX6:            GO TO MU[MUI];                                                 00108700    0179
+                      MU1:       FOR I := 1 STEP 1 UNTIL N DO PK[I] := X[K,I];                  00108800    0182
+                                 GO TO BOX7;                                                    00108900    0189
+                      MU2:       FOR I := 1 STEP 1 UNTIL N DO                                   00109000    0189
+                                 PK[I] := X[K,I] × W[I];   GO TO BOX7;                          00109100    0191
+                BOX7:            GO TO OM[OMI];                                                 00109200    0198
+                      OM1:       FOR I := 1 STEP 1 UNTIL K DO BEGIN SUM := 0.0;                 00109300    0201
+                                 FOR J := 1 STEP 1 UNTIL NPP DO                                 00109400    0202
+                                 SUM := SUM + PK[J] × X[I,J];  QK[I] := SUM END;                00109500    0204
+                                 GO TO BOX8;                                                    00109600    0214
+                      OM2:       DK2 := 0.0;  FOR I := 1 STEP 1 UNTIL NPP DO                    00109700    0215
+                                 DK2 := DK2 + PK[I] × X[K,I];                                   00109800    0218
+                                 DK := SQRT(DK2);                                               00109900    0224
+                                 GF[I18] := DK;   I18 := I18 + 1;                               00110000    0226
+                                 FOR I := 1 STEP 1 UNTIL NPP DO                                 00110100    0229
+                                 X[K,I] := X[K,I]/DK;;                                          00110200    0230
+                                 OMI := 1;    GO TO BOX6;                                       00110300    0237
+                BOX8:            GO TO DE[DEI];                                                 00110400    0239
+                      DE1:       E1Z1 := -E1Z1;   IF E1Z1 < 0 THEN GO TO BOX8B   ELSE           00110500    0241
+                                 GO TO BOX8A;                                                   00110600    0242
+                BOX8A:           FOR I := 1 STEP 1 UNTIL K-1 DO                                 00110700    0243
+                                 QK[I] := -QK[I];   QK[K] := 1.0;                               00110800    0248
+                                 FOR I := 1 STEP 1 UNTIL NPP DO BEGIN                           00110900    0253
+                                 SUM := 0.0;  FOR J := 1 STEP 1 UNTIL K DO                      00111000    0255
+                                 SUM := SUM + X[J,I] × QK[J];                                   00111100    0257
+                                 XP[I] := SUM END;  GO TO BOX9;                                 00111200    0263
+                BOX8B:           ENF[I18] := SQRT(QK[K]);   GO TO BOX8A;                        00111300    0268
+                      DE2:       E1Z2 := -E1Z2;  IF E1Z2 < 0 THEN GO TO BOX8C  ELSE             00111400    0272
+                                 GO TO BOX8A;                                                   00111500    0274
+                BOX8C:           FOR I := 1 STEP 1 UNTIL M DO BEGIN                             00111600    0275
+                                 Q[R1,I] := QK[I];  Q2[R1,I] := QK[I] × QK[I]  END;             00111700    0277
+                                 Q[R1,M2] := QK[M2];  E[R1,1] := Q[R1,M2] - Q2[R1,1];           00111800    0288
+                                 FOR J := 2 STEP 1 UNTIL M DO                                   00111900    0299
+                                 E[R1,J] := E[R1,J-1] - Q2[R1,J];                               00112000    0300
+                                 FI := 1.0;                                                     00112100    0310
+                                 FOR I := 1 STEP 1 UNTIL M DO BEGIN                             00112200    0311
+                                 IF (FN - FI) > 0.0 THEN BEGIN IF E[R1,I] < 0.0 THEN            00112300    0313
+                                 BEGIN EP[R1,I] := -SQRT(ABS(E[R1,I])/(FN - FI));               00112400    0317
+                                 GO TO BOX8D;    END                                            00112500    0325
+                                 ELSE  EP[R1,I] := SQRT(E[R1,I]/(FN - FI));                     00112600    0325
+                                 GO TO BOX8D;  END  ELSE  E[R1,I] := -1.0;                      00112700    0332
+                BOX8D:           FI := FI + 1.0;   END;   GO TO BOX8A;                          00112800    0336
+                BOX9:            GO TO TH[THI];                                                 00112900    0342
+                      TH1:       FOR I := 1 STEP 1 UNTIL NPP DO                                 00113000    0344
+                                 X[K,I] := XP[I];  GO TO BOX10;                                 00113100    0345
+                      TH2:       FOR I := 1 STEP 1 UNTIL N DO                                   00113200    0351
+                                 DEV[R1,I] := XP[I];                                            00113300    0353
+                                 FOR I := 1 STEP 1 UNTIL P DO                                   00113400    0359
+                                 COF[R1,I] := -XP[N+I];  THI := 3;  GO TO TH1;                  00113500    0360
+                      TH3:       GO TO BOX11;                                                   00113600    0368
+                BOX10:           GO TO AL[ALI];                                                 00113700    0368
+                      AL1:       OMI := ALI := 2;  GO TO BOX6;                                  00113800    0371
+                      AL2:       IF K < M THEN BEGIN K := K + 1;  GO TO BOX4;  END              00113900    0372
+                                 ELSE  GO TO BOX12;                                             00114000    0376
+                BOX11:           GO TO NU[NUI];                                                 00114100    0376
+                      NU1:       NUI := 2;  GO TO BOX14;                                        00114200    0378
+                      NU2:       SS := DK/DENOM;  SSQ := SS × SS;                               00114300    0379
+                                 STD[R1] := SS;  GO TO BOX14;                                   00114400    0382
+                BOX12:           GO TO BE[BEI];                                                 00114500    0384
+                      BE1:       FOR I := 1 STEP 1 UNTIL M DO BEGIN                             00114600    0387
+                                 FOR J := 1 STEP 1 UNTIL P DO                                   00114700    0388
+                                 A[I,J] := X[I,N+J]  END;                                       00114800    0389
+                                 GMDT := 1.0;  FOR I := 1 STEP 1 UNTIL M DO                     00114900    0399
+                                 GMDT := GMDT × (GF[I]/ENF[I]);                                 00115000    0402
+                                 GMDT := GMDT × GMDT;  DEI := BEI := THI := 2;                  00115100    0407
+                                 K := K + 1;       GO TO BOX13;                                 00115200    0411
+                      BE2:       GO TO BOX11;                                                   00115300    0412
+                BOX13:           GO TO GA[GAI];                                                 00115400    0413
+                      GA1:       GO TO BOX11;                                                   00115500    0416
+                      GA2:       FOR I := 1 STEP 1 UNTIL P DO BEGIN                             00115600    0416
+                                 FOR J := I STEP 1 UNTIL P DO BEGIN                             00115700    0418
+                                 SUM := 0.0;                                                    00115800    0419
+                                 FOR NII := 1 STEP 1 UNTIL M DO                                 00115900    0419
+                                 SUM := SUM + A[NII,I] × A[NII,J];                              00116000    0421
+                                 CV[I,J] := SUM  END  END;                                      00116100    0429
+                                 FOR I := 1 STEP 1 UNTIL P DO                                   00116200    0436
+                                 CV[P2,I] := SQRT(CV[I,I]);  GAI := 1;  GO TO BOX11;            00116300    0438
+                BOX14:           GO TO RH[RHI];                                                 00116400    0447
+                      RH1:       IF RBAR = 0 THEN GO TO FINAL  ELSE  RBAR := RBAR - 1;          00116500    0449
+                                 R1 := R1 + 1;  THI := RHI := 2;  GO TO ZE[ZEI];                00116600    0451
+                      ZE1:       FOR I := 1 STEP 1 UNTIL N DO                                   00116700    0456
+                                 X[M2,I] := Y[R1,I];                                            00116800    0457
+                                 FOR I := 1 STEP 1 UNTIL P DO                                   00116900    0464
+                                 X[M2,N+I] := 0.0;  GO TO BOX5;                                 00117000    0465
+                      ZE2:       FOR I := 1 STEP 1 UNTIL NPP DO                                 00117100    0471
+                                 X[M2,I] := Y[R1,I];   GO TO BOX5;                              00117200    0473
+                      RH2:       GO TO SI[SII];                                                 00117300    0480
+                      SI1:       GO TO RH1;                                                     00117400    0483
+                      SI2:       FOR I := 1 STEP 1 UNTIL P DO BEGIN                             00117500    0483
+                                 FOR J := I STEP 1 UNTIL P DO                                   00117600    0485
+                                 VCV[R1,I,J] := SSQ × CV[I,J]  END;                             00117700    0486
+                                 FOR I := 1 STEP 1 UNTIL P DO                                   00117800    0497
+                                 VCV[R1, P2, I] := SS × CV[P2,I];  GO TO RH1;                   00117900    0498
+                FINAL:  END  ORTHO ;                                                            00118000    0507
+                                                                                           4 IS  520 LONG, NEXT SEG    2
+                %***********************************************************************        00118100    0040
+                REAL PROCEDURE G (I, X, Y);                                                     00118200    0040
+                  VALUE I, X, Y;   REAL X, Y;   INTEGER I;                                      00118300    0040
+                  CASE (I - 1) OF                                                               00118400    0040
+                    BEGIN                                                                       00118500    0041
+                      G := 1;                                                        % 1        00118600    0042
+                      G := X;                                                        % 2        00118700    0043
+                      G := Y;                                                        % 3        00118800    0044
+                      G := X*2 - Y*2;                                                % 4        00118900    0046
+                      G := 2.0 × X × Y;                                              % 5        00119000    0048
+                      G := X*3 - 3.0 × X × Y*2;                                      % 6        00119100    0051
+                      G := 3.0 × X*2 × Y - Y*3;                                      % 7        00119200    0055
+                      G := X*4 + Y*4 - 6.0 × X*2 × Y*2;                              % 8        00119300    0059
+                      G := 4.0 × X*3 × Y - 4.0 × X × Y*3;                            % 9        00119400    0065
+                      G := X*5 - 10.0 × X*3 × Y*2 + 5.0 × X × Y*4;                   %10        00119500    0071
+                      G := Y*5 - 10.0 × Y*3 × X*2 + 5.0 × Y × X*4;                   %11        00119600    0079
+                      G := X*6 - 15.0 × X*4 × Y*2 + 15.0 × X*2 × Y*4 - Y*6;          %12        00119700    0088
+                      G := 6.0 × X*5 × Y + 6.0 × X × Y*5 - 20.0 × X*3 × Y*3;         %13        00119800    0098
+                      G := X*7 - 21.0 ×X*5 × Y*2 + 35.0 × X*3 × Y*4  - 7.0 × X ×     %14        00119900    0109
+                      Y*6;                                                                      00120000    0119
+                      G := 7.0 ×X*6 × Y - 35.0 × X*4 × Y*3 + 21.0 × X*2 × Y*5 -      %15        00120100    0122
+                      Y*7;                                                                      00120200    0132
+                      G := X*8 + Y*8 - 28.0 ×X*6 × Y*2 + 70.0 × X*4 × Y*4 - 28.0                00120300    0135
+                              × X*2 × Y*6;                                           %16        00120400    0146
+                      G := 8.0 × X*7 ×Y - 56.0 × X*5 × Y*3 + 56.0 × X*3 × Y*5                   00120500    0150
+                              - 8.0 ×X × Y*7;                                        %17        00120600    0174
+                  END G;                                                                        00120700    0180
+                                                                                        START OF SEGMENT **********    5
+                                                                                           5 IS   17 LONG, NEXT SEG    2
+                                                                                                00120780    0185
+                STARTT := TIME(1);                                                              00120790    0185
+                FOR I := 0 STEP 1 UNTIL N1 DO                                                   00120800    0187
+                  BEGIN                                                                         00120900    0188
+                    READ (CDS,  /, X[I], Y[I], W[I]);                                           00121000    0188
+                    BV[0,I] := EXP(X[I]) × COS(Y[I]) + LN((1 - Y[I])*2 + X[I]*2);               00121100    0199
+                    FOR J := 0 STEP 1 UNTIL M1 DO                                               00121200    0207
+                        Z[J,I] := G(J+1, X[I], Y[I]);                                           00121300    0208
+                  END;                                                                          00121400    0214
+                CLOSE (CDS);                                                                    00121500    0216
+                ORTHO (W, BV, Z, N , N , M , P,  1, 2, 1, 2, 1, ORTHV, DEV, COF, STD,           00121600    0218
+                          CV, VCV, GMDT, Q, Q2, E, EP, A, GF, ENF);                             00121700    0228
+                FOR I := 0 STEP 1 UNTIL N1 DO                                                   00121800    0237
+                  BEGIN  SUM := 0;                                                              00121900    0238
+                    FOR J:=0 STEP 1 UNTIL M1 DO  SUM := SUM + COF[0,J]×G(J+1, X[I], Y[I]        00122000    0238
+                    );                                                                          00122100    0243
+                    CBV[I] := SUM;                                                              00122200    0247
+                  END;                                                                          00122300    0248
+                WRITE (PR[DBL], F2);                                                            00122400    0250
+                WRITE (PR, F1, FOR I := 0 STEP 1 UNTIL N1 DO [I,X[I],Y[I],W[I], BV[0,I],        00122500    0253
+                                 CBV[I], (CBV[I]-BV[0,I])]);                                    00122600    0266
+                WRITE (PR, FT, TIME(2)/60);                                                     00122700    0277
+                QUIT:                                                                           00122800    0287
+                BEGIN                                                                           00122900    0288
+                    COMMENT INNER BLOCK;                                                        00123000    0288
+                %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%        00123100    0288
+                PROCEDURE DMMP (NAME, ROW, SZ);                                                 00123200    0288
+                                                                                        START OF SEGMENT **********    6
+                    VALUE NAME, SZ;                                                             00123300    0000
+                    ALPHA NAME, SZ;                                                             00123400    0000
+                    ARRAY ROW[0];                                                               00123500    0000
+                    BEGIN                                                                       00123600    0000
+                    REAL                                                                        00123700    0000
+                                                                                        START OF SEGMENT **********    7
+                    I,                                                                          00123800    0000
+                    UB;                                                                         00123900    0000
+                FORMAT                                                                          00124000    0000
+                    F (A6," = ",/*(6E20.11,/));                                                 00124100    0000
+                                                                                        START OF SEGMENT **********    8
+                                                                                           8 IS   10 LONG, NEXT SEG    7
+                    UB := SZ-1;                                                                 00124200    0000
+                    WRITE (PR[DBL]);                                                            00124300    0001
+                    WRITE (PR[DBL]);                                                            00124310    0005
+                    WRITE (PR, F, NAME, (SZ+5)DIV 6,                                            00124400    0009
+                        FOR I:=0 STEP 1 UNTIL UB DO ROW[I]);                                    00124410    0017
+                    END DMMP;                                                                   00124500    0025
+                                                                                           7 IS   28 LONG, NEXT SEG    6
+                %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%        00124600    0000
+                ARRAY NR[0:99];                                                                 00124700    0000
+                FOR I := 0 STEP 1 UNTIL 99 DO                                                   00124800    0002
+                    REPLACE POINTER(NR[I])+6 BY I FOR 2 DIGITS;                                 00124900    0004
+                                                                                                00125000    0014
+                DMMP ("X     ", X, N1+1);                                                       00125100    0014
+                DMMP ("Y     ", Y, N1+1);                                                       00125200    0016
+                DMMP ("W     ", W, N1+1);                                                       00125300    0018
+                DMMP ("CBV   ", CBV, N1+1);                                                     00125400    0020
+                DMMP ("BV    ", BV[0,*], N1+P+1);                                               00125500    0023
+                FOR I := 0 STEP 1 UNTIL M1 DO                                                   00125600    0026
+                    BEGIN                                                                       00125700    0032
+                    SUM := "Z     " & NR[I] [11:12];                                            00125800    0032
+                    DMMP (SUM, Z[I,*], N1+P+1);                                                 00125900    0034
+                    END;                                                                        00126000    0037
+                FOR I := 0 STEP 1 UNTIL M DO                                                    00126100    0039
+                    BEGIN                                                                       00126200    0041
+                    SUM := "ORTHV " & NR[I] [11:12];                                            00126300    0041
+                    DMMP (SUM, ORTHV[I,*], N1+P+1);                                             00126400    0043
+                    END;                                                                        00126500    0046
+                DMMP ("DEV   ", DEV[0,*], N1+1);                                                00126600    0048
+                DMMP ("COF   ", COF[0,*], P1+1);                                                00126700    0050
+                DMMP ("STD   ", STD, 1);                                                        00126800    0053
+                FOR I := 0 STEP 1 UNTIL P DO                                                    00126900    0055
+                    BEGIN                                                                       00127000    0060
+                    SUM := "CV    " & NR[I] [11:12];                                            00127100    0060
+                    DMMP (SUM, CV[I,*], P1+1);                                                  00127200    0062
+                    END;                                                                        00127300    0064
+                FOR I := 0 STEP 1 UNTIL P DO                                                    00127400    0066
+                    BEGIN                                                                       00127500    0069
+                    SUM := "VCV   " & NR[I] [11:12];                                            00127600    0069
+                    DMMP (SUM, VCV[0,I,*], P1+1);                                               00127700    0071
+                    END;                                                                        00127800    0074
+                DMMP ("EP    ", EP[0,*], M1+1);                                                 00127900    0076
+                FOR I := 0 STEP 1 UNTIL M1 DO                                                   00128000    0079
+                    BEGIN                                                                       00128100    0082
+                    SUM := "A     " & NR[I] [11:12];                                            00128200    0082
+                    DMMP (SUM, A[I,*], P1+1);                                                   00128300    0084
+                    END;                                                                        00128400    0086
+                DMMP ("GF    ", GF, M+1);                                                       00128500    0088
+                DMMP ("Q     ", Q[0,*], M+1);                                                   00128600    0091
+                DMMP ("Q2    ", Q2[0,*], M1+1);                                                 00128700    0093
+                DMMP ("E     ", E[0,*], M1+1);                                                  00128800    0096
+                DMMP ("ENF   ", ENF, M1+1);                                                     00128900    0098
+                END INNER BLOCK;                                                                00129000    0100
+                                                                                           6 IS  110 LONG, NEXT SEG    2
+                WRITE (PR, </,"ELAPSED=",F8.2,", PROCESSOR=",F8.2,", I/O=",F8.2," SEC">,        00129080    0289
+                        (TIME(1)-STARTT)/60, TIME(2)/60, TIME(3)/60);                           00129090    0290
+                                                                                           9 IS   13 LONG, NEXT SEG    2
+                  END.                                                                          00129100    0305
+                                                                                           2 IS  308 LONG, NEXT SEG    1
+                                                                                           1 IS    2 LONG, NEXT SEG    0
+                                                                                          21 IS   69 LONG, NEXT SEG    0
+NUMBER OF ERRORS DETECTED =   0.  COMPILATION TIME =   24 SECONDS.
+ 
+PRT SIZE =  71; TOTAL SEGMENT SIZE =  1111 WORDS; DISK SIZE =  49 SEGS; NO. PGM. SEGS =  21
+ 
+ESTIMATED CORE STORAGE REQUIRED =  6724 WORDS.
+ 
+ESTIMATED AUXILIARY MEMORY REQUIRED =     0 WORDS.
+ 
+ 
+________________________________________________________________________________________________________________________
+ LABEL  0XALGOL 0COMPILE00184320?COMPILE DIRCHLT/B5500 XALGOL GO                                         XALGOL /DIRCHLT
+________________________________________________________________________________________________________________________ 
+________________________________________________________________________________________________________________________
+ LABEL  000000000PR     00184320?COMPILE DIRCHLT/B5500 XALGOL GO                                         DIRCHLT/B5500
+________________________________________________________________________________________________________________________ 
+
+                                        X         Y         W        BV       CBV,       DEV
+ 
+                                0     0.000     0.110   0.01414   0.76089   0.76399   0.00310
+                                1    -0.050     0.108   0.01427   0.72025   0.72348   0.00323
+                                2    -0.100     0.115   0.01963   0.66721   0.67049   0.00327
+                                3    -0.160     0.150   0.02300   0.55236   0.55576   0.00340
+                                4    -0.220     0.205   0.03897   0.40068   0.40386   0.00319
+                                5    -0.320     0.300   0.02792   0.17014   0.17015   0.00001
+                                6    -0.400     0.358   0.03324   0.06949   0.06500  -0.00449
+                                7    -0.500     0.420   0.01483   0.02006   0.01360  -0.00647
+                                8    -0.550     0.436   0.01423   0.04590   0.04344  -0.00246
+                                9    -0.600     0.430   0.01505   0.12037   0.12444   0.00408
+                               10    -0.644     0.400   0.01483   0.22850   0.23541   0.00691
+                               11    -0.660     0.350   0.01420   0.33248   0.33513   0.00265
+                               12    -0.655     0.300   0.02881   0.41180   0.41041  -0.00139
+                               13    -0.635     0.200   0.03043   0.56169   0.55792  -0.00377
+                               14    -0.595     0.100   0.03076   0.70069   0.69969  -0.00100
+                               15    -0.552     0.000   0.03311   0.84177   0.84369   0.00192
+                               16    -0.500    -0.105   0.03175   0.98915   0.99146   0.00231
+                               17    -0.440    -0.200   0.01809   1.12198   1.12185  -0.00013
+                               18    -0.400    -0.250   0.01998   1.19326   1.19145  -0.00180
+                               19    -0.350    -0.300   0.01882   1.26792   1.26504  -0.00288
+                               20    -0.300    -0.344   0.03140   1.33734   1.33459  -0.00275
+                               21    -0.204    -0.400   0.03450   1.44505   1.44501  -0.00003
+                               22    -0.100    -0.436   0.02846   1.54875   1.55126   0.00251
+                               23     0.000    -0.448   0.02831   1.64168   1.64342   0.00174
+                               24     0.100    -0.442   0.03860   1.73582   1.73434  -0.00148
+                               25     0.230    -0.400   0.02431   1.85882   1.85513  -0.00370
+                               26     0.300    -0.350   0.02059   1.91643   1.91502  -0.00141
+                               27     0.353    -0.300   0.03566   1.95563   1.95689   0.00126
+                               28     0.430    -0.200   0.03122   1.99206   1.99507   0.00301
+                               29     0.477    -0.100   0.02975   1.96611   1.96579  -0.00032
+                               30     0.510     0.000   0.02846   1.89648   1.89241  -0.00407
+                               31     0.522     0.100   0.01696   1.75623   1.75328  -0.00295
+                               32     0.520     0.160   0.02330   1.63625   1.63683   0.00058
+                               33     0.500     0.240   0.02102   1.41224   1.41798   0.00574
+                               34     0.456     0.300   0.01795   1.14765   1.15160   0.00394
+                               35     0.400     0.330   0.01147   0.91523   0.91269  -0.00254
+                               36     0.360     0.337   0.01762   0.78913   0.78354  -0.00558
+                               37     0.300     0.320   0.01648   0.68785   0.68274  -0.00511
+                               38     0.250     0.290   0.01901   0.66231   0.65991  -0.00239
+                               39     0.300     0.245   0.01901   0.89407   0.89251  -0.00156
+                               40     0.150     0.200   0.01809   0.72694   0.72885   0.00191
+                               41     0.100     0.160   0.01677   0.75642   0.75909   0.00267
+                               42     0.050     0.128   0.01501   0.77202   0.77499   0.00297
+ 
+ 
+ 
+                                        PROCESSOR TIME:   6.20 SEC
+ 
+ 
+ 
+ 
+X      =
+   0.00000000000@+00  -5.00000000000@-02  -1.00000000000@-01  -1.60000000001@-01  -2.20000000000@-01  -3.20000000000@-01
+  -4.00000000000@-01  -5.00000000000@-01  -5.50000000000@-01  -6.00000000000@-01  -6.44000000000@-01  -6.60000000000@-01
+  -6.55000000000@-01  -6.35000000000@-01  -5.95000000000@-01  -5.52000000000@-01  -5.00000000000@-01  -4.40000000001@-01
+  -4.00000000000@-01  -3.50000000000@-01  -3.00000000000@-01  -2.03999999999@-01  -1.00000000000@-01   0.00000000000@+00
+   1.00000000000@-01   2.30000000000@-01   3.00000000000@-01   3.53000000000@-01   4.30000000000@-01   4.77000000000@-01
+   5.10000000001@-01   5.22000000002@-01   5.20000000001@-01   5.00000000000@-01   4.56000000000@-01   4.00000000000@-01
+   3.60000000001@-01   3.00000000000@-01   2.50000000000@-01   3.00000000000@-01   1.50000000000@-01   1.00000000000@-01
+   5.00000000000@-02
+ 
+ 
+ 
+ 
+Y      =
+   1.10000000001@-01   1.08000000000@-01   1.14999999999@-01   1.50000000000@-01   2.05000000000@-01   3.00000000000@-01
+   3.58000000000@-01   4.20000000000@-01   4.36000000000@-01   4.30000000000@-01   4.00000000000@-01   3.50000000000@-01
+   3.00000000000@-01   2.00000000001@-01   1.00000000000@-01   0.00000000000@+00  -1.05000000000@-01  -2.00000000001@-01
+  -2.50000000000@-01  -3.00000000000@-01  -3.43999999999@-01  -4.00000000000@-01  -4.36000000000@-01  -4.48000000001@-01
+  -4.42000000000@-01  -4.00000000000@-01  -3.50000000000@-01  -3.00000000000@-01  -2.00000000001@-01  -1.00000000000@-01
+   0.00000000000@+00   1.00000000000@-01   1.60000000001@-01   2.39999999999@-01   3.00000000000@-01   3.30000000000@-01
+   3.37000000000@-01   3.20000000000@-01   2.90000000001@-01   2.45000000001@-01   2.00000000001@-01   1.60000000001@-01
+   1.28000000001@-01
+ 
+ 
+ 
+ 
+W      =
+   1.41400000000@-02   1.42700000000@-02   1.96300000000@-02   2.29999999999@-02   3.89700000001@-02   2.79200000000@-02
+   3.32399999999@-02   1.48299999999@-02   1.42300000000@-02   1.50500000000@-02   1.48299999999@-02   1.42000000000@-02
+   2.88100000001@-02   3.04300000001@-02   3.07600000002@-02   3.31100000000@-02   3.17500000002@-02   1.80900000001@-02
+   1.99800000001@-02   1.88200000000@-02   3.14000000001@-02   3.45000000000@-02   2.84600000001@-02   2.83099999999@-02
+   3.86000000002@-02   2.43100000000@-02   2.05900000001@-02   3.56600000001@-02   3.12200000000@-02   2.97499999999@-02
+   2.84600000001@-02   1.69600000000@-02   2.33000000000@-02   2.10199999998@-02   1.79500000000@-02   1.14700000000@-02
+   1.76200000000@-02   1.64800000000@-02   1.90100000000@-02   1.90100000000@-02   1.80900000001@-02   1.67700000000@-02
+   1.50100000000@-02
+ 
+ 
+ 
+ 
+CBV    =
+   7.63990857000@-01   7.23476999550@-01   6.70486515620@-01   5.55760515690@-01   4.03864157242@-01   1.70153235251@-01
+   6.50036131620@-02   1.35969111804@-02   4.34406209922@-02   1.24443888181@-01   2.35411546883@-01   3.35127952258@-01
+   4.10409228179@-01   5.57922404120@-01   6.99692526170@-01   8.43691658110@-01   9.91455364510@-01   1.12185181366@+00
+   1.19145281421@+00   1.26504184521@+00   1.33459251738@+00   1.44501061818@+00   1.55125970980@+00   1.64342354803@+00
+   1.73434400866@+00   1.85512612469@+00   1.91501751200@+00   1.95689478869@+00   1.99507156912@+00   1.96578820441@+00
+   1.89241116472@+00   1.75328349823@+00   1.63683157068@+00   1.41798014338@+00   1.15159624467@+00   9.12686299540@-01
+   7.83542953740@-01   6.82743770100@-01   6.59913937640@-01   8.92513136020@-01   7.28852845610@-01   7.59094650350@-01
+   7.74988822250@-01
+ 
+ 
+ 
+ 
+BV     =
+   7.60888465450@-01   7.20246055780@-01   6.67212406800@-01   5.52356512670@-01   4.00677168384@-01   1.70143475069@-01
+   6.94918044650@-02   2.00633089262@-02   4.59001323489@-02   1.20368543445@-01   2.28496737625@-01   3.32481404050@-01
+   4.11800002861@-01   5.61688937140@-01   7.00690877200@-01   8.41773259000@-01   9.89149666870@-01   1.12198473963@+00
+   1.19325814303@+00   1.26792135330@+00   1.33733963929@+00   1.44504543647@+00   1.54874888482@+00   1.64168181988@+00
+   1.73582146871@+00   1.85882384451@+00   1.91643181675@+00   1.95563019495@+00   1.99206099581@+00   1.96610965548@+00
+   1.89648227785@+00   1.75623351628@+00   1.63625089460@+00   1.41224024707@+00   1.14765460414@+00   9.15228104730@-01
+   7.89128023850@-01   6.87850932100@-01   6.62307799950@-01   8.94070846770@-01   7.26940189160@-01   7.56420955760@-01
+   7.72021544670@-01   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+Z   00 =
+   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00
+   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00
+   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00
+   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00
+   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00
+   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00
+   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00   1.00000000000@+00
+   1.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+Z   01 =
+   0.00000000000@+00  -5.00000000000@-02  -1.00000000000@-01  -1.60000000001@-01  -2.20000000000@-01  -3.20000000000@-01
+  -4.00000000000@-01  -5.00000000000@-01  -5.50000000000@-01  -6.00000000000@-01  -6.44000000000@-01  -6.60000000000@-01
+  -6.55000000000@-01  -6.35000000000@-01  -5.95000000000@-01  -5.52000000000@-01  -5.00000000000@-01  -4.40000000001@-01
+  -4.00000000000@-01  -3.50000000000@-01  -3.00000000000@-01  -2.03999999999@-01  -1.00000000000@-01   0.00000000000@+00
+   1.00000000000@-01   2.30000000000@-01   3.00000000000@-01   3.53000000000@-01   4.30000000000@-01   4.77000000000@-01
+   5.10000000001@-01   5.22000000002@-01   5.20000000001@-01   5.00000000000@-01   4.56000000000@-01   4.00000000000@-01
+   3.60000000001@-01   3.00000000000@-01   2.50000000000@-01   3.00000000000@-01   1.50000000000@-01   1.00000000000@-01
+   5.00000000000@-02   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+Z   02 =
+   1.10000000001@-01   1.08000000000@-01   1.14999999999@-01   1.50000000000@-01   2.05000000000@-01   3.00000000000@-01
+   3.58000000000@-01   4.20000000000@-01   4.36000000000@-01   4.30000000000@-01   4.00000000000@-01   3.50000000000@-01
+   3.00000000000@-01   2.00000000001@-01   1.00000000000@-01   0.00000000000@+00  -1.05000000000@-01  -2.00000000001@-01
+  -2.50000000000@-01  -3.00000000000@-01  -3.43999999999@-01  -4.00000000000@-01  -4.36000000000@-01  -4.48000000001@-01
+  -4.42000000000@-01  -4.00000000000@-01  -3.50000000000@-01  -3.00000000000@-01  -2.00000000001@-01  -1.00000000000@-01
+   0.00000000000@+00   1.00000000000@-01   1.60000000001@-01   2.39999999999@-01   3.00000000000@-01   3.30000000000@-01
+   3.37000000000@-01   3.20000000000@-01   2.90000000001@-01   2.45000000001@-01   2.00000000001@-01   1.60000000001@-01
+   1.28000000001@-01   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+Z   03 =
+  -1.20999999999@-02  -9.16400000000@-03  -3.22500000002@-03   3.10000000014@-03   6.37499999970@-03   1.24000000003@-02
+   3.18360000002@-02   7.36000000000@-02   1.12404000000@-01   1.75100000000@-01   2.54736000001@-01   3.13100000001@-01
+   3.39025000001@-01   3.63225000000@-01   3.44024999999@-01   3.04704000000@-01   2.38975000000@-01   1.53599999999@-01
+   9.75000000000@-02   3.25000000007@-02  -2.83359999998@-02  -1.18384000000@-01  -1.80096000001@-01  -2.00704000001@-01
+  -1.85363999999@-01  -1.07100000000@-01  -3.25000000007@-02   3.46090000001@-02   1.44899999999@-01   2.17529000001@-01
+   2.60100000000@-01   2.62484000000@-01   2.44800000002@-01   1.92400000000@-01   1.17936000001@-01   5.10999999999@-02
+   1.60310000005@-02  -1.24000000003@-02  -2.16000000005@-02   2.99749999990@-02  -1.75000000004@-02  -1.56000000000@-02
+  -1.38840000003@-02   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+Z   04 =
+   0.00000000000@+00  -1.08000000000@-02  -2.30000000002@-02  -4.79999999997@-02  -9.02000000000@-02  -1.92000000000@-01
+  -2.86399999999@-01  -4.20000000000@-01  -4.79600000003@-01  -5.16000000000@-01  -5.15200000000@-01  -4.62000000004@-01
+  -3.92999999998@-01  -2.54000000002@-01  -1.19000000000@-01   0.00000000000@+00   1.05000000000@-01   1.76000000001@-01
+   2.00000000001@-01   2.09999999999@-01   2.06400000000@-01   1.63200000000@-01   8.72000000000@-02   0.00000000000@+00
+  -8.84000000000@-02  -1.84000000000@-01  -2.09999999999@-01  -2.11799999999@-01  -1.72000000000@-01  -9.54000000000@-02
+   0.00000000000@+00   1.04400000001@-01   1.66400000002@-01   2.39999999999@-01   2.73599999999@-01   2.64000000000@-01
+   2.42640000001@-01   1.92000000000@-01   1.45000000001@-01   1.47000000002@-01   6.00000000000@-02   3.20000000001@-02
+   1.28000000000@-02   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+Z   05 =
+   0.00000000000@+00   1.62460000000@-03   2.96749999998@-03   6.70399999990@-03   1.70885000000@-02   5.36319999996@-02
+   8.97968000000@-02   1.39600000001@-01   1.47283400000@-01   1.16820000001@-01   4.20300159986@-02  -4.49460000018@-02
+  -1.04161375004@-01  -1.79847875000@-01  -1.92794874999@-01  -1.68196608000@-01  -1.08462500000@-01  -3.23839999996@-02
+   1.09999999999@-02   5.16249999996@-02   7.95023999990@-02   8.94303360000@-02   5.60288000000@-02   0.00000000000@+00
+  -5.76092000000@-02  -9.82330000000@-02  -8.32500000010@-02  -5.13230229990@-02   2.79069999997@-02   9.42213330010@-02
+   1.32651000000@-01   1.26576648001@-01   1.00672000002@-01   3.86000000002@-02  -2.83011839993@-02  -6.66800000000@-02
+  -7.59985200000@-02  -6.51600000000@-02  -4.74500000005@-02  -2.70225000005@-02  -1.46250000001@-02  -6.68000000000@-03
+  -2.33260000005@-03   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+Z   06 =
+  -1.33099999999@-03  -4.49712000001@-04   1.92912499998@-03   8.14499999990@-03   2.11508749999@-02   6.51600000000@-02
+   1.25957287999@-01   2.40912000001@-01   3.12788144000@-01   3.84893000001@-01   4.33683200002@-01   4.14505000002@-01
+   3.59122499998@-01   2.33935000002@-01   1.05207500000@-01   0.00000000000@+00  -7.75923750000@-02  -1.08160000000@-01
+  -1.04375000000@-01  -8.32500000000@-02  -5.21724159997@-02   1.40607999999@-02   6.98018560000@-02   8.99153920010@-02
+   7.30908880000@-02   5.19999999824@-04  -5.16249999996@-02  -8.51481000000@-02  -1.02940000000@-01  -6.72587000000@-02
+   0.00000000000@+00   8.07452000000@-02   1.25696000000@-01   1.66176000000@-01   1.60142400001@-01   1.22463000000@-01
+   9.27528470000@-02   5.36319999996@-02   2.99860000001@-02   5.14438749997@-02   5.49999999990@-03   7.04000000010@-04
+  -1.13715200002@-03   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+Z   07 =
+   1.46410000000@-04  -3.26611039996@-05  -5.18599374998@-04  -2.29438999998@-03  -8.09539937500@-03  -3.67102399997@-02
+  -8.10114291040@-02  -1.70983040000@-01  -2.17381500785@-01  -2.35595990000@-01  -2.00540610304@-01  -1.15412390002@-01
+  -3.95110493756@-02   6.74164006240@-02   1.04192200623@-01   9.28445276160@-02   4.60840506248@-02  -7.38304000010@-03
+  -3.04937500000@-02  -4.30437499996@-02  -4.17980311035@-02  -1.26194685440@-02   2.48307292160@-02   4.02820956163@-02
+   2.65452524959@-02  -2.23855900000@-02  -4.30437499996@-02  -4.36614571186@-02  -8.58799000030@-03   3.82177058415@-02
+   6.76520100000@-02   5.79984902570@-02   3.22380800005@-02  -2.05822399998@-02  -6.09480599040@-02  -6.70847900000@-02
+  -5.86171766390@-02  -3.67102399997@-02  -2.05584400000@-02  -2.07104993751@-02  -3.29374999995@-03  -7.80640000000@-04
+   2.89254560038@-05   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+Z   08 =
+   0.00000000000@+00   1.97942400002@-04   1.48350000000@-04  -2.97600000010@-04  -1.15004999995@-03  -4.76160000017@-03
+  -1.82356607997@-02  -6.18240000000@-02  -1.07817916798@-01  -1.80703200000@-01  -2.62479974401@-01  -2.89304400001@-01
+  -2.66473650002@-01  -1.84518300003@-01  -8.18779499990@-02   0.00000000000@+00   5.01847500000@-02   5.40672000004@-02
+   3.89999999998@-02   1.36499999999@-02  -1.16971007996@-02  -3.86405375999@-02  -3.14087424001@-02   0.00000000000@+00
+   3.27723551997@-02   3.94127999998@-02   1.36500000001@-02  -1.46603724000@-02  -4.98456000006@-02  -4.15045332004@-02
+   0.00000000000@+00   5.48066592001@-02   8.14694400020@-02   9.23520000000@-02   6.45345792000@-02   2.69807999999@-02
+   7.77952368070@-03  -4.76159999994@-03  -6.26400000010@-03   8.81264999970@-03  -2.10000000001@-03  -9.98399999990@-04
+  -3.55430400009@-04   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+Z   09 =
+   0.00000000000@+00  -1.97447239999@-05   3.47996874996@-05   4.11742399997@-04   2.01674811251@-03   1.31757567998@-02
+   3.89329382080@-02   1.11457600001@-01   1.66568437156@-01   2.19059970001@-01   2.34140142797@-01   1.77428717403@-01
+   1.05821832342@-01  -5.90575439620@-03  -5.38065643712@-02  -5.12501792441@-02  -1.77726265627@-02   1.40619776002@-02
+   2.19475000001@-02   1.91603125002@-02   8.51560665600@-03  -1.28818434571@-02  -1.61772846080@-02   0.00000000000@+00
+   1.71399062479@-02   1.06164342999@-02  -8.13562499980@-03  -1.98106060829@-02  -1.36619557001@-02   1.40793923664@-02
+   3.45025251000@-02   2.47945459939@-02   3.72869119994@-03  -3.24555999998@-02  -4.71526890760@-02  -3.57375800000@-02
+  -2.37238830705@-02  -9.48935999990@-03  -3.32304999998@-03  -8.37224906250@-03  -7.40624999940@-05   8.16799999970@-05
+   4.69413640017@-05   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+Z   10 =
+   1.61050999998@-05  -1.34245192319@-05  -7.44739281250@-05  -2.96542499999@-04  -1.40654587190@-03  -9.48935999990@-03
+  -2.17078272993@-02  -4.09008768002@-02  -3.54784801039@-02   7.11564430090@-03   8.88208593930@-02   1.50546567501@-01
+   1.62686925940@-01   1.30652400626@-01   5.91366003120@-02   0.00000000000@+00  -2.99312003158@-02  -2.23129600001@-02
+  -7.97656249980@-03   8.13562499980@-03   1.78876529394@-02   1.29304570882@-02  -7.68532369800@-03  -1.80463788360@-02
+  -8.45576608310@-03   1.80191800003@-02   1.91603125002@-02   7.92332567830@-03  -1.97160100000@-02  -2.36194329210@-02
+   0.00000000000@+00   3.44089251285@-02   4.75222016005@-02   4.12362623998@-02   1.11433501447@-02  -1.13456607000@-02
+  -1.69533600024@-02  -1.31757567998@-02  -7.52794760000@-03  -2.43027734700@-03  -9.73750000000@-04  -2.24742399997@-04
+  -1.40690616313@-05   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+ORTH00 =
+   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01
+   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01
+   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01
+   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01
+   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01
+   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01
+   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01   9.99995000030@-01
+   9.99995000030@-01   9.99995000030@-01   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+ORTH01 =
+   1.80914235387@-01   5.41552019810@-02  -7.26038314250@-02  -2.24714671515@-01  -3.76825511601@-01  -6.30343578410@-01
+  -8.33158031860@-01  -1.08667609867@+00  -1.21343513209@+00  -1.34019416549@+00  -1.45174211489@+00  -1.49230500558@+00
+  -1.47962910224@+00  -1.42892548887@+00  -1.32751826214@+00  -1.21850549342@+00  -1.08667609867@+00  -9.34565258600@-01
+  -8.33158031860@-01  -7.06398998460@-01  -5.79639965050@-01  -3.36262620913@-01  -7.26038314250@-02   1.80914235387@-01
+   4.34432302200@-01   7.64005789050@-01   9.41468435820@-01   1.07583301123@+00   1.27104192268@+00   1.39019541409@+00
+   1.47385637613@+00   1.50427854415@+00   1.49920818281@+00   1.44850456945@+00   1.33695662006@+00   1.19498650264@+00
+   1.09357927591@+00   9.41468435820@-01   8.14709402420@-01   9.41468435820@-01   5.61191335600@-01   4.34432302200@-01
+   3.07673268793@-01   1.80914235387@-01   2.53518066813@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+ORTH02 =
+   3.80771471710@-01   3.49866071394@-01   3.51052032461@-01   4.47322987158@-01   6.14908078260@-01   9.06102252830@-01
+   1.07487486972@+00   1.24840071924@+00   1.28167804168@+00   1.23650981409@+00   1.10861750119@+00   9.22724484440@-01
+   7.46816542100@-01   3.99755454744@-01   6.22039620550@-02  -2.73921091434@-01  -6.23595361420@-01  -9.33808725340@-01
+  -1.09307487700@+00  -1.24758623134@+00  -1.38070334475@+00  -1.53473687227@+00  -1.61365242553@+00  -1.60889293400@+00
+  -1.53995071973@+00  -1.32837866792@+00  -1.11680974557@+00  -9.13323978670@-01  -5.20141357157@-01  -1.41223127650@-01
+   2.31038385585@-01   5.93314824410@-01   8.06306274170@-01   1.08205322511@+00   1.27507452606@+00   1.35541886558@+00
+   1.36135962399@+00   1.27221382404@+00   1.14146863275@+00   1.00478581250@+00   7.73007045570@-01   6.06604786080@-01
+   4.68728181151@-01  -1.14562785201@-02   4.75479733539@-01   3.56570682029@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+ORTH03 =
+  -7.98230679010@-01  -8.00670335140@-01  -7.97158058240@-01  -8.45914528020@-01  -9.52342360660@-01  -1.13149559140@+00
+  -1.13635631400@+00  -9.96454733350@-01  -7.69251149490@-01  -3.28863117695@-01   2.80848830605@-01   7.86226627130@-01
+   1.06657893074@+00   1.43115116286@+00   1.49022773434@+00   1.40423507632@+00   1.13947635221@+00   7.18134835610@-01
+   4.19573748318@-01   6.15962883030@-02  -2.76648949872@-01  -7.81435218710@-01  -1.11065867469@+00  -1.18488142181@+00
+  -1.02887760731@+00  -4.61405719093@-01   3.23082105783@-02   4.62088497172@-01   1.13129821487@+00   1.50946023254@+00
+   1.66078431938@+00   1.50757995862@+00   1.27124440605@+00   7.36483532880@-01   6.31272108930@-02  -5.08034843534@-01
+  -7.98055067530@-01  -1.00811182191@+00  -1.04943624920@+00  -5.66262807350@-01  -9.14877561260@-01  -8.57550001910@-01
+  -8.15736972880@-01  -5.15126039884@-01   5.47815637176@-01  -1.77161132384@+00   7.29152012420@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+ORTH04 =
+   1.89813751040@-01   1.82127389697@-01   1.74755299152@-01   1.28035535669@-01   9.38427469670@-05  -3.82834322212@-01
+  -7.66095545140@-01  -1.32972943195@+00  -1.57423861745@+00  -1.69595052706@+00  -1.62918519635@+00  -1.32905143118@+00
+  -9.79794909550@-01  -2.99574852387@-01   3.16987522010@-01   8.33004137860@-01   1.24656603605@+00   1.46330007198@+00
+   1.49002115033@+00   1.42541050234@+00   1.29267120875@+00   8.72687158290@-01   2.93072413659@-01  -3.06363787901@-01
+  -8.81817741670@-01  -1.47087288338@+00  -1.61283163294@+00  -1.60835662884@+00  -1.34343848955@+00  -8.64370931000@-01
+  -2.82537366655@-01   3.50649641428@-01   7.27218315560@-01   1.18345021208@+00   1.42002917650@+00   1.41428668692@+00
+   1.32645395539@+00   1.08466183656@+00   8.52462105030@-01   8.04445980890@-01   4.26593933304@-01   2.96644440327@-01
+   2.20610358790@-01   1.16011370516@-01  -1.02995232365@+00   7.24525365880@-01   4.87223944212@-01   5.47827928630@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+ORTH05 =
+  -2.24390098965@-01  -1.66400183375@-01  -1.13110015845@-01  -4.95212136934@-02   6.62319784940@-02   4.78687150042@-01
+   9.30687900040@-01   1.58807650617@+00   1.75676283607@+00   1.53378186611@+00   8.33053076810@-01  -4.05475762073@-02
+  -6.47235174420@-01  -1.39934393538@+00  -1.48659811099@+00  -1.16416362645@+00  -4.74044768720@-01   3.46951720782@-01
+   7.84809608860@-01   1.15675794336@+00   1.36980774369@+00   1.25997951292@+00   6.40039498240@-01  -1.93963909827@-01
+  -9.87932827850@-01  -1.49676338502@+00  -1.26043239531@+00  -8.07722587580@-01   2.79097483486@-01   1.16971971419@+00
+   1.67592346178@+00   1.57342778410@+00   1.20607924739@+00   3.27689972104@-01  -6.42175793890@-01  -1.23639609976@+00
+  -1.40920120204@+00  -1.30306097311@+00  -1.06907127744@+00  -7.14438767770@-01  -5.60312915570@-01  -4.06871372426@-01
+  -2.99667166072@-01  -1.17762788829@-01  -7.15374218030@-01  -7.44720174440@-01   2.04199098746@+00   4.80984991258@-01
+   1.22683224850@+01   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+ORTH06 =
+  -7.83031145230@-01  -8.26709438640@-01  -8.77828056950@-01  -9.92311996970@-01  -1.12511418184@+00  -1.19016660869@+00
+  -9.42966227060@-01  -2.07261027826@-01   3.88532526414@-01   1.12034403956@+00   1.76793176187@+00   1.84772647024@+00
+   1.55281022728@+00   7.83945834410@-01  -6.03865301880@-02  -6.99681424930@-01  -1.06754405847@+00  -1.02231553767@+00
+  -8.07220914270@-01  -4.26665832660@-01   2.41154834160@-02   8.30166519350@-01   1.41930839993@+00   1.53948511036@+00
+   1.20729587539@+00   1.70100992276@-01  -5.46115067537@-01  -1.01248061082@+00  -1.31372288401@+00  -9.43924261000@-01
+  -1.75763375887@-01   7.63322709580@-01   1.28529437978@+00   1.73412582700@+00   1.58976436041@+00   1.03546895435@+00
+   6.01652362520@-01   2.67400607363@-02  -3.25873691819@-01   6.35479255760@-02  -6.73398898580@-01  -7.35527877110@-01
+  -7.60150931590@-01  -5.00629958679@-01   6.28807337500@-01  -2.40459949737@+00   2.41675999967@-01   2.49542628691@+00
+  -4.42402144898@-01   1.12479055209@+01   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+ORTH07 =
+   5.51019868750@-01   5.86449920050@-01   6.24283106120@-01   7.32035647020@-01   8.84088443090@-01   9.47495489520@-01
+   5.66882664010@-01  -6.07064036380@-01  -1.39435947253@+00  -1.94429415709@+00  -1.80033041716@+00  -8.50067168850@-01
+   4.52894976773@-02   1.14460785783@+00   1.19437281445@+00   5.50207769960@-01  -5.02554397187@-01  -1.34725485135@+00
+  -1.55085379902@+00  -1.43918708571@+00  -1.04847533569@+00   8.71044431450@-02   1.12855577534@+00   1.38649471350@+00
+   8.05734743630@-01  -7.49814519390@-01  -1.40087019585@+00  -1.48167167636@+00  -6.24788834450@-01   6.15015948700@-01
+   1.45746131465@+00   1.34130790365@+00   7.65253146800@-01  -4.88870417081@-01  -1.46796803072@+00  -1.58296839228@+00
+  -1.32242712592@+00  -6.66521622340@-01  -1.64267376660@-01  -2.83287896696@-01   3.96118099923@-01   4.88832744524@-01
+   5.26276688301@-01   3.22346629783@-01  -3.98322961006@-01   1.68602489073@+00  -3.56061481009@+00  -2.02793324394@+00
+   5.75218328540@+00   2.34567128998@+00   2.21921335688@+01   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+ORTH08 =
+  -4.59552511470@-01  -3.57550489980@-01  -2.49956886808@-01  -1.10535202184@-01   8.77662307320@-02   6.32960321680@-01
+   1.12882158719@+00   1.55029207033@+00   1.34881637966@+00   5.12435290270@-01  -8.01007729160@-01  -1.58243318800@+00
+  -1.59762632252@+00  -9.04910929790@-01   2.09683139037@-01   1.04361495218@+00   1.31891473010@+00   8.43271563970@-01
+   3.10697753780@-01  -3.57647682531@-01  -9.27659546960@-01  -1.31906637880@+00  -7.88340798290@-01   2.75512116509@-01
+   1.27517603344@+00   1.47674674967@+00   7.22450718720@-01  -1.20510890598@-01  -1.26539228961@+00  -1.25287096374@+00
+  -3.22375177981@-01   1.01872396069@+00   1.67978145208@+00   1.89345027274@+00   1.00216352320@+00  -2.05430790485@-01
+  -8.50249452030@-01  -1.28070007350@+00  -1.29971844597@+00  -6.82412211010@-01  -9.18301665170@-01  -7.37394431680@-01
+  -5.82032104440@-01  -2.71354763210@-01  -9.13273574380@-01  -1.33368544841@+00   2.69915052323@+00  -3.41088821356@+00
+  -1.09262623727@+00   6.40460783320@+00  -2.10432742399@+00   2.35554663755@+01   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+ORTH09 =
+   5.67693111240@-01   4.74598780666@-01   3.75296678294@-01   2.29025067559@-01  -2.92455539033@-02  -7.58149749410@-01
+  -1.26933550453@+00  -1.10567014320@+00  -2.80419398300@-01   1.04616657300@+00   2.01236982015@+00   1.42377440620@+00
+   3.37695080737@-01  -1.15952200739@+00  -1.18146695504@+00  -2.10132176020@-01   1.03460812513@+00   1.46705086911@+00
+   1.15259282354@+00   3.92532611245@-01  -4.89935964155@-01  -1.48728506995@+00  -1.06514096104@+00   3.02677436445@-01
+   1.41727581010@+00   8.46544045380@-01  -4.24653958010@-01  -1.25741740139@+00  -1.18141072491@+00   2.38769035009@-01
+   1.39238833761@+00   1.06767127615@+00   1.05848814118@-01  -1.53933250972@+00  -1.96709221463@+00  -9.81147646440@-01
+  -1.08714149501@-01   8.32118106250@-01   1.15807409945@+00   5.11250792872@-01   1.00135455033@+00   8.35754218380@-01
+   6.84349746040@-01   3.49810067308@-01   6.23064584790@-01   1.58846218545@+00  -2.74717991462@+00   2.62591176035@+00
+  -8.90654483320@+00  -5.73054769770@+00   1.55998059094@+01   4.39807205094@+00   4.53723510556@+01   0.00000000000@+00
+ 
+ 
+ 
+ 
+ 
+ORTH10 =
+   5.60986276260@-01   6.05255230050@-01   6.39970402400@-01   7.23809443920@-01   8.28450990180@-01   7.34941553640@-01
+   1.24775818147@-01  -1.33191819911@+00  -1.96702460886@+00  -1.73161410799@+00  -2.91746247295@-01   1.12008519444@+00
+   1.47716389687@+00   7.72840847580@-01  -6.14853992030@-01  -1.41746182699@+00  -1.16288063591@+00  -3.86166401497@-02
+   6.47659473720@-01   1.11186667976@+00   1.12575048879@+00   1.30445705655@-01  -1.14269519123@+00  -1.37747173011@+00
+  -4.13686115913@-01   1.33159783993@+00   1.34576239529@+00   6.33505518840@-01  -1.07525371169@+00  -1.49911126496@+00
+  -4.87447528858@-01   1.07534378140@+00   1.61941090363@+00   1.14423418882@+00  -4.19941899291@-01  -1.41823956642@+00
+  -1.52501726954@+00  -9.81163165710@-01  -4.02355070162@-01  -3.56591928373@-01   3.22621158234@-01   4.55724956910@-01
+   5.19484361014@-01   3.25875290866@-01  -6.67870606450@-01   1.65787392310@+00  -3.44055713767@+00  -2.13559787397@+00
+   3.96432506853@+00  -8.12323218960@+00  -2.84939504576@+00   1.41768956571@+01   2.58171592641@+00   4.46610303462@+01
+ 
+ 
+ 
+ 
+ 
+ORTH11 =
+  -1.03121629563@+00  -1.07394628094@+00  -1.08829407845@+00  -1.13147013269@+00  -1.05933592973@+00  -3.24422290538@-03
+   1.49184780123@+00   2.14939172841@+00   8.17526785970@-01  -1.35462008341@+00  -2.29844101581@+00  -8.79696708890@-01
+   4.62285141772@-01   1.25197292762@+00   3.31845879076@-01  -6.37664325400@-01  -7.66400026320@-01   4.41838022953@-02
+   6.00080454410@-01   9.57131173120@-01   9.13126803040@-01   1.15733869882@-02  -8.34583126250@-01  -5.78939963320@-01
+   4.91098853142@-01   1.22909982271@+00   4.70106407169@-01  -4.20343344800@-01  -1.00069646251@+00   1.06848410817@-01
+   1.35321352392@+00   9.80568257150@-01  -1.93013220975@-01  -1.90790700899@+00  -1.31017761663@+00   8.44880761440@-01
+   1.85644372235@+00   1.69758994576@+00   7.95705440390@-01   5.17773687001@-01  -6.35755502000@-01  -8.88720000420@-01
+  -9.86305221160@-01  -3.32990033813@+02  -3.31558678024@+02   6.61777554410@+02  -4.92064262576@+02   3.02242196197@+00
+  -6.25674489760@+01  -2.07193268945@+02   1.18044582297@+02  -7.88576947510@+00   3.93728856274@+01   9.32160345480@+01
+ 
+ 
+ 
+ 
+ 
+DEV    =
+  -3.10239154896@-03  -3.23094377018@-03  -3.27410880345@-03  -3.40400301320@-03  -3.18698884985@-03  -9.76017327050@-06
+   4.48819130429@-03   6.46639774990@-03   2.45951135822@-03  -4.07534473289@-03  -6.91480925340@-03  -2.64654820421@-03
+   1.39077468339@-03   3.76653302192@-03   9.98351029920@-04  -1.91839910076@-03  -2.30569762607@-03   1.32925997605@-04
+   1.80532885133@-03   2.87950808706@-03   2.74712190730@-03   3.48182802554@-05  -2.51082498289@-03  -1.74172814877@-03
+   1.47746010043@-03   3.69771978876@-03   1.41430478834@-03  -1.26459370949@-03  -3.01057330216@-03   3.21451094351@-04
+   4.07111312961@-03   2.95001803897@-03  -5.80676030950@-04  -5.73989628170@-03  -3.94164054887@-03   2.54180519187@-03
+   5.58507011560@-03   5.10716202189@-03   2.39386231988@-03   1.55771075151@-03  -1.91265644753@-03  -2.67369457833@-03
+  -2.96727756904@-03
+ 
+ 
+ 
+ 
+COF    =
+   1.00179319429@+00   9.97486991870@-01  -1.99094321998@+00   1.48036451348@+00  -9.09289000960@-03   1.88232794389@-01
+   6.23336393450@-01  -3.55134530048@-01   2.37241640579@-02  -1.18452460601@-01  -2.80438390118@-01
+ 
+ 
+ 
+ 
+STD    =
+   5.31828800487@-04
+ 
+ 
+ 
+ 
+CV  00 =
+   1.98226565763@+00  -5.92977582510@-02   4.24862799856@+00  -8.02335245200@+00  -1.75889496584@-01  -8.96309335540@-01
+  -1.12646040117@+01   1.22530004493@+01  -2.33498124639@-01   1.67130226051@+01   1.45539262544@+01
+ 
+ 
+ 
+ 
+CV  01 =
+   0.00000000000@+00   1.07482751246@+01  -5.71691317460@-01   1.72315950283@+00   2.56795372980@+00  -1.85449961746@+01
+   2.14403838782@+00   4.70490406305@+00  -2.82406339367@+01   2.65456528898@+01  -2.98277894221@+01
+ 
+ 
+ 
+ 
+CV  02 =
+   0.00000000000@+00   0.00000000000@+00   3.26076705648@+01  -3.43374837286@+01  -6.29032158830@-01  -4.49248189433@+00
+  -5.42036331896@+01   6.02787644840@+01  -9.25905973300@-01   7.63524234290@+01   7.40423575900@+01
+ 
+ 
+ 
+ 
+CV  03 =
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   9.69796096490@+01   2.40238340074@+00   1.23428084525@+01
+   5.53446074890@+01  -1.17749502923@+02   2.72103464813@+00  -1.33528552657@+02  -1.53658826734@+02
+ 
+ 
+ 
+ 
+CV  04 =
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   6.36729053540@+01  -3.49953257233@+01
+   3.76609775156@+00   9.22233598870@+00  -9.90722617300@+01   1.13630283187@+02  -9.53780014570@+01
+ 
+ 
+ 
+ 
+CV  05 =
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   2.80031315013@+02
+   2.03550380832@+01  -2.02838357957@+01  -8.70712364720@+00  -3.93876117699@+02   1.77050842188@+02
+ 
+ 
+ 
+ 
+CV  06 =
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   2.71862632025@+02  -2.76710756103@+01   1.04979476481@+01  -2.80980299799@+02  -3.62791919327@+02
+ 
+ 
+ 
+ 
+CV  07 =
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   7.48391982780@+02  -2.13549197577@+01   7.00443541560@+02  -1.27256918607@+02
+ 
+ 
+ 
+ 
+CV  08 =
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   7.75187404400@+02   2.36151586368@+02   6.33154767160@+02
+ 
+ 
+ 
+ 
+CV  09 =
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   2.06531549744@+03   1.15302093334@+02
+ 
+ 
+ 
+ 
+CV  10 =
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   1.99460763158@+03
+ 
+ 
+ 
+ 
+CV  11 =
+   1.40792956416@+00   3.27845621057@+00   5.71031265040@+00   9.84782258420@+00   7.97953039680@+00   1.67341362195@+01
+   1.64882573982@+01   2.73567538787@+01   2.78421874931@+01   4.54457423466@+01   4.46610303462@+01
+ 
+ 
+ 
+ 
+VCV 00 =
+   5.60667731440@-07  -1.67718890100@-08   1.20168990090@-06  -2.26934003548@-06  -4.97489146597@-08  -2.53513811275@-07
+  -3.18610169757@-06   3.46566159728@-06  -6.60430469210@-08   4.72714261757@-06   4.11645976167@-06
+ 
+ 
+ 
+ 
+VCV 01 =
+   0.00000000000@+00   3.04006226805@-06  -1.61698243022@-07   4.87381661306@-07   7.26324842780@-07  -5.24530145329@-06
+   6.06423833450@-07   1.33074387761@-06  -7.98763379810@-06   7.50822218400@-06  -8.43654782840@-06
+ 
+ 
+ 
+ 
+VCV 02 =
+   0.00000000000@+00   0.00000000000@+00   9.22281461760@-06  -9.71207821290@-06  -1.77916633998@-07  -1.27066199353@-06
+  -1.53310571362@-05   1.70493586504@-05  -2.61884979735@-07   2.15956624527@-05   2.09422791041@-05
+ 
+ 
+ 
+ 
+VCV 03 =
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   2.74298944384@-05   6.79494620790@-07   3.49106306114@-06
+   1.56537724442@-05  -3.33044899548@-05   7.69622536450@-07  -3.77674659360@-05  -4.34611503604@-05
+ 
+ 
+ 
+ 
+VCV 04 =
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   1.80093638113@-05  -9.89814347480@-06
+   1.06521014206@-06   2.60846278472@-06  -2.80217840725@-05   3.21394021294@-05  -2.69768925777@-05
+ 
+ 
+ 
+ 
+VCV 05 =
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   7.92045816440@-05
+   5.75725709700@-06  -5.73711810860@-06  -2.46273916106@-06  -1.11404658870@-04   5.00773918258@-05
+ 
+ 
+ 
+ 
+VCV 06 =
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   7.68941360480@-05  -7.82653885430@-06   2.96925917575@-06  -7.94729942790@-05  -1.02612745982@-04
+ 
+ 
+ 
+ 
+VCV 07 =
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   2.11676590168@-04  -6.04006550260@-06   1.98114763244@-04  -3.59935852146@-05
+ 
+ 
+ 
+ 
+VCV 08 =
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   2.19255457408@-04   6.67935570070@-05   1.79082680258@-04
+ 
+ 
+ 
+ 
+VCV 09 =
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   5.84157703690@-04   3.26122600427@-05
+ 
+ 
+ 
+ 
+VCV 10 =
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   5.64158558470@-04
+ 
+ 
+ 
+ 
+VCV 11 =
+   7.48777491270@-04   1.74357743391@-03   3.03690872724@-03   5.23735567236@-03   4.24374407939@-03   8.89969559280@-03
+   8.76893015420@-03   1.45491096005@-02   1.48072771773@-02   2.41693546396@-02   2.37520221974@-02
+ 
+ 
+ 
+ 
+EP     =
+   9.44815104250@-02   7.08147372820@-02   3.08117457038@-02   1.05123860881@-02   9.46203601620@-03   8.67105689850@-03
+   2.87556742466@-03   1.51818956510@-03   1.25508164606@-03   1.21206176477@-03   5.31828779618@-04
+ 
+ 
+ 
+ 
+A   00 =
+   9.99995000030@-01   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+A   01 =
+   1.80914235387@-01   2.53518066813@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+A   02 =
+  -1.14562785201@-02   4.75479733539@-01   3.56570682029@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+A   03 =
+  -5.15126039884@-01   5.47815637176@-01  -1.77161132384@+00   7.29152012420@+00   0.00000000000@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+A   04 =
+   1.16011370516@-01  -1.02995232365@+00   7.24525365880@-01   4.87223944212@-01   5.47827928630@+00   0.00000000000@+00
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+A   05 =
+  -1.17762788829@-01  -7.15374218030@-01  -7.44720174440@-01   2.04199098746@+00   4.80984991258@-01   1.22683224850@+01
+   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+A   06 =
+  -5.00629958679@-01   6.28807337500@-01  -2.40459949737@+00   2.41675999967@-01   2.49542628691@+00  -4.42402144898@-01
+   1.12479055209@+01   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+A   07 =
+   3.22346629783@-01  -3.98322961006@-01   1.68602489073@+00  -3.56061481009@+00  -2.02793324394@+00   5.75218328540@+00
+   2.34567128998@+00   2.21921335688@+01   0.00000000000@+00   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+A   08 =
+  -2.71354763210@-01  -9.13273574380@-01  -1.33368544841@+00   2.69915052323@+00  -3.41088821356@+00  -1.09262623727@+00
+   6.40460783320@+00  -2.10432742399@+00   2.35554663755@+01   0.00000000000@+00   0.00000000000@+00
+ 
+ 
+ 
+ 
+A   09 =
+   3.49810067308@-01   6.23064584790@-01   1.58846218545@+00  -2.74717991462@+00   2.62591176035@+00  -8.90654483320@+00
+  -5.73054769770@+00   1.55998059094@+01   4.39807205094@+00   4.53723510556@+01   0.00000000000@+00
+ 
+ 
+ 
+ 
+A   10 =
+   3.25875290866@-01  -6.67870606450@-01   1.65787392310@+00  -3.44055713767@+00  -2.13559787397@+00   3.96432506853@+00
+  -8.12323218960@+00  -2.84939504576@+00   1.41768956571@+01   2.58171592641@+00   4.46610303462@+01
+ 
+ 
+ 
+ 
+GF     =
+   1.00000499999@+00   3.94449205365@-01   2.80449305117@-01   1.37145613393@-01   1.82539068883@-01   8.15107363880@-02
+   8.89054409410@-02   4.50610121331@-02   4.24529909133@-02   2.20398541565@-02   2.23908851240@-02   3.00847801003@-03
+ 
+ 
+ 
+ 
+ 
+Q      =
+   1.05755607611@+00   4.11485037932@-01  -4.09425525258@-01   1.83479281511@-01  -3.01289796986@-02   2.49041632135@-02
+   4.98422256508@-02  -1.47312078273@-02   5.20707850368@-03  -2.25338081282@-03  -6.27926377750@-03   1.49334859822@+00
+ 
+ 
+ 
+ 
+ 
+Q2     =
+   1.11842485411@+00   1.69319936442@-01   1.67629260734@-01   3.36646467433@-02   9.07755417690@-04   6.20217345360@-04
+   2.48424745783@-03   2.17008484052@-04   2.71136665434@-05   5.07772508757@-06   3.94291535874@-05
+ 
+ 
+ 
+ 
+E      =
+   3.74923744108@-01   2.05603807667@-01   3.79745469327@-02   4.30990018936@-03   3.40214477168@-03   2.78192742633@-03
+   2.97679968497@-04   8.06714844450@-05   5.35578179015@-05   4.84800928140@-05   9.05093922650@-06
+ 
+ 
+ 
+ 
+ENF    =
+   1.00000499999@+00   4.00852450222@-01   2.85622988465@-01   1.77505404205@-01   2.10744207133@-01   8.84918706130@-02
+   1.42309699631@-01   6.82848260940@-02   8.46487648830@-02   5.77703003310@-02   4.61220683614@-02
+ 
+ELAPSED=   21.90, PROCESSOR=   13.42, I/O=   12.45 SEC
+ 
+ 
+________________________________________________________________________________________________________________________
+ LABEL  000000000PR     00184320?COMPILE DIRCHLT/B5500 XALGOL GO                                         DIRCHLT/B5500
+________________________________________________________________________________________________________________________
\ No newline at end of file
diff --git a/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHLET-Emode-OUTPUT.lst b/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHLET-Emode-OUTPUT.lst
new file mode 100644
index 0000000..24d225a
--- /dev/null
+++ b/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHLET-Emode-OUTPUT.lst
@@ -0,0 +1,1189 @@
+
+Sun, Jun 10, 2018 09:26:42, SYSTEM SERIAL: 4448, LX100 MCP: *SYSTEM/511/051-1A-45/DELTA/MCP. 51.190.8474, HOSTNAME: MCPVMMA
+
+
+
+
+                                         W O R K   F L O W   S T A T E M E N T S
+
+
+        00100100  BEGIN JOB MISC/DIRICHLET;
+        00100200  JOBSUMMARY = UNCONDITIONAL;
+        00102000
+        00102100  PRINTDEFAULTS = (PRINTDISPOSITION=EOJ, DESTINATION="PCTEXT");
+        00110000
+        00110100  TASK
+        00110200    T;
+        00900000
+        00900100  COMPILE OBJECT/MISC/DIRICHLET ALGOL [T] LIBRARY;
+        00900200      ALGOL FILE SOURCE = SRCE/MISC/DIRICHLET ON DISK;
+        00900300      OPTION = (FAULT, DSED, ARRAY);
+        00900400      ALGOL DATA
+        00900600  ?
+        00900700  IF T IS COMPILEDOK THEN
+        00900800    BEGIN
+        00900900    RUN OBJECT/MISC/DIRICHLET;
+        00901000        FILE CDS (DEPENDENTSPECS, TITLE=DATA/MISC/DIRICHLET ON DISK);
+        00901100    END;
+        00999900  ? END JOB
+
+
+                                                 J O B   S U M M A R Y
+
+Sun, Jun 10, 2018
+
+   09:26:39    BOJ   5576 MISC/DIRICHLET.
+                          JOB ENTERED SYSTEM: 06/10/2018 09:26:39 FROM WFL 51.189
+                          QUEUE: 0, ORIGINATING LSN: 211 MCS: 1
+                          STACK NUMBER: 080B, PRIORITY: 50, SOURCENAME: DIGMGX39/CANDE/1.
+                          USERCODE: PAUL.  REALUSERCODE: PAUL.
+                          INITIATING MCS: SYSTEM/CANDE.
+   09:26:39    BOT   5577 *SYSTEM/ALGOL.
+                          CODE COMPILED: 09/07/2005 15:02:44 BY ALGOL 51.190
+                          RELEASE ID: IC ALGOL-051.1A.4 [51.190.004] (51.190.8023)
+                          TASK TYPE: COROUTINE (CALL)
+                          STACK NUMBER: 080D, PRIORITY: 50, SOURCENAME: DIGMGX39/CANDE/1.
+                          CODEFILE: OBJECT/MISC/DIRICHLET.
+                          USERCODE: PAUL.  REALUSERCODE: PAUL.
+                          INITIATING MCS: SYSTEM/CANDE.
+   09:26:41    EOT   5577 *SYSTEM/ALGOL.
+                          RELEASE ID:IC ALGOL-051.1A.4 [51.190.004] (51.190.8023)
+                          USERCODE: PAUL.  REALUSERCODE: PAUL.
+                          STACK NUMBER: 080D             AVERAGE DISK SECTORS IN USE BY PERMANENT FILES: 1432.
+                          PROCESSOR TIME: 00:00:00.8812  CARDS READ: 1.
+                          I/O       TIME: 00:00:00.1573  LINES PRINTED: 321.
+                          READYQ    TIME: 00:00:00.0795  NUMBER OF ARRAY RESIZES: 3.
+                          INITPBIT  TIME: 00:00:00.0937  AVERAGE MEMORY USAGE: CODE=26757, DATA=79299
+                          ELAPSED   TIME: 00:00:01.4760  MEMORY INTEGRAL: CODE=27.789, DATA=82.358
+                                                         INITIAL PBITS: 476.
+                                                         MAXIMUM NUMBER OF ASDS USED: 183.
+                                                         MAXIMUM SAVE MEMORY USED: 12687.
+
+   09:26:41    BOT   5578 (PAUL)OBJECT/MISC/DIRICHLET ON OPS.
+                          CODE COMPILED: 06/10/2018 09:26:39 BY ALGOL 51.190
+                          TASK TYPE: COROUTINE (CALL)
+                          STACK NUMBER: 080F, PRIORITY: 50, SOURCENAME: DIGMGX39/CANDE/1.
+                          USERCODE: PAUL.  REALUSERCODE: PAUL.
+                          INITIATING MCS: SYSTEM/CANDE.
+   09:26:41          5578 MESSAGE: STACK EXTENDED FROM 1632 TO 1882 WORDS.
+   09:26:41          5578 MESSAGE: STACK EXTENDED FROM 1882 TO 2132 WORDS.
+   09:26:41    EOT   5578 (PAUL)OBJECT/MISC/DIRICHLET ON OPS.
+                          USERCODE: PAUL.  REALUSERCODE: PAUL.
+                          STACK NUMBER: 080F             AVERAGE DISK SECTORS IN USE BY PERMANENT FILES: 532.
+                          PROCESSOR TIME: 00:00:00.4494  LINES PRINTED: 559.
+                          I/O       TIME: 00:00:00.1407  NUMBER OF ARRAY RESIZES: 4.
+                          READYQ    TIME: 00:00:00.0066  AVERAGE MEMORY USAGE: CODE=809, DATA=6508
+                          INITPBIT  TIME: 00:00:00.0312  MEMORY INTEGRAL: CODE=0.477, DATA=3.841
+                          ELAPSED   TIME: 00:00:00.7797  INITIAL PBITS: 204.
+                                                         MAXIMUM NUMBER OF ASDS USED: 115.
+                                                         MAXIMUM SAVE MEMORY USED: 8223.
+
+   09:26:41    EOJ   5576 MISC/DIRICHLET.
+                          USERCODE: PAUL.  REALUSERCODE: PAUL.
+                          STACK NUMBER: 080B             NUMBER OF ARRAY RESIZES: 1.
+                          PROCESSOR TIME: 00:00:00.0466  AVERAGE MEMORY USAGE: CODE=88, DATA=1967
+                          I/O       TIME: 00:00:00.0011  MEMORY INTEGRAL: CODE=0.004, DATA=0.094
+                          READYQ    TIME: 00:00:00.0226  INITIAL PBITS: 51.
+                          INITPBIT  TIME: 00:00:00.0747  MAXIMUM NUMBER OF ASDS USED: 10.
+                          ELAPSED   TIME: 00:00:02.4211  MAXIMUM SAVE MEMORY USED: 1808.
Unisys ClearPath LX Series SYSTEMS BDMSALGOL COMPILER, VERSION 51.190.8023, SUNDAY, 06/10/2018, 09:26 AM.
+
+
+
+                          ( P A U L ) O B J E C T / M I S C / D I R I C H L E T   O N   O P S
+                          = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+
+
+                                    SOURCE TAPE:   (PAUL)SRCE/MISC/DIRICHLET ON OPS.
+
+
+                 $ SET LINEINFO                                                                 00000100  0000:0000:0  920317PK
+                % DIRICHLET PROBLEM FOR A BEAN-SHAPED REGION.  FROM P J DAVIS,                  00100100  0000:0000:0
+                % "ORTHONORMALIZING CODES IN NUMERICAL ANALYSIS" IN J TODD, --SURVEY OF         00100200  0000:0000:0
+                % NUMERICAL ANLAYSIS--, MCGRAW-HILL, 1962,  P.347. P H KIMPEL 8/15/70           00100300  0000:0000:0
+                % MODIFICATION LOG:                                                             00100320  0000:0000:0  920317PK
+                % 92/03/17  P.KIMPEL, PARADIGM CORP, SAN DIEGO, CA  92117.                      00100321  0000:0000:0  920317PK
+                %   CONVERT FOR UNISYS A-SERIES MCP 3.8.4.                                      00100322  0000:0000:0  920317PK
+                                                                                                00100398  0000:0000:0  920317PK
+                BEGIN                                                                           00100400  0000:0000:0
+                                                                                              BLOCK#1 IS SEGMENT 0003
+                FILE CDS (KIND=READER, DEPENDENTSPECS);                                     1   00100500  0003:0000:1  920317PK
+                                                                                           DATA LENGTH IN WORDS IS 000A
+                FILE PR (KIND=PRINTER, MAXRECSIZE=132, UNITS=CHARACTERS, MYUSE=OUT);            00100600  0003:0000:1  920317PK
+                                                                                           DATA LENGTH IN WORDS IS 000D
+                FORMAT F1 (X30,I3,2F10.3,4F10.5),                                               00100700  0003:0000:1
+                       F2 (X40,"X",X9,"Y",X9,"W",X8,"BV",X7,"CBV,",X7,"DEV"),                   00100800  0003:0000:1  920317PK
+                       FT (///X40,"PROCESSOR TIME: ", F6.2," SEC");                             00100900  0003:0000:1  920317PK
+                DEFINE N = 43#,  M = 11#,  P = 11#,  N1 = 42#,  M1 = 10#,  P1 = 10#;            00101000  0003:0000:1
+                LABEL QUIT;                                                                     00101100  0003:0000:1
+                INTEGER I, J;                                                                   00101200  0003:0000:1
+                REAL SUM, GMDT;                                                                 00101300  0003:0000:1
+                ARRAY                                                                           00101400  0003:0000:1
+                  X,                      % ABSCISSA VALUES.                                    00101500  0003:0000:1
+                  Y,                      % ORDINATE VALUES.                                    00101600  0003:0000:1
+                  W,                      % WEIGHTS.                                            00101700  0003:0000:1
+                  CBV[0:N1],              % BOUNDARY VALUES CALCULATED FROM ORTHO COEFS.        00101800  0003:0000:1
+                  BV[0:0, 0:N1+P],        % GIVEN BOUNDARY VALUES.                              00101900  0003:0004:4
+                  Z[0:M1, 0:N1+P],        % APPROXIMATING VECTORS.                              00102000  0003:000A:3
+                  ORTHV[0:M, 0:N1+P],     % ORTHONORMAL VECTORS RETURNED BY "ORTHO"             00102100  0003:0010:3
+                  DEV[0:0, 0:N1],         % DEVIATIONS.                                         00102200  0003:0016:3
+                  COF[0:0, 0:P1],         % COEFFICIENTS.                                       00102300  0003:001C:3
+                  STD[0:0],               % STANDARD DEVIATION.                                 00102400  0003:0022:3
+                  CV[0:P, 0:P1],          % COVARIANCE MATRIX.                                  00102500  0003:0022:3
+                  VCV[0:0, 0:P, 0:P1],    % VARIANCE/COVARIANCE MATRIX.                         00102600  0003:0028:3
+                  Q[0:0, 0:M],            % FOURIER COEFFICIENTS.                               00102700  0003:0030:3
+                  Q2,                     % SQUARED FOURIER COEFFICIENTS.                       00102800  0003:0036:3
+                  E,                      % SUM OF SQUARED RESIDUALS.                           00102900  0003:0036:3
+                  EP[0:0, 0:M1],          % RESIDUALS.                                          00103000  0003:0036:3
+                  A[0:M1, 0:P1],          % LOWER TRIANGULAR MATRIX USED TO CALC CV.            00103100  0003:003D:3
+                  GF[0:M],                % GRAM FACTORS.                                       00103200  0003:0043:3
+                  ENF[0:M1];              % NORMS OF THE APPROXIMATING VECTORS.                 00103300  0003:0043:3
+                %***********************************************************************        00103400  0003:0043:3
+                PROCEDURE ORTHO (W, Y, Z, N, FN, M, P, R, AI, AUI, MUI, ZEI, X, DEV,            00103500  0003:0043:3
+                                 COF, STD, CV, VCV, GMDT, Q, Q2, E, EP, A, GF, ENF);            00103600  0003:0043:3
+                VALUE  N, M, P, R, AI, AUI, MUI, ZEI;                                           00103700  0003:0043:3
+                REAL  FN, GMDT;                                                                 00103800  0003:0043:3
+                REAL ARRAY STD, GF,  W, ENF [1];                                                00103900  0003:0043:3
+                REAL ARRAY     Y, Z, X, DEV, COF, CV, Q, Q2, E, EP, A [1, 1];                   00104000  0003:0043:3
+                REAL ARRAY VCV [1, 1, 1];                                                       00104100  0003:0043:3
+                INTEGER  N, M, P, R, AI, AUI, ZEI, MUI;                                         00104200  0003:0043:3
+                COMMENT                                                                         00104300  0003:0043:3
+                          ORTHO    IS TAKEN FROM ACM ALGORITHM 127 [COMM. ACM, VOL.5,           00104400  0003:0043:3
+                                 OCTOBER 1962, P. 511, AUTHOR: PHILIP J. WALSH];                00104500  0003:0043:3
+                BEGIN                                                                           00104600  0003:0043:3
+                INTEGER  NPP, NPM, M1, N2, M2, R1, RBAR, P2, BEI, RHI, I18, GAI, SII, I,        00104700  0003:0043:3
+                                                                                                ORTHO IS SEGMENT 0006
+                                 J, DEI, NUI, E1Z2, E1Z1, K, THI, ALI, OMI, NII;            2   00104800  0006:0000:1
+                REAL ARRAY  PK, XP [1:N+P], QK[1:M+1];                                          00104900  0006:0000:1
+                REAL DENOM, SUM, DK2, DK, FI, SS, SSQ;                                          00105000  0006:0007:3
+                LABEL   BOX1, AT1, AT2, BOX2, AU1, AU2, BOX3, BOX4, BOX5, BOX6, MU1,            00105100  0006:0007:3
+                      MU2, BOX7, OM1, OM2, BOX8, DE1, BOX8A, BOX8B, DE2, BOX8C, BOX8D,          00105200  0006:0007:3
+                      BOX9, TH1, TH2, TH3, BOX10, AL1, AL2, BOX11, NU1, NU2, BOX12,             00105300  0006:0007:3
+                      BE1, BE2, BOX13, GA1, GA2, BOX14, RH1, ZE1, ZE2, RH2, SI1, SI2,           00105400  0006:0007:3
+                      FINAL;                                                                    00105500  0006:0007:3
+                SWITCH AT := AT1, AT2;    SWITCH ZE := ZE1, ZE2;                                00105600  0006:0007:3
+                SWITCH AU := AU1, AU2;    SWITCH MU := MU1, MU2;                                00105700  0006:0007:3
+                SWITCH  BE := BE1, BE2;  SWITCH  RH := RH1, RH2;  SWITCH GA := GA1, GA2;        00105800  0006:0007:3
+                SWITCH  SI := SI1, SI2;  SWITCH  DE := DE1, DE2;  SWITCH  NU := NU1, NU2        00105900  0006:0007:3
+                ;                                                                               00106000  0006:0007:3
+                SWITCH  TH := TH1, TH2, TH3;  SWITCH AL := AL1, AL2;                            00106100  0006:0007:3
+                SWITCH  OM := OM1, OM2;                                                         00106200  0006:0007:3
+                      NPP := N+P; NPM := N+M; M1 := M-1; N2 := N+1; M2 := M+1;                  00106300  0006:0007:3
+                          R1 := 0; RBAR := R; P2 := P+1; DENOM := IF N=M THEN 1.0               00106400  0006:000E:3
+                                 ELSE SQRT(N-M);  BEI := RHI := I18 := 1;                       00106500  0006:0012:1
+                      IF (P NEQ 0) THEN GAI := SII := 2  ELSE  GAI := SII := 1;                 00106600  0006:0017:5
+                BOX1:            GO TO AT[AI];                                                  00106700  0006:001C:0
+                      AT1:       FOR J := 1 STEP 1 UNTIL N DO BEGIN                             00106800  0006:0020:3
+                                 X[2,J] := Z[1,J];  X[1,J] := 1.0 END;                      3   00106900  0006:0021:1
+                                 FOR I := 2 STEP 1 UNTIL M1 DO BEGIN                        3   00107000  0006:0029:1
+                                 FOR J := 1 STEP 1 UNTIL N DO                               3   00107100  0006:002A:0
+                                 X[I+1,J] := X[I,J] * X[2,J]  END;   GO TO BOX2;                00107200  0006:002A:4
+                      AT2:       FOR I := 1 STEP 1 UNTIL M DO BEGIN                         3   00107300  0006:0035:4
+                                 FOR J := 1 STEP 1 UNTIL N DO                               3   00107400  0006:0036:2
+                                 X[I,J] := Z[I,J]  END;                                         00107500  0006:0037:0
+                BOX2:            IF P = 0 THEN GO TO BOX3  ELSE  GO TO AU[AUI];             3   00107600  0006:003F:3
+                      AU1:       FOR I := 1 STEP 1 UNTIL M DO BEGIN                             00107700  0006:0045:0
+                                 FOR J := N2 STEP 1 UNTIL NPP DO                            3   00107800  0006:0045:4
+                                 X[I,J] := 0.0;  X[I,N+I] := 1.0  END;  GO TO BOX3;             00107900  0006:0046:3
+                      AU2:       FOR I := 1 STEP 1 UNTIL M DO BEGIN                         3   00108000  0006:0051:2
+                                 FOR J := N2 STEP 1 UNTIL NPP DO                            3   00108100  0006:0052:0
+                                 X[I,J] := Z[I,J]  END;                                         00108200  0006:0052:5
+                BOX3:            DEI := NUI := E1Z1 := E1Z2 := K := 1;                      3   00108300  0006:005B:2
+                BOX4:            THI := 1;                                                      00108400  0006:005E:0
+                BOX5:            ALI := OMI := 1;  IF P = 0 THEN GO TO BOX6  ELSE               00108500  0006:005E:4
+                                 FOR J := 1 STEP 1 UNTIL P DO PK[N+J] := 0.0;                   00108600  0006:0061:0
+                BOX6:            GO TO MU[MUI];                                                 00108700  0006:0065:5
+                      MU1:       FOR I := 1 STEP 1 UNTIL N DO PK[I] := X[K,I];                  00108800  0006:006A:3
+                                 GO TO BOX7;                                                    00108900  0006:0070:4
+                      MU2:       FOR I := 1 STEP 1 UNTIL N DO                                   00109000  0006:0071:1
+                                 PK[I] := X[K,I] * W[I];   GO TO BOX7;                          00109100  0006:0071:5
+                BOX7:            GO TO OM[OMI];                                                 00109200  0006:0079:1
+                      OM1:       FOR I := 1 STEP 1 UNTIL K DO BEGIN SUM := 0.0;                 00109300  0006:007D:3
+                                 FOR J := 1 STEP 1 UNTIL NPP DO                             3   00109400  0006:007E:5
+                                 SUM := SUM + PK[J] * X[I,J];  QK[I] := SUM END;                00109500  0006:007F:3
+                                 GO TO BOX8;                                                3   00109600  0006:0089:5
+                      OM2:       DK2 := 0.0;  FOR I := 1 STEP 1 UNTIL NPP DO                    00109700  0006:008A:2
+                                 DK2 := DK2 + PK[I] * X[K,I];                                   00109800  0006:008B:4
+                                 DK := SQRT(DK2);                                               00109900  0006:0092:1
+                                 GF[I18] := DK;   I18 := I18 + 1;                               00110000  0006:0093:4
+                                 FOR I := 1 STEP 1 UNTIL NPP DO                                 00110100  0006:0096:4
+                                 X[K,I] := X[K,I]/DK;;                                          00110200  0006:0097:2
+                                 OMI := 1;    GO TO BOX6;                                       00110300  0006:009E:1
+                BOX8:            GO TO DE[DEI];                                                 00110400  0006:009F:2
+                      DE1:       E1Z1 := -E1Z1;   IF E1Z1 < 0 THEN GO TO BOX8B   ELSE           00110500  0006:00A4:0
+                                 GO TO BOX8A;                                                   00110600  0006:00A5:5
+                BOX8A:           FOR I := 1 STEP 1 UNTIL K-1 DO                                 00110700  0006:00A6:2
+                                 QK[I] := -QK[I];   QK[K] := 1.0;                               00110800  0006:00A8:2
+                                 FOR I := 1 STEP 1 UNTIL NPP DO BEGIN                           00110900  0006:00AE:3
+                                 SUM := 0.0;  FOR J := 1 STEP 1 UNTIL K DO                  3   00111000  0006:00AF:1
+                                 SUM := SUM + X[J,I] * QK[J];                                   00111100  0006:00B0:3
+                                 XP[I] := SUM END;  GO TO BOX9;                                 00111200  0006:00B7:0
+                BOX8B:           ENF[I18] := SQRT(QK[K]);   GO TO BOX8A;                    3   00111300  0006:00BB:2
+                      DE2:       E1Z2 := -E1Z2;  IF E1Z2 < 0 THEN GO TO BOX8C  ELSE             00111400  0006:00BF:0
+                                 GO TO BOX8A;                                                   00111500  0006:00C0:5
+                BOX8C:           FOR I := 1 STEP 1 UNTIL M DO BEGIN                             00111600  0006:00C1:2
+                                 Q[R1,I] := QK[I];  Q2[R1,I] := QK[I] * QK[I]  END;         3   00111700  0006:00C2:0
+                                 Q[R1,M2] := QK[M2];  E[R1,1] := Q[R1,M2] - Q2[R1,1];       3   00111800  0006:00CC:1
+                                 FOR J := 2 STEP 1 UNTIL M DO                                   00111900  0006:00D4:5
+                                 E[R1,J] := E[R1,J-1] - Q2[R1,J];                               00112000  0006:00D5:4
+                                 FI := 1.0;                                                     00112100  0006:00DE:3
+                                 FOR I := 1 STEP 1 UNTIL M DO BEGIN                             00112200  0006:00E0:0
+                                 IF (FN - FI) > 0.0 THEN BEGIN IF E[R1,I] < 0.0 THEN        3   00112300  0006:00E0:4
+                                 BEGIN EP[R1,I] := -SQRT(ABS(E[R1,I])/(FN - FI));           4   00112400  0006:00E4:4
+                                 GO TO BOX8D;    END                                        5   00112500  0006:00EB:3
+                                 ELSE  EP[R1,I] := SQRT(E[R1,I]/(FN - FI));                 5   00112600  0006:00EC:0
+                                 GO TO BOX8D;  END  ELSE  E[R1,I] := -1.0;                      00112700  0006:00F2:2
+                BOX8D:           FI := FI + 1.0;   END;   GO TO BOX8A;                      4   00112800  0006:00F6:3
+                BOX9:            GO TO TH[THI];                                             3   00112900  0006:00FB:1
+                      TH1:       FOR I := 1 STEP 1 UNTIL NPP DO                                 00113000  0006:0100:0
+                                 X[K,I] := XP[I];  GO TO BOX10;                                 00113100  0006:0100:4
+                      TH2:       FOR I := 1 STEP 1 UNTIL N DO                                   00113200  0006:0106:4
+                                 DEV[R1,I] := XP[I];                                            00113300  0006:0107:2
+                                 FOR I := 1 STEP 1 UNTIL P DO                                   00113400  0006:010C:5
+                                 COF[R1,I] := -XP[N+I];  THI := 3;  GO TO TH1;                  00113500  0006:010D:3
+                      TH3:       GO TO BOX11;                                                   00113600  0006:0115:0
+                BOX10:           GO TO AL[ALI];                                                 00113700  0006:0115:3
+                      AL1:       OMI := ALI := 2;  GO TO BOX6;                                  00113800  0006:011A:0
+                      AL2:       IF K < M THEN BEGIN K := K + 1;  GO TO BOX4;  END              00113900  0006:011B:5
+                                 ELSE  GO TO BOX12;                                         3   00114000  0006:011F:0
+                BOX11:           GO TO NU[NUI];                                                 00114100  0006:011F:0
+                      NU1:       NUI := 2;  GO TO BOX14;                                        00114200  0006:0123:3
+                      NU2:       SS := DK/DENOM;  SSQ := SS * SS;                               00114300  0006:0124:5
+                                 STD[R1] := SS;  GO TO BOX14;                                   00114400  0006:0127:0
+                BOX12:           GO TO BE[BEI];                                                 00114500  0006:0129:1
+                      BE1:       FOR I := 1 STEP 1 UNTIL M DO BEGIN                             00114600  0006:012D:3
+                                 FOR J := 1 STEP 1 UNTIL P DO                               3   00114700  0006:012E:1
+                                 A[I,J] := X[I,N+J]  END;                                       00114800  0006:012E:5
+                                 GMDT := 1.0;  FOR I := 1 STEP 1 UNTIL M DO                 3   00114900  0006:0137:5
+                                 GMDT := GMDT * (GF[I]/ENF[I]);                                 00115000  0006:013A:1
+                                 GMDT := GMDT * GMDT;  DEI := BEI := THI := 2;                  00115100  0006:0140:0
+                                 K := K + 1;       GO TO BOX13;                                 00115200  0006:0143:2
+                      BE2:       GO TO BOX11;                                                   00115300  0006:0145:1
+                BOX13:           GO TO GA[GAI];                                                 00115400  0006:0145:4
+                      GA1:       GO TO BOX11;                                                   00115500  0006:014A:0
+                      GA2:       FOR I := 1 STEP 1 UNTIL P DO BEGIN                             00115600  0006:014A:3
+                                 FOR J := I STEP 1 UNTIL P DO BEGIN                         3   00115700  0006:014B:1
+                                 SUM := 0.0;                                                4   00115800  0006:014C:0
+                                 FOR NII := 1 STEP 1 UNTIL M DO                                 00115900  0006:014C:4
+                                 SUM := SUM + A[NII,I] * A[NII,J];                              00116000  0006:014D:2
+                                 CV[I,J] := SUM  END  END;                                      00116100  0006:0154:4
+                                 FOR I := 1 STEP 1 UNTIL P DO                               3   00116200  0006:015B:3
+                                 CV[P2,I] := SQRT(CV[I,I]);  GAI := 1;  GO TO BOX11;            00116300  0006:015C:1
+                BOX14:           GO TO RH[RHI];                                                 00116400  0006:0164:2
+                      RH1:       IF RBAR = 0 THEN GO TO FINAL  ELSE  RBAR := RBAR - 1;          00116500  0006:0169:0
+                                 R1 := R1 + 1;  THI := RHI := 2;  GO TO ZE[ZEI];                00116600  0006:016B:3
+                      ZE1:       FOR I := 1 STEP 1 UNTIL N DO                                   00116700  0006:0172:3
+                                 X[M2,I] := Y[R1,I];                                            00116800  0006:0173:1
+                                 FOR I := 1 STEP 1 UNTIL P DO                                   00116900  0006:0179:3
+                                 X[M2,N+I] := 0.0;  GO TO BOX5;                                 00117000  0006:017A:1
+                      ZE2:       FOR I := 1 STEP 1 UNTIL NPP DO                                 00117100  0006:017F:4
+                                 X[M2,I] := Y[R1,I];   GO TO BOX5;                              00117200  0006:0180:2
+                      RH2:       GO TO SI[SII];                                                 00117300  0006:0187:1
+                      SI1:       GO TO RH1;                                                     00117400  0006:018B:3
+                      SI2:       FOR I := 1 STEP 1 UNTIL P DO BEGIN                             00117500  0006:018C:0
+                                 FOR J := I STEP 1 UNTIL P DO                               3   00117600  0006:018C:4
+                                 VCV[R1,I,J] := SSQ * CV[I,J]  END;                             00117700  0006:018D:3
+                                 FOR I := 1 STEP 1 UNTIL P DO                               3   00117800  0006:0197:2
+                                 VCV[R1, P2, I] := SS * CV[P2,I];  GO TO RH1;                   00117900  0006:0198:0
+                FINAL:  END  ORTHO ;                                                            00118000  0006:01A0:1
+                                                                                    ORTHO(0006) LENGTH IN WORDS IS 01A9
+                %***********************************************************************    2   00118100  0003:0043:3
+                REAL PROCEDURE G (I, X, Y);                                                     00118200  0003:0043:3
+                  VALUE I, X, Y;   REAL X, Y;   INTEGER I;                                      00118300  0003:0043:3
+                  CASE (I - 1) OF                                                               00118400  0003:0043:3
+                    BEGIN                                                                       00118500  0003:0044:5
+                      G := 1;                                                        % 1    2   00118600  0003:0044:5
+                      G := X;                                                        % 2        00118700  0003:0049:3
+                      G := Y;                                                        % 3        00118800  0003:004A:5
+                      G := X**2 - Y**2;                                              % 4        00118900  0003:004C:1
+                      G := 2.0 * X * Y;                                              % 5        00119000  0003:004E:4
+                      G := X**3 - 3.0 * X * Y**2;                                    % 6        00119100  0003:0051:4
+                      G := 3.0 * X**2 * Y - Y**3;                                    % 7        00119200  0003:0056:1
+                      G := X**4 + Y**4 - 6.0 * X**2 * Y**2;                          % 8        00119300  0003:005A:4
+                      G := 4.0 * X**3 * Y - 4.0 * X * Y**3;                          % 9        00119400  0003:0060:4
+                      G := X**5 - 10.0 * X**3 * Y**2 + 5.0 * X * Y**4;               %10        00119500  0003:0066:5
+                      G := Y**5 - 10.0 * Y**3 * X**2 + 5.0 * Y * X**4;               %11        00119600  0003:006F:1
+                      G := X**6 - 15.0 * X**4 * Y**2 + 15.0 * X**2 * Y**4 - Y**6;    %12        00119700  0003:0077:3
+                      G := 6.0 * X**5 * Y + 6.0 * X * Y**5 - 20.0 * X**3 * Y**3;     %13        00119800  0003:0081:4
+                      G := X**7 - 21.0 *X**5 * Y**2 + 35.0 * X**3 * Y**4  - 7.0 * X *%14        00119900  0003:008C:2
+                      Y**6;                                                                     00120000  0003:0096:0
+                      G := 7.0 *X**6 * Y - 35.0 * X**4 * Y**3 + 21.0 * X**2 * Y**5 - %15        00120100  0003:0099:1
+                      Y**7;                                                                     00120200  0003:00A3:1
+                      G := X**8 + Y**8 - 28.0 *X**6 * Y**2 + 70.0 * X**4 * Y**4 - 28.0          00120300  0003:00A6:0
+                              * X**2 * Y**6;                                         %16        00120400  0003:00AF:5
+                      G := 8.0 * X**7 *Y - 56.0 * X**5 * Y**3 + 56.0 * X**3 * Y**5              00120500  0003:00B4:2
+                              - 8.0 *X * Y**7;                                       %17        00120600  0003:00BE:0
+                  END G;                                                                        00120700  0003:00C3:5
+                FOR I := 0 STEP 1 UNTIL N1 DO                                               2   00120800  0003:00CF:0
+                  BEGIN                                                                         00120900  0003:00CF:4
+                    READ (CDS,  /, X[I], Y[I], W[I]);                                       2   00121000  0003:00CF:4
+                    BV[0,I] := EXP(X[I]) * COS(Y[I]) + LN((1 - Y[I])**2 + X[I]**2);             00121100  0003:00E0:4
+                    FOR J := 0 STEP 1 UNTIL M1 DO                                               00121200  0003:00E8:5
+                        Z[J,I] := G(J+1, X[I], Y[I]);                                           00121300  0003:00E9:3
+                  END;                                                                          00121400  0003:00F0:2
+                CLOSE (CDS);                                                                2   00121500  0003:00F2:3
+                ORTHO (W, BV, Z, N , N , M , P,  1, 2, 1, 2, 1, ORTHV, DEV, COF, STD,           00121600  0003:00F7:5
+                          CV, VCV, GMDT, Q, Q2, E, EP, A, GF, ENF);                             00121700  0003:00FF:3
+                FOR I := 0 STEP 1 UNTIL N1 DO                                                   00121800  0003:0104:4
+                  BEGIN  SUM := 0;                                                              00121900  0003:0105:2
+                    FOR J:=0 STEP 1 UNTIL M1 DO  SUM := SUM + COF[0,J]*G(J+1, X[I], Y[I]    2   00122000  0003:0106:0
+                    );                                                                          00122100  0003:010B:0
+                    CBV[I] := SUM;                                                              00122200  0003:010E:2
+                  END;                                                                          00122300  0003:010F:4
+                WRITE (PR[SPACE 2], F2);                                                    2   00122400  0003:0111:5
+                WRITE (PR, F1, FOR I := 0 STEP 1 UNTIL N1 DO [I,X[I],Y[I],W[I], BV[0,I],        00122500  0003:0117:4
+                                 CBV[I], (CBV[I]-BV[0,I])]);                                    00122600  0003:0125:4
+                WRITE (PR, FT, TIME(2)/60);                                                     00122700  0003:0130:4
+                QUIT:                                                                           00122800  0003:0139:4
+                BEGIN                                                                           00122900  0003:0139:4
+                    COMMENT INNER BLOCK;                                                    2   00123000  0003:0139:4
+                %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%        00123100  0003:0139:4
+                PROCEDURE DUMP (NAME, ROW);                                                     00123200  0003:0139:4
+                                                                                              BLOCK#2 IS SEGMENT 0012
+                    VALUE NAME;                                                                 00123300  0012:0000:1
+                    ALPHA NAME;                                                                 00123400  0012:0000:1
+                    ARRAY ROW[0];                                                               00123500  0012:0000:1
+                    BEGIN                                                                       00123600  0012:0000:1
+                    REAL                                                                        00123700  0012:0000:1
+                    I,                                                                          00123800  0012:0000:1
+                                                                                                 DUMP IS SEGMENT 0013
+                    SZ;                                                                     3   00123900  0013:0000:1
+                FORMAT                                                                          00124000  0013:0000:1
+                    F (A6," = ",/*(6E20.11,/));                                                 00124100  0013:0000:1  920317PK
+                    SZ := SIZE(ROW);                                                            00124200  0013:0000:1
+                    WRITE (PR[SPACE 4]);                                                        00124300  0013:0001:4
+                    WRITE (PR, F, NAME, (SZ+5)DIV 6, ROW[*]);                                   00124400  0013:0008:2
+                    END DUMP;                                                                   00124500  0013:0015:4
+                                                                                     DUMP(0013) LENGTH IN WORDS IS 001A
+                %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%    3   00124600  0012:0000:1
+                ARRAY NR[0:99];                                                                 00124700  0012:0000:1
+                FOR I := 0 STEP 1 UNTIL 99 DO                                                   00124800  0012:0000:1
+                    REPLACE POINTER(NR[I],8)+4 BY I FOR 2 DIGITS;                               00124900  0012:0000:5
+                                                                                                00125000  0012:0006:0
+                DUMP ("X     ", X);                                                             00125100  0012:0006:0
+                DUMP ("Y     ", Y);                                                             00125200  0012:0008:4
+                DUMP ("W     ", W);                                                             00125300  0012:000B:4
+                DUMP ("CBV   ", CBV);                                                           00125400  0012:000E:4
+                DUMP ("BV    ", BV[0,*]);                                                       00125500  0012:0011:4
+                FOR I := 0 STEP 1 UNTIL M1 DO                                                   00125600  0012:0014:5
+                    BEGIN                                                                       00125700  0012:0015:3
+                    SUM := "Z     " & NR[I] [15:16];                                        3   00125800  0012:0015:3
+                    DUMP (SUM, Z[I,*]);                                                         00125900  0012:0018:5
+                    END;                                                                        00126000  0012:001A:4
+                FOR I := 0 STEP 1 UNTIL M DO                                                3   00126100  0012:001C:5
+                    BEGIN                                                                       00126200  0012:001D:3
+                    SUM := "ORTHV " & NR[I] [15:16];                                        3   00126300  0012:001D:3
+                    DUMP (SUM, ORTHV[I,*]);                                                     00126400  0012:0020:5
+                    END;                                                                        00126500  0012:0022:4
+                DUMP ("DEV   ", DEV[0,*]);                                                  3   00126600  0012:0024:5
+                DUMP ("COF   ", COF[0,*]);                                                      00126700  0012:0027:5
+                DUMP ("STD   ", STD);                                                           00126800  0012:002A:5
+                FOR I := 0 STEP 1 UNTIL P DO                                                    00126900  0012:002D:4
+                    BEGIN                                                                       00127000  0012:002E:2
+                    SUM := "CV    " & NR[I] [15:16];                                        3   00127100  0012:002E:2
+                    DUMP (SUM, CV[I,*]);                                                        00127200  0012:0031:5
+                    END;                                                                        00127300  0012:0033:4
+                FOR I := 0 STEP 1 UNTIL P DO                                                3   00127400  0012:0035:5
+                    BEGIN                                                                       00127500  0012:0036:3
+                    SUM := "VCV   " & NR[I] [15:16];                                        3   00127600  0012:0036:3
+                    DUMP (SUM, VCV[0,I,*]);                                                     00127700  0012:0039:5
+                    END;                                                                        00127800  0012:003C:0
+                DUMP ("EP    ", EP[0,*]);                                                   3   00127900  0012:003E:1
+                FOR I := 0 STEP 1 UNTIL M1 DO                                                   00128000  0012:0040:5
+                    BEGIN                                                                       00128100  0012:0041:3
+                    SUM := "A     " & NR[I] [15:16];                                        3   00128200  0012:0041:3
+                    DUMP (SUM, A[I,*]);                                                         00128300  0012:0044:5
+                    END;                                                                        00128400  0012:0046:4
+                DUMP ("GF    ", GF);                                                        3   00128500  0012:0048:5
+                DUMP ("Q     ", Q[0,*]);                                                        00128600  0012:004B:4
+                DUMP ("Q2    ", Q2[0,*]);                                                       00128700  0012:004E:5
+                DUMP ("E     ", E[0,*]);                                                        00128800  0012:0051:5
+                DUMP ("ENF   ", ENF);                                                           00128900  0012:0054:5
+                END INNER BLOCK;                                                                00129000  0012:0057:4
+                                                                                  BLOCK#2(0012) LENGTH IN WORDS IS 005F
+                  END.                                                                      2   00129100  0003:013A:2
+                                                                                  BLOCK#1(0003) LENGTH IN WORDS IS 0159
+                                                                                           DATA LENGTH IN WORDS IS 002F
+====================================================================================================================================
+NUMBER OF ERRORS DETECTED = 0.
+NUMBER OF SEGMENTS = 18.  TOTAL SEGMENT SIZE = 961 WORDS.  CORE ESTIMATE = 3053 WORDS.  STACK ESTIMATE = 96
+PROGRAM SIZE = 296 CARDS, 3419 SYNTACTIC ITEMS, 92 DISK SECTORS.
+PROGRAM FILE NAME:  OBJECT/MISC/DIRICHLET ON DISK.
+SOURCE TAPE:  (PAUL)SRCE/MISC/DIRICHLET ON OPS.
+COMPILATION TIME = 0.894 SECONDS ELAPSED;  0.629 SECONDS PROCESSING;  0.120 SECONDS I/O.
+ACCIDENTAL ENTRIES GENERATED FOR PARAMETER PASSING = 1, LAST AT SEQUENCE   121600
+====================================================================================================================================
                                        X         Y         W        BV       CBV,       DEV
+
+                                0     0.000     0.110   0.01414   0.76089   0.76399   0.00310
+                                1    -0.050     0.108   0.01427   0.72025   0.72348   0.00323
+                                2    -0.100     0.115   0.01963   0.66721   0.67049   0.00327
+                                3    -0.160     0.150   0.02300   0.55236   0.55576   0.00340
+                                4    -0.220     0.205   0.03897   0.40068   0.40386   0.00319
+                                5    -0.320     0.300   0.02792   0.17014   0.17015   0.00001
+                                6    -0.400     0.358   0.03324   0.06949   0.06500  -0.00449
+                                7    -0.500     0.420   0.01483   0.02006   0.01360  -0.00647
+                                8    -0.550     0.436   0.01423   0.04590   0.04344  -0.00246
+                                9    -0.600     0.430   0.01505   0.12037   0.12444   0.00408
+                               10    -0.644     0.400   0.01483   0.22850   0.23541   0.00691
+                               11    -0.660     0.350   0.01420   0.33248   0.33513   0.00265
+                               12    -0.655     0.300   0.02881   0.41180   0.41041  -0.00139
+                               13    -0.635     0.200   0.03043   0.56169   0.55792  -0.00377
+                               14    -0.595     0.100   0.03076   0.70069   0.69969  -0.00100
+                               15    -0.552     0.000   0.03311   0.84177   0.84369   0.00192
+                               16    -0.500    -0.105   0.03175   0.98915   0.99146   0.00231
+                               17    -0.440    -0.200   0.01809   1.12198   1.12185  -0.00013
+                               18    -0.400    -0.250   0.01998   1.19326   1.19145  -0.00181
+                               19    -0.350    -0.300   0.01882   1.26792   1.26504  -0.00288
+                               20    -0.300    -0.344   0.03140   1.33734   1.33459  -0.00275
+                               21    -0.204    -0.400   0.03450   1.44505   1.44501  -0.00003
+                               22    -0.100    -0.436   0.02846   1.54875   1.55126   0.00251
+                               23     0.000    -0.448   0.02831   1.64168   1.64342   0.00174
+                               24     0.100    -0.442   0.03860   1.73582   1.73434  -0.00148
+                               25     0.230    -0.400   0.02431   1.85882   1.85513  -0.00370
+                               26     0.300    -0.350   0.02059   1.91643   1.91502  -0.00141
+                               27     0.353    -0.300   0.03566   1.95563   1.95689   0.00126
+                               28     0.430    -0.200   0.03122   1.99206   1.99507   0.00301
+                               29     0.477    -0.100   0.02975   1.96611   1.96579  -0.00032
+                               30     0.510     0.000   0.02846   1.89648   1.89241  -0.00407
+                               31     0.522     0.100   0.01696   1.75623   1.75328  -0.00295
+                               32     0.520     0.160   0.02330   1.63625   1.63683   0.00058
+                               33     0.500     0.240   0.02102   1.41224   1.41798   0.00574
+                               34     0.456     0.300   0.01795   1.14765   1.15160   0.00394
+                               35     0.400     0.330   0.01147   0.91523   0.91269  -0.00254
+                               36     0.360     0.337   0.01762   0.78913   0.78354  -0.00559
+                               37     0.300     0.320   0.01648   0.68785   0.68274  -0.00511
+                               38     0.250     0.290   0.01901   0.66231   0.65991  -0.00239
+                               39     0.300     0.245   0.01901   0.89407   0.89251  -0.00156
+                               40     0.150     0.200   0.01809   0.72694   0.72885   0.00191
+                               41     0.100     0.160   0.01677   0.75642   0.75909   0.00267
+                               42     0.050     0.128   0.01501   0.77202   0.77499   0.00297
+
+
+
+                                        PROCESSOR TIME:   0.25 SEC
+
+
+
+
+X      =
+   0.                 -5.00000000000E-02  -1.00000000000E-01  -1.60000000000E-01  -2.19999999999E-01  -3.20000000000E-01
+  -4.00000000000E-01  -5.00000000000E-01  -5.49999999999E-01  -6.00000000000E-01  -6.44000000000E-01  -6.60000000000E-01
+  -6.55000000001E-01  -6.35000000000E-01  -5.94999999999E-01  -5.52000000000E-01  -5.00000000000E-01  -4.40000000001E-01
+  -4.00000000000E-01  -3.50000000000E-01  -2.99999999999E-01  -2.04000000000E-01  -1.00000000000E-01   0.
+   1.00000000000E-01   2.30000000000E-01   2.99999999999E-01   3.52999999999E-01   4.30000000000E-01   4.77000000001E-01
+   5.10000000000E-01   5.22000000001E-01   5.20000000000E-01   5.00000000000E-01   4.56000000000E-01   4.00000000000E-01
+   3.60000000001E-01   2.99999999999E-01   2.50000000000E-01   2.99999999999E-01   1.50000000000E-01   1.00000000000E-01
+   5.00000000000E-02
+
+
+
+
+Y      =
+   1.10000000000E-01   1.08000000000E-01   1.15000000000E-01   1.50000000000E-01   2.05000000000E-01   2.99999999999E-01
+   3.58000000000E-01   4.20000000000E-01   4.36000000000E-01   4.30000000000E-01   4.00000000000E-01   3.50000000000E-01
+   2.99999999999E-01   2.00000000001E-01   1.00000000000E-01   0.                 -1.05000000000E-01  -2.00000000001E-01
+  -2.50000000000E-01  -2.99999999999E-01  -3.43999999999E-01  -4.00000000000E-01  -4.36000000000E-01  -4.48000000000E-01
+  -4.41999999999E-01  -4.00000000000E-01  -3.50000000000E-01  -2.99999999999E-01  -2.00000000001E-01  -1.00000000000E-01
+   0.                  1.00000000000E-01   1.60000000000E-01   2.40000000000E-01   2.99999999999E-01   3.30000000000E-01
+   3.37000000000E-01   3.20000000000E-01   2.90000000001E-01   2.45000000001E-01   2.00000000001E-01   1.60000000000E-01
+   1.28000000001E-01
+
+
+
+
+W      =
+   1.41400000000E-02   1.42700000000E-02   1.96300000000E-02   2.29999999999E-02   3.89700000001E-02   2.79200000000E-02
+   3.32400000000E-02   1.48300000000E-02   1.42300000000E-02   1.50500000000E-02   1.48300000000E-02   1.42000000000E-02
+   2.88100000000E-02   3.04300000000E-02   3.07600000001E-02   3.31100000001E-02   3.17500000001E-02   1.80900000000E-02
+   1.99800000000E-02   1.88200000000E-02   3.14000000001E-02   3.45000000000E-02   2.84600000000E-02   2.83099999999E-02
+   3.86000000001E-02   2.43100000000E-02   2.05900000001E-02   3.56600000000E-02   3.12200000001E-02   2.97499999999E-02
+   2.84600000000E-02   1.69599999999E-02   2.33000000001E-02   2.10199999999E-02   1.79499999999E-02   1.14700000000E-02
+   1.76200000001E-02   1.64800000000E-02   1.90100000000E-02   1.90100000000E-02   1.80900000000E-02   1.67700000000E-02
+   1.50100000000E-02
+
+
+
+
+CBV    =
+   7.63990857004E-01   7.23476999556E-01   6.70486515621E-01   5.55760515688E-01   4.03864157241E-01   1.70153235251E-01
+   6.50036131635E-02   1.35969111799E-02   4.34406209927E-02   1.24443888182E-01   2.35411546886E-01   3.35127952263E-01
+   4.10409228183E-01   5.57922404119E-01   6.99692526170E-01   8.43691658119E-01   9.91455364503E-01   1.12185181366E+00
+   1.19145281421E+00   1.26504184521E+00   1.33459251738E+00   1.44501061816E+00   1.55125970980E+00   1.64342354801E+00
+   1.73434400867E+00   1.85512612470E+00   1.91501751200E+00   1.95689478869E+00   1.99507156912E+00   1.96578820440E+00
+   1.89241116472E+00   1.75328349824E+00   1.63683157066E+00   1.41798014336E+00   1.15159624467E+00   9.12686299549E-01
+   7.83542953752E-01   6.82743770107E-01   6.59913937641E-01   8.92513136025E-01   7.28852845617E-01   7.59094650353E-01
+   7.74988822253E-01
+
+
+
+
+BV     =
+   7.60888465444E-01   7.20246055773E-01   6.67212406801E-01   5.52356512671E-01   4.00677168387E-01   1.70143475074E-01
+   6.94918044683E-02   2.00633089353E-02   4.59001323634E-02   1.20368543456E-01   2.28496737633E-01   3.32481404050E-01
+   4.11800002865E-01   5.61688937141E-01   7.00690877196E-01   8.41773259011E-01   9.89149666873E-01   1.12198473964E+00
+   1.19325814303E+00   1.26792135331E+00   1.33733963929E+00   1.44504543647E+00   1.54874888482E+00   1.64168181988E+00
+   1.73582146871E+00   1.85882384451E+00   1.91643181675E+00   1.95563019495E+00   1.99206099581E+00   1.96610965548E+00
+   1.89648227785E+00   1.75623351627E+00   1.63625089460E+00   1.41224024707E+00   1.14765460414E+00   9.15228104721E-01
+   7.89128023847E-01   6.87850932118E-01   6.62307799943E-01   8.94070846776E-01   7.26940189159E-01   7.56420955771E-01
+   7.72021544695E-01   0.                  0.                  0.                  0.                  0.
+   0.                  0.                  0.                  0.                  0.                  0.
+
+
+
+
+
+Z   00 =
+   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00
+   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00
+   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00
+   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00
+   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00
+   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00
+   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00   1.00000000000E+00
+   1.00000000000E+00   0.                  0.                  0.                  0.                  0.
+   0.                  0.                  0.                  0.                  0.                  0.
+
+
+
+
+
+Z   01 =
+   0.                 -5.00000000000E-02  -1.00000000000E-01  -1.60000000000E-01  -2.19999999999E-01  -3.20000000000E-01
+  -4.00000000000E-01  -5.00000000000E-01  -5.49999999999E-01  -6.00000000000E-01  -6.44000000000E-01  -6.60000000000E-01
+  -6.55000000001E-01  -6.35000000000E-01  -5.94999999999E-01  -5.52000000000E-01  -5.00000000000E-01  -4.40000000001E-01
+  -4.00000000000E-01  -3.50000000000E-01  -2.99999999999E-01  -2.04000000000E-01  -1.00000000000E-01   0.
+   1.00000000000E-01   2.30000000000E-01   2.99999999999E-01   3.52999999999E-01   4.30000000000E-01   4.77000000001E-01
+   5.10000000000E-01   5.22000000001E-01   5.20000000000E-01   5.00000000000E-01   4.56000000000E-01   4.00000000000E-01
+   3.60000000001E-01   2.99999999999E-01   2.50000000000E-01   2.99999999999E-01   1.50000000000E-01   1.00000000000E-01
+   5.00000000000E-02   0.                  0.                  0.                  0.                  0.
+   0.                  0.                  0.                  0.                  0.                  0.
+
+
+
+
+
+Z   02 =
+   1.10000000000E-01   1.08000000000E-01   1.15000000000E-01   1.50000000000E-01   2.05000000000E-01   2.99999999999E-01
+   3.58000000000E-01   4.20000000000E-01   4.36000000000E-01   4.30000000000E-01   4.00000000000E-01   3.50000000000E-01
+   2.99999999999E-01   2.00000000001E-01   1.00000000000E-01   0.                 -1.05000000000E-01  -2.00000000001E-01
+  -2.50000000000E-01  -2.99999999999E-01  -3.43999999999E-01  -4.00000000000E-01  -4.36000000000E-01  -4.48000000000E-01
+  -4.41999999999E-01  -4.00000000000E-01  -3.50000000000E-01  -2.99999999999E-01  -2.00000000001E-01  -1.00000000000E-01
+   0.                  1.00000000000E-01   1.60000000000E-01   2.40000000000E-01   2.99999999999E-01   3.30000000000E-01
+   3.37000000000E-01   3.20000000000E-01   2.90000000001E-01   2.45000000001E-01   2.00000000001E-01   1.60000000000E-01
+   1.28000000001E-01   0.                  0.                  0.                  0.                  0.
+   0.                  0.                  0.                  0.                  0.                  0.
+
+
+
+
+
+Z   03 =
+  -1.21000000000E-02  -9.16400000000E-03  -3.22500000001E-03   3.10000000013E-03   6.37499999971E-03   1.24000000003E-02
+   3.18360000001E-02   7.35999999997E-02   1.12404000000E-01   1.75100000000E-01   2.54736000001E-01   3.13100000001E-01
+   3.39025000001E-01   3.63224999999E-01   3.44024999999E-01   3.04704000000E-01   2.38975000000E-01   1.53600000000E-01
+   9.74999999999E-02   3.25000000007E-02  -2.83359999999E-02  -1.18384000000E-01  -1.80096000000E-01  -2.00704000001E-01
+  -1.85363999999E-01  -1.07100000000E-01  -3.25000000007E-02   3.46090000000E-02   1.44899999999E-01   2.17529000001E-01
+   2.60100000000E-01   2.62484000001E-01   2.44800000002E-01   1.92400000000E-01   1.17936000001E-01   5.10999999999E-02
+   1.60310000006E-02  -1.24000000003E-02  -2.16000000005E-02   2.99749999990E-02  -1.75000000004E-02  -1.55999999999E-02
+  -1.38840000002E-02   0.                  0.                  0.                  0.                  0.
+   0.                  0.                  0.                  0.                  0.                  0.
+
+
+
+
+
+Z   04 =
+   0.                 -1.08000000000E-02  -2.30000000001E-02  -4.79999999998E-02  -9.01999999996E-02  -1.91999999999E-01
+  -2.86399999999E-01  -4.20000000000E-01  -4.79600000002E-01  -5.16000000000E-01  -5.15200000000E-01  -4.62000000003E-01
+  -3.92999999998E-01  -2.54000000003E-01  -1.19000000000E-01   0.                  1.05000000000E-01   1.76000000001E-01
+   2.00000000001E-01   2.09999999999E-01   2.06399999999E-01   1.63199999999E-01   8.72000000002E-02   0.
+  -8.84000000001E-02  -1.83999999999E-01  -2.09999999999E-01  -2.11799999999E-01  -1.72000000000E-01  -9.54000000002E-02
+   0.                  1.04400000001E-01   1.66400000002E-01   2.40000000000E-01   2.73599999999E-01   2.63999999999E-01
+   2.42640000000E-01   1.91999999999E-01   1.45000000000E-01   1.47000000001E-01   6.00000000002E-02   3.20000000002E-02
+   1.28000000001E-02   0.                  0.                  0.                  0.                  0.
+   0.                  0.                  0.                  0.                  0.                  0.
+
+
+
+
+
+Z   05 =
+   0.                  1.62460000000E-03   2.96749999998E-03   6.70399999993E-03   1.70885000000E-02   5.36319999997E-02
+   8.97967999995E-02   1.39600000000E-01   1.47283400000E-01   1.16820000001E-01   4.20300159985E-02  -4.49460000018E-02
+  -1.04161375004E-01  -1.79847875001E-01  -1.92794874998E-01  -1.68196608000E-01  -1.08462500000E-01  -3.23839999996E-02
+   1.10000000000E-02   5.16249999996E-02   7.95023999992E-02   8.94303359996E-02   5.60287999999E-02   0.
+  -5.76091999997E-02  -9.82329999999E-02  -8.32500000001E-02  -5.13230229990E-02   2.79069999997E-02   9.42213330009E-02
+   1.32651000000E-01   1.26576648001E-01   1.00672000002E-01   3.86000000001E-02  -2.83011839992E-02  -6.66800000004E-02
+  -7.59985199995E-02  -6.51599999997E-02  -4.74500000005E-02  -2.70225000004E-02  -1.46250000001E-02  -6.67999999996E-03
+  -2.33260000005E-03   0.                  0.                  0.                  0.                  0.
+   0.                  0.                  0.                  0.                  0.                  0.
+
+
+
+
+
+Z   06 =
+  -1.33100000000E-03  -4.49712000002E-04   1.92912499999E-03   8.14499999996E-03   2.11508749999E-02   6.51599999997E-02
+   1.25957287999E-01   2.40912000001E-01   3.12788144000E-01   3.84893000000E-01   4.33683200001E-01   4.14505000002E-01
+   3.59122499998E-01   2.33935000002E-01   1.05207499999E-01   0.                 -7.75923750002E-02  -1.08160000001E-01
+  -1.04375000000E-01  -8.32499999999E-02  -5.21724159996E-02   1.40607999999E-02   6.98018560001E-02   8.99153920004E-02
+   7.30908879996E-02   5.19999999824E-04  -5.16249999996E-02  -8.51480999997E-02  -1.02940000000E-01  -6.72587000004E-02
+   0.                  8.07452000001E-02   1.25695999999E-01   1.66176000001E-01   1.60142400000E-01   1.22463000000E-01
+   9.27528469999E-02   5.36319999997E-02   2.99860000000E-02   5.14438749997E-02   5.49999999987E-03   7.04000000013E-04
+  -1.13715200003E-03   0.                  0.                  0.                  0.                  0.
+   0.                  0.                  0.                  0.                  0.                  0.
+
+
+
+
+
+Z   07 =
+   1.46409999999E-04  -3.26611039996E-05  -5.18599374999E-04  -2.29438999997E-03  -8.09539937495E-03  -3.67102399996E-02
+  -8.10114291039E-02  -1.70983040000E-01  -2.17381500785E-01  -2.35595990000E-01  -2.00540610304E-01  -1.15412390001E-01
+  -3.95110493755E-02   6.74164006243E-02   1.04192200623E-01   9.28445276161E-02   4.60840506248E-02  -7.38304000015E-03
+  -3.04937500000E-02  -4.30437499997E-02  -4.17980311036E-02  -1.26194685440E-02   2.48307292161E-02   4.02820956162E-02
+   2.65452524959E-02  -2.23855900001E-02  -4.30437499997E-02  -4.36614571186E-02  -8.58799000025E-03   3.82177058416E-02
+   6.76520099998E-02   5.79984902565E-02   3.22380800005E-02  -2.05822399998E-02  -6.09480599037E-02  -6.70847899999E-02
+  -5.86171766390E-02  -3.67102399996E-02  -2.05584400001E-02  -2.07104993751E-02  -3.29374999995E-03  -7.80639999999E-04
+   2.89254560037E-05   0.                  0.                  0.                  0.                  0.
+   0.                  0.                  0.                  0.                  0.                  0.
+
+
+
+
+
+Z   08 =
+   0.                  1.97942400002E-04   1.48350000000E-04  -2.97600000010E-04  -1.15004999995E-03  -4.76160000017E-03
+  -1.82356607997E-02  -6.18240000003E-02  -1.07817916798E-01  -1.80703200000E-01  -2.62479974401E-01  -2.89304400001E-01
+  -2.66473650003E-01  -1.84518300002E-01  -8.18779499994E-02   0.                  5.01847500000E-02   5.40672000004E-02
+   3.89999999998E-02   1.36499999999E-02  -1.16971007997E-02  -3.86405375998E-02  -3.14087424001E-02   0.
+   3.27723551998E-02   3.94127999998E-02   1.36500000001E-02  -1.46603723999E-02  -4.98456000005E-02  -4.15045332004E-02
+   0.                  5.48066592000E-02   8.14694400010E-02   9.23519999999E-02   6.45345792004E-02   2.69807999998E-02
+   7.77952368071E-03  -4.76159999994E-03  -6.26400000010E-03   8.81264999975E-03  -2.10000000001E-03  -9.98399999993E-04
+  -3.55430400010E-04   0.                  0.                  0.                  0.                  0.
+   0.                  0.                  0.                  0.                  0.                  0.
+
+
+
+
+
+Z   09 =
+   0.                 -1.97447239999E-05   3.47996874996E-05   4.11742399997E-04   2.01674811251E-03   1.31757567998E-02
+   3.89329382081E-02   1.11457600001E-01   1.66568437156E-01   2.19059970001E-01   2.34140142797E-01   1.77428717403E-01
+   1.05821832342E-01  -5.90575439620E-03  -5.38065643711E-02  -5.12501792441E-02  -1.77726265626E-02   1.40619776002E-02
+   2.19475000001E-02   1.91603125002E-02   8.51560665592E-03  -1.28818434571E-02  -1.61772846079E-02   0.
+   1.71399062478E-02   1.06164342999E-02  -8.13562499980E-03  -1.98106060830E-02  -1.36619557001E-02   1.40793923665E-02
+   3.45025250999E-02   2.47945459939E-02   3.72869119994E-03  -3.24555999998E-02  -4.71526890760E-02  -3.57375799999E-02
+  -2.37238830705E-02  -9.48935999986E-03  -3.32304999998E-03  -8.37224906249E-03  -7.40624999942E-05   8.16799999974E-05
+   4.69413640016E-05   0.                  0.                  0.                  0.                  0.
+   0.                  0.                  0.                  0.                  0.                  0.
+
+
+
+
+
+Z   10 =
+   1.61050999999E-05  -1.34245192319E-05  -7.44739281249E-05  -2.96542499999E-04  -1.40654587190E-03  -9.48935999986E-03
+  -2.17078272992E-02  -4.09008768002E-02  -3.54784801038E-02   7.11564430094E-03   8.88208593933E-02   1.50546567502E-01
+   1.62686925940E-01   1.30652400625E-01   5.91366003118E-02   0.                 -2.99312003158E-02  -2.23129600001E-02
+  -7.97656249983E-03   8.13562499980E-03   1.78876529394E-02   1.29304570882E-02  -7.68532369804E-03  -1.80463788361E-02
+  -8.45576608307E-03   1.80191800002E-02   1.91603125002E-02   7.92332567835E-03  -1.97160099999E-02  -2.36194329209E-02
+   0.                  3.44089251284E-02   4.75222016005E-02   4.12362623997E-02   1.11433501447E-02  -1.13456607000E-02
+  -1.69533600024E-02  -1.31757567998E-02  -7.52794760001E-03  -2.43027734700E-03  -9.73750000004E-04  -2.24742399998E-04
+  -1.40690616314E-05   0.                  0.                  0.                  0.                  0.
+   0.                  0.                  0.                  0.                  0.                  0.
+
+
+
+
+
+ORTH00 =
+   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01
+   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01
+   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01
+   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01
+   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01
+   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01
+   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01   9.99995000031E-01
+   9.99995000031E-01   9.99995000031E-01   0.                  0.                  0.                  0.
+   0.                  0.                  0.                  0.                  0.                  0.
+
+
+
+
+
+ORTH01 =
+   1.80914235387E-01   5.41552019811E-02  -7.26038314251E-02  -2.24714671514E-01  -3.76825511601E-01  -6.30343578414E-01
+  -8.33158031865E-01  -1.08667609867E+00  -1.21343513209E+00  -1.34019416549E+00  -1.45174211489E+00  -1.49230500558E+00
+  -1.47962910224E+00  -1.42892548887E+00  -1.32751826214E+00  -1.21850549342E+00  -1.08667609867E+00  -9.34565258593E-01
+  -8.33158031865E-01  -7.06398998460E-01  -5.79639965052E-01  -3.36262620913E-01  -7.26038314251E-02   1.80914235387E-01
+   4.34432302200E-01   7.64005789053E-01   9.41468435822E-01   1.07583301123E+00   1.27104192268E+00   1.39019541409E+00
+   1.47385637613E+00   1.50427854415E+00   1.49920818281E+00   1.44850456945E+00   1.33695662006E+00   1.19498650264E+00
+   1.09357927591E+00   9.41468435822E-01   8.14709402417E-01   9.41468435822E-01   5.61191335604E-01   4.34432302200E-01
+   3.07673268793E-01   1.80914235387E-01   2.53518066813E+00   0.                  0.                  0.
+   0.                  0.                  0.                  0.                  0.                  0.
+
+
+
+
+
+ORTH02 =
+   3.80771471710E-01   3.49866071394E-01   3.51052032460E-01   4.47322987158E-01   6.14908078258E-01   9.06102252835E-01
+   1.07487486972E+00   1.24840071924E+00   1.28167804168E+00   1.23650981409E+00   1.10861750119E+00   9.22724484444E-01
+   7.46816542096E-01   3.99755454744E-01   6.22039620546E-02  -2.73921091433E-01  -6.23595361420E-01  -9.33808725335E-01
+  -1.09307487700E+00  -1.24758623134E+00  -1.38070334475E+00  -1.53473687227E+00  -1.61365242553E+00  -1.60889293400E+00
+  -1.53995071973E+00  -1.32837866792E+00  -1.11680974557E+00  -9.13323978668E-01  -5.20141357158E-01  -1.41223127650E-01
+   2.31038385584E-01   5.93314824411E-01   8.06306274164E-01   1.08205322511E+00   1.27507452606E+00   1.35541886558E+00
+   1.36135962399E+00   1.27221382404E+00   1.14146863275E+00   1.00478581250E+00   7.73007045569E-01   6.06604786077E-01
+   4.68728181151E-01  -1.14562785200E-02   4.75479733539E-01   3.56570682029E+00   0.                  0.
+   0.                  0.                  0.                  0.                  0.                  0.
+
+
+
+
+
+ORTH03 =
+  -7.98230679007E-01  -8.00670335135E-01  -7.97158058242E-01  -8.45914528023E-01  -9.52342360664E-01  -1.13149559140E+00
+  -1.13635631400E+00  -9.96454733349E-01  -7.69251149493E-01  -3.28863117695E-01   2.80848830605E-01   7.86226627128E-01
+   1.06657893074E+00   1.43115116286E+00   1.49022773434E+00   1.40423507632E+00   1.13947635221E+00   7.18134835606E-01
+   4.19573748319E-01   6.15962883030E-02  -2.76648949872E-01  -7.81435218711E-01  -1.11065867469E+00  -1.18488142181E+00
+  -1.02887760731E+00  -4.61405719094E-01   3.23082105783E-02   4.62088497172E-01   1.13129821487E+00   1.50946023254E+00
+   1.66078431938E+00   1.50757995862E+00   1.27124440605E+00   7.36483532877E-01   6.31272108933E-02  -5.08034843533E-01
+  -7.98055067526E-01  -1.00811182191E+00  -1.04943624920E+00  -5.66262807353E-01  -9.14877561256E-01  -8.57550001916E-01
+  -8.15736972881E-01  -5.15126039883E-01   5.47815637176E-01  -1.77161132384E+00   7.29152012420E+00   0.
+   0.                  0.                  0.                  0.                  0.                  0.
+
+
+
+
+
+ORTH04 =
+   1.89813751040E-01   1.82127389697E-01   1.74755299153E-01   1.28035535668E-01   9.38427469666E-05  -3.82834322212E-01
+  -7.66095545139E-01  -1.32972943195E+00  -1.57423861745E+00  -1.69595052706E+00  -1.62918519635E+00  -1.32905143118E+00
+  -9.79794909548E-01  -2.99574852386E-01   3.16987522010E-01   8.33004137861E-01   1.24656603605E+00   1.46330007198E+00
+   1.49002115033E+00   1.42541050234E+00   1.29267120875E+00   8.72687158293E-01   2.93072413659E-01  -3.06363787900E-01
+  -8.81817741672E-01  -1.47087288338E+00  -1.61283163294E+00  -1.60835662884E+00  -1.34343848955E+00  -8.64370931002E-01
+  -2.82537366655E-01   3.50649641428E-01   7.27218315564E-01   1.18345021208E+00   1.42002917650E+00   1.41428668692E+00
+   1.32645395539E+00   1.08466183656E+00   8.52462105031E-01   8.04445980888E-01   4.26593933304E-01   2.96644440326E-01
+   2.20610358791E-01   1.16011370517E-01  -1.02995232365E+00   7.24525365882E-01   4.87223944212E-01   5.47827928630E+00
+   0.                  0.                  0.                  0.                  0.                  0.
+
+
+
+
+
+ORTH05 =
+  -2.24390098965E-01  -1.66400183374E-01  -1.13110015846E-01  -4.95212136934E-02   6.62319784942E-02   4.78687150042E-01
+   9.30687900034E-01   1.58807650617E+00   1.75676283607E+00   1.53378186611E+00   8.33053076816E-01  -4.05475762072E-02
+  -6.47235174420E-01  -1.39934393538E+00  -1.48659811099E+00  -1.16416362645E+00  -4.74044768720E-01   3.46951720781E-01
+   7.84809608856E-01   1.15675794336E+00   1.36980774369E+00   1.25997951292E+00   6.40039498237E-01  -1.93963909827E-01
+  -9.87932827851E-01  -1.49676338502E+00  -1.26043239531E+00  -8.07722587577E-01   2.79097483486E-01   1.16971971419E+00
+   1.67592346178E+00   1.57342778410E+00   1.20607924739E+00   3.27689972104E-01  -6.42175793886E-01  -1.23639609976E+00
+  -1.40920120204E+00  -1.30306097311E+00  -1.06907127744E+00  -7.14438767765E-01  -5.60312915573E-01  -4.06871372426E-01
+  -2.99667166071E-01  -1.17762788829E-01  -7.15374218027E-01  -7.44720174440E-01   2.04199098746E+00   4.80984991258E-01
+   1.22683224850E+01   0.                  0.                  0.                  0.                  0.
+
+
+
+
+
+ORTH06 =
+  -7.83031145234E-01  -8.26709438641E-01  -8.77828056946E-01  -9.92311996964E-01  -1.12511418184E+00  -1.19016660869E+00
+  -9.42966227056E-01  -2.07261027826E-01   3.88532526415E-01   1.12034403956E+00   1.76793176187E+00   1.84772647024E+00
+   1.55281022728E+00   7.83945834413E-01  -6.03865301882E-02  -6.99681424934E-01  -1.06754405847E+00  -1.02231553767E+00
+  -8.07220914268E-01  -4.26665832660E-01   2.41154834159E-02   8.30166519352E-01   1.41930839993E+00   1.53948511036E+00
+   1.20729587539E+00   1.70100992276E-01  -5.46115067536E-01  -1.01248061082E+00  -1.31372288401E+00  -9.43924261001E-01
+  -1.75763375886E-01   7.63322709576E-01   1.28529437978E+00   1.73412582700E+00   1.58976436041E+00   1.03546895435E+00
+   6.01652362519E-01   2.67400607363E-02  -3.25873691818E-01   6.35479255761E-02  -6.73398898583E-01  -7.35527877110E-01
+  -7.60150931590E-01  -5.00629958678E-01   6.28807337494E-01  -2.40459949737E+00   2.41675999967E-01   2.49542628691E+00
+  -4.42402144898E-01   1.12479055208E+01   0.                  0.                  0.                  0.
+
+
+
+
+
+ORTH07 =
+   5.51019868755E-01   5.86449920052E-01   6.24283106121E-01   7.32035647026E-01   8.84088443101E-01   9.47495489523E-01
+   5.66882664009E-01  -6.07064036385E-01  -1.39435947253E+00  -1.94429415710E+00  -1.80033041717E+00  -8.50067168851E-01
+   4.52894976802E-02   1.14460785783E+00   1.19437281445E+00   5.50207769958E-01  -5.02554397191E-01  -1.34725485135E+00
+  -1.55085379904E+00  -1.43918708572E+00  -1.04847533569E+00   8.71044431419E-02   1.12855577534E+00   1.38649471352E+00
+   8.05734743644E-01  -7.49814519386E-01  -1.40087019587E+00  -1.48167167636E+00  -6.24788834450E-01   6.15015948695E-01
+   1.45746131465E+00   1.34130790365E+00   7.65253146801E-01  -4.88870417088E-01  -1.46796803073E+00  -1.58296839228E+00
+  -1.32242712592E+00  -6.66521622341E-01  -1.64267376660E-01  -2.83287896698E-01   3.96118099927E-01   4.88832744530E-01
+   5.26276688304E-01   3.22346629786E-01  -3.98322961009E-01   1.68602489075E+00  -3.56061481012E+00  -2.02793324397E+00
+   5.75218328538E+00   2.34567128999E+00   2.21921335688E+01   0.                  0.                  0.
+
+
+
+
+
+ORTH08 =
+  -4.59552511471E-01  -3.57550489976E-01  -2.49956886804E-01  -1.10535202179E-01   8.77662307378E-02   6.32960321684E-01
+   1.12882158719E+00   1.55029207034E+00   1.34881637964E+00   5.12435290255E-01  -8.01007729180E-01  -1.58243318798E+00
+  -1.59762632255E+00  -9.04910929787E-01   2.09683139046E-01   1.04361495220E+00   1.31891473012E+00   8.43271563977E-01
+   3.10697753786E-01  -3.57647682531E-01  -9.27659546956E-01  -1.31906637881E+00  -7.88340798297E-01   2.75512116505E-01
+   1.27517603346E+00   1.47674674967E+00   7.22450718737E-01  -1.20510890589E-01  -1.26539228963E+00  -1.25287096374E+00
+  -3.22375177993E-01   1.01872396067E+00   1.67978145208E+00   1.89345027274E+00   1.00216352318E+00  -2.05430790491E-01
+  -8.50249452031E-01  -1.28070007350E+00  -1.29971844597E+00  -6.82412211016E-01  -9.18301665157E-01  -7.37394431682E-01
+  -5.82032104438E-01  -2.71354763208E-01  -9.13273574386E-01  -1.33368544841E+00   2.69915052323E+00  -3.41088821356E+00
+  -1.09262623733E+00   6.40460783317E+00  -2.10432742401E+00   2.35554663757E+01   0.                  0.
+
+
+
+
+
+ORTH09 =
+   5.67693111239E-01   4.74598780665E-01   3.75296678298E-01   2.29025067561E-01  -2.92455539002E-02  -7.58149749414E-01
+  -1.26933550453E+00  -1.10567014312E+00  -2.80419398328E-01   1.04616657297E+00   2.01236982015E+00   1.42377440620E+00
+   3.37695080741E-01  -1.15952200739E+00  -1.18146695504E+00  -2.10132176031E-01   1.03460812513E+00   1.46705086911E+00
+   1.15259282355E+00   3.92532611238E-01  -4.89935964146E-01  -1.48728506993E+00  -1.06514096104E+00   3.02677436455E-01
+   1.41727581010E+00   8.46544045371E-01  -4.24653958027E-01  -1.25741740139E+00  -1.18141072491E+00   2.38769035010E-01
+   1.39238833761E+00   1.06767127615E+00   1.05848814110E-01  -1.53933250974E+00  -1.96709221465E+00  -9.81147646433E-01
+  -1.08714149481E-01   8.32118106262E-01   1.15807409947E+00   5.11250792875E-01   1.00135455032E+00   8.35754218375E-01
+   6.84349746047E-01   3.49810067313E-01   6.23064584781E-01   1.58846218546E+00  -2.74717991463E+00   2.62591176036E+00
+  -8.90654483309E+00  -5.73054769776E+00   1.55998059096E+01   4.39807205086E+00   4.53723510556E+01   0.
+
+
+
+
+
+ORTH10 =
+   5.60986276250E-01   6.05255230033E-01   6.39970402395E-01   7.23809443916E-01   8.28450990168E-01   7.34941553643E-01
+   1.24775818147E-01  -1.33191819910E+00  -1.96702460886E+00  -1.73161410799E+00  -2.91746247300E-01   1.12008519444E+00
+   1.47716389688E+00   7.72840847572E-01  -6.14853992040E-01  -1.41746182699E+00  -1.16288063591E+00  -3.86166401495E-02
+   6.47659473727E-01   1.11186667977E+00   1.12575048881E+00   1.30445705647E-01  -1.14269519123E+00  -1.37747173013E+00
+  -4.13686115910E-01   1.33159783993E+00   1.34576239530E+00   6.33505518854E-01  -1.07525371169E+00  -1.49911126496E+00
+  -4.87447528865E-01   1.07534378140E+00   1.61941090364E+00   1.14423418882E+00  -4.19941899299E-01  -1.41823956641E+00
+  -1.52501726952E+00  -9.81163165703E-01  -4.02355070157E-01  -3.56591928376E-01   3.22621158233E-01   4.55724956908E-01
+   5.19484361013E-01   3.25875290868E-01  -6.67870606463E-01   1.65787392309E+00  -3.44055713764E+00  -2.13559787397E+00
+   3.96432506853E+00  -8.12323218968E+00  -2.84939504587E+00   1.41768956571E+01   2.58171592641E+00   4.46610303462E+01
+
+
+
+
+
+ORTH11 =
+  -1.03121629643E+00  -1.07394628295E+00  -1.08829407803E+00  -1.13147013044E+00  -1.05933592812E+00  -3.24421988103E-03
+   1.49184780246E+00   2.14939173171E+00   8.17526791399E-01  -1.35462007903E+00  -2.29844101371E+00  -8.79696709160E-01
+   4.62285140384E-01   1.25197292774E+00   3.31845877739E-01  -6.37664323343E-01  -7.66400029650E-01   4.41838071151E-02
+   6.00080449338E-01   9.57131177591E-01   9.13126797846E-01   1.15733869837E-02  -8.34583130772E-01  -5.78939963094E-01
+   4.91098848115E-01   1.22909981740E+00   4.70106402150E-01  -4.20343349473E-01  -1.00069646211E+00   1.06848415613E-01
+   1.35321353308E+00   9.80568251935E-01  -1.93013220900E-01  -1.90790701310E+00  -1.31017761612E+00   8.44880756269E-01
+   1.85644372042E+00   1.69758994995E+00   7.95705438268E-01   5.17773688009E-01  -6.35755502964E-01  -8.88719997656E-01
+  -9.86305213524E-01  -3.32990033684E+02  -3.31558677896E+02   6.61777554147E+02  -4.92064262385E+02   3.02242195985E+00
+  -6.25674489390E+01  -2.07193268859E+02   1.18044582261E+02  -7.88576947573E+00   3.93728856033E+01   9.32160344990E+01
+
+
+
+
+
+DEV    =
+  -3.10239155260E-03  -3.23094377745E-03  -3.27410880345E-03  -3.40400300774E-03  -3.18698884621E-03  -9.76016417554E-06
+   4.48819130975E-03   6.46639776230E-03   2.45951137549E-03  -4.07534472129E-03  -6.91480924979E-03  -2.64654820603E-03
+   1.39077467975E-03   3.76653302374E-03   9.98351026283E-04  -1.91839909530E-03  -2.30569763698E-03   1.32926012157E-04
+   1.80532883678E-03   2.87950810161E-03   2.74712189275E-03   3.48182802554E-05  -2.51082499744E-03  -1.74172814877E-03
+   1.47746008588E-03   3.69771977421E-03   1.41430477379E-03  -1.26459372404E-03  -3.01057330216E-03   3.21451108903E-04
+   4.07111315872E-03   2.95001802442E-03  -5.80676030950E-04  -5.73989629629E-03  -3.94164054887E-03   2.54180517732E-03
+   5.58507011192E-03   5.10716203644E-03   2.39386231442E-03   1.55771075515E-03  -1.91265645117E-03  -2.67369457106E-03
+  -2.96727754721E-03
+
+
+
+
+COF    =
+   1.00179319429E+00   9.97486991871E-01  -1.99094321996E+00   1.48036451348E+00  -9.09289000674E-03   1.88232794349E-01
+   6.23336393430E-01  -3.55134530073E-01   2.37241640691E-02  -1.18452460575E-01  -2.80438390080E-01
+
+
+
+
+STD    =
+   5.31828800693E-04
+
+
+
+
+CV  00 =
+   1.98226565763E+00  -5.92977582528E-02   4.24862799858E+00  -8.02335245209E+00  -1.75889496588E-01  -8.96309335512E-01
+  -1.12646040117E+01   1.22530004494E+01  -2.33498124609E-01   1.67130226054E+01   1.45539262545E+01
+
+
+
+
+CV  01 =
+   0.                  1.07482751246E+01  -5.71691317456E-01   1.72315950283E+00   2.56795372987E+00  -1.85449961744E+01
+   2.14403838791E+00   4.70490406294E+00  -2.82406339374E+01   2.65456528895E+01  -2.98277894226E+01
+
+
+
+
+CV  02 =
+   0.                  0.                  3.26076705650E+01  -3.43374837287E+01  -6.29032158831E-01  -4.49248189402E+00
+  -5.42036331898E+01   6.02787644847E+01  -9.25905973651E-01   7.63524234295E+01   7.40423575891E+01
+
+
+
+
+CV  03 =
+   0.                  0.                  0.                  9.69796096487E+01   2.40238340084E+00   1.23428084521E+01
+   5.53446074895E+01  -1.17749502925E+02   2.72103464894E+00  -1.33528552658E+02  -1.53658826732E+02
+
+
+
+
+CV  04 =
+   0.                  0.                  0.                  0.                  6.36729053538E+01  -3.49953257232E+01
+   3.76609775156E+00   9.22233598854E+00  -9.90722617293E+01   1.13630283188E+02  -9.53780014571E+01
+
+
+
+
+CV  05 =
+   0.                  0.                  0.                  0.                  0.                  2.80031315011E+02
+   2.03550380822E+01  -2.02838357943E+01  -8.70712364721E+00  -3.93876117693E+02   1.77050842188E+02
+
+
+
+
+CV  06 =
+   0.                  0.                  0.                  0.                  0.                  0.
+   2.71862632028E+02  -2.76710756104E+01   1.04979476463E+01  -2.80980299802E+02  -3.62791919332E+02
+
+
+
+
+CV  07 =
+   0.                  0.                  0.                  0.                  0.                  0.
+   0.                  7.48391982786E+02  -2.13549197607E+01   7.00443541557E+02  -1.27256918612E+02
+
+
+
+
+CV  08 =
+   0.                  0.                  0.                  0.                  0.                  0.
+   0.                  0.                  7.75187404409E+02   2.36151586365E+02   6.33154767156E+02
+
+
+
+
+CV  09 =
+   0.                  0.                  0.                  0.                  0.                  0.
+   0.                  0.                  0.                  2.06531549744E+03   1.15302093334E+02
+
+
+
+
+CV  10 =
+   0.                  0.                  0.                  0.                  0.                  0.
+   0.                  0.                  0.                  0.                  1.99460763158E+03
+
+
+
+
+CV  11 =
+   1.40792956416E+00   3.27845621057E+00   5.71031265038E+00   9.84782258410E+00   7.97953039683E+00   1.67341362195E+01
+   1.64882573981E+01   2.73567538789E+01   2.78421874932E+01   4.54457423467E+01   4.46610303462E+01
+
+
+
+
+VCV 00 =
+   5.60667731873E-07  -1.67718890235E-08   1.20168990184E-06  -2.26934003726E-06  -4.97489146991E-08  -2.53513811464E-07
+  -3.18610170004E-06   3.46566160000E-06  -6.60430469642E-08   4.72714262135E-06   4.11645976490E-06
+
+
+
+
+VCV 01 =
+   0.                  3.04006227041E-06  -1.61698243148E-07   4.87381661682E-07   7.26324843367E-07  -5.24530145730E-06
+   6.06423833947E-07   1.33074387861E-06  -7.98763380451E-06   7.50822218982E-06  -8.43654783507E-06
+
+
+
+
+VCV 02 =
+   0.                  0.                  9.22281462480E-06  -9.71207822038E-06  -1.77916634136E-07  -1.27066199443E-06
+  -1.53310571482E-05   1.70493586638E-05  -2.61884980038E-07   2.15956624697E-05   2.09422791201E-05
+
+
+
+
+VCV 03 =
+   0.                  0.                  0.                  2.74298944598E-05   6.79494621347E-07   3.49106306371E-06
+   1.56537724564E-05  -3.33044899814E-05   7.69622537276E-07  -3.77674659657E-05  -4.34611503937E-05
+
+
+
+
+VCV 04 =
+   0.                  0.                  0.                  0.                  1.80093638253E-05  -9.89814348241E-06
+   1.06521014289E-06   2.60846278671E-06  -2.80217840943E-05   3.21394021543E-05  -2.69768925986E-05
+
+
+
+
+VCV 05 =
+   0.                  0.                  0.                  0.                  0.                  7.92045817053E-05
+   5.75725710118E-06  -5.73711811270E-06  -2.46273916296E-06  -1.11404658955E-04   5.00773918644E-05
+
+
+
+
+VCV 06 =
+   0.                  0.                  0.                  0.                  0.                  0.
+   7.68941361082E-05  -7.82653886040E-06   2.96925917753E-06  -7.94729943414E-05  -1.02612746062E-04
+
+
+
+
+VCV 07 =
+   0.                  0.                  0.                  0.                  0.                  0.
+   0.                  2.11676590334E-04  -6.04006550815E-06   1.98114763397E-04  -3.59935852439E-05
+
+
+
+
+VCV 08 =
+   0.                  0.                  0.                  0.                  0.                  0.
+   0.                  0.                  2.19255457580E-04   6.67935570577E-05   1.79082680397E-04
+
+
+
+
+VCV 09 =
+   0.                  0.                  0.                  0.                  0.                  0.
+   0.                  0.                  0.                  5.84157704143E-04   3.26122600680E-05
+
+
+
+
+VCV 10 =
+   0.                  0.                  0.                  0.                  0.                  0.
+   0.                  0.                  0.                  0.                  5.64158558909E-04
+
+
+
+
+VCV 11 =
+   7.48777491566E-04   1.74357743459E-03   3.03690872843E-03   5.23735567432E-03   4.24374408104E-03   8.89969559623E-03
+   8.76893015757E-03   1.45491096062E-02   1.48072771832E-02   2.41693546488E-02   2.37520222067E-02
+
+
+
+
+EP     =
+   9.44815104262E-02   7.08147372843E-02   3.08117457105E-02   1.05123861081E-02   9.46203603888E-03   8.67105692427E-03
+   2.87556750442E-03   1.51818972010E-03   1.25508183909E-03   1.21206197074E-03   5.31829264023E-04
+
+
+
+
+A   00 =
+   9.99995000031E-01   0.                  0.                  0.                  0.                  0.
+   0.                  0.                  0.                  0.                  0.
+
+
+
+
+A   01 =
+   1.80914235387E-01   2.53518066813E+00   0.                  0.                  0.                  0.
+   0.                  0.                  0.                  0.                  0.
+
+
+
+
+A   02 =
+  -1.14562785200E-02   4.75479733539E-01   3.56570682029E+00   0.                  0.                  0.
+   0.                  0.                  0.                  0.                  0.
+
+
+
+
+A   03 =
+  -5.15126039883E-01   5.47815637176E-01  -1.77161132384E+00   7.29152012420E+00   0.                  0.
+   0.                  0.                  0.                  0.                  0.
+
+
+
+
+A   04 =
+   1.16011370517E-01  -1.02995232365E+00   7.24525365882E-01   4.87223944212E-01   5.47827928630E+00   0.
+   0.                  0.                  0.                  0.                  0.
+
+
+
+
+A   05 =
+  -1.17762788829E-01  -7.15374218027E-01  -7.44720174440E-01   2.04199098746E+00   4.80984991258E-01   1.22683224850E+01
+   0.                  0.                  0.                  0.                  0.
+
+
+
+
+A   06 =
+  -5.00629958678E-01   6.28807337494E-01  -2.40459949737E+00   2.41675999967E-01   2.49542628691E+00  -4.42402144898E-01
+   1.12479055208E+01   0.                  0.                  0.                  0.
+
+
+
+
+A   07 =
+   3.22346629786E-01  -3.98322961009E-01   1.68602489075E+00  -3.56061481012E+00  -2.02793324397E+00   5.75218328538E+00
+   2.34567128999E+00   2.21921335688E+01   0.                  0.                  0.
+
+
+
+
+A   08 =
+  -2.71354763208E-01  -9.13273574386E-01  -1.33368544841E+00   2.69915052323E+00  -3.41088821356E+00  -1.09262623733E+00
+   6.40460783317E+00  -2.10432742401E+00   2.35554663757E+01   0.                  0.
+
+
+
+
+A   09 =
+   3.49810067313E-01   6.23064584781E-01   1.58846218546E+00  -2.74717991463E+00   2.62591176036E+00  -8.90654483309E+00
+  -5.73054769776E+00   1.55998059096E+01   4.39807205086E+00   4.53723510556E+01   0.
+
+
+
+
+A   10 =
+   3.25875290868E-01  -6.67870606463E-01   1.65787392309E+00  -3.44055713764E+00  -2.13559787397E+00   3.96432506853E+00
+  -8.12323218968E+00  -2.84939504587E+00   1.41768956571E+01   2.58171592641E+00   4.46610303462E+01
+
+
+
+
+GF     =
+   1.00000499999E+00   3.94449205365E-01   2.80449305117E-01   1.37145613393E-01   1.82539068883E-01   8.15107363881E-02
+   8.89054409420E-02   4.50610121329E-02   4.24529909130E-02   2.20398541564E-02   2.23908851240E-02   3.00847801120E-03
+
+
+
+
+
+Q      =
+   1.05755607611E+00   4.11485037930E-01  -4.09425525258E-01   1.83479281510E-01  -3.01289796985E-02   2.49041632112E-02
+   4.98422256505E-02  -1.47312078287E-02   5.20707850347E-03  -2.25338081228E-03  -6.27926377663E-03   1.49334859823E+00
+
+
+
+
+
+Q2     =
+   1.11842485411E+00   1.69319936440E-01   1.67629260734E-01   3.36646467433E-02   9.07755417671E-04   6.20217345251E-04
+   2.48424745780E-03   2.17008484093E-04   2.71136665413E-05   5.07772508513E-06   3.94291535764E-05
+
+
+
+
+E      =
+   3.74923744122E-01   2.05603807683E-01   3.79745469490E-02   4.30990020573E-03   3.40214478805E-03   2.78192744281E-03
+   2.97679985010E-04   8.06715009172E-05   5.35578343759E-05   4.84801092906E-05   9.05095571425E-06
+
+
+
+
+ENF    =
+   1.00000499999E+00   4.00852450221E-01   2.85622988466E-01   1.77505404205E-01   2.10744207130E-01   8.84918706133E-02
+   1.42309699630E-01   6.82848260935E-02   8.46487648828E-02   5.77703003307E-02   4.61220683615E-02

\ No newline at end of file
diff --git a/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHLET-OUTPUT-Code.lst b/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHLET-OUTPUT-Code.lst
new file mode 100644
index 0000000..b3880bc
--- /dev/null
+++ b/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHLET-OUTPUT-Code.lst
@@ -0,0 +1,5090 @@
+0200                   BAC-220 STANDARD VERSION   2/1/62
+
+0200     COMMENT
+
+0200       DIRICHLET PROBLEM FOR A BEAN-SHAPED REGION.  FROM P J DAVIS,
+
+0200       *ORTHONORMALIZING CODES IN NUMERICAL ANALYSIS* IN J TODD, --SURVEY OF
+
+0200       NUMERICAL ANLAYSIS--, MCGRAW-HILL, 1962,  P.347. P H KIMPEL 8/15/70
+
+0200       MODIFICATION LOG..
+
+0200       92/03/17  P.KIMPEL, PARADIGM CORP, SAN DIEGO, CA  92117.
+
+0200         CONVERT FOR UNISYS A-SERIES MCP 3.8.4.
+
+0200       2014-11-15  P.KIMPEL
+
+0200         RETRO-CONVERT FROM UNISYS MCP ALGOL BACK TO BURROUGHS B5500 XALGOL.
+
+0200       2018-02-20  P.KIMPEL
+
+0200         RETRO-CONVERT FROM B5500 TO BURROUGHS 220 BALGOL OF FEB 1962.
+
+0200     $
+
+0200
+                                                 0200     0000 30
+                                                 0201     0004 20 3000
+                                                 0202     0004 90 0300
+                                                 0203     0026 70 1003
+                                                 0204     0046 70 1005
+                                                 0205     0006 60 0000
+                                                 0206   - 0000 00 0201
+
+0200     FORMAT F1 (B30,I3,2X10.3,4X10.5,W),
+                                                 0207     0004 20 4000
+                                                 0208   - 6714 00 0000
+                                                 0209     0004 20 0900
+                                                 0210   - 6814 00 0000
+                                                 0211     0004 20 0900
+                                                 0212   - 6614 00 0000
+                                                 0213     0004 20 0800
+                                                 0214   - 4265 14 0000
+                                                 0215     0004 20 0700
+                                                 0216   - 4342 65 1400
+                                                 0217     0004 20 0700
+                                                 0218   - 4445 65 1400
+                                                 0219     0006 60 0300
+                                                 0220     0006 60 0000
+                                                 0221   - 0000 00 0207
+
+0200            F2 (B40,*X*,B9,*Y*,B9,*W*,B8,*BV*,B7,*CBV*,B7,*DEV*,W3,W)$
+                                                 0200             0222
+
+0222     INTEGER I, J, N, M, P$
+
+0222     REAL SUM, GMDT$
+
+0222
+
+0222
+
+0222     REAL    X, Y, W, CBV, BV, Z, ORTHV, DEV, COF, STD, CV, VCV,
+
+0222             Q, Q2, E, EP, A, GF, ENF$
+
+0222     ARRAY
+
+0222       X(43),
+
+0222       Y(43),
+
+0222       W(43),
+
+0222       CBV(43),
+
+0222       BV(1, 43+11),
+
+0222       Z(11, 43+11),
+
+0222       ORTHV(11+1, 43+11),
+
+0222       DEV(1, 43),
+
+0222       COF(1, 11),
+
+0222       STD(1),
+
+0222       CV(11+1, 11),
+
+0222       VCV(1, 11+1, 11),
+
+0222       Q(1, 11+1),
+
+0222       Q2(1, 11),
+
+0222       E(1, 11),
+
+0222       EP(1, 11),
+
+0222       A(11, 11),
+
+0222       GF(11+1),
+
+0222       ENF(11)$
+
+0222
+
+0222
+                                                 0222     0000 30
+                                                 0223     7523 01 0223
+
+0222     PROCEDURE ORTHO (W(), Y(,), Z(,), N, FN, M, P, R, AI, AUI, MUI, ZEI$
+
+0224                      X(,), DEV(,), COF(,), STD(), CV(,), VCV(,,), GMDT,
+                                                 0224     0000 40 7469 TEMP
+                                                 0225     0000 30
+
+0224                      Q(,), Q2(,), E(,), EP(,), A(,), GF(), ENF())$
+
+0224     BEGIN
+
+0224     REAL    FN, GMDT$
+
+0226     REAL    W, Y, Z, X, DEV, COF, STD, CV, VCV, Q, Q2, E, EP, A, GF, ENF$
+
+0226     INTEGER N, M, P, R, AI, AUI, ZEI, MUI$
+
+0226     COMMENT
+
+0226               ORTHO    IS TAKEN FROM ACM ALGORITHM 127 (COMM. ACM, VOL.5,
+
+0226                      OCTOBER 1962, P. 511, AUTHOR PHILIP J. WALSH)$
+
+0226     INTEGER  NPP, NPM, M1, N2, M2, R1, RBAR, P2, BEI, RHI, I18, GAI, SII,
+
+0226                   I, J, DEI, NUI, E1Z2, E1Z1, K, THI, ALI, OMI, NII$
+
+0226     ARRAY  PK(99), XP (99), QK(99)$
+
+0226     REAL DENOM, SUM, DK2, DK, FI, SS, SSQ$
+
+0226
+                                                 0226     0000 10 7512 P
+                                                 0227     0000 12 7515 N
+                                                 0228     0000 40 7171 NPP
+                                                 0229     0000 10 7513 M
+                                                 0230     0000 12 7515 N
+                                                 0231     0000 40 7170 NPM
+                                                 0232     0000 10 7513 M
+                                                 0233     0000 13 7169 CONST
+                                                 0234     0000 40 7168 M1
+                                                 0235     0000 10 7169 CONST
+                                                 0236     0000 12 7515 N
+                                                 0237     0000 40 7167 N2
+
+0226           NPP = N+P$ NPM = N+M$ M1 = M-1$ N2 = N+1$ M2 = M+1$
+                                                 0238     0000 10 7169 CONST
+                                                 0239     0000 12 7513 M
+                                                 0240     0000 40 7166 M2
+                                                 0241     0000 46 7165 R1
+                                                 0242     0000 10 7511 R
+                                                 0243     0000 40 7164 RBAR
+
+0241               R1 = 0$ RBAR = R$ P2 = P+1$
+                                                 0244     0000 10 7169 CONST
+                                                 0245     0000 12 7512 P
+                                                 0246     0000 40 7163 P2
+                                                 0247     0000 10 7515 N
+                                                 0248     0000 13 7513 M
+                                                 0249     1111 31 0251
+                                                 0250     0000 36 0252
+                                                 0251     0000 30
+                                                 0252     0000 10 7162 CONST
+                                                 0253     0000 40 7161 DENOM
+                                                 0251             0255
+                                                 0254     0000 30
+                                                 0255     0000 10 7515 N
+                                                 0256     0000 13 7513 M
+
+0247           EITHER IF N EQL M$ DENOM = 1.0$  OTHERWISE$  DENOM = SQRT(N-M)$
+                                                 0257     0000 44 7102 FLOAT
+                                                 0258     0000 30 7102
+                                                 0259     0000 44 7116
+                                                 0260     0000 30 7116
+                                                 0261     0000 40 7161 DENOM
+                                                 0254             0262
+
+0262           BEI = RHI = I18 = 1$
+                                                 0262     0000 10 7169 CONST
+                                                 0263     0000 40 7101 I18
+                                                 0264     0000 40 7100 RHI
+                                                 0265     0000 40 7099 BEI
+                                                 0266     0000 10 7512 P
+                                                 0267     0000 36 0269
+                                                 0268     0000 10 7169 CONST
+                                                 0269     0000 36
+                                                 0270     0000 10 7098 CONST
+                                                 0271     0000 40 7097 SII
+                                                 0272     0000 40 7096 GAI
+                                                 0269             0274
+                                                 0273     0000 30
+
+0266           EITHER IF (P NEQ 0)$ GAI = SII = 2$  OTHERWISE$  GAI = SII = 1$
+                                                 0274     0000 10 7169 CONST
+                                                 0275     0000 40 7097 SII
+                                                 0276     0000 40 7096 GAI
+                                                 0273             0277
+                                                 0277     0001 42 7510 AI
+                                                 0278   - 0000 30
+                                                 0279     0000 30 0000 AT2
+
+0277     BOX1..           SWITCH AI, (AT1, AT2)$
+                                                 0280     0000 30 0000 AT1
+                                                 0278             0281
+                                                 0280             0281
+                                                 0281     0000 10 7169 CONST
+                                                 0282     0000 40 7095 J
+                                                 0283     0000 44
+                                                 0284     0000 30
+                                                 0285     0000 10 7169 CONST
+                                                 0286     0000 12 7095 J
+                                                 0287     0000 40 7095 J
+                                                 0284             0288
+                                                 0288     0000 13 7515 N
+                                                 0289     1111 31 0291
+                                                 0290     0000 36
+                                                 0291     0001 33
+                                                 0292     0000 30
+                                                 0291             0293
+                                                 0290             0293
+
+0281           AT1..      FOR J = (1, 1, N)$ BEGIN
+                                                 0293     0000 10 7098 CONST
+                                                 0294     0000 14 7505
+                                                 0295     0001 49 0010
+                                                 0296     0000 12 7095 J
+                                                 0297     0000 14 7504
+                                                 0298     0001 49 0010
+                                                 0298     0001 40 7094 TEMP
+                                                 0299     0000 10 7095 J
+                                                 0300     0000 12 7517
+                                                 0301     0000 14 7516
+                                                 0302     0001 49 0010
+                                                 0302     0001 40 7093 TEMP
+                                                 0303     0000 42 7093 TEMP
+                                                 0304   - 0000 10 7518 Z
+                                                 0305     0000 42 7094 TEMP
+                                                 0306   - 0000 40 7506 X
+                                                 0307     0000 10 7095 J
+                                                 0308     0000 12 7505
+                                                 0309     0000 14 7504
+                                                 0310     0001 49 0010
+                                                 0310     0001 40 7094 TEMP
+                                                 0311     0000 10 7162 CONST
+                                                 0312     0000 42 7094 TEMP
+                                                 0313   - 0000 40 7506 X
+
+0293                      X(2,J) = Z(1,J)$  X(1,J) = 1.0 END$
+                                                 0292             0315
+                                                 0283             0314
+                                                 0314     0000 30
+                                                 0315     0000 10 7098 CONST
+                                                 0316     0000 40 7092 I
+                                                 0317     0000 44
+                                                 0318     0000 30
+                                                 0319     0000 10 7169 CONST
+                                                 0320     0000 12 7092 I
+                                                 0321     0000 40 7092 I
+                                                 0318             0322
+                                                 0322     0000 13 7168 M1
+                                                 0323     1111 31 0325
+                                                 0324     0000 36
+                                                 0325     0001 33
+                                                 0326     0000 30
+                                                 0325             0327
+                                                 0324             0327
+
+0315                      FOR I = (2, 1, M1)$ BEGIN
+                                                 0327     0000 10 7169 CONST
+                                                 0328     0000 40 7095 J
+                                                 0329     0000 44
+                                                 0330     0000 30
+                                                 0331     0000 10 7169 CONST
+                                                 0332     0000 12 7095 J
+                                                 0333     0000 40 7095 J
+                                                 0330             0334
+                                                 0334     0000 13 7515 N
+                                                 0335     1111 31 0337
+                                                 0336     0000 36
+                                                 0337     0001 33
+
+0327                      FOR J = (1, 1, N)$
+                                                 0338     0000 30
+                                                 0337             0339
+                                                 0336             0339
+                                                 0339     0000 10 7169 CONST
+                                                 0340     0000 12 7092 I
+                                                 0341     0000 14 7505
+                                                 0342     0001 49 0010
+                                                 0343     0000 12 7095 J
+                                                 0344     0000 14 7504
+                                                 0345     0001 49 0010
+                                                 0345     0001 40 7094 TEMP
+                                                 0346     0000 10 7092 I
+                                                 0347     0000 14 7505
+                                                 0348     0001 49 0010
+                                                 0349     0000 12 7095 J
+                                                 0350     0000 14 7504
+                                                 0351     0001 49 0010
+                                                 0351     0001 40 7093 TEMP
+                                                 0352     0000 10 7098 CONST
+                                                 0353     0000 14 7505
+                                                 0354     0001 49 0010
+                                                 0355     0000 12 7095 J
+                                                 0356     0000 14 7504
+                                                 0357     0001 49 0010
+                                                 0357     0001 40 7091 TEMP
+                                                 0358     0000 42 7093 TEMP
+                                                 0359   - 0000 10 7506 X
+                                                 0360     0000 42 7091 TEMP
+                                                 0361   - 0000 24 7506 X
+                                                 0362     0000 42 7094 TEMP
+                                                 0363   - 0000 40 7506 X
+                                                 0338             0365
+                                                 0329             0364
+                                                 0364     0000 30
+                                                 0326             0366
+                                                 0317             0365
+                                                 0365     0000 30
+
+0338                      X(I+1,J) = X(I,J) . X(2,J)  END$   GO TO BOX2$
+                                                 0366     0000 30 0000 BOX2
+                                                 0279             0367
+                                                 0367     0000 10 7169 CONST
+                                                 0368     0000 40 7092 I
+                                                 0369     0000 44
+                                                 0370     0000 30
+                                                 0371     0000 10 7169 CONST
+                                                 0372     0000 12 7092 I
+                                                 0373     0000 40 7092 I
+                                                 0370             0374
+                                                 0374     0000 13 7513 M
+                                                 0375     1111 31 0377
+                                                 0376     0000 36
+                                                 0377     0001 33
+                                                 0378     0000 30
+                                                 0377             0379
+                                                 0376             0379
+
+0367           AT2..      FOR I = (1, 1, M)$ BEGIN
+                                                 0379     0000 10 7169 CONST
+                                                 0380     0000 40 7095 J
+                                                 0381     0000 44
+                                                 0382     0000 30
+                                                 0383     0000 10 7169 CONST
+                                                 0384     0000 12 7095 J
+                                                 0385     0000 40 7095 J
+                                                 0382             0386
+                                                 0386     0000 13 7515 N
+                                                 0387     1111 31 0389
+                                                 0388     0000 36
+                                                 0389     0001 33
+
+0379                      FOR J = (1, 1, N)$
+                                                 0390     0000 30
+                                                 0389             0391
+                                                 0388             0391
+                                                 0391     0000 10 7092 I
+                                                 0392     0000 14 7505
+                                                 0393     0001 49 0010
+                                                 0394     0000 12 7095 J
+                                                 0395     0000 14 7504
+                                                 0396     0001 49 0010
+                                                 0396     0001 40 7094 TEMP
+                                                 0397     0000 10 7092 I
+                                                 0398     0000 14 7517
+                                                 0399     0001 49 0010
+                                                 0400     0000 12 7095 J
+                                                 0401     0000 14 7516
+                                                 0402     0001 49 0010
+                                                 0402     0001 40 7091 TEMP
+                                                 0403     0000 42 7091 TEMP
+                                                 0404   - 0000 10 7518 Z
+                                                 0405     0000 42 7094 TEMP
+                                                 0406   - 0000 40 7506 X
+                                                 0390             0408
+                                                 0381             0407
+                                                 0407     0000 30
+
+0390                      X(I,J) = Z(I,J)  END$
+                                                 0378             0409
+                                                 0369             0408
+                                                 0408     0000 30
+                                                 0366             0409
+                                                 0409     0000 10 7512 P
+                                                 0410     0000 36 0412
+                                                 0411     0000 30
+
+0409     BOX2..           EITHER IF P EQL 0$ GO TO BOX3$
+                                                 0412     0000 30 0000 BOX3
+                                                 0411             0414
+                                                 0413     0000 30
+                                                 0414     0001 42 7509 AUI
+                                                 0415   - 0000 30
+                                                 0416     0000 30 0000 AU2
+
+0413                      OTHERWISE$  SWITCH AUI, (AU1, AU2)$
+                                                 0417     0000 30 0000 AU1
+                                                 0415             0418
+                                                 0413             0418
+                                                 0417             0418
+                                                 0418     0000 10 7169 CONST
+                                                 0419     0000 40 7092 I
+                                                 0420     0000 44
+                                                 0421     0000 30
+                                                 0422     0000 10 7169 CONST
+                                                 0423     0000 12 7092 I
+                                                 0424     0000 40 7092 I
+                                                 0421             0425
+                                                 0425     0000 13 7513 M
+                                                 0426     1111 31 0428
+                                                 0427     0000 36
+                                                 0428     0001 33
+                                                 0429     0000 30
+                                                 0428             0430
+                                                 0427             0430
+
+0418           AU1..      FOR I = (1, 1, M)$ BEGIN
+                                                 0430     0000 10 7167 N2
+                                                 0431     0000 40 7095 J
+                                                 0432     0000 44
+                                                 0433     0000 30
+                                                 0434     0000 10 7169 CONST
+                                                 0435     0000 12 7095 J
+                                                 0436     0000 40 7095 J
+                                                 0433             0437
+                                                 0437     0000 13 7171 NPP
+                                                 0438     1111 31 0440
+                                                 0439     0000 36
+                                                 0440     0001 33
+
+0430                      FOR J = (N2, 1, NPP)$
+                                                 0441     0000 30
+                                                 0440             0442
+                                                 0439             0442
+                                                 0442     0000 10 7092 I
+                                                 0443     0000 14 7505
+                                                 0444     0001 49 0010
+                                                 0445     0000 12 7095 J
+                                                 0446     0000 14 7504
+                                                 0447     0001 49 0010
+                                                 0447     0001 40 7094 TEMP
+                                                 0448     0000 42 7094 TEMP
+                                                 0449   - 0000 46 7506 X
+                                                 0441             0451
+                                                 0432             0450
+                                                 0450     0000 30
+                                                 0451     0000 10 7092 I
+                                                 0452     0000 14 7505
+                                                 0453     0001 49 0010
+                                                 0454     0000 12 7515 N
+                                                 0455     0000 12 7092 I
+                                                 0456     0000 14 7504
+                                                 0457     0001 49 0010
+                                                 0457     0001 40 7094 TEMP
+                                                 0458     0000 10 7162 CONST
+                                                 0459     0000 42 7094 TEMP
+                                                 0460   - 0000 40 7506 X
+                                                 0429             0462
+                                                 0420             0461
+                                                 0461     0000 30
+
+0441                      X(I,J) = 0.0$  X(I,N+I) = 1.0  END$  GO TO BOX3$
+                                                 0462     0000 30 0000 BOX3
+                                                 0416             0463
+                                                 0463     0000 10 7169 CONST
+                                                 0464     0000 40 7092 I
+                                                 0465     0000 44
+                                                 0466     0000 30
+                                                 0467     0000 10 7169 CONST
+                                                 0468     0000 12 7092 I
+                                                 0469     0000 40 7092 I
+                                                 0466             0470
+                                                 0470     0000 13 7513 M
+                                                 0471     1111 31 0473
+                                                 0472     0000 36
+                                                 0473     0001 33
+                                                 0474     0000 30
+                                                 0473             0475
+                                                 0472             0475
+
+0463           AU2..      FOR I = (1, 1, M)$ BEGIN
+                                                 0475     0000 10 7167 N2
+                                                 0476     0000 40 7095 J
+                                                 0477     0000 44
+                                                 0478     0000 30
+                                                 0479     0000 10 7169 CONST
+                                                 0480     0000 12 7095 J
+                                                 0481     0000 40 7095 J
+                                                 0478             0482
+                                                 0482     0000 13 7171 NPP
+                                                 0483     1111 31 0485
+                                                 0484     0000 36
+                                                 0485     0001 33
+
+0475                      FOR J = (N2, 1, NPP)$
+                                                 0486     0000 30
+                                                 0485             0487
+                                                 0484             0487
+                                                 0487     0000 10 7092 I
+                                                 0488     0000 14 7505
+                                                 0489     0001 49 0010
+                                                 0490     0000 12 7095 J
+                                                 0491     0000 14 7504
+                                                 0492     0001 49 0010
+                                                 0492     0001 40 7094 TEMP
+                                                 0493     0000 10 7092 I
+                                                 0494     0000 14 7517
+                                                 0495     0001 49 0010
+                                                 0496     0000 12 7095 J
+                                                 0497     0000 14 7516
+                                                 0498     0001 49 0010
+                                                 0498     0001 40 7091 TEMP
+                                                 0499     0000 42 7091 TEMP
+                                                 0500   - 0000 10 7518 Z
+                                                 0501     0000 42 7094 TEMP
+                                                 0502   - 0000 40 7506 X
+                                                 0486             0504
+                                                 0477             0503
+                                                 0503     0000 30
+
+0486                      X(I,J) = Z(I,J)  END$
+                                                 0474             0505
+                                                 0465             0504
+                                                 0504     0000 30
+                                                 0462             0505
+                                                 0412             0505
+
+0505     BOX3..           DEI = NUI = E1Z1 = E1Z2 = K = 1$
+                                                 0505     0000 10 7169 CONST
+                                                 0506     0000 40 7090 K
+                                                 0507     0000 40 7089 E1Z2
+                                                 0508     0000 40 7088 E1Z1
+                                                 0509     0000 40 7087 NUI
+                                                 0510     0000 40 7086 DEI
+
+0511     BOX4..           THI = 1$
+                                                 0511     0000 10 7169 CONST
+                                                 0512     0000 40 7085 THI
+                                                 0513     0000 10 7169 CONST
+                                                 0514     0000 40 7084 OMI
+                                                 0515     0000 40 7083 ALI
+                                                 0516     0000 10 7512 P
+                                                 0517     0000 36 0519
+                                                 0518     0000 30
+
+0513     BOX5..           ALI = OMI = 1$  EITHER IF P EQL 0$ GO TO BOX6$
+                                                 0519     0000 30 0000 BOX6
+                                                 0518             0521
+                                                 0520     0000 30
+                                                 0521     0000 10 7169 CONST
+                                                 0522     0000 40 7095 J
+                                                 0523     0000 44
+                                                 0524     0000 30
+                                                 0525     0000 10 7169 CONST
+                                                 0526     0000 12 7095 J
+                                                 0527     0000 40 7095 J
+                                                 0524             0528
+                                                 0528     0000 13 7512 P
+                                                 0529     1111 31 0531
+                                                 0530     0000 36
+                                                 0531     0001 33
+                                                 0532     0000 30
+                                                 0531             0533
+                                                 0530             0533
+                                                 0533     0000 10 7095 J
+                                                 0534     0000 12 7515 N
+                                                 0535     0000 40 7094 TEMP
+
+0520                      OTHERWISE$  FOR J = (1, 1, P)$ PK(N+J) = 0.0$
+                                                 0536     0000 42 7094 TEMP
+                                                 0537   - 0000 46 7369 PK
+                                                 0532             0539
+                                                 0523             0538
+                                                 0538     0000 30
+                                                 0520             0539
+                                                 0519             0539
+                                                 0539     0001 42 7508 MUI
+                                                 0540   - 0000 30
+                                                 0541     0000 30 0000 MU2
+
+0539     BOX6..           SWITCH MUI, (MU1, MU2)$
+                                                 0542     0000 30 0000 MU1
+                                                 0540             0543
+                                                 0542             0543
+                                                 0543     0000 10 7169 CONST
+                                                 0544     0000 40 7092 I
+                                                 0545     0000 44
+                                                 0546     0000 30
+                                                 0547     0000 10 7169 CONST
+                                                 0548     0000 12 7092 I
+                                                 0549     0000 40 7092 I
+                                                 0546             0550
+                                                 0550     0000 13 7515 N
+                                                 0551     1111 31 0553
+                                                 0552     0000 36
+                                                 0553     0001 33
+                                                 0554     0000 30
+                                                 0553             0555
+                                                 0552             0555
+                                                 0555     0000 10 7090 K
+                                                 0556     0000 14 7505
+                                                 0557     0001 49 0010
+                                                 0558     0000 12 7092 I
+                                                 0559     0000 14 7504
+                                                 0560     0001 49 0010
+
+0543           MU1..      FOR I = (1, 1, N)$ PK(I) = X(K,I)$
+                                                 0560     0001 40 7094 TEMP
+                                                 0561     0000 42 7094 TEMP
+                                                 0562   - 0000 10 7506 X
+                                                 0563     0000 42 7092 I
+                                                 0564   - 0000 40 7369 PK
+                                                 0554             0566
+                                                 0545             0565
+                                                 0565     0000 30
+
+0566                      GO TO BOX7$
+                                                 0566     0000 30 0000 BOX7
+                                                 0541             0567
+                                                 0567     0000 10 7169 CONST
+                                                 0568     0000 40 7092 I
+                                                 0569     0000 44
+                                                 0570     0000 30
+                                                 0571     0000 10 7169 CONST
+                                                 0572     0000 12 7092 I
+                                                 0573     0000 40 7092 I
+                                                 0570             0574
+                                                 0574     0000 13 7515 N
+                                                 0575     1111 31 0577
+                                                 0576     0000 36
+                                                 0577     0001 33
+
+0567           MU2..      FOR I = (1, 1, N)$
+                                                 0578     0000 30
+                                                 0577             0579
+                                                 0576             0579
+                                                 0579     0000 10 7090 K
+                                                 0580     0000 14 7505
+                                                 0581     0001 49 0010
+                                                 0582     0000 12 7092 I
+                                                 0583     0000 14 7504
+                                                 0584     0001 49 0010
+                                                 0584     0001 40 7094 TEMP
+                                                 0585     0000 10 7092 I
+                                                 0586     0000 14 7522
+                                                 0587     0001 49 0010
+                                                 0587     0001 40 7091 TEMP
+                                                 0588     0000 42 7094 TEMP
+                                                 0589   - 0000 10 7506 X
+                                                 0590     0000 42 7091 TEMP
+                                                 0591   - 0000 24 7523 W
+                                                 0592     0000 42 7092 I
+                                                 0593   - 0000 40 7369 PK
+                                                 0578             0595
+                                                 0569             0594
+                                                 0594     0000 30
+
+0578                      PK(I) = X(K,I) . W(I)$   GO TO BOX7$
+                                                 0595     0000 30 0000 BOX7
+                                                 0595             0596
+                                                 0566             0596
+                                                 0596     0001 42 7084 OMI
+                                                 0597   - 0000 30
+                                                 0598     0000 30 0000 OM2
+
+0596     BOX7..           SWITCH OMI, (OM1, OM2)$
+                                                 0599     0000 30 0000 OM1
+                                                 0597             0600
+                                                 0599             0600
+                                                 0600     0000 10 7169 CONST
+                                                 0601     0000 40 7092 I
+                                                 0602     0000 44
+                                                 0603     0000 30
+                                                 0604     0000 10 7169 CONST
+                                                 0605     0000 12 7092 I
+                                                 0606     0000 40 7092 I
+                                                 0603             0607
+                                                 0607     0000 13 7090 K
+                                                 0608     1111 31 0610
+                                                 0609     0000 36
+                                                 0610     0001 33
+                                                 0611     0000 30
+                                                 0610             0612
+                                                 0609             0612
+
+0600           OM1..      FOR I = (1, 1, K)$ BEGIN SUM = 0.0$
+                                                 0612     0000 46 7082 SUM
+                                                 0613     0000 10 7169 CONST
+                                                 0614     0000 40 7095 J
+                                                 0615     0000 44
+                                                 0616     0000 30
+                                                 0617     0000 10 7169 CONST
+                                                 0618     0000 12 7095 J
+                                                 0619     0000 40 7095 J
+                                                 0616             0620
+                                                 0620     0000 13 7171 NPP
+                                                 0621     1111 31 0623
+                                                 0622     0000 36
+                                                 0623     0001 33
+
+0613                      FOR J = (1, 1, NPP)$
+                                                 0624     0000 30
+                                                 0623             0625
+                                                 0622             0625
+                                                 0625     0000 10 7092 I
+                                                 0626     0000 14 7505
+                                                 0627     0001 49 0010
+                                                 0628     0000 12 7095 J
+                                                 0629     0000 14 7504
+                                                 0630     0001 49 0010
+                                                 0630     0001 40 7091 TEMP
+                                                 0631     0000 42 7095 J
+                                                 0632   - 0000 10 7369 PK
+                                                 0633     0000 42 7091 TEMP
+                                                 0634   - 0000 24 7506 X
+                                                 0635     0000 22 7082 SUM
+                                                 0636     0000 40 7082 SUM
+                                                 0624             0638
+                                                 0615             0637
+                                                 0637     0000 30
+                                                 0638     0000 10 7082 SUM
+                                                 0639     0000 42 7092 I
+                                                 0640   - 0000 40 7171 QK
+
+0624                      SUM = SUM + PK(J) . X(I,J)$  QK(I) = SUM END$
+                                                 0611             0642
+                                                 0602             0641
+                                                 0641     0000 30
+
+0642                      GO TO BOX8$
+                                                 0642     0000 30 0000 BOX8
+                                                 0598             0643
+                                                 0643     0000 46 7081 DK2
+                                                 0644     0000 10 7169 CONST
+                                                 0645     0000 40 7092 I
+                                                 0646     0000 44
+                                                 0647     0000 30
+                                                 0648     0000 10 7169 CONST
+                                                 0649     0000 12 7092 I
+                                                 0650     0000 40 7092 I
+                                                 0647             0651
+                                                 0651     0000 13 7171 NPP
+                                                 0652     1111 31 0654
+                                                 0653     0000 36
+                                                 0654     0001 33
+
+0643           OM2..      DK2 = 0.0$  FOR I = (1, 1, NPP)$
+                                                 0655     0000 30
+                                                 0654             0656
+                                                 0653             0656
+                                                 0656     0000 10 7090 K
+                                                 0657     0000 14 7505
+                                                 0658     0001 49 0010
+                                                 0659     0000 12 7092 I
+                                                 0660     0000 14 7504
+                                                 0661     0001 49 0010
+
+0655                      DK2 = DK2 + PK(I) . X(K,I)$
+                                                 0661     0001 40 7091 TEMP
+                                                 0662     0000 42 7092 I
+                                                 0663   - 0000 10 7369 PK
+                                                 0664     0000 42 7091 TEMP
+                                                 0665   - 0000 24 7506 X
+                                                 0666     0000 22 7081 DK2
+                                                 0667     0000 40 7081 DK2
+                                                 0655             0669
+                                                 0646             0668
+                                                 0668     0000 30
+
+0669                      DK = SQRT(DK2)$
+                                                 0669     0000 10 7081 DK2
+                                                 0670     0000 44 7116 SQRT
+                                                 0671     0000 30 7116
+                                                 0672     0000 40 7080 DK
+                                                 0673     0000 10 7101 I18
+                                                 0674     0000 14 7471
+                                                 0675     0001 49 0010
+                                                 0675     0001 40 7091 TEMP
+                                                 0676     0000 10 7080 DK
+                                                 0677     0000 42 7091 TEMP
+                                                 0678   - 0000 40 7472 GF
+
+0673                      GF(I18) = DK$   I18 = I18 + 1$
+                                                 0679     0000 10 7169 CONST
+                                                 0680     0000 12 7101 I18
+                                                 0681     0000 40 7101 I18
+                                                 0682     0000 10 7169 CONST
+                                                 0683     0000 40 7092 I
+                                                 0684     0000 44
+                                                 0685     0000 30
+                                                 0686     0000 10 7169 CONST
+                                                 0687     0000 12 7092 I
+                                                 0688     0000 40 7092 I
+                                                 0685             0689
+                                                 0689     0000 13 7171 NPP
+                                                 0690     1111 31 0692
+                                                 0691     0000 36
+                                                 0692     0001 33
+
+0682                      FOR I = (1, 1, NPP)$
+                                                 0693     0000 30
+                                                 0692             0694
+                                                 0691             0694
+                                                 0694     0000 10 7090 K
+                                                 0695     0000 14 7505
+                                                 0696     0001 49 0010
+                                                 0697     0000 12 7092 I
+                                                 0698     0000 14 7504
+                                                 0699     0001 49 0010
+                                                 0699     0001 40 7091 TEMP
+                                                 0700     0000 10 7090 K
+                                                 0701     0000 14 7505
+                                                 0702     0001 49 0010
+                                                 0703     0000 12 7092 I
+                                                 0704     0000 14 7504
+                                                 0705     0001 49 0010
+                                                 0705     0001 40 7094 TEMP
+
+0693                      X(K,I) = X(K,I)/DK$
+                                                 0706     0000 42 7094 TEMP
+                                                 0707   - 0000 10 7506 X
+                                                 0708     0002 45 0000
+                                                 0709     0000 25 7080 DK
+                                                 0710     0000 42 7091 TEMP
+                                                 0711   - 0000 40 7506 X
+                                                 0693             0713
+                                                 0684             0712
+                                                 0712     0000 30
+                                                 0713     0000 10 7169 CONST
+                                                 0714     0000 40 7084 OMI
+
+0713                      OMI = 1$    GO TO BOX6$
+                                                 0715     0000 30 0539 BOX6
+                                                 0642             0716
+                                                 0716     0001 42 7086 DEI
+                                                 0717   - 0000 30
+                                                 0718     0000 30 0000 DE2
+
+0716     BOX8..           SWITCH DEI, (DE1, DE2)$
+                                                 0719     0000 30 0000 DE1
+                                                 0717             0720
+                                                 0719             0720
+                                                 0720     0000 11 7088 E1Z1
+                                                 0721     0000 40 7088 E1Z1
+                                                 0722     0000 10 7088 E1Z1
+                                                 0723     0000 36
+                                                 0724     0000 33
+
+0720           DE1..      E1Z1 = -E1Z1$   EITHER IF E1Z1 LSS 0$ GO TO BOX8B$
+                                                 0725     0000 30 0000 BOX8B
+                                                 0724             0727
+                                                 0723             0727
+                                                 0726     0000 30
+
+0726                      OTHERWISE$  GO TO BOX8A$
+                                                 0727     0000 30 0000 BOX8A
+                                                 0726             0728
+                                                 0727             0728
+                                                 0728     0000 10 7169 CONST
+                                                 0729     0000 40 7092 I
+                                                 0730     0000 44
+                                                 0731     0000 30
+                                                 0732     0000 10 7169 CONST
+                                                 0733     0000 12 7092 I
+                                                 0734     0000 40 7092 I
+                                                 0731             0735
+                                                 0735     0000 40 7091 TEMP
+                                                 0736     0000 10 7090 K
+                                                 0737     0000 13 7169 CONST
+                                                 0738     0000 13 7091 TEMP
+                                                 0739     1111 31 0741
+                                                 0740     0000 36
+                                                 0741     0000 33
+
+0728     BOX8A..          FOR I = (1, 1, K-1)$
+                                                 0742     0000 30
+                                                 0741             0743
+                                                 0740             0743
+                                                 0743     0000 42 7092 I
+                                                 0744   - 0000 11 7171 QK
+                                                 0745   - 0000 40 7171 QK
+                                                 0742             0747
+                                                 0730             0746
+                                                 0746     0000 30
+
+0742                      QK(I) = -QK(I)$   QK(K) = 1.0$
+                                                 0747     0000 10 7162 CONST
+                                                 0748     0000 42 7090 K
+                                                 0749   - 0000 40 7171 QK
+                                                 0750     0000 10 7169 CONST
+                                                 0751     0000 40 7092 I
+                                                 0752     0000 44
+                                                 0753     0000 30
+                                                 0754     0000 10 7169 CONST
+                                                 0755     0000 12 7092 I
+                                                 0756     0000 40 7092 I
+                                                 0753             0757
+                                                 0757     0000 13 7171 NPP
+                                                 0758     1111 31 0760
+                                                 0759     0000 36
+                                                 0760     0001 33
+                                                 0761     0000 30
+                                                 0760             0762
+                                                 0759             0762
+
+0750                      FOR I = (1, 1, NPP)$ BEGIN
+                                                 0762     0000 46 7082 SUM
+                                                 0763     0000 10 7169 CONST
+                                                 0764     0000 40 7095 J
+                                                 0765     0000 44
+                                                 0766     0000 30
+                                                 0767     0000 10 7169 CONST
+                                                 0768     0000 12 7095 J
+                                                 0769     0000 40 7095 J
+                                                 0766             0770
+                                                 0770     0000 13 7090 K
+                                                 0771     1111 31 0773
+                                                 0772     0000 36
+                                                 0773     0001 33
+
+0763                      SUM = 0.0$  FOR J = (1, 1, K)$
+                                                 0774     0000 30
+                                                 0773             0775
+                                                 0772             0775
+                                                 0775     0000 10 7095 J
+                                                 0776     0000 14 7505
+                                                 0777     0001 49 0010
+                                                 0778     0000 12 7092 I
+                                                 0779     0000 14 7504
+                                                 0780     0001 49 0010
+                                                 0780     0001 40 7091 TEMP
+
+0774                      SUM = SUM + X(J,I) . QK(J)$
+                                                 0781     0000 42 7091 TEMP
+                                                 0782   - 0000 10 7506 X
+                                                 0783     0000 42 7095 J
+                                                 0784   - 0000 24 7171 QK
+                                                 0785     0000 22 7082 SUM
+                                                 0786     0000 40 7082 SUM
+                                                 0774             0788
+                                                 0765             0787
+                                                 0787     0000 30
+                                                 0788     0000 10 7082 SUM
+                                                 0789     0000 42 7092 I
+                                                 0790   - 0000 40 7270 XP
+                                                 0761             0792
+                                                 0752             0791
+                                                 0791     0000 30
+
+0788                      XP(I) = SUM END$  GO TO BOX9$
+                                                 0792     0000 30 0000 BOX9
+                                                 0725             0793
+                                                 0793     0000 10 7101 I18
+                                                 0794     0000 14 7469
+                                                 0795     0001 49 0010
+                                                 0795     0001 40 7091 TEMP
+                                                 0796     0000 42 7090 K
+                                                 0797   - 0000 10 7171 QK
+                                                 0798     0000 44 7116 SQRT
+                                                 0799     0000 30 7116
+                                                 0800     0000 42 7091 TEMP
+                                                 0801   - 0000 40 7470 ENF
+
+0793     BOX8B..          ENF(I18) = SQRT(QK(K))$   GO TO BOX8A$
+                                                 0802     0000 30 0728 BOX8A
+                                                 0718             0803
+                                                 0803     0000 11 7089 E1Z2
+                                                 0804     0000 40 7089 E1Z2
+                                                 0805     0000 10 7089 E1Z2
+                                                 0806     0000 36
+                                                 0807     0000 33
+
+0803           DE2..      E1Z2 = -E1Z2$  EITHER IF E1Z2 LSS 0$ GO TO BOX8C$
+                                                 0808     0000 30 0000 BOX8C
+                                                 0807             0810
+                                                 0806             0810
+                                                 0809     0000 30
+
+0809                      OTHERWISE$  GO TO BOX8A$
+                                                 0810     0000 30 0728 BOX8A
+                                                 0809             0811
+                                                 0808             0811
+                                                 0811     0000 10 7169 CONST
+                                                 0812     0000 40 7092 I
+                                                 0813     0000 44
+                                                 0814     0000 30
+                                                 0815     0000 10 7169 CONST
+                                                 0816     0000 12 7092 I
+                                                 0817     0000 40 7092 I
+                                                 0814             0818
+                                                 0818     0000 13 7513 M
+                                                 0819     1111 31 0821
+                                                 0820     0000 36
+                                                 0821     0001 33
+                                                 0822     0000 30
+                                                 0821             0823
+                                                 0820             0823
+
+0811     BOX8C..          FOR I = (1, 1, M)$ BEGIN
+                                                 0823     0000 10 7165 R1
+                                                 0824     0000 14 7486
+                                                 0825     0001 49 0010
+                                                 0826     0000 12 7092 I
+                                                 0827     0000 14 7485
+                                                 0828     0001 49 0010
+                                                 0828     0001 40 7091 TEMP
+                                                 0829     0000 42 7092 I
+                                                 0830   - 0000 10 7171 QK
+                                                 0831     0000 42 7091 TEMP
+                                                 0832   - 0000 40 7487 Q
+                                                 0833     0000 10 7165 R1
+                                                 0834     0000 14 7483
+                                                 0835     0001 49 0010
+                                                 0836     0000 12 7092 I
+                                                 0837     0000 14 7482
+                                                 0838     0001 49 0010
+                                                 0838     0001 40 7091 TEMP
+                                                 0839     0000 42 7092 I
+                                                 0840   - 0000 10 7171 QK
+                                                 0841   - 0000 24 7171 QK
+                                                 0842     0000 42 7091 TEMP
+                                                 0843   - 0000 40 7484 Q2
+
+0823                      Q(R1,I) = QK(I)$  Q2(R1,I) = QK(I) . QK(I)  END$
+                                                 0822             0845
+                                                 0813             0844
+                                                 0844     0000 30
+                                                 0845     0000 10 7165 R1
+                                                 0846     0000 14 7486
+                                                 0847     0001 49 0010
+                                                 0848     0000 12 7166 M2
+                                                 0849     0000 14 7485
+                                                 0850     0001 49 0010
+                                                 0850     0001 40 7091 TEMP
+                                                 0851     0000 42 7166 M2
+                                                 0852   - 0000 10 7171 QK
+                                                 0853     0000 42 7091 TEMP
+                                                 0854   - 0000 40 7487 Q
+                                                 0855     0000 10 7165 R1
+                                                 0856     0000 14 7480
+                                                 0857     0001 49 0010
+                                                 0858     0000 12 7169 CONST
+                                                 0859     0000 14 7479
+                                                 0860     0001 49 0010
+                                                 0860     0001 40 7091 TEMP
+                                                 0861     0000 10 7165 R1
+                                                 0862     0000 14 7486
+                                                 0863     0001 49 0010
+                                                 0864     0000 12 7166 M2
+                                                 0865     0000 14 7485
+                                                 0866     0001 49 0010
+                                                 0866     0001 40 7094 TEMP
+                                                 0867     0000 10 7165 R1
+                                                 0868     0000 14 7483
+                                                 0869     0001 49 0010
+                                                 0870     0000 12 7169 CONST
+                                                 0871     0000 14 7482
+                                                 0872     0001 49 0010
+
+0845                      Q(R1,M2) = QK(M2)$  E(R1,1) = Q(R1,M2) - Q2(R1,1)$
+                                                 0872     0001 40 7093 TEMP
+                                                 0873     0000 42 7094 TEMP
+                                                 0874   - 0000 10 7487 Q
+                                                 0875     0000 42 7093 TEMP
+                                                 0876   - 0000 23 7484 Q2
+                                                 0877     0000 42 7091 TEMP
+                                                 0878   - 0000 40 7481 E
+                                                 0879     0000 10 7098 CONST
+                                                 0880     0000 40 7095 J
+                                                 0881     0000 44
+                                                 0882     0000 30
+                                                 0883     0000 10 7169 CONST
+                                                 0884     0000 12 7095 J
+                                                 0885     0000 40 7095 J
+                                                 0882             0886
+                                                 0886     0000 13 7513 M
+                                                 0887     1111 31 0889
+                                                 0888     0000 36
+                                                 0889     0001 33
+
+0879                      FOR J = (2, 1, M)$
+                                                 0890     0000 30
+                                                 0889             0891
+                                                 0888             0891
+                                                 0891     0000 10 7165 R1
+                                                 0892     0000 14 7480
+                                                 0893     0001 49 0010
+                                                 0894     0000 12 7095 J
+                                                 0895     0000 14 7479
+                                                 0896     0001 49 0010
+                                                 0896     0001 40 7091 TEMP
+                                                 0897     0000 10 7165 R1
+                                                 0898     0000 14 7480
+                                                 0899     0001 49 0010
+                                                 0900     0000 12 7095 J
+                                                 0901     0000 13 7169 CONST
+                                                 0902     0000 14 7479
+                                                 0903     0001 49 0010
+                                                 0903     0001 40 7093 TEMP
+                                                 0904     0000 10 7165 R1
+                                                 0905     0000 14 7483
+                                                 0906     0001 49 0010
+                                                 0907     0000 12 7095 J
+                                                 0908     0000 14 7482
+                                                 0909     0001 49 0010
+
+0890                      E(R1,J) = E(R1,J-1) - Q2(R1,J)$
+                                                 0909     0001 40 7094 TEMP
+                                                 0910     0000 42 7093 TEMP
+                                                 0911   - 0000 10 7481 E
+                                                 0912     0000 42 7094 TEMP
+                                                 0913   - 0000 23 7484 Q2
+                                                 0914     0000 42 7091 TEMP
+                                                 0915   - 0000 40 7481 E
+                                                 0890             0917
+                                                 0881             0916
+                                                 0916     0000 30
+
+0917                      FI = 1.0$
+                                                 0917     0000 10 7162 CONST
+                                                 0918     0000 40 7079 FI
+                                                 0919     0000 10 7169 CONST
+                                                 0920     0000 40 7092 I
+                                                 0921     0000 44
+                                                 0922     0000 30
+                                                 0923     0000 10 7169 CONST
+                                                 0924     0000 12 7092 I
+                                                 0925     0000 40 7092 I
+                                                 0922             0926
+                                                 0926     0000 13 7513 M
+                                                 0927     1111 31 0929
+                                                 0928     0000 36
+                                                 0929     0001 33
+                                                 0930     0000 30
+                                                 0929             0931
+                                                 0928             0931
+
+0919                      FOR I = (1, 1, M)$ BEGIN
+                                                 0931     0000 10 7514 FN
+                                                 0932     0000 23 7079 FI
+                                                 0933     0000 36
+                                                 0934     0001 33
+
+0933                      EITHER IF (FN - FI) GTR 0.0$ BEGIN
+                                                 0935     0000 10 7165 R1
+                                                 0936     0000 14 7480
+                                                 0937     0001 49 0010
+                                                 0938     0000 12 7092 I
+                                                 0939     0000 14 7479
+                                                 0940     0001 49 0010
+                                                 0940     0001 40 7091 TEMP
+
+0935                      EITHER IF E(R1,I) LSS 0.0$
+                                                 0941     0000 42 7091 TEMP
+                                                 0942   - 0000 10 7481 E
+                                                 0943     0000 36
+                                                 0944     0000 33
+                                                 0945     0000 10 7165 R1
+                                                 0946     0000 14 7477
+                                                 0947     0001 49 0010
+                                                 0948     0000 12 7092 I
+                                                 0949     0000 14 7476
+                                                 0950     0001 49 0010
+                                                 0950     0001 40 7091 TEMP
+                                                 0951     0000 10 7165 R1
+                                                 0952     0000 14 7480
+                                                 0953     0001 49 0010
+                                                 0954     0000 12 7092 I
+                                                 0955     0000 14 7479
+                                                 0956     0001 49 0010
+                                                 0956     0001 40 7094 TEMP
+                                                 0957     0000 42 7094 TEMP
+                                                 0958   - 0001 10 7481 E
+                                                 0959     0000 40 7094 TEMP
+                                                 0960     0000 10 7514 FN
+                                                 0961     0000 23 7079 FI
+                                                 0962     0000 40 7093 TEMP
+                                                 0963     0000 10 7094 TEMP
+                                                 0964     0002 45 0000
+                                                 0965     0000 25 7093 TEMP
+
+0945                      BEGIN EP(R1,I) = -SQRT(ABS(E(R1,I))/(FN - FI))$
+                                                 0966     0000 44 7116 SQRT
+                                                 0967     0000 30 7116
+                                                 0968     0000 40 7093 TEMP
+                                                 0969     0000 11 7093 TEMP
+                                                 0970     0000 42 7091 TEMP
+                                                 0971   - 0000 40 7478 EP
+                                                 0972     0000 30 0000 BOX8D
+
+0972                      GO TO BOX8D$    END$
+                                                 0944             0974
+                                                 0943             0974
+                                                 0973     0000 30
+                                                 0974     0000 10 7165 R1
+                                                 0975     0000 14 7477
+                                                 0976     0001 49 0010
+                                                 0977     0000 12 7092 I
+                                                 0978     0000 14 7476
+                                                 0979     0001 49 0010
+                                                 0979     0001 40 7091 TEMP
+                                                 0980     0000 10 7165 R1
+                                                 0981     0000 14 7480
+                                                 0982     0001 49 0010
+                                                 0983     0000 12 7092 I
+                                                 0984     0000 14 7479
+                                                 0985     0001 49 0010
+                                                 0985     0001 40 7093 TEMP
+                                                 0986     0000 10 7514 FN
+                                                 0987     0000 23 7079 FI
+                                                 0988     0000 40 7094 TEMP
+                                                 0989     0000 42 7093 TEMP
+                                                 0990   - 0000 10 7481 E
+                                                 0991     0002 45 0000
+                                                 0992     0000 25 7094 TEMP
+
+0973                      OTHERWISE$  EP(R1,I) = SQRT(E(R1,I)/(FN - FI))$
+                                                 0993     0000 44 7116 SQRT
+                                                 0994     0000 30 7116
+                                                 0995     0000 42 7091 TEMP
+                                                 0996   - 0000 40 7478 EP
+                                                 0973             0997
+                                                 0997     0000 30 0000 BOX8D
+                                                 0934             0999
+                                                 0933             0999
+                                                 0998     0000 30
+                                                 0999     0000 10 7165 R1
+                                                 1000     0000 14 7480
+                                                 1001     0001 49 0010
+                                                 1002     0000 12 7092 I
+                                                 1003     0000 14 7479
+                                                 1004     0001 49 0010
+                                                 1004     0001 40 7091 TEMP
+
+0997                      GO TO BOX8D$  END$  OTHERWISE$  E(R1,I) = -1.0$
+                                                 1005     0000 11 7162 CONST
+                                                 1006     0000 42 7091 TEMP
+                                                 1007   - 0000 40 7481 E
+                                                 0998             1008
+                                                 0997             1008
+                                                 0972             1008
+                                                 1008     0000 10 7162 CONST
+                                                 1009     0000 22 7079 FI
+                                                 1010     0000 40 7079 FI
+                                                 0930             1012
+                                                 0921             1011
+                                                 1011     0000 30
+
+1008     BOX8D..          FI = FI + 1.0$   END$   GO TO BOX8A$
+                                                 1012     0000 30 0728 BOX8A
+                                                 0792             1013
+                                                 1013     0001 42 7085 THI
+                                                 1014   - 0000 30
+                                                 1015     0000 30 0000 TH3
+                                                 1016     0000 30 0000 TH2
+
+1013     BOX9..           SWITCH THI, (TH1, TH2, TH3)$
+                                                 1017     0000 30 0000 TH1
+                                                 1014             1018
+                                                 1017             1018
+                                                 1018     0000 10 7169 CONST
+                                                 1019     0000 40 7092 I
+                                                 1020     0000 44
+                                                 1021     0000 30
+                                                 1022     0000 10 7169 CONST
+                                                 1023     0000 12 7092 I
+                                                 1024     0000 40 7092 I
+                                                 1021             1025
+                                                 1025     0000 13 7171 NPP
+                                                 1026     1111 31 1028
+                                                 1027     0000 36
+                                                 1028     0001 33
+
+1018           TH1..      FOR I = (1, 1, NPP)$
+                                                 1029     0000 30
+                                                 1028             1030
+                                                 1027             1030
+                                                 1030     0000 10 7090 K
+                                                 1031     0000 14 7505
+                                                 1032     0001 49 0010
+                                                 1033     0000 12 7092 I
+                                                 1034     0000 14 7504
+                                                 1035     0001 49 0010
+                                                 1035     0001 40 7091 TEMP
+                                                 1036     0000 42 7092 I
+                                                 1037   - 0000 10 7270 XP
+                                                 1038     0000 42 7091 TEMP
+                                                 1039   - 0000 40 7506 X
+                                                 1029             1041
+                                                 1020             1040
+                                                 1040     0000 30
+
+1029                      X(K,I) = XP(I)$  GO TO BOX10$
+                                                 1041     0000 30 0000 BOX10
+                                                 1016             1042
+                                                 1042     0000 10 7169 CONST
+                                                 1043     0000 40 7092 I
+                                                 1044     0000 44
+                                                 1045     0000 30
+                                                 1046     0000 10 7169 CONST
+                                                 1047     0000 12 7092 I
+                                                 1048     0000 40 7092 I
+                                                 1045             1049
+                                                 1049     0000 13 7515 N
+                                                 1050     1111 31 1052
+                                                 1051     0000 36
+                                                 1052     0001 33
+
+1042           TH2..      FOR I = (1, 1, N)$
+                                                 1053     0000 30
+                                                 1052             1054
+                                                 1051             1054
+                                                 1054     0000 10 7165 R1
+                                                 1055     0000 14 7502
+                                                 1056     0001 49 0010
+                                                 1057     0000 12 7092 I
+                                                 1058     0000 14 7501
+                                                 1059     0001 49 0010
+                                                 1059     0001 40 7091 TEMP
+
+1053                      DEV(R1,I) = XP(I)$
+                                                 1060     0000 42 7092 I
+                                                 1061   - 0000 10 7270 XP
+                                                 1062     0000 42 7091 TEMP
+                                                 1063   - 0000 40 7503 DEV
+                                                 1053             1065
+                                                 1044             1064
+                                                 1064     0000 30
+                                                 1065     0000 10 7169 CONST
+                                                 1066     0000 40 7092 I
+                                                 1067     0000 44
+                                                 1068     0000 30
+                                                 1069     0000 10 7169 CONST
+                                                 1070     0000 12 7092 I
+                                                 1071     0000 40 7092 I
+                                                 1068             1072
+                                                 1072     0000 13 7512 P
+                                                 1073     1111 31 1075
+                                                 1074     0000 36
+                                                 1075     0001 33
+
+1065                      FOR I = (1, 1, P)$
+                                                 1076     0000 30
+                                                 1075             1077
+                                                 1074             1077
+                                                 1077     0000 10 7165 R1
+                                                 1078     0000 14 7499
+                                                 1079     0001 49 0010
+                                                 1080     0000 12 7092 I
+                                                 1081     0000 14 7498
+                                                 1082     0001 49 0010
+                                                 1082     0001 40 7091 TEMP
+                                                 1083     0000 10 7092 I
+                                                 1084     0000 12 7515 N
+                                                 1085     0000 40 7094 TEMP
+                                                 1086     0000 42 7094 TEMP
+                                                 1087   - 0000 11 7270 XP
+                                                 1088     0000 42 7091 TEMP
+                                                 1089   - 0000 40 7500 COF
+                                                 1076             1091
+                                                 1067             1090
+                                                 1090     0000 30
+                                                 1091     0000 10 7078 CONST
+                                                 1092     0000 40 7085 THI
+
+1076                      COF(R1,I) = -XP(N+I)$  THI = 3$  GO TO TH1$
+                                                 1093     0000 30 1018 TH1
+                                                 1015             1094
+
+1094           TH3..      GO TO BOX11$
+                                                 1094     0000 30 0000 BOX11
+                                                 1041             1095
+                                                 1095     0001 42 7083 ALI
+                                                 1096   - 0000 30
+                                                 1097     0000 30 0000 AL2
+
+1095     BOX10..          SWITCH ALI, (AL1, AL2)$
+                                                 1098     0000 30 0000 AL1
+                                                 1096             1099
+                                                 1098             1099
+                                                 1099     0000 10 7098 CONST
+                                                 1100     0000 40 7083 ALI
+                                                 1101     0000 40 7084 OMI
+
+1099           AL1..      OMI = ALI = 2$  GO TO BOX6$
+                                                 1102     0000 30 0539 BOX6
+                                                 1097             1103
+                                                 1103     0000 10 7090 K
+                                                 1104     0000 13 7513 M
+                                                 1105     1111 31 1107
+                                                 1106     0000 36
+                                                 1107     0000 33
+                                                 1108     0000 10 7169 CONST
+                                                 1109     0000 12 7090 K
+                                                 1110     0000 40 7090 K
+                                                 1111     0000 30 0511 BOX4
+
+1103           AL2..      EITHER IF K LSS M$ BEGIN K = K + 1$  GO TO BOX4$  END$
+                                                 1107             1113
+                                                 1106             1113
+                                                 1112     0000 30
+
+1112                      OTHERWISE$  GO TO BOX12$
+                                                 1113     0000 30 0000 BOX12
+                                                 1112             1114
+                                                 1094             1114
+                                                 1114     0001 42 7087 NUI
+                                                 1115   - 0000 30
+                                                 1116     0000 30 0000 NU2
+
+1114     BOX11..          SWITCH NUI, (NU1, NU2)$
+                                                 1117     0000 30 0000 NU1
+                                                 1115             1118
+                                                 1117             1118
+                                                 1118     0000 10 7098 CONST
+                                                 1119     0000 40 7087 NUI
+
+1118           NU1..      NUI = 2$  GO TO BOX14$
+                                                 1120     0000 30 0000 BOX14
+                                                 1116             1121
+                                                 1121     0000 10 7080 DK
+                                                 1122     0002 45 0000
+                                                 1123     0000 25 7161 DENOM
+                                                 1124     0000 40 7077 SS
+
+1121           NU2..      SS = DK/DENOM$  SSQ = SS . SS$
+                                                 1125     0000 10 7077 SS
+                                                 1126     0000 24 7077 SS
+                                                 1127     0000 40 7076 SSQ
+                                                 1128     0000 10 7165 R1
+                                                 1129     0000 14 7496
+                                                 1130     0001 49 0010
+                                                 1130     0001 40 7091 TEMP
+                                                 1131     0000 10 7077 SS
+                                                 1132     0000 42 7091 TEMP
+                                                 1133   - 0000 40 7497 STD
+
+1128                      STD(R1) = SS$  GO TO BOX14$
+                                                 1134     0000 30 0000 BOX14
+                                                 1113             1135
+                                                 1135     0001 42 7099 BEI
+                                                 1136   - 0000 30
+                                                 1137     0000 30 0000 BE2
+
+1135     BOX12..          SWITCH BEI, (BE1, BE2)$
+                                                 1138     0000 30 0000 BE1
+                                                 1136             1139
+                                                 1138             1139
+                                                 1139     0000 10 7169 CONST
+                                                 1140     0000 40 7092 I
+                                                 1141     0000 44
+                                                 1142     0000 30
+                                                 1143     0000 10 7169 CONST
+                                                 1144     0000 12 7092 I
+                                                 1145     0000 40 7092 I
+                                                 1142             1146
+                                                 1146     0000 13 7513 M
+                                                 1147     1111 31 1149
+                                                 1148     0000 36
+                                                 1149     0001 33
+                                                 1150     0000 30
+                                                 1149             1151
+                                                 1148             1151
+
+1139           BE1..      FOR I = (1, 1, M)$ BEGIN
+                                                 1151     0000 10 7169 CONST
+                                                 1152     0000 40 7095 J
+                                                 1153     0000 44
+                                                 1154     0000 30
+                                                 1155     0000 10 7169 CONST
+                                                 1156     0000 12 7095 J
+                                                 1157     0000 40 7095 J
+                                                 1154             1158
+                                                 1158     0000 13 7512 P
+                                                 1159     1111 31 1161
+                                                 1160     0000 36
+                                                 1161     0001 33
+
+1151                      FOR J = (1, 1, P)$
+                                                 1162     0000 30
+                                                 1161             1163
+                                                 1160             1163
+                                                 1163     0000 10 7092 I
+                                                 1164     0000 14 7474
+                                                 1165     0001 49 0010
+                                                 1166     0000 12 7095 J
+                                                 1167     0000 14 7473
+                                                 1168     0001 49 0010
+                                                 1168     0001 40 7091 TEMP
+                                                 1169     0000 10 7092 I
+                                                 1170     0000 14 7505
+                                                 1171     0001 49 0010
+                                                 1172     0000 12 7515 N
+                                                 1173     0000 12 7095 J
+                                                 1174     0000 14 7504
+                                                 1175     0001 49 0010
+                                                 1175     0001 40 7094 TEMP
+                                                 1176     0000 42 7094 TEMP
+                                                 1177   - 0000 10 7506 X
+                                                 1178     0000 42 7091 TEMP
+                                                 1179   - 0000 40 7475 A
+                                                 1162             1181
+                                                 1153             1180
+                                                 1180     0000 30
+
+1162                      A(I,J) = X(I,N+J)  END$
+                                                 1150             1182
+                                                 1141             1181
+                                                 1181     0000 30
+                                                 1182     0000 10 7162 CONST
+                                                 1183     0000 40 7488 GMDT
+                                                 1184     0000 10 7169 CONST
+                                                 1185     0000 40 7092 I
+                                                 1186     0000 44
+                                                 1187     0000 30
+                                                 1188     0000 10 7169 CONST
+                                                 1189     0000 12 7092 I
+                                                 1190     0000 40 7092 I
+                                                 1187             1191
+                                                 1191     0000 13 7513 M
+                                                 1192     1111 31 1194
+                                                 1193     0000 36
+                                                 1194     0001 33
+
+1182                      GMDT = 1.0$  FOR I = (1, 1, M)$
+                                                 1195     0000 30
+                                                 1194             1196
+                                                 1193             1196
+                                                 1196     0000 10 7092 I
+                                                 1197     0000 14 7471
+                                                 1198     0001 49 0010
+                                                 1198     0001 40 7091 TEMP
+                                                 1199     0000 10 7092 I
+                                                 1200     0000 14 7469
+                                                 1201     0001 49 0010
+                                                 1201     0001 40 7094 TEMP
+                                                 1202     0000 42 7091 TEMP
+                                                 1203   - 0000 10 7472 GF
+                                                 1204     0002 45 0000
+                                                 1205     0000 42 7094 TEMP
+                                                 1206   - 0000 25 7470 ENF
+
+1195                      GMDT = GMDT . (GF(I)/ENF(I))$
+                                                 1207     0000 24 7488 GMDT
+                                                 1208     0000 40 7488 GMDT
+                                                 1195             1210
+                                                 1186             1209
+                                                 1209     0000 30
+                                                 1210     0000 10 7488 GMDT
+                                                 1211     0000 24 7488 GMDT
+                                                 1212     0000 40 7488 GMDT
+
+1210                      GMDT = GMDT . GMDT$  DEI = BEI = THI = 2$
+                                                 1213     0000 10 7098 CONST
+                                                 1214     0000 40 7085 THI
+                                                 1215     0000 40 7099 BEI
+                                                 1216     0000 40 7086 DEI
+                                                 1217     0000 10 7169 CONST
+                                                 1218     0000 12 7090 K
+                                                 1219     0000 40 7090 K
+
+1217                      K = K + 1$       GO TO BOX13$
+                                                 1220     0000 30 0000 BOX13
+                                                 1137             1221
+
+1221           BE2..      GO TO BOX11$
+                                                 1221     0000 30 1114 BOX11
+                                                 1220             1222
+                                                 1222     0001 42 7096 GAI
+                                                 1223   - 0000 30
+                                                 1224     0000 30 0000 GA2
+
+1222     BOX13..          SWITCH GAI, (GA1, GA2)$
+                                                 1225     0000 30 0000 GA1
+                                                 1223             1226
+                                                 1225             1226
+
+1226           GA1..      GO TO BOX11$
+                                                 1226     0000 30 1114 BOX11
+                                                 1224             1227
+                                                 1227     0000 10 7169 CONST
+                                                 1228     0000 40 7092 I
+                                                 1229     0000 44
+                                                 1230     0000 30
+                                                 1231     0000 10 7169 CONST
+                                                 1232     0000 12 7092 I
+                                                 1233     0000 40 7092 I
+                                                 1230             1234
+                                                 1234     0000 13 7512 P
+                                                 1235     1111 31 1237
+                                                 1236     0000 36
+                                                 1237     0001 33
+                                                 1238     0000 30
+                                                 1237             1239
+                                                 1236             1239
+
+1227           GA2..      FOR I = (1, 1, P)$ BEGIN
+                                                 1239     0000 10 7092 I
+                                                 1240     0000 40 7095 J
+                                                 1241     0000 44
+                                                 1242     0000 30
+                                                 1243     0000 10 7169 CONST
+                                                 1244     0000 12 7095 J
+                                                 1245     0000 40 7095 J
+                                                 1242             1246
+                                                 1246     0000 13 7512 P
+                                                 1247     1111 31 1249
+                                                 1248     0000 36
+                                                 1249     0001 33
+                                                 1250     0000 30
+                                                 1249             1251
+                                                 1248             1251
+
+1239                      FOR J = (I, 1, P)$ BEGIN
+
+1239                      SUM = 0.0$
+                                                 1251     0000 46 7082 SUM
+                                                 1252     0000 10 7169 CONST
+                                                 1253     0000 40 7075 NII
+                                                 1254     0000 44
+                                                 1255     0000 30
+                                                 1256     0000 10 7169 CONST
+                                                 1257     0000 12 7075 NII
+                                                 1258     0000 40 7075 NII
+                                                 1255             1259
+                                                 1259     0000 13 7513 M
+                                                 1260     1111 31 1262
+                                                 1261     0000 36
+                                                 1262     0001 33
+
+1252                      FOR NII = (1, 1, M)$
+                                                 1263     0000 30
+                                                 1262             1264
+                                                 1261             1264
+                                                 1264     0000 10 7075 NII
+                                                 1265     0000 14 7474
+                                                 1266     0001 49 0010
+                                                 1267     0000 12 7092 I
+                                                 1268     0000 14 7473
+                                                 1269     0001 49 0010
+                                                 1269     0001 40 7094 TEMP
+                                                 1270     0000 10 7075 NII
+                                                 1271     0000 14 7474
+                                                 1272     0001 49 0010
+                                                 1273     0000 12 7095 J
+                                                 1274     0000 14 7473
+                                                 1275     0001 49 0010
+
+1263                      SUM = SUM + A(NII,I) . A(NII,J)$
+                                                 1275     0001 40 7091 TEMP
+                                                 1276     0000 42 7094 TEMP
+                                                 1277   - 0000 10 7475 A
+                                                 1278     0000 42 7091 TEMP
+                                                 1279   - 0000 24 7475 A
+                                                 1280     0000 22 7082 SUM
+                                                 1281     0000 40 7082 SUM
+                                                 1263             1283
+                                                 1254             1282
+                                                 1282     0000 30
+                                                 1283     0000 10 7092 I
+                                                 1284     0000 14 7494
+                                                 1285     0001 49 0010
+                                                 1286     0000 12 7095 J
+                                                 1287     0000 14 7493
+                                                 1288     0001 49 0010
+                                                 1288     0001 40 7091 TEMP
+                                                 1289     0000 10 7082 SUM
+                                                 1290     0000 42 7091 TEMP
+                                                 1291   - 0000 40 7495 CV
+                                                 1250             1293
+                                                 1241             1292
+                                                 1292     0000 30
+
+1283                      CV(I,J) = SUM  END  END$
+                                                 1238             1294
+                                                 1229             1293
+                                                 1293     0000 30
+                                                 1294     0000 10 7169 CONST
+                                                 1295     0000 40 7092 I
+                                                 1296     0000 44
+                                                 1297     0000 30
+                                                 1298     0000 10 7169 CONST
+                                                 1299     0000 12 7092 I
+                                                 1300     0000 40 7092 I
+                                                 1297             1301
+                                                 1301     0000 13 7512 P
+                                                 1302     1111 31 1304
+                                                 1303     0000 36
+                                                 1304     0001 33
+
+1294                      FOR I = (1, 1, P)$
+                                                 1305     0000 30
+                                                 1304             1306
+                                                 1303             1306
+                                                 1306     0000 10 7163 P2
+                                                 1307     0000 14 7494
+                                                 1308     0001 49 0010
+                                                 1309     0000 12 7092 I
+                                                 1310     0000 14 7493
+                                                 1311     0001 49 0010
+                                                 1311     0001 40 7091 TEMP
+                                                 1312     0000 10 7092 I
+                                                 1313     0000 14 7494
+                                                 1314     0001 49 0010
+                                                 1315     0000 12 7092 I
+                                                 1316     0000 14 7493
+                                                 1317     0001 49 0010
+                                                 1317     0001 40 7094 TEMP
+                                                 1318     0000 42 7094 TEMP
+                                                 1319   - 0000 10 7495 CV
+                                                 1320     0000 44 7116 SQRT
+                                                 1321     0000 30 7116
+                                                 1322     0000 42 7091 TEMP
+                                                 1323   - 0000 40 7495 CV
+                                                 1305             1325
+                                                 1296             1324
+                                                 1324     0000 30
+                                                 1325     0000 10 7169 CONST
+                                                 1326     0000 40 7096 GAI
+
+1305                      CV(P2,I) = SQRT(CV(I,I))$  GAI = 1$  GO TO BOX11$
+                                                 1327     0000 30 1114 BOX11
+                                                 1134             1328
+                                                 1120             1328
+                                                 1328     0001 42 7100 RHI
+                                                 1329   - 0000 30
+                                                 1330     0000 30 0000 RH2
+
+1328     BOX14..          SWITCH RHI, (RH1, RH2)$
+                                                 1331     0000 30 0000 RH1
+                                                 1329             1332
+                                                 1331             1332
+                                                 1332     0000 10 7164 RBAR
+                                                 1333     0000 36 1335
+                                                 1334     0000 30
+
+1332           RH1..      EITHER IF RBAR EQL 0$ GO TO FINAL$
+                                                 1335     0000 30 0000 FINAL
+                                                 1334             1337
+                                                 1336     0000 30
+
+1336                      OTHERWISE$  RBAR = RBAR - 1$
+                                                 1337     0000 10 7164 RBAR
+                                                 1338     0000 13 7169 CONST
+                                                 1339     0000 40 7164 RBAR
+                                                 1336             1340
+                                                 1340     0000 10 7169 CONST
+                                                 1341     0000 12 7165 R1
+                                                 1342     0000 40 7165 R1
+                                                 1343     0000 10 7098 CONST
+                                                 1344     0000 40 7100 RHI
+                                                 1345     0000 40 7085 THI
+                                                 1346     0001 42 7507 ZEI
+                                                 1347   - 0000 30
+                                                 1348     0000 30 0000 ZE2
+
+1340                      R1 = R1 + 1$  THI = RHI = 2$  SWITCH ZEI, (ZE1, ZE2)$
+                                                 1349     0000 30 0000 ZE1
+                                                 1347             1350
+                                                 1349             1350
+                                                 1350     0000 10 7169 CONST
+                                                 1351     0000 40 7092 I
+                                                 1352     0000 44
+                                                 1353     0000 30
+                                                 1354     0000 10 7169 CONST
+                                                 1355     0000 12 7092 I
+                                                 1356     0000 40 7092 I
+                                                 1353             1357
+                                                 1357     0000 13 7515 N
+                                                 1358     1111 31 1360
+                                                 1359     0000 36
+                                                 1360     0001 33
+
+1350           ZE1..      FOR I = (1, 1, N)$
+                                                 1361     0000 30
+                                                 1360             1362
+                                                 1359             1362
+                                                 1362     0000 10 7166 M2
+                                                 1363     0000 14 7505
+                                                 1364     0001 49 0010
+                                                 1365     0000 12 7092 I
+                                                 1366     0000 14 7504
+                                                 1367     0001 49 0010
+                                                 1367     0001 40 7091 TEMP
+                                                 1368     0000 10 7165 R1
+                                                 1369     0000 14 7520
+                                                 1370     0001 49 0010
+                                                 1371     0000 12 7092 I
+                                                 1372     0000 14 7519
+                                                 1373     0001 49 0010
+
+1361                      X(M2,I) = Y(R1,I)$
+                                                 1373     0001 40 7094 TEMP
+                                                 1374     0000 42 7094 TEMP
+                                                 1375   - 0000 10 7521 Y
+                                                 1376     0000 42 7091 TEMP
+                                                 1377   - 0000 40 7506 X
+                                                 1361             1379
+                                                 1352             1378
+                                                 1378     0000 30
+                                                 1379     0000 10 7169 CONST
+                                                 1380     0000 40 7092 I
+                                                 1381     0000 44
+                                                 1382     0000 30
+                                                 1383     0000 10 7169 CONST
+                                                 1384     0000 12 7092 I
+                                                 1385     0000 40 7092 I
+                                                 1382             1386
+                                                 1386     0000 13 7512 P
+                                                 1387     1111 31 1389
+                                                 1388     0000 36
+                                                 1389     0001 33
+
+1379                      FOR I = (1, 1, P)$
+                                                 1390     0000 30
+                                                 1389             1391
+                                                 1388             1391
+                                                 1391     0000 10 7166 M2
+                                                 1392     0000 14 7505
+                                                 1393     0001 49 0010
+                                                 1394     0000 12 7515 N
+                                                 1395     0000 12 7092 I
+                                                 1396     0000 14 7504
+                                                 1397     0001 49 0010
+                                                 1397     0001 40 7091 TEMP
+                                                 1398     0000 42 7091 TEMP
+                                                 1399   - 0000 46 7506 X
+                                                 1390             1401
+                                                 1381             1400
+                                                 1400     0000 30
+
+1390                      X(M2,N+I) = 0.0$  GO TO BOX5$
+                                                 1401     0000 30 0513 BOX5
+                                                 1348             1402
+                                                 1402     0000 10 7169 CONST
+                                                 1403     0000 40 7092 I
+                                                 1404     0000 44
+                                                 1405     0000 30
+                                                 1406     0000 10 7169 CONST
+                                                 1407     0000 12 7092 I
+                                                 1408     0000 40 7092 I
+                                                 1405             1409
+                                                 1409     0000 13 7171 NPP
+                                                 1410     1111 31 1412
+                                                 1411     0000 36
+                                                 1412     0001 33
+
+1402           ZE2..      FOR I = (1, 1, NPP)$
+                                                 1413     0000 30
+                                                 1412             1414
+                                                 1411             1414
+                                                 1414     0000 10 7166 M2
+                                                 1415     0000 14 7505
+                                                 1416     0001 49 0010
+                                                 1417     0000 12 7092 I
+                                                 1418     0000 14 7504
+                                                 1419     0001 49 0010
+                                                 1419     0001 40 7091 TEMP
+                                                 1420     0000 10 7165 R1
+                                                 1421     0000 14 7520
+                                                 1422     0001 49 0010
+                                                 1423     0000 12 7092 I
+                                                 1424     0000 14 7519
+                                                 1425     0001 49 0010
+                                                 1425     0001 40 7094 TEMP
+                                                 1426     0000 42 7094 TEMP
+                                                 1427   - 0000 10 7521 Y
+                                                 1428     0000 42 7091 TEMP
+                                                 1429   - 0000 40 7506 X
+                                                 1413             1431
+                                                 1404             1430
+                                                 1430     0000 30
+
+1413                      X(M2,I) = Y(R1,I)$   GO TO BOX5$
+                                                 1431     0000 30 0513 BOX5
+                                                 1330             1432
+                                                 1432     0001 42 7097 SII
+                                                 1433   - 0000 30
+                                                 1434     0000 30 0000 SI2
+
+1432           RH2..      SWITCH SII, (SI1, SI2)$
+                                                 1435     0000 30 0000 SI1
+                                                 1433             1436
+                                                 1435             1436
+
+1436           SI1..      GO TO RH1$
+                                                 1436     0000 30 1332 RH1
+                                                 1434             1437
+                                                 1437     0000 10 7169 CONST
+                                                 1438     0000 40 7092 I
+                                                 1439     0000 44
+                                                 1440     0000 30
+                                                 1441     0000 10 7169 CONST
+                                                 1442     0000 12 7092 I
+                                                 1443     0000 40 7092 I
+                                                 1440             1444
+                                                 1444     0000 13 7512 P
+                                                 1445     1111 31 1447
+                                                 1446     0000 36
+                                                 1447     0001 33
+                                                 1448     0000 30
+                                                 1447             1449
+                                                 1446             1449
+
+1437           SI2..      FOR I = (1, 1, P)$ BEGIN
+                                                 1449     0000 10 7092 I
+                                                 1450     0000 40 7095 J
+                                                 1451     0000 44
+                                                 1452     0000 30
+                                                 1453     0000 10 7169 CONST
+                                                 1454     0000 12 7095 J
+                                                 1455     0000 40 7095 J
+                                                 1452             1456
+                                                 1456     0000 13 7512 P
+                                                 1457     1111 31 1459
+                                                 1458     0000 36
+                                                 1459     0001 33
+
+1449                      FOR J = (I, 1, P)$
+                                                 1460     0000 30
+                                                 1459             1461
+                                                 1458             1461
+                                                 1461     0000 10 7165 R1
+                                                 1462     0000 14 7491
+                                                 1463     0001 49 0010
+                                                 1464     0000 12 7092 I
+                                                 1465     0000 14 7490
+                                                 1466     0001 49 0010
+                                                 1467     0000 12 7095 J
+                                                 1468     0000 14 7489
+                                                 1469     0001 49 0010
+                                                 1469     0001 40 7091 TEMP
+                                                 1470     0000 10 7092 I
+                                                 1471     0000 14 7494
+                                                 1472     0001 49 0010
+                                                 1473     0000 12 7095 J
+                                                 1474     0000 14 7493
+                                                 1475     0001 49 0010
+                                                 1475     0001 40 7094 TEMP
+                                                 1476     0000 10 7076 SSQ
+                                                 1477     0000 42 7094 TEMP
+                                                 1478   - 0000 24 7495 CV
+                                                 1479     0000 42 7091 TEMP
+                                                 1480   - 0000 40 7492 VCV
+                                                 1460             1482
+                                                 1451             1481
+                                                 1481     0000 30
+
+1460                      VCV(R1,I,J) = SSQ . CV(I,J)  END$
+                                                 1448             1483
+                                                 1439             1482
+                                                 1482     0000 30
+                                                 1483     0000 10 7169 CONST
+                                                 1484     0000 40 7092 I
+                                                 1485     0000 44
+                                                 1486     0000 30
+                                                 1487     0000 10 7169 CONST
+                                                 1488     0000 12 7092 I
+                                                 1489     0000 40 7092 I
+                                                 1486             1490
+                                                 1490     0000 13 7512 P
+                                                 1491     1111 31 1493
+                                                 1492     0000 36
+                                                 1493     0001 33
+
+1483                      FOR I = (1, 1, P)$
+                                                 1494     0000 30
+                                                 1493             1495
+                                                 1492             1495
+                                                 1495     0000 10 7165 R1
+                                                 1496     0000 14 7491
+                                                 1497     0001 49 0010
+                                                 1498     0000 12 7163 P2
+                                                 1499     0000 14 7490
+                                                 1500     0001 49 0010
+                                                 1501     0000 12 7092 I
+                                                 1502     0000 14 7489
+                                                 1503     0001 49 0010
+                                                 1503     0001 40 7091 TEMP
+                                                 1504     0000 10 7163 P2
+                                                 1505     0000 14 7494
+                                                 1506     0001 49 0010
+                                                 1507     0000 12 7092 I
+                                                 1508     0000 14 7493
+                                                 1509     0001 49 0010
+                                                 1509     0001 40 7094 TEMP
+                                                 1510     0000 10 7077 SS
+                                                 1511     0000 42 7094 TEMP
+                                                 1512   - 0000 24 7495 CV
+                                                 1513     0000 42 7091 TEMP
+                                                 1514   - 0000 40 7492 VCV
+                                                 1494             1516
+                                                 1485             1515
+                                                 1515     0000 30
+
+1494                      VCV(R1, P2, I) = SS . CV(P2,I)$  GO TO RH1$
+                                                 1516     0000 30 1332 RH1
+                                                 1335             1517
+                                                 1517     0000 42 0223
+                                                 1518   - 0000 30 0000
+
+1517     FINAL.. RETURN END  ORTHO()$
+
+1517
+
+1517
+                                                 0225             1519
+                                                 1519     0000 10 7470
+                                                 1520     0410 40 1206
+                                                 1521     0410 40 0801
+                                                 1522     0000 10 7472
+                                                 1523     0410 40 1203
+                                                 1524     0410 40 0678
+                                                 1525     0000 10 7475
+                                                 1526     0410 40 1279
+                                                 1527     0410 40 1277
+                                                 1528     0410 40 1179
+                                                 1529     0000 10 7478
+                                                 1530     0410 40 0996
+                                                 1531     0410 40 0971
+                                                 1532     0000 10 7481
+                                                 1533     0410 40 1007
+                                                 1534     0410 40 0990
+                                                 1535     0410 40 0958
+                                                 1536     0410 40 0942
+                                                 1537     0410 40 0915
+                                                 1538     0410 40 0911
+                                                 1539     0410 40 0878
+                                                 1540     0000 10 7484
+                                                 1541     0410 40 0913
+                                                 1542     0410 40 0876
+                                                 1543     0410 40 0843
+                                                 1544     0000 10 7487
+                                                 1545     0410 40 0874
+                                                 1546     0410 40 0854
+                                                 1547     0410 40 0832
+                                                 1548     0000 10 7488
+                                                 1549     0410 40 1212
+                                                 1550     0410 40 1211
+                                                 1551     0410 40 1210
+                                                 1552     0410 40 1208
+                                                 1553     0410 40 1207
+                                                 1554     0410 40 1183
+                                                 1555     0000 10 7492
+                                                 1556     0410 40 1514
+                                                 1557     0410 40 1480
+                                                 1558     0000 10 7495
+                                                 1559     0410 40 1512
+                                                 1560     0410 40 1478
+                                                 1561     0410 40 1323
+                                                 1562     0410 40 1319
+                                                 1563     0410 40 1291
+                                                 1564     0000 10 7497
+                                                 1565     0410 40 1133
+                                                 1566     0000 10 7500
+                                                 1567     0410 40 1089
+                                                 1568     0000 10 7503
+                                                 1569     0410 40 1063
+                                                 1570     0000 10 7506
+                                                 1571     0410 40 1429
+                                                 1572     0410 40 1399
+                                                 1573     0410 40 1377
+                                                 1574     0410 40 1177
+                                                 1575     0410 40 1039
+                                                 1576     0410 40 0782
+                                                 1577     0410 40 0711
+                                                 1578     0410 40 0707
+                                                 1579     0410 40 0665
+                                                 1580     0410 40 0634
+                                                 1581     0410 40 0589
+                                                 1582     0410 40 0562
+                                                 1583     0410 40 0502
+                                                 1584     0410 40 0460
+                                                 1585     0410 40 0449
+                                                 1586     0410 40 0406
+                                                 1587     0410 40 0363
+                                                 1588     0410 40 0361
+                                                 1589     0410 40 0359
+                                                 1590     0410 40 0313
+                                                 1591     0410 40 0306
+                                                 1592     0000 10 7518
+                                                 1593     0410 40 0500
+                                                 1594     0410 40 0404
+                                                 1595     0410 40 0304
+                                                 1596     0000 10 7521
+                                                 1597     0410 40 1427
+                                                 1598     0410 40 1375
+                                                 1599     0000 10 7523
+                                                 1600     0410 40 0591
+                                                 1601     0000 30 0226
+                                                 0222             1602
+                                                 1602     0000 30
+                                                 1603     7074 01 1603
+                                                 1604     0000 40 7072 TEMP
+
+1602     PROCEDURE G (I, X, Y)$
+
+1602       BEGIN
+
+1605       REAL X, Y, G$   INTEGER I$
+                                                 1605     0001 42 7074 I
+                                                 1606   - 0000 30
+
+1605       SWITCH I, (G1, G2, G3, G4, G5, G6, G7, G8, G9, G10,
+                                                 1607     0000 30 0000 G17
+                                                 1608     0000 30 0000 G16
+                                                 1609     0000 30 0000 G15
+                                                 1610     0000 30 0000 G14
+                                                 1611     0000 30 0000 G13
+                                                 1612     0000 30 0000 G12
+                                                 1613     0000 30 0000 G11
+                                                 1614     0000 30 0000 G10
+                                                 1615     0000 30 0000 G9
+                                                 1616     0000 30 0000 G8
+                                                 1617     0000 30 0000 G7
+                                                 1618     0000 30 0000 G6
+                                                 1619     0000 30 0000 G5
+                                                 1620     0000 30 0000 G4
+                                                 1621     0000 30 0000 G3
+                                                 1622     0000 30 0000 G2
+
+1623                  G11, G12, G13, G14, G15, G16, G17)$
+                                                 1623     0000 30 0000 G1
+                                                 1606             1624
+
+1624           G() = 0$
+                                                 1624     0001 45 0002
+                                                 1625     0000 42 1603
+                                                 1626   - 0000 30 0000
+
+1625           RETURN$
+
+1627       G1..
+                                                 1623             1627
+
+1627           G() = 1$
+                                                 1627     0000 10 7162 CONST
+                                                 1628     0000 42 1603
+                                                 1629   - 0000 30 0000
+
+1628           RETURN$
+
+1630       G2..
+                                                 1622             1630
+
+1630           G() = X$
+                                                 1630     0000 10 7073 X
+                                                 1631     0000 42 1603
+                                                 1632   - 0000 30 0000
+
+1631           RETURN$
+
+1633       G3..
+                                                 1621             1633
+
+1633           G() = Y$
+                                                 1633     0000 10 7072 Y
+                                                 1634     0000 42 1603
+                                                 1635   - 0000 30 0000
+
+1634           RETURN$
+
+1636       G4..
+                                                 1620             1636
+                                                 1636     0000 10 7073 X
+                                                 1637     0000 24 7073 X
+
+1636           G() = X*2 - Y*2$
+                                                 1638     0000 40 7071 TEMP
+                                                 1639     0000 10 7072 Y
+                                                 1640     0000 24 7072 Y
+                                                 1641     0000 23 7071 TEMP
+                                                 1642     0000 40 7071 TEMP
+                                                 1643     0000 11 7071 TEMP
+                                                 1644     0000 42 1603
+                                                 1645   - 0000 30 0000
+
+1644           RETURN$
+
+1646       G5..
+                                                 1619             1646
+
+1646           G() = 2.0 . X . Y$
+                                                 1646     0000 10 7073 X
+                                                 1647     0000 24 7072 Y
+                                                 1648     0000 24 7070 CONST
+                                                 1649     0000 42 1603
+                                                 1650   - 0000 30 0000
+
+1649           RETURN$
+
+1651       G6..
+                                                 1618             1651
+                                                 1651     0000 41 7078 CONST
+                                                 1652     0000 10 7073 X
+                                                 1653     0000 44 7032 FL*FX
+                                                 1654     0000 30 7032
+
+1651           G() = X*3 - 3.0 . X . Y*2$
+                                                 1655     0000 40 7071 TEMP
+                                                 1656     0000 10 7072 Y
+                                                 1657     0000 24 7072 Y
+                                                 1658     0000 24 7073 X
+                                                 1659     0000 24 7031 CONST
+                                                 1660     0000 23 7071 TEMP
+                                                 1661     0000 40 7071 TEMP
+                                                 1662     0000 11 7071 TEMP
+                                                 1663     0000 42 1603
+                                                 1664   - 0000 30 0000
+
+1663           RETURN$
+
+1665       G7..
+                                                 1617             1665
+                                                 1665     0000 10 7073 X
+                                                 1666     0000 24 7073 X
+                                                 1667     0000 24 7031 CONST
+                                                 1668     0000 24 7072 Y
+
+1665           G() = 3.0 . X*2 . Y - Y*3$
+                                                 1669     0000 41 7078 CONST
+                                                 1670     0000 40 7071 TEMP
+                                                 1671     0000 10 7072 Y
+                                                 1672     0000 44 7032 FL*FX
+                                                 1673     0000 30 7032
+                                                 1674     0000 23 7071 TEMP
+                                                 1675     0000 40 7071 TEMP
+                                                 1676     0000 11 7071 TEMP
+                                                 1677     0000 42 1603
+                                                 1678   - 0000 30 0000
+
+1677           RETURN$
+
+1679       G8..
+                                                 1616             1679
+                                                 1679     0000 41 7030 CONST
+                                                 1680     0000 10 7073 X
+                                                 1681     0000 44 7032 FL*FX
+                                                 1682     0000 30 7032
+                                                 1683     0000 41 7030 CONST
+                                                 1684     0000 40 7071 TEMP
+                                                 1685     0000 10 7072 Y
+                                                 1686     0000 44 7032 FL*FX
+                                                 1687     0000 30 7032
+                                                 1688     0000 22 7071 TEMP
+                                                 1689     0000 40 7071 TEMP
+                                                 1690     0000 10 7073 X
+                                                 1691     0000 24 7073 X
+                                                 1692     0000 24 7029 CONST
+
+1679           G() = X*4 + Y*4 - 6.0 . X*2 . Y*2$
+                                                 1693     0000 40 7028 TEMP
+                                                 1694     0000 10 7072 Y
+                                                 1695     0000 24 7072 Y
+                                                 1696     0000 24 7028 TEMP
+                                                 1697     0000 23 7071 TEMP
+                                                 1698     0000 40 7071 TEMP
+                                                 1699     0000 11 7071 TEMP
+                                                 1700     0000 42 1603
+                                                 1701   - 0000 30 0000
+
+1700           RETURN$
+
+1702       G9..
+                                                 1615             1702
+                                                 1702     0000 41 7078 CONST
+                                                 1703     0000 10 7073 X
+                                                 1704     0000 44 7032 FL*FX
+                                                 1705     0000 30 7032
+                                                 1706     0000 24 7027 CONST
+                                                 1707     0000 24 7072 Y
+
+1702           G() = 4.0 . X*3 . Y - 4.0 . X . Y*3$
+                                                 1708     0000 41 7078 CONST
+                                                 1709     0000 40 7071 TEMP
+                                                 1710     0000 10 7072 Y
+                                                 1711     0000 44 7032 FL*FX
+                                                 1712     0000 30 7032
+                                                 1713     0000 24 7073 X
+                                                 1714     0000 24 7027 CONST
+                                                 1715     0000 23 7071 TEMP
+                                                 1716     0000 40 7071 TEMP
+                                                 1717     0000 11 7071 TEMP
+                                                 1718     0000 42 1603
+                                                 1719   - 0000 30 0000
+
+1718           RETURN$
+
+1720       G10..
+                                                 1614             1720
+                                                 1720     0000 41 7026 CONST
+                                                 1721     0000 10 7073 X
+                                                 1722     0000 44 7032 FL*FX
+                                                 1723     0000 30 7032
+                                                 1724     0000 41 7078 CONST
+                                                 1725     0000 40 7071 TEMP
+                                                 1726     0000 10 7073 X
+                                                 1727     0000 44 7032 FL*FX
+                                                 1728     0000 30 7032
+                                                 1729     0000 24 7025 CONST
+                                                 1730     0000 40 7028 TEMP
+                                                 1731     0000 10 7072 Y
+                                                 1732     0000 24 7072 Y
+                                                 1733     0000 24 7028 TEMP
+                                                 1734     0000 23 7071 TEMP
+
+1720           G() = X*5 - 10.0 . X*3 . Y*2 + 5.0 . X . Y*4$
+                                                 1735     0000 41 7030 CONST
+                                                 1736     0000 40 7071 TEMP
+                                                 1737     0000 10 7072 Y
+                                                 1738     0000 44 7032 FL*FX
+                                                 1739     0000 30 7032
+                                                 1740     0000 24 7073 X
+                                                 1741     0000 24 7024 CONST
+                                                 1742     0000 23 7071 TEMP
+                                                 1743     0000 42 1603
+                                                 1744   - 0000 30 0000
+
+1743           RETURN$
+
+1745       G11..
+                                                 1613             1745
+                                                 1745     0000 41 7026 CONST
+                                                 1746     0000 10 7072 Y
+                                                 1747     0000 44 7032 FL*FX
+                                                 1748     0000 30 7032
+                                                 1749     0000 41 7078 CONST
+                                                 1750     0000 40 7071 TEMP
+                                                 1751     0000 10 7072 Y
+                                                 1752     0000 44 7032 FL*FX
+                                                 1753     0000 30 7032
+                                                 1754     0000 24 7025 CONST
+                                                 1755     0000 40 7028 TEMP
+                                                 1756     0000 10 7073 X
+                                                 1757     0000 24 7073 X
+                                                 1758     0000 24 7028 TEMP
+                                                 1759     0000 23 7071 TEMP
+
+1745           G() = Y*5 - 10.0 . Y*3 . X*2 + 5.0 . Y . X*4$
+                                                 1760     0000 41 7030 CONST
+                                                 1761     0000 40 7071 TEMP
+                                                 1762     0000 10 7073 X
+                                                 1763     0000 44 7032 FL*FX
+                                                 1764     0000 30 7032
+                                                 1765     0000 24 7072 Y
+                                                 1766     0000 24 7024 CONST
+                                                 1767     0000 23 7071 TEMP
+                                                 1768     0000 42 1603
+                                                 1769   - 0000 30 0000
+
+1768           RETURN$
+
+1770       G12..
+                                                 1612             1770
+                                                 1770     0000 41 7023 CONST
+                                                 1771     0000 10 7073 X
+                                                 1772     0000 44 7032 FL*FX
+                                                 1773     0000 30 7032
+                                                 1774     0000 41 7030 CONST
+                                                 1775     0000 40 7071 TEMP
+                                                 1776     0000 10 7073 X
+                                                 1777     0000 44 7032 FL*FX
+                                                 1778     0000 30 7032
+                                                 1779     0000 24 7022 CONST
+                                                 1780     0000 40 7028 TEMP
+                                                 1781     0000 10 7072 Y
+                                                 1782     0000 24 7072 Y
+                                                 1783     0000 24 7028 TEMP
+                                                 1784     0000 23 7071 TEMP
+                                                 1785     0000 40 7071 TEMP
+                                                 1786     0000 10 7073 X
+                                                 1787     0000 24 7073 X
+                                                 1788     0000 24 7022 CONST
+                                                 1789     0000 41 7030 CONST
+                                                 1790     0000 40 7028 TEMP
+                                                 1791     0000 10 7072 Y
+                                                 1792     0000 44 7032 FL*FX
+                                                 1793     0000 30 7032
+                                                 1794     0000 24 7028 TEMP
+                                                 1795     0000 23 7071 TEMP
+
+1770           G() = X*6 - 15.0 . X*4 . Y*2 + 15.0 . X*2 . Y*4 - Y*6$
+                                                 1796     0000 41 7023 CONST
+                                                 1797     0000 40 7071 TEMP
+                                                 1798     0000 10 7072 Y
+                                                 1799     0000 44 7032 FL*FX
+                                                 1800     0000 30 7032
+                                                 1801     0000 23 7071 TEMP
+                                                 1802     0000 40 7071 TEMP
+                                                 1803     0000 11 7071 TEMP
+                                                 1804     0000 42 1603
+                                                 1805   - 0000 30 0000
+
+1804           RETURN$
+
+1806       G13..
+                                                 1611             1806
+                                                 1806     0000 41 7026 CONST
+                                                 1807     0000 10 7073 X
+                                                 1808     0000 44 7032 FL*FX
+                                                 1809     0000 30 7032
+                                                 1810     0000 24 7029 CONST
+                                                 1811     0000 24 7072 Y
+                                                 1812     0000 41 7026 CONST
+                                                 1813     0000 40 7071 TEMP
+                                                 1814     0000 10 7072 Y
+                                                 1815     0000 44 7032 FL*FX
+                                                 1816     0000 30 7032
+                                                 1817     0000 24 7073 X
+                                                 1818     0000 24 7029 CONST
+                                                 1819     0000 22 7071 TEMP
+                                                 1820     0000 41 7078 CONST
+                                                 1821     0000 40 7071 TEMP
+                                                 1822     0000 10 7073 X
+                                                 1823     0000 44 7032 FL*FX
+                                                 1824     0000 30 7032
+                                                 1825     0000 24 7021 CONST
+
+1806           G() = 6.0 . X*5 . Y + 6.0 . X . Y*5 - 20.0 . X*3 . Y*3$
+                                                 1826     0000 41 7078 CONST
+                                                 1827     0000 40 7028 TEMP
+                                                 1828     0000 10 7072 Y
+                                                 1829     0000 44 7032 FL*FX
+                                                 1830     0000 30 7032
+                                                 1831     0000 24 7028 TEMP
+                                                 1832     0000 23 7071 TEMP
+                                                 1833     0000 40 7071 TEMP
+                                                 1834     0000 11 7071 TEMP
+                                                 1835     0000 42 1603
+                                                 1836   - 0000 30 0000
+
+1835           RETURN$
+
+1837       G14..
+                                                 1610             1837
+                                                 1837     0000 41 7020 CONST
+                                                 1838     0000 10 7073 X
+                                                 1839     0000 44 7032 FL*FX
+                                                 1840     0000 30 7032
+                                                 1841     0000 41 7026 CONST
+                                                 1842     0000 40 7071 TEMP
+                                                 1843     0000 10 7073 X
+                                                 1844     0000 44 7032 FL*FX
+                                                 1845     0000 30 7032
+                                                 1846     0000 24 7019 CONST
+                                                 1847     0000 40 7028 TEMP
+                                                 1848     0000 10 7072 Y
+                                                 1849     0000 24 7072 Y
+                                                 1850     0000 24 7028 TEMP
+                                                 1851     0000 23 7071 TEMP
+                                                 1852     0000 41 7078 CONST
+                                                 1853     0000 40 7071 TEMP
+                                                 1854     0000 10 7073 X
+                                                 1855     0000 44 7032 FL*FX
+                                                 1856     0000 30 7032
+                                                 1857     0000 24 7018 CONST
+                                                 1858     0000 41 7030 CONST
+                                                 1859     0000 40 7028 TEMP
+                                                 1860     0000 10 7072 Y
+                                                 1861     0000 44 7032 FL*FX
+                                                 1862     0000 30 7032
+                                                 1863     0000 24 7028 TEMP
+                                                 1864     0000 23 7071 TEMP
+
+1837           G() = X*7 - 21.0 .X*5 . Y*2 + 35.0 . X*3 . Y*4  - 7.0 . X . Y*6$
+                                                 1865     0000 41 7023 CONST
+                                                 1866     0000 40 7071 TEMP
+                                                 1867     0000 10 7072 Y
+                                                 1868     0000 44 7032 FL*FX
+                                                 1869     0000 30 7032
+                                                 1870     0000 24 7073 X
+                                                 1871     0000 24 7017 CONST
+                                                 1872     0000 23 7071 TEMP
+                                                 1873     0000 40 7071 TEMP
+                                                 1874     0000 11 7071 TEMP
+                                                 1875     0000 42 1603
+                                                 1876   - 0000 30 0000
+
+1875           RETURN$
+
+1877       G15..
+                                                 1609             1877
+                                                 1877     0000 41 7023 CONST
+                                                 1878     0000 10 7073 X
+                                                 1879     0000 44 7032 FL*FX
+                                                 1880     0000 30 7032
+                                                 1881     0000 24 7017 CONST
+                                                 1882     0000 24 7072 Y
+                                                 1883     0000 41 7030 CONST
+                                                 1884     0000 40 7071 TEMP
+                                                 1885     0000 10 7073 X
+                                                 1886     0000 44 7032 FL*FX
+                                                 1887     0000 30 7032
+                                                 1888     0000 24 7018 CONST
+                                                 1889     0000 41 7078 CONST
+                                                 1890     0000 40 7028 TEMP
+                                                 1891     0000 10 7072 Y
+                                                 1892     0000 44 7032 FL*FX
+                                                 1893     0000 30 7032
+                                                 1894     0000 24 7028 TEMP
+                                                 1895     0000 23 7071 TEMP
+                                                 1896     0000 40 7071 TEMP
+                                                 1897     0000 10 7073 X
+                                                 1898     0000 24 7073 X
+                                                 1899     0000 24 7019 CONST
+                                                 1900     0000 41 7026 CONST
+                                                 1901     0000 40 7028 TEMP
+                                                 1902     0000 10 7072 Y
+                                                 1903     0000 44 7032 FL*FX
+                                                 1904     0000 30 7032
+                                                 1905     0000 24 7028 TEMP
+                                                 1906     0000 23 7071 TEMP
+
+1877           G() = 7.0 . X*6 . Y - 35.0 . X*4 . Y*3 + 21.0 . X*2 . Y*5 -
+
+1877           Y*7$
+                                                 1907     0000 41 7020 CONST
+                                                 1908     0000 40 7071 TEMP
+                                                 1909     0000 10 7072 Y
+                                                 1910     0000 44 7032 FL*FX
+                                                 1911     0000 30 7032
+                                                 1912     0000 23 7071 TEMP
+                                                 1913     0000 40 7071 TEMP
+                                                 1914     0000 11 7071 TEMP
+                                                 1915     0000 42 1603
+                                                 1916   - 0000 30 0000
+
+1915           RETURN$
+
+1917       G16..
+                                                 1608             1917
+                                                 1917     0000 41 7016 CONST
+                                                 1918     0000 10 7073 X
+                                                 1919     0000 44 7032 FL*FX
+                                                 1920     0000 30 7032
+                                                 1921     0000 41 7016 CONST
+                                                 1922     0000 40 7071 TEMP
+                                                 1923     0000 10 7072 Y
+                                                 1924     0000 44 7032 FL*FX
+                                                 1925     0000 30 7032
+                                                 1926     0000 22 7071 TEMP
+                                                 1927     0000 41 7023 CONST
+                                                 1928     0000 40 7071 TEMP
+                                                 1929     0000 10 7073 X
+                                                 1930     0000 44 7032 FL*FX
+                                                 1931     0000 30 7032
+                                                 1932     0000 24 7015 CONST
+                                                 1933     0000 40 7028 TEMP
+                                                 1934     0000 10 7072 Y
+                                                 1935     0000 24 7072 Y
+                                                 1936     0000 24 7028 TEMP
+                                                 1937     0000 23 7071 TEMP
+                                                 1938     0000 41 7030 CONST
+                                                 1939     0000 40 7071 TEMP
+                                                 1940     0000 10 7073 X
+                                                 1941     0000 44 7032 FL*FX
+                                                 1942     0000 30 7032
+                                                 1943     0000 24 7014 CONST
+                                                 1944     0000 41 7030 CONST
+                                                 1945     0000 40 7028 TEMP
+                                                 1946     0000 10 7072 Y
+                                                 1947     0000 44 7032 FL*FX
+                                                 1948     0000 30 7032
+                                                 1949     0000 24 7028 TEMP
+                                                 1950     0000 23 7071 TEMP
+
+1917           G() = X*8 + Y*8 - 28.0 . X*6 . Y*2 + 70.0 . X*4 . Y*4 - 28.0
+                                                 1951     0000 40 7071 TEMP
+                                                 1952     0000 10 7073 X
+                                                 1953     0000 24 7073 X
+                                                 1954     0000 24 7015 CONST
+
+1917                   . X*2 . Y*6$
+                                                 1955     0000 41 7023 CONST
+                                                 1956     0000 40 7028 TEMP
+                                                 1957     0000 10 7072 Y
+                                                 1958     0000 44 7032 FL*FX
+                                                 1959     0000 30 7032
+                                                 1960     0000 24 7028 TEMP
+                                                 1961     0000 23 7071 TEMP
+                                                 1962     0000 40 7071 TEMP
+                                                 1963     0000 11 7071 TEMP
+                                                 1964     0000 42 1603
+                                                 1965   - 0000 30 0000
+
+1964           RETURN$
+
+1966       G17..
+                                                 1607             1966
+                                                 1966     0000 41 7020 CONST
+                                                 1967     0000 10 7073 X
+                                                 1968     0000 44 7032 FL*FX
+                                                 1969     0000 30 7032
+                                                 1970     0000 24 7013 CONST
+                                                 1971     0000 24 7072 Y
+                                                 1972     0000 41 7026 CONST
+                                                 1973     0000 40 7071 TEMP
+                                                 1974     0000 10 7073 X
+                                                 1975     0000 44 7032 FL*FX
+                                                 1976     0000 30 7032
+                                                 1977     0000 24 7012 CONST
+                                                 1978     0000 41 7078 CONST
+                                                 1979     0000 40 7028 TEMP
+                                                 1980     0000 10 7072 Y
+                                                 1981     0000 44 7032 FL*FX
+                                                 1982     0000 30 7032
+                                                 1983     0000 24 7028 TEMP
+                                                 1984     0000 23 7071 TEMP
+                                                 1985     0000 41 7078 CONST
+                                                 1986     0000 40 7071 TEMP
+                                                 1987     0000 10 7073 X
+                                                 1988     0000 44 7032 FL*FX
+                                                 1989     0000 30 7032
+                                                 1990     0000 24 7012 CONST
+
+1966           G() = 8.0 . X*7 . Y - 56.0 . X*5 . Y*3 + 56.0 . X*3 . Y*5
+                                                 1991     0000 41 7026 CONST
+                                                 1992     0000 40 7028 TEMP
+                                                 1993     0000 10 7072 Y
+                                                 1994     0000 44 7032 FL*FX
+                                                 1995     0000 30 7032
+                                                 1996     0000 24 7028 TEMP
+                                                 1997     0000 23 7071 TEMP
+
+1966                   - 8.0 . X . Y*7$
+                                                 1998     0000 41 7020 CONST
+                                                 1999     0000 40 7071 TEMP
+                                                 2000     0000 10 7072 Y
+                                                 2001     0000 44 7032 FL*FX
+                                                 2002     0000 30 7032
+                                                 2003     0000 24 7073 X
+                                                 2004     0000 24 7013 CONST
+                                                 2005     0000 23 7071 TEMP
+                                                 2006     0000 40 7071 TEMP
+                                                 2007     0000 11 7071 TEMP
+                                                 2008     0000 42 1603
+                                                 2009   - 0000 30 0000
+
+2008           RETURN$
+
+2010       END G()$
+
+2010
+
+2010
+                                                 1602             2010
+
+2010     COMMENT INITIALIZATION$
+
+2010     N = 43$
+                                                 2010     0000 10 7011 CONST
+                                                 2011     0000 40 7010 N
+
+2012     M = 11$
+                                                 2012     0000 10 7009 CONST
+                                                 2013     0000 40 7008 M
+
+2014     P = 11$
+                                                 2014     0000 10 7009 CONST
+                                                 2015     0000 40 7007 P
+                                                 2016     0000 10 7169 CONST
+                                                 2017     0000 40 7006 I
+                                                 2018     0000 44
+                                                 2019     0000 30
+                                                 2020     0000 10 7169 CONST
+                                                 2021     0000 12 7006 I
+                                                 2022     0000 40 7006 I
+                                                 2019             2023
+                                                 2023     0000 13 7010 N
+                                                 2024     1111 31 2026
+                                                 2025     0000 36
+                                                 2026     0001 33
+
+2016     FOR I = (1, 1, N)$
+                                                 2027     0000 30
+                                                 2026             2028
+                                                 2025             2028
+
+2027         BEGIN
+
+2028         READ ($$ XYWIN)$
+                                                 2028     0000 10 2029
+                                                 2029     0000 01 0000 XYWIN
+                                                 2030     0000 44 6867 READ
+                                                 2031     0000 30 6867
+                                                 2032     0000 30
+                                                 2029             2033
+                                                 2033     0000 30
+                                                 2034     0000 42 2034
+                                                 2035     0002 20 2033
+                                                 2036     0000 42 7006 I
+                                                 2037   - 0000 40 9456 X
+                                                 2038     0000 42 2038
+                                                 2039     0002 20 2033
+                                                 2040     0000 42 7006 I
+                                                 2041   - 0000 40 9413 Y
+
+2032         INPUT XYWIN (X(I), Y(I), W(I))$
+                                                 2042     0000 42 2042
+                                                 2043     0002 20 2033
+                                                 2044     0000 42 7006 I
+                                                 2045   - 0000 40 9370 W
+                                                 2046     0009 43 0000
+                                                 2047     0000 30 2033
+                                                 2032             2048
+                                                 2048     0000 42 7006 I
+                                                 2049   - 0000 10 9456 X
+                                                 2050     0000 44 6792 EXP
+                                                 2051     0000 30 6792
+                                                 2052     0000 40 6781 TEMP
+                                                 2053     0000 42 7006 I
+                                                 2054   - 0000 10 9413 Y
+                                                 2055     0000 44 6782 COS
+                                                 2056     0000 30 6782
+                                                 2057     0000 24 6781 TEMP
+                                                 2058     0000 40 6781 TEMP
+                                                 2059     0000 10 7162 CONST
+                                                 2060     0000 42 7006 I
+                                                 2061   - 0000 23 9413 Y
+                                                 2062     0000 40 6693 TEMP
+                                                 2063     0000 24 6693 TEMP
+                                                 2064     0000 40 6693 TEMP
+                                                 2065   - 0000 10 9456
+                                                 2066   - 0000 24 9456 X
+                                                 2067     0000 22 6693 TEMP
+
+2048         BV(1,I) = EXP(X(I)) . COS(Y(I)) + LOG((1 - Y(I))*2 + X(I)*2)$
+                                                 2068     0000 44 6694 LOG
+                                                 2069     0000 30 6694
+                                                 2070     0000 22 6781 TEMP
+                                                 2071     0000 42 7006 I
+                                                 2072   - 0000 40 9273 BV
+                                                 2073     0000 10 7169 CONST
+                                                 2074     0000 40 6692 J
+                                                 2075     0000 44
+                                                 2076     0000 30
+                                                 2077     0000 10 7169 CONST
+                                                 2078     0000 12 6692 J
+                                                 2079     0000 40 6692 J
+                                                 2076             2080
+                                                 2080     0000 13 7008 M
+                                                 2081     1111 31 2083
+                                                 2082     0000 36
+                                                 2083     0001 33
+
+2073         FOR J = (1, 1, M)$
+                                                 2084     0000 30
+                                                 2083             2085
+                                                 2082             2085
+                                                 2085     0000 10 6692 J
+                                                 2086     0000 14 6691 CONST
+                                                 2087     0001 49 0010
+                                                 2088     0000 12 7006 I
+                                                 2089     0000 40 6781 TEMP
+                                                 2090     0000 10 6692 J
+                                                 2091     4400 28 1603
+                                                 2092   - 0000 40 0000
+                                                 2093     0000 42 7006 I
+                                                 2094   - 0000 10 9456 X
+                                                 2095     4400 28 1603
+                                                 2096   - 0000 40 9999
+
+2084             Z(J,I) = G (J, X(I), Y(I))$
+                                                 2097     0000 42 7006 I
+                                                 2098   - 0000 10 9413 Y
+                                                 2099     0000 44 1603 G
+                                                 2100     0200 30 1603
+                                                 2101     0000 42 6781 TEMP
+                                                 2102   - 0000 40 8625 Z
+                                                 2084             2104
+                                                 2075             2103
+                                                 2103     0000 30
+
+2104         END$
+
+2104
+                                                 2027             2105
+                                                 2018             2104
+                                                 2104     0000 30
+                                                 2105     0000 10 2106
+                                                 2106     0000 01 9370 W
+                                                 2107     4400 28 0223
+                                                 2108   - 0000 40 0000
+                                                 2109     0000 10 7169 CONST
+                                                 2110   - 0000 40 9999
+                                                 2111     0000 10 2112
+                                                 2112     0000 01 9219 BV
+                                                 2113   - 0000 40 9998
+                                                 2114     0000 10 6691 CONST
+                                                 2115   - 0000 40 9997
+                                                 2116     0000 10 7169 CONST
+                                                 2117   - 0000 40 9996
+                                                 2118     0000 10 2119
+                                                 2119     0000 01 8625 Z
+                                                 2120   - 0000 40 9995
+                                                 2121     0000 10 6691 CONST
+                                                 2122   - 0000 40 9994
+                                                 2123     0000 10 7169 CONST
+                                                 2124   - 0000 40 9993
+                                                 2125     0000 10 7010 N
+                                                 2126   - 0000 40 9992
+                                                 2127     0000 10 7010 N
+                                                 2128     0000 44 7102 FLOAT
+                                                 2129     0000 30 7102
+                                                 2130     4400 28 0223
+                                                 2131   - 0000 40 9991
+                                                 2132     0000 10 7008 M
+                                                 2133   - 0000 40 9990
+                                                 2134     0000 10 7007 P
+                                                 2135   - 0000 40 9989
+                                                 2136     0000 10 7169 CONST
+                                                 2137   - 0000 40 9988
+                                                 2138     0000 10 7098 CONST
+                                                 2139   - 0000 40 9987
+                                                 2140     0000 10 7169 CONST
+                                                 2141   - 0000 40 9986
+                                                 2142     0000 10 7098 CONST
+                                                 2143   - 0000 40 9985
+
+2105     ORTHO (W(), BV(,), Z(,), N , FLOAT(N) , M , P,  1, 2, 1, 2, 1$
+                                                 2144     0000 10 7169 CONST
+                                                 2145   - 0000 40 9984
+                                                 2146     0000 10 2147
+                                                 2147     0000 01 7977 ORTHV
+                                                 2148   - 0000 40 9983
+                                                 2149     0000 10 6691 CONST
+                                                 2150   - 0000 40 9982
+                                                 2151     0000 10 7169 CONST
+                                                 2152   - 0000 40 9981
+                                                 2153     0000 10 2154
+                                                 2154     0000 01 7945 DEV
+                                                 2155   - 0000 40 9980
+                                                 2156     0000 10 7011 CONST
+                                                 2157   - 0000 40 9979
+                                                 2158     0000 10 7169 CONST
+                                                 2159   - 0000 40 9978
+                                                 2160     0000 10 2161
+                                                 2161     0000 01 7966 COF
+                                                 2162   - 0000 40 9977
+                                                 2163     0000 10 7009 CONST
+                                                 2164   - 0000 40 9976
+                                                 2165     0000 10 7169 CONST
+                                                 2166   - 0000 40 9975
+                                                 2167     0000 10 2168
+                                                 2168     0000 01 7976 STD
+                                                 2169   - 0000 40 9974
+                                                 2170     0000 10 7169 CONST
+                                                 2171   - 0000 40 9973
+                                                 2172     0000 10 2173
+                                                 2173     0000 01 7833 CV
+                                                 2174   - 0000 40 9972
+                                                 2175     0000 10 7009 CONST
+                                                 2176   - 0000 40 9971
+                                                 2177     0000 10 7169 CONST
+                                                 2178   - 0000 40 9970
+                                                 2179     0000 10 2180
+                                                 2180     0000 01 7569 VCV
+                                                 2181   - 0000 40 9969
+                                                 2182     0000 10 6690 CONST
+                                                 2183   - 0000 40 9968
+                                                 2184     0000 10 7009 CONST
+                                                 2185   - 0000 40 9967
+
+2146            ORTHV(,), DEV(,), COF(,), STD(), CV(,), VCV(,,),
+                                                 2186     0000 10 7169 CONST
+                                                 2187   - 0000 40 9966
+                                                 2188     0000 10 2189
+                                                 2189     0000 01 6689 GMDT
+                                                 2190   - 0000 40 9965
+                                                 2191     0000 10 2192
+                                                 2192     0000 01 7688 Q
+                                                 2193   - 0000 40 9964
+                                                 2194     0000 10 6690 CONST
+                                                 2195   - 0000 40 9963
+                                                 2196     0000 10 7169 CONST
+                                                 2197   - 0000 40 9962
+                                                 2198     0000 10 2199
+                                                 2199     0000 01 7678 Q2
+                                                 2200   - 0000 40 9961
+                                                 2201     0000 10 7009 CONST
+                                                 2202   - 0000 40 9960
+                                                 2203     0000 10 7169 CONST
+                                                 2204   - 0000 40 9959
+                                                 2205     0000 10 2206
+                                                 2206     0000 01 7667 E
+                                                 2207   - 0000 40 9958
+                                                 2208     0000 10 7009 CONST
+                                                 2209   - 0000 40 9957
+                                                 2210     0000 10 7169 CONST
+                                                 2211   - 0000 40 9956
+                                                 2212     0000 10 2213
+                                                 2213     0000 01 7656 EP
+                                                 2214   - 0000 40 9955
+                                                 2215     0000 10 7009 CONST
+                                                 2216   - 0000 40 9954
+                                                 2217     0000 10 7169 CONST
+                                                 2218   - 0000 40 9953
+                                                 2219     0000 10 2220
+                                                 2220     0000 01 7535 A
+                                                 2221   - 0000 40 9952
+                                                 2222     0000 10 7009 CONST
+                                                 2223   - 0000 40 9951
+                                                 2224     0000 10 7169 CONST
+                                                 2225   - 0000 40 9950
+                                                 2226     0000 10 2227
+                                                 2227     0000 01 7534 GF
+                                                 2228   - 0000 40 9949
+                                                 2229     0000 10 7169 CONST
+                                                 2230   - 0000 40 9948
+                                                 2231     0000 10 2232
+                                                 2232     0000 01 7523 ENF
+                                                 2233   - 0000 40 9947
+
+2188            GMDT, Q(,), Q2(,), E(,), EP(,), A(,), GF(), ENF())$
+
+2188
+                                                 2234     0000 10 7169 CONST
+                                                 2235     0000 44 0223 ORTHO
+                                                 2236     5400 30 0223
+                                                 2237     0000 10 7169 CONST
+                                                 2238     0000 40 7006 I
+                                                 2239     0000 44
+                                                 2240     0000 30
+                                                 2241     0000 10 7169 CONST
+                                                 2242     0000 12 7006 I
+                                                 2243     0000 40 7006 I
+                                                 2240             2244
+                                                 2244     0000 13 7010 N
+                                                 2245     1111 31 2247
+                                                 2246     0000 36
+                                                 2247     0001 33
+
+2237     FOR I = (1, 1, N)$
+                                                 2248     0000 30
+                                                 2247             2249
+                                                 2246             2249
+
+2248         BEGIN  SUM = 0$
+                                                 2249     0000 46 6688 SUM
+                                                 2250     0000 10 7169 CONST
+                                                 2251     0000 40 6692 J
+                                                 2252     0000 44
+                                                 2253     0000 30
+                                                 2254     0000 10 7169 CONST
+                                                 2255     0000 12 6692 J
+                                                 2256     0000 40 6692 J
+                                                 2253             2257
+                                                 2257     0000 13 7008 M
+                                                 2258     1111 31 2260
+                                                 2259     0000 36
+                                                 2260     0001 33
+
+2250         FOR J = (1, 1, M)$
+                                                 2261     0000 30
+                                                 2260             2262
+                                                 2259             2262
+                                                 2262     0000 10 6692 J
+                                                 2263     4400 28 1603
+                                                 2264   - 0000 40 0000
+                                                 2265     0000 42 7006 I
+                                                 2266   - 0000 10 9456 X
+                                                 2267     4400 28 1603
+                                                 2268   - 0000 40 9999
+
+2261           SUM = SUM + COF(1,J) . G (J, X(I), Y(I))$
+                                                 2269     0000 42 7006 I
+                                                 2270   - 0000 10 9413 Y
+                                                 2271     0000 44 1603 G
+                                                 2272     0200 30 1603
+                                                 2273     0000 42 6692 J
+                                                 2274   - 0000 24 7977 COF
+                                                 2275     0000 22 6688 SUM
+                                                 2276     0000 40 6688 SUM
+                                                 2261             2278
+                                                 2252             2277
+                                                 2277     0000 30
+
+2278         CBV(I) = SUM$
+                                                 2278     0000 10 6688 SUM
+                                                 2279     0000 42 7006 I
+                                                 2280   - 0000 40 9327 CBV
+
+2281         END$
+                                                 2248             2282
+                                                 2239             2281
+                                                 2281     0000 30
+
+2282     WRITE ($$ F2)$
+                                                 2282     0000 10 2283
+                                                 2283     0000 01 0207 F2
+                                                 2284     0000 44 6448 WRITE
+                                                 2285     0000 30 6448
+                                                 2286     0000 10 2287
+                                                 2287     0000 01 0000 RESUL
+                                                 2288     4400 28 6448
+                                                 2289   - 0000 40 0000
+
+2286     WRITE ($$ RESULTS, F1)$
+                                                 2290     0000 10 2291
+                                                 2291     0000 01 0201 F1
+                                                 2292     0000 44 6448 WRITE
+                                                 2293     0100 30 6448
+                                                 2294     0000 30
+                                                 2287             2295
+                                                 2295     0000 30
+                                                 2296     0000 10 7169 CONST
+                                                 2297     0000 40 7006 I
+                                                 2298     0000 44
+                                                 2299     0000 30
+                                                 2300     0000 10 7169 CONST
+                                                 2301     0000 12 7006 I
+                                                 2302     0000 40 7006 I
+                                                 2299             2303
+                                                 2303     0000 13 7010 N
+                                                 2304     1111 31 2306
+                                                 2305     0000 36
+                                                 2306     0001 33
+                                                 2307     0000 30
+                                                 2306             2308
+                                                 2305             2308
+                                                 2308     0000 10 7006 I
+                                                 2309     0100 42 2309
+                                                 2310     0002 20 2295
+                                                 2311     0000 42 7006 I
+                                                 2312   - 0000 10 9456 X
+                                                 2313     0000 42 2313
+                                                 2314     0002 20 2295
+                                                 2315     0000 42 7006 I
+                                                 2316   - 0000 10 9413 Y
+                                                 2317     0000 42 2317
+                                                 2318     0002 20 2295
+                                                 2319     0000 42 7006 I
+                                                 2320   - 0000 10 9370 W
+                                                 2321     0000 42 2321
+                                                 2322     0002 20 2295
+
+2294     OUTPUT RESULTS (FOR I = (1, 1, N)$ (I,X(I),Y(I),W(I), BV(1,I),
+                                                 2323     0000 42 7006 I
+                                                 2324   - 0000 10 9273 BV
+                                                 2325     0000 42 2325
+                                                 2326     0002 20 2295
+                                                 2327     0000 42 7006 I
+                                                 2328   - 0000 10 9327 CBV
+                                                 2329     0000 42 2329
+                                                 2330     0002 20 2295
+                                                 2331     0000 42 7006 I
+                                                 2332   - 0000 10 9327 CBV
+                                                 2333   - 0000 23 9273 BV
+                                                 2334     0000 42 2334
+                                                 2335     0002 20 2295
+                                                 2307             2337
+                                                 2298             2336
+                                                 2336     0000 30
+
+2327                     CBV(I), (CBV(I)-BV(1,I))))$
+
+2327
+                                                 2337     0009 43 0000
+                                                 2338     0000 30 2295
+                                                 2294             2339
+                                                 2339     0000 30
+                                                 2340     6447 01 2340
+                                                 2341     0000 40 6443 TEMP
+                                                 2342     0000 30
+
+2339     PROCEDURE DMMP (NAME, ROW(), RN, SZ)$
+
+2339         BEGIN
+
+2339         INTEGER
+
+2339           NAME, RN, SZ$
+
+2343         INTEGER
+
+2343           I$
+
+2343         FORMAT
+                                                 2343     0000 30
+                                                 2344     0006 60 0400
+                                                 2345     0004 10 0500
+                                                 2346   - 0033 00 1400
+                                                 2347     0006 60 0000
+                                                 2348   - 0000 00 2344
+
+2343           F1 (W4,A5,* = *,W),
+                                                 2349     0006 60 0400
+                                                 2350     0004 10 0500
+                                                 2351   - 2414 00 0000
+                                                 2352     0004 90 0200
+                                                 2353   - 0400 33 0014
+                                                 2354     0006 60 0000
+                                                 2355   - 0000 00 2349
+
+2343           F2 (W4,A5,*(*,I2,*) = *,W),
+                                                 2356     0064 60 2011
+                                                 2357     0006 60 0000
+                                                 2358   - 0000 00 2356
+
+2343           F3 (6F20.11,W)$
+                                                 2343             2359
+
+2359         OUTPUT
+                                                 2359     0000 30
+                                                 2360     0000 30
+
+2361           D1OUT (NAME),
+                                                 2361     0000 10 6447 NAME
+                                                 2362     0100 42 2362
+                                                 2363     0002 20 2360
+                                                 2364     0009 43 0000
+                                                 2365     0000 30 2360
+                                                 2359             2366
+                                                 2366     0000 30
+                                                 2367     0000 30
+                                                 2368     0000 10 6447 NAME
+                                                 2369     0100 42 2369
+                                                 2370     0002 20 2367
+
+2366           D2OUT (NAME, RN),
+                                                 2371     0000 10 6444 RN
+                                                 2372     0100 42 2372
+                                                 2373     0002 20 2367
+                                                 2374     0009 43 0000
+                                                 2375     0000 30 2367
+                                                 2366             2376
+                                                 2376     0000 30
+                                                 2377     0000 30
+                                                 2378     0000 10 7169 CONST
+                                                 2379     0000 40 6442 I
+                                                 2380     0000 44
+                                                 2381     0000 30
+                                                 2382     0000 10 7169 CONST
+                                                 2383     0000 12 6442 I
+                                                 2384     0000 40 6442 I
+                                                 2381             2385
+                                                 2385     0000 13 6443 SZ
+                                                 2386     1111 31 2388
+                                                 2387     0000 36
+                                                 2388     0001 33
+                                                 2389     0000 30
+                                                 2388             2390
+                                                 2387             2390
+                                                 2390     0000 10 6442 I
+                                                 2391     0000 14 6445
+                                                 2392     0001 49 0010
+                                                 2392     0001 40 6441 TEMP
+                                                 2393     0000 42 6441 TEMP
+                                                 2394   - 0000 10 6446 ROW
+                                                 2395     0000 42 2395
+                                                 2396     0002 20 2377
+                                                 2389             2398
+                                                 2380             2397
+                                                 2397     0000 30
+
+2376           ROWOUT (FOR I = (1, 1, SZ)$ ROW(I))$
+
+2376
+                                                 2398     0009 43 0000
+                                                 2399     0000 30 2377
+                                                 2376             2400
+
+2400         EITHER IF RN GTR 0$
+                                                 2400     0000 10 6444 RN
+                                                 2401     0000 36
+                                                 2402     0001 33
+                                                 2403     0000 10 2404
+                                                 2404     0000 01 2367 D2OUT
+                                                 2405     4400 28 6448
+                                                 2406   - 0000 40 0000
+
+2407           WRITE ($$ D2OUT, F2)$
+                                                 2407     0000 10 2408
+                                                 2408     0000 01 2349 F2
+                                                 2409     0000 44 6448 WRITE
+                                                 2410     0100 30 6448
+                                                 2402             2412
+                                                 2401             2412
+                                                 2411     0000 30
+
+2411         OTHERWISE$
+                                                 2412     0000 10 2413
+                                                 2413     0000 01 2360 D1OUT
+                                                 2414     4400 28 6448
+                                                 2415   - 0000 40 0000
+
+2416           WRITE ($$ D1OUT, F1)$
+
+2416
+                                                 2416     0000 10 2417
+                                                 2417     0000 01 2344 F1
+                                                 2418     0000 44 6448 WRITE
+                                                 2419     0100 30 6448
+                                                 2411             2420
+                                                 2420     0000 10 2421
+                                                 2421     0000 01 2377 ROWOU
+                                                 2422     4400 28 6448
+                                                 2423   - 0000 40 0000
+
+2420         WRITE ($$ ROWOUT, F3)$
+                                                 2424     0000 10 2425
+                                                 2425     0000 01 2356 F3
+                                                 2426     0000 44 6448 WRITE
+                                                 2427     0100 30 6448
+                                                 2428     0000 42 2340
+                                                 2429   - 0000 30 0000
+
+2428         RETURN$
+
+2430         END DMMP()$
+
+2430
+                                                 2342             2430
+                                                 2430     0000 10 6446
+                                                 2431     0410 40 2394
+                                                 2432     0000 30 2343
+                                                 2339             2433
+                                                 2433     0000 10 6440 CONST
+                                                 2434     4400 28 2340
+                                                 2435   - 0000 40 0000
+                                                 2436     0000 10 2437
+                                                 2437     0000 01 9456 X
+                                                 2438   - 0000 40 9999
+                                                 2439     0000 10 7169 CONST
+                                                 2440   - 0000 40 9998
+                                                 2441     0000 10 6439 CONST
+                                                 2442   - 0000 40 9997
+
+2433     DMMP (6700000000, X(), 0, N)$
+                                                 2443     0000 10 7010 N
+                                                 2444     0000 44 2340 DMMP
+                                                 2445     0400 30 2340
+                                                 2446     0000 10 6438 CONST
+                                                 2447     4400 28 2340
+                                                 2448   - 0000 40 0000
+                                                 2449     0000 10 2450
+                                                 2450     0000 01 9413 Y
+                                                 2451   - 0000 40 9999
+                                                 2452     0000 10 7169 CONST
+                                                 2453   - 0000 40 9998
+                                                 2454     0000 10 6439 CONST
+                                                 2455   - 0000 40 9997
+
+2446     DMMP (6800000000, Y(), 0, N)$
+                                                 2456     0000 10 7010 N
+                                                 2457     0000 44 2340 DMMP
+                                                 2458     0400 30 2340
+                                                 2459     0000 10 6437 CONST
+                                                 2460     4400 28 2340
+                                                 2461   - 0000 40 0000
+                                                 2462     0000 10 2463
+                                                 2463     0000 01 9370 W
+                                                 2464   - 0000 40 9999
+                                                 2465     0000 10 7169 CONST
+                                                 2466   - 0000 40 9998
+                                                 2467     0000 10 6439 CONST
+                                                 2468   - 0000 40 9997
+
+2459     DMMP (6600000000, W(), 0, N)$
+                                                 2469     0000 10 7010 N
+                                                 2470     0000 44 2340 DMMP
+                                                 2471     0400 30 2340
+                                                 2472     0000 10 6436 CONST
+                                                 2473     4400 28 2340
+                                                 2474   - 0000 40 0000
+                                                 2475     0000 10 2476
+                                                 2476     0000 01 9327 CBV
+                                                 2477   - 0000 40 9999
+                                                 2478     0000 10 7169 CONST
+                                                 2479   - 0000 40 9998
+                                                 2480     0000 10 6439 CONST
+                                                 2481   - 0000 40 9997
+
+2472     DMMP (4342650000, CBV(), 0, N)$
+                                                 2482     0000 10 7010 N
+                                                 2483     0000 44 2340 DMMP
+                                                 2484     0400 30 2340
+                                                 2485     0000 10 6435 CONST
+                                                 2486     4400 28 2340
+                                                 2487   - 0000 40 0000
+                                                 2488     0000 10 2489
+                                                 2489     0000 01 9273 BV
+                                                 2490   - 0000 40 9999
+                                                 2491     0000 10 7169 CONST
+                                                 2492   - 0000 40 9998
+                                                 2493     0000 10 6439 CONST
+                                                 2494   - 0000 40 9997
+                                                 2495     0000 10 7007 P
+                                                 2496     0000 12 7010 N
+
+2485     DMMP (4265000000, BV(1,), 0, N+P)$
+                                                 2497     0000 44 2340 DMMP
+                                                 2498     0400 30 2340
+                                                 2499     0000 10 7169 CONST
+                                                 2500     0000 40 7006 I
+                                                 2501     0000 44
+                                                 2502     0000 30
+                                                 2503     0000 10 7169 CONST
+                                                 2504     0000 12 7006 I
+                                                 2505     0000 40 7006 I
+                                                 2502             2506
+                                                 2506     0000 13 7008 M
+                                                 2507     1111 31 2509
+                                                 2508     0000 36
+                                                 2509     0001 33
+
+2499     FOR I = (1, 1, M)$
+                                                 2510     0000 30
+                                                 2509             2511
+                                                 2508             2511
+                                                 2511     0000 10 6434 CONST
+                                                 2512     4400 28 2340
+                                                 2513   - 0000 40 0000
+                                                 2514     0000 10 7006 I
+                                                 2515     0000 14 6691 CONST
+                                                 2516     0001 49 0010
+                                                 2517     0000 12 2518
+                                                 2518     0000 01 8625 Z
+                                                 2519   - 0000 40 9999
+                                                 2520     0000 10 7169 CONST
+                                                 2521   - 0000 40 9998
+                                                 2522     0000 10 7006 I
+                                                 2523   - 0000 40 9997
+                                                 2524     0000 10 7007 P
+                                                 2525     0000 12 7010 N
+
+2510         DMMP (6900000000, Z(I,), I, N+P)$
+
+2510
+                                                 2526     0000 44 2340 DMMP
+                                                 2527     0400 30 2340
+                                                 2510             2529
+                                                 2501             2528
+                                                 2528     0000 30
+                                                 2529     0000 10 7169 CONST
+                                                 2530     0000 40 7006 I
+                                                 2531     0000 44
+                                                 2532     0000 30
+                                                 2533     0000 10 7169 CONST
+                                                 2534     0000 12 7006 I
+                                                 2535     0000 40 7006 I
+                                                 2532             2536
+                                                 2536     0000 40 6781 TEMP
+                                                 2537     0000 10 7169 CONST
+                                                 2538     0000 12 7008 M
+                                                 2539     0000 13 6781 TEMP
+                                                 2540     1111 31 2542
+                                                 2541     0000 36
+                                                 2542     0000 33
+
+2529     FOR I = (1, 1, M+1)$
+                                                 2543     0000 30
+                                                 2542             2544
+                                                 2541             2544
+                                                 2544     0000 10 6433 CONST
+                                                 2545     4400 28 2340
+                                                 2546   - 0000 40 0000
+                                                 2547     0000 10 7006 I
+                                                 2548     0000 14 6691 CONST
+                                                 2549     0001 49 0010
+                                                 2550     0000 12 2551
+                                                 2551     0000 01 7977 ORTHV
+                                                 2552   - 0000 40 9999
+                                                 2553     0000 10 7169 CONST
+                                                 2554   - 0000 40 9998
+                                                 2555     0000 10 7006 I
+                                                 2556   - 0000 40 9997
+                                                 2557     0000 10 7007 P
+                                                 2558     0000 12 7010 N
+
+2543         DMMP (5659634865, ORTHV(I,), I, N+P)$
+
+2543
+                                                 2559     0000 44 2340 DMMP
+                                                 2560     0400 30 2340
+                                                 2543             2562
+                                                 2531             2561
+                                                 2561     0000 30
+                                                 2562     0000 10 6432 CONST
+                                                 2563     4400 28 2340
+                                                 2564   - 0000 40 0000
+                                                 2565     0000 10 2566
+                                                 2566     0000 01 7988 DEV
+                                                 2567   - 0000 40 9999
+                                                 2568     0000 10 7169 CONST
+                                                 2569   - 0000 40 9998
+                                                 2570     0000 10 6439 CONST
+                                                 2571   - 0000 40 9997
+
+2562     DMMP (4445650000, DEV(1,), 0, N)$
+                                                 2572     0000 10 7010 N
+                                                 2573     0000 44 2340 DMMP
+                                                 2574     0400 30 2340
+                                                 2575     0000 10 6431 CONST
+                                                 2576     4400 28 2340
+                                                 2577   - 0000 40 0000
+                                                 2578     0000 10 2579
+                                                 2579     0000 01 7977 COF
+                                                 2580   - 0000 40 9999
+                                                 2581     0000 10 7169 CONST
+                                                 2582   - 0000 40 9998
+                                                 2583     0000 10 6439 CONST
+                                                 2584   - 0000 40 9997
+
+2575     DMMP (4356460000, COF(1,), 0, P)$
+                                                 2585     0000 10 7007 P
+                                                 2586     0000 44 2340 DMMP
+                                                 2587     0400 30 2340
+                                                 2588     0000 10 6430 CONST
+                                                 2589     4400 28 2340
+                                                 2590   - 0000 40 0000
+                                                 2591     0000 10 2592
+                                                 2592     0000 01 7976 STD
+                                                 2593   - 0000 40 9999
+                                                 2594     0000 10 7169 CONST
+                                                 2595   - 0000 40 9998
+                                                 2596     0000 10 6439 CONST
+                                                 2597   - 0000 40 9997
+
+2588     DMMP (6263440000, STD(), 0, 1)$
+                                                 2598     0000 10 7169 CONST
+                                                 2599     0000 44 2340 DMMP
+                                                 2600     0400 30 2340
+                                                 2601     0000 10 7169 CONST
+                                                 2602     0000 40 7006 I
+                                                 2603     0000 44
+                                                 2604     0000 30
+                                                 2605     0000 10 7169 CONST
+                                                 2606     0000 12 7006 I
+                                                 2607     0000 40 7006 I
+                                                 2604             2608
+                                                 2608     0000 40 6781 TEMP
+                                                 2609     0000 10 7169 CONST
+                                                 2610     0000 12 7007 P
+                                                 2611     0000 13 6781 TEMP
+                                                 2612     1111 31 2614
+                                                 2613     0000 36
+                                                 2614     0000 33
+
+2601     FOR I = (1, 1, P+1)$
+                                                 2615     0000 30
+                                                 2614             2616
+                                                 2613             2616
+                                                 2616     0000 10 6429 CONST
+                                                 2617     4400 28 2340
+                                                 2618   - 0000 40 0000
+                                                 2619     0000 10 7006 I
+                                                 2620     0000 14 7009 CONST
+                                                 2621     0001 49 0010
+                                                 2622     0000 12 2623
+                                                 2623     0000 01 7833 CV
+                                                 2624   - 0000 40 9999
+                                                 2625     0000 10 7169 CONST
+                                                 2626   - 0000 40 9998
+                                                 2627     0000 10 7006 I
+                                                 2628   - 0000 40 9997
+
+2615         DMMP (4365000000, CV(I,), I, P)$
+
+2615
+                                                 2629     0000 10 7007 P
+                                                 2630     0000 44 2340 DMMP
+                                                 2631     0400 30 2340
+                                                 2615             2633
+                                                 2603             2632
+                                                 2632     0000 30
+                                                 2633     0000 10 7169 CONST
+                                                 2634     0000 40 7006 I
+                                                 2635     0000 44
+                                                 2636     0000 30
+                                                 2637     0000 10 7169 CONST
+                                                 2638     0000 12 7006 I
+                                                 2639     0000 40 7006 I
+                                                 2636             2640
+                                                 2640     0000 40 6781 TEMP
+                                                 2641     0000 10 7169 CONST
+                                                 2642     0000 12 7007 P
+                                                 2643     0000 13 6781 TEMP
+                                                 2644     1111 31 2646
+                                                 2645     0000 36
+                                                 2646     0000 33
+
+2633     FOR I = (1, 1, P+1)$
+                                                 2647     0000 30
+                                                 2646             2648
+                                                 2645             2648
+                                                 2648     0000 10 6428 CONST
+                                                 2649     4400 28 2340
+                                                 2650   - 0000 40 0000
+                                                 2651     0000 10 7006 I
+                                                 2652     0000 14 7009 CONST
+                                                 2653     0001 49 0010
+                                                 2654     0000 12 2655
+                                                 2655     0000 01 7701 VCV
+                                                 2656   - 0000 40 9999
+                                                 2657     0000 10 7169 CONST
+                                                 2658   - 0000 40 9998
+                                                 2659     0000 10 7006 I
+                                                 2660   - 0000 40 9997
+
+2647         DMMP (6543650000, VCV(1,I,), I, P)$
+
+2647
+                                                 2661     0000 10 7007 P
+                                                 2662     0000 44 2340 DMMP
+                                                 2663     0400 30 2340
+                                                 2647             2665
+                                                 2635             2664
+                                                 2664     0000 30
+                                                 2665     0000 10 6427 CONST
+                                                 2666     4400 28 2340
+                                                 2667   - 0000 40 0000
+                                                 2668     0000 10 2669
+                                                 2669     0000 01 7667 EP
+                                                 2670   - 0000 40 9999
+                                                 2671     0000 10 7169 CONST
+                                                 2672   - 0000 40 9998
+                                                 2673     0000 10 6439 CONST
+                                                 2674   - 0000 40 9997
+
+2665     DMMP (4557000000, EP(1,), 0, M)$
+                                                 2675     0000 10 7008 M
+                                                 2676     0000 44 2340 DMMP
+                                                 2677     0400 30 2340
+                                                 2678     0000 10 7169 CONST
+                                                 2679     0000 40 7006 I
+                                                 2680     0000 44
+                                                 2681     0000 30
+                                                 2682     0000 10 7169 CONST
+                                                 2683     0000 12 7006 I
+                                                 2684     0000 40 7006 I
+                                                 2681             2685
+                                                 2685     0000 13 7008 M
+                                                 2686     1111 31 2688
+                                                 2687     0000 36
+                                                 2688     0001 33
+
+2678     FOR I = (1, 1, M)$
+                                                 2689     0000 30
+                                                 2688             2690
+                                                 2687             2690
+                                                 2690     0000 10 6426 CONST
+                                                 2691     4400 28 2340
+                                                 2692   - 0000 40 0000
+                                                 2693     0000 10 7006 I
+                                                 2694     0000 14 7009 CONST
+                                                 2695     0001 49 0010
+                                                 2696     0000 12 2697
+                                                 2697     0000 01 7535 A
+                                                 2698   - 0000 40 9999
+                                                 2699     0000 10 7169 CONST
+                                                 2700   - 0000 40 9998
+                                                 2701     0000 10 7006 I
+                                                 2702   - 0000 40 9997
+
+2689         DMMP (4100000000, A(I,), I, P)$
+
+2689
+                                                 2703     0000 10 7007 P
+                                                 2704     0000 44 2340 DMMP
+                                                 2705     0400 30 2340
+                                                 2689             2707
+                                                 2680             2706
+                                                 2706     0000 30
+                                                 2707     0000 10 6425 CONST
+                                                 2708     4400 28 2340
+                                                 2709   - 0000 40 0000
+                                                 2710     0000 10 2711
+                                                 2711     0000 01 7534 GF
+                                                 2712   - 0000 40 9999
+                                                 2713     0000 10 7169 CONST
+                                                 2714   - 0000 40 9998
+                                                 2715     0000 10 6439 CONST
+                                                 2716   - 0000 40 9997
+                                                 2717     0000 10 7169 CONST
+                                                 2718     0000 12 7008 M
+
+2707     DMMP (4746000000, GF(), 0, M+1)$
+                                                 2719     0000 44 2340 DMMP
+                                                 2720     0400 30 2340
+                                                 2721     0000 10 6424 CONST
+                                                 2722     4400 28 2340
+                                                 2723   - 0000 40 0000
+                                                 2724     0000 10 2725
+                                                 2725     0000 01 7700 Q
+                                                 2726   - 0000 40 9999
+                                                 2727     0000 10 7169 CONST
+                                                 2728   - 0000 40 9998
+                                                 2729     0000 10 6439 CONST
+                                                 2730   - 0000 40 9997
+                                                 2731     0000 10 7169 CONST
+                                                 2732     0000 12 7008 M
+
+2721     DMMP (5800000000, Q(1,), 0, M+1)$
+                                                 2733     0000 44 2340 DMMP
+                                                 2734     0400 30 2340
+                                                 2735     0000 10 6423 CONST
+                                                 2736     4400 28 2340
+                                                 2737   - 0000 40 0000
+                                                 2738     0000 10 2739
+                                                 2739     0000 01 7689 Q2
+                                                 2740   - 0000 40 9999
+                                                 2741     0000 10 7169 CONST
+                                                 2742   - 0000 40 9998
+                                                 2743     0000 10 6439 CONST
+                                                 2744   - 0000 40 9997
+
+2735     DMMP (5882000000, Q2(1,), 0, M)$
+                                                 2745     0000 10 7008 M
+                                                 2746     0000 44 2340 DMMP
+                                                 2747     0400 30 2340
+                                                 2748     0000 10 6422 CONST
+                                                 2749     4400 28 2340
+                                                 2750   - 0000 40 0000
+                                                 2751     0000 10 2752
+                                                 2752     0000 01 7678 E
+                                                 2753   - 0000 40 9999
+                                                 2754     0000 10 7169 CONST
+                                                 2755   - 0000 40 9998
+                                                 2756     0000 10 6439 CONST
+                                                 2757   - 0000 40 9997
+
+2748     DMMP (4500000000, E(1,), 0, M)$
+                                                 2758     0000 10 7008 M
+                                                 2759     0000 44 2340 DMMP
+                                                 2760     0400 30 2340
+                                                 2761     0000 10 6421 CONST
+                                                 2762     4400 28 2340
+                                                 2763   - 0000 40 0000
+                                                 2764     0000 10 2765
+                                                 2765     0000 01 7523 ENF
+                                                 2766   - 0000 40 9999
+                                                 2767     0000 10 7169 CONST
+                                                 2768   - 0000 40 9998
+                                                 2769     0000 10 6439 CONST
+                                                 2770   - 0000 40 9997
+
+2761     DMMP (4555460000, ENF(), 0, M)$
+                                                 2771     0000 10 7008 M
+                                                 2772     0000 44 2340 DMMP
+                                                 2773     0400 30 2340
+
+2774     FINISH$
+                                                 2774     9669 00 9669
+                                                 2775     1000 60 0000
+                                                 6439     0000 00 0000 POOL
+                                                 7169     0000 00 0001
+                                                 7098     0000 00 0002
+                                                 7011     0000 00 0043
+                                                 7009     0000 00 0011
+                                                 6691     0000 00 0054
+                                                 6690     0000 00 0012
+                                                 7078     0000 00 0003
+                                                 7030     0000 00 0004
+                                                 7026     0000 00 0005
+                                                 7023     0000 00 0006
+                                                 7020     0000 00 0007
+                                                 7016     0000 00 0008
+                                                 6440     6700 00 0000
+                                                 6438     6800 00 0000
+                                                 6437     6600 00 0000
+                                                 6436     4342 65 0000
+                                                 6435     4265 00 0000
+                                                 6434     6900 00 0000
+                                                 6433     5659 63 4865
+                                                 6432     4445 65 0000
+                                                 6431     4356 46 0000
+                                                 6430     6263 44 0000
+                                                 6429     4365 00 0000
+                                                 6428     6543 65 0000
+                                                 6427     4557 00 0000
+                                                 6426     4100 00 0000
+                                                 6425     4746 00 0000
+                                                 6424     5800 00 0000
+                                                 6423     5882 00 0000
+                                                 6422     4500 00 0000
+                                                 6421     4555 46 0000
+                                                 7162     5110 00 0000
+                                                 7070     5120 00 0000
+                                                 7031     5130 00 0000
+                                                 7029     5160 00 0000
+                                                 7027     5140 00 0000
+                                                 7025     5210 00 0000
+                                                 7024     5150 00 0000
+                                                 7022     5215 00 0000
+                                                 7021     5220 00 0000
+                                                 7019     5221 00 0000
+                                                 7018     5235 00 0000
+                                                 7017     5170 00 0000
+                                                 7015     5228 00 0000
+                                                 7014     5270 00 0000
+                                                 7013     5180 00 0000
+                                                 7012     5256 00 0000
+                                                 7102     0006 45 0000
+                                                 7103     2200 36 7106
+                                                 7104     0000 48 0001
+                                                 7105     0001 20 7103
+                                                 7106     0001 48 0008
+                                                 7107   - 0000 10 7112
+                                                 7108     0001 49 0008
+                                                 7109     0000 22 7115
+                                                 7110     0000 42 7102
+                                                 7111   - 0000 30 0000
+                                                 7112     0000 00 0058
+                                                 7113     0000 00 0059
+                                                 7114     0000 00 0060
+                                                 7115     5800 00 0000
+                                                 6448     0100 01 0000
+                                                 6449     0410 40 6484
+                                                 6450     0000 42 6452
+                                                 6451     0010 29 6684
+                                                 6452     0300 29 0101
+                                                 6453     0000 42 6448
+                                                 6454     0412 40 6533
+                                                 6455   - 0000 41 9999
+                                                 6456     0009 43 7557
+                                                 6457     2200 37 6461
+                                                 6458     0000 42 0100
+                                                 6459   - 0000 44 0000
+                                                 6460   - 2201 37 0001
+                                                 6461     0000 40 0132
+                                                 6462     0412 40 6515
+                                                 6463     0000 41 0130
+                                                 6464     0000 37 6482
+                                                 6465     0000 10 0134
+                                                 6466     0000 46 0133
+                                                 6467     5246 37 6644
+                                                 6468     5267 37 6620
+                                                 6469     5249 37 6558
+                                                 6470     5262 37 6671
+                                                 6471     5241 37 6473
+                                                 6472     0000 30 6659
+                                                 6473     0000 41 6491
+                                                 6474     0001 27 0129
+                                                 6475     0000 44 6616
+                                                 6476     0000 30 6607
+                                                 6477     0000 10 0129
+                                                 6478     0000 36 6498
+                                                 6479     2299 37 6512
+                                                 6480     0001 49 0010
+                                                 6481     0000 30 6474
+                                                 6482     0000 42 6449
+                                                 6483     0000 31 6375 ERROR
+                                                 6484     0000 10 9999
+                                                 6485     0401 26 6484
+                                                 6486     0000 33 6500
+                                                 6487     0000 41 6491
+                                                 6488     0001 33 6516
+                                                 6489     2214 36 6484
+                                                 6490     0000 44 6616
+                                                 6491     9900 30 6607
+                                                 6492     2299 37 6484
+                                                 6493     0001 49 0010
+                                                 6494     0000 30 6489
+                                                 6495     0000 10 0129
+                                                 6496     0000 19 0125
+                                                 6497     0000 19 0125
+                                                 6498     0000 10 0130
+                                                 6499     3300 36 6482
+                                                 6500     3300 36 6502
+                                                 6501     0000 13 6685
+                                                 6502     0000 40 0130
+                                                 6503     0210 40 0131
+                                                 6504     0001 48 0002
+                                                 6505     0310 40 0129
+                                                 6506     7242 36 6495
+                                                 6507     7266 36 6536
+                                                 6508     7257 36 6544
+                                                 6509     7263 36 6546
+                                                 6510     7243 36 6535
+                                                 6511     0300 36 6484
+                                                 6512     0000 10 0132
+                                                 6513     0000 40 0134
+                                                 6514     0009 33 6495
+                                                 6515     0000 30 9999
+                                                 6516     0000 42 6484
+                                                 6517     6600 36 6532
+                                                 6518     0001 49 0003
+                                                 6519     0300 37 6526
+                                                 6520     0000 13 6685
+                                                 6521     3300 36 6528
+                                                 6522   - 6301 27 9999
+                                                 6523   - 0000 41 9999
+                                                 6524     0411 40 6484
+                                                 6525     0000 30 6484
+                                                 6526   - 3310 40 9999
+                                                 6527     0000 30 6520
+                                                 6528   - 0000 10 9999
+                                                 6529     0001 48 0003
+                                                 6530   - 6610 40 9999
+                                                 6531     0000 30 6484
+                                                 6532     0000 10 0132
+                                                 6533     0009 33 9999
+                                                 6534     0000 30 6523
+                                                 6535     1008 61 0124
+                                                 6536     0001 48 0003
+                                                 6537     3111 40 6538
+                                                 6538     2408 44 6408 REED
+                                                 6539     0101 30 6408 REED
+                                                 6540     0000 42 6542
+                                                 6541     0010 29 6684
+                                                 6542     0240 29 0101
+                                                 6543     0000 30 6498
+                                                 6544     1008 61 0124
+                                                 6545     0000 30 6540
+                                                 6546     0300 36 6551
+                                                 6547     0010 09 6550
+                                                 6548     0001 12 6528
+                                                 6549     0000 30 6546
+                                                 6550     1602 02 0202
+                                                 6551     0000 10 0125
+                                                 6552     0000 36 6498
+                                                 6553     0000 12 6621
+                                                 6554     0001 48 0004
+                                                 6555     3211 40 6556
+                                                 6556     0990 09 0101
+                                                 6557     0000 30 6540
+                                                 6558     0000 42 6568
+                                                 6559     0000 36 6617
+                                                 6560     1100 36 6618
+                                                 6561     0000 40 0134
+                                                 6562     0003 45 0080
+                                                 6563     0002 40 0128
+                                                 6564     0000 46 0126
+                                                 6565     0410 40 0126
+                                                 6566     0001 40 0127
+                                                 6567     0000 10 0134
+                                                 6568     0002 48 0010
+                                                 6569     0001 43 0023
+                                                 6570     0000 12 0129
+                                                 6571     0000 13 0128
+                                                 6572     0001 33 6659
+                                                 6573     0000 19 0125
+                                                 6574     5000 19 0125
+                                                 6575     0000 10 0134
+                                                 6576     0000 41 6612
+                                                 6577     0000 44 6616
+                                                 6578     0001 33 6606
+                                                 6579     0001 27 0128
+                                                 6580     0000 32 6592
+                                                 6581     0000 41 0127
+                                                 6582     0000 37 6498
+                                                 6583     0000 41 6569
+                                                 6584     0000 44 6616
+                                                 6585     0000 30 6606
+                                                 6586     0000 10 0127
+                                                 6587     0000 13 6574
+                                                 6588     0000 42 6504
+                                                 6589     0000 46 0129
+                                                 6590     0003 26 0129
+                                                 6591     0000 30 6561
+                                                 6592     0001 27 0126
+                                                 6593     0000 41 0126
+                                                 6594     0000 37 6600
+                                                 6595     0000 41 0133
+                                                 6596     0000 37 6602
+                                                 6597     0001 27 0133
+                                                 6598     0000 41 6562
+                                                 6599     0000 30 6606
+                                                 6600     0000 41 6529
+                                                 6601     0000 30 6606
+                                                 6602     0000 10 0134
+                                                 6603     0000 41 6621
+                                                 6604     0001 49 0001
+                                                 6605     0000 40 0134
+                                                 6606     0001 49 0018
+                                                 6607     0001 48 0008
+                                                 6608     0001 42 0125
+                                                 6609   - 0000 49 0008
+                                                 6610     9400 28 0125
+                                                 6611     0024 21 6616
+                                                 6612     0000 43 0020
+                                                 6613   - 0000 12 0125
+                                                 6614   - 0010 40 0125
+                                                 6615     0002 26 0125
+                                                 6616     0000 30 9999
+                                                 6617     0009 21 6562
+                                                 6618     0000 49 0051
+                                                 6619     0001 21 6560
+                                                 6620     0002 45 7557
+                                                 6621     0001 48 0008
+                                                 6622     0410 18 6686
+                                                 6623     0001 40 0134
+                                                 6624     0001 34 6634
+                                                 6625     0410 40 6632
+                                                 6626     0449 27 6632
+                                                 6627     0000 42 6632
+                                                 6628     0000 10 0130
+                                                 6629     0001 48 0004
+                                                 6630     4211 40 6633
+                                                 6631     0000 10 6632
+                                                 6632     0002 45 9999
+                                                 6633     0000 20 6563
+                                                 6634     0000 43 7557
+                                                 6635     0000 13 6686
+                                                 6636     0210 40 0133
+                                                 6637     0211 18 0130
+                                                 6638     0000 35 6641
+                                                 6639     0000 10 6686
+                                                 6640     0000 30 6625
+                                                 6641     0000 10 6618
+                                                 6642     1110 40 0134
+                                                 6643     0000 30 6625
+                                                 6644     0304 27 0129
+                                                 6645     0000 32 6648
+                                                 6646     0000 30 6658
+                                                 6647     0000 10 6687
+                                                 6648     0000 36 6647
+                                                 6649     0002 45 7557
+                                                 6650     2210 40 6573
+                                                 6651     0001 48 0008
+                                                 6652     0001 40 0134
+                                                 6653     0002 48 0010
+                                                 6654     0000 12 0130
+                                                 6655     0000 17 6618
+                                                 6656     0310 18 0129
+                                                 6657     0001 34 6667
+                                                 6658     0004 26 0129
+                                                 6659     0000 10 0129
+                                                 6660     0000 19 0125
+                                                 6661     0000 19 0125
+                                                 6662     0002 27 0125
+                                                 6663     0000 41 6674
+                                                 6664     0000 44 6616
+                                                 6665     0000 30 6606
+                                                 6666     0000 30 6498
+                                                 6667     0000 41 6573
+                                                 6668     0000 10 6604
+                                                 6669     0000 42 0131
+                                                 6670     0001 20 6563
+                                                 6671     0002 45 7557
+                                                 6672     0001 48 0008
+                                                 6673     0001 40 0134
+                                                 6674     0000 43 0014
+                                                 6675     0000 13 6686
+                                                 6676     0002 45 7557
+                                                 6677     0001 33 6682
+                                                 6678     0210 18 0130
+                                                 6679     0000 34 6659
+                                                 6680     0000 12 6604
+                                                 6681     0000 30 6669
+                                                 6682     0010 40 0133
+                                                 6683     0000 30 6668
+                                                 6684     0000 00 0000
+                                                 6685     0010 00 0000
+                                                 6686     0000 00 0050
+                                                 6687     5000 00 0000
+                                                 6867   - 0128 01 0000
+                                                 6868     0410 40 6957
+                                                 6869     0410 40 6958
+                                                 6870     0401 26 6958
+                                                 6871     0000 44 6964
+                                                 6872     0000 30 6957
+                                                 6873     0000 42 6995
+                                                 6874   - 0000 46 0000
+                                                 6875     0000 46 7003
+                                                 6876     0000 44 6351 RITE
+                                                 6877     0117 30 6351 RITE
+                                                 6878     0000 46 7005
+                                                 6879     0502 26 7005
+                                                 6880     0000 42 6995
+                                                 6881     9999 20 6885
+                                                 6882     6400 28 7003
+                                                 6883     0000 10 0101
+                                                 6884     9999 20 6979
+                                                 6885     9400 28 7005
+                                                 6886   - 0000 10 0101
+                                                 6887     0000 42 7005
+                                                 6888   - 0000 49 0000
+                                                 6889     0502 26 7005
+                                                 6890     0000 41 7003
+                                                 6891     0000 37 6905
+                                                 6892     0160 21 6876
+                                                 6893     4400 28 7003
+                                                 6894     2213 36 6920
+                                                 6895     0000 48 0008
+                                                 6896   - 0000 49 0000
+                                                 6897     0000 19 7002
+                                                 6898     4102 27 7003
+                                                 6899     0000 32 6885
+                                                 6900     0000 10 7002
+                                                 6901     0000 44 6964
+                                                 6902     0000 30 6957
+                                                 6903     5212 27 7003
+                                                 6904     0000 30 6885
+                                                 6905     0162 21 6876
+                                                 6906     1108 36 6936
+                                                 6907     2203 36 6932
+                                                 6908     2220 36 6930
+                                                 6909     2234 36 6930
+                                                 6910     2223 36 6925
+                                                 6911     2213 36 6987
+                                                 6912     2214 36 6918
+                                                 6913     0000 42 6999
+                                                 6914     9999 20 6885
+                                                 6915     0000 44 6964
+                                                 6916     0000 30 6943
+                                                 6917     0000 30 6885
+                                                 6918     9416 26 7005
+                                                 6919     0000 30 6913
+                                                 6920     0000 46 7003
+                                                 6921     0000 10 7002
+                                                 6922     0000 44 6964
+                                                 6923     9992 20 6957
+                                                 6924     0000 30 6885
+                                                 6925     0001 26 7001
+                                                 6926     0000 44 6964
+                                                 6927     0000 30 6943
+                                                 6928     0001 26 6998
+                                                 6929     0000 30 6885
+                                                 6930     0001 26 6997
+                                                 6931     0000 30 6885
+                                                 6932     0000 41 6991
+                                                 6933     2211 40 6996
+                                                 6934     0001 26 7000
+                                                 6935     0000 30 6885
+                                                 6936     0000 49 0001
+                                                 6937     0000 41 7002
+                                                 6938     0001 49 0001
+                                                 6939     0001 40 7002
+                                                 6940     2201 27 6996
+                                                 6941     0001 26 6999
+                                                 6942     0000 30 6885
+                                                 6943     0000 41 6998
+                                                 6944     0000 37 6970
+                                                 6945     0000 42 6997
+                                                 6946     0000 11 7002
+                                                 6947     0000 49 0008
+                                                 6948     9999 20 6950
+                                                 6949     0000 43 0000
+                                                 6950     0001 13 7004
+                                                 6951     1210 27 7004
+                                                 6952     0000 32 6957
+                                                 6953     0000 43 0000
+                                                 6954     0000 30 6957
+                                                 6955     0000 42 7001
+                                                 6956     0001 21 6965
+                                                 6957     0000 44 0090
+                                                 6958     0000 30 0091
+                                                 6959     0009 33 6967
+                                                 6960     0412 40 6958
+                                                 6961     0000 42 6975
+                                                 6962     0000 46 6996
+                                                 6963     0070 29 6996
+                                                 6964     0000 30 0097
+                                                 6965     0000 40 7004
+                                                 6966     0000 30 6961
+                                                 6967     0000 42 6867
+                                                 6968     0000 46 6995
+                                                 6969   - 0000 30 0000
+                                                 6970     0000 10 7002
+                                                 6971     0000 42 7000
+                                                 6972     9999 20 6975
+                                                 6973     0000 12 6996
+                                                 6974     0000 22 6996
+                                                 6975     0000 42 6997
+                                                 6976     9999 20 6955
+                                                 6977     0001 43 0000
+                                                 6978     0000 30 6955
+                                                 6979     0810 18 6992
+                                                 6980     0001 35 6885
+                                                 6981     0000 41 0102
+                                                 6982     0011 18 6993
+                                                 6983     0001 35 6885
+                                                 6984     0000 42 6995
+                                                 6985   - 0001 26 0000
+                                                 6986     0000 30 6967
+                                                 6987     0000 42 6999
+                                                 6988     9999 20 6903
+                                                 6989     0502 27 7005
+                                                 6990     0000 30 6915
+                                                 6991     5800 00 0000
+                                                 6992     8562 45 5563
+                                                 6993     4955 45 5300
+                                                 6994     5110 00 0000
+                                                 6995     0000 00 0000
+                                                 6996     0000 00 0000
+                                                 6997     0000 00 0000
+                                                 6998     0000 00 0000
+                                                 6999     0000 00 0000
+                                                 7000     0000 00 0000
+                                                 7001     0000 00 0000
+                                                 7002     0000 00 0000
+                                                 7003     0000 00 0000
+                                                 7004     0000 00 0000
+                                                 7005     0000 00 0000
+                                                 6354     0000 44 6387
+                                                 6355     0000 30 6383
+                                                 6356     5945 62 6453
+                                                 6357     6300 56 6463
+                                                 6358     0056 46 0059
+                                                 6359     4155 47 4500
+                                                 6360     4955 00 0000
+                                                 6361     0000 44 6387
+                                                 6362     0000 30 6383
+                                                 6363     5945 62 6453
+                                                 6364     6300 64 5544
+                                                 6365     4546 49 5545
+                                                 6366     4400 46 5659
+                                                 6367     0000 00 0000
+                                                 6368     0000 44 6387
+                                                 6369     0000 30 6383
+                                                 6370     5945 62 6453
+                                                 6371     6300 49 5353
+                                                 6372     2044 45 4649
+                                                 6373     5545 44 0046
+                                                 6374     5659 00 0000
+                                                 6375     0000 46 6396
+                                                 6376     0000 44 6387
+                                                 6377     0000 30 6385
+                                                 6378     0000 00 0000
+                                                 6379     0041 59 4963
+                                                 6380     4854 45 6349
+                                                 6381     4300 56 6545
+                                                 6382     5946 53 5666
+                                                 6383     0001 40 6396
+                                                 6384     0003 45 0000
+                                                 6385     0412 40 6390
+                                                 6386     0000 42 6407
+                                                 6387     0050 29 0033
+                                                 6388     1106 44 6408 REED
+                                                 6389     0037 30 6408 REED
+                                                 6390     0000 30 0036
+                                                 6391     0000 00 0000
+                                                 6392     0000 00 0000
+                                                 6393     0000 00 0000
+                                                 6394     0000 00 0000
+                                                 6395     0000 00 0000
+                                                 6396     0000 00 0000
+                                                 6397     0000 00 0000
+                                                 6398     0000 00 0000
+                                                 6399     0000 00 0000
+                                                 6400     0000 00 0000
+                                                 6401     0000 00 0000
+                                                 6402     5000 00 0000
+                                                 6403     0000 00 0000
+                                                 6404     0000 00 0000
+                                                 6405     5110 00 0000
+                                                 6406     0000 00 0000
+                                                 6407     0000 00 6391
+                                                 7116     0004 45 0000
+                                                 7117     0000 42 7116
+                                                 7118   - 0000 36 0000
+                                                 7119     0001 33 7150
+                                                 7120     0810 40 7152
+                                                 7121     2310 40 7153
+                                                 7122     0000 10 6402 ERROR
+                                                 7123     0000 14 7153
+                                                 7124     0000 13 7154
+                                                 7125     2310 40 7153
+                                                 7126     3110 18 7153
+                                                 7127     0000 35 7130
+                                                 7128     0001 33 7130
+                                                 7129     2201 26 7153
+                                                 7130     0000 10 7155
+                                                 7131     0000 24 7152
+                                                 7132     0000 22 7156
+                                                 7133     0000 24 7152
+                                                 7134     0000 22 7157
+                                                 7135     0000 40 6403 ERROR
+                                                 7136     0000 10 7152
+                                                 7137     0000 25 6403 ERROR
+                                                 7138     0000 22 6403 ERROR
+                                                 7139     0000 24 7158
+                                                 7140     0000 40 6403 ERROR
+                                                 7141     0000 10 7152
+                                                 7142     0000 25 6403 ERROR
+                                                 7143     0000 22 6403 ERROR
+                                                 7144     0000 12 7153
+                                                 7145     0000 35 7148
+                                                 7146     0000 24 7159
+                                                 7147   - 0000 30 0000
+                                                 7148     0000 24 7158
+                                                 7149   - 0000 30 0000
+                                                 7150     0000 41 7160
+                                                 7151     0000 30 6361 ERROR
+                                                 7152     5110 00 0000
+                                                 7153     0000 00 0000
+                                                 7154     2550 00 0000
+                                                 7155   - 4916 45 0338
+                                                 7156     5041 11 7101
+                                                 7157     5062 69 7923
+                                                 7158     5050 00 0000
+                                                 7159     5015 81 1388
+                                                 7160     6258 59 6300
+                                                 6792     0002 45 0000
+                                                 6793     0000 41 6854
+                                                 6794     0411 40 6849
+                                                 6795     1210 40 6792
+                                                 6796     0010 18 6856
+                                                 6797     0000 34 6847
+                                                 6798     0001 49 0002
+                                                 6799     0211 40 6800
+                                                 6800     0002 45 0000
+                                                 6801     0000 42 6800
+                                                 6802     0000 14 6857
+                                                 6803     9949 20 6806
+                                                 6804   - 0001 49 0001
+                                                 6805     0001 42 6804
+                                                 6806     0001 49 0008
+                                                 6807     2211 40 6853
+                                                 6808     2251 26 6853
+                                                 6809     0001 49 0012
+                                                 6810     0002 45 0000
+                                                 6811     0010 20 6813
+                                                 6812   - 0001 49 0001
+                                                 6813     0001 49 0010
+                                                 6814     0000 40 6404 ERROR
+                                                 6815     0000 14 6404 ERROR
+                                                 6816     0000 40 6406 ERROR
+                                                 6817     0000 14 6858
+                                                 6818     0000 12 6859
+                                                 6819     0000 14 6406 ERROR
+                                                 6820     0000 12 6860
+                                                 6821     0000 14 6406 ERROR
+                                                 6822     0000 12 6861
+                                                 6823     0000 14 6404 ERROR
+                                                 6824     0000 40 6404 ERROR
+                                                 6825     0000 40 6403 ERROR
+                                                 6826     0000 10 6862
+                                                 6827     0000 14 6406 ERROR
+                                                 6828     0000 12 6863
+                                                 6829     0000 14 6406 ERROR
+                                                 6830     0000 12 6864
+                                                 6831     0000 14 6406 ERROR
+                                                 6832     0000 12 6865
+                                                 6833     0000 19 6403 ERROR
+                                                 6834     0000 13 6404 ERROR
+                                                 6835     0001 48 0003
+                                                 6836     0000 15 6403 ERROR
+                                                 6837     0001 12 6853
+                                                 6838     1210 27 6792
+                                                 6839     0000 42 6792
+                                                 6840     0000 32 6842
+                                                 6841   - 0000 30 0000
+                                                 6842     0000 40 6404 ERROR
+                                                 6843     0000 10 6866
+                                                 6844     9999 41 6844
+                                                 6845     0000 25 6404 ERROR
+                                                 6846   - 0000 30 0000
+                                                 6847     0000 42 6792
+                                                 6848     0001 33 6851
+                                                 6849     0000 41 6855
+                                                 6850     0000 30 6354 ERROR
+                                                 6851     0001 45 0000
+                                                 6852   - 0000 30 0000
+                                                 6853     0000 00 0000
+                                                 6854     0000 00 6855
+                                                 6855     4567 57 0000
+                                                 6856     5311 28 2665
+                                                 6857     4342 94 4819
+                                                 6858   - 0000 01 7159
+                                                 6859   - 0004 89 3282
+                                                 6860   - 0169 20 3872
+                                                 6861   - 0995 71 1477
+                                                 6862     0000 41 7304
+                                                 6863     0035 41 8755
+                                                 6864     0529 08 7016
+                                                 6865     0864 86 4000
+                                                 6866     5099 99 9999
+                                                 6694     0006 45 0000
+                                                 6695     0001 33 6755
+                                                 6696     0000 36 6755
+                                                 6697     0001 48 0002
+                                                 6698     4210 40 6762
+                                                 6699     0001 49 0004
+                                                 6700     0000 18 6708
+                                                 6701     0001 34 6738
+                                                 6702     0000 18 6727
+                                                 6703     0000 34 6738
+                                                 6704     0001 48 0001
+                                                 6705     0000 12 6763
+                                                 6706     0000 40 6406 ERROR
+                                                 6707     0000 13 6764
+                                                 6708     1014 15 6406 ERROR
+                                                 6709     0000 40 6406 ERROR
+                                                 6710     0000 14 6406 ERROR
+                                                 6711     0000 40 6403 ERROR
+                                                 6712     0000 14 6765
+                                                 6713     0000 12 6766
+                                                 6714     0000 14 6403 ERROR
+                                                 6715     0000 12 6767
+                                                 6716     0000 14 6403 ERROR
+                                                 6717     0000 12 6768
+                                                 6718     0000 14 6403 ERROR
+                                                 6719     0000 12 6769
+                                                 6720     0000 14 6403 ERROR
+                                                 6721     0000 12 6770
+                                                 6722     0000 14 6403 ERROR
+                                                 6723     0000 12 6771
+                                                 6724     0000 14 6406 ERROR
+                                                 6725     0000 12 6772
+                                                 6726     2200 36 6729
+                                                 6727     9858 48 0001
+                                                 6728     0001 20 6726
+                                                 6729   - 0810 40 6758
+                                                 6730     0000 10 6762
+                                                 6731     0000 23 6773
+                                                 6732     0001 34 6734
+                                                 6733     0000 22 6405 ERROR
+                                                 6734     0000 24 6774
+                                                 6735   - 0000 22 6758
+                                                 6736     0000 42 6694
+                                                 6737   - 0000 30 0000
+                                                 6738     1101 36 6741
+                                                 6739     0001 48 0001
+                                                 6740     0000 13 6775
+                                                 6741     0000 22 6776
+                                                 6742     0000 36 6753
+                                                 6743     0000 40 6406 ERROR
+                                                 6744     2239 26 6406 ERROR
+                                                 6745     0000 10 6406 ERROR
+                                                 6746     0000 24 6777
+                                                 6747     0000 22 6778
+                                                 6748     0000 24 6406 ERROR
+                                                 6749     0000 22 6779
+                                                 6750     0000 24 6406 ERROR
+                                                 6751     0000 24 6406 ERROR
+                                                 6752     0000 22 6406 ERROR
+                                                 6753     0000 40 6761
+                                                 6754     0003 20 6730
+                                                 6755     0000 41 6780
+                                                 6756     0000 42 6694
+                                                 6757     0000 30 6361 ERROR
+                                                 6758     4900 00 0000
+                                                 6759     5000 00 0000
+                                                 6760     5100 00 0000
+                                                 6761     0000 00 0000
+                                                 6762     5200 00 0000
+                                                 6763     0316 22 7766
+                                                 6764     0632 45 5532
+                                                 6765     0410 59 7044
+                                                 6766     0057 22 8327
+                                                 6767     0250 34 1093
+                                                 6768     0282 43 3571
+                                                 6769     0400 19 3033
+                                                 6770     0666 66 1710
+                                                 6771     2000 00 0037
+                                                 6772     1151 29 2547
+                                                 6773     5251 00 0000
+                                                 6774     5123 02 5851
+                                                 6775     2000 00 0000
+                                                 6776     1000 00 0000
+                                                 6777   - 5025 00 0000
+                                                 6778     5033 33 3333
+                                                 6779   - 5050 00 0000
+                                                 6780     5356 47 0000
+                                                 7032   - 0003 01 0000
+                                                 7033     4400 28 7032
+                                                 7034     0000 31 6375 ERROR
+                                                 7035     0001 40 6403 ERROR
+                                                 7036     0000 40 6406 ERROR
+                                                 7037     0000 42 7032
+                                                 7038     0000 36 7061
+                                                 7039     0000 10 6405 ERROR
+                                                 7040   - 0000 37 0000
+                                                 7041     0000 40 6404 ERROR
+                                                 7042     0000 10 6402 ERROR
+                                                 7043     0000 14 6403 ERROR
+                                                 7044     0000 40 6403 ERROR
+                                                 7045     0000 37 7049
+                                                 7046     0000 10 6404 ERROR
+                                                 7047     0000 24 6406 ERROR
+                                                 7048     0000 40 6404 ERROR
+                                                 7049     0000 41 6403 ERROR
+                                                 7050     0000 37 7055
+                                                 7051     0000 10 6406 ERROR
+                                                 7052     0000 24 6406 ERROR
+                                                 7053     0000 40 6406 ERROR
+                                                 7054     0000 30 7042
+                                                 7055     0000 31 7065
+                                                 7056     1210 37 7058
+                                                 7057   - 0000 30 0000
+                                                 7058     0000 10 6405 ERROR
+                                                 7059     0000 25 6404 ERROR
+                                                 7060   - 0000 30 0000
+                                                 7061     0001 18 6378 ERROR
+                                                 7062   - 0000 34 0000
+                                                 7063     0000 41 7069
+                                                 7064     0000 30 6361 ERROR
+                                                 7065     0001 45 0000
+                                                 7066   - 1210 37 0000
+                                                 7067     0000 41 7069
+                                                 7068     0000 30 6354 ERROR
+                                                 7069     4653 46 6700
+                                                 6295     0006 45 0000
+                                                 6296     0000 41 6341
+                                                 6297     0411 40 6339
+                                                 6298     0000 46 6406 ERROR
+                                                 6299     0000 24 6344
+                                                 6300     0001 49 0002
+                                                 6301     0211 40 6343
+                                                 6302     0000 42 6343
+                                                 6303     9949 20 6309
+                                                 6304     0007 21 6338
+                                                 6305   - 0001 49 0018
+                                                 6306     0000 40 6406 ERROR
+                                                 6307     0000 10 6308
+                                                 6308     0001 49 0050
+                                                 6309     0001 49 0018
+                                                 6310     0000 40 6404 ERROR
+                                                 6311     0000 22 6404 ERROR
+                                                 6312     0010 18 6405 ERROR
+                                                 6313     0001 34 6317
+                                                 6314     0000 43 0000
+                                                 6315     0000 23 6345
+                                                 6316     0001 49 0000
+                                                 6317     0000 40 6404 ERROR
+                                                 6318     0000 24 6404 ERROR
+                                                 6319     0000 40 6403 ERROR
+                                                 6320     0000 24 6346
+                                                 6321     0000 22 6347
+                                                 6322     0000 24 6403 ERROR
+                                                 6323     0000 22 6348
+                                                 6324     0000 24 6403 ERROR
+                                                 6325     0000 22 6349
+                                                 6326     0000 24 6403 ERROR
+                                                 6327     0000 22 6350
+                                                 6328     0000 24 6404 ERROR
+                                                 6329     0000 22 6404 ERROR
+                                                 6330     0000 40 6404 ERROR
+                                                 6331     0000 10 6402 ERROR
+                                                 6332     0000 14 6406 ERROR
+                                                 6333     0000 10 6404 ERROR
+                                                 6334     0000 42 6295
+                                                 6335   - 0000 37 0000
+                                                 6336     0000 11 6404 ERROR
+                                                 6337   - 0000 30 0000
+                                                 6338     0000 42 6295
+                                                 6339     0000 41 6342
+                                                 6340     0000 30 6368 ERROR
+                                                 6341     0000 00 6342
+                                                 6342     6249 55 0000
+                                                 6343     0000 00 0000
+                                                 6344     5031 83 0989
+                                                 6345     5120 00 0000
+                                                 6346     4715 14 8419
+                                                 6347   - 4846 73 7656
+                                                 6348     4979 68 9679
+                                                 6349   - 5064 59 6371
+                                                 6350     5057 07 9632
+                                                 6782     0006 45 0000
+                                                 6783     0000 41 6782
+                                                 6784     0411 40 6295 SIN
+                                                 6785     0000 41 6789
+                                                 6786     0000 22 6791
+                                                 6787     0000 22 6791
+                                                 6788     0000 30 6297 SIN
+                                                 6789     0000 00 6790
+                                                 6790     4356 62 0000
+                                                 6791     5078 53 9816
+                                                 6351     0000 01 0000
+                                                 6352     1000 60 0117
+                                                 6353     0000 30 6878 READ
+                                                 6408     0000 01 0000
+                                                 6409     0000 42 6408
+                                                 6410   - 0000 10 9999
+                                                 6411     0000 48 0006
+                                                 6412     0410 40 6418
+                                                 6413   - 0000 10 9998
+                                                 6414     4210 40 6418
+                                                 6415     0000 48 0008
+                                                 6416     0000 13 6420
+                                                 6417     0000 19 6418
+                                                 6418     2000 61 0000
+                                                 6419   - 0000 30 0000
+                                                 6420     0000 00 0001
+COMPILED PROGRAM ENDS AT 2775
+PROGRAM VARIABLES BEGIN AT 6295
+
+
+
+
+
+
+                                        X         Y         W        BV       CBV       DEV
+
+                                1      .000      .110    .01414    .76088    .76399    .00310
+                                2     -.050      .108    .01427    .72024    .72347    .00323
+                                3     -.100      .115    .01963    .66721    .67048    .00327
+                                4     -.160      .150    .02300    .55235    .55576    .00340
+                                5     -.220      .205    .03897    .40067    .40386    .00318
+                                6     -.320      .300    .02792    .17014    .17015    .00000
+                                7     -.400      .358    .03324    .06949    .06500   -.00448
+                                8     -.500      .420    .01483    .02006    .01359   -.00646
+                                9     -.550      .436    .01423    .04590    .04344   -.00245
+                               10     -.600      .430    .01505    .12036    .12444    .00407
+                               11     -.644      .400    .01483    .22849    .23541    .00691
+                               12     -.660      .350    .01420    .33248    .33512    .00264
+                               13     -.655      .300    .02881    .41179    .41040   -.00139
+                               14     -.635      .200    .03043    .56168    .55792   -.00376
+                               15     -.595      .100    .03076    .70069    .69969   -.00099
+                               16     -.552      .000    .03311    .84177    .84369    .00191
+                               17     -.500     -.105    .03175    .98914    .99145    .00230
+                               18     -.440     -.200    .01809   1.12198   1.12185   -.00013
+                               19     -.400     -.250    .01998   1.19325   1.19145   -.00180
+                               20     -.350     -.300    .01882   1.26792   1.26504   -.00287
+                               21     -.300     -.344    .03140   1.33733   1.33459   -.00274
+                               22     -.204     -.400    .03450   1.44504   1.44501   -.00003
+                               23     -.100     -.436    .02846   1.54874   1.55125    .00251
+                               24      .000     -.448    .02831   1.64168   1.64342    .00174
+                               25      .100     -.442    .03860   1.73582   1.73434   -.00147
+                               26      .230     -.400    .02431   1.85882   1.85512   -.00369
+                               27      .300     -.350    .02059   1.91643   1.91501   -.00141
+                               28      .353     -.300    .03566   1.95563   1.95689    .00126
+                               29      .430     -.200    .03122   1.99206   1.99507    .00301
+                               30      .477     -.100    .02975   1.96610   1.96578   -.00032
+                               31      .510      .000    .02846   1.89648   1.89241   -.00407
+                               32      .522      .100    .01696   1.75623   1.75328   -.00294
+                               33      .520      .160    .02330   1.63625   1.63683    .00058
+                               34      .500      .240    .02102   1.41224   1.41798    .00574
+                               35      .456      .300    .01795   1.14765   1.15159    .00394
+                               36      .400      .330    .01147    .91522    .91268   -.00254
+                               37      .360      .337    .01762    .78912    .78354   -.00558
+                               38      .300      .320    .01648    .68785    .68274   -.00510
+                               39      .250      .290    .01901    .66230    .65991   -.00239
+                               40      .300      .245    .01901    .89407    .89251   -.00155
+                               41      .150      .200    .01809    .72694    .72885    .00191
+                               42      .100      .160    .01677    .75642    .75909    .00267
+                               43      .050      .128    .01501    .77202    .77498    .00296
+
+
+X     =
+    .00000000000, 00   -.50000000000,-01   -.10000000000, 00   -.16000000000, 00   -.22000000000, 00   -.32000000000, 00
+   -.40000000000, 00   -.50000000000, 00   -.55000000000, 00   -.60000000000, 00   -.64400000000, 00   -.66000000000, 00
+   -.65500000000, 00   -.63500000000, 00   -.59500000000, 00   -.55200000000, 00   -.50000000000, 00   -.44000000000, 00
+   -.40000000000, 00   -.35000000000, 00   -.30000000000, 00   -.20400000000, 00   -.10000000000, 00    .00000000000, 00
+    .10000000000, 00    .23000000000, 00    .30000000000, 00    .35300000000, 00    .43000000000, 00    .47700000000, 00
+    .51000000000, 00    .52200000000, 00    .52000000000, 00    .50000000000, 00    .45600000000, 00    .40000000000, 00
+    .36000000000, 00    .30000000000, 00    .25000000000, 00    .30000000000, 00    .15000000000, 00    .10000000000, 00
+    .50000000000,-01
+
+
+Y     =
+    .11000000000, 00    .10800000000, 00    .11500000000, 00    .15000000000, 00    .20500000000, 00    .30000000000, 00
+    .35800000000, 00    .42000000000, 00    .43600000000, 00    .43000000000, 00    .40000000000, 00    .35000000000, 00
+    .30000000000, 00    .20000000000, 00    .10000000000, 00    .00000000000, 00   -.10500000000, 00   -.20000000000, 00
+   -.25000000000, 00   -.30000000000, 00   -.34400000000, 00   -.40000000000, 00   -.43600000000, 00   -.44800000000, 00
+   -.44200000000, 00   -.40000000000, 00   -.35000000000, 00   -.30000000000, 00   -.20000000000, 00   -.10000000000, 00
+    .00000000000, 00    .10000000000, 00    .16000000000, 00    .24000000000, 00    .30000000000, 00    .33000000000, 00
+    .33700000000, 00    .32000000000, 00    .29000000000, 00    .24500000000, 00    .20000000000, 00    .16000000000, 00
+    .12800000000, 00
+
+
+W     =
+    .14140000000,-01    .14270000000,-01    .19630000000,-01    .23000000000,-01    .38970000000,-01    .27920000000,-01
+    .33240000000,-01    .14830000000,-01    .14230000000,-01    .15050000000,-01    .14830000000,-01    .14200000000,-01
+    .28810000000,-01    .30430000000,-01    .30760000000,-01    .33110000000,-01    .31750000000,-01    .18090000000,-01
+    .19980000000,-01    .18820000000,-01    .31400000000,-01    .34500000000,-01    .28460000000,-01    .28310000000,-01
+    .38600000000,-01    .24310000000,-01    .20590000000,-01    .35660000000,-01    .31220000000,-01    .29750000000,-01
+    .28460000000,-01    .16960000000,-01    .23300000000,-01    .21020000000,-01    .17950000000,-01    .11470000000,-01
+    .17620000000,-01    .16480000000,-01    .19010000000,-01    .19010000000,-01    .18090000000,-01    .16770000000,-01
+    .15010000000,-01
+
+
+CBV   =
+    .76399073000, 00    .72347682000, 00    .67048629000, 00    .55576020000, 00    .40386387000, 00    .17015283000, 00
+    .65003200000,-01    .13596552000,-01    .43440283000,-01    .12444357000, 00    .23541132000, 00    .33512773000, 00
+    .41040896000, 00    .55792220000, 00    .69969238000, 00    .84369147000, 00    .99145532000, 00    .11218515000, 01
+    .11914525000, 01    .12650415000, 01    .13345923000, 01    .14450102000, 01    .15512594000, 01    .16434232000, 01
+    .17343438000, 01    .18551261000, 01    .19150174000, 01    .19568946000, 01    .19950713000, 01    .19657882000, 01
+    .18924112000, 01    .17532836000, 01    .16368319000, 01    .14179803000, 01    .11515965000, 01    .91268660000, 00
+    .78354318000, 00    .68274384000, 00    .65991390000, 00    .89251312000, 00    .72885275000, 00    .75909449000, 00
+    .77498863000, 00
+
+
+BV    =
+    .76088841000, 00    .72024613000, 00    .66721239000, 00    .55235649000, 00    .40067717000, 00    .17014345000, 00
+    .69491780000,-01    .20063290000,-01    .45900150000,-01    .12036854000, 00    .22849674000, 00    .33248138000, 00
+    .41179999000, 00    .56168894000, 00    .70069088000, 00    .84177328000, 00    .98914967000, 00    .11219847000, 01
+    .11932581000, 01    .12679213000, 01    .13373396000, 01    .14450454000, 01    .15487488000, 01    .16416818000, 01
+    .17358214000, 01    .18588237000, 01    .19164317000, 01    .19556301000, 01    .19920608000, 01    .19661095000, 01
+    .18964821000, 01    .17562334000, 01    .16362508000, 01    .14122402000, 01    .11476546000, 01    .91522800000, 00
+    .78912810000, 00    .68785090000, 00    .66230780000, 00    .89407080000, 00    .72694000000, 00    .75642080000, 00
+    .77202140000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    ( 1) =
+    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01
+    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01
+    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01
+    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01
+    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01
+    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01
+    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01
+    .10000000000, 01    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    ( 2) =
+    .00000000000, 00   -.50000000000,-01   -.10000000000, 00   -.16000000000, 00   -.22000000000, 00   -.32000000000, 00
+   -.40000000000, 00   -.50000000000, 00   -.55000000000, 00   -.60000000000, 00   -.64400000000, 00   -.66000000000, 00
+   -.65500000000, 00   -.63500000000, 00   -.59500000000, 00   -.55200000000, 00   -.50000000000, 00   -.44000000000, 00
+   -.40000000000, 00   -.35000000000, 00   -.30000000000, 00   -.20400000000, 00   -.10000000000, 00    .00000000000, 00
+    .10000000000, 00    .23000000000, 00    .30000000000, 00    .35300000000, 00    .43000000000, 00    .47700000000, 00
+    .51000000000, 00    .52200000000, 00    .52000000000, 00    .50000000000, 00    .45600000000, 00    .40000000000, 00
+    .36000000000, 00    .30000000000, 00    .25000000000, 00    .30000000000, 00    .15000000000, 00    .10000000000, 00
+    .50000000000,-01    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    ( 3) =
+    .11000000000, 00    .10800000000, 00    .11500000000, 00    .15000000000, 00    .20500000000, 00    .30000000000, 00
+    .35800000000, 00    .42000000000, 00    .43600000000, 00    .43000000000, 00    .40000000000, 00    .35000000000, 00
+    .30000000000, 00    .20000000000, 00    .10000000000, 00    .00000000000, 00   -.10500000000, 00   -.20000000000, 00
+   -.25000000000, 00   -.30000000000, 00   -.34400000000, 00   -.40000000000, 00   -.43600000000, 00   -.44800000000, 00
+   -.44200000000, 00   -.40000000000, 00   -.35000000000, 00   -.30000000000, 00   -.20000000000, 00   -.10000000000, 00
+    .00000000000, 00    .10000000000, 00    .16000000000, 00    .24000000000, 00    .30000000000, 00    .33000000000, 00
+    .33700000000, 00    .32000000000, 00    .29000000000, 00    .24500000000, 00    .20000000000, 00    .16000000000, 00
+    .12800000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    ( 4) =
+   -.12100000000,-01   -.91640000000,-02   -.32250000000,-02    .31000000000,-02    .63750000000,-02    .12400000000,-01
+    .31836000000,-01    .73600000000,-01    .11240400000, 00    .17510000000, 00    .25473600000, 00    .31310000000, 00
+    .33902500000, 00    .36322500000, 00    .34402500000, 00    .30470400000, 00    .23897500000, 00    .15360000000, 00
+    .97500000000,-01    .32500000000,-01   -.28336000000,-01   -.11838400000, 00   -.18009600000, 00   -.20070400000, 00
+   -.18536400000, 00   -.10710000000, 00   -.32500000000,-01    .34609000000,-01    .14490000000, 00    .21752900000, 00
+    .26010000000, 00    .26248400000, 00    .24480000000, 00    .19240000000, 00    .11793600000, 00    .51100000000,-01
+    .16031000000,-01   -.12400000000,-01   -.21600000000,-01    .29975000000,-01   -.17500000000,-01   -.15600000000,-01
+   -.13884000000,-01    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    ( 5) =
+    .00000000000, 00   -.10800000000,-01   -.23000000000,-01   -.48000000000,-01   -.90200000000,-01   -.19200000000, 00
+   -.28640000000, 00   -.42000000000, 00   -.47960000000, 00   -.51600000000, 00   -.51520000000, 00   -.46200000000, 00
+   -.39300000000, 00   -.25400000000, 00   -.11900000000, 00    .00000000000, 00    .10500000000, 00    .17600000000, 00
+    .20000000000, 00    .21000000000, 00    .20640000000, 00    .16320000000, 00    .87200000000,-01    .00000000000, 00
+   -.88400000000,-01   -.18400000000, 00   -.21000000000, 00   -.21180000000, 00   -.17200000000, 00   -.95400000000,-01
+    .00000000000, 00    .10440000000, 00    .16640000000, 00    .24000000000, 00    .27360000000, 00    .26400000000, 00
+    .24264000000, 00    .19200000000, 00    .14500000000, 00    .14700000000, 00    .60000000000,-01    .32000000000,-01
+    .12800000000,-01    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    ( 6) =
+    .00000000000, 00    .16246000000,-02    .29675000000,-02    .67040000000,-02    .17088500000,-01    .53632000000,-01
+    .89796800000,-01    .13960000000, 00    .14728340000, 00    .11682000000, 00    .42030020000,-01   -.44946000000,-01
+   -.10416137000, 00   -.17984787000, 00   -.19279487000, 00   -.16819660000, 00   -.10846250000, 00   -.32384000000,-01
+    .11000000000,-01    .51625000000,-01    .79502400000,-01    .89430336000,-01    .56028800000,-01    .00000000000, 00
+   -.57609200000,-01   -.98233000000,-01   -.83250000000,-01   -.51323023000,-01    .27907000000,-01    .94221330000,-01
+    .13265100000, 00    .12657664000, 00    .10067200000, 00    .38600000000,-01   -.28301190000,-01   -.66680000000,-01
+   -.75998520000,-01   -.65160000000,-01   -.47450000000,-01   -.27022500000,-01   -.14625000000,-01   -.66800000000,-02
+   -.23326000000,-02    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    ( 7) =
+   -.13310000000,-02   -.44971200000,-03    .19291250000,-02    .81450000000,-02    .21150875000,-01    .65160000000,-01
+    .12595729000, 00    .24091200000, 00    .31278815000, 00    .38489300000, 00    .43368320000, 00    .41450500000, 00
+    .35912250000, 00    .23393500000, 00    .10520750000, 00    .00000000000, 00   -.77592375000,-01   -.10816000000, 00
+   -.10437500000, 00   -.83250000000,-01   -.52172416000,-01    .14060800000,-01    .69801856000,-01    .89915392000,-01
+    .73090888000,-01    .52000000000,-03   -.51625000000,-01   -.85148100000,-01   -.10294000000, 00   -.67258700000,-01
+    .00000000000, 00    .80745200000,-01    .12569600000, 00    .16617600000, 00    .16014240000, 00    .12246300000, 00
+    .92752850000,-01    .53632000000,-01    .29986000000,-01    .51443875000,-01    .55000000000,-02    .70400000000,-03
+   -.11371520000,-02    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    ( 8) =
+    .14641000000,-03   -.32661110000,-04   -.51859938000,-03   -.22943900000,-02   -.80954000000,-02   -.36710240000,-01
+   -.81011430000,-01   -.17098304000, 00   -.21738151000, 00   -.23559599000, 00   -.20054062000, 00   -.11541239000, 00
+   -.39511050000,-01    .67416400000,-01    .10419220000, 00    .92844527000,-01    .46084050000,-01   -.73830400000,-02
+   -.30493750000,-01   -.43043750000,-01   -.41798032000,-01   -.12619469000,-01    .24830729000,-01    .40282095000,-01
+    .26545252000,-01   -.22385590000,-01   -.43043750000,-01   -.43661458000,-01   -.85879900000,-02    .38217705000,-01
+    .67652010000,-01    .57998490000,-01    .32238080000,-01   -.20582240000,-01   -.60948060000,-01   -.67084790000,-01
+   -.58617177000,-01   -.36710240000,-01   -.20558440000,-01   -.20710500000,-01   -.32937500000,-02   -.78064000000,-03
+    .28925450000,-04    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    ( 9) =
+    .00000000000, 00    .19794240000,-03    .14835000000,-03   -.29760000000,-03   -.11500500000,-02   -.47616000000,-02
+   -.18235664000,-01   -.61824000000,-01   -.10781792000, 00   -.18070320000, 00   -.26247996000, 00   -.28930440000, 00
+   -.26647362000, 00   -.18451828000, 00   -.81877948000,-01    .00000000000, 00    .50184750000,-01    .54067200000,-01
+    .39000000000,-01    .13650000000,-01   -.11697100000,-01   -.38640538000,-01   -.31408742000,-01    .00000000000, 00
+    .32772355000,-01    .39412800000,-01    .13650000000,-01   -.14660370000,-01   -.49845600000,-01   -.41504532000,-01
+    .00000000000, 00    .54806656000,-01    .81469440000,-01    .92352000000,-01    .64534570000,-01    .26980800000,-01
+    .77795240000,-02   -.47616000000,-02   -.62640000000,-02    .88126500000,-02   -.21000000000,-02   -.99840000000,-03
+   -.35543040000,-03    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    (10) =
+    .00000000000, 00   -.19744722000,-04    .34799690000,-04    .41174240000,-03    .20167482000,-02    .13175757000,-01
+    .38932940000,-01    .11145760000, 00    .16656845000, 00    .21905997000, 00    .23414014000, 00    .17742873000, 00
+    .10582183000, 00   -.59057600000,-02   -.53806564000,-01   -.51250178000,-01   -.17772626000,-01    .14061978000,-01
+    .21947500000,-01    .19160313000,-01    .85156080000,-02   -.12881843000,-01   -.16177284000,-01    .00000000000, 00
+    .17139906000,-01    .10616434000,-01   -.81356250000,-02   -.19810607000,-01   -.13661956000,-01    .14079392000,-01
+    .34502525000,-01    .24794546000,-01    .37286910000,-02   -.32455600000,-01   -.47152689000,-01   -.35737580000,-01
+   -.23723885000,-01   -.94893600000,-02   -.33230510000,-02   -.83722500000,-02   -.74062500000,-04    .81680000000,-04
+    .46941360000,-04    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    (11) =
+    .16105100000,-04   -.13424520000,-04   -.74473930000,-04   -.29654250000,-03   -.14065459000,-02   -.94893600000,-02
+   -.21707828000,-01   -.40900880000,-01   -.35478490000,-01    .71156400000,-02    .88820840000,-01    .15054656000, 00
+    .16268692000, 00    .13065240000, 00    .59136600000,-01    .00000000000, 00   -.29931201000,-01   -.22312960000,-01
+   -.79765620000,-02    .81356250000,-02    .17887653000,-01    .12930458000,-01   -.76853240000,-02   -.18046378000,-01
+   -.84557660000,-02    .18019180000,-01    .19160313000,-01    .79233270000,-02   -.19716010000,-01   -.23619432000,-01
+    .00000000000, 00    .34408925000,-01    .47522198000,-01    .41236262000,-01    .11143350000,-01   -.11345661000,-01
+   -.16953360000,-01   -.13175757000,-01   -.75279490000,-02   -.24302770000,-02   -.97375000000,-03   -.22474240000,-03
+   -.14069063000,-04    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+ORTHV( 1) =
+    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00
+    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00
+    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00
+    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00
+    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00
+    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00
+    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00
+    .99999500000, 00    .99999500000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+ORTHV( 2) =
+    .18091427000, 00    .54155198000,-01   -.72603875000,-01   -.22471475000, 00   -.37682564000, 00   -.63034379000, 00
+   -.83315831000, 00   -.10866764000, 01   -.12134355000, 01   -.13401946000, 01   -.14517425000, 01   -.14923054000, 01
+   -.14796295000, 01   -.14289259000, 01   -.13275186000, 01   -.12185058000, 01   -.10866764000, 01   -.93456557000, 00
+   -.83315831000, 00   -.70639923000, 00   -.57964016000, 00   -.33626274000, 00   -.72603875000,-01    .18091427000, 00
+    .43443242000, 00    .76400601000, 00    .94146872000, 00    .10758333000, 01    .12710423000, 01    .13901958000, 01
+    .14738568000, 01    .15042790000, 01    .14992086000, 01    .14485050000, 01    .13369570000, 01    .11949868000, 01
+    .10935796000, 01    .94146872000, 00    .81470964000, 00    .94146872000, 00    .56119149000, 00    .43443242000, 00
+    .30767335000, 00    .18091427000, 00    .25351814000, 01    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+ORTHV( 3) =
+    .38077157000, 00    .34986617000, 00    .35105210000, 00    .44732308000, 00    .61490817000, 00    .90610240000, 00
+    .10748749000, 01    .12484008000, 01    .12816781000, 01    .12365099000, 01    .11086176000, 01    .92272463000, 00
+    .74681667000, 00    .39975553000, 00    .62204002000,-01   -.27392111000, 00   -.62359539000, 00   -.93380881000, 00
+   -.10930750000, 01   -.12475863000, 01   -.13807035000, 01   -.15347371000, 01   -.16136526000, 01   -.16088930000, 01
+   -.15399508000, 01   -.13283787000, 01   -.11168098000, 01   -.91332406000, 00   -.52014138000, 00   -.14122310000, 00
+    .23103847000, 00    .59331495000, 00    .80630642000, 00    .10820534000, 01    .12750747000, 01    .13554191000, 01
+    .13613598000, 01    .12722140000, 01    .11414689000, 01    .10047859000, 01    .77300716000, 00    .60660489000, 00
+    .46872824000, 00   -.11456249000,-01    .47547983000, 00    .35657072000, 01    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+ORTHV( 4) =
+   -.79823084000, 00   -.80067049000, 00   -.79715824000, 00   -.84591472000, 00   -.95234255000, 00   -.11314958000, 01
+   -.11363566000, 01   -.99645490000, 00   -.76925127000, 00   -.32886317000, 00    .28084893000, 00    .78622687000, 00
+    .10665792000, 01    .14311515000, 01    .14902281000, 01    .14042354000, 01    .11394765000, 01    .71813505000, 00
+    .41957389000, 00    .61596314000,-01   -.27664894000, 00   -.78143528000, 00   -.11106587000, 01   -.11848816000, 01
+   -.10288778000, 01   -.46140586000, 00    .32308239000,-01    .46208864000, 00    .11312984000, 01    .15094606000, 01
+    .16607847000, 01    .15075803000, 01    .12712447000, 01    .73648366000, 00    .63127163000,-01   -.50803500000, 00
+   -.79805526000, 00   -.10081120000, 01   -.10494365000, 01   -.56626296000, 00   -.91487780000, 00   -.85755024000, 00
+   -.81573714000, 00   -.51512617000, 00    .54781566000, 00   -.17716119000, 01    .72915218000, 01    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+ORTHV( 5) =
+    .18981381000, 00    .18212744000, 00    .17475536000, 00    .12803558000, 00    .93802955000,-04   -.38283436000, 00
+   -.76609576000, 00   -.13297297000, 01   -.15742390000, 01   -.16959509000, 01   -.16291856000, 01   -.13290517000, 01
+   -.97979526000, 00   -.29957491000, 00    .31698759000, 00    .83300432000, 00    .12465664000, 01    .14633005000, 01
+    .14900215000, 01    .14254110000, 01    .12926716000, 01    .87268738000, 00    .29307249000, 00   -.30636385000, 00
+   -.88181795000, 00   -.14708733000, 01   -.16128321000, 01   -.16083570000, 01   -.13434388000, 01   -.86437106000, 00
+   -.28253741000, 00    .35064980000, 00    .72721854000, 00    .11834505000, 01    .14200295000, 01    .14142870000, 01
+    .13264542000, 01    .10846619000, 01    .85246233000, 00    .80444616000, 00    .42659404000, 00    .29664451000, 00
+    .22061041000, 00    .11601141000, 00   -.10299527000, 01    .72452555000, 00    .48722419000, 00    .54782807000, 01
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+ORTHV( 6) =
+   -.22439014000, 00   -.16640021000, 00   -.11311004000, 00   -.49521238000,-01    .66231974000,-01    .47868721000, 00
+    .93068800000, 00    .15880767000, 01    .17567631000, 01    .15337821000, 01    .83305321000, 00   -.40547616000,-01
+   -.64723534000, 00   -.13993441000, 01   -.14865983000, 01   -.11641636000, 01   -.47404492000, 00    .34695177000, 00
+    .78480969000, 00    .11567580000, 01    .13698078000, 01    .12599795000, 01    .64003964000, 00   -.19396392000, 00
+   -.98793296000, 00   -.14967635000, 01   -.12604325000, 01   -.80772268000, 00    .27909752000, 00    .11697197000, 01
+    .16759236000, 01    .15734277000, 01    .12060794000, 01    .32769000000, 00   -.64217597000, 00   -.12363963000, 01
+   -.14092013000, 01   -.13030612000, 01   -.10690714000, 01   -.71443887000, 00   -.56031300000, 00   -.40687146000, 00
+   -.29966720000, 00   -.11776283000, 00   -.71537430000, 00   -.74472034000, 00    .20419912000, 01    .48098507000, 00
+    .12268324000, 02    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+ORTHV( 7) =
+   -.78303128000, 00   -.82670960000, 00   -.87782819000, 00   -.99231211000, 00   -.11251143000, 01   -.11901667000, 01
+   -.94296622000, 00   -.20726089000, 00    .38853264000, 00    .11203441000, 01    .17679318000, 01    .18477265000, 01
+    .15528102000, 01    .78394589000, 00   -.60386533000,-01   -.69968161000, 00   -.10675443000, 01   -.10223156000, 01
+   -.80722121000, 00   -.42666585000, 00    .24115536000,-01    .83016678000, 00    .14193087000, 01    .15394855000, 01
+    .12072960000, 01    .17010108000, 00   -.54611511000, 00   -.10124807000, 01   -.13137230000, 01   -.94392447000, 00
+   -.17576350000, 00    .76332275000, 00    .12852945000, 01    .17341260000, 01    .15897648000, 01    .10354691000, 01
+    .60165256000, 00    .26740050000,-01   -.32587375000, 00    .63548022000,-01   -.67339898000, 00   -.73552799000, 00
+   -.76015103000, 00   -.50063003000, 00    .62880748000, 00   -.24045999000, 01    .24167570000, 00    .24954270000, 01
+   -.44240286000, 00    .11247907000, 02    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+ORTHV( 8) =
+    .55102002000, 00    .58645009000, 00    .62428330000, 00    .73203588000, 00    .88408873000, 00    .94749583000, 00
+    .56688291000, 00   -.60706421000, 00   -.13943599000, 01   -.19442944000, 01   -.18003310000, 01   -.85006750000, 00
+    .45289579000,-01    .11446080000, 01    .11943730000, 01    .55020793000, 00   -.50255456000, 00   -.13472553000, 01
+   -.15508542000, 01   -.14391875000, 01   -.10484757000, 01    .87104467000,-01    .11285561000, 01    .13864951000, 01
+    .80573497000, 00   -.74981468000, 00   -.14008705000, 01   -.14816721000, 01   -.62478891000, 00    .61501606000, 00
+    .14574617000, 01    .13413081000, 01    .76525341000, 00   -.48887054000, 00   -.14679685000, 01   -.15829690000, 01
+   -.13224276000, 01   -.66652200000, 00   -.16426751000, 00   -.28328812000, 00    .39611816000, 00    .48883284000, 00
+    .52627678000, 00    .32234679000, 00   -.39832310000, 00    .16860255000, 01   -.35606157000, 01   -.20279340000, 01
+    .57521862000, 01    .23456721000, 01    .22192140000, 02    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+ORTHV( 9) =
+   -.45955274000, 00   -.35755074000, 00   -.24995704000, 00   -.11053534000, 00    .87766258000,-01    .63296047000, 00
+    .11288219000, 01    .15502927000, 01    .13488167000, 01    .51243557000, 00   -.80100787000, 00   -.15824341000, 01
+   -.15976266000, 01   -.90491107000, 00    .20968329000, 00    .10436154000, 01    .13189151000, 01    .84327198000, 00
+    .31069788000, 00   -.35764783000, 00   -.92765981000, 00   -.13190668000, 01   -.78834099000, 00    .27551224000, 00
+    .12751762000, 01    .14767473000, 01    .72245107000, 00   -.12051077000, 00   -.12653925000, 01   -.12528713000, 01
+   -.32237525000, 00    .10187241000, 01    .16797819000, 01    .18934508000, 01    .10021637000, 01   -.20543081000, 00
+   -.85024971000, 00   -.12807004000, 01   -.12997190000, 01   -.68241251000, 00   -.91830207000, 00   -.73739478000, 00
+   -.58203234000, 00   -.27135492000, 00   -.91327396000, 00   -.13336863000, 01    .26991516000, 01   -.34108894000, 01
+   -.10926272000, 01    .64046102000, 01   -.21043290000, 01    .23555474000, 02    .00000000000, 00    .00000000000, 00
+
+
+ORTHV(10) =
+    .56769322000, 00    .47459886000, 00    .37529677000, 00    .22902504000, 00   -.29245545000,-01   -.75814991000, 00
+   -.12693359000, 01   -.11056706000, 01   -.28041898000, 00    .10461666000, 01    .20123702000, 01    .14237750000, 01
+    .33769500000, 00   -.11595225000, 01   -.11814670000, 01   -.21013213000, 00    .10346085000, 01    .14670507000, 01
+    .11525928000, 01    .39253260000, 00   -.48993602000, 00   -.14872851000, 01   -.10651410000, 01    .30267749000, 00
+    .14172762000, 01    .84654413000, 00   -.42465406000, 00   -.12574176000, 01   -.11814109000, 01    .23876902000, 00
+    .13923885000, 01    .10676716000, 01    .10584892000, 00   -.15393325000, 01   -.19670925000, 01   -.98114772000, 00
+   -.10871432000, 00    .83211815000, 00    .11580742000, 01    .51125088000, 00    .10013547000, 01    .83575431000, 00
+    .68434980000, 00    .34981017000, 00    .62306451000, 00    .15884627000, 01   -.27471804000, 01    .26259118000, 01
+   -.89065461000, 01   -.57305481000, 01    .15599810000, 02    .43980736000, 01    .45372355000, 02    .00000000000, 00
+
+
+ORTHV(11) =
+    .56098628000, 00    .60525530000, 00    .63997055000, 00    .72380950000, 00    .82845115000, 00    .73494149000, 00
+    .12477575000, 00   -.13319182000, 01   -.19670249000, 01   -.17316141000, 01   -.29174653000, 00    .11200854000, 01
+    .14771642000, 01    .77284113000, 00   -.61485446000, 00   -.14174620000, 01   -.11628807000, 01   -.38616697000,-01
+    .64765981000, 00    .11118669000, 01    .11257507000, 01    .13044567000, 00   -.11426954000, 01   -.13774719000, 01
+   -.41368614000, 00    .13315981000, 01    .13457626000, 01    .63350557000, 00   -.10752539000, 01   -.14991116000, 01
+   -.48744750000, 00    .10753438000, 01    .16194111000, 01    .11442346000, 01   -.41994206000, 00   -.14182396000, 01
+   -.15250174000, 01   -.98116325000, 00   -.40235519000, 00   -.35659195000, 00    .32262116000, 00    .45572501000, 00
+    .51948438000, 00    .32587539000, 00   -.66787069000, 00    .16578738000, 01   -.34405579000, 01   -.21355981000, 01
+    .39643260000, 01   -.81232322000, 01   -.28493973000, 01    .14176898000, 02    .25817176000, 01    .44661036000, 02
+
+
+ORTHV(12) =
+   -.10310559000, 01   -.10737387000, 01   -.10881514000, 01   -.11313062000, 01   -.10591200000, 01   -.30114984000,-02
+    .14920974000, 01    .21496275000, 01    .81777007000, 00   -.13544230000, 01   -.22982785000, 01   -.87952706000, 00
+    .46243453000, 00    .12521285000, 01    .33196285000, 00   -.63757676000, 00   -.76633328000, 00    .44341489000,-01
+    .60023883000, 00    .95726427000, 00    .91325518000, 00    .11733542000,-01   -.83444433000, 00   -.57883260000, 00
+    .49121328000, 00    .12291633000, 01    .47020592000, 00   -.42028020000, 00   -.10006418000, 01    .10689822000, 00
+    .13532131000, 01    .98053192000, 00   -.19298852000, 00   -.19078806000, 01   -.13100350000, 01    .84491477000, 00
+    .18565455000, 01    .16976840000, 01    .79588319000, 00    .51781153000, 00   -.63567879000, 00   -.88860144000, 00
+   -.98616934000, 00   -.33299095000, 03   -.33155983000, 03    .66177954000, 03   -.49206594000, 03    .30223837000, 01
+   -.62567340000, 02   -.20719404000, 03    .11804512000, 03   -.78860274000, 01    .39372889000, 02    .93216397000, 02
+
+
+DEV   =
+   -.31019000000,-02   -.32303100000,-02   -.32736700000,-02   -.34035000000,-02   -.31863300000,-02   -.90600000000,-05
+    .44889290000,-02    .64670880000,-02    .24602360000,-02   -.40747400000,-02   -.69143000000,-02   -.26460300000,-02
+    .13912200000,-02    .37669900000,-02    .99870000000,-03   -.19181300000,-02   -.23054900000,-02    .13340000000,-03
+    .18058000000,-02    .28799000000,-02    .27475000000,-02    .35300000000,-04   -.25104000000,-02   -.17414000000,-02
+    .14778000000,-02    .36979000000,-02    .14146000000,-02   -.12644000000,-02   -.30104000000,-02    .32160000000,-03
+    .40711000000,-02    .29499000000,-02   -.58060000000,-03   -.57398000000,-02   -.39412000000,-02    .25419000000,-02
+    .55853600000,-02    .51074300000,-02    .23943900000,-02    .15578200000,-02   -.19124200000,-02   -.26733300000,-02
+   -.29668600000,-02
+
+
+COF   =
+    .10017930000, 01    .99748751000, 00   -.19909433000, 01    .14803652000, 01   -.90927480000,-02    .18823191000, 00
+    .62333689000, 00   -.35513511000, 00    .23724870000,-01   -.11845212000, 00   -.28043865000, 00
+
+
+STD   =
+    .53182724000,-03
+
+
+CV   ( 1) =
+    .19822656000, 01   -.59297670000,-01    .42486303000, 01   -.80233565000, 01   -.17588931000, 00   -.89630820000, 00
+   -.11264608000, 02    .12253009000, 02   -.23350080000, 00    .16713029000, 02    .14553932000, 02
+
+
+CV   ( 2) =
+    .00000000000, 00    .10748280000, 02   -.57169120000, 00    .17231591000, 01    .25679539000, 01   -.18545000000, 02
+    .21440365000, 01    .47049036000, 01   -.28240652000, 02    .26545651000, 02   -.29827796000, 02
+
+
+CV   ( 3) =
+    .00000000000, 00    .00000000000, 00    .32607678000, 02   -.34337497000, 02   -.62902970000, 00   -.44924790000, 01
+   -.54203648000, 02    .60278802000, 02   -.92593000000, 00    .76352454000, 02    .74042361000, 02
+
+
+CV   ( 4) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .96979653000, 02    .24023835000, 01    .12342795000, 02
+    .55344621000, 02   -.11774956000, 03    .27210560000, 01   -.13352858000, 03   -.15365888000, 03
+
+
+CV   ( 5) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .63672933000, 02   -.34995337000, 02
+    .37660910000, 01    .92223304000, 01   -.99072319000, 02    .11363029000, 03   -.95378023000, 02
+
+
+CV   ( 6) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .28003140000, 03
+    .20355034000, 02   -.20283799000, 02   -.87071510000, 01   -.39387620000, 03    .17705090000, 03
+
+
+CV   ( 7) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .27186269000, 03   -.27671069000, 02    .10498020000, 02   -.28098035000, 03   -.36279196000, 03
+
+
+CV   ( 8) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .74839240000, 03   -.21354969000, 02    .70044378000, 03   -.12725703000, 03
+
+
+CV   ( 9) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .77518783000, 03    .23615169000, 03    .63315495000, 03
+
+
+CV   (10) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .20653157000, 04    .11530218000, 03
+
+
+CV   (11) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .19946081000, 04
+
+
+CV   (12) =
+    .14079295000, 01    .32784568000, 01    .57103131000, 01    .98478246000, 01    .79795320000, 01    .16734138000, 02
+    .16488259000, 02    .27356761000, 02    .27842195000, 02    .45445744000, 02    .44661034000, 02
+
+
+VCV  ( 1) =
+    .56066441000,-06   -.16771765000,-07    .12016834000,-05   -.22693278000,-05   -.49748569000,-07   -.25351199000,-06
+   -.31860840000,-05    .34656436000,-05   -.66043415000,-07    .47271166000,-05    .41164371000,-05
+
+
+VCV  ( 2) =
+    .00000000000, 00    .30400457000,-05   -.16169725000,-06    .48737868000,-06    .72632062000,-06   -.52452716000,-05
+    .60641973000,-06    .13307359000,-05   -.79875919000,-05    .75081775000,-05   -.84365000000,-05
+
+
+VCV  ( 3) =
+    .00000000000, 00    .00000000000, 00    .92227624000,-05   -.97120248000,-05   -.17791489000,-06   -.12706537000,-05
+   -.15330971000,-04    .17049269000,-04   -.26189023000,-06    .21595544000,-04    .20942156000,-04
+
+
+VCV  ( 4) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .27429745000,-04    .67949065000,-06    .34910387000,-05
+    .15653684000,-04   -.33304310000,-04    .76962405000,-06   -.37767251000,-04   -.43460909000,-04
+
+
+VCV  ( 5) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .18009265000,-04   -.98980884000,-05
+    .10652019000,-05    .26084458000,-05   -.28021635000,-04    .32139215000,-04   -.26976740000,-04
+
+
+VCV  ( 6) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .79204139000,-04
+    .57572220000,-05   -.57370739000,-05   -.24627324000,-05   -.11140402000,-03    .50077113000,-04
+
+
+VCV  ( 7) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .76893700000,-04   -.78264909000,-05    .29692621000,-05   -.79472541000,-04   -.10261215000,-03
+
+
+VCV  ( 8) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .21167546000,-03   -.60400439000,-05    .19811366000,-03   -.35993405000,-04
+
+
+VCV  ( 9) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .21925428000,-03    .66793193000,-04    .17908167000,-03
+
+
+VCV  (10) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .58415432000,-03    .32612092000,-04
+
+
+VCV  (11) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .56415537000,-03
+
+
+VCV  (12) =
+    .74877526000,-03    .17435726000,-02    .30369000000,-02    .52373413000,-02    .42437324000,-02    .88996704000,-02
+    .87689052000,-02    .14549070000,-01    .14807237000,-01    .24169284000,-01    .23751954000,-01
+
+
+EP    =
+    .94481477000,-01    .70814687000,-01    .30811633000,-01    .10512005000,-01    .94616035000,-02    .86705762000,-02
+    .28740655000,-02    .15152546000,-02    .12514215000,-02    .12081566000,-02    .52258335000,-03
+
+
+A    ( 1) =
+    .99999500000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+A    ( 2) =
+    .18091427000, 00    .25351814000, 01    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+A    ( 3) =
+   -.11456249000,-01    .47547983000, 00    .35657072000, 01    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+A    ( 4) =
+   -.51512617000, 00    .54781566000, 00   -.17716119000, 01    .72915218000, 01    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+A    ( 5) =
+    .11601141000, 00   -.10299527000, 01    .72452555000, 00    .48722419000, 00    .54782807000, 01    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+A    ( 6) =
+   -.11776283000, 00   -.71537430000, 00   -.74472034000, 00    .20419912000, 01    .48098507000, 00    .12268324000, 02
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+A    ( 7) =
+   -.50063003000, 00    .62880748000, 00   -.24045999000, 01    .24167570000, 00    .24954270000, 01   -.44240286000, 00
+    .11247907000, 02    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+A    ( 8) =
+    .32234679000, 00   -.39832310000, 00    .16860255000, 01   -.35606157000, 01   -.20279340000, 01    .57521862000, 01
+    .23456721000, 01    .22192140000, 02    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+A    ( 9) =
+   -.27135492000, 00   -.91327396000, 00   -.13336863000, 01    .26991516000, 01   -.34108894000, 01   -.10926272000, 01
+    .64046102000, 01   -.21043290000, 01    .23555474000, 02    .00000000000, 00    .00000000000, 00
+
+
+A    (10) =
+    .34981017000, 00    .62306451000, 00    .15884627000, 01   -.27471804000, 01    .26259118000, 01   -.89065461000, 01
+   -.57305481000, 01    .15599810000, 02    .43980736000, 01    .45372355000, 02    .00000000000, 00
+
+
+A    (11) =
+    .32587539000, 00   -.66787069000, 00    .16578738000, 01   -.34405579000, 01   -.21355981000, 01    .39643260000, 01
+   -.81232322000, 01   -.28493973000, 01    .14176898000, 02    .25817176000, 01    .44661036000, 02
+
+
+GF    =
+    .10000050000, 01    .39444908000, 00    .28044927000, 00    .13714558000, 00    .18253902000, 00    .81510725000,-01
+    .88905426000,-01    .45060999000,-01    .42452977000,-01    .22039852000,-01    .22390882000,-01    .30084691000,-02
+
+
+Q     =
+    .10575557000, 01    .41148509000, 00   -.40942553000, 00    .18347938000, 00   -.30128957000,-01    .24904116000,-01
+    .49842252000,-01   -.14731233000,-01    .52071090000,-02   -.22533730000,-02   -.62792690000,-02    .14933475000, 01
+
+
+Q2    =
+    .11184240000, 01    .16931997000, 00    .16762926000, 00    .33664682000,-01    .90775404000,-03    .62021499000,-03
+    .24842500000,-02    .21700922000,-03    .27113984000,-04    .50776898000,-05    .39429219000,-04
+
+
+E     =
+    .37492350000, 00    .20560353000, 00    .37974270000,-01    .43095880000,-02    .34018340000,-02    .27816191000,-02
+    .29736910000,-03    .80359880000,-04    .53245896000,-04    .48168207000,-04    .87389880000,-05
+
+
+ENF   =
+    .10000050000, 01    .40085234000, 00    .28562298000, 00    .17750536000, 00    .21074417000, 00    .88491857000,-01
+    .14230965000, 00    .68284810000,-01    .84648748000,-01    .57770283000,-01    .46122049000,-01
diff --git a/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHLET-OUTPUT.lst b/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHLET-OUTPUT.lst
new file mode 100644
index 0000000..e5662f5
--- /dev/null
+++ b/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHLET-OUTPUT.lst
@@ -0,0 +1,1262 @@
+0200                   BAC-220 STANDARD VERSION   2/1/62
+
+0200     COMMENT
+
+0200       DIRICHLET PROBLEM FOR A BEAN-SHAPED REGION.  FROM P J DAVIS,
+
+0200       *ORTHONORMALIZING CODES IN NUMERICAL ANALYSIS* IN J TODD, --SURVEY OF
+
+0200       NUMERICAL ANLAYSIS--, MCGRAW-HILL, 1962,  P.347. P H KIMPEL 8/15/70
+
+0200       MODIFICATION LOG..
+
+0200       92/03/17  P.KIMPEL, PARADIGM CORP, SAN DIEGO, CA  92117.
+
+0200         CONVERT FOR UNISYS A-SERIES MCP 3.8.4.
+
+0200       2014-11-15  P.KIMPEL
+
+0200         RETRO-CONVERT FROM UNISYS MCP ALGOL BACK TO BURROUGHS B5500 XALGOL.
+
+0200       2018-02-20  P.KIMPEL
+
+0200         RETRO-CONVERT FROM B5500 TO BURROUGHS 220 BALGOL OF FEB 1962.
+
+0200     $
+
+0200
+
+0200     FORMAT F1 (B30,I3,2X10.3,4X10.5,W),
+
+0200            F2 (B40,*X*,B9,*Y*,B9,*W*,B8,*BV*,B7,*CBV*,B7,*DEV*,W3,W)$
+
+0222     INTEGER I, J, N, M, P$
+
+0222     REAL SUM, GMDT$
+
+0222
+
+0222
+
+0222     REAL    X, Y, W, CBV, BV, Z, ORTHV, DEV, COF, STD, CV, VCV,
+
+0222             Q, Q2, E, EP, A, GF, ENF$
+
+0222     ARRAY
+
+0222       X(43),
+
+0222       Y(43),
+
+0222       W(43),
+
+0222       CBV(43),
+
+0222       BV(1, 43+11),
+
+0222       Z(11, 43+11),
+
+0222       ORTHV(11+1, 43+11),
+
+0222       DEV(1, 43),
+
+0222       COF(1, 11),
+
+0222       STD(1),
+
+0222       CV(11+1, 11),
+
+0222       VCV(1, 11+1, 11),
+
+0222       Q(1, 11+1),
+
+0222       Q2(1, 11),
+
+0222       E(1, 11),
+
+0222       EP(1, 11),
+
+0222       A(11, 11),
+
+0222       GF(11+1),
+
+0222       ENF(11)$
+
+0222
+
+0222
+
+0222     PROCEDURE ORTHO (W(), Y(,), Z(,), N, FN, M, P, R, AI, AUI, MUI, ZEI$
+
+0224                      X(,), DEV(,), COF(,), STD(), CV(,), VCV(,,), GMDT,
+
+0224                      Q(,), Q2(,), E(,), EP(,), A(,), GF(), ENF())$
+
+0224     BEGIN
+
+0224     REAL    FN, GMDT$
+
+0226     REAL    W, Y, Z, X, DEV, COF, STD, CV, VCV, Q, Q2, E, EP, A, GF, ENF$
+
+0226     INTEGER N, M, P, R, AI, AUI, ZEI, MUI$
+
+0226     COMMENT
+
+0226               ORTHO    IS TAKEN FROM ACM ALGORITHM 127 (COMM. ACM, VOL.5,
+
+0226                      OCTOBER 1962, P. 511, AUTHOR PHILIP J. WALSH)$
+
+0226     INTEGER  NPP, NPM, M1, N2, M2, R1, RBAR, P2, BEI, RHI, I18, GAI, SII,
+
+0226                   I, J, DEI, NUI, E1Z2, E1Z1, K, THI, ALI, OMI, NII$
+
+0226     ARRAY  PK(99), XP (99), QK(99)$
+
+0226     REAL DENOM, SUM, DK2, DK, FI, SS, SSQ$
+
+0226
+
+0226           NPP = N+P$ NPM = N+M$ M1 = M-1$ N2 = N+1$ M2 = M+1$
+
+0241               R1 = 0$ RBAR = R$ P2 = P+1$
+
+0247           EITHER IF N EQL M$ DENOM = 1.0$  OTHERWISE$  DENOM = SQRT(N-M)$
+
+0262           BEI = RHI = I18 = 1$
+
+0266           EITHER IF (P NEQ 0)$ GAI = SII = 2$  OTHERWISE$  GAI = SII = 1$
+
+0277     BOX1..           SWITCH AI, (AT1, AT2)$
+
+0281           AT1..      FOR J = (1, 1, N)$ BEGIN
+
+0293                      X(2,J) = Z(1,J)$  X(1,J) = 1.0 END$
+
+0315                      FOR I = (2, 1, M1)$ BEGIN
+
+0327                      FOR J = (1, 1, N)$
+
+0338                      X(I+1,J) = X(I,J) . X(2,J)  END$   GO TO BOX2$
+
+0367           AT2..      FOR I = (1, 1, M)$ BEGIN
+
+0379                      FOR J = (1, 1, N)$
+
+0390                      X(I,J) = Z(I,J)  END$
+
+0409     BOX2..           EITHER IF P EQL 0$ GO TO BOX3$
+
+0413                      OTHERWISE$  SWITCH AUI, (AU1, AU2)$
+
+0418           AU1..      FOR I = (1, 1, M)$ BEGIN
+
+0430                      FOR J = (N2, 1, NPP)$
+
+0441                      X(I,J) = 0.0$  X(I,N+I) = 1.0  END$  GO TO BOX3$
+
+0463           AU2..      FOR I = (1, 1, M)$ BEGIN
+
+0475                      FOR J = (N2, 1, NPP)$
+
+0486                      X(I,J) = Z(I,J)  END$
+
+0505     BOX3..           DEI = NUI = E1Z1 = E1Z2 = K = 1$
+
+0511     BOX4..           THI = 1$
+
+0513     BOX5..           ALI = OMI = 1$  EITHER IF P EQL 0$ GO TO BOX6$
+
+0520                      OTHERWISE$  FOR J = (1, 1, P)$ PK(N+J) = 0.0$
+
+0539     BOX6..           SWITCH MUI, (MU1, MU2)$
+
+0543           MU1..      FOR I = (1, 1, N)$ PK(I) = X(K,I)$
+
+0566                      GO TO BOX7$
+
+0567           MU2..      FOR I = (1, 1, N)$
+
+0578                      PK(I) = X(K,I) . W(I)$   GO TO BOX7$
+
+0596     BOX7..           SWITCH OMI, (OM1, OM2)$
+
+0600           OM1..      FOR I = (1, 1, K)$ BEGIN SUM = 0.0$
+
+0613                      FOR J = (1, 1, NPP)$
+
+0624                      SUM = SUM + PK(J) . X(I,J)$  QK(I) = SUM END$
+
+0642                      GO TO BOX8$
+
+0643           OM2..      DK2 = 0.0$  FOR I = (1, 1, NPP)$
+
+0655                      DK2 = DK2 + PK(I) . X(K,I)$
+
+0669                      DK = SQRT(DK2)$
+
+0673                      GF(I18) = DK$   I18 = I18 + 1$
+
+0682                      FOR I = (1, 1, NPP)$
+
+0693                      X(K,I) = X(K,I)/DK$
+
+0713                      OMI = 1$    GO TO BOX6$
+
+0716     BOX8..           SWITCH DEI, (DE1, DE2)$
+
+0720           DE1..      E1Z1 = -E1Z1$   EITHER IF E1Z1 LSS 0$ GO TO BOX8B$
+
+0726                      OTHERWISE$  GO TO BOX8A$
+
+0728     BOX8A..          FOR I = (1, 1, K-1)$
+
+0742                      QK(I) = -QK(I)$   QK(K) = 1.0$
+
+0750                      FOR I = (1, 1, NPP)$ BEGIN
+
+0763                      SUM = 0.0$  FOR J = (1, 1, K)$
+
+0774                      SUM = SUM + X(J,I) . QK(J)$
+
+0788                      XP(I) = SUM END$  GO TO BOX9$
+
+0793     BOX8B..          ENF(I18) = SQRT(QK(K))$   GO TO BOX8A$
+
+0803           DE2..      E1Z2 = -E1Z2$  EITHER IF E1Z2 LSS 0$ GO TO BOX8C$
+
+0809                      OTHERWISE$  GO TO BOX8A$
+
+0811     BOX8C..          FOR I = (1, 1, M)$ BEGIN
+
+0823                      Q(R1,I) = QK(I)$  Q2(R1,I) = QK(I) . QK(I)  END$
+
+0845                      Q(R1,M2) = QK(M2)$  E(R1,1) = Q(R1,M2) - Q2(R1,1)$
+
+0879                      FOR J = (2, 1, M)$
+
+0890                      E(R1,J) = E(R1,J-1) - Q2(R1,J)$
+
+0917                      FI = 1.0$
+
+0919                      FOR I = (1, 1, M)$ BEGIN
+
+0933                      EITHER IF (FN - FI) GTR 0.0$ BEGIN
+
+0935                      EITHER IF E(R1,I) LSS 0.0$
+
+0945                      BEGIN EP(R1,I) = -SQRT(ABS(E(R1,I))/(FN - FI))$
+
+0972                      GO TO BOX8D$    END$
+
+0973                      OTHERWISE$  EP(R1,I) = SQRT(E(R1,I)/(FN - FI))$
+
+0997                      GO TO BOX8D$  END$  OTHERWISE$  E(R1,I) = -1.0$
+
+1008     BOX8D..          FI = FI + 1.0$   END$   GO TO BOX8A$
+
+1013     BOX9..           SWITCH THI, (TH1, TH2, TH3)$
+
+1018           TH1..      FOR I = (1, 1, NPP)$
+
+1029                      X(K,I) = XP(I)$  GO TO BOX10$
+
+1042           TH2..      FOR I = (1, 1, N)$
+
+1053                      DEV(R1,I) = XP(I)$
+
+1065                      FOR I = (1, 1, P)$
+
+1076                      COF(R1,I) = -XP(N+I)$  THI = 3$  GO TO TH1$
+
+1094           TH3..      GO TO BOX11$
+
+1095     BOX10..          SWITCH ALI, (AL1, AL2)$
+
+1099           AL1..      OMI = ALI = 2$  GO TO BOX6$
+
+1103           AL2..      EITHER IF K LSS M$ BEGIN K = K + 1$  GO TO BOX4$  END$
+
+1112                      OTHERWISE$  GO TO BOX12$
+
+1114     BOX11..          SWITCH NUI, (NU1, NU2)$
+
+1118           NU1..      NUI = 2$  GO TO BOX14$
+
+1121           NU2..      SS = DK/DENOM$  SSQ = SS . SS$
+
+1128                      STD(R1) = SS$  GO TO BOX14$
+
+1135     BOX12..          SWITCH BEI, (BE1, BE2)$
+
+1139           BE1..      FOR I = (1, 1, M)$ BEGIN
+
+1151                      FOR J = (1, 1, P)$
+
+1162                      A(I,J) = X(I,N+J)  END$
+
+1182                      GMDT = 1.0$  FOR I = (1, 1, M)$
+
+1195                      GMDT = GMDT . (GF(I)/ENF(I))$
+
+1210                      GMDT = GMDT . GMDT$  DEI = BEI = THI = 2$
+
+1217                      K = K + 1$       GO TO BOX13$
+
+1221           BE2..      GO TO BOX11$
+
+1222     BOX13..          SWITCH GAI, (GA1, GA2)$
+
+1226           GA1..      GO TO BOX11$
+
+1227           GA2..      FOR I = (1, 1, P)$ BEGIN
+
+1239                      FOR J = (I, 1, P)$ BEGIN
+
+1239                      SUM = 0.0$
+
+1252                      FOR NII = (1, 1, M)$
+
+1263                      SUM = SUM + A(NII,I) . A(NII,J)$
+
+1283                      CV(I,J) = SUM  END  END$
+
+1294                      FOR I = (1, 1, P)$
+
+1305                      CV(P2,I) = SQRT(CV(I,I))$  GAI = 1$  GO TO BOX11$
+
+1328     BOX14..          SWITCH RHI, (RH1, RH2)$
+
+1332           RH1..      EITHER IF RBAR EQL 0$ GO TO FINAL$
+
+1336                      OTHERWISE$  RBAR = RBAR - 1$
+
+1340                      R1 = R1 + 1$  THI = RHI = 2$  SWITCH ZEI, (ZE1, ZE2)$
+
+1350           ZE1..      FOR I = (1, 1, N)$
+
+1361                      X(M2,I) = Y(R1,I)$
+
+1379                      FOR I = (1, 1, P)$
+
+1390                      X(M2,N+I) = 0.0$  GO TO BOX5$
+
+1402           ZE2..      FOR I = (1, 1, NPP)$
+
+1413                      X(M2,I) = Y(R1,I)$   GO TO BOX5$
+
+1432           RH2..      SWITCH SII, (SI1, SI2)$
+
+1436           SI1..      GO TO RH1$
+
+1437           SI2..      FOR I = (1, 1, P)$ BEGIN
+
+1449                      FOR J = (I, 1, P)$
+
+1460                      VCV(R1,I,J) = SSQ . CV(I,J)  END$
+
+1483                      FOR I = (1, 1, P)$
+
+1494                      VCV(R1, P2, I) = SS . CV(P2,I)$  GO TO RH1$
+
+1517     FINAL.. RETURN END  ORTHO()$
+
+1517
+
+1517
+
+1602     PROCEDURE G (I, X, Y)$
+
+1602       BEGIN
+
+1605       REAL X, Y, G$   INTEGER I$
+
+1605       SWITCH I, (G1, G2, G3, G4, G5, G6, G7, G8, G9, G10,
+
+1623                  G11, G12, G13, G14, G15, G16, G17)$
+
+1624           G() = 0$
+
+1625           RETURN$
+
+1627       G1..
+
+1627           G() = 1$
+
+1628           RETURN$
+
+1630       G2..
+
+1630           G() = X$
+
+1631           RETURN$
+
+1633       G3..
+
+1633           G() = Y$
+
+1634           RETURN$
+
+1636       G4..
+
+1636           G() = X*2 - Y*2$
+
+1644           RETURN$
+
+1646       G5..
+
+1646           G() = 2.0 . X . Y$
+
+1649           RETURN$
+
+1651       G6..
+
+1651           G() = X*3 - 3.0 . X . Y*2$
+
+1663           RETURN$
+
+1665       G7..
+
+1665           G() = 3.0 . X*2 . Y - Y*3$
+
+1677           RETURN$
+
+1679       G8..
+
+1679           G() = X*4 + Y*4 - 6.0 . X*2 . Y*2$
+
+1700           RETURN$
+
+1702       G9..
+
+1702           G() = 4.0 . X*3 . Y - 4.0 . X . Y*3$
+
+1718           RETURN$
+
+1720       G10..
+
+1720           G() = X*5 - 10.0 . X*3 . Y*2 + 5.0 . X . Y*4$
+
+1743           RETURN$
+
+1745       G11..
+
+1745           G() = Y*5 - 10.0 . Y*3 . X*2 + 5.0 . Y . X*4$
+
+1768           RETURN$
+
+1770       G12..
+
+1770           G() = X*6 - 15.0 . X*4 . Y*2 + 15.0 . X*2 . Y*4 - Y*6$
+
+1804           RETURN$
+
+1806       G13..
+
+1806           G() = 6.0 . X*5 . Y + 6.0 . X . Y*5 - 20.0 . X*3 . Y*3$
+
+1835           RETURN$
+
+1837       G14..
+
+1837           G() = X*7 - 21.0 .X*5 . Y*2 + 35.0 . X*3 . Y*4  - 7.0 . X . Y*6$
+
+1875           RETURN$
+
+1877       G15..
+
+1877           G() = 7.0 . X*6 . Y - 35.0 . X*4 . Y*3 + 21.0 . X*2 . Y*5 -
+
+1877           Y*7$
+
+1915           RETURN$
+
+1917       G16..
+
+1917           G() = X*8 + Y*8 - 28.0 . X*6 . Y*2 + 70.0 . X*4 . Y*4 - 28.0
+
+1917                   . X*2 . Y*6$
+
+1964           RETURN$
+
+1966       G17..
+
+1966           G() = 8.0 . X*7 . Y - 56.0 . X*5 . Y*3 + 56.0 . X*3 . Y*5
+
+1966                   - 8.0 . X . Y*7$
+
+2008           RETURN$
+
+2010       END G()$
+
+2010
+
+2010
+
+2010     COMMENT INITIALIZATION$
+
+2010     N = 43$
+
+2012     M = 11$
+
+2014     P = 11$
+
+2016     FOR I = (1, 1, N)$
+
+2027         BEGIN
+
+2028         READ ($$ XYWIN)$
+
+2032         INPUT XYWIN (X(I), Y(I), W(I))$
+
+2048         BV(1,I) = EXP(X(I)) . COS(Y(I)) + LOG((1 - Y(I))*2 + X(I)*2)$
+
+2073         FOR J = (1, 1, M)$
+
+2084             Z(J,I) = G (J, X(I), Y(I))$
+
+2104         END$
+
+2104
+
+2105     ORTHO (W(), BV(,), Z(,), N , FLOAT(N) , M , P,  1, 2, 1, 2, 1$
+
+2146            ORTHV(,), DEV(,), COF(,), STD(), CV(,), VCV(,,),
+
+2188            GMDT, Q(,), Q2(,), E(,), EP(,), A(,), GF(), ENF())$
+
+2188
+
+2237     FOR I = (1, 1, N)$
+
+2248         BEGIN  SUM = 0$
+
+2250         FOR J = (1, 1, M)$
+
+2261           SUM = SUM + COF(1,J) . G (J, X(I), Y(I))$
+
+2278         CBV(I) = SUM$
+
+2281         END$
+
+2282     WRITE ($$ F2)$
+
+2286     WRITE ($$ RESULTS, F1)$
+
+2294     OUTPUT RESULTS (FOR I = (1, 1, N)$ (I,X(I),Y(I),W(I), BV(1,I),
+
+2327                     CBV(I), (CBV(I)-BV(1,I))))$
+
+2327
+
+2339     PROCEDURE DMMP (NAME, ROW(), RN, SZ)$
+
+2339         BEGIN
+
+2339         INTEGER
+
+2339           NAME, RN, SZ$
+
+2343         INTEGER
+
+2343           I$
+
+2343         FORMAT
+
+2343           F1 (W4,A5,* = *,W),
+
+2343           F2 (W4,A5,*(*,I2,*) = *,W),
+
+2343           F3 (6F20.11,W)$
+
+2359         OUTPUT
+
+2361           D1OUT (NAME),
+
+2366           D2OUT (NAME, RN),
+
+2376           ROWOUT (FOR I = (1, 1, SZ)$ ROW(I))$
+
+2376
+
+2400         EITHER IF RN GTR 0$
+
+2407           WRITE ($$ D2OUT, F2)$
+
+2411         OTHERWISE$
+
+2416           WRITE ($$ D1OUT, F1)$
+
+2416
+
+2420         WRITE ($$ ROWOUT, F3)$
+
+2428         RETURN$
+
+2430         END DMMP()$
+
+2430
+
+2433     DMMP (6700000000, X(), 0, N)$
+
+2446     DMMP (6800000000, Y(), 0, N)$
+
+2459     DMMP (6600000000, W(), 0, N)$
+
+2472     DMMP (4342650000, CBV(), 0, N)$
+
+2485     DMMP (4265000000, BV(1,), 0, N+P)$
+
+2499     FOR I = (1, 1, M)$
+
+2510         DMMP (6900000000, Z(I,), I, N+P)$
+
+2510
+
+2529     FOR I = (1, 1, M+1)$
+
+2543         DMMP (5659634865, ORTHV(I,), I, N+P)$
+
+2543
+
+2562     DMMP (4445650000, DEV(1,), 0, N)$
+
+2575     DMMP (4356460000, COF(1,), 0, P)$
+
+2588     DMMP (6263440000, STD(), 0, 1)$
+
+2601     FOR I = (1, 1, P+1)$
+
+2615         DMMP (4365000000, CV(I,), I, P)$
+
+2615
+
+2633     FOR I = (1, 1, P+1)$
+
+2647         DMMP (6543650000, VCV(1,I,), I, P)$
+
+2647
+
+2665     DMMP (4557000000, EP(1,), 0, M)$
+
+2678     FOR I = (1, 1, M)$
+
+2689         DMMP (4100000000, A(I,), I, P)$
+
+2689
+
+2707     DMMP (4746000000, GF(), 0, M+1)$
+
+2721     DMMP (5800000000, Q(1,), 0, M+1)$
+
+2735     DMMP (5882000000, Q2(1,), 0, M)$
+
+2748     DMMP (4500000000, E(1,), 0, M)$
+
+2761     DMMP (4555460000, ENF(), 0, M)$
+
+2774     FINISH$
+COMPILED PROGRAM ENDS AT 2775
+PROGRAM VARIABLES BEGIN AT 6295
+
+                                        X         Y         W        BV       CBV       DEV
+
+                                1      .000      .110    .01414    .76088    .76399    .00310
+                                2     -.050      .108    .01427    .72024    .72347    .00323
+                                3     -.100      .115    .01963    .66721    .67048    .00327
+                                4     -.160      .150    .02300    .55235    .55576    .00340
+                                5     -.220      .205    .03897    .40067    .40386    .00318
+                                6     -.320      .300    .02792    .17014    .17015    .00000
+                                7     -.400      .358    .03324    .06949    .06500   -.00448
+                                8     -.500      .420    .01483    .02006    .01359   -.00646
+                                9     -.550      .436    .01423    .04590    .04344   -.00245
+                               10     -.600      .430    .01505    .12036    .12444    .00407
+                               11     -.644      .400    .01483    .22849    .23541    .00691
+                               12     -.660      .350    .01420    .33248    .33512    .00264
+                               13     -.655      .300    .02881    .41179    .41040   -.00139
+                               14     -.635      .200    .03043    .56168    .55792   -.00376
+                               15     -.595      .100    .03076    .70069    .69969   -.00099
+                               16     -.552      .000    .03311    .84177    .84369    .00191
+                               17     -.500     -.105    .03175    .98914    .99145    .00230
+                               18     -.440     -.200    .01809   1.12198   1.12185   -.00013
+                               19     -.400     -.250    .01998   1.19325   1.19145   -.00180
+                               20     -.350     -.300    .01882   1.26792   1.26504   -.00287
+                               21     -.300     -.344    .03140   1.33733   1.33459   -.00274
+                               22     -.204     -.400    .03450   1.44504   1.44501   -.00003
+                               23     -.100     -.436    .02846   1.54874   1.55125    .00251
+                               24      .000     -.448    .02831   1.64168   1.64342    .00174
+                               25      .100     -.442    .03860   1.73582   1.73434   -.00147
+                               26      .230     -.400    .02431   1.85882   1.85512   -.00369
+                               27      .300     -.350    .02059   1.91643   1.91501   -.00141
+                               28      .353     -.300    .03566   1.95563   1.95689    .00126
+                               29      .430     -.200    .03122   1.99206   1.99507    .00301
+                               30      .477     -.100    .02975   1.96610   1.96578   -.00032
+                               31      .510      .000    .02846   1.89648   1.89241   -.00407
+                               32      .522      .100    .01696   1.75623   1.75328   -.00294
+                               33      .520      .160    .02330   1.63625   1.63683    .00058
+                               34      .500      .240    .02102   1.41224   1.41798    .00574
+                               35      .456      .300    .01795   1.14765   1.15159    .00394
+                               36      .400      .330    .01147    .91522    .91268   -.00254
+                               37      .360      .337    .01762    .78912    .78354   -.00558
+                               38      .300      .320    .01648    .68785    .68274   -.00510
+                               39      .250      .290    .01901    .66230    .65991   -.00239
+                               40      .300      .245    .01901    .89407    .89251   -.00155
+                               41      .150      .200    .01809    .72694    .72885    .00191
+                               42      .100      .160    .01677    .75642    .75909    .00267
+                               43      .050      .128    .01501    .77202    .77498    .00296
+
+
+X     =
+    .00000000000, 00   -.50000000000,-01   -.10000000000, 00   -.16000000000, 00   -.22000000000, 00   -.32000000000, 00
+   -.40000000000, 00   -.50000000000, 00   -.55000000000, 00   -.60000000000, 00   -.64400000000, 00   -.66000000000, 00
+   -.65500000000, 00   -.63500000000, 00   -.59500000000, 00   -.55200000000, 00   -.50000000000, 00   -.44000000000, 00
+   -.40000000000, 00   -.35000000000, 00   -.30000000000, 00   -.20400000000, 00   -.10000000000, 00    .00000000000, 00
+    .10000000000, 00    .23000000000, 00    .30000000000, 00    .35300000000, 00    .43000000000, 00    .47700000000, 00
+    .51000000000, 00    .52200000000, 00    .52000000000, 00    .50000000000, 00    .45600000000, 00    .40000000000, 00
+    .36000000000, 00    .30000000000, 00    .25000000000, 00    .30000000000, 00    .15000000000, 00    .10000000000, 00
+    .50000000000,-01
+
+
+Y     =
+    .11000000000, 00    .10800000000, 00    .11500000000, 00    .15000000000, 00    .20500000000, 00    .30000000000, 00
+    .35800000000, 00    .42000000000, 00    .43600000000, 00    .43000000000, 00    .40000000000, 00    .35000000000, 00
+    .30000000000, 00    .20000000000, 00    .10000000000, 00    .00000000000, 00   -.10500000000, 00   -.20000000000, 00
+   -.25000000000, 00   -.30000000000, 00   -.34400000000, 00   -.40000000000, 00   -.43600000000, 00   -.44800000000, 00
+   -.44200000000, 00   -.40000000000, 00   -.35000000000, 00   -.30000000000, 00   -.20000000000, 00   -.10000000000, 00
+    .00000000000, 00    .10000000000, 00    .16000000000, 00    .24000000000, 00    .30000000000, 00    .33000000000, 00
+    .33700000000, 00    .32000000000, 00    .29000000000, 00    .24500000000, 00    .20000000000, 00    .16000000000, 00
+    .12800000000, 00
+
+
+W     =
+    .14140000000,-01    .14270000000,-01    .19630000000,-01    .23000000000,-01    .38970000000,-01    .27920000000,-01
+    .33240000000,-01    .14830000000,-01    .14230000000,-01    .15050000000,-01    .14830000000,-01    .14200000000,-01
+    .28810000000,-01    .30430000000,-01    .30760000000,-01    .33110000000,-01    .31750000000,-01    .18090000000,-01
+    .19980000000,-01    .18820000000,-01    .31400000000,-01    .34500000000,-01    .28460000000,-01    .28310000000,-01
+    .38600000000,-01    .24310000000,-01    .20590000000,-01    .35660000000,-01    .31220000000,-01    .29750000000,-01
+    .28460000000,-01    .16960000000,-01    .23300000000,-01    .21020000000,-01    .17950000000,-01    .11470000000,-01
+    .17620000000,-01    .16480000000,-01    .19010000000,-01    .19010000000,-01    .18090000000,-01    .16770000000,-01
+    .15010000000,-01
+
+
+CBV   =
+    .76399073000, 00    .72347682000, 00    .67048629000, 00    .55576020000, 00    .40386387000, 00    .17015283000, 00
+    .65003200000,-01    .13596552000,-01    .43440283000,-01    .12444357000, 00    .23541132000, 00    .33512773000, 00
+    .41040896000, 00    .55792220000, 00    .69969238000, 00    .84369147000, 00    .99145532000, 00    .11218515000, 01
+    .11914525000, 01    .12650415000, 01    .13345923000, 01    .14450102000, 01    .15512594000, 01    .16434232000, 01
+    .17343438000, 01    .18551261000, 01    .19150174000, 01    .19568946000, 01    .19950713000, 01    .19657882000, 01
+    .18924112000, 01    .17532836000, 01    .16368319000, 01    .14179803000, 01    .11515965000, 01    .91268660000, 00
+    .78354318000, 00    .68274384000, 00    .65991390000, 00    .89251312000, 00    .72885275000, 00    .75909449000, 00
+    .77498863000, 00
+
+
+BV    =
+    .76088841000, 00    .72024613000, 00    .66721239000, 00    .55235649000, 00    .40067717000, 00    .17014345000, 00
+    .69491780000,-01    .20063290000,-01    .45900150000,-01    .12036854000, 00    .22849674000, 00    .33248138000, 00
+    .41179999000, 00    .56168894000, 00    .70069088000, 00    .84177328000, 00    .98914967000, 00    .11219847000, 01
+    .11932581000, 01    .12679213000, 01    .13373396000, 01    .14450454000, 01    .15487488000, 01    .16416818000, 01
+    .17358214000, 01    .18588237000, 01    .19164317000, 01    .19556301000, 01    .19920608000, 01    .19661095000, 01
+    .18964821000, 01    .17562334000, 01    .16362508000, 01    .14122402000, 01    .11476546000, 01    .91522800000, 00
+    .78912810000, 00    .68785090000, 00    .66230780000, 00    .89407080000, 00    .72694000000, 00    .75642080000, 00
+    .77202140000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    ( 1) =
+    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01
+    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01
+    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01
+    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01
+    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01
+    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01
+    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01    .10000000000, 01
+    .10000000000, 01    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    ( 2) =
+    .00000000000, 00   -.50000000000,-01   -.10000000000, 00   -.16000000000, 00   -.22000000000, 00   -.32000000000, 00
+   -.40000000000, 00   -.50000000000, 00   -.55000000000, 00   -.60000000000, 00   -.64400000000, 00   -.66000000000, 00
+   -.65500000000, 00   -.63500000000, 00   -.59500000000, 00   -.55200000000, 00   -.50000000000, 00   -.44000000000, 00
+   -.40000000000, 00   -.35000000000, 00   -.30000000000, 00   -.20400000000, 00   -.10000000000, 00    .00000000000, 00
+    .10000000000, 00    .23000000000, 00    .30000000000, 00    .35300000000, 00    .43000000000, 00    .47700000000, 00
+    .51000000000, 00    .52200000000, 00    .52000000000, 00    .50000000000, 00    .45600000000, 00    .40000000000, 00
+    .36000000000, 00    .30000000000, 00    .25000000000, 00    .30000000000, 00    .15000000000, 00    .10000000000, 00
+    .50000000000,-01    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    ( 3) =
+    .11000000000, 00    .10800000000, 00    .11500000000, 00    .15000000000, 00    .20500000000, 00    .30000000000, 00
+    .35800000000, 00    .42000000000, 00    .43600000000, 00    .43000000000, 00    .40000000000, 00    .35000000000, 00
+    .30000000000, 00    .20000000000, 00    .10000000000, 00    .00000000000, 00   -.10500000000, 00   -.20000000000, 00
+   -.25000000000, 00   -.30000000000, 00   -.34400000000, 00   -.40000000000, 00   -.43600000000, 00   -.44800000000, 00
+   -.44200000000, 00   -.40000000000, 00   -.35000000000, 00   -.30000000000, 00   -.20000000000, 00   -.10000000000, 00
+    .00000000000, 00    .10000000000, 00    .16000000000, 00    .24000000000, 00    .30000000000, 00    .33000000000, 00
+    .33700000000, 00    .32000000000, 00    .29000000000, 00    .24500000000, 00    .20000000000, 00    .16000000000, 00
+    .12800000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    ( 4) =
+   -.12100000000,-01   -.91640000000,-02   -.32250000000,-02    .31000000000,-02    .63750000000,-02    .12400000000,-01
+    .31836000000,-01    .73600000000,-01    .11240400000, 00    .17510000000, 00    .25473600000, 00    .31310000000, 00
+    .33902500000, 00    .36322500000, 00    .34402500000, 00    .30470400000, 00    .23897500000, 00    .15360000000, 00
+    .97500000000,-01    .32500000000,-01   -.28336000000,-01   -.11838400000, 00   -.18009600000, 00   -.20070400000, 00
+   -.18536400000, 00   -.10710000000, 00   -.32500000000,-01    .34609000000,-01    .14490000000, 00    .21752900000, 00
+    .26010000000, 00    .26248400000, 00    .24480000000, 00    .19240000000, 00    .11793600000, 00    .51100000000,-01
+    .16031000000,-01   -.12400000000,-01   -.21600000000,-01    .29975000000,-01   -.17500000000,-01   -.15600000000,-01
+   -.13884000000,-01    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    ( 5) =
+    .00000000000, 00   -.10800000000,-01   -.23000000000,-01   -.48000000000,-01   -.90200000000,-01   -.19200000000, 00
+   -.28640000000, 00   -.42000000000, 00   -.47960000000, 00   -.51600000000, 00   -.51520000000, 00   -.46200000000, 00
+   -.39300000000, 00   -.25400000000, 00   -.11900000000, 00    .00000000000, 00    .10500000000, 00    .17600000000, 00
+    .20000000000, 00    .21000000000, 00    .20640000000, 00    .16320000000, 00    .87200000000,-01    .00000000000, 00
+   -.88400000000,-01   -.18400000000, 00   -.21000000000, 00   -.21180000000, 00   -.17200000000, 00   -.95400000000,-01
+    .00000000000, 00    .10440000000, 00    .16640000000, 00    .24000000000, 00    .27360000000, 00    .26400000000, 00
+    .24264000000, 00    .19200000000, 00    .14500000000, 00    .14700000000, 00    .60000000000,-01    .32000000000,-01
+    .12800000000,-01    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    ( 6) =
+    .00000000000, 00    .16246000000,-02    .29675000000,-02    .67040000000,-02    .17088500000,-01    .53632000000,-01
+    .89796800000,-01    .13960000000, 00    .14728340000, 00    .11682000000, 00    .42030020000,-01   -.44946000000,-01
+   -.10416137000, 00   -.17984787000, 00   -.19279487000, 00   -.16819660000, 00   -.10846250000, 00   -.32384000000,-01
+    .11000000000,-01    .51625000000,-01    .79502400000,-01    .89430336000,-01    .56028800000,-01    .00000000000, 00
+   -.57609200000,-01   -.98233000000,-01   -.83250000000,-01   -.51323023000,-01    .27907000000,-01    .94221330000,-01
+    .13265100000, 00    .12657664000, 00    .10067200000, 00    .38600000000,-01   -.28301190000,-01   -.66680000000,-01
+   -.75998520000,-01   -.65160000000,-01   -.47450000000,-01   -.27022500000,-01   -.14625000000,-01   -.66800000000,-02
+   -.23326000000,-02    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    ( 7) =
+   -.13310000000,-02   -.44971200000,-03    .19291250000,-02    .81450000000,-02    .21150875000,-01    .65160000000,-01
+    .12595729000, 00    .24091200000, 00    .31278815000, 00    .38489300000, 00    .43368320000, 00    .41450500000, 00
+    .35912250000, 00    .23393500000, 00    .10520750000, 00    .00000000000, 00   -.77592375000,-01   -.10816000000, 00
+   -.10437500000, 00   -.83250000000,-01   -.52172416000,-01    .14060800000,-01    .69801856000,-01    .89915392000,-01
+    .73090888000,-01    .52000000000,-03   -.51625000000,-01   -.85148100000,-01   -.10294000000, 00   -.67258700000,-01
+    .00000000000, 00    .80745200000,-01    .12569600000, 00    .16617600000, 00    .16014240000, 00    .12246300000, 00
+    .92752850000,-01    .53632000000,-01    .29986000000,-01    .51443875000,-01    .55000000000,-02    .70400000000,-03
+   -.11371520000,-02    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    ( 8) =
+    .14641000000,-03   -.32661110000,-04   -.51859938000,-03   -.22943900000,-02   -.80954000000,-02   -.36710240000,-01
+   -.81011430000,-01   -.17098304000, 00   -.21738151000, 00   -.23559599000, 00   -.20054062000, 00   -.11541239000, 00
+   -.39511050000,-01    .67416400000,-01    .10419220000, 00    .92844527000,-01    .46084050000,-01   -.73830400000,-02
+   -.30493750000,-01   -.43043750000,-01   -.41798032000,-01   -.12619469000,-01    .24830729000,-01    .40282095000,-01
+    .26545252000,-01   -.22385590000,-01   -.43043750000,-01   -.43661458000,-01   -.85879900000,-02    .38217705000,-01
+    .67652010000,-01    .57998490000,-01    .32238080000,-01   -.20582240000,-01   -.60948060000,-01   -.67084790000,-01
+   -.58617177000,-01   -.36710240000,-01   -.20558440000,-01   -.20710500000,-01   -.32937500000,-02   -.78064000000,-03
+    .28925450000,-04    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    ( 9) =
+    .00000000000, 00    .19794240000,-03    .14835000000,-03   -.29760000000,-03   -.11500500000,-02   -.47616000000,-02
+   -.18235664000,-01   -.61824000000,-01   -.10781792000, 00   -.18070320000, 00   -.26247996000, 00   -.28930440000, 00
+   -.26647362000, 00   -.18451828000, 00   -.81877948000,-01    .00000000000, 00    .50184750000,-01    .54067200000,-01
+    .39000000000,-01    .13650000000,-01   -.11697100000,-01   -.38640538000,-01   -.31408742000,-01    .00000000000, 00
+    .32772355000,-01    .39412800000,-01    .13650000000,-01   -.14660370000,-01   -.49845600000,-01   -.41504532000,-01
+    .00000000000, 00    .54806656000,-01    .81469440000,-01    .92352000000,-01    .64534570000,-01    .26980800000,-01
+    .77795240000,-02   -.47616000000,-02   -.62640000000,-02    .88126500000,-02   -.21000000000,-02   -.99840000000,-03
+   -.35543040000,-03    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    (10) =
+    .00000000000, 00   -.19744722000,-04    .34799690000,-04    .41174240000,-03    .20167482000,-02    .13175757000,-01
+    .38932940000,-01    .11145760000, 00    .16656845000, 00    .21905997000, 00    .23414014000, 00    .17742873000, 00
+    .10582183000, 00   -.59057600000,-02   -.53806564000,-01   -.51250178000,-01   -.17772626000,-01    .14061978000,-01
+    .21947500000,-01    .19160313000,-01    .85156080000,-02   -.12881843000,-01   -.16177284000,-01    .00000000000, 00
+    .17139906000,-01    .10616434000,-01   -.81356250000,-02   -.19810607000,-01   -.13661956000,-01    .14079392000,-01
+    .34502525000,-01    .24794546000,-01    .37286910000,-02   -.32455600000,-01   -.47152689000,-01   -.35737580000,-01
+   -.23723885000,-01   -.94893600000,-02   -.33230510000,-02   -.83722500000,-02   -.74062500000,-04    .81680000000,-04
+    .46941360000,-04    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+Z    (11) =
+    .16105100000,-04   -.13424520000,-04   -.74473930000,-04   -.29654250000,-03   -.14065459000,-02   -.94893600000,-02
+   -.21707828000,-01   -.40900880000,-01   -.35478490000,-01    .71156400000,-02    .88820840000,-01    .15054656000, 00
+    .16268692000, 00    .13065240000, 00    .59136600000,-01    .00000000000, 00   -.29931201000,-01   -.22312960000,-01
+   -.79765620000,-02    .81356250000,-02    .17887653000,-01    .12930458000,-01   -.76853240000,-02   -.18046378000,-01
+   -.84557660000,-02    .18019180000,-01    .19160313000,-01    .79233270000,-02   -.19716010000,-01   -.23619432000,-01
+    .00000000000, 00    .34408925000,-01    .47522198000,-01    .41236262000,-01    .11143350000,-01   -.11345661000,-01
+   -.16953360000,-01   -.13175757000,-01   -.75279490000,-02   -.24302770000,-02   -.97375000000,-03   -.22474240000,-03
+   -.14069063000,-04    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+ORTHV( 1) =
+    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00
+    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00
+    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00
+    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00
+    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00
+    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00
+    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00    .99999500000, 00
+    .99999500000, 00    .99999500000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+ORTHV( 2) =
+    .18091427000, 00    .54155198000,-01   -.72603875000,-01   -.22471475000, 00   -.37682564000, 00   -.63034379000, 00
+   -.83315831000, 00   -.10866764000, 01   -.12134355000, 01   -.13401946000, 01   -.14517425000, 01   -.14923054000, 01
+   -.14796295000, 01   -.14289259000, 01   -.13275186000, 01   -.12185058000, 01   -.10866764000, 01   -.93456557000, 00
+   -.83315831000, 00   -.70639923000, 00   -.57964016000, 00   -.33626274000, 00   -.72603875000,-01    .18091427000, 00
+    .43443242000, 00    .76400601000, 00    .94146872000, 00    .10758333000, 01    .12710423000, 01    .13901958000, 01
+    .14738568000, 01    .15042790000, 01    .14992086000, 01    .14485050000, 01    .13369570000, 01    .11949868000, 01
+    .10935796000, 01    .94146872000, 00    .81470964000, 00    .94146872000, 00    .56119149000, 00    .43443242000, 00
+    .30767335000, 00    .18091427000, 00    .25351814000, 01    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+ORTHV( 3) =
+    .38077157000, 00    .34986617000, 00    .35105210000, 00    .44732308000, 00    .61490817000, 00    .90610240000, 00
+    .10748749000, 01    .12484008000, 01    .12816781000, 01    .12365099000, 01    .11086176000, 01    .92272463000, 00
+    .74681667000, 00    .39975553000, 00    .62204002000,-01   -.27392111000, 00   -.62359539000, 00   -.93380881000, 00
+   -.10930750000, 01   -.12475863000, 01   -.13807035000, 01   -.15347371000, 01   -.16136526000, 01   -.16088930000, 01
+   -.15399508000, 01   -.13283787000, 01   -.11168098000, 01   -.91332406000, 00   -.52014138000, 00   -.14122310000, 00
+    .23103847000, 00    .59331495000, 00    .80630642000, 00    .10820534000, 01    .12750747000, 01    .13554191000, 01
+    .13613598000, 01    .12722140000, 01    .11414689000, 01    .10047859000, 01    .77300716000, 00    .60660489000, 00
+    .46872824000, 00   -.11456249000,-01    .47547983000, 00    .35657072000, 01    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+ORTHV( 4) =
+   -.79823084000, 00   -.80067049000, 00   -.79715824000, 00   -.84591472000, 00   -.95234255000, 00   -.11314958000, 01
+   -.11363566000, 01   -.99645490000, 00   -.76925127000, 00   -.32886317000, 00    .28084893000, 00    .78622687000, 00
+    .10665792000, 01    .14311515000, 01    .14902281000, 01    .14042354000, 01    .11394765000, 01    .71813505000, 00
+    .41957389000, 00    .61596314000,-01   -.27664894000, 00   -.78143528000, 00   -.11106587000, 01   -.11848816000, 01
+   -.10288778000, 01   -.46140586000, 00    .32308239000,-01    .46208864000, 00    .11312984000, 01    .15094606000, 01
+    .16607847000, 01    .15075803000, 01    .12712447000, 01    .73648366000, 00    .63127163000,-01   -.50803500000, 00
+   -.79805526000, 00   -.10081120000, 01   -.10494365000, 01   -.56626296000, 00   -.91487780000, 00   -.85755024000, 00
+   -.81573714000, 00   -.51512617000, 00    .54781566000, 00   -.17716119000, 01    .72915218000, 01    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+ORTHV( 5) =
+    .18981381000, 00    .18212744000, 00    .17475536000, 00    .12803558000, 00    .93802955000,-04   -.38283436000, 00
+   -.76609576000, 00   -.13297297000, 01   -.15742390000, 01   -.16959509000, 01   -.16291856000, 01   -.13290517000, 01
+   -.97979526000, 00   -.29957491000, 00    .31698759000, 00    .83300432000, 00    .12465664000, 01    .14633005000, 01
+    .14900215000, 01    .14254110000, 01    .12926716000, 01    .87268738000, 00    .29307249000, 00   -.30636385000, 00
+   -.88181795000, 00   -.14708733000, 01   -.16128321000, 01   -.16083570000, 01   -.13434388000, 01   -.86437106000, 00
+   -.28253741000, 00    .35064980000, 00    .72721854000, 00    .11834505000, 01    .14200295000, 01    .14142870000, 01
+    .13264542000, 01    .10846619000, 01    .85246233000, 00    .80444616000, 00    .42659404000, 00    .29664451000, 00
+    .22061041000, 00    .11601141000, 00   -.10299527000, 01    .72452555000, 00    .48722419000, 00    .54782807000, 01
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+ORTHV( 6) =
+   -.22439014000, 00   -.16640021000, 00   -.11311004000, 00   -.49521238000,-01    .66231974000,-01    .47868721000, 00
+    .93068800000, 00    .15880767000, 01    .17567631000, 01    .15337821000, 01    .83305321000, 00   -.40547616000,-01
+   -.64723534000, 00   -.13993441000, 01   -.14865983000, 01   -.11641636000, 01   -.47404492000, 00    .34695177000, 00
+    .78480969000, 00    .11567580000, 01    .13698078000, 01    .12599795000, 01    .64003964000, 00   -.19396392000, 00
+   -.98793296000, 00   -.14967635000, 01   -.12604325000, 01   -.80772268000, 00    .27909752000, 00    .11697197000, 01
+    .16759236000, 01    .15734277000, 01    .12060794000, 01    .32769000000, 00   -.64217597000, 00   -.12363963000, 01
+   -.14092013000, 01   -.13030612000, 01   -.10690714000, 01   -.71443887000, 00   -.56031300000, 00   -.40687146000, 00
+   -.29966720000, 00   -.11776283000, 00   -.71537430000, 00   -.74472034000, 00    .20419912000, 01    .48098507000, 00
+    .12268324000, 02    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+ORTHV( 7) =
+   -.78303128000, 00   -.82670960000, 00   -.87782819000, 00   -.99231211000, 00   -.11251143000, 01   -.11901667000, 01
+   -.94296622000, 00   -.20726089000, 00    .38853264000, 00    .11203441000, 01    .17679318000, 01    .18477265000, 01
+    .15528102000, 01    .78394589000, 00   -.60386533000,-01   -.69968161000, 00   -.10675443000, 01   -.10223156000, 01
+   -.80722121000, 00   -.42666585000, 00    .24115536000,-01    .83016678000, 00    .14193087000, 01    .15394855000, 01
+    .12072960000, 01    .17010108000, 00   -.54611511000, 00   -.10124807000, 01   -.13137230000, 01   -.94392447000, 00
+   -.17576350000, 00    .76332275000, 00    .12852945000, 01    .17341260000, 01    .15897648000, 01    .10354691000, 01
+    .60165256000, 00    .26740050000,-01   -.32587375000, 00    .63548022000,-01   -.67339898000, 00   -.73552799000, 00
+   -.76015103000, 00   -.50063003000, 00    .62880748000, 00   -.24045999000, 01    .24167570000, 00    .24954270000, 01
+   -.44240286000, 00    .11247907000, 02    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+ORTHV( 8) =
+    .55102002000, 00    .58645009000, 00    .62428330000, 00    .73203588000, 00    .88408873000, 00    .94749583000, 00
+    .56688291000, 00   -.60706421000, 00   -.13943599000, 01   -.19442944000, 01   -.18003310000, 01   -.85006750000, 00
+    .45289579000,-01    .11446080000, 01    .11943730000, 01    .55020793000, 00   -.50255456000, 00   -.13472553000, 01
+   -.15508542000, 01   -.14391875000, 01   -.10484757000, 01    .87104467000,-01    .11285561000, 01    .13864951000, 01
+    .80573497000, 00   -.74981468000, 00   -.14008705000, 01   -.14816721000, 01   -.62478891000, 00    .61501606000, 00
+    .14574617000, 01    .13413081000, 01    .76525341000, 00   -.48887054000, 00   -.14679685000, 01   -.15829690000, 01
+   -.13224276000, 01   -.66652200000, 00   -.16426751000, 00   -.28328812000, 00    .39611816000, 00    .48883284000, 00
+    .52627678000, 00    .32234679000, 00   -.39832310000, 00    .16860255000, 01   -.35606157000, 01   -.20279340000, 01
+    .57521862000, 01    .23456721000, 01    .22192140000, 02    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+ORTHV( 9) =
+   -.45955274000, 00   -.35755074000, 00   -.24995704000, 00   -.11053534000, 00    .87766258000,-01    .63296047000, 00
+    .11288219000, 01    .15502927000, 01    .13488167000, 01    .51243557000, 00   -.80100787000, 00   -.15824341000, 01
+   -.15976266000, 01   -.90491107000, 00    .20968329000, 00    .10436154000, 01    .13189151000, 01    .84327198000, 00
+    .31069788000, 00   -.35764783000, 00   -.92765981000, 00   -.13190668000, 01   -.78834099000, 00    .27551224000, 00
+    .12751762000, 01    .14767473000, 01    .72245107000, 00   -.12051077000, 00   -.12653925000, 01   -.12528713000, 01
+   -.32237525000, 00    .10187241000, 01    .16797819000, 01    .18934508000, 01    .10021637000, 01   -.20543081000, 00
+   -.85024971000, 00   -.12807004000, 01   -.12997190000, 01   -.68241251000, 00   -.91830207000, 00   -.73739478000, 00
+   -.58203234000, 00   -.27135492000, 00   -.91327396000, 00   -.13336863000, 01    .26991516000, 01   -.34108894000, 01
+   -.10926272000, 01    .64046102000, 01   -.21043290000, 01    .23555474000, 02    .00000000000, 00    .00000000000, 00
+
+
+ORTHV(10) =
+    .56769322000, 00    .47459886000, 00    .37529677000, 00    .22902504000, 00   -.29245545000,-01   -.75814991000, 00
+   -.12693359000, 01   -.11056706000, 01   -.28041898000, 00    .10461666000, 01    .20123702000, 01    .14237750000, 01
+    .33769500000, 00   -.11595225000, 01   -.11814670000, 01   -.21013213000, 00    .10346085000, 01    .14670507000, 01
+    .11525928000, 01    .39253260000, 00   -.48993602000, 00   -.14872851000, 01   -.10651410000, 01    .30267749000, 00
+    .14172762000, 01    .84654413000, 00   -.42465406000, 00   -.12574176000, 01   -.11814109000, 01    .23876902000, 00
+    .13923885000, 01    .10676716000, 01    .10584892000, 00   -.15393325000, 01   -.19670925000, 01   -.98114772000, 00
+   -.10871432000, 00    .83211815000, 00    .11580742000, 01    .51125088000, 00    .10013547000, 01    .83575431000, 00
+    .68434980000, 00    .34981017000, 00    .62306451000, 00    .15884627000, 01   -.27471804000, 01    .26259118000, 01
+   -.89065461000, 01   -.57305481000, 01    .15599810000, 02    .43980736000, 01    .45372355000, 02    .00000000000, 00
+
+
+ORTHV(11) =
+    .56098628000, 00    .60525530000, 00    .63997055000, 00    .72380950000, 00    .82845115000, 00    .73494149000, 00
+    .12477575000, 00   -.13319182000, 01   -.19670249000, 01   -.17316141000, 01   -.29174653000, 00    .11200854000, 01
+    .14771642000, 01    .77284113000, 00   -.61485446000, 00   -.14174620000, 01   -.11628807000, 01   -.38616697000,-01
+    .64765981000, 00    .11118669000, 01    .11257507000, 01    .13044567000, 00   -.11426954000, 01   -.13774719000, 01
+   -.41368614000, 00    .13315981000, 01    .13457626000, 01    .63350557000, 00   -.10752539000, 01   -.14991116000, 01
+   -.48744750000, 00    .10753438000, 01    .16194111000, 01    .11442346000, 01   -.41994206000, 00   -.14182396000, 01
+   -.15250174000, 01   -.98116325000, 00   -.40235519000, 00   -.35659195000, 00    .32262116000, 00    .45572501000, 00
+    .51948438000, 00    .32587539000, 00   -.66787069000, 00    .16578738000, 01   -.34405579000, 01   -.21355981000, 01
+    .39643260000, 01   -.81232322000, 01   -.28493973000, 01    .14176898000, 02    .25817176000, 01    .44661036000, 02
+
+
+ORTHV(12) =
+   -.10310559000, 01   -.10737387000, 01   -.10881514000, 01   -.11313062000, 01   -.10591200000, 01   -.30114984000,-02
+    .14920974000, 01    .21496275000, 01    .81777007000, 00   -.13544230000, 01   -.22982785000, 01   -.87952706000, 00
+    .46243453000, 00    .12521285000, 01    .33196285000, 00   -.63757676000, 00   -.76633328000, 00    .44341489000,-01
+    .60023883000, 00    .95726427000, 00    .91325518000, 00    .11733542000,-01   -.83444433000, 00   -.57883260000, 00
+    .49121328000, 00    .12291633000, 01    .47020592000, 00   -.42028020000, 00   -.10006418000, 01    .10689822000, 00
+    .13532131000, 01    .98053192000, 00   -.19298852000, 00   -.19078806000, 01   -.13100350000, 01    .84491477000, 00
+    .18565455000, 01    .16976840000, 01    .79588319000, 00    .51781153000, 00   -.63567879000, 00   -.88860144000, 00
+   -.98616934000, 00   -.33299095000, 03   -.33155983000, 03    .66177954000, 03   -.49206594000, 03    .30223837000, 01
+   -.62567340000, 02   -.20719404000, 03    .11804512000, 03   -.78860274000, 01    .39372889000, 02    .93216397000, 02
+
+
+DEV   =
+   -.31019000000,-02   -.32303100000,-02   -.32736700000,-02   -.34035000000,-02   -.31863300000,-02   -.90600000000,-05
+    .44889290000,-02    .64670880000,-02    .24602360000,-02   -.40747400000,-02   -.69143000000,-02   -.26460300000,-02
+    .13912200000,-02    .37669900000,-02    .99870000000,-03   -.19181300000,-02   -.23054900000,-02    .13340000000,-03
+    .18058000000,-02    .28799000000,-02    .27475000000,-02    .35300000000,-04   -.25104000000,-02   -.17414000000,-02
+    .14778000000,-02    .36979000000,-02    .14146000000,-02   -.12644000000,-02   -.30104000000,-02    .32160000000,-03
+    .40711000000,-02    .29499000000,-02   -.58060000000,-03   -.57398000000,-02   -.39412000000,-02    .25419000000,-02
+    .55853600000,-02    .51074300000,-02    .23943900000,-02    .15578200000,-02   -.19124200000,-02   -.26733300000,-02
+   -.29668600000,-02
+
+
+COF   =
+    .10017930000, 01    .99748751000, 00   -.19909433000, 01    .14803652000, 01   -.90927480000,-02    .18823191000, 00
+    .62333689000, 00   -.35513511000, 00    .23724870000,-01   -.11845212000, 00   -.28043865000, 00
+
+
+STD   =
+    .53182724000,-03
+
+
+CV   ( 1) =
+    .19822656000, 01   -.59297670000,-01    .42486303000, 01   -.80233565000, 01   -.17588931000, 00   -.89630820000, 00
+   -.11264608000, 02    .12253009000, 02   -.23350080000, 00    .16713029000, 02    .14553932000, 02
+
+
+CV   ( 2) =
+    .00000000000, 00    .10748280000, 02   -.57169120000, 00    .17231591000, 01    .25679539000, 01   -.18545000000, 02
+    .21440365000, 01    .47049036000, 01   -.28240652000, 02    .26545651000, 02   -.29827796000, 02
+
+
+CV   ( 3) =
+    .00000000000, 00    .00000000000, 00    .32607678000, 02   -.34337497000, 02   -.62902970000, 00   -.44924790000, 01
+   -.54203648000, 02    .60278802000, 02   -.92593000000, 00    .76352454000, 02    .74042361000, 02
+
+
+CV   ( 4) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .96979653000, 02    .24023835000, 01    .12342795000, 02
+    .55344621000, 02   -.11774956000, 03    .27210560000, 01   -.13352858000, 03   -.15365888000, 03
+
+
+CV   ( 5) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .63672933000, 02   -.34995337000, 02
+    .37660910000, 01    .92223304000, 01   -.99072319000, 02    .11363029000, 03   -.95378023000, 02
+
+
+CV   ( 6) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .28003140000, 03
+    .20355034000, 02   -.20283799000, 02   -.87071510000, 01   -.39387620000, 03    .17705090000, 03
+
+
+CV   ( 7) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .27186269000, 03   -.27671069000, 02    .10498020000, 02   -.28098035000, 03   -.36279196000, 03
+
+
+CV   ( 8) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .74839240000, 03   -.21354969000, 02    .70044378000, 03   -.12725703000, 03
+
+
+CV   ( 9) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .77518783000, 03    .23615169000, 03    .63315495000, 03
+
+
+CV   (10) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .20653157000, 04    .11530218000, 03
+
+
+CV   (11) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .19946081000, 04
+
+
+CV   (12) =
+    .14079295000, 01    .32784568000, 01    .57103131000, 01    .98478246000, 01    .79795320000, 01    .16734138000, 02
+    .16488259000, 02    .27356761000, 02    .27842195000, 02    .45445744000, 02    .44661034000, 02
+
+
+VCV  ( 1) =
+    .56066441000,-06   -.16771765000,-07    .12016834000,-05   -.22693278000,-05   -.49748569000,-07   -.25351199000,-06
+   -.31860840000,-05    .34656436000,-05   -.66043415000,-07    .47271166000,-05    .41164371000,-05
+
+
+VCV  ( 2) =
+    .00000000000, 00    .30400457000,-05   -.16169725000,-06    .48737868000,-06    .72632062000,-06   -.52452716000,-05
+    .60641973000,-06    .13307359000,-05   -.79875919000,-05    .75081775000,-05   -.84365000000,-05
+
+
+VCV  ( 3) =
+    .00000000000, 00    .00000000000, 00    .92227624000,-05   -.97120248000,-05   -.17791489000,-06   -.12706537000,-05
+   -.15330971000,-04    .17049269000,-04   -.26189023000,-06    .21595544000,-04    .20942156000,-04
+
+
+VCV  ( 4) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .27429745000,-04    .67949065000,-06    .34910387000,-05
+    .15653684000,-04   -.33304310000,-04    .76962405000,-06   -.37767251000,-04   -.43460909000,-04
+
+
+VCV  ( 5) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .18009265000,-04   -.98980884000,-05
+    .10652019000,-05    .26084458000,-05   -.28021635000,-04    .32139215000,-04   -.26976740000,-04
+
+
+VCV  ( 6) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .79204139000,-04
+    .57572220000,-05   -.57370739000,-05   -.24627324000,-05   -.11140402000,-03    .50077113000,-04
+
+
+VCV  ( 7) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .76893700000,-04   -.78264909000,-05    .29692621000,-05   -.79472541000,-04   -.10261215000,-03
+
+
+VCV  ( 8) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .21167546000,-03   -.60400439000,-05    .19811366000,-03   -.35993405000,-04
+
+
+VCV  ( 9) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .21925428000,-03    .66793193000,-04    .17908167000,-03
+
+
+VCV  (10) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .58415432000,-03    .32612092000,-04
+
+
+VCV  (11) =
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .56415537000,-03
+
+
+VCV  (12) =
+    .74877526000,-03    .17435726000,-02    .30369000000,-02    .52373413000,-02    .42437324000,-02    .88996704000,-02
+    .87689052000,-02    .14549070000,-01    .14807237000,-01    .24169284000,-01    .23751954000,-01
+
+
+EP    =
+    .94481477000,-01    .70814687000,-01    .30811633000,-01    .10512005000,-01    .94616035000,-02    .86705762000,-02
+    .28740655000,-02    .15152546000,-02    .12514215000,-02    .12081566000,-02    .52258335000,-03
+
+
+A    ( 1) =
+    .99999500000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+A    ( 2) =
+    .18091427000, 00    .25351814000, 01    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+A    ( 3) =
+   -.11456249000,-01    .47547983000, 00    .35657072000, 01    .00000000000, 00    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+A    ( 4) =
+   -.51512617000, 00    .54781566000, 00   -.17716119000, 01    .72915218000, 01    .00000000000, 00    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+A    ( 5) =
+    .11601141000, 00   -.10299527000, 01    .72452555000, 00    .48722419000, 00    .54782807000, 01    .00000000000, 00
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+A    ( 6) =
+   -.11776283000, 00   -.71537430000, 00   -.74472034000, 00    .20419912000, 01    .48098507000, 00    .12268324000, 02
+    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+A    ( 7) =
+   -.50063003000, 00    .62880748000, 00   -.24045999000, 01    .24167570000, 00    .24954270000, 01   -.44240286000, 00
+    .11247907000, 02    .00000000000, 00    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+A    ( 8) =
+    .32234679000, 00   -.39832310000, 00    .16860255000, 01   -.35606157000, 01   -.20279340000, 01    .57521862000, 01
+    .23456721000, 01    .22192140000, 02    .00000000000, 00    .00000000000, 00    .00000000000, 00
+
+
+A    ( 9) =
+   -.27135492000, 00   -.91327396000, 00   -.13336863000, 01    .26991516000, 01   -.34108894000, 01   -.10926272000, 01
+    .64046102000, 01   -.21043290000, 01    .23555474000, 02    .00000000000, 00    .00000000000, 00
+
+
+A    (10) =
+    .34981017000, 00    .62306451000, 00    .15884627000, 01   -.27471804000, 01    .26259118000, 01   -.89065461000, 01
+   -.57305481000, 01    .15599810000, 02    .43980736000, 01    .45372355000, 02    .00000000000, 00
+
+
+A    (11) =
+    .32587539000, 00   -.66787069000, 00    .16578738000, 01   -.34405579000, 01   -.21355981000, 01    .39643260000, 01
+   -.81232322000, 01   -.28493973000, 01    .14176898000, 02    .25817176000, 01    .44661036000, 02
+
+
+GF    =
+    .10000050000, 01    .39444908000, 00    .28044927000, 00    .13714558000, 00    .18253902000, 00    .81510725000,-01
+    .88905426000,-01    .45060999000,-01    .42452977000,-01    .22039852000,-01    .22390882000,-01    .30084691000,-02
+
+
+Q     =
+    .10575557000, 01    .41148509000, 00   -.40942553000, 00    .18347938000, 00   -.30128957000,-01    .24904116000,-01
+    .49842252000,-01   -.14731233000,-01    .52071090000,-02   -.22533730000,-02   -.62792690000,-02    .14933475000, 01
+
+
+Q2    =
+    .11184240000, 01    .16931997000, 00    .16762926000, 00    .33664682000,-01    .90775404000,-03    .62021499000,-03
+    .24842500000,-02    .21700922000,-03    .27113984000,-04    .50776898000,-05    .39429219000,-04
+
+
+E     =
+    .37492350000, 00    .20560353000, 00    .37974270000,-01    .43095880000,-02    .34018340000,-02    .27816191000,-02
+    .29736910000,-03    .80359880000,-04    .53245896000,-04    .48168207000,-04    .87389880000,-05
+
+
+ENF   =
+    .10000050000, 01    .40085234000, 00    .28562298000, 00    .17750536000, 00    .21074417000, 00    .88491857000,-01
+    .14230965000, 00    .68284810000,-01    .84648748000,-01    .57770283000,-01    .46122049000,-01
diff --git a/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHLET.card b/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHLET.card
index 60ca799..8bb046d 100644
--- a/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHLET.card
+++ b/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHLET.card
@@ -1,20 +1,20 @@
 2COMMENT
-2% DIRICHLET PROBLEM FOR A BEAN-SHAPED REGION.  FROM P J DAVIS,
-2% *ORTHONORMALIZING CODES IN NUMERICAL ANALYSIS* IN J TODD, --SURVEY OF
-2% NUMERICAL ANLAYSIS--, MCGRAW-HILL, 1962,  P.347. P H KIMPEL 8/15/70
-2% MODIFICATION LOG..
-2% 92/03/17  P.KIMPEL, PARADIGM CORP, SAN DIEGO, CA  92117.
-2%   CONVERT FOR UNISYS A-SERIES MCP 3.8.4.
-2% 2014-11-15  P.KIMPEL
-2%   RETRO-CONVERT FROM UNISYS MCP ALGOL BACK TO BURROUGHS B5500 XALGOL.
-2% 2018-02-20  P.KIMPEL
-2%   RETRO-CONVERT FROM B5500 TO BURROUGHS 220 BALGOL OF FEB 1962.
+2  DIRICHLET PROBLEM FOR A BEAN-SHAPED REGION.  FROM P J DAVIS,
+2  *ORTHONORMALIZING CODES IN NUMERICAL ANALYSIS* IN J TODD, --SURVEY OF
+2  NUMERICAL ANLAYSIS--, MCGRAW-HILL, 1962,  P.347. P H KIMPEL 8/15/70
+2  MODIFICATION LOG..
+2  92/03/17  P.KIMPEL, PARADIGM CORP, SAN DIEGO, CA  92117.
+2    CONVERT FOR UNISYS A-SERIES MCP 3.8.4.
+2  2014-11-15  P.KIMPEL
+2    RETRO-CONVERT FROM UNISYS MCP ALGOL BACK TO BURROUGHS B5500 XALGOL.
+2  2018-02-20  P.KIMPEL
+2    RETRO-CONVERT FROM B5500 TO BURROUGHS 220 BALGOL OF FEB 1962.
 2;
 2
 2FORMAT F1 (B30,I3,2X10.3,4X10.5,W),
-2       F2 (B40,*X*,B9,*Y*,B9,*W*,B8,*BV*,B7,*CBV,*,B7,*DEV*,W3,W);
+2       F2 (B40,*X*,B9,*Y*,B9,*W*,B8,*BV*,B7,*CBV*,B7,*DEV*,W3,W);
 2INTEGER I, J, N, M, P;
-2REAL SUM, GMDT, VG;
+2REAL SUM, GMDT;
 2
 2
 2REAL    X, Y, W, CBV, BV, Z, ORTHV, DEV, COF, STD, CV, VCV,
@@ -24,9 +24,9 @@
 2  Y(43),
 2  W(43),
 2  CBV(43),
-2  BV(43+11),
+2  BV(1, 43+11),
 2  Z(11, 43+11),
-2  ORTHV(11, 43+11),
+2  ORTHV(11+1, 43+11),
 2  DEV(1, 43),
 2  COF(1, 11),
 2  STD(1),
@@ -121,7 +121,7 @@
 2                 EITHER IF (FN - FI) GTR 0.0; BEGIN
 2                 EITHER IF E(R1,I) LSS 0.0;
 2                 BEGIN EP(R1,I) = -SQRT(ABS(E(R1,I))/(FN - FI));
-2                 GO TO BOX8D;    END
+2                 GO TO BOX8D;    END;
 2                 OTHERWISE;  EP(R1,I) = SQRT(E(R1,I)/(FN - FI));
 2                 GO TO BOX8D;  END;  OTHERWISE;  E(R1,I) = -1.0;
 2BOX8D..          FI = FI + 1.0;   END;   GO TO BOX8A;
@@ -180,65 +180,65 @@
 2FINAL.. RETURN END  ORTHO();
 2
 2
-2PROCEDURE G (I, X, Y; V);
+2PROCEDURE G (I, X, Y);
 2  BEGIN
-2  REAL X, Y, V;   INTEGER I;
+2  REAL X, Y, G;   INTEGER I;
 2  SWITCH I, (G1, G2, G3, G4, G5, G6, G7, G8, G9, G10,
 2             G11, G12, G13, G14, G15, G16, G17);
-2      V = 0;
+2      G() = 0;
 2      RETURN;
 2  G1..
-2      V = 1;
+2      G() = 1;
 2      RETURN;
 2  G2..
-2      V = X;
+2      G() = X;
 2      RETURN;
 2  G3..
-2      V = Y;
+2      G() = Y;
 2      RETURN;
 2  G4..
-2      V = X*2 - Y*2;
+2      G() = X*2 - Y*2;
 2      RETURN;
 2  G5..
-2      V = 2.0 . X . Y;
+2      G() = 2.0 . X . Y;
 2      RETURN;
 2  G6..
-2      V = X*3 - 3.0 . X . Y*2;
+2      G() = X*3 - 3.0 . X . Y*2;
 2      RETURN;
 2  G7..
-2      V = 3.0 . X*2 . Y - Y*3;
+2      G() = 3.0 . X*2 . Y - Y*3;
 2      RETURN;
 2  G8..
-2      V = X*4 + Y*4 - 6.0 . X*2 . Y*2;
+2      G() = X*4 + Y*4 - 6.0 . X*2 . Y*2;
 2      RETURN;
 2  G9..
-2      V = 4.0 . X*3 . Y - 4.0 . X . Y*3;
+2      G() = 4.0 . X*3 . Y - 4.0 . X . Y*3;
 2      RETURN;
 2  G10..
-2      V = X*5 - 10.0 . X*3 . Y*2 + 5.0 . X . Y*4;
+2      G() = X*5 - 10.0 . X*3 . Y*2 + 5.0 . X . Y*4;
 2      RETURN;
 2  G11..
-2      V = Y*5 - 10.0 . Y*3 . X*2 + 5.0 . Y . X*4;
+2      G() = Y*5 - 10.0 . Y*3 . X*2 + 5.0 . Y . X*4;
 2      RETURN;
 2  G12..
-2      V = X*6 - 15.0 . X*4 . Y*2 + 15.0 . X*2 . Y*4 - Y*6;
+2      G() = X*6 - 15.0 . X*4 . Y*2 + 15.0 . X*2 . Y*4 - Y*6;
 2      RETURN;
 2  G13..
-2      V = 6.0 . X*5 . Y + 6.0 . X . Y*5 - 20.0 . X*3 . Y*3;
+2      G() = 6.0 . X*5 . Y + 6.0 . X . Y*5 - 20.0 . X*3 . Y*3;
 2      RETURN;
 2  G14..
-2      V = X*7 - 21.0 .X*5 . Y*2 + 35.0 . X*3 . Y*4  - 7.0 . X . Y*6;           Y*6 WAS ON SEPARATE LINE
+2      G() = X*7 - 21.0 .X*5 . Y*2 + 35.0 . X*3 . Y*4  - 7.0 . X . Y*6;           Y*6 WAS ON SEPARATE LINE
 2      RETURN;
 2  G15..
-2      V = 7.0 . X*6 . Y - 35.0 . X*4 . Y*3 + 21.0 . X*2 . Y*5 -
+2      G() = 7.0 . X*6 . Y - 35.0 . X*4 . Y*3 + 21.0 . X*2 . Y*5 -
 2      Y*7;
 2      RETURN;
 2  G16..
-2      V = X*8 + Y*8 - 28.0 . X*6 . Y*2 + 70.0 . X*4 . Y*4 - 28.0
+2      G() = X*8 + Y*8 - 28.0 . X*6 . Y*2 + 70.0 . X*4 . Y*4 - 28.0
 2              . X*2 . Y*6;
 2      RETURN;
 2  G17..
-2      V = 8.0 . X*7 . Y - 56.0 . X*5 . Y*3 + 56.0 . X*3 . Y*5
+2      G() = 8.0 . X*7 . Y - 56.0 . X*5 . Y*3 + 56.0 . X*3 . Y*5
 2              - 8.0 . X . Y*7;
 2      RETURN;
 2  END G();
@@ -249,29 +249,24 @@
 2M = 11;
 2P = 11;
 2FOR I = (1, 1, N);
-2  BEGIN
+2    BEGIN
 2    READ (;; XYWIN);
 2    INPUT XYWIN (X(I), Y(I), W(I));
 2    BV(1,I) = EXP(X(I)) . COS(Y(I)) + LOG((1 - Y(I))*2 + X(I)*2);
-2    FOR J = (1, 1, M1);
-2        BEGIN
-2        G (J+1, X(I), Y(I); VG);
-2        Z(J,I) = VG;
-2        END;
-2  END;
+2    FOR J = (1, 1, M);
+2        Z(J,I) = G (J, X(I), Y(I));
+2    END;
 2
-2ORTHO (W, BV, Z, N , N , M , P,  1, 2, 1, 2, 1; ORTHV, DEV, COF, STD,
-2          CV, VCV, GMDT, Q, Q2, E, EP, A, GF, ENF);
+2ORTHO (W(), BV(,), Z(,), N , FLOAT(N) , M , P,  1, 2, 1, 2, 1;
+2       ORTHV(,), DEV(,), COF(,), STD(), CV(,), VCV(,,),
+2       GMDT, Q(,), Q2(,), E(,), EP(,), A(,), GF(), ENF());
 2
 2FOR I = (1, 1, N);
-2  BEGIN  SUM = 0;
+2    BEGIN  SUM = 0;
 2    FOR J = (1, 1, M);
-2      BEGIN
-2      G(J+1, X(I), Y(I); VG);
-2      SUM = SUM + COF(1,J).VG;
-2      END;
+2      SUM = SUM + COF(1,J) . G (J, X(I), Y(I));
 2    CBV(I) = SUM;
-2  END;
+2    END;
 2WRITE (;; F2);
 2WRITE (;; RESULTS, F1);
 2OUTPUT RESULTS (FOR I = (1, 1, N); (I,X(I),Y(I),W(I), BV(1,I),
@@ -280,7 +275,7 @@
 2PROCEDURE DMMP (NAME, ROW(), RN, SZ);
 2    BEGIN
 2    INTEGER
-2      NAME, SZ;
+2      NAME, RN, SZ;
 2    INTEGER
 2      I;
 2    FORMAT
@@ -289,46 +284,47 @@
 2      F3 (6F20.11,W);
 2    OUTPUT
 2      D1OUT (NAME),
-2      S2OUT (NAME, RN),
+2      D2OUT (NAME, RN),
 2      ROWOUT (FOR I = (1, 1, SZ); ROW(I));
 2
-2    EITHER IF SZ GTR 0;
+2    EITHER IF RN GTR 0;
 2      WRITE (;; D2OUT, F2);
 2    OTHERWISE;
 2      WRITE (;; D1OUT, F1);
 2
 2    WRITE (;; ROWOUT, F3);
+2    RETURN;
 2    END DMMP();
 2
-2DMMP (@X    @, X, 0, N);
-2DMMP (@Y    @, Y, 0, N);
-2DMMP (@W    @, W, 0, N);
-2DMMP (@CBV  @, CBV, 0, N);
-2DMMP (@BV   @, BV(1,), 0, N+P);
+2DMMP (6700000000, X(), 0, N);
+2DMMP (6800000000, Y(), 0, N);
+2DMMP (6600000000, W(), 0, N);
+2DMMP (4342650000, CBV(), 0, N);
+2DMMP (4265000000, BV(1,), 0, N+P);
 2FOR I = (1, 1, M);
-2    DMMP (@Z    @, Z(I,), I, N+P);
+2    DMMP (6900000000, Z(I,), I, N+P);
 2
+2FOR I = (1, 1, M+1);
+2    DMMP (5659634865, ORTHV(I,), I, N+P);
+2
+2DMMP (4445650000, DEV(1,), 0, N);
+2DMMP (4356460000, COF(1,), 0, P);
+2DMMP (6263440000, STD(), 0, 1);
+2FOR I = (1, 1, P+1);
+2    DMMP (4365000000, CV(I,), I, P);
+2
+2FOR I = (1, 1, P+1);
+2    DMMP (6543650000, VCV(1,I,), I, P);
+2
+2DMMP (4557000000, EP(1,), 0, M);
 2FOR I = (1, 1, M);
-2    DMMP (@ORTHV@, ORTHV(I,), I, N+P);
+2    DMMP (4100000000, A(I,), I, P);
 2
-2DMMP (@DEV  @, DEV(1,), 0, N);
-2DMMP (@COF  @, COF(1,), 0, P);
-2DMMP (@STD  @, STD, 0, 1);
-2FOR I = (1, 1, P);
-2    DMMP (@CV   @, CV(I,), I, P);
-2
-2FOR I = (1, 1, P);
-2    DMMP (@VCV  @, VCV(1,I,), I, P);
-2
-2DMMP (@EP   @, EP(1,), M);
-2FOR I = (1, 1, M);
-2    DMMP (@A    @, A(I,), I, P);
-2
-2DMMP (@GF   @, GF, 0, M+1);
-2DMMP (@Q    @, Q(1,), 0, M+1);
-2DMMP (@Q2   @, Q2(1,), 0, M);
-2DMMP (@E    @, E(1,), 0, M);
-2DMMP (@ENF  @, ENF, 0, M);
+2DMMP (4746000000, GF(), 0, M+1);
+2DMMP (5800000000, Q(1,), 0, M+1);
+2DMMP (5882000000, Q2(1,), 0, M);
+2DMMP (4500000000, E(1,), 0, M);
+2DMMP (4555460000, ENF(), 0, M);
 2FINISH;
 5  0.000  0.110  0.01414
 5 -0.050  0.108  0.01427
diff --git a/software/BALGOL/BALGOL-Examples/README.txt b/software/BALGOL/BALGOL-Examples/README.txt
index 0b4ae4a..7de8e2e 100644
--- a/software/BALGOL/BALGOL-Examples/README.txt
+++ b/software/BALGOL/BALGOL-Examples/README.txt
@@ -11,9 +11,6 @@ and purpose of each file:
                 emulator will internally truncate longer lines to 80
                 characters and pad shorter lines out to a length of 80.
 
-    .pt         paper-tape file in the format used by the retro-220
-                emulator.
-
     .lst        printer output listing of assembly or program run.
                 Lines may be preceded by a form-feed (ASCII hex 0C) to
                 indicate a skip to top-of-page. Generally, files with a
@@ -28,6 +25,12 @@ and purpose of each file:
                 instruction into the C register of the processor (e.g.,
                 1000 60 0000 for input unit 1) to load the program.
 
+    .tape       Magnetic tape image file in the format used by the
+                retro-220 emulator
+
+    .pt         paper-tape file in the format used by the retro-220
+                emulator.
+
 Unless otherwise specified, all files are in standard Windows text
 format, with carriage-return/line-feed delimiters.
 
@@ -94,6 +97,56 @@ Reference-Manual/
         program, you will need to use a compiler and emulator configured
         for at least 8000 words of memory.
 
+DIRICHLET
+    Program for computing the solution to a Dirichlet problem for a
+    bean-shaped region. Reference to the article from which the program
+    was developed is cited in the source file. I originally wrote this
+    program in 1970 in Burroughs B5500 XALGOL as part of a senior thesis
+    project. It was later translated to B6500 Algol and modern Unisys
+    MCP ("E-mode") Algol. This is a modest number-cruncher, so it seemed
+    like a good test for BALGOL.
+
+    The BALGOL version was created from the B5500 version. Several
+    changes had to be made, primarily in changing arrays from lower-
+    bounds of zero to one, accommodating BALGOL's lack of support for
+    dynamically-sized arrays, differences in IF-THEN-ELSE and SWITCH
+    constructs, and the somewhat different syntax for formatted I/O.
+
+    The program requires a 220 with at least 7000 words of memory and a
+    BALGOL compiler configured for the system's memory size. It compiles
+    on the retro-220 emulator in a little less than six minutes (when
+    generating a program listing) and runs for 172 seconds before
+    starting to output results. The B5500 (as the retro- b5500 emulator)
+    generates results in about six seconds. Performance on the modern E-
+    mode systems varies widely by model, but on the oldest, slowest
+    system I have available (300 RPM, about 12 Gartner MIPS), the
+    equivalent time is 0.25 second.
+
+    DIRICHLET.card
+        Source card deck for the 220 BALGOL version of the program,
+        including data cards at the end.
+
+    DIRICHLET-OUTPUT.lst
+        Listing of compilation and results produced by the card deck
+        above.
+
+    DIRICHLET-OUTPUT.lst
+        Another listing of compilation and results produced by the card
+        deck above. This listing includes the code generated by the
+        compiler.
+
+    DIRICHLET-Object.tape
+        Magnetic tape image of the code generated by the compiler.
+
+    DIRICHLET-B5500-OUTPUT.lst
+        Listing of the B5500 version of the program, including results.
+
+    DIRICHLET-Emode-OUTPUT.lst
+        Listing of the Unisys MCP version of the program, including
+        results from a run on a 300 RPM LX100 VM system running MCP
+        10.1.
+
+
 U.Dayton-Program/
     Source for two short BALGOL programs submitted to Burroughs by the
     University of Dayton in 1963 to report a compiler issue. Includes a
@@ -107,6 +160,12 @@ U.Dayton-Program/
 
 Paul Kimpel
 February 2018
+    Original creation.
+2018-06-10  Paul Kimpel
+    Finalize DIRICHLET program and tests.
+
+
+
 
 
 
diff --git a/software/BALGOL/BALGOL-Main/BALGOL-Main.baca b/software/BALGOL/BALGOL-Main/BALGOL-Main.baca
index 7e2489d..009dff9 100644
--- a/software/BALGOL/BALGOL-Main/BALGOL-Main.baca
+++ b/software/BALGOL/BALGOL-Main/BALGOL-Main.baca
@@ -1824,7 +1824,7 @@
 018 31 0     1726   INS   LDB   INSX          INSERT RA(67) INTO ASSOCIATIVE MEMORY
 018 32 0     1727         DLB - 9998,44,0      LOCATION PRECEDING (RB)
 018 33 0     1728   INS1  STB   A+,04
-018 34 0     1729         LDR   AVAIL         MORMALLY THIS MEANS ON TOP OF THE
+018 34 0     1729         LDR   AVAIL         NORMALLY THIS MEANS ON TOP OF THE
 018 35 0     1730         BFR   B+,04,00      STACK NAMED BY THE B REGISTER OR
 018 36 0     1731   *C    LDR - 0             BY THE 44-FIELD OF THE STP
 018 37 0     1732         LDB   AVAIL
diff --git a/software/BALGOL/BALGOL-Main/BALGOL-Main.card b/software/BALGOL/BALGOL-Main/BALGOL-Main.card
index 1d29d2b..e37ec12 100644
--- a/software/BALGOL/BALGOL-Main/BALGOL-Main.card
+++ b/software/BALGOL/BALGOL-Main/BALGOL-Main.card
@@ -1824,7 +1824,7 @@
 1   INS   LDB   INSX          INSERT RA(67) INTO ASSOCIATIVE MEMORY     018 31 0
 1         DLB - 9998,44,0      LOCATION PRECEDING (RB)                  018 32 0
 1   INS1  STB   A+,04                                                   018 33 0
-1         LDR   AVAIL         MORMALLY THIS MEANS ON TOP OF THE         018 34 0
+1         LDR   AVAIL         NORMALLY THIS MEANS ON TOP OF THE         018 34 0
 1         BFR   B+,04,00      STACK NAMED BY THE B REGISTER OR          018 35 0
 1   *C    LDR - 0             BY THE 44-FIELD OF THE STP                018 36 0
 1         LDB   AVAIL                                                   018 37 0
diff --git a/software/tools/BAC-Assembler.html b/software/tools/BAC-Assembler.html
index e798a6c..5b1bc2c 100644
--- a/software/tools/BAC-Assembler.html
+++ b/software/tools/BAC-Assembler.html
@@ -31,7 +31,7 @@
 * and their starting memory location may be pre-loaded into the assembler
 * before loading the source code.
 *
-* Output is a simulated line printer listing in the <iframe> of the web
+* Output is a simulated line printer listing in a text panel of the web
 * page from which the assembler is run. The output of Pass 1 is designed
 * to match the listing from which the compiler was transcribed, so that
 * it may be compared for proofing purposes. This listing is suppressed by
diff --git a/software/tools/BALGOL-DumpAnalyzer.html b/software/tools/BALGOL-DumpAnalyzer.html
new file mode 100644
index 0000000..8b412c5
--- /dev/null
+++ b/software/tools/BALGOL-DumpAnalyzer.html
@@ -0,0 +1,975 @@
+<!DOCTYPE html>
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+<title>BALGOL-DumpAnalyzer</title>
+<!--
+/***********************************************************************
+* 220/software/tools BALGOL-DumpAnalyzer.html
+************************************************************************
+* Copyright (c) 2018, Paul Kimpel.
+* Licensed under the MIT License, see
+*       http://www.opensource.org/licenses/mit-license.php
+************************************************************************
+* Memory dump analyzer for the 220 BALGOL compiler. Reads the text file of
+* a "Meatball" memory dump and analyzes certain data structures for the
+* BALGOL compiler, writing the result of the analysis to a text panel on
+* the browser window.
+*
+************************************************************************
+* 2018-05-31  P.Kimpel
+*   Original version, cloned from retro-220 GEN-Assembler.html.
+***********************************************************************/
+-->
+<meta name="Author" content="Paul Kimpel">
+<meta http-equiv="Content-Script-Type" content="text/javascript">
+<meta http-equiv="Content-Style-Type" content="text/css">
+
+<style>
+HTML {
+    height:             100%}
+
+BODY {
+    position:           relative;
+    font-family:        Arial, Helvetica, sans-serif;
+    height:             100%;
+    margin:             1ex}
+
+DIV.heading {
+    margin-top:         12px;
+    margin-bottom:      6px;
+    font-weight:        bold}
+
+LABEL {
+    font-size:          smaller}
+
+#DumpReaderPanel {
+    position:           relative;
+    color:              white;
+    background-color:   #666;
+    width:              640px;
+    border:             1px solid black;
+    border-radius:      8px;
+    font-size:          smaller;
+    padding:            8px}
+
+#DumpReaderTable {
+    border-spacing:     0;
+    border-collapse:    collapse;
+    table-layout:       fixed;
+    width:              100%}
+#DumpReaderCol1 {
+    width:              18ex}
+#DumpReaderCol2 {
+    }
+#DumpReaderTable TD {
+    text-align:         left;
+    vertical-align:     top;
+    padding-top:        1px;
+    padding-bottom:     1px;
+    padding-left:       2px;
+    padding-right:      2px}
+
+#DumpFileSelector {
+    width:              100%;
+    border:             1px solid white}
+
+#OptionsTable {
+    position:           relative;
+    margin-top:         4px;
+    margin-bottom:      4px;
+    width:              640px}
+
+#TextDiv {
+    position:           relative;
+    height:             75%;
+    width:              640px}
+
+#TextPanel {
+    position:           absolute;
+    left:               0;
+    top:                0;
+    bottom:             8px;
+    width:              100%;
+    overflow:           scroll;
+    padding:            4px;
+    border:             1px solid black;
+    color:              black;
+    background-color:   white;
+    font-family:        DejaVu Sans Mono, Consolas, Courier, monospace;
+    font-size:          8pt;
+    font-weight:        normal}
+
+#Spinner {
+    position:           absolute;
+    top:                200px;
+    left:               200px;
+    z-index:            10}
+
+.center {
+    text-align:         center}
+.rj {
+    text-align:         right}
+</style>
+</head>
+
+<body>
+<div class=heading>
+    BALGOL Memory Dump Analyzer
+</div>
+
+<div id=DumpReaderPanel>
+    <table id=DumpReaderTable>
+    <colgroup><col id=DumpReaderCol1><col id=DumpReaderCol2></colgroup>
+    <tr><td>Load Dump &amp; Go
+        <td><input id=DumpFileSelector type=file size=90>
+    </table>
+</div>
+
+<table id=OptionsTable>
+<!--
+<thead>
+<tr>
+    <th><label for=Pass1ListCheck>List Pass 1</label>
+    <th><label for=Pass2ListCheck>List Pass 2</label>
+    <th><label for=ChecksumCheck>Write Checksum</label>
+    <th><label for=OutputModeSelect>Output Mode</label>
+    <th>&nbsp;
+-->
+<tbody>
+<tr>
+    <!--
+    <td class=center>
+        <input id=Pass1ListCheck type=checkbox value=1>
+    <td class=center>
+        <input id=Pass2ListCheck type=checkbox value=1 CHECKED>
+    <td class=center>
+        <input id=ChecksumCheck type=checkbox value=1>
+    <td class=center>
+        <select id=OutputModeSelect>
+             <option value=""        >No Object
+             <option value=L SELECTED>Loadable Deck
+             <option value=M         >BALGOL ML Deck
+             <option value=T         >Object Tape
+         </select>
+    -->
+    <td class=rj>
+        <button id=SelectListing type=button>Select Listing</button>
+</table>
+
+<div id=TextDiv><pre id=TextPanel></pre></div>  <!-- Don't add any whitespace! -->
+
+
+<script>
+"use strict";
+
+window.addEventListener("load", function() {
+
+    // Dump reader properties
+    var buffer = "";
+    var bufferLength = 0;
+    var bufferOffset = 0;
+    var sourceName = "?";
+
+    // Regular expressions
+    var eolRex = /([^\n\r\f]*)((:?\r[\n\f]?)|\n|\f)?/g;
+    var isNumericRex = /^[0-9]/;
+    var isAlphaRex = /^[A-Z]/;
+    var isLabelRex = /^[A-Z.0-9]/;
+    var labelRex = /^([0-9]+|[A-Z][0-9.A-Z]*)(\-[0-9]+)? +/;
+    var rTrimRex = /\s*$/;
+
+    var hashMod = 99;                   // compiler's hash modulus
+    var MM = new Float64Array(10000);   // main memory, 11-digit words
+    var SCRTB = 4116;                   // address of compiler's scramble table
+    var topAddr = 0;                    // top address in memory
+
+    var panel = $$("TextPanel");
+
+    var p10 = [     1,                  // powers of 10 table
+                   10,
+                  100,
+                 1000,
+                10000,
+               100000,
+              1000000,
+             10000000,
+            100000000,
+           1000000000,
+          10000000000,
+         100000000000,
+        1000000000000,
+       10000000000000,
+      100000000000000,
+     1000000000000000,
+    10000000000000000];
+
+    var xlateANSI220 = [ // translate ANSI to 220 internal character codes
+       // 00  01  02  03  04  05  06  07  08  09  0A  0B  0C  0D  0E  0F
+           0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  //  0-0F
+           0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  // 10-1F
+           0,  0,  0, 33, 13, 24, 10, 34, 24,  4, 14, 10, 23, 20,  3, 21,  // 20-2F
+          80, 81, 82, 83, 84, 85, 86, 87, 88, 89,  0, 13,  4, 33,  0,  0,  // 30-3F
+          34, 41, 42, 43, 44, 45, 46, 47, 48, 49, 51, 52, 53, 54, 55, 56,  // 40-4F
+          57, 58, 59, 62, 63, 64, 65, 66, 67, 68, 69,  0,  0,  0,  0,  0,  // 50-5F
+           0, 41, 42, 43, 44, 45, 46, 47, 48, 49, 51, 52, 53, 54, 55, 56,  // 60-6F
+          57, 58, 59, 62, 63, 64, 65, 66, 67, 68, 69,  0,  0,  0,  0,  0]; // 70-7F
+
+    var xlate220ANSI = [ // translate internal B220 code to ANSI (Algol glyphs)
+        // 00   01   02   03   04        05    06    07   08   09
+          " ", "?", "9", ".", ")",      "?",  "?",  "?", "?", "?",  // 00-09
+          "+", "?", "?", "$", "*",      "*",  "$",  "?", "?", "?",  // 10-19
+          "-", "/", "?", ",", "(",      "?",  ",",  "?", "?", "?",  // 20-29
+          "?", "?", "?", "=", "@",      "\\", "?",  "?", "?", "?",  // 30-39
+          "?", "A", "B", "C", "D",      "E",  "F",  "G", "H", "I",  // 40-49
+          "?", "J", "K", "L", "M",      "N",  "O",  "P", "Q", "R",  // 50-59
+          "?", "?", "S", "T", "U",      "V",  "W",  "X", "Y", "Z",  // 60-69
+          "?", "?", "?", "?", "?",      "?",  "?",  "?", "?", "?",  // 70-79
+          "0", "1", "2", "3", "4",      "5",  "6",  "7", "8", "9",  // 80-89
+          "?", "?", "?", "?", "?",      "?",  "?",  "?", "?", "?"]; // 90-99
+
+    var signValues = {                  // numeric values of sign column
+        " ": 0,
+        "+": 0,
+        "0": 0,
+        "-": 1,
+        "1": 1,
+        "2": 2,
+        "3": 3,
+        "4": 4,
+        "5": 5,
+        "6": 6,
+        "7": 7,
+        "8": 8,
+        "9": 9};
+
+    var symbolType = [
+        "Undetermined",                 // 0
+        "Variable",                     // 1
+        "Literal?",                     // 2
+        "Intrinsic?",                   // 3
+        "Library Routine",              // 4
+        "Array",                        // 5
+        "Symbol#6",                     // 6
+        "Reserved Word",                // 7
+        "Procedure",                    // 8
+        "Label"];                       // 9
+
+    var variableType = [
+        "Real",                         // 0
+        "Integer",                      // 1
+        "Type#2",                       // 2
+        "Untyped?",                     // 3
+        "Generic?",                     // 4
+        "Type#5",                       // 5
+        "Type#6",                       // 6
+        "Type#7",                       // 7
+        "Type#8",                       // 8
+        "Type#9"];                      // 9
+
+    var stackHeads = {
+        AVAIL:   {addr: 273, title: "FREED-UP LOCATIONS"},
+        FUNS:    {addr: 274, title: "CONTROL OF PROCEDURE,FUNCTION CALLS"},
+        OP:      {addr: 275, title: "OPERATORS WAITING TO BE USED"},
+        ARAS:    {addr: 276, title: "INCREMENT WORDS FOR ARRAY"},
+        DIMS:    {addr: 277, title: "ARRAY DIMENSIONS"},
+        EXEC:    {addr: 278, title: "FORWARD REFERENCES TO FOR LOOP"},
+        FV:      {addr: 279, title: "FOR VARIABLE"},
+        MULS:    {addr: 280, title: "DIMENSIONS"},
+        MODE:    {addr: 281, title: "MODE TRANSLATOR IS IN (INITIALLY NORMAL)"},
+        MULT:    {addr: 282, title: "MULS STACK BACKWARDS"},
+        OPRND:   {addr: 283, title: "OPERANDS WAITING TO BE USED"},
+        PAREF:   {addr: 284, title: "REFERENCE TO PROCEDURE PARAMETERS"},
+        PR1:     {addr: 285, title: "PREFIXES OUTSIDE OF PROCEDURES"},
+        PR3:     {addr: 286, title: "CURRENT PREFIXES"},
+        RV:      {addr: 287, title: "FOR VARIABLE (BACKWARDS)"},
+        SAVET:   {addr: 288, title: "TEMP STORAGE CELLS SAVED"},
+        SETUP:   {addr: 289, title: "REFERENCE TO A PROCEDURE PARAMETER"},
+        TEMPS:   {addr: 290, title: "TEMP STORAGE CELLS AVAILABLE"},
+        XVP:     {addr: 291, title: "ARRAYS IN MULTIPLE INDEXING"},
+        DUMBS:   {addr: 292, title: "LEVELS WHERE DUMP CARD APPEARS"}};
+
+
+
+    /*******************************************************************
+    * Miscellaneous Utilities                                          *
+    *******************************************************************/
+
+    /**************************************/
+    function $$(id) {
+        return document.getElementById(id);
+    }
+
+    /**************************************/
+    function padTo(s, len) {
+        /* Pads the string "s" on the right with spaces or truncates it as
+        necessary to a length of "len" */
+        var result = s;
+
+        if (result.length > len) {
+            result = result.substring(0, len);
+        } else {
+            while (result.length-len > 8) {
+                result += "        ";
+            }
+
+            while (result.length < len) {
+                result += " ";
+            }
+        }
+
+        return result;
+    }
+
+    /**************************************/
+    function padLeft(s, len, fill) {
+        /* Pads the string "s" on the left to length "len" with the filler character
+        "fill". If fill is empty or missing, space is used. If the initial string is
+        longer than "len", it is truncated on the left to that length */
+        var pad = (fill || " ").charAt(0);
+        var result = s.toString();
+        var rLen = result.length;
+
+        if (rLen > len) {
+            result = result.substring(rLen-len);
+        } else {
+            while (rLen < len) {
+                result = pad + result;
+                ++rLen;
+            }
+        }
+
+        return result;
+    }
+
+    /**************************************/
+    function padRight(s, len, fill) {
+        /* Pads the string "s" on the right to length "len" with the filler character
+        "fill". If fill is empty or missing, space is used. If the initial string is
+        longer than "len", it is truncated on the right to that length */
+        var pad = (fill || " ").charAt(0);
+        var result = s.toString();
+        var rLen = s.length;
+
+        if (rLen > len) {
+            result = result.substring(0, len);
+        } else {
+            while (rLen < len) {
+                result = result + pad;
+                ++rLen;
+            }
+        }
+
+        return result;
+    }
+
+    /**************************************/
+    function rTrim(s) {
+        /* Returns the string "s" stripped of any trailing whitespace */
+        var x = s.search(rTrimRex);
+
+        if (x < 0 ) {
+            return s;
+        } else if (x < 1) {
+            return "";
+        } else {
+            return s.substring(0, x);
+        }
+    }
+
+    /**************************************/
+    function tensComp(value) {
+        /* If "value" is algebraically negative, returns its 11-digit tens
+        complement. Otherwise returns the 11-digit value */
+
+        if (value < 0) {
+            return p10[11] + value%p10[11];
+        } else {
+            return value%p10[11];
+        }
+    }
+
+    /**************************************/
+    function getSign(word) {
+        /* Extracts the sign digit from a word value and returns it */
+
+        return ((word - word%p10[10])/p10[10])%10;
+    }
+
+    /**************************************/
+    function applySign(word, sign) {
+        /* Applies an unsigned "sign" digit to a 220 "word" value. If the word
+        value is algebraically negative, it is first converted to a 10-digit
+        number with a 220 sign in the 11-th high-order digit. The low-order bit
+        of "sign" and the low-order bit of the word's sign digit are XOR-ed so
+        that each of those bits designates negation. Returns the new value as an
+        11-digit unsigned 220 word in binary */
+        var s = 0;
+        var value = 0;
+
+        if (word < 0) {
+            value = (-word)%p10[10];
+            s = 1;
+        } else {
+            value = word%p10[10];
+            s = (word%p10[11] - value)/p10[10];
+        }
+
+        return (sign%10 ^ s)*p10[10] + value;
+    }
+
+    /**************************************/
+    function getField(word, sL) {
+        /* Extracts an n-digit value from an 11-digit "word" and returns it.
+        "sL" is the same as for putField(). The word is a Javascript Number
+        object, but is treated as if it represents an 11-digit decimal integer */
+        var L = sL%10;
+        var s = (sL%100 - L)/10;
+        var result = applySign(word, 0);
+
+        s = (s == 0 ? 0 : 10-s);
+        L = (L == 0 ? 10 : L);
+
+        if (sL < 0 || sL > 99 || s+L > 11) {
+            result = -1;
+        } else {
+            result = (result%p10[s+L] - result%p10[s])/p10[s];
+        }
+
+        return result;
+    }
+
+    /**************************************/
+    function putField(word, value, sL) {
+        /* Inserts an n-digit "value" into designated digits of an 11-digit
+        "word". "sL" is the partial-word field in standard 220 start-Length
+        notation. Note that Javascript flags literal integers of the form "0n"
+        as the old C-style octal literal notation is deprecated. This routine
+        uses only the two low-order digits of "sL", however, so you can pass sL
+        literal values like 104 (or even 57321604) for /04 without ill effect.
+        The "value" and "word" are Javascript Number objects, but are treated as
+        if they represent 11-digit decimal integers. If value is negative, it is
+        converted to its 10s-complement value before insertion into word.
+        Returns a new word with the inserted field */
+        var L = sL%10;
+        var s = (sL%100 - L)/10;
+        var upperPart = 0;
+        var lowerPart = 0;
+        var result = applySign(word, 0);
+
+        s = (s == 0 ? 0 : 10-s);
+        L = (L == 0 ? 10 : L);
+
+        if (sL < 0 || s+L > 11) {
+            printError("INVALID /SL VALUE: ", sL);
+        } else {
+            upperPart = result%p10[11] - result%p10[s+L];
+            if (s > 0) {
+                lowerPart = result%p10[s];
+            }
+
+            result = (tensComp(value)%p10[L])*p10[s] + upperPart + lowerPart;
+        }
+
+        return result;
+    }
+
+
+    /*******************************************************************
+    * Memory Dump Input Module                                         *
+    *******************************************************************/
+
+    /**************************************/
+    function readALine() {
+        /* Reads one line image from the buffer. Returns the text of the line,
+        or null if the buffer is exhausted */
+        var bx = bufferOffset;          // current buffer offset
+        var line;                       // line image, padded/truncated to 80 columns
+        var match;                      // regular expression match result
+
+        if (bx >= bufferLength) {
+            return null;
+        } else {
+            eolRex.lastIndex = bx;
+            match = eolRex.exec(buffer);
+            if (!match) {
+                line = "";
+            } else {
+                bx += match[0].length;
+                line = match[1];
+            }
+
+            bufferOffset = bx;
+            return line;
+        }
+    }
+
+
+    /*******************************************************************
+    * Output Listing Interface                                         *
+    *******************************************************************/
+
+    /**************************************/
+    function clearPanel() {
+        /* Clears the text panel */
+        var kid;
+
+        while (kid = panel.firstChild) {
+            panel.removeChild(kid);
+        }
+    }
+
+    /**************************************/
+    function xlate220Word(word) {
+        /* Translate 10 digits in a 220 word to five ANSI characters */
+        var chars = "";                 // translated characters
+        var code = 0;                   // current 220 character code
+        var count = 5;                  // chars/word
+
+        while (count > 0) {
+            code = word%100;
+            chars = xlate220ANSI[code] + chars;
+            word = (word - code)/100;
+            --count;
+        }
+
+        return chars;
+    }
+
+    /**************************************/
+    function printLine(text) {
+        /* Appends "text"+NL as a new text node to the panel DOM element */
+        var e = document.createTextNode(rTrim(text) + "\n");
+
+        panel.appendChild(e);
+        panel.scrollTop += 30
+    }
+
+    /**************************************/
+    function formatWord(word) {
+        /* Formats the digits in a word and returns the resulting string */
+
+        return ((word - word%p10[10])/p10[10]).toString() + " " +
+               padLeft((word%p10[10] - word%p10[ 6])/p10[ 6], 4, "0") + " " +
+               padLeft((word%p10[ 6] - word%p10[ 4])/p10[ 4], 2, "0") + " " +
+               padLeft((word%p10[ 4]), 4, "0");
+    }
+
+    /**************************************/
+    function parseInteger(text, token) {
+        /* Parses a decimal number up to 11 digits in length starting at the
+        current offset in "text". Returns the 11-digit decimal string in
+        token.text and the arithmetic value as the function result */
+        var c = "";                     // current parse character
+        var length = text.length;       // length of operand string
+        var raw = "";                   // raw parsed token text
+        var result = 0;                 // arithmetic result (binary)
+        var x = token.offset;           // current offset into operand string
+
+        token.type = tokInteger;
+        while (x < length) {
+            c = text.charAt(x);
+            if (isNumericRex.test(c)) {
+                ++x;
+                raw += c;
+            } else {
+                break; // out of while loop
+            }
+        }
+
+        token.newOffset = x;
+        if (raw.length > 11) {
+            printError("NUMERIC LITERAL LONGER THAN 11 DIGITS: " + raw);
+            raw = raw.substring(raw.length-11);
+        }
+
+        token.word = result = parseInt(raw, 10);
+        token.text = padLeft(result, 11, "0");
+        token.value = result;
+        return result;
+    }
+
+
+    /*******************************************************************
+    * Analysis Routines                                                *
+    *******************************************************************/
+
+    /**************************************/
+    function memDump(start, count) {
+        /* Formats the words in a specified region of the memory array MM */
+        var addr = start;
+        var left = 0;
+        var line = "";
+        var word = 0;
+        var x = 0;
+
+        while (count > 0) {
+            line = padLeft(addr, 4, "0");
+            left = Math.max(count, 5);
+            for (x=0; x<left; ++x) {
+                word = MM[addr+x];
+                line += "  " + getSign(word) + " " + padLeft(word, 10, "0");
+            }
+
+            printLine(line);
+            addr += 5;
+            count -= left;
+        }
+    }
+
+    /**************************************/
+    function dumpSymbolTable__ORIG() {
+        /* Analyzes and formats the compiler's symbol table */
+        var addr = 0;
+        var count = hashMod;
+        var hash = 0;
+        var len = 0;
+        var line = "";
+        var symLink = 0;
+        var word = 0;
+        var x = 0;
+
+        printLine("\nSymbol Table:\n");
+        while (hash < hashMod) {
+            addr = SCRTB + hash;
+            printLine("\nHash " + padLeft(hash, 2, "0"));
+            word = MM[addr];
+            if (word) {
+                do {
+                    len = getField(word, 22);
+                    line = "     " + padLeft(addr, 4, "0") + ": " + formatWord(word) + " -> ";
+                    symLink = getField(word, 64);
+                    addr = getField(word, 4);
+
+                    word = MM[symLink];
+                    line += padLeft(symLink, 4, "0") + ": " + formatWord(word) + "  \"";
+                    count = len;
+                    x = 1;
+                    while (count > 10) {
+                        line += xlate220Word(MM[symLink+x]);
+                        count -= 10;
+                        ++x;
+                    } // while count
+
+                    line += xlate220Word(MM[symLink+x]).substring(0, count/2) + "\"";
+                    printLine(line);
+
+                    // Classify symbol
+                    x = getField(word, 11);
+                    line = padRight("", 16) + symbolType[x] + " @" + padLeft(getField(word, 64), 4, "0");
+                    switch (x) {
+                    case 1:             // variable
+                        line += ", " + variableType[getField(word, 21)];
+                        break;
+                    case 3:             // intrinsic
+                        line += ", " + variableType[getField(word, 21)];
+                        break;
+                    case 5:             // array
+                        line += ", " + variableType[getField(word, 21)];
+                        break;
+                    case 8:             // procedure/function
+                        line += ", " + variableType[getField(word, 21)] + ", Level=" + getField(word, 1);
+                        if (getSign(word) == 8) {
+                            line += ", External";
+                        }
+                        break;
+                    } // switch
+
+                    printLine(line);
+                    word = MM[addr];
+                } while (addr);
+            }
+
+            ++hash;
+        } // while hash
+    }
+
+    /**************************************/
+    function dumpSymbolTable() {
+        /* Analyzes and formats the compiler's symbol table */
+        var addr = 0;
+        var hash = 0;
+        var len = 0;
+        var line = "";
+        var sym = [];
+        var symLink = 0;
+        var symType = 0;
+        var word = 0;
+        var x = 0;
+
+        function compare(a, b) {
+            return (a.id < b.id ? -1 :
+                    a.id > b.id ? 1 :
+                    a.addr < b.addr ? -1 : 1);
+        }
+
+        printLine("\nSymbol Table:\n");
+        for (hash=0; hash<hashMod; ++hash) {
+            addr = SCRTB + hash;
+            word = MM[addr];
+            if (word) {
+                do {
+                    // Translate the symbol ID to ASCII
+                    symLink = getField(word, 64);
+                    len = getField(word, 22);
+                    line = "";
+                    x = 1;
+                    while (len > 10) {
+                        line += xlate220Word(MM[symLink+x]);
+                        len -= 10;
+                        ++x;
+                    } // while len
+
+                    line += xlate220Word(MM[symLink+x]).substring(0, len/2);
+
+                    // Push the entry into the table for sorting
+                    sym.push({hash: hash, addr: addr, id: line});
+                    addr = getField(word, 4);
+                    word = MM[addr];
+                } while (addr);
+            }
+        } // while hash
+
+        sym.sort(compare);
+
+        for (x=0; x<sym.length; ++x) {
+            printLine(sym[x].id);
+            addr = sym[x].addr;
+            word = MM[addr];
+            line = "    " + padLeft(sym[x].hash, 2, "0") + "  " + padLeft(addr, 4, "0") + ": " + formatWord(word) + " -> ";
+            addr = getField(word, 4);
+            symLink = getField(word, 64);
+            word = MM[symLink];
+            line += padLeft(symLink, 4, "0") + ": " + formatWord(word) + ", ";
+
+            // Classify symbol
+            symType = getField(word, 11);
+            line += symbolType[symType] + " @" + padLeft(getField(word, 64), 4, "0");
+            switch (symType) {
+            case 1:             // variable
+                line += ", " + variableType[getField(word, 21)];
+                break;
+            case 3:             // intrinsic
+                line += ", " + variableType[getField(word, 21)];
+                break;
+            case 5:             // array
+                line += ", " + variableType[getField(word, 21)];
+                break;
+            case 8:             // procedure/function
+                line += ", " + variableType[getField(word, 21)] + ", Level=" + getField(word, 1);
+                if (getSign(word) == 8) {
+                    line += ", External";
+                }
+                break;
+            } // switch
+
+            printLine(line);
+        } // for x
+    }
+
+    /**************************************/
+    function dumpStacks() {
+        /* Dumps all compiler stacks from associative memory */
+        var addr = 0;
+        var entry = null;
+        var key = "";
+        var line = "";
+        var word = 0;
+
+        printLine("\nCompiler Stacks:");
+        for (key in stackHeads) {
+            printLine("");
+            entry = stackHeads[key];
+            addr = entry.addr;
+            word = MM[addr];
+            printLine(padRight(key + ":", 8) + padLeft(addr, 4, "0") + ": " +
+                      formatWord(word) + ", " + entry.title);
+            addr = getField(word, 4);
+            while (addr) {
+                word = MM[addr];
+                printLine(padRight("", 12) + padLeft(addr, 4, "0") + ": " + formatWord(word));
+                addr = getField(word, 4);
+            } // while addr
+        } // for key
+    }
+
+    /**************************************/
+    function analyzeDump() {
+        /* Analyzes and formats the data in the memory array MM */
+        var addr = 0;
+        var line = "";
+        var word = 0;
+        var x = 0;
+
+        dumpSymbolTable();
+        dumpStacks();
+
+        $$("TextDiv").removeChild($$("Spinner"));   // remove the spinner image
+    }
+
+    /**************************************/
+    function loadDumpFile() {
+        /* Loads the memory dump text file, parsing the 11-digit words from the
+        text, converting them to Number objects, and storing them in the MM
+        array. Then calls analyzeDump() to begin the analysis */
+        var addr = 0;
+        var line = "";
+        var nextAddr = 0;
+        var text = "";
+        var word = 0;
+        var x = 0;
+
+        // Skip any initial empty lines
+        do {
+          line = readALine();
+        } while (line !== null && rTrim(line).length == 0);
+
+        if (line) {
+            // Check for a valid dump header
+            if (line.indexOf("retro-220 Processor State and Memory Dump") != 0) {
+                alert("Not a valid 220 Memory Dump file");
+            } else {
+                // Skip the processor-state lines after the header
+                do {
+                    line = readALine();
+                } while (line !== null && line.indexOf("Memory:") != 0);
+
+                // Parse the lines of the memory dump
+                do {
+                    line = readALine();
+                    if (line) {
+                        text = line.substring(0, 4);
+                        if (text == "....") {
+                            // Ignore suppressed duplicate lines
+                        } else {
+                            addr = parseInt(text, 10);
+                            if (isNaN(addr)) {
+                                // Ignore lines that don't begin with a valid address
+                            } else {
+                                // Fill in words from any suppressed duplicate lines
+                                while (nextAddr < addr) {
+                                    MM[nextAddr] = MM[nextAddr-5];
+                                    ++nextAddr;
+                                } // while nextAddr
+
+                                // Parse the words of the dump and store in MM
+                                for (x=4; x<74; x+=14) {
+                                    word = parseInt(line.substring(x+2, x+3) + line.substring(x+4, x+14), 10);
+                                    if (isNaN(word)) {
+                                        alert("Invalid word, addr=" + addr);
+                                        break;
+                                    } else {
+                                        MM[addr] = word;
+                                        ++addr;
+                                    }
+                                } // for x
+
+                                nextAddr = addr;
+                            }
+                        }
+                    }
+                } while (line !== null && line.indexOf("End dump, memory size:") != 0);
+
+                topAddr = nextAddr-1;
+                //alert("Memory dump loaded, topAddr=" + topAddr.toString());
+
+                analyzeDump();
+            }
+        }
+    }
+
+
+    /*******************************************************************
+    * Initialization and Termination                                   *
+    *******************************************************************/
+
+    /**************************************/
+    function loadSourceFile(ev) {
+        /* Handle the <input type=file> onchange event when a source file is
+        selected */
+        var e;                          // spinner image DOM element
+        var f = ev.target.files[0];
+        var reader = new FileReader();
+
+        function fileLoader_onLoad(ev) {
+            /* Handles the onload event for a readAsText FileReader */
+
+            buffer = ev.target.result;
+            bufferOffset = 0;
+            bufferLength = buffer.length;
+            setTimeout(loadDumpFile, 100);
+        }
+
+        sourceName = f.name;
+        /********************
+        alert("Source file selected: " + f.name +
+                "\nModified " + f.lastModifiedDate +
+                "\nType=" + f.type + ", Size=" + f.size + " octets");
+        ********************/
+
+        // initiate the spinner to run while running
+        e = document.createElement("img");
+        e.src = "../../webUI/resources/ajax-spinner.gif";
+        e.id = "Spinner";
+        $$("TextDiv").appendChild(e);
+
+        reader.onload = fileLoader_onLoad;
+        reader.readAsText(f);
+    }
+
+    /**************************************/
+    function checkBrowser() {
+        /* Checks whether this browser can support the necessary stuff */
+        var missing = "";
+
+        if (!window.File        ) {missing += ", File"}
+        if (!window.FileReader  ) {missing += ", FileReader"}
+        if (!window.FileList    ) {missing += ", FileList"}
+        if (!window.DOMTokenList) {missing += ", DOMTokenList"}
+        if (!window.ArrayBuffer ) {missing += ", ArrayBuffer"}
+        if (!window.DataView    ) {missing += ", DataView"}
+        if (!window.Promise     ) {missing += ", Promise"}
+        if (!window.JSON        ) {missing += ", JSON"}
+
+        if (missing.length == 0) {
+            return false;
+        } else {
+            alert("No can do... your browser does not\n" +
+                  "support the following features:\n" + missing.substring(2));
+            return true;
+        }
+    }
+
+    /******************** Start of window.onload() ********************/
+    if (checkBrowser()) {
+        return;
+    }
+
+    $$("DumpFileSelector").value = null;  // clear any prior file selection
+    $$("DumpFileSelector").addEventListener("change", loadSourceFile, false);
+
+    /********************
+    pass1List = $$("Pass1ListCheck").checked;
+    $$("Pass1ListCheck").addEventListener("click", function(ev) {
+        pass1List = ev.target.checked;
+    });
+
+    pass2List = $$("Pass2ListCheck").checked;
+    $$("Pass2ListCheck").addEventListener("click", function(ev) {
+        pass2List = ev.target.checked;
+    });
+
+    outputChecksum = $$("ChecksumCheck").checked;
+    $$("ChecksumCheck").addEventListener("click", function(ev) {
+        outputChecksum = ev.target.checked;
+    });
+    ********************/
+
+    $$("SelectListing").addEventListener("click", function(ev) {
+        window.getSelection().selectAllChildren($$("TextPanel"));
+    });
+
+}, false);
+</script>
+
+</body>
+</html>
diff --git a/software/tools/GEN-Assembler.html b/software/tools/GEN-Assembler.html
index f581c98..de6f9ca 100644
--- a/software/tools/GEN-Assembler.html
+++ b/software/tools/GEN-Assembler.html
@@ -33,7 +33,7 @@
 * and their starting memory location may be pre-loaded into the assembler
 * before loading the source code.
 *
-* Output is a simulated line printer listing in the <iframe> of the web
+* Output is a simulated line printer listing in a text panel of the web
 * page from which the assembler is run. The output of Pass 2 is a
 * traditional assembler listing, with words of generated object code
 * and data. It is designed to match the listing from which the compiler
@@ -2113,7 +2113,7 @@ window.addEventListener("load", function() {
                 case "X":               // copy zone half-column for sign
                     emitBandDigits(1, 1);
                     dx += 1;
-                    break;  
+                    break;
                 case "Y":               // delete half-column (usually for overpunched sign)
                     emitBandDigits(3, 1);
                     colCount += 1;
@@ -2208,7 +2208,7 @@ window.addEventListener("load", function() {
                 case "X":               // copy zone digit for sign
                     emitBandDigits(1, 1);
                     dx += 1;
-                    break;      
+                    break;
                 case "Y":               // supply numeric half-column for standalone sign
                     emitBandDigits(0, 1);
                     colCount += 1;