Update BALGOL Library and Examples

1. Correct missing relocation pseudo-op in MONIT Library routine.
2. Rebuild Generator and Compiler tapes.
3. Recompile and generate corrected listings for example programs.
4. Add Simpson's Rule example from Algol-58 Preliminary Report.

software/BALGOL/BAC-220-Compiler-10K.tape

@@ -47,9 +47,9 @@
 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,33333333300,0,0,0,0,0,0,0,0,333,33332222000,20022220,2200222200,31111111111,0,0,0,0,0,0,0,0,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,30000000000,0,0,0,0,0,0,0,0,33333332222,20022,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,4879551620
-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,0,0,0,403264897,7000384905,424875,104925,10000300000,424907,10294439,50294452,444451,304449,304902,8001454878,490001,1490001,134927,1108264911,314912,1105264916,314921,404465,304911,1480010,104465,304896,9985,4978125000,10000,80,5100000000,5120741240,5062245935,4800000000,4978125000,5120000000,5500000000,5216000000,5110000000,4942415900,5162235322,380273,2404464,424956,314436,404467,424939,14400289999,10000410000,1404989,424939,464992,464993,6412404990,10000109997,334955,134464,410404959,1454943,10000419998,1108374961,124868,304962,124467,2100374973,404991,334966,4220264990,412404971,504444469,4989304469,104467,424464,300273,300033,1480008,464991,8811404991,334978,4220264990,430000,8800374981,134994,223264992,6203264990,110404993,490001,8910404993,9108264993,7108264993,304966,4900000000,23300030000,6223530000,1008500000,1001520000,1001521000,2412042799
+0,100,18426199361
+0,100,403264897,7000384905,424875,104925,10000300000,424907,10294439,50294452,444451,304449,304902,8001454878,490001,1490001,134927,1108264911,314912,1105264916,314921,404465,304911,1480010,104465,304896,9985,4978125000,10000,80,5100000000,5120741240,5062245935,4800000000,4978125000,5120000000,5500000000,5216000000,5110000000,4942415900,5162235322,380273,2404464,424956,314436,404467,424939,14400289999,10000410000,1404989,424939,464992,464993,6412404990,10000109997,334955,134464,410404959,1454943,10000419998,1108374961,124868,304962,124467,2100374973,404991,334966,4220264990,412404971,504444469,4989304469,104467,424464,300273,300033,1480008,464991,8811404991,334978,4220264990,430000,8800374981,134994,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,0,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
@@ -109,7 +109,7 @@
 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,0,0,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,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,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,40000040000,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,16091842721
 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

software/BALGOL/BAC-220-Compiler.tape

@@ -47,9 +47,9 @@
 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,33333333300,0,0,0,0,0,0,0,0,333,33332222000,20022220,2200222200,31111111111,0,0,0,0,0,0,0,0,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,30000000000,0,0,0,0,0,0,0,0,33333332222,20022,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,15120413380
-0,100,12046880461
-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,424981,412404993,10000109999,480006,410404992,10000109998,4210404992,480008,134100,194992,2009610000,300793,10000,424994,412404999,14400289999,11010600015,300622
+0,100,0,0,0,0,403264897,7000384905,424875,104925,10000300000,424907,10294439,50294452,444451,304449,304902,8001454878,490001,1490001,134927,1108264911,314912,1105264916,314921,404465,304911,1480010,104465,304896,9985,4978125000,10000,80,5100000000,5120741240,5062245935,4800000000,4978125000,5120000000,5500000000,5216000000,5110000000,4942415900,5162235322,380273,2404464,424956,314436,404467,424939,14400289999,10000410000,1404989,424939,464992,464993,6412404990,10000109997,334955,134464,410404959,1454943,10000419998,1108374961,124868,304962,124467,2100374973,404991,334966,4220264990,412404971,504444469,4989304469,104467,424464,300273,300033,1480008,464991,8811404991,334978,4220264990,430000,8800374981,134994,223264992,6203264990,110404993,490001,8910404993,9108264993,7108264993,304966,4900000000,23300030000,6223530000,1008500000,1001520000,1001521000,2412077799
+0,100,18426164361
+0,100,403264897,7000384905,424875,104925,10000300000,424907,10294439,50294452,444451,304449,304902,8001454878,490001,1490001,134927,1108264911,314912,1105264916,314921,404465,304911,1480010,104465,304896,9985,4978125000,10000,80,5100000000,5120741240,5062245935,4800000000,4978125000,5120000000,5500000000,5216000000,5110000000,4942415900,5162235322,380273,2404464,424956,314436,404467,424939,14400289999,10000410000,1404989,424939,464992,464993,6412404990,10000109997,334955,134464,410404959,1454943,10000419998,1108374961,124868,304962,124467,2100374973,404991,334966,4220264990,412404971,504444469,4989304469,104467,424464,300273,300033,1480008,464991,8811404991,334978,4220264990,430000,8800374981,134994,10000,424981,412404993,10000109999,480006,410404992,10000109998,4210404992,480008,134100,194992,2009610000,300793,10000,424994,412404999,14400289999,11010600015,300622
 0,100,0,1390000,310004,5103260022,1018500000,400012,2400013,1420008,12739,1400560000,1308520100,300100,0,5000,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
@@ -109,7 +109,7 @@
 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,0,0,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,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,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,40000040000,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,16091842721
 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

software/BALGOL/BAC-220-Generator-Bootstrap.card

@@ -270,12 +270,13 @@
 60600000200006144002899991000041000080001400050800004200008000046005380000460054
 60600000300012864124000511000010999780000330016600001301498041040002080001450004
 60600000400018100004199988110837002200000120020800003000236000012015282100370034
-60600000500024800004000528000033002784220260051804124000326050444020060050300200
-60600000600030600001001526000042014900000300032000003000330000148000880000460052
-60600000700036888114000528000033003984220260051000004300008880037004280000130055
-60600000800042802232600538620326005180110400054000004900018891040005489108260054
-60600000900048871082600548000030002700000000000233000000000000000000000000000000
-60300001000054000000000000000000005040000990000
+605000005000248000040005280000330027842202600518041240003260504440200
+602000006000294000004000060050300200       RELOCATE /44 FIELD OF BUN INSTRUCTION
+60600000700030600001001526000042014900000300032000003000330000148000880000460052
+60600000800036888114000528000033003984220260051000004300008880037004280000130055
+60600000900042802232600538620326005180110400054000004900018891040005489108260054
+60600001000048871082600548000030002700000000000233000000000000000000000000000000
+60300001100054000000000000000000005040000990000
 2 TRACE
 2   ERROR=1
 60600000100000090003800008440028001560000310121800004200008000040002010000109999

software/BALGOL/BAC-220-Generator.tape

@@ -47,9 +47,9 @@
 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,33333333300,0,0,0,0,0,0,0,0,333,33332222000,20022220,2200222200,31111111111,0,0,0,0,0,0,0,0,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,33333333333,30000000000,0,0,0,0,0,0,0,0,33333332222,20022,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,13035368420
-0,100,17925910001
-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,1008500000,1001520000,1001521000,1001522000,1001523000,1901524000,1009500000,300001
+0,100,0,0,0,0,403264897,7000384905,424875,104925,10000300000,424907,10294439,50294452,444451,304449,304902,8001454878,490001,1490001,134927,1108264911,314912,1105264916,314921,404465,304911,1480010,104465,304896,9985,4978125000,10000,80,5100000000,5120741240,5062245935,4800000000,4978125000,5120000000,5500000000,5216000000,5110000000,4942415900,5162235322,380273,2404464,424956,314436,404467,424939,14400289999,10000410000,1404989,424939,464992,464993,6412404990,10000109997,334955,134464,410404959,1454943,10000419998,1108374961,124868,304962,124467,2100374973,404991,334966,4220264990,412404971,504444469,4989304469,104467,424464,300273,300033,1480008,464991,8811404991,334978,4220264990,430000,8800374981,134994,223264992,6203264990,110404993,490001,8910404993,9108264993,7108264993,304966,4900000000,23300030000,6223530000,1008500000,1001520000,1001521000,15502877241
+0,100,10393418822
+0,100,403264897,7000384905,424875,104925,10000300000,424907,10294439,50294452,444451,304449,304902,8001454878,490001,1490001,134927,1108264911,314912,1105264916,314921,404465,304911,1480010,104465,304896,9985,4978125000,10000,80,5100000000,5120741240,5062245935,4800000000,4978125000,5120000000,5500000000,5216000000,5110000000,4942415900,5162235322,380273,2404464,424956,314436,404467,424939,14400289999,10000410000,1404989,424939,464992,464993,6412404990,10000109997,334955,134464,410404959,1454943,10000419998,1108374961,124868,304962,124467,2100374973,404991,334966,4220264990,412404971,504444469,4989304469,104467,424464,300273,300033,1480008,464991,8811404991,334978,4220264990,430000,8800374981,134994,223264992,6203264990,110404993,490001,8910404993,9108264993,7108264993,304966,4900000000,23300030000,6223530000,1008500000,1001520000,1001521000,1001522000,1001523000,1901524000,1009500000,300001
 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,40208449898,40183309898,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,3001000020,1604380000,371720000,6099999999,5822570000,9999999999,6034037172,4959035600,4959045600,804610000,0,0,0,403820000,0,0,1203840000,0,0,0,0,0,0,0,803780537,403800000,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,0,605540000,605560000,0,0,0,0,605580000,1203870000,1004650000,1403900504,605640454,0,605660507,1203980000,604010512,0,1604050514,604110515,604160516,0,0,0,0,0,1004290000,604310455,0,0,1804354108,0,604410000,1804670000,0,604430000,1404450000
 0,100,1404260000,1604580000,0,0,0,1204480524,1003690000,0,0,0,1003710000,0,1203730000,0,0,403760000,0,0,0,0,4234,2000000,3101000020,3001000030,3001000040,3001000050,3101000060,24649670000,3001000071,24653564163,3001000080,4999,4042260000,3001000090,3001000100,4042300000,3000100000,3000100000
@@ -112,7 +112,7 @@
 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,0,0,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,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,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,40000040000,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,16091842721
 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
@@ -162,6 +162,6 @@
 1,100,31111111111,0,0,0,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,5000,200
 1,100,0,0,0,0,3000380303,41000630388,300304,1070060353,41008500000,41300580000,4000380319,41000590333,300307,3000380317,420081,50290100,41001610352,401260347,205260311,310333,300310,1000060100,300333,3000380330,6105260347,420081,50290250,41001610352,405270322,401260347,320321,460347,6101260347,300333,1000060000,1000060100,1000060200,41101520100,100100,99360346,1450100,1420336,10000120200,1200338,310341,360309,40090082,9669009669,41101580000,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,33333333332,0,2222,0,0,22222222222,22222222222,22222222222,22222222222,22222222222
 5*1,100
-1,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,16788892226
+1,100,0,0,0,0,403264897,7000384905,424875,104925,10000300000,424907,10294439,50294452,444451,304449,304902,8001454878,490001,1490001,134927,1108264911,314912,1105264916,314921,404465,304911,1480010,104465,304896,9985,4978125000,10000,80,5100000000,5120741240,5062245935,4800000000,4978125000,5120000000,5500000000,5216000000,5110000000,4942415900,5162235322,380273,2404464,424956,314436,404467,424939,14400289999,10000410000,1404989,424939,464992,464993,6412404990,10000109997,334955,134464,410404959,1454943,10000419998,1108374961,124868,304962,124467,2100374973,404991,334966,4220264990,412404971,504444469,4989304469,104467,424464,300273,300033,1480008,464991,8811404991,334978,4220264990,430000,8800374981,134994,223264992,6203264990,110404993,490001,8910404993,9108264993,7108264993,304966,4900000000,23300030000,6223530000,1008500000,1001520000,1001521000,19256401047
 6782*1,100
 1,1,1

software/BALGOL/BALGOL-Build-Notes.txt

@@ -245,6 +245,38 @@ Bootstrap deck:
         606|00001000048|05000000000|00000000000|00000000000|
         601|00001100054|40000990000|           |           |
 
+A similar correction must be made to the object deck for the MONIT
+routine (MONIT-Object.card) after it has been inserted into the
+Bootstrap deck.
+
+    * Locate the instruction word 6 0050 30 0200, which should be at
+    relative address 0029. This is another branch to the RITE
+    subroutine.
+
+    * The /44 field of this instruction needs to be relocated relative
+    to the starting physical address of the routine, as for the ERROR
+    routine above.
+
+    * Insert a new-line in the card image in front of this instruction.
+    It should be the last word on the fifth line of the deck. Adjust the
+    digit in column 3 of that line to reflect the number of words now
+    contained on that line (should be from 6 to 5).
+
+    * On the new line that has been created, insert the following in
+    front of the text:
+
+        60x0000yy0zzzz40000040000
+
+    where x is one plus the number of words originally on the new line
+    (should be 2), yy is the sequence number of the line, and must be
+    one plus the number in the corresponding columns above it (should be
+    06), and zzzz is the relative address of the first word on that line
+    (should be 0029).
+
+    * Adjust the sequence numbers in columns 8-9 on all following cards
+    for the routine so that they increase by one from the number on the
+    preceding card.
+
 You can arrange the library routines in any order, but it is probably
 best to use the same order that the routines appear in the scanned
 listing of the Compiler on the Computer History Museum's web site.
@@ -398,4 +430,3 @@ PROCESS LIBRARY statement and the library object decks.
 
 Paul Kimpel
 July 2018
-

software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHELT-Object.tape

@@ -1,50 +1,46 @@
-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,1390000,310004,5103260022,1018500000,400012,2400013,1420008,12739,1400560000,1308520100,300100,0,0,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,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,8023010223,407969,300400,108012,128015,407671,108013,128015,407670,108013,137669,407668,107669,128015,407667,107669,128013,407666,467665,108011,407664,107669,128012,407663,108015,138013,1111310251,360252,300255,107662,407661,300262,108015,138013,447602,307602,447616,307616,407661,107669,407601,407600,407599,108012,360269,107669,360274,107598,407597,407596,300277,107669,407597,407596,1428010,10000300281,300000,300281,107669,407595,449999,300288,107669,127595,407595,138015,1111310291,360293,1330293,309999,107598,148005,0,0,18148493575
+0,100,1,40920290295,1490010,127595,148004,1407594,107595,128017,148016,1407593,427593,10000108018,427594,10000408006,107595,128005,148004,1407594,107662,427594,10000408006,300400,107598,407592,440365,300322,107669,127592,407592,137668,1111310325,360327,1330327,300366,107669,407595,440364,300334,107669,127595,407595,138015,1111310337,360339,1330339,300365,107669,127592,148005,1490010,127595,148004,1407594,107592,148005,1490010,127595,148004,1407593,107598,148005,1490010,127595,148004,1407591,427593,10000108006,427591,10000248006,427594,10000408006,300400,300400,300000,107669,407592,449999,300374,107669,127592,407592,138013,1111310377,360379,1330379,309999,107669,407595,449999,300386,107669,127595,407595,138015,0,0,2790367,40002830314,70002920315,14290426844
+0,100,2,40910290387,1111310389,360391,1330391,300408,107592,148005,1490010,127595,148004,1407594,107592,148017,1490010,127595,148016,1407591,427591,10000108018,427594,10000408006,300400,300400,108012,360412,300414,300000,300418,1428009,10000300418,300463,300418,107669,407592,440461,300425,107669,127592,407592,138013,1111310428,360430,1330430,300462,107667,407595,440450,300437,107669,127595,407595,137671,1111310440,360442,1330442,300451,107592,148005,1490010,127595,148004,1407594,427594,10000468006,300400,107592,148005,1490010,128015,127592,148004,1407594,107662,427594,10000408006,300400,300000,107669,407592,449999,300470,107669,127592,407592,138013,1111310473,360475,1330475,309999,107667,407595,449999,0,0,3660409,40003690408,70003780409,40003810407,15396841839
+0,100,3,40900290478,300482,107669,127595,407595,137671,1111310485,360487,1330487,300504,107592,148005,1490010,127595,148004,1407594,107592,148017,1490010,127595,148016,1407591,427591,10000108018,427594,10000408006,300400,300400,107669,407590,407589,407588,407587,407586,107669,407585,107669,407584,407583,108012,360519,300521,300539,300539,107669,407595,440538,300528,107669,127595,407595,138012,1111310531,360533,1330533,300539,107595,128015,407594,427594,10000467869,300400,1428008,10000300543,300567,300543,107669,407592,440565,300550,107669,127592,407592,138015,1111310553,360555,1330555,300566,107590,148005,1490010,127592,148004,1407594,427594,10000108006,427592,10000407869,300400,300000,107669,0,0,4120505,4620505,40004650504,70004740505,40004770503,14278633268
+0,100,4,40940290568,407592,440594,300574,107669,127592,407592,138015,1111310577,360579,1330579,300595,107590,148005,1490010,127592,148004,1407594,107592,148022,1407591,427594,10000108006,427591,10000248023,427592,10000407869,300400,300596,1427584,10000300600,300643,300600,107669,407592,440641,300607,107669,127592,407592,137590,1111310610,360612,1330612,300642,467582,107669,407595,440637,300620,107669,127595,407595,137671,1111310623,360625,1330625,300638,107592,148005,1490010,127595,148004,1407591,427595,10000107869,427591,10000248006,227582,407582,300400,107582,427592,10000407671,300400,300000,467581,107669,407592,449999,300651,107669,127592,407592,137671,1111310654,360656,1330656,309999,107590,148005,1490010,127592,148004,1490010,0,0,5660596,15425198567
+0,100,5,40920290661,1407591,427592,10000107869,427591,10000248006,227581,407581,300400,107581,447616,307616,407580,107601,147971,1407591,107580,427591,10000407972,107669,127601,407601,107669,407592,440712,300689,107669,127592,407592,137671,1111310692,360694,1330694,300713,107590,148005,1490010,127592,148004,1407591,107590,148005,1490010,127592,148004,1407594,427594,10000108006,2450000,257580,427591,10000408006,300400,107669,407584,300539,1427586,10000300720,300000,300720,117588,407588,107588,360727,330727,300000,300728,300728,107669,407592,440746,300735,107669,127592,407592,407591,107590,137669,137591,1111310741,360743,330743,300747,427592,10000117671,10000407671,300400,107662,427590,10000407671,107669,407592,449999,0,0,6420716,40006460668,70006550669,13179769740
+0,100,6,40920290753,300757,107669,127592,407592,137671,1111310760,360762,1330762,300792,467582,107669,407595,440787,300770,107669,127595,407595,137590,1111310773,360775,1330775,300788,107595,148005,1490010,127592,148004,1407591,427591,10000108006,427595,10000247671,227582,407582,300400,107582,427592,10000407770,300400,300000,107601,147969,1407591,427590,10000107671,447616,307616,427591,10000407970,300728,117589,407589,107589,360810,330810,300811,300811,300728,107669,407592,440844,300818,107669,127592,407592,138013,1111310821,360823,1330823,300845,107665,147986,1490010,127592,147985,1407591,427592,10000107671,427591,10000407987,107665,147983,1490010,127592,147982,1407591,427592,10000107671,10000247671,427591,10000407984,300400,0,0,7180803,7250793,40007520791,14306243073
+0,100,7,40950290845,107665,147986,1490010,127666,147985,1407591,427666,10000107671,427591,10000407987,107665,147980,1490010,127669,147979,1407591,107665,147986,1490010,127666,147985,1407594,107665,147983,1490010,127669,147982,1407593,427594,10000107987,427593,10000237984,427591,10000407981,107598,407595,440916,300886,107669,127595,407595,138013,1111310889,360891,1330891,300917,107665,147980,1490010,127595,147979,1407591,107665,147980,1490010,127595,137669,147979,1407593,107665,147983,1490010,127595,147982,1407594,427593,10000107981,427594,10000237984,427591,10000407981,300400,107662,407579,107669,407592,449999,300926,107669,127592,407592,138013,1111310929,360931,1330931,309999,108014,237579,369999,1339999,107665,147980,1490010,127592,147979,0,0,13211421609
+0,100,8,40900290940,1407591,427591,10000107981,360974,330974,107665,147977,1490010,127592,147976,1407591,107665,147980,1490010,127592,147979,1407594,427594,10001107981,407594,108014,237579,407593,107594,2450000,257593,447616,307616,407593,117593,427591,10000407978,301008,300997,107665,147977,1490010,127592,147976,1407591,107665,147980,1490010,127592,147979,1407593,108014,237579,407594,427593,10000107981,2450000,257594,447616,307616,427591,10000407978,301008,301008,107665,147980,1490010,127592,147979,1407591,117662,427591,10000407981,107662,227579,407579,300400,300728,1427585,10000301018,300000,300000,301018,107669,407592,449999,301025,107669,127592,407592,137671,1111311028,369999,1339999,309999,0,0,7921013,40009211011,70009301012,70009330999,70009340999,12038254698
+0,100,9,40890291030,107590,148005,1490010,127592,148004,1407591,427592,10000107770,427591,10000408006,300400,301095,107669,407592,441064,301049,107669,127592,407592,138015,1111311052,361054,1331054,301065,107665,148002,1490010,127592,148001,1407591,427592,10000107770,427591,10000408003,300400,107669,407592,441090,301072,107669,127592,407592,138012,1111311075,361077,1331077,301091,107665,147999,1490010,127592,147998,1407591,107592,128015,407594,427594,10000117770,427591,10000408000,300400,107578,407585,301018,301114,1427583,10000301099,301103,301099,107598,407583,407584,300539,107590,138013,1111311107,361113,331113,107669,127590,407590,300511,301114,300000,1427587,10000301118,300000,301118,107598,0,0,10151094,10161042,40010201040,70010291041,40010271030,40010281030,14294588425
+0,100,10,40930291119,407587,300000,107580,2450000,257661,407577,107577,247577,407576,107665,147996,1407591,107577,427591,10000407997,300000,1427599,10000301139,300000,301139,107669,407592,441181,301146,107669,127592,407592,138013,1111311149,361151,1331151,301182,107669,407595,441180,301158,107669,127595,407595,138012,1111311161,361163,1331163,301181,107592,147974,1490010,127595,147973,1407591,107592,148005,1490010,128015,127595,148004,1407594,427594,10000108006,427591,10000407975,300400,300400,107662,407988,107669,407592,441209,301191,107669,127592,407592,138013,1111311194,361196,1331196,301210,107592,147971,1407591,107592,147969,1407594,427591,10000107972,2450000,427594,10000257970,247988,407988,300400,107988,247988,0,0,11131135,11161121,14323143201
+0,100,11,40940291212,407988,107598,407585,407599,407586,107669,127590,407590,301222,301114,1427596,10000301226,301227,301226,301114,107669,407592,441293,301234,107669,127592,407592,138012,1111311237,361239,1331239,301294,107592,407595,441292,301246,107669,127595,407595,138012,1111311249,361251,1331251,301293,467582,107669,407575,441282,301259,107669,127575,407575,138013,1111311262,361264,1331264,301283,107575,147974,1490010,127592,147973,1407594,107575,147974,1490010,127595,147973,1407591,427594,10000107975,427591,10000247975,227582,407582,300400,107592,147994,1490010,127595,147993,1407591,107582,427591,10000407995,300400,300400,107669,407592,449999,301301,107669,127592,407592,138012,1111311304,369999,1339999,309999,0,0,11371221,15431002211
+0,100,12,40890291306,107663,147994,1490010,127592,147993,1407591,107592,147994,1490010,127592,147993,1407594,427594,10000107995,447616,307616,427591,10000407995,300400,107669,407596,301114,1427600,10000301332,300000,301332,107664,361335,301337,300000,301340,107664,137669,407664,107669,127665,407665,107598,407600,407585,1428007,10000301350,300000,301350,107669,407592,441378,301357,107669,127592,407592,138015,1111311360,361362,1331362,301379,107666,148005,1490010,127592,148004,1407591,107665,148020,1490010,127592,148019,1407594,427594,10000108021,427591,10000408006,300400,107669,407592,449999,301386,107669,127592,407592,138012,1111311389,361391,1331391,309999,107666,148005,1490010,128015,0,0,11201328,11341328,40012961324,70013051325,40013031306,40013041306,13195008501
+0,100,13,40910291395,127592,148004,1407591,427591,10000468006,300400,300513,107669,407592,441430,301409,107669,127592,407592,137671,1111311412,361414,1331414,301431,107666,148005,1490010,127592,148004,1407591,107665,148020,1490010,127592,148019,1407594,427594,10000108021,427591,10000408006,300400,300513,1427597,10000301436,301437,301436,301332,107669,407592,441482,301444,107669,127592,407592,138012,1111311447,361449,1331449,301483,107592,407595,441481,301456,107669,127595,407595,138012,1111311459,361461,1331461,301482,107665,147991,1490010,127592,147990,1490010,127595,147989,1407591,107592,147994,1490010,127595,147993,1407594,107576,427594,10000247995,427591,10000407992,300400,300400,107669,407592,449999,0,0,13301432,13481402,40013811400,70013901401,14305586209
+0,100,14,40920291486,301490,107669,127592,407592,138012,1111311493,361495,1331495,301516,107665,147991,1490010,127663,147990,1490010,127592,147989,1407591,107663,147994,1490010,127592,147993,1407594,107577,427594,10000247995,427591,10000407992,300400,301332,420223,10000300000,107970,410401206,410400801,107972,410401203,410400678,107975,410401279,410401277,410401179,107978,410400996,410400971,107981,410401007,410400990,410400958,410400942,410400915,410400911,410400878,107984,410400913,410400876,410400843,107987,410400874,410400854,410400832,107988,410401212,410401211,410401210,410401208,410401207,410401183,107992,410401514,410401480,107995,410401512,410401478,410401323,410401319,410401291,107997,410401133,108000,410401089,108003,410401063,108006,410401429,410401399,410401377,410401177,410401039,410400782,410400711,0,0,2251519,13351517,40014851515,10544348040
+0,100,15,40940291578,410400707,410400665,410400634,410400589,410400562,410400502,410400460,410400449,410400406,410400363,410400361,410400359,410400313,410400306,108018,410400500,410400404,410400304,108021,410401427,410401375,108023,410400591,300226,309999,7574011603,407572,1427574,10000301624,300000,300000,300000,300000,300000,300000,300000,300000,300000,300000,301665,301651,301646,301636,301633,301630,301627,1450002,421603,10000300000,107662,421603,10000300000,107573,421603,10000300000,107572,421603,10000300000,107573,247573,407571,107572,247572,237571,407571,117571,421603,10000300000,107573,247572,247570,421603,10000300000,417578,107573,447532,307532,407571,107572,247572,247573,247531,237571,407571,117571,421603,10000300000,107573,247573,247531,247572,417578,407571,107572,0,0,40002221602,16742306408
+0,100,16,40910291672,447532,307532,237571,407571,117571,421603,10000300000,417530,107573,447532,307532,417530,407571,107572,447532,307532,227571,407571,107573,247573,247529,407528,107572,247572,247528,237571,407571,117571,421603,10000300000,417578,107573,447532,307532,247527,247572,417578,407571,107572,447532,307532,247573,247527,237571,407571,117571,421603,10000300000,417526,107573,447532,307532,417578,407571,107573,447532,307532,247525,407528,107572,247572,247528,237571,417530,407571,107572,447532,307532,247573,247524,237571,421603,10000300000,417526,107572,447532,307532,417578,407571,107572,447532,307532,247525,407528,107573,247573,247528,237571,417530,407571,107573,0,0,16131745,16141720,16151702,16161679,10999861838
+0,100,17,40920291763,447532,307532,247572,247524,237571,421603,10000300000,417523,107573,447532,307532,417530,407571,107573,447532,307532,247522,407528,107572,247572,247528,237571,407571,107573,247573,247522,417530,407528,107572,447532,307532,247528,237571,417523,407571,107572,447532,307532,237571,407571,117571,421603,10000300000,417526,107573,447532,307532,247529,247572,417526,407571,107572,447532,307532,247573,247529,227571,417578,407571,107573,447532,307532,247521,417578,407528,107572,447532,307532,247528,237571,407571,117571,421603,10000300000,417520,107573,447532,307532,417526,407571,107573,447532,307532,247519,407528,107572,247572,247528,237571,417578,407571,107573,0,0,16101837,16111806,16121770,10994791262
+0,100,18,40930291855,447532,307532,247518,417530,407528,107572,447532,307532,247528,237571,417523,407571,107572,447532,307532,247573,247517,237571,407571,117571,421603,10000300000,417523,107573,447532,307532,247517,247572,417530,407571,107573,447532,307532,247518,417578,407528,107572,447532,307532,247528,237571,407571,107573,247573,247519,417526,407528,107572,447532,307532,247528,237571,417520,407571,107572,447532,307532,237571,407571,117571,421603,10000300000,417516,107573,447532,307532,417516,407571,107572,447532,307532,227571,417523,407571,107573,447532,307532,247515,407528,107572,247572,247528,237571,417530,407571,107573,447532,307532,247514,417530,407528,107572,447532,0,0,16081917,16091877,10990040470
+0,100,19,40930291948,307532,247528,237571,407571,107573,247573,247515,417523,407528,107572,447532,307532,247528,237571,407571,117571,421603,10000300000,417520,107573,447532,307532,247513,247572,417526,407571,107573,447532,307532,247512,417578,407528,107572,447532,307532,247528,237571,417578,407571,107573,447532,307532,247512,417526,407528,107572,447532,307532,247528,237571,417520,407571,107572,447532,307532,247573,247513,237571,407571,117571,421603,10000300000,107511,407510,107509,407508,107509,407507,107669,407506,449999,302023,107669,127506,407506,137510,1111312026,362028,1332028,309999,102029,12033,447367,307367,309999,300400,422034,2202033,427506,10000409956,422038,2202033,427506,0,0,40016022010,16071966,12104147794
+0,100,20,40920292041,10000409913,422042,2202033,427506,10000409870,9430000,302033,427506,10000109956,447292,307292,407281,427506,10000109913,447282,307282,247281,407281,107662,427506,10000239913,407193,247193,407193,10000109956,10000249956,227193,447194,307194,227281,427506,10000409773,107669,407192,442103,302080,107669,127192,407192,137508,1111312083,362085,1332085,302104,107192,147191,1490010,127506,407281,107192,4400281603,10000400000,427506,10000109956,4400281603,10000409999,427506,10000109913,441603,200301603,427281,10000409125,300400,300400,102106,19870,4400280223,10000400000,107669,10000409999,102112,19719,10000409998,107191,10000409997,107669,10000409996,102119,19125,10000409995,107191,10000409994,107669,10000409993,107510,10000409992,107510,447602,307602,4400280223,10000409991,107508,0,0,40020182104,70020272105,40020322048,19875852099
+0,100,21,40950292133,10000409990,107507,10000409989,107669,10000409988,107598,10000409987,107669,10000409986,107598,10000409985,107669,10000409984,102147,18477,10000409983,107191,10000409982,107669,10000409981,102154,18445,10000409980,107511,10000409979,107669,10000409978,102161,18466,10000409977,107509,10000409976,107669,10000409975,102168,18476,10000409974,107669,10000409973,102173,18333,10000409972,107509,10000409971,107669,10000409970,102180,18069,10000409969,107190,10000409968,107509,10000409967,107669,10000409966,102189,17189,10000409965,102192,18188,10000409964,107190,10000409963,107669,10000409962,102199,18178,10000409961,107509,10000409960,107669,10000409959,102206,18167,10000409958,107509,10000409957,107669,10000409956,102213,18156,10000409955,107509,10000409954,107669,10000409953,102220,18035,10000409952,107509,10000409951,107669,10000409950,102227,18034,0,0,10938059740
+0,100,22,40950292228,10000409949,107669,10000409948,102232,18023,10000409947,107669,440223,5400300223,107669,407506,442281,302244,107669,127506,407506,137510,1111312247,362249,1332249,302282,467188,107669,407192,442277,302257,107669,127192,407192,137508,1111312260,362262,1332262,302278,107192,4400281603,10000400000,427506,10000109956,4400281603,10000409999,427506,10000109913,441603,200301603,427192,10000248477,227188,407188,300400,107188,427506,10000409827,300400,102283,10207,446948,306948,102287,12295,4400286948,10000400000,102291,10201,446948,100306948,309999,300400,107669,407506,449999,302303,107669,127506,407506,137510,1111312306,362308,1332308,309999,107506,100422309,2202295,427506,10000109956,422313,2202295,427506,10000109913,422317,2202295,427506,10000109870,422321,2202295,0,0,13313348092
+0,100,23,40920292323,427506,10000109773,422325,2202295,427506,10000109827,422329,2202295,427506,10000109827,10000239773,422334,2202295,300400,9430000,302295,309999,6947012340,406943,300400,302359,6600400,4100500,30033001400,6600000,10000002344,6600400,4100500,32414000000,4900200,30400330014,6600000,10000002349,64602011,6600000,10000002356,302366,300400,106947,100422362,2202360,9430000,302360,302376,300400,106947,100422369,2202367,106944,100422372,2202367,9430000,302367,302400,300400,107669,406942,442397,302385,107669,126942,406942,136943,1111312388,362390,1332390,302398,106942,146945,1406941,426941,10000106946,422395,2202377,300400,9430000,302377,106944,362412,1332412,102404,12367,4400286948,10000400000,102408,12349,446948,100306948,309999,102413,12360,4400286948,0,0,40022942339,40022982336,70023072337,15536299950
+0,100,24,40920292415,10000400000,102417,12344,446948,100306948,102421,12377,4400286948,10000400000,102425,12356,446948,100306948,422340,10000300000,106946,410402394,302343,106940,4400282340,10000400000,102437,19956,10000409999,107669,10000409998,106939,10000409997,107510,442340,400302340,106938,4400282340,10000400000,102450,19913,10000409999,107669,10000409998,106939,10000409997,107510,442340,400302340,106937,4400282340,10000400000,102463,19870,10000409999,107669,10000409998,106939,10000409997,107510,442340,400302340,106936,4400282340,10000400000,102476,19827,10000409999,107669,10000409998,106939,10000409997,107510,442340,400302340,106935,4400282340,10000400000,102489,19773,10000409999,107669,10000409998,106939,10000409997,107507,127510,442340,400302340,107669,407506,449999,302506,107669,127506,407506,137508,0,0,40023392433,23422430,40024112420,10005410261
+0,100,25,40940292507,1111312509,362511,1332511,302529,106934,4400282340,10000400000,107506,147191,1490010,122518,19125,10000409999,107669,10000409998,107506,10000409997,107507,127510,442340,400302340,300400,107669,407506,442561,302536,107669,127506,407506,407281,107669,127508,137281,1111312542,362544,332544,302562,106933,4400282340,10000400000,107506,147191,1490010,122551,18477,10000409999,107669,10000409998,107506,10000409997,107507,127510,442340,400302340,300400,106932,4400282340,10000400000,102566,18488,10000409999,107669,10000409998,106939,10000409997,107510,442340,400302340,106931,4400282340,10000400000,102579,18477,10000409999,107669,10000409998,106939,10000409997,107507,442340,400302340,106930,4400282340,10000400000,102592,18476,10000409999,107669,10000409998,106939,10000409997,107669,442340,400302340,0,0,40025012528,17197730751
+0,100,26,40950292601,107669,407506,442632,302608,107669,127506,407506,407281,107669,127507,137281,1111312614,362616,332616,302633,106929,4400282340,10000400000,107506,147509,1490010,122623,18333,10000409999,107669,10000409998,107506,10000409997,107507,442340,400302340,300400,107669,407506,442664,302640,107669,127506,407506,407281,107669,127507,137281,1111312646,362648,332648,302665,106928,4400282340,10000400000,107506,147509,1490010,122655,18201,10000409999,107669,10000409998,107506,10000409997,107507,442340,400302340,300400,106927,4400282340,10000400000,102669,18167,10000409999,107669,10000409998,106939,10000409997,107508,442340,400302340,107669,407506,449999,302685,107669,127506,407506,137508,1111312688,362690,1332690,309999,106926,4400282340,10000400000,107506,147509,1490010,0,0,13101352691
+0,100,27,40800292696,122697,18035,10000409999,107669,10000409998,107506,10000409997,107507,442340,400302340,300400,106925,4400282340,10000400000,102711,18034,10000409999,107669,10000409998,106939,10000409997,107669,127508,442340,400302340,106924,4400282340,10000400000,102725,18200,10000409999,107669,10000409998,106939,10000409997,107669,127508,442340,400302340,106923,4400282340,10000400000,102739,18189,10000409999,107669,10000409998,106939,10000409997,107508,442340,400302340,106922,4400282340,10000400000,102752,18178,10000409999,107669,10000409998,106939,10000409997,107508,442340,400302340,106921,4400282340,10000400000,102765,18023,10000409999,107669,10000409998,106939,10000409997,107508,442340,400302340,9669009669,1000600000,40010296939,0,40010297669,1,40010297598,2,40010297511,43,40010297509,11,40010297191,54,40010297190,12,0,40026802706,70026892707,15942162600
+0,100,28,40010297578,3,40010297530,4,40010297526,5,40010297523,6,40010297520,7,40010297516,8,40010296940,6700000000,40010296938,6800000000,40010296937,6600000000,40010296936,4342650000,40010296935,4265000000,40010296934,6900000000,40010296933,5659634865,40010296932,4445650000,40010296931,4356460000,40010296930,6263440000,40010296929,4365000000,40010296928,6543650000,40010296927,4557000000,40010296926,4100000000,40010296925,4746000000,40010296924,5800000000,40010296923,5882000000,40010296922,4500000000,40010296921,4555460000,40010297662,5110000000,40010297570,5120000000,40010297531,5130000000,40010297529,5160000000,40010297527,5140000000,40010297525,5210000000,40010297524,5150000000,40010297522,5215000000,40010297521,5220000000,40010297519,5221000000,40010297518,5235000000,40010297517,5170000000,40010297515,5228000000,40010297514,5270000000,40010297513,5180000000,40010297512,5256000000,40130297602,6450000,2200367606,480001,1207603,1480008,10000107612,1490008,227615,427602,10000300000,58,59,60,0,0,17161152919
+0,100,29,40010297615,5800000000,40930296948,100010000,410406984,426952,10297184,300290101,426948,412407033,10000419999,9437557,2200376961,420100,10000440000,12201370001,400132,412407015,410130,376982,100134,460133,5246377144,5267377120,5249377058,5262377171,5241376973,307159,416991,1270129,447116,307107,100129,366998,2299377012,1490010,306974,426949,316875,109999,401266984,337000,416991,1337016,2214366984,447116,9900307107,2299376984,1490010,306989,100129,190125,190125,100130,3300366982,3300367002,137185,400130,210400131,1480002,310400129,7242366995,7266367036,7257367044,7263367046,7243367035,300366984,100132,400134,9336995,309999,426984,6600367032,1490003,300377026,137185,3300367028,16301279999,10000419999,411406984,306984,13310409999,307020,10000109999,1480003,16610409999,306984,100132,9339999,307023,1008610124,1480003,3111407038,2408446908,101306908,427042,0,0,16532050918
+0,100,30,40950297041,10297184,240290101,306998,1008610124,307040,300367051,10097050,1127028,307046,21602020202,100125,366998,127121,1480004,3211407056,990090101,307040,427068,367117,1100367118,400134,3450080,2400128,460126,410400126,1400127,100134,2480010,1430023,120129,130128,1337159,190125,5000190125,100134,417112,447116,1337106,1270128,327092,410127,376998,417069,447116,307106,100127,137074,427004,460129,3260129,307061,1270126,410126,377100,410133,377102,1270133,417062,307106,417029,307106,100134,417121,1490001,400134,1490018,1480008,1420125,10000490008,9400280125,24217116,430020,10000120125,10010400125,2260125,309999,9217062,490051,1217060,2457557,1480008,410187186,1400134,1347134,410407132,449277132,427132,100130,1480004,4211407133,107132,2459999,207063,437557,137186,0,0,19797195308
+0,100,31,40520297136,210400133,211180130,357141,107186,307125,107118,1110400134,307125,304270129,327148,307158,107187,367147,2457557,2210407073,1480008,1400134,2480010,120130,177118,310180129,1347167,4260129,100129,190125,190125,2270125,417174,447116,307106,306998,417073,107104,420131,1207063,2457557,1480008,1400134,430014,137186,2457557,1337182,210180130,347159,127104,307169,10400133,307168,20000000000,10000000,50,5000000000,40420297367,7495010000,410407457,410407458,401267458,447464,307457,427495,10000460000,467503,446851,117306851,467505,502267505,427495,9999207385,6400287503,100101,9999207479,9400287505,10000100101,427505,10000490000,502267505,417503,377405,160217376,4400287503,2213367420,480008,10000490000,197502,4102277503,327385,107502,447464,307457,5212277503,307385,162217376,1108367436,2203367432,2220367430,0,0,17986817641
+0,100,32,40950297409,2234367430,2223367425,2213367487,2214367418,427499,9999207385,447464,307443,307385,9416267505,307413,467503,107502,447464,9992207457,307385,1267501,447464,307443,1267498,307385,1267497,307385,417491,2211407496,1267500,307385,490001,417502,1490001,1407502,2201277496,1267499,307385,417498,377470,427497,117502,490008,9999207450,430000,1137504,1210277504,327457,430000,307457,427501,1217465,440090,300091,9337467,412407458,427475,467496,70297496,300097,407504,307461,427367,467495,10000300000,107502,427500,9999207475,127496,227496,427497,9999207455,1430000,307455,810187492,1357385,410102,11187493,1357385,427495,10001260000,307467,427499,9999207403,502277505,307415,5800000000,28562455563,24955455300,5110000000,0,0,0,0,0,0,0,0,0,0,0,11138261227
+0,100,33,40020297504,0,0,40540296854,446887,306883,25945626453,26300566463,20056460059,24155474500,24955000000,446887,306883,25945626453,26300645544,24546495545,24400465659,20000000000,446887,306883,25945626453,26300495353,22044454649,25545440046,25659000000,466896,446887,306885,0,20041594963,24854456349,24300566545,25946535666,1406896,3450000,412406890,426907,50290033,1106446908,6891306908,300036,0,0,0,0,0,0,0,0,0,0,0,5000000000,0,0,5110000000,0,6891,40370297616,4450000,427616,10000360000,1337650,810407652,2310407653,106902,147653,137654,2310407653,3110187653,357630,1337630,2201267653,107655,247652,227656,247652,227657,406903,107652,256903,226903,247658,406903,107652,256903,226903,127653,357648,247659,10000300000,247658,10000300000,417660,306861,5110000000,0,0,18619974944
+0,100,34,40080297653,0,2550000000,14916450338,5041117101,5062697923,5050000000,5015811388,26258596300,40750297292,2450000,417354,411407349,1210407292,10187356,347347,1490002,211407300,2450000,427300,147357,9949207306,10001490001,1427304,1490008,2211407353,2251267353,1490012,2450000,10207313,10001490001,1490010,406904,146904,406906,147358,127359,146906,127360,146906,127361,146904,406904,406903,107362,146906,127363,146906,127364,146906,127365,196903,136904,1480003,156903,1127353,1210277292,427292,327342,10000300000,406904,107366,9999417344,256904,10000300000,427292,1337351,417355,306854,1450000,10000300000,0,7355,24567570000,5311282665,4342944819,10000017159,10004893282,10169203872,10995711477,417304,35418755,529087016,864864000,5099999999,40100297194,6450000,1337255,367255,1480002,4210407262,1490004,187208,1347238,187227,347238,0,0,16297658882
+0,100,35,40770297204,1480001,127263,406906,137264,1014156906,406906,146906,406903,147265,127266,146903,127267,146903,127268,146903,127269,146903,127270,146903,127271,146906,127272,2200367229,9858480001,1207226,10810407258,107262,237273,1347234,226905,247274,10000227258,427194,10000300000,1101367241,1480001,137275,227276,367253,406906,2239266906,106906,247277,227278,246906,227279,246906,246906,226906,407261,3207230,417280,427194,306861,4900000000,5000000000,5100000000,0,5200000000,316227766,632455532,410597044,57228327,250341093,282433571,400193033,666661710,2000000037,1151292547,5251000000,5123025851,2000000000,1000000000,15025000000,5033333333,15050000000,25356470000,40170297532,7535010000,4400287532,316875,1406903,406906,427532,367561,106905,10000370000,406904,106902,146903,406903,377549,106904,246906,406904,0,0,18557717458
+0,100,36,40210297549,416903,377555,106906,246906,406906,307542,317565,1210377558,10000300000,106905,256904,10000300000,1186878,10000340000,417569,306861,1450000,11210370000,417569,306854,24653466700,40560296795,6450000,416841,411406839,466906,246844,1490002,211406843,426843,9949206809,7216838,10001490018,406906,106808,1490050,1490018,406904,226904,10186905,1346817,430000,236845,1490000,406904,246904,406903,246846,226847,246903,226848,246903,226849,246903,226850,246904,226904,406904,106902,146906,106904,426795,10000370000,116904,10000300000,426795,416842,306868,6842,26249550000,0,5031830989,5120000000,4715148419,14846737656,4979689679,15064596371,5057079632,40100297282,6450000,417282,411406795,417289,227291,227291,306797,7290,24356620000,5078539816,40030296851,10000,1000600117,307378,40010296908,10000,0,0,18278452574
+0,100,37,40120296909,426908,10000109999,480006,410406918,10000109998,4210406918,480008,136920,196918,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,80000006921,16742928467
 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
+6832*1,100
 1,1,1

software/BALGOL/BALGOL-Examples/README.txt

@@ -224,6 +224,15 @@ DIRICHLET
         results from a run on a 300 RPM LX100 VM system running MCP
         10.1.
 
+Simpsons-Rule/
+    BALGOL program to compute the integral of an arbitrary single-
+    argument function between between two points using Simpson's Rule.
+    This example is adapted to BALGOL from the one at the end of the
+    Algol-58 "Preliminary Report--International Algorithmic Language",
+    Communications of the ACM, Volume 1, Number 12 (December 1958),
+    pages 8-22. It also illustrates the use of the MONITOR declaration
+    to trace variable assignments.
+
 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
@@ -242,6 +251,5 @@ February 2018
     Finalize DIRICHLET program and tests.
 2018-07-07  Paul Kimpel
     Complete Reference-Manual example programs and update results.
-
-
-
+2018-07-19  Paul Kimpel
+    Add Simpsons-Rule example.

software/BALGOL/BALGOL-Examples/Reference-Manual/Example-1/Example-1-Object-WITH-LOADER.card

@@ -489,11 +489,11 @@
 1         0432           2204445464925545440046256590000000000046235300000442344
 1         0433           0000030234200000000000200415949632485445634924300566545
 1         0434           2594653566600001402353000034500000041240234700000422364
-1         0435           0005029003301106442365000373023650000030003600000000000
+1         0435           0005029003301106442365023483023650000030003600000000000
 1         0436           0000000000000000000000000000000000000000000000000000000
 1         0437           0000000000000000000000000000000000000000000000000000000
 1         0438           0500000000000000000000000000000000511000000000000000000
-1         0439           0000000234840010292442000044500000000000000011671392725
+1         0439           0000000234840010292442000044500000000000000013982392725
 1         0440           0000000002240440292443000004224421000036000000001332476
 1         0441           0081040247802310402479000001023590000014247900000132480
 1         0442           0231040247903110182479000003524560000133245602201262479

software/BALGOL/BALGOL-Examples/Reference-Manual/Example-1/Example-1-Object-WITH-LOADER.pt

@@ -90,7 +90,7 @@
 2|CHEC
 2K SUM
 2 ERRO
-2R
+2R    
 00000009899
 33333333333
 33333333333
@@ -625,7 +625,7 @@
 10000000482
 00004204300
 2CORRE
-2CTED
+2CTED 
 2BOUND
 2ARY V
 2ALUES
@@ -2292,7 +2292,7 @@
 00000302710
 00010400133
 00000302709
-2
+2     
 00010000000
 00000000050
 05000000000
@@ -2433,7 +2433,7 @@
 00000302855
 05800000000
 25SENT
-2INEL
+2INEL 
 05110000000
 00000000000
 00000000000
@@ -2452,22 +2452,22 @@
 2RESUL
 2T OUT
 2 OF R
-2ANGE
-2IN
+2ANGE 
+2IN   
 00000442344
 00000302340
 2RESUL
 2T UND
 2EFINE
 2D FOR
-2
+2     
 00000442344
 00000302340
 2RESUL
 2T ILL
 2-DEFI
 2NED F
-2OR
+2OR   
 00000462353
 00000442344
 00000302342
@@ -2482,7 +2482,7 @@
 00000422364
 00050290033
 01106442365
-00037302365
+02348302365
 00000300036
 00000000000
 00000000000
@@ -2504,7 +2504,7 @@
 40010292442
 00004450000
 00000000000
-11671392725
+13982392725
 00000000022
 40440292443
 00000422442
@@ -2550,7 +2550,7 @@
 05062697923
 05050000000
 05015811388
-2SQRT
+2SQRT 
 40380292768
 02771010000
 04400282768
@@ -2589,7 +2589,7 @@
 11210370000
 00000412805
 00000302311
-2FLFX
+2FLFX 
 40110292385
 00006450000
 00000412431
@@ -2643,7 +2643,7 @@
 00000412432
 00000302325
 00000002432
-2SIN
+2SIN  
 00000000000
 05031830989
 05120000000
@@ -2661,7 +2661,7 @@
 00000222766
 00000302387
 00000002765
-2COS
+2COS  
 05078539816
 40030292308
 00000010000

software/BALGOL/BALGOL-Examples/Reference-Manual/Example-1/Example-1-Object.card

@@ -433,11 +433,11 @@
 1         0432           2204445464925545440046256590000000000046235300000442344
 1         0433           0000030234200000000000200415949632485445634924300566545
 1         0434           2594653566600001402353000034500000041240234700000422364
-1         0435           0005029003301106442365000373023650000030003600000000000
+1         0435           0005029003301106442365023483023650000030003600000000000
 1         0436           0000000000000000000000000000000000000000000000000000000
 1         0437           0000000000000000000000000000000000000000000000000000000
 1         0438           0500000000000000000000000000000000511000000000000000000
-1         0439           0000000234840010292442000044500000000000000011671392725
+1         0439           0000000234840010292442000044500000000000000013982392725
 1         0440           0000000002240440292443000004224421000036000000001332476
 1         0441           0081040247802310402479000001023590000014247900000132480
 1         0442           0231040247903110182479000003524560000133245602201262479

software/BALGOL/BALGOL-Examples/Reference-Manual/Example-1/Example-1-Object.pt

@@ -2182,7 +2182,7 @@
 00000422364
 00050290033
 01106442365
-00037302365
+02348302365
 00000300036
 00000000000
 00000000000
@@ -2204,7 +2204,7 @@
 40010292442
 00004450000
 00000000000
-11671392725
+13982392725
 00000000022
 40440292443
 00000422442

software/BALGOL/BALGOL-Examples/Reference-Manual/Example-1/Example-1-Object.tape

@@ -22,7 +22,7 @@
 0,100,18,40950292545,1480002,310400129,7242362536,7266362577,7257362585,7263362587,7243362576,300362525,100132,400134,9332536,309999,422525,6600362573,1490003,300372567,132726,3300362569,16301279999,10000419999,411402525,302525,13310409999,302561,10000109999,1480003,16610409999,302525,100132,9339999,302564,1008610124,1480003,3111402579,2408442365,101302365,422583,10292725,240290101,302539,1008610124,302581,300362592,10092591,1122569,302587,21602020202,100125,362539,122662,1480004,3211402597,990090101,302581,422609,362658,1100362659,400134,3450080,2400128,460126,410400126,1400127,100134,2480010,1430023,120129,130128,1332700,190125,5000190125,100134,412653,442657,1332647,1270128,322633,410127,372539,412610,442657,302647,100127,132615,422545,460129,3260129,302602,1270126,410126,372641,410133,372643,1270133,412603,0,0,12799405927
 0,100,19,40890292640,302647,412570,302647,100134,412662,1490001,400134,1490018,1480008,1420125,10000490008,9400280125,24212657,430020,10000120125,10010400125,2260125,309999,9212603,490051,1212601,2457557,1480008,410182727,1400134,1342675,410402673,449272673,422673,100130,1480004,4211402674,102673,2459999,202604,437557,132727,210400133,211180130,352682,102727,302666,102659,1110400134,302666,304270129,322689,302699,102728,362688,2457557,2210402614,1480008,1400134,2480010,120130,172659,310180129,1342708,4260129,100129,190125,190125,2270125,412715,442657,302647,302539,412614,102645,420131,1202604,2457557,1480008,1400134,430014,132727,2457557,1332723,210180130,342700,122645,302710,10400133,302709,20000000000,10000000,50,5000000000,40050292807,2935010000,410402897,410402898,401262898,442904,0,0,19647087081
 0,100,20,40950292812,302897,422935,10000460000,462943,442308,117302308,462945,502262945,422935,9999202825,6400282943,100101,9999202919,9400282945,10000100101,422945,10000490000,502262945,412943,372845,160212816,4400282943,2213362860,480008,10000490000,192942,4102272943,322825,102942,442904,302897,5212272943,302825,162212816,1108362876,2203362872,2220362870,2234362870,2223362865,2213362927,2214362858,422939,9999202825,442904,302883,302825,9416262945,302853,462943,102942,442904,9992202897,302825,1262941,442904,302883,1262938,302825,1262937,302825,412931,2211402936,1262940,302825,490001,412942,1490001,1402942,2201272936,1262939,302825,412938,372910,422937,112942,490008,9999202890,430000,1132944,1210272944,322897,430000,302897,422941,1212905,440090,300091,9332907,412402898,422915,462936,70292936,300097,402944,302901,0,0,14089797184
-0,100,21,40390292907,422807,462935,10000300000,102942,422940,9999202915,122936,222936,422937,9999202895,1430000,302895,810182932,1352825,410102,11182933,1352825,422935,10001260000,302907,422939,9999202843,502272945,302855,5800000000,28562455563,24955455300,5110000000,0,0,0,0,0,0,0,0,0,0,0,40540292311,442344,302340,25945626453,26300566463,20056460059,24155474500,24955000000,442344,302340,25945626453,26300645544,24546495545,24400465659,20000000000,442344,302340,25945626453,26300495353,22044454649,25545440046,25659000000,462353,442344,302342,0,20041594963,24854456349,24300566545,25946535666,1402353,3450000,412402347,422364,50290033,1106442365,37302365,300036,0,0,0,0,0,0,0,0,0,0,0,5000000000,0,0,5110000000,0,2348,40010292442,4450000,0,11671392725
+0,100,21,40390292907,422807,462935,10000300000,102942,422940,9999202915,122936,222936,422937,9999202895,1430000,302895,810182932,1352825,410102,11182933,1352825,422935,10001260000,302907,422939,9999202843,502272945,302855,5800000000,28562455563,24955455300,5110000000,0,0,0,0,0,0,0,0,0,0,0,40540292311,442344,302340,25945626453,26300566463,20056460059,24155474500,24955000000,442344,302340,25945626453,26300645544,24546495545,24400465659,20000000000,442344,302340,25945626453,26300495353,22044454649,25545440046,25659000000,462353,442344,302342,0,20041594963,24854456349,24300566545,25946535666,1402353,3450000,412402347,422364,50290033,1106442365,2348302365,300036,0,0,0,0,0,0,0,0,0,0,0,5000000000,0,0,5110000000,0,2348,40010292442,4450000,0,13982392725
 0,100,22,40440292443,422442,10000360000,1332476,810402478,2310402479,102359,142479,132480,2310402479,3110182479,352456,1332456,2201262479,102481,242478,222482,242478,222483,402360,102478,252360,222360,242484,402360,102478,252360,222360,122479,352474,242485,10000300000,242484,10000300000,412486,302318,5110000000,0,2550000000,14916450338,5041117101,5062697923,5050000000,5015811388,26258596300,40380292768,2771010000,4400282768,312332,1402360,402363,422768,362797,102362,10000370000,402361,102359,142360,402360,372785,102361,242363,402361,412360,372791,102363,242363,402363,302778,312801,1210372794,10000300000,102362,252361,10000300000,1182335,10000340000,412805,302318,1450000,11210370000,412805,302311,24653466700,40110292385,6450000,412431,411402429,462363,242434,1490002,211402433,422433,9949202399,7212428,10001490018,0,0,13275469266
 0,100,23,40450292396,402363,102398,1490050,1490018,402361,222361,10182362,1342407,430000,232435,1490000,402361,242361,402360,242436,222437,242360,222438,242360,222439,242360,222440,242361,222361,402361,102359,142363,102361,422385,10000370000,112361,10000300000,422385,412432,302325,2432,26249550000,0,5031830989,5120000000,4715148419,14846737656,4979689679,15064596371,5057079632,40100292757,6450000,412757,411402385,412764,222766,222766,302387,2765,24356620000,5078539816,40030292308,10000,1000600117,302818,40130292365,10000,422365,10000109999,480006,410402375,10000109998,4210402375,480008,132377,192375,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,80000002378,19454161738
 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

software/BALGOL/BALGOL-Examples/Reference-Manual/Example-2/Example-2-List.lst

@@ -172,6 +172,8 @@
 COMPILED PROGRAM ENDS AT 0828
 PROGRAM VARIABLES BEGIN AT 2512
 
+ 
+ 
         LAST LABEL PASSED WAS      QUAD2(0001)
 
         VARIABLE IN PROGRAM                    VALUE
@@ -250,7 +252,7 @@ PROGRAM VARIABLES BEGIN AT 2512
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
 
 
-        LAST LABEL PASSED WAS      QUAD2(0002)
+        LAST LABEL PASSED WAS      QUAD4(0001)
 
         VARIABLE IN PROGRAM                    VALUE
 
@@ -262,7 +264,7 @@ PROGRAM VARIABLES BEGIN AT 2512
 
 
 
-         .12152047, 03  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .70741500, 03  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
@@ -297,7 +299,7 @@ PROGRAM VARIABLES BEGIN AT 2512
 
 
 
-        -.63259569, 02  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+        -.70679838, 03  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
@@ -328,7 +330,7 @@ PROGRAM VARIABLES BEGIN AT 2512
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
 
 
-        LAST LABEL PASSED WAS      QUAD2(0003)
+        LAST LABEL PASSED WAS      QUAD3(0001)
 
         VARIABLE IN PROGRAM                    VALUE
 
@@ -340,7 +342,7 @@ PROGRAM VARIABLES BEGIN AT 2512
 
 
 
-         .12152047, 03  .41265074, 02  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .70741500, 03 -.14467482, 04  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
@@ -375,7 +377,7 @@ PROGRAM VARIABLES BEGIN AT 2512
 
 
 
-        -.63259569, 02 -.72935818, 02  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+        -.70679838, 03 -.13862517, 04  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
@@ -418,7 +420,7 @@ PROGRAM VARIABLES BEGIN AT 2512
 
 
 
-         .12152047, 03  .41265074, 02  .11927717, 03  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .70741500, 03 -.14467482, 04 -.68132297, 03  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
@@ -453,7 +455,7 @@ PROGRAM VARIABLES BEGIN AT 2512
 
 
 
-        -.63259569, 02 -.72935818, 02 -.35331520, 02  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+        -.70679838, 03 -.13862517, 04  .72552136, 03  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
@@ -484,13 +486,349 @@ PROGRAM VARIABLES BEGIN AT 2512
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
 
 
-        LAST LABEL PASSED WAS      QUAD3(0001)
+SURVEY  123456     NUMBER OF LEGS    4     CLOSURE ERROR    37.74
+ 
+ 
+ 
+ 
+ 
+ 
+LEG     ANGLE       MEASURED     CORRECTED   NORTH-SOUTH    EAST-WEST
+ 
+NO.   DD MM SS Q     DISTANCE      DISTANCE  DISPLACEMENT DISPLACEMENT
+ 
+  1   45  1 30 2      1000.00      1003.81      -713.03       706.56
+  2   46 13 24 4      2003.69      2013.57     -1398.73     -1448.44
+  3   43 12  2 3       995.28       991.34       719.31      -682.16
+  4   45 25 17 1      2001.64      1991.69      1392.45      1424.04
+ 
+      TOTALS          6000.61      6000.42          .00          .00
+ 
+AREA OF TRAVERSE   3995317.40 SQUARE FEET        91.71 ACRES
+ 
+ 
+ 
+ 
+ 
+        LAST LABEL PASSED WAS      QUAD2(0002)
 
         VARIABLE IN PROGRAM                    VALUE
 
 
 
-          CD                                .00000000, 00
+          CD                                .19916902, 04
+ 
+       ARRAY   EW
+ 
+ 
+ 
+         .70741500, 03 -.14467482, 04 -.68132297, 03  .14257445, 04  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+ 
+ 
+       ARRAY   NS
+ 
+ 
+ 
+        -.70679838, 03 -.13862517, 04  .72552136, 03  .14049255, 04  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+ 
+ 
+        LAST LABEL PASSED WAS      QUAD2(0003)
+ 
+        VARIABLE IN PROGRAM                    VALUE
+ 
+ 
+ 
+          CD                                .19916902, 04
+ 
+       ARRAY   EW
+ 
+ 
+ 
+         .12152047, 03 -.14467482, 04 -.68132297, 03  .14257445, 04  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+ 
+ 
+       ARRAY   NS
+ 
+ 
+ 
+        -.63259569, 02 -.13862517, 04  .72552136, 03  .14049255, 04  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+ 
+ 
+        LAST LABEL PASSED WAS      QUAD2(0004)
+ 
+        VARIABLE IN PROGRAM                    VALUE
+ 
+ 
+ 
+          CD                                .19916902, 04
+ 
+       ARRAY   EW
+ 
+ 
+ 
+         .12152047, 03  .41265074, 02 -.68132297, 03  .14257445, 04  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+ 
+ 
+       ARRAY   NS
+ 
+ 
+ 
+        -.63259569, 02 -.72935818, 02  .72552136, 03  .14049255, 04  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+ 
+ 
+        LAST LABEL PASSED WAS      QUAD1(0002)
+ 
+        VARIABLE IN PROGRAM                    VALUE
+ 
+ 
+ 
+          CD                                .19916902, 04
+ 
+       ARRAY   EW
+ 
+ 
+ 
+         .12152047, 03  .41265074, 02  .11927717, 03  .14257445, 04  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+ 
+ 
+       ARRAY   NS
+ 
+ 
+ 
+        -.63259569, 02 -.72935818, 02 -.35331520, 02  .14049255, 04  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+         .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
+ 
+ 
+        LAST LABEL PASSED WAS      QUAD3(0002)
+ 
+        VARIABLE IN PROGRAM                    VALUE
+ 
+ 
+ 
+          CD                                .19916902, 04
 
        ARRAY   EW
 
@@ -562,13 +900,13 @@ PROGRAM VARIABLES BEGIN AT 2512
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
 
 
-        LAST LABEL PASSED WAS      QUAD4(0001)
+        LAST LABEL PASSED WAS      QUAD4(0002)
 
         VARIABLE IN PROGRAM                    VALUE
 
 
 
-          CD                                .00000000, 00
+          CD                                .19916902, 04
 
        ARRAY   EW
 
@@ -640,13 +978,13 @@ PROGRAM VARIABLES BEGIN AT 2512
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
 
 
-        LAST LABEL PASSED WAS      QUAD4(0002)
+        LAST LABEL PASSED WAS      QUAD4(0003)
 
         VARIABLE IN PROGRAM                    VALUE
 
 
 
-          CD                                .00000000, 00
+          CD                                .19916902, 04
 
        ARRAY   EW
 
@@ -718,7 +1056,7 @@ PROGRAM VARIABLES BEGIN AT 2512
          .00000000, 00  .00000000, 00  .00000000, 00  .00000000, 00
 
 
-SURVEY    1234     NUMBER OF LEGS    7     CLOSURE ERROR     7.33
+SURVEY  654321     NUMBER OF LEGS    7     CLOSURE ERROR     7.33
 
 
 

software/BALGOL/BALGOL-Examples/Reference-Manual/Example-3/Example-3-Code-List.lst

@@ -1,21 +1,21 @@
-0200                   BAC-220 STANDARD VERSION   2/1/62
-
+0200                   BAC-220 STANDARD VERSION   2/1/62
+ 
 0200      COMMENT THIRD EXAMPLE PROGRAM FROM BALGOL MANUAL, MARCH 1963.
-
+ 
 0200
-
+ 
 0200      THE SHORT PROGRAM WHICH FOLLOWS IS FOR A REDUCTION OF A SQUARE MATRIX
-
+ 
 0200      TO TRIDIAGONAL FORM, USING THE METHOD OF HOUSEHOLDER$
-
+ 
 0200
-
+ 
 0200      COMMENT HOUSEHOLDER REDUCTION TO TRIDIAGONAL FORM$
-
+ 
 0200      INTEGER I, J, K, L, R, N$
-
+ 
 0200      ARRAY A(50,50), X(50), P(50)$
-
+ 
 0200      INPUT
                                                  0200   0 0000 30
                                                  0201   0 0000 30
@@ -25,7 +25,7 @@
                                                  0205   0 0100 42 0205
                                                  0206   0 0002 20 0201
                                                  0207   0 0000 40 2398 J
-
+ 
 0205        ELEMENT (I, J, Q)$
                                                  0208   0 0000 42 0208
                                                  0209   0 0002 20 0201
@@ -33,7 +33,7 @@
                                                  0211   0 0009 43 0000
                                                  0212   0 0000 30 0201
                                                  0200             0213
-
+ 
 0213      OUTPUT
                                                  0213   0 0000 30
                                                  0214   0 0000 30
@@ -42,7 +42,7 @@
                                                  0217   0 0001 49 0010
                                                  0218   0 0000 12 2396 R
                                                  0219   0 0000 40 2394 TEMP
-
+ 
 0215        AOUT (A(R,R)),
                                                  0220   0 0000 42 2394 TEMP
                                                  0221   1 0000 10 2449 A
@@ -56,65 +56,65 @@
                                                  0228   0 0000 11 2393 CONST
                                                  0229   0 0002 45 0000
                                                  0230   0 0000 25 2392 S
-
+ 
 0226        BOUT (-0.5/S)$
                                                  0231   0 0000 42 0231
                                                  0232   0 0002 20 0227
                                                  0233   0 0009 43 0000
                                                  0234   0 0000 30 0227
                                                  0226             0235
-
+ 
 0235      FORMAT
                                                  0235   0 0000 30
                                                  0236   0 0004 20 1000
                                                  0237   0 0006 70 1005
                                                  0238   0 0006 60 0000
                                                  0239   1 0000 00 0236
-
+ 
 0235        AF (B10, X10.5, W),
                                                  0240   0 0004 20 4000
                                                  0241   0 0006 70 1005
                                                  0242   0 0006 60 0000
                                                  0243   1 0000 00 0240
-
+ 
 0235        BF (B40, X10.5, W)$
-
+ 
 0235
                                                  0235             0244
-
+ 
 0244        N = 5$
                                                  0244   0 0000 10 2391 CONST
                                                  0245   0 0000 40 2390 N
-
+ 
 0246      IN..
-
+ 
 0246        READ ($$ ELEMENT)$
                                                  0246   0 0000 10 0247
                                                  0247   0 0000 01 0201 ELEME
                                                  0248   0 0000 44 2251 READ
                                                  0249   0 0000 30 2251
-
+ 
 0250        IF I NEQ 0$
                                                  0250   0 0000 10 2399 I
                                                  0251   0 0000 36
-
+ 
 0250          BEGIN
                                                  0252   0 0000 10 2399 I
                                                  0253   0 0000 14 2395 CONST
                                                  0254   0 0001 49 0010
                                                  0255   0 0000 12 2398 J
                                                  0256   0 0000 40 2394 TEMP
-
+ 
 0252          A(I,J) = Q$
                                                  0257   0 0000 10 2397 Q
                                                  0258   0 0000 42 2394 TEMP
                                                  0259   1 0000 40 2449 A
-
+ 
 0260          GO TO IN
                                                  0260   0 0000 30 0246 IN
-
+ 
 0261          END$
-
+ 
 0261
                                                  0251             0261
                                                  0261   0 0000 10 2250 CONST
@@ -132,29 +132,29 @@
                                                  0272   0 1111 31 0274
                                                  0273   0 0000 36
                                                  0274   0 0000 33
-
+ 
 0261        FOR R = (1,1,N-1)$
                                                  0275   0 0000 30
                                                  0274             0276
                                                  0273             0276
-
+ 
 0275          BEGIN
                                                  0276   0 0000 10 0277
                                                  0277   0 0000 01 0214 AOUT
                                                  0278   0 4400 28 2010
                                                  0279   1 0000 40 0000
-
+ 
 0280          WRITE ($$ AOUT, AF)$
                                                  0280   0 0000 10 0281
                                                  0281   0 0000 01 0236 AF
                                                  0282   0 0000 44 2010 WRITE
                                                  0283   0 0100 30 2010
-
+ 
 0284          L = R+1$
                                                  0284   0 0000 10 2250 CONST
                                                  0285   0 0000 12 2396 R
                                                  0286   0 0000 40 2009 L
-
+ 
 0287          S = 0$
                                                  0287   0 0000 46 2392 S
                                                  0288   0 0000 10 2009 L
@@ -169,7 +169,7 @@
                                                  0296   0 1111 31 0298
                                                  0297   0 0000 36
                                                  0298   0 0001 33
-
+ 
 0288          FOR J = (L,1,N)$
                                                  0299   0 0000 30
                                                  0298             0300
@@ -179,9 +179,9 @@
                                                  0302   0 0001 49 0010
                                                  0303   0 0000 12 2398 J
                                                  0304   0 0000 40 2394 TEMP
-
+ 
 0299            S = S + A(R,J)*2$
-
+ 
 0299
                                                  0305   0 0000 42 2394 TEMP
                                                  0306   1 0000 10 2449
@@ -202,7 +202,7 @@
                                                  0319   0 0001 48 0000
                                                  0320   0 0000 10 2008 CONST
                                                  0321   0 0001 49 0000
-
+ 
 0311          S = SIGN(A(R,L))/2SQRT(S)$
                                                  0322   0 0000 40 2394 TEMP
                                                  0323   0 0000 10 2392 S
@@ -218,7 +218,7 @@
                                                  0333   0 0000 01 0227 BOUT
                                                  0334   0 4400 28 2010
                                                  0335   1 0000 40 0000
-
+ 
 0332          WRITE ($$ BOUT, BF)$
                                                  0336   0 0000 10 0337
                                                  0337   0 0000 01 0240 BF
@@ -233,13 +233,13 @@
                                                  0346   1 0000 10 2449 A
                                                  0347   0 0000 24 2392 S
                                                  0348   0 0000 22 2393 CONST
-
+ 
 0340          X(L) = SQRT(0.5 + A(R,L).S)$
                                                  0349   0 0000 44 1963 SQRT
                                                  0350   0 0000 30 1963
                                                  0351   0 0000 42 2009 L
                                                  0352   1 0000 40 2449 X
-
+ 
 0353          S = S/X(L)$
                                                  0353   0 0000 10 2392 S
                                                  0354   0 0002 45 0000
@@ -259,7 +259,7 @@
                                                  0367   0 1111 31 0369
                                                  0368   0 0000 36
                                                  0369   0 0001 33
-
+ 
 0358          FOR J = (R+2,1,N)$
                                                  0370   0 0000 30
                                                  0369             0371
@@ -268,7 +268,7 @@
                                                  0372   0 0000 14 2395 CONST
                                                  0373   0 0001 49 0010
                                                  0374   0 0000 12 2398 J
-
+ 
 0370            X(J) = S.A(R,J)$
                                                  0375   0 0000 40 1961 TEMP
                                                  0376   0 0000 10 2392 S
@@ -291,14 +291,14 @@
                                                  0390   0 1111 31 0392
                                                  0391   0 0000 36
                                                  0392   0 0001 33
-
+ 
 0382          FOR J = (R,1,N)$
                                                  0393   0 0000 30
                                                  0392             0394
                                                  0391             0394
-
+ 
 0393            BEGIN
-
+ 
 0393            S = 0$
                                                  0394   0 0000 46 2392 S
                                                  0395   0 0000 10 2009 L
@@ -313,7 +313,7 @@
                                                  0403   0 1111 31 0405
                                                  0404   0 0000 36
                                                  0405   0 0001 33
-
+ 
 0395            FOR K = (L,1,N)$
                                                  0406   0 0000 30
                                                  0405             0407
@@ -331,7 +331,7 @@
                                                  0416   0 0000 10 2398 J
                                                  0417   0 0000 12 1961 TEMP
                                                  0418   0 0000 40 1961 TEMP
-
+ 
 0406              S = S + A(MIN(J,K), MAX(J,K)).X(K)$
                                                  0419   0 0000 42 1961 TEMP
                                                  0420   1 0000 10 2449 A
@@ -342,19 +342,19 @@
                                                  0406             0426
                                                  0397             0425
                                                  0425   0 0000 30
-
+ 
 0426            P(J) = S
                                                  0426   0 0000 10 2392 S
                                                  0427   0 0000 42 2398 J
                                                  0428   1 0000 40 2399 P
-
+ 
 0429            END$
-
+ 
 0429
                                                  0393             0430
                                                  0384             0429
                                                  0429   0 0000 30
-
+ 
 0430          S = 0$
                                                  0430   0 0000 46 2392 S
                                                  0431   0 0000 10 2009 L
@@ -369,12 +369,12 @@
                                                  0439   0 1111 31 0441
                                                  0440   0 0000 36
                                                  0441   0 0001 33
-
+ 
 0431          FOR J = (L,1,N)$
                                                  0442   0 0000 30
                                                  0441             0443
                                                  0440             0443
-
+ 
 0442            S = S + X(J).P(J)$
                                                  0443   0 0000 42 2398 J
                                                  0444   1 0000 10 2449 X
@@ -396,12 +396,12 @@
                                                  0457   0 1111 31 0459
                                                  0458   0 0000 36
                                                  0459   0 0001 33
-
+ 
 0449          FOR J = (L,1,N)$
                                                  0460   0 0000 30
                                                  0459             0461
                                                  0458             0461
-
+ 
 0460            P(J) = P(J) - S.X(J)$
                                                  0461   0 0000 11 2392 S
                                                  0462   0 0000 42 2398 J
@@ -423,7 +423,7 @@
                                                  0475   0 1111 31 0477
                                                  0476   0 0000 36
                                                  0477   0 0001 33
-
+ 
 0467          FOR J = (L,1,N)$
                                                  0478   0 0000 30
                                                  0477             0479
@@ -440,7 +440,7 @@
                                                  0487   0 1111 31 0489
                                                  0488   0 0000 36
                                                  0489   0 0001 33
-
+ 
 0478            FOR K = (J,1,N)$
                                                  0490   0 0000 30
                                                  0489             0491
@@ -459,7 +459,7 @@
                                                  0502   1 0000 10 2449 X
                                                  0503   0 0000 42 1959 K
                                                  0504   1 0000 24 2399 P
-
+ 
 0490              A(J,K) = A(J,K) - 2(X(J).P(K) + X(K).P(J))
                                                  0505   0 0000 40 1958 TEMP
                                                  0506   1 0000 10 2449 X
@@ -479,9 +479,9 @@
                                                  0478             0519
                                                  0469             0518
                                                  0518   0 0000 30
-
+ 
 0510          END$
-
+ 
 0510
                                                  0275             0520
                                                  0263             0519
@@ -490,19 +490,19 @@
                                                  0521   0 0000 01 0214 AOUT
                                                  0522   0 4400 28 2010
                                                  0523   1 0000 40 0000
-
+ 
 0520        WRITE ($$ AOUT, AF)$
                                                  0524   0 0000 10 0525
                                                  0525   0 0000 01 0236 AF
                                                  0526   0 0000 44 2010 WRITE
                                                  0527   0 0100 30 2010
-
+ 
 0528        STOP$
                                                  0528   0 0137 00 7310
-
+ 
 0529        GO TO IN$
                                                  0529   0 0000 30 0246 IN
-
+ 
 0530      FINISH$
                                                  0530   0 9669 00 9669
                                                  0531   0 1000 60 0000
@@ -927,7 +927,7 @@
                                                  1923   0 0000 42 1944
                                                  1924   0 0050 29 0033
                                                  1925   0 1106 44 1945 REED
-                                                 1926   0 0037 30 1945 REED
+                                                 1926   0 1928 30 1945 REED
                                                  1927   0 0000 30 0036
                                                  1928   0 0000 00 0000
                                                  1929   0 0000 00 0000
@@ -1009,9 +1009,9 @@
                                                  1957   0 0000 00 0001
 COMPILED PROGRAM ENDS AT 0531
 PROGRAM VARIABLES BEGIN AT 1888
-
-
-
+ 
+ 
+ 
              4.00000
                                           -3.16227
              3.29999

software/BALGOL/BALGOL-Examples/Reference-Manual/Example-5/Example-5-Code-List.lst

@@ -1,35 +1,35 @@
- 
- 
- 
- 
- 
- 
+
+
+
+
+
+
 0200                   BAC-220 STANDARD VERSION   2/1/62
- 
+
 0200      COMMENT FIFTH EXAMPLE PROGRAM - FROM BALGOL MANUAL, JANUARY 1961
- 
+
 0200      EDITION.
- 
+
 0200
- 
+
 0200      THE FOLLOWING PROGRAM FOR OPTICAL RAY-TRACING WAS WRITTEN BY
- 
+
 0200      R. MITCHELL$
- 
+
 0200
- 
+
 0200      COMMENT OPTICAL TRACE PROGRAM, R. F. MITCHELL, VIDYA 1$
- 
+
 0200      INTEGER M, J, K, JA, JB$
- 
+
 0200      ARRAY A(4), B(4), C(4)$
- 
+
 0200
                                                  0200   0 0000 11 4987 CONST
                                                  0201   0 0000 40 4996 A
                                                  0202   0 0000 11 4986 CONST
                                                  0203   0 0000 40 4998 A
- 
+
 0200      A(1) = -260.0$ A(3) = -600.0$ A(4) = 0.0$
                                                  0204   0 0000 46 4999 A
                                                  4980   0 5225 00 0000
@@ -38,7 +38,7 @@
                                                  4983   0 5310 00 0000
                                                  4984   0 5312 50 0000
                                                  4985   0 5315 00 0000
- 
+
 0205      ARRAY G(6) = (25.0, 50.0, 75.0, 100.0, 125.0, 150.0)$
                                                  0205   0 0000 10 4979 CONST
                                                  0206   0 0000 40 4988 C
@@ -46,7 +46,7 @@
                                                  0208   0 0000 40 4989 C
                                                  0209   0 0000 10 4979 CONST
                                                  0210   0 0000 40 4990 C
- 
+
 0205      C(1) = 1.0$ C(2) = 3.436$ C(3) = 1.0$ C(4) = -1.0$
                                                  0211   0 0000 11 4979 CONST
                                                  0212   0 0000 40 4991 C
@@ -54,7 +54,7 @@
                                                  0214   0 0000 40 4993 B
                                                  0215   0 0000 10 4979 CONST
                                                  0216   0 0000 40 4994 B
- 
+
 0213      B(2) = 339.75$ B(3) = 1.0$ B(4) = 0.0$
                                                  0217   0 0000 46 4995 B
                                                  4971   0 5155 00 0000
@@ -63,9 +63,9 @@
                                                  4974   0 5162 50 0000
                                                  4975   0 5167 50 0000
                                                  4976   0 5170 00 0000
- 
+
 0218      ARRAY B1(6) = (5.5, 5.75, 6.0, 6.25, 6.75, 7.0)$
- 
+
 0218
                                                  0218   0 0000 10 4970 CONST
                                                  0219   0 0000 40 4969 JB
@@ -79,14 +79,14 @@
                                                  0226   0 1111 31 0228
                                                  0227   0 0000 36
                                                  0228   0 0001 33
- 
+
 0218      FOR JB = (1, 1, 6)$
                                                  0229   0 0000 30
                                                  0228             0230
                                                  0227             0230
- 
+
 0229        BEGIN
- 
+
 0229        B(1) = B1(JB)$
                                                  0230   0 0000 42 4969 JB
                                                  0231   1 0000 10 4970 B1
@@ -98,7 +98,7 @@
                                                  0237   0 0002 45 0000
                                                  0238   0 0000 25 4967 TEMP
                                                  0239   0 0000 22 4979 CONST
- 
+
 0233        A(2) = A(1) - B1(JB)(1.0 - 1.0/C(2).C(2))$
                                                  0240   0 0000 42 4969 JB
                                                  0241   1 0000 24 4970 B1
@@ -110,7 +110,7 @@
                                                  0247   0 0000 01 0000 PARAM
                                                  0248   0 4400 28 4727
                                                  0249   1 0000 40 0000
- 
+
 0246        WRITE ($$ PARAM, F6)$
                                                  0250   0 0000 10 0251
                                                  0251   0 0000 01 0000 F6
@@ -149,7 +149,7 @@
                                                  0267             0281
                                                  0258             0280
                                                  0280   0 0000 30
- 
+
 0254        OUTPUT PARAM (FOR K = (1, 1, 4)$ (A(K), B(K), C(K)))$
                                                  0281   0 0009 43 0000
                                                  0282   0 0000 30 0255
@@ -161,7 +161,7 @@
                                                  0286   0 0006 60 0400
                                                  0287   1 0000 11 0285
                                                  0288   1 0000 00 0284
- 
+
 0283        FORMAT F6 (W3,11(3F20.8,W4))$
                                                  0283             0289
                                                  0289   0 0000 10 4970 CONST
@@ -176,14 +176,14 @@
                                                  0297   0 1111 31 0299
                                                  0298   0 0000 36
                                                  0299   0 0001 33
- 
+
 0289        FOR M = (1, 1, 6)$
                                                  0300   0 0000 30
                                                  0299             0301
                                                  0298             0301
- 
+
 0300          BEGIN
- 
+
 0300          H1 = G(M)$
                                                  0301   0 0000 42 4724 M
                                                  0302   1 0000 10 4979 G
@@ -192,7 +192,7 @@
                                                  0305   0 0000 01 0000 GVALU
                                                  0306   0 4400 28 4727
                                                  0307   1 0000 40 0000
- 
+
 0304          WRITE ($$ GVALU, F1)$
                                                  0308   0 0000 10 0309
                                                  0309   0 0000 01 0000 F1
@@ -201,7 +201,7 @@
                                                  0312   0 0000 30
                                                  0305             0313
                                                  0313   0 0000 30
- 
+
 0312          OUTPUT GVALU (H1)$
                                                  0314   0 0000 10 4723 H1
                                                  0315   0 0000 42 0315
@@ -216,12 +216,12 @@
                                                  0322   0 0006 70 2008
                                                  0323   0 0006 60 0600
                                                  0324   1 0000 00 0320
- 
+
 0319          FORMAT F1 (B10,*G*,X20.8,W6)$
                                                  0319             0325
                                                  0325   0 0000 46 4722 SUMD
                                                  0326   0 0000 46 4721 E
- 
+
 0325          SUMD = 0.0$ E = 0.0$ P = H1$
                                                  0327   0 0000 10 4723 H1
                                                  0328   0 0000 40 4720 P
@@ -237,14 +237,14 @@
                                                  0337   0 1111 31 0339
                                                  0338   0 0000 36
                                                  0339   0 0001 33
- 
+
 0329          FOR J = (1, 1, 3)$
                                                  0340   0 0000 30
                                                  0339             0341
                                                  0338             0341
- 
+
 0340            BEGIN
- 
+
 0340            R1 = P/A(J)$
                                                  0341   0 0000 10 4720 P
                                                  0342   0 0002 45 0000
@@ -252,20 +252,20 @@
                                                  0344   1 0000 25 4995 A
                                                  0345   0 0000 40 4717 R1
                                                  0346   0 0001 10 4717 R1
- 
+
 0346            IF ABS(R1) GTR 0.95$
                                                  0347   0 0000 13 4716 CONST
                                                  0348   0 1111 31 0350
                                                  0349   0 0000 36
                                                  0350   0 0001 33
- 
+
 0346              GO TO PRINT$
- 
+
 0346
                                                  0351   0 0000 30 0000 PRINT
                                                  0350             0352
                                                  0349             0352
- 
+
 0352            I = ARCSIN(R1)$
                                                  0352   0 0000 10 4717 R1
                                                  0353   0 0000 44 4703 ARCSI
@@ -274,32 +274,32 @@
                                                  0356   0 0000 10 4717 R1
                                                  0357   0 0000 42 4719 J
                                                  0358   1 0000 24 4987 C
- 
+
 0356            R2 = R1.C(J)/C(J+1)$
                                                  0359   0 0002 45 0000
                                                  0360   1 0000 25 4988 C
                                                  0361   0 0000 40 4701 R2
                                                  0362   0 0001 10 4701 R2
- 
+
 0362            IF ABS(R2) GTR 0.95$
                                                  0363   0 0000 13 4716 CONST
                                                  0364   0 1111 31 0366
                                                  0365   0 0000 36
                                                  0366   0 0001 33
- 
+
 0362              GO TO PRINT$
- 
+
 0362
                                                  0367   0 0000 30 0000 PRINT
                                                  0366             0368
                                                  0365             0368
- 
+
 0368            IP = ARCSIN(R2)$
                                                  0368   0 0000 10 4701 R2
                                                  0369   0 0000 44 4703 ARCSI
                                                  0370   0 0000 30 4703
                                                  0371   0 0000 40 4700 IP
- 
+
 0372            E = E + I - IP$
                                                  0372   0 0000 10 4702 I
                                                  0373   0 0000 23 4700 IP
@@ -310,7 +310,7 @@
                                                  0378   0 0000 40 4967 TEMP
                                                  0379   0 0000 10 4702 I
                                                  0380   0 0000 22 4721 E
- 
+
 0376            H2 =(J+1)SIN(E+I)$
                                                  0381   0 0000 44 4644 SIN
                                                  0382   0 0000 30 4644
@@ -320,45 +320,45 @@
                                                  0386   0 0000 30 4629
                                                  0387   0 0000 24 4643 TEMP
                                                  0388   0 0000 40 4628 H2
- 
+
 0389            R3 = SIN(E)$
                                                  0389   0 0000 10 4721 E
                                                  0390   0 0000 44 4644 SIN
                                                  0391   0 0000 30 4644
                                                  0392   0 0000 40 4627 R3
- 
+
 0393            COMMENT IF R3 = SIN(E)$                                         *APPAREN
- 
+
 0393            IF R3 EQL 0.0$
                                                  0393   0 0000 10 4627 R3
                                                  0394   0 0000 36 0396
                                                  0395   0 0000 30
- 
+
 0393              R3 = 1.0**-20$
- 
+
 0393
                                                  0396   0 0000 10 4626 CONST
                                                  0397   0 0000 40 4627 R3
                                                  0395             0398
                                                  0398   0 0000 10 4628 H2
                                                  0399   0 0000 23 4723 H1
- 
+
 0398            DL = (H2-H1)/R3$
                                                  0400   0 0002 45 0000
                                                  0401   0 0000 25 4627 R3
                                                  0402   0 0000 40 4625 DL
- 
+
 0403            DU = DL.C(J+1)$
                                                  0403   0 0000 10 4625 DL
                                                  0404   0 0000 42 4719 J
                                                  0405   1 0000 24 4988 C
                                                  0406   0 0000 40 4624 DU
- 
+
 0407            SUMD = SUMD + DU$
                                                  0407   0 0000 10 4624 DU
                                                  0408   0 0000 22 4722 SUMD
                                                  0409   0 0000 40 4722 SUMD
- 
+
 0410            H1 = H2$
                                                  0410   0 0000 10 4628 H2
                                                  0411   0 0000 40 4723 H1
@@ -366,7 +366,7 @@
                                                  0413   0 0000 01 0000 EDH
                                                  0414   0 4400 28 4727
                                                  0415   1 0000 40 0000
- 
+
 0412            WRITE ($$ EDH, F2)$
                                                  0416   0 0000 10 0417
                                                  0417   0 0000 01 0000 F2
@@ -381,7 +381,7 @@
                                                  0425   0 0000 10 4624 DU
                                                  0426   0 0000 42 0426
                                                  0427   0 0002 20 0421
- 
+
 0420            OUTPUT EDH(E, DU, H1)$
                                                  0428   0 0000 10 4723 H1
                                                  0429   0 0000 42 0429
@@ -402,22 +402,22 @@
                                                  0442   0 0006 70 1508
                                                  0443   0 0006 60 0400
                                                  0444   1 0000 00 0434
- 
+
 0433            FORMAT F2 (B5,*E*,X15.8,B10,*D*,X15.8,B10,*H*,X15.8,W4)$
                                                  0433             0445
                                                  0445   0 0000 10 4970 CONST
                                                  0446   0 1000 38 0448
                                                  0447   0 0001 45 0002
- 
+
 0445            IF (PCS(1))$
                                                  0448   0 0000 36
- 
+
 0445              BEGIN
                                                  0449   0 0000 10 0450
                                                  0450   0 0000 01 0000 ALL
                                                  0451   0 4400 28 4727
                                                  0452   1 0000 40 0000
- 
+
 0453              WRITE ($$ ALL, F5)$
                                                  0453   0 0000 10 0454
                                                  0454   0 0000 01 0000 F5
@@ -453,7 +453,7 @@
                                                  0483   0 0000 10 4624 DU
                                                  0484   0 0000 42 0484
                                                  0485   0 0002 20 0458
- 
+
 0457              OUTPUT ALL (R1, R2, I, IP, E, H2, R3, DL, DU, P)$
                                                  0486   0 0000 10 4720 P
                                                  0487   0 0000 42 0487
@@ -467,18 +467,18 @@
                                                  0493   0 0006 60 0400
                                                  0494   1 0000 02 0492
                                                  0495   1 0000 00 0492
- 
+
 0491              FORMAT F5 (2(5F12.5,W4))
- 
+
 0496              END$
- 
+
 0496
                                                  0491             0496
                                                  0448             0496
                                                  0496   0 0000 42 4719 J
                                                  0497   1 0000 10 4995 A
                                                  0498   0 0000 24 4701 R2
- 
+
 0496            P = A(J).R2 - R3(A(J+1) = A(J) + B(J))
                                                  0499   0 0000 40 4643 TEMP
                                                  0500   1 0000 10 4991 B
@@ -489,9 +489,9 @@
                                                  0505   0 0000 40 4643 TEMP
                                                  0506   0 0000 11 4643 TEMP
                                                  0507   0 0000 40 4720 P
- 
+
 0503            END$
- 
+
 0503
                                                  0340             0509
                                                  0331             0508
@@ -500,11 +500,11 @@
                                                  0510   0 0002 45 0000
                                                  0511   0 0000 25 4627 R3
                                                  0512   0 0000 22 4979 CONST
- 
+
 0509          L = A(3)(1.0 + R2/R3)$
                                                  0513   0 0000 24 4998 A
                                                  0514   0 0000 40 4623 L
- 
+
 0515          SUMD = SUMD - DU$
                                                  0515   0 0000 10 4722 SUMD
                                                  0516   0 0000 23 4624 DU
@@ -513,7 +513,7 @@
                                                  0519   0 0000 01 0000 LSUMD
                                                  0520   0 4400 28 4727
                                                  0521   1 0000 40 0000
- 
+
 0518          WRITE ($$ LSUMD, F3)$
                                                  0522   0 0000 10 0523
                                                  0523   0 0000 01 0000 F3
@@ -525,7 +525,7 @@
                                                  0528   0 0000 10 4623 L
                                                  0529   0 0000 42 0529
                                                  0530   0 0002 20 0527
- 
+
 0526          OUTPUT LSUMD (L, SUMD)$
                                                  0531   0 0000 10 4722 SUMD
                                                  0532   0 0000 42 0532
@@ -544,14 +544,14 @@
                                                  0543   0 0006 60 0600
                                                  0544   0 0006 60 0400
                                                  0545   1 0000 00 0537
- 
+
 0536          FORMAT F3 (B10,*L*,X20.8,B10,*SUMD*,X20.8,W6,W4)
- 
+
 0536          END
                                                  0536             0546
- 
+
 0546        END$
- 
+
 0546
                                                  0300             0547
                                                  0291             0546
@@ -559,12 +559,12 @@
                                                  0229             0548
                                                  0220             0547
                                                  0547   0 0000 30
- 
+
 0547      STOP$
- 
+
 0547
                                                  0548   0 0137 00 7310
- 
+
 0549      PRINT..
                                                  0367             0549
                                                  0351             0549
@@ -572,7 +572,7 @@
                                                  0550   0 0000 01 0000 ERROR
                                                  0551   0 4400 28 4727
                                                  0552   1 0000 40 0000
- 
+
 0553      WRITE ($$ ERROR, F)$
                                                  0553   0 0000 10 0554
                                                  0554   0 0000 01 0000 F
@@ -595,7 +595,7 @@
                                                  0570   1 0000 10 4988 C
                                                  0571   0 0000 42 0571
                                                  0572   0 0002 20 0558
- 
+
 0557      OUTPUT ERROR (R1, R2, A(J), C(J+1), P)$
                                                  0573   0 0000 10 4720 P
                                                  0574   0 0000 42 0574
@@ -617,19 +617,19 @@
                                                  0588   3 4314 00 0000
                                                  0589   0 0006 70 0906
                                                  0590   0 0004 20 0400
- 
+
 0578      FORMAT F (*R1*,X9.4,B4,*R2*,X9.4,B4,*A*,X9.4,B4,*C*,X9.6,B4,
                                                  0591   3 5714 00 0000
                                                  0592   0 0006 70 0904
                                                  0593   0 0006 60 0100
                                                  0594   1 0000 00 0579
- 
+
 0578                 *P*,X9.4,W1)$
                                                  0578             0595
- 
+
 0595      STOP$
                                                  0595   0 0137 00 7310
- 
+
 0596      FINISH$
                                                  0596   0 9669 00 9669
                                                  0597   0 1000 60 0000
@@ -933,7 +933,7 @@
                                                  4588   0 0000 42 4609
                                                  4589   0 0050 29 0033
                                                  4590   0 1106 44 4610 REED
-                                                 4591   0 0037 30 4610 REED
+                                                 4591   0 4593 30 4610 REED
                                                  4592   0 0000 30 0036
                                                  4593   0 0000 00 0000
                                                  4594   0 0000 00 0000
@@ -1193,134 +1193,134 @@
                                                  4622   0 0000 00 0001
 COMPILED PROGRAM ENDS AT 0597
 PROGRAM VARIABLES BEGIN AT 4399
- 
- 
- 
- 
- 
- 
- 
- 
- 
- 
- 
- 
- 
+
+
+
+
+
+
+
+
+
+
+
+
+
       -.26000000, 03       .55000000, 01       .10000000, 01
- 
+
       -.26503413, 03       .33975000, 03       .34360000, 01
- 
+
       -.60000000, 03       .10000000, 01       .10000000, 01
- 
+
        .00000000, 00       .00000000, 00      -.10000000, 01
- 
- 
- 
- 
- 
- 
- 
- 
- 
- 
- 
- 
- 
- 
- 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
           G         25.00000000
- 
- 
+
+
      E     -.06831474          D  1274.89130000          H     -.32774976
- 
+
  -.96153,-01 -.27984,-01 -.96302,-01 -.27987,-01 -.68314,-01
- 
+
  -.32774, 00 -.68261,-01  .37103, 03  .12748, 04  .25000, 02
- 
+
      E     -.16537255          D      .29356608          H     -.37607655
- 
+
   .39672,-01  .13631, 00  .39683,-01  .13674, 00 -.16537, 00
- 
+
  -.37607, 00 -.16461, 00  .29356, 00  .29356, 00 -.10096, 02
- 
+
      E     -.65489915          D    -4.52550560          H    -3.13246810
- 
+
  -.24232, 00  .24232, 00 -.24476, 00  .24476, 00 -.65489, 00
- 
+
  -.31324, 01 -.60907, 00  .45255, 01 -.45255, 01 -.20658, 02
- 
+
           L         51.33266500          SUMD       1275.18480000
- 
- 
- 
- 
+
+
+
+
           G         50.00000000
- 
- 
+
+
      E     -.13751546          D  1269.55340000          H     -.65003198
- 
+
  -.19230, 00 -.55968,-01 -.19351, 00 -.55997,-01 -.13751, 00
- 
+
  -.65003, 00 -.13708, 00  .36948, 03  .12695, 04  .50000, 02
- 
+
      E     -.33564916          D      .32976416          H     -.75865041
- 
+
   .79904,-01  .27455, 00  .79989,-01  .27812, 00 -.33564, 00
- 
+
  -.75865, 00 -.32938, 00  .32976, 00  .32976, 00 -.20335, 02
- 
+
      E    -1.36039550          D    -3.12936780          H    -3.81900720
- 
+
  -.49024, 00  .49024, 00 -.51237, 00  .51237, 00 -.13603, 01
- 
+
  -.38190, 01 -.97794, 00  .31293, 01 -.31293, 01 -.41793, 02
- 
+
           L         42.51399500          SUMD       1269.88310000
- 
- 
- 
- 
+
+
+
+
           G         75.00000000
- 
- 
+
+
      E     -.20856805          D  1260.51770000          H     -.96093506
- 
+
  -.28846, 00 -.83952,-01 -.29261, 00 -.84051,-01 -.20856, 00
- 
+
  -.96093, 00 -.20705, 00  .36685, 03  .12605, 04  .75000, 02
- 
+
      E     -.51685446          D      .39303495          H    -1.15515240
- 
+
   .12129, 00  .41675, 00  .12159, 00  .42987, 00 -.51685, 00
- 
+
  -.11551, 01 -.49414, 00  .39303, 00  .39303, 00 -.30868, 02
- 
+
      E    -2.21304160          D     1.04110740          H     -.32148266
- 
+
  -.75002, 00  .75002, 00 -.84809, 00  .84809, 00 -.22130, 01
- 
+
  -.32148, 00 -.80075, 00 -.10411, 01  .10411, 01 -.63939, 02
- 
+
           L          5.40105630          SUMD       1260.91070000
- 
- 
- 
- 
+
+
+
+
           G        100.00000000
- 
- 
+
+
      E     -.28261909          D  1247.55250000          H    -1.25355430
- 
+
  -.38461, 00 -.11193, 00 -.39479, 00 -.11217, 00 -.28261, 00
- 
+
  -.12535, 01 -.27887, 00  .36308, 03  .12475, 04  .10000, 03
- 
+
      E     -.71812001          D      .48907616          H    -1.57535180
- 
+
   .16451, 00  .56527, 00  .16526, 00  .60076, 00 -.71812, 00
- 
+
  -.15753, 01 -.65797, 00  .48907, 00  .48907, 00 -.41869, 02
 R1  -1.0295    R2    .5652    A  85.2500    C-1.000000    P -87.7708
- 
- 
- 
+
+
+

software/BALGOL/BALGOL-Examples/Simpsons-Rule/EMODE/SIMPS-Emode-Code-List.lst

@@ -0,0 +1,794 @@
+
+Unisys ClearPath LX Series SYSTEMS BDMSALGOL COMPILER, VERSION 51.190.8023, THURSDAY, 07/19/2018, 05:15 PM.
+
+
+
+                                 ( P A U L ) C A N D E / C O D E 2 3 0 0   O N   O P S
+                                 = = = = = = = = = = = = = = = = = = = = = = = = = = =
+
+
+                BEGIN                                                                           00000100  0000:0000:0
+(01,0002) = BLOCK#1
+(01,0003) = SEGMENT DESCRIPTOR
+                                                                                              BLOCK#1 IS SEGMENT 0003
+                                           0003:0000:0  NVLD               FF
+                COMMENT SIMPSON-S RULE INTEGRATION PROCEDURE, TRANSLATED TO BALGOL          1   00000200  0003:0000:1
+                        FROM THE EXAMPLE IN THE PRELIMINARY IAL REPORT;                         00000300  0003:0000:1
+                                                                                                00000400  0003:0000:1
+                COMMENT                                                                         00000500  0003:0000:1
+                    EXAMPLE.. INTEGRATION OF A FUNCTION F(X) BY SIMPSON-S RULE. THE             00000600  0003:0000:1
+                    VALUES OF F(X) ARE SUPPLIED BY AN ASSUMED EXISTENT FUNCTION                 00000700  0003:0000:1
+                    ROUTINE. THE MESH SIZE IS HALVED UNTIL TWO SUCCESSIVE SIMPSON               00000800  0003:0000:1
+                    SUMS AGREE WITHIN A PRESCRIBED ERROR. DURING THE MESH REDUCTION             00000900  0003:0000:1
+                    F(X) IS EVALUATED AT MOST ONCE FOR ANY X. A VALUE V GREATER THAN            00001000  0003:0000:1
+                    THE MAXIMUM ABSOLUTE VALUE ATTAINED BY THE FUNCTION ON THE                  00001100  0003:0000:1
+                    INTERVAL IS REQUIRED FOR INITIALZING;                                       00001200  0003:0000:1
+                                                                                                00110000  0003:0000:1
+                FILE LINE(KIND=PRINTER, MAXRECSIZE=132, FRAMESIZE=8, FILEUSE=OUT);              00110100  0003:0000:1
+(02,0002) = LINE
+                                                  DATA POOL AT (02,0002):
+                                                  0000  010000E02000
+                                                  0001  08010104D3C9
+                                                  0002  D5C500000000
+                                                  0003  0002001D0012
+                                                  0004  000000000004
+                                                  0005  000200080011
+                                                  0006  000000000007
+                                                  0007  0002000F0011
+                                                  0008  000000000084
+                                                  0009  000200A10011
+                                                  000A  000000000008
+                                                  000B  0002008E0011
+                                                  000C  000000000002
+                                                  000D  000000000000
+                                                                                           DATA LENGTH IN WORDS IS 000E
+                FORMAT F1("SUM = ",F12.5);                                                      00110200  0003:0000:1
+(01,0004) = POOL DATA DESCRIPTOR
+000000000000010003006008E2E4D4407E4031000100B005060001000000
+                REAL SUM;                                                                       00110300  0003:0000:1
+(02,0003) = SUM
+                LIST RESULT (SUM);                                                              00110400  0003:0000:1
+(02,0004) = POOL DATA DESCRIPTOR
+                                           0003:0000:1  NVLD               FF
+                                           0003:0000:2  NVLD               FF
+                                           0003:0000:3  NVLD               FF
+(02,0005) = WRITE FREE FIELD IO LIST PCW
+(01,0005) = POOL DATA DESCRIPTOR
+                                           0003:0000:4  MKST               AE
+                                           0003:0000:5  NAMC  (03,0002)    7002
+                                           0003:0001:1  LT8   67           B243
+                                           0003:0001:3  ZERO               B0
+                                           0003:0001:4  VALC  (02,0003)    1003
+                                           0003:0002:0  ENTR               AB
+                                           0003:0002:1  EXIT               A3
+(02,0006) = WRITE FREE ADD STACK INFO
+                                           0003:0002:2  NAMC  (01,0005)    6005
+                                           0003:0002:4  LOAD               BD
+                                           0003:0002:5  NAMC  (03,0002)    7002
+                                           0003:0003:1  LOAD               BD
+                                           0003:0003:2  OVRD               BA
+                                           0003:0003:3  NAMC  (02,0004)    5004
+                                           0003:0003:5  LOAD               BD
+                                           0003:0004:0  NAMC  (03,0003)    7003
+                                           0003:0004:2  LOAD               BD
+                                           0003:0004:3  OVRD               BA
+                                           0003:0004:4  LT8   22           B216
+                                           0003:0005:0  RETN               A7
+(02,0007) = WRITE IO LIST PCW
+                                           0003:0005:1  MKST               AE
+                                           0003:0005:2  NAMC  (03,0002)    7002
+                                           0003:0005:4  LT8   3            B203
+                                           0003:0006:0  VALC  (02,0003)    1003
+                                           0003:0006:2  ENTR               AB
+                                           0003:0006:3  EXIT               A3
+(02,0008) = READ IO LIST PCW
+                                           0003:0006:4  MKST               AE
+                                           0003:0006:5  NAMC  (03,0002)    7002
+                                           0003:0007:1  LT8   3            B203
+                                           0003:0007:3  VALC  (02,0003)    1003
+                                           0003:0007:5  ENTR               AB
+                                           0003:0008:0  NAMC  (02,0003)    5003
+                                           0003:0008:2  STOD               B8
+                                           0003:0008:3  EXIT               A3
+                                                                                                00200000  0003:0008:4
+                REAL PROCEDURE SIMPS(A, B, DELTA, V, F);                                        00200100  0003:0008:4
+(02,0009) = SIMPS
+                  VALUE A, B, DELTA, V;                                                         00200200  0003:0008:4
+                  REAL A, B, DELTA, V;                                                          00200300  0003:0008:4
+                  REAL PROCEDURE F(X); VALUE X; REAL X; FORMAL;                                 00200400  0003:0008:4
+(04,0002) = X
+(03,0002) = A
+(03,0003) = B
+(03,0004) = DELTA
+(03,0005) = V
+(03,0006) = F
+                    COMMENT A, B ARE THE MIN AND MAX, RESP. OF THE POINTS DEF.                  00200500  0003:0008:4
+                    INTERVAL OF INTEG. F() IS THE FUNCTION TO INTEGRATED.                       00200600  0003:0008:4
+                    DELTA IS THE PERMISSIBLE DIFFERENCE BETWEEN TO SUCCESSIVE SIMPSON           00200700  0003:0008:4
+                    SUMS. V IS GREATER THAN THE MAXIMUM ABSOLUTE VALUE OF F ON A, B;            00200800  0003:0008:4
+                  BEGIN                                                                         00200900  0003:0008:4
+(03,0007) = PROCEDURE VALUE
+                  INTEGER K, N;                                                                 00201000  0003:0008:4
+(01,0006) = SEGMENT DESCRIPTOR
+                                                                                                SIMPS IS SEGMENT 0006
+                                           0006:0000:0  NVLD               FF
+(03,0008) = K
+(03,0009) = N
+                  REAL H, I, IBAR, J, S;                                                    2   00201100  0006:0000:1
+(03,000A) = H
+(03,000B) = I
+(03,000C) = IBAR
+(03,000D) = J
+(03,000E) = S
+                  LABEL J1;                                                                     00201200  0006:0000:1
+                  MONITOR LINE (IBAR, N, H, J, S K, I);                                         00201300  0006:0000:1
+                                                                                                00201400  0006:0000:1
+                  IBAR:= V*(B-A);                                                               00201500  0006:0000:1
+(01,0007) = MONITOR
+                                           0006:0000:1  MKST               AE
+                                           0006:0000:2  NAMC  (01,0007)    6007
+                                           0006:0000:4  NAMC  (03,000C)    700C
+                                           0006:0001:0  STFF               AF
+                                           0006:0001:1  VALC  (03,0005)    3005
+                                           0006:0001:3  VALC  (03,0003)    3003
+                                           0006:0001:5  VALC  (03,0002)    3002
+                                           0006:0002:1  SUBT               81
+                                           0006:0002:2  MULT               82
+                                           0006:0002:3  XTND               CE
+                                           0006:0002:4  LT8   2            B202
+                                           0006:0003:0  LT48               BE
+                                           0006:0004                       C9C2C1D94040 (3"6234130166240100")
+                                           0006:0005:0  NAMC  (02,0002)    5002
+                                           0006:0005:2  STFF               AF
+                                           0006:0005:3  ENTR               AB
+                                           0006:0005:4  DLET               B5
+                  N:= 1;                                                                        00201600  0006:0005:5
+                                           0006:0005:5  MKST               AE
+                                           0006:0006:0  NAMC  (01,0007)    6007
+                                           0006:0006:2  NAMC  (03,0009)    7009
+                                           0006:0006:4  STFF               AF
+                                           0006:0006:5  ONE                B1
+                                           0006:0007:0  XTND               CE
+                                           0006:0007:1  LT8   3            B203
+                                           0006:0007:3  LT48               BE
+                                           0006:0008                       D54040404040 (3"6524010020040100")
+                                           0006:0009:0  NAMC  (02,0002)    5002
+                                           0006:0009:2  STFF               AF
+                                           0006:0009:3  ENTR               AB
+                                           0006:0009:4  DLET               B5
+                  H:= (B-A)/2;                                                                  00201700  0006:0009:5
+                                           0006:0009:5  MKST               AE
+                                           0006:000A:0  NAMC  (01,0007)    6007
+                                           0006:000A:2  NAMC  (03,000A)    700A
+                                           0006:000A:4  STFF               AF
+                                           0006:000A:5  VALC  (03,0003)    3003
+                                           0006:000B:1  VALC  (03,0002)    3002
+                                           0006:000B:3  SUBT               81
+                                           0006:000B:4  LT8   2            B202
+                                           0006:000C:0  DIVD               83
+                                           0006:000C:1  XTND               CE
+                                           0006:000C:2  LT8   2            B202
+                                           0006:000C:4  LT48               BE
+                                           0006:000D                       C84040404040 (3"6204010020040100")
+                                           0006:000E:0  NAMC  (02,0002)    5002
+                                           0006:000E:2  STFF               AF
+                                           0006:000E:3  ENTR               AB
+                                           0006:000E:4  DLET               B5
+                  J:= H*(F(A) + F(B));                                                          00201800  0006:000E:5
+                                           0006:000E:5  MKST               AE
+                                           0006:000F:0  NAMC  (01,0007)    6007
+                                           0006:000F:2  NAMC  (03,000D)    700D
+                                           0006:000F:4  STFF               AF
+                                           0006:000F:5  VALC  (03,000A)    300A
+                                           0006:0010:1  MKST               AE
+                                           0006:0010:2  NAMC  (03,0006)    7006
+                                           0006:0010:4  VALC  (03,0002)    3002
+                                           0006:0011:0  ENTR               AB
+                                           0006:0011:1  MKST               AE
+                                           0006:0011:2  NAMC  (03,0006)    7006
+                                           0006:0011:4  VALC  (03,0003)    3003
+                                           0006:0012:0  ENTR               AB
+                                           0006:0012:1  ADD                80
+                                           0006:0012:2  MULT               82
+                                           0006:0012:3  XTND               CE
+                                           0006:0012:4  LT8   2            B202
+                                           0006:0013:0  LT48               BE
+                                           0006:0014                       D14040404040 (3"6424010020040100")
+                                           0006:0015:0  NAMC  (02,0002)    5002
+                                           0006:0015:2  STFF               AF
+                                           0006:0015:3  ENTR               AB
+                                           0006:0015:4  DLET               B5
+                                                                                                00201900  0006:0015:5
+                J1:                                                                             00202000  0006:0015:5
+                  S:= 0;                                                                        00202100  0006:0015:5
+                                           0006:0015:5  MKST               AE
+                                           0006:0016:0  NAMC  (01,0007)    6007
+                                           0006:0016:2  NAMC  (03,000E)    700E
+                                           0006:0016:4  STFF               AF
+                                           0006:0016:5  ZERO               B0
+                                           0006:0017:0  XTND               CE
+                                           0006:0017:1  LT8   2            B202
+                                           0006:0017:3  LT48               BE
+                                           0006:0018                       E24040404040 (3"7044010020040100")
+                                           0006:0019:0  NAMC  (02,0002)    5002
+                                           0006:0019:2  STFF               AF
+                                           0006:0019:3  ENTR               AB
+                                           0006:0019:4  DLET               B5
+                  FOR K:= 1 STEP 1 UNTIL N DO                                                   00202200  0006:0019:5
+                                           0006:0019:5  ONE                B1
+                                           0006:001A:0  NAMC  (03,0008)    7008
+                                           0006:001A:2  STON               B9
+                                           0006:001A:3  VALC  (03,0009)    3009
+                                           0006:001A:5  LSEQ               8B
+                                           0006:001B:0  BRFL-LINK 0000:0   A00000
+                    S:= S + F(A + (2*K-1)*H);                                                   00202300  0006:001B:3
+                                           0006:001B:3  MKST               AE
+                                           0006:001B:4  NAMC  (01,0007)    6007
+                                           0006:001C:0  NAMC  (03,000E)    700E
+                                           0006:001C:2  STFF               AF
+                                           0006:001C:3  VALC  (03,000E)    300E
+                                           0006:001C:5  MKST               AE
+                                           0006:001D:0  NAMC  (03,0006)    7006
+                                           0006:001D:2  VALC  (03,0002)    3002
+                                           0006:001D:4  LT8   2            B202
+                                           0006:001E:0  VALC  (03,0008)    3008
+                                           0006:001E:2  MULT               82
+                                           0006:001E:3  ONE                B1
+                                           0006:001E:4  SUBT               81
+                                           0006:001E:5  VALC  (03,000A)    300A
+                                           0006:001F:1  MULT               82
+                                           0006:001F:2  ADD                80
+                                           0006:001F:3  ENTR               AB
+                                           0006:001F:4  ADD                80
+                                           0006:001F:5  XTND               CE
+                                           0006:0020:0  LT8   2            B202
+                                           0006:0020:2  LT48               BE
+                                           0006:0021                       E24040404040 (3"7044010020040100")
+                                           0006:0022:0  NAMC  (02,0002)    5002
+                                           0006:0022:2  STFF               AF
+                                           0006:0022:3  ENTR               AB
+                                           0006:0022:4  DLET               B5
+                                           0006:0022:5  VALC  (03,0008)    3008
+                                           0006:0023:1  ONE                B1
+                                           0006:0023:2  ADD                80
+                                           0006:0023:3  BRUN      001A:0   A2001A
+                                                                                                00202400  0006:0024:0
+                  I:= J + 4*H*S;                                                                00202500  0006:0024:0
+                                           0006:0024:0  MKST               AE
+                                           0006:0024:1  NAMC  (01,0007)    6007
+                                           0006:0024:3  NAMC  (03,000B)    700B
+                                           0006:0024:5  STFF               AF
+                                           0006:0025:0  VALC  (03,000D)    300D
+                                           0006:0025:2  LT8   4            B204
+                                           0006:0025:4  VALC  (03,000A)    300A
+                                           0006:0026:0  MULT               82
+                                           0006:0026:1  VALC  (03,000E)    300E
+                                           0006:0026:3  MULT               82
+                                           0006:0026:4  ADD                80
+                                           0006:0026:5  XTND               CE
+                                           0006:0027:0  LT8   2            B202
+                                           0006:0027:2  LT48               BE
+                                           0006:0028                       C94040404040 (3"6224010020040100")
+                                           0006:0029:0  NAMC  (02,0002)    5002
+                                           0006:0029:2  STFF               AF
+                                           0006:0029:3  ENTR               AB
+                                           0006:0029:4  DLET               B5
+                  IF DELTA < ABS(I-IBAR) THEN                                                   00202600  0006:0029:5
+                                           0006:0029:5  VALC  (03,0004)    3004
+                                           0006:002A:1  VALC  (03,000B)    300B
+                                           0006:002A:3  VALC  (03,000C)    300C
+                                           0006:002A:5  SUBT               81
+                                           0006:002B:0  BRST  46           9E2E
+                                           0006:002B:2  LESS               88
+                    BEGIN                                                                       00202700  0006:002B:3
+                    IBAR:= I;                                                               3   00202800  0006:002C:0
+                                           0006:002C:0  MKST               AE
+                                           0006:002C:1  NAMC  (01,0007)    6007
+                                           0006:002C:3  NAMC  (03,000C)    700C
+                                           0006:002C:5  STFF               AF
+                                           0006:002D:0  VALC  (03,000B)    300B
+                                           0006:002D:2  XTND               CE
+                                           0006:002D:3  LT8   2            B202
+                                           0006:002D:5  LT48               BE
+                                           0006:002E                       C9C2C1D94040 (3"6234130166240100")
+                                           0006:002F:0  NAMC  (02,0002)    5002
+                                           0006:002F:2  STFF               AF
+                                           0006:002F:3  ENTR               AB
+                                           0006:002F:4  DLET               B5
+                    J:= (I+J)/4;                                                                00202900  0006:002F:5
+                                           0006:002F:5  MKST               AE
+                                           0006:0030:0  NAMC  (01,0007)    6007
+                                           0006:0030:2  NAMC  (03,000D)    700D
+                                           0006:0030:4  STFF               AF
+                                           0006:0030:5  VALC  (03,000B)    300B
+                                           0006:0031:1  VALC  (03,000D)    300D
+                                           0006:0031:3  ADD                80
+                                           0006:0031:4  LT8   4            B204
+                                           0006:0032:0  DIVD               83
+                                           0006:0032:1  XTND               CE
+                                           0006:0032:2  LT8   2            B202
+                                           0006:0032:4  LT48               BE
+                                           0006:0033                       D14040404040 (3"6424010020040100")
+                                           0006:0034:0  NAMC  (02,0002)    5002
+                                           0006:0034:2  STFF               AF
+                                           0006:0034:3  ENTR               AB
+                                           0006:0034:4  DLET               B5
+                    N:= 2*N;                                                                    00203000  0006:0034:5
+                                           0006:0034:5  MKST               AE
+                                           0006:0035:0  NAMC  (01,0007)    6007
+                                           0006:0035:2  NAMC  (03,0009)    7009
+                                           0006:0035:4  STFF               AF
+                                           0006:0035:5  LT8   2            B202
+                                           0006:0036:1  VALC  (03,0009)    3009
+                                           0006:0036:3  MULT               82
+                                           0006:0036:4  NTGR               87
+                                           0006:0036:5  XTND               CE
+                                           0006:0037:0  LT8   3            B203
+                                           0006:0037:2  LT48               BE
+                                           0006:0038                       D54040404040 (3"6524010020040100")
+                                           0006:0039:0  NAMC  (02,0002)    5002
+                                           0006:0039:2  STFF               AF
+                                           0006:0039:3  ENTR               AB
+                                           0006:0039:4  DLET               B5
+                    H:= H/2;                                                                    00203100  0006:0039:5
+                                           0006:0039:5  MKST               AE
+                                           0006:003A:0  NAMC  (01,0007)    6007
+                                           0006:003A:2  NAMC  (03,000A)    700A
+                                           0006:003A:4  STFF               AF
+                                           0006:003A:5  VALC  (03,000A)    300A
+                                           0006:003B:1  LT8   2            B202
+                                           0006:003B:3  DIVD               83
+                                           0006:003B:4  XTND               CE
+                                           0006:003B:5  LT8   2            B202
+                                           0006:003C:1  LT48               BE
+                                           0006:003D                       C84040404040 (3"6204010020040100")
+                                           0006:003E:0  NAMC  (02,0002)    5002
+                                           0006:003E:2  STFF               AF
+                                           0006:003E:3  ENTR               AB
+                                           0006:003E:4  DLET               B5
+                    GO TO J1                                                                    00203200  0006:003E:5
+                                           0006:003E:5  BRUN      0015:5   A2A015
+                    END;                                                                        00203300  0006:003F:2
+                                           0006:002B:3  BRFL-LINK 0000:0   A00000
+                                          **006:001B:0  BRFL      0024:0   A00024
+                                                                                            3   00203400  0006:003F:2
+                  SIMPS:= I/3;                                                                  00203500  0006:003F:2
+                                           0006:003F:2  VALC  (03,000B)    300B
+                                           0006:003F:4  LT8   3            B203
+                                           0006:0040:0  DIVD               83
+                                           0006:0040:1  NAMC  (03,0007)    7007
+                                           0006:0040:3  STOD               B8
+                  END SIMPS;                                                                    00203600  0006:0040:4
+                                           0006:0040:1  RETN               A7
+                                          **006:002B:3  BRFL      003F:2   A0403F
+**************************************  STACK BUILDING CODE FOR LEVEL 03  **************************************************
+                                           0006:0040:2  ZERO               B0
+                                           0006:0040:3  ZERO               B0
+                                           0006:0040:4  ZERO               B0
+                                           0006:0040:5  ZERO               B0
+                                           0006:0041:0  ZERO               B0
+                                           0006:0041:1  ZERO               B0
+                                           0006:0041:2  ZERO               B0
+                                           0006:0041:3  ZERO               B0
+                                           0006:0041:4  PUSH               B4
+                                           0006:0041:5  BRUN      0000:1   A22000
+                                           0006:0042:2  NVLD               FF
+                                           0006:0042:3  NVLD               FF
+                                           0006:0042:4  NVLD               FF
+                                           0006:0042:5  NVLD               FF
+                                                                                    SIMPS(0006) LENGTH IN WORDS IS 0043
+                                                                                            2   00210000  0003:0008:4
+                REAL PROCEDURE TORADS(X); VALUE X; REAL X; TORADS:= 3.1415926*X/180;            00210100  0003:0008:4
+(02,000A) = TORADS
+(03,0002) = X
+(03,0003) = PROCEDURE VALUE
+                                           0003:0008:4  LT48               BE
+                                           0003:0009                       263243F69A26 (3"1143110375515046")
+                                           0003:000A:0  VALC  (03,0002)    3002
+                                           0003:000A:2  MULT               82
+                                           0003:000A:3  LT8   180          B2B4
+                                           0003:000A:5  DIVD               83
+                                           0003:000B:0  RETN               A7
+**************************************  STACK BUILDING CODE FOR LEVEL 03  **************************************************
+                                                                                                00210200  0003:000B:1
+                REAL PROCEDURE SINE(X); VALUE X; REAL X; SINE:= SIN(X);                         00210300  0003:000B:1
+(02,000B) = SINE
+(03,0002) = X
+(03,0003) = PROCEDURE VALUE
+(01,0008) = SIN
+                                           0003:000B:1  MKST               AE
+                                           0003:000B:2  NAMC  (01,0008)    6008
+                                           0003:000B:4  VALC  (03,0002)    3002
+                                           0003:000C:0  ENTR               AB
+                                           0003:000C:1  RETN               A7
+**************************************  STACK BUILDING CODE FOR LEVEL 03  **************************************************
+                                                                                                00210400  0003:000C:2
+                REAL PROCEDURE DARCTAN(X); VALUE X; REAL X; DARCTAN:= 1/(X**2 + 1);             00210500  0003:000C:2
+(02,000C) = DARCTAN
+(03,0002) = X
+(03,0003) = PROCEDURE VALUE
+                                           0003:000C:2  ONE                B1
+                                           0003:000C:3  VALC  (03,0002)    3002
+                                           0003:000C:5  DUPL               B7
+                                           0003:000D:0  MULT               82
+                                           0003:000D:1  ONE                B1
+                                           0003:000D:2  ADD                80
+                                           0003:000D:3  DIVD               83
+                                           0003:000D:4  RETN               A7
+**************************************  STACK BUILDING CODE FOR LEVEL 03  **************************************************
+                                                                                                00210600  0003:000D:5
+                REAL PROCEDURE LOGISTICSIGMOID(X);                                              00210700  0003:000D:5
+(02,000D) = LOGISTICSIGMOID
+                  VALUE X;                                                                      00210800  0003:000D:5
+                  REAL X;                                                                       00210900  0003:000D:5
+(03,0002) = X
+                  BEGIN                                                                         00211000  0003:000D:5
+(03,0003) = PROCEDURE VALUE
+                  LOGISTICSIGMOID:= 1/(1 + EXP(-X));                                            00211100  0003:000D:5
+                                           0003:000D:5  ONE                B1
+                                           0003:000E:0  ONE                B1
+(01,0009) = EXP
+                                           0003:000E:1  MKST               AE
+                                           0003:000E:2  NAMC  (01,0009)    6009
+                                           0003:000E:4  VALC  (03,0002)    3002
+                                           0003:000F:0  CHSN               8E
+                                           0003:000F:1  ENTR               AB
+                                           0003:000F:2  ADD                80
+                                           0003:000F:3  DIVD               83
+                                           0003:000F:4  NAMC  (03,0003)    7003
+                                           0003:0010:0  STOD               B8
+                  END LOGISTICSIGMOID;                                                      2   00211200  0003:0010:1
+                                           0003:000F:4  RETN               A7
+**************************************  STACK BUILDING CODE FOR LEVEL 03  **************************************************
+                                           0003:000F:5  ZERO               B0
+                                           0003:0010:0  PUSH               B4
+                                           0003:0010:1  BRUN      000D:5   A2A00D
+                                           0003:0010:4  NVLD               FF
+                                                                                            2   00900000  0003:0010:5
+                SUM:= SIMPS(TORADS(30), TORADS(90), 0.00001, 2.0, SINE);                        00900600  0003:0010:5
+                                          **003:0000:1  BRUN      0010:5   A2A010
+                                           0003:0010:5  MKST               AE
+                                           0003:0011:0  NAMC  (02,0009)    5009
+                                           0003:0011:2  MKST               AE
+                                           0003:0011:3  NAMC  (02,000A)    500A
+                                           0003:0011:5  LT8   30           B21E
+                                           0003:0012:1  ENTR               AB
+                                           0003:0012:2  MKST               AE
+                                           0003:0012:3  NAMC  (02,000A)    500A
+                                           0003:0012:5  LT8   90           B25A
+                                           0003:0013:1  ENTR               AB
+                                           0003:0013:2  LT48               BE
+                                           0003:0014                       2929F16B11C7 (3"1222476132610707")
+                                           0003:0015:0  LT16  39040        B39880
+                                           0003:0015:3  ISOL  17:48        9A1130
+                                           0003:0016:0  NAMC  (02,000B)    500B
+                                           0003:0016:2  STFF               AF
+                                           0003:0016:3  ENTR               AB
+                                           0003:0016:4  NAMC  (02,0003)    5003
+                                           0003:0017:0  STOD               B8
+                WRITE(LINE, F1, RESULT);                                                        00900700  0003:0017:1
+                                           0003:0017:1  MKST               AE
+                                           0003:0017:2  ZERO               B0
+                                           0003:0017:3  NAMC  (02,0002)    5002
+                                           0003:0017:5  STFF               AF
+                                           0003:0017:5  INDX               A6
+                                           0003:0018:0  LOAD               BD
+                                           0003:0018:1  ZERO               B0
+(01,000A) = FORMATTEDOUTPUT
+                                           0003:0018:2  NAMC  (01,000A)    600A
+                                           0003:0018:4  RSDN               95B7
+                                           0003:0019:0  NAMC  (01,0004)    6004
+                                           0003:0019:2  LOAD               BD
+                                           0003:0019:3  ZERO               B0
+                                           0003:0019:4  NAMC  (02,0005)    5005
+                                           0003:001A:0  STFF               AF
+                                           0003:001A:1  DUPL               B7
+                                           0003:001A:2  ISOL  15:16        9A0F10
+                                           0003:001A:5  LT8   2            B202
+                                           0003:001B:1  ADD                80
+                                           0003:001B:2  INSR  15:16        9C0F10
+                                           0003:0017:2  NOOP               FE
+                                           0003:0017:5  STFF               AF
+                                           0003:0018:0  NOOP               FE
+                                           0003:001B:5  LT48               BE
+                                           0003:001C                       080000000080 (3"0200000000000200")
+                                           0003:001D:0  ZERO               B0
+                                           0003:001D:1  ZERO               B0
+                                           0003:001D:2  ENTR               AB
+                                           0003:001D:3  DLET               B5
+                SUM:= SIMPS(0, 1, 1@-5, 2.0, DARCTAN);                                          00900800  0003:001D:4
+                                           0003:001D:4  MKST               AE
+                                           0003:001D:5  NAMC  (02,0009)    5009
+                                           0003:001E:1  ZERO               B0
+                                           0003:001E:2  ONE                B1
+                                           0003:001E:3  LT48               BE
+                                           0003:001F                       2929F16B11C7 (3"1222476132610707")
+                                           0003:0020:0  LT16  39040        B39880
+                                           0003:0020:3  ISOL  17:48        9A1130
+                                           0003:0021:0  NAMC  (02,000C)    500C
+                                           0003:0021:2  STFF               AF
+                                           0003:0021:3  ENTR               AB
+                                           0003:0021:4  NAMC  (02,0003)    5003
+                                           0003:0022:0  STOD               B8
+                WRITE(LINE, F1, RESULT);                                                        00900900  0003:0022:1
+                                           0003:0022:1  MKST               AE
+                                           0003:0022:2  ZERO               B0
+                                           0003:0022:3  NAMC  (02,0002)    5002
+                                           0003:0022:5  STFF               AF
+                                           0003:0022:5  INDX               A6
+                                           0003:0023:0  LOAD               BD
+                                           0003:0023:1  ZERO               B0
+                                           0003:0023:2  NAMC  (01,000A)    600A
+                                           0003:0023:4  RSDN               95B7
+                                           0003:0024:0  NAMC  (01,0004)    6004
+                                           0003:0024:2  LOAD               BD
+                                           0003:0024:3  ZERO               B0
+                                           0003:0024:4  NAMC  (02,0005)    5005
+                                           0003:0025:0  STFF               AF
+                                           0003:0025:1  DUPL               B7
+                                           0003:0025:2  ISOL  15:16        9A0F10
+                                           0003:0025:5  LT8   2            B202
+                                           0003:0026:1  ADD                80
+                                           0003:0026:2  INSR  15:16        9C0F10
+                                           0003:0022:2  NOOP               FE
+                                           0003:0022:5  STFF               AF
+                                           0003:0023:0  NOOP               FE
+                                           0003:0026:5  LT48               BE
+                                           0003:0027                       080000000080 (3"0200000000000200")
+                                           0003:0028:0  ZERO               B0
+                                           0003:0028:1  ZERO               B0
+                                           0003:0028:2  ENTR               AB
+                                           0003:0028:3  DLET               B5
+                SUM:= SIMPS(0.5, 3, 1@-5, 2.0, LOGISTICSIGMOID);                                00901000  0003:0028:4
+                                           0003:0028:4  MKST               AE
+                                           0003:0028:5  NAMC  (02,0009)    5009
+                                           0003:0029:1  LT8   155          B29B
+                                           0003:0029:3  ISOL  9:48         9A0930
+                                           0003:002A:0  LT8   3            B203
+                                           0003:002A:2  LT48               BE
+                                           0003:002B                       2929F16B11C7 (3"1222476132610707")
+                                           0003:002C:0  LT16  39040        B39880
+                                           0003:002C:3  ISOL  17:48        9A1130
+                                           0003:002D:0  NAMC  (02,000D)    500D
+                                           0003:002D:2  STFF               AF
+                                           0003:002D:3  ENTR               AB
+                                           0003:002D:4  NAMC  (02,0003)    5003
+                                           0003:002E:0  STOD               B8
+                WRITE(LINE, F1, RESULT);                                                        00901100  0003:002E:1
+                                           0003:002E:1  MKST               AE
+                                           0003:002E:2  ZERO               B0
+                                           0003:002E:3  NAMC  (02,0002)    5002
+                                           0003:002E:5  STFF               AF
+                                           0003:002E:5  INDX               A6
+                                           0003:002F:0  LOAD               BD
+                                           0003:002F:1  ZERO               B0
+                                           0003:002F:2  NAMC  (01,000A)    600A
+                                           0003:002F:4  RSDN               95B7
+                                           0003:0030:0  NAMC  (01,0004)    6004
+                                           0003:0030:2  LOAD               BD
+                                           0003:0030:3  ZERO               B0
+                                           0003:0030:4  NAMC  (02,0005)    5005
+                                           0003:0031:0  STFF               AF
+                                           0003:0031:1  DUPL               B7
+                                           0003:0031:2  ISOL  15:16        9A0F10
+                                           0003:0031:5  LT8   2            B202
+                                           0003:0032:1  ADD                80
+                                           0003:0032:2  INSR  15:16        9C0F10
+                                           0003:002E:2  NOOP               FE
+                                           0003:002E:5  STFF               AF
+                                           0003:002F:0  NOOP               FE
+                                           0003:0032:5  LT48               BE
+                                           0003:0033                       080000000080 (3"0200000000000200")
+                                           0003:0034:0  ZERO               B0
+                                           0003:0034:1  ZERO               B0
+                                           0003:0034:2  ENTR               AB
+                                           0003:0034:3  DLET               B5
+                END.                                                                            00999900  0003:0034:4
+(01,000B) = BLOCKEXIT
+                                           0003:0034:4  MKST               AE
+                                           0003:0034:5  NAMC  (01,000B)    600B  BLOCKEXIT
+                                           0003:0035:1  ENTR               AB
+                                           0003:0035:2  EXIT               A3
+                                                                                           DATA LENGTH IN WORDS IS 0005
+                                                  DATA POOL AT (01,0005):
+                                                  0000  000000000004
+                                                  0001  000000000000
+                                                  0002  E2E4D47E0000
+                                                                                           DATA LENGTH IN WORDS IS 0003
+**************************************  STACK BUILDING CODE FOR LEVEL 02  **************************************************
+(02,0002)   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+                                           0003:0035:3  LT48               BE
+                                           0003:0036                       270000E40001 (3"1160000071000001")
+                                           0003:0037:0  LT8   5            B205
+                                           0003:0037:2  STAG               95B4
+                                           0003:0037:4  ZERO               B0
+                                           0003:0037:5  ZERO               B0
+(02,0005)   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+                                           0003:0038:0  MPCW               BF
+                                           0003:0039         0003:0000:4   00080000E003
+(02,0006)   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+                                           0003:003A:0  MPCW               BF
+                                           0003:003B         0003:0002:2   00040020E003
+(02,0007)   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+                                           0003:003C:0  MPCW               BF
+                                           0003:003D         0003:0005:1   00020050E003
+(02,0008)   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+                                           0003:003E:0  MPCW               BF
+                                           0003:003F         0003:0006:4   00080060E003
+(02,0009)   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+                                           0003:0040:0  MPCW               BF
+                                           0003:0041         0006:0040:2   00040400E006
+(02,000A)   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+                                           0003:0042:0  MPCW               BF
+                                           0003:0043         0003:0008:4   00080080E003
+(02,000B)   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+                                           0003:0044:0  MPCW               BF
+                                           0003:0045         0003:000B:1   000200B0E003
+(02,000C)   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+                                           0003:0046:0  MPCW               BF
+                                           0003:0047         0003:000C:2   000400C0E003
+(02,000D)   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+                                           0003:0048:0  MPCW               BF
+                                           0003:0049         0003:000F:5   000A00F0E003
+                                           0003:004A:0  PUSH               B4
+                                           0003:004A:1  LT16  8192         B32000
+                                           0003:004A:4  BSET  47           962F
+                                           0003:004B:0  LT8   6            B206
+                                           0003:004B:2  STAG               95B4
+                                           0003:004B:4  BRUN      0000:1   A22000
+                                           0003:004C:1  NVLD               FF
+                                           0003:004C:2  NVLD               FF
+                                           0003:004C:3  NVLD               FF
+                                           0003:004C:4  NVLD               FF
+                                           0003:004C:5  NVLD               FF
+                                                                                  BLOCK#1(0003) LENGTH IN WORDS IS 004D
+====================================================================================================================================
+NUMBER OF ERRORS DETECTED = 0.
+NUMBER OF SEGMENTS = 9.  TOTAL SEGMENT SIZE = 166 WORDS.  CORE ESTIMATE = 1009 WORDS.  STACK ESTIMATE = 29
+PROGRAM SIZE = 75 CARDS, 410 SYNTACTIC ITEMS, 29 DISK SECTORS.
+PROGRAM FILE NAME:  (PAUL)CANDE/CODE2300 ON OPS.
+COMPILATION TIME = 0.451 SECONDS ELAPSED;  0.378 SECONDS PROCESSING;  0.100 SECONDS I/O.
+====================================================================================================================================
+
+0828 @ 006:0005:4 (00201500)  IBAR  =0:=2.09439506666967645287514                                          (4"262182A466C4")
+0828 @ 006:0009:4 (00201600)  N     =0:=1.0                                                                (4"000000000001")
+0828 @ 006:000E:4 (00201700)  H     =0:=0.52359876666741911321878                                          (4"26C30548CD88")
+0828 @ 006:0015:4 (00201800)  J     =0:=0.78539814595569623634219                                          (4"26E487ED2B9C")
+0828 @ 006:0019:4 (00202100)  S     =0:=0                                                                  (4"000000000000")
+0828 @ 006:0022:4 (00202300)  S     =0:=0.86602539485465968027711                                          (4"26EED9EB8E34")
+0828 @ 006:0029:4 (00202500)  I     =0:=2.59919746055675204843283                                          (4"26299650138F")
+0828 @ 006:002F:4 (00202800)  IBAR  =2.09439506666967645287514:=2.59919746055675204843283                  (4"26299650138F")
+0828 @ 006:0034:4 (00202900)  J     =0.78539814595569623634219:=0.8461489016299310605973                   (4"26EC4E9B7206")
+0828 @ 006:0039:4 (00203000)  N     =1.0:=2.0                                                              (4"000000000002")
+0828 @ 006:003E:4 (00203100)  H     =0.52359876666741911321878:=0.261799383333709556609392                 (4"26A182A466C4")
+0828 @ 006:0019:4 (00202100)  S     =0.86602539485465968027711:=0                                          (4"000000000000")
+0828 @ 006:0022:4 (00202300)  S     =0:=0.70710677171518909744918                                          (4"26DA827985A6")
+0828 @ 006:0022:4 (00202300)  S     =0.70710677171518909744918:=1.67303259222535416483879                  (4"261AC4BDD2CC")
+0828 @ 006:0029:4 (00202500)  I     =2.59919746055675204843283:=2.59814450540579855442047                  (4"262991FFF910")
+0828 @ 006:002F:4 (00202800)  IBAR  =2.59919746055675204843283:=2.59814450540579855442047                  (4"262991FFF910")
+0828 @ 006:0034:4 (00202900)  J     =0.8461489016299310605973:=0.86107335175984189845621                   (4"26EE37A6CEA2")
+0828 @ 006:0039:4 (00203000)  N     =2.0:=4.0                                                              (4"000000000004")
+0828 @ 006:003E:4 (00203100)  H     =0.261799383333709556609392:=0.130899691666854778304696                (4"2690C1523362")
+0828 @ 006:0019:4 (00202100)  S     =1.67303259222535416483879:=0                                          (4"000000000000")
+0828 @ 006:0022:4 (00202300)  S     =0:=0.60876142015331424772739                                          (4"26CDEBE4EB50")
+0828 @ 006:0022:4 (00202300)  S     =0.60876142015331424772739:=1.40211475093383342027664                  (4"26166F0FE088")
+0828 @ 006:0022:4 (00202300)  S     =1.40211475093383342027664:=2.32599427575769368559122                  (4"26253745C611")
+0828 @ 006:0022:4 (00202300)  S     =2.32599427575769368559122:=3.3174391339271096512675                   (4"2635143B0EAB")
+0828 @ 006:0029:4 (00202500)  I     =2.59814450540579855442047:=2.59808039077324792742729                  (4"262991BCBE6C")
+0828 @ 006:002F:4 (00202800)  IBAR  =2.59814450540579855442047:=2.59808039077324792742729                  (4"262991BCBE6C")
+0828 @ 006:0034:4 (00202900)  J     =0.86107335175984189845621:=0.8647884356323629617691                   (4"26EEB1633080")
+0828 @ 006:0039:4 (00203000)  N     =4.0:=8.0                                                              (4"000000000008")
+0828 @ 006:003E:4 (00203100)  H     =0.130899691666854778304696:=0.065449845833427389152348                (4"27430548CD88")
+0828 @ 006:0019:4 (00202100)  S     =3.3174391339271096512675:=0                                           (4"000000000000")
+0828 @ 006:0022:4 (00202300)  S     =0:=0.55557022466928174253552                                          (4"26C71CECD4CB")
+0828 @ 006:0022:4 (00202300)  S     =0.55557022466928174253552:=1.21491603054164443165064                  (4"2613704BCAA9")
+0828 @ 006:0022:4 (00202300)  S     =1.21491603054164443165064:=1.96675582845637109130621                  (4"261F77D4F5A7")
+0828 @ 006:0022:4 (00202300)  S     =1.96675582845637109130621:=2.7982254314556485041976                   (4"262CC58807AF")
+0828 @ 006:0022:4 (00202300)  S     =2.7982254314556485041976:=3.6950981645932188257575                    (4"263B1F1F40C7")
+0828 @ 006:0022:4 (00202300)  S     =3.6950981645932188257575:=4.6420282872713869437575                    (4"264A45BF740F")
+0828 @ 006:0022:4 (00202300)  S     =4.6420282872713869437575:=5.6228135631099576130509                    (4"2659F70B5AD1")
+0828 @ 006:0022:4 (00202300)  S     =5.6228135631099576130509:=6.6206724846706492826342                    (4"2669EE464573")
+0828 @ 006:0029:4 (00202500)  I     =2.59808039077324792742729:=2.59807640936924144625664                  (4"262991B891AC")
+SUM =      0.86603
+0828 @ 006:0005:4 (00201500)  IBAR  =0:=2.0                                                                (4"262000000000")
+0828 @ 006:0009:4 (00201600)  N     =0:=1.0                                                                (4"000000000001")
+0828 @ 006:000E:4 (00201700)  H     =0:=0.5                                                                (4"26C000000000")
+0828 @ 006:0015:4 (00201800)  J     =0:=0.75                                                               (4"26E000000000")
+0828 @ 006:0019:4 (00202100)  S     =0:=0                                                                  (4"000000000000")
+0828 @ 006:0022:4 (00202300)  S     =0:=0.79999999999927240423858                                          (4"26E666666666")
+0828 @ 006:0029:4 (00202500)  I     =0:=2.35000000000582076609135                                          (4"26259999999A")
+0828 @ 006:002F:4 (00202800)  IBAR  =2.0:=2.35000000000582076609135                                        (4"26259999999A")
+0828 @ 006:0034:4 (00202900)  J     =0.75:=0.77500000000145519152284                                       (4"26E333333334")
+0828 @ 006:0039:4 (00203000)  N     =1.0:=2.0                                                              (4"000000000002")
+0828 @ 006:003E:4 (00203100)  H     =0.5:=0.25                                                             (4"26A000000000")
+0828 @ 006:0019:4 (00202100)  S     =0.79999999999927240423858:=0                                          (4"000000000000")
+0828 @ 006:0022:4 (00202300)  S     =0:=0.94117647058737929910421                                          (4"26F878787878")
+0828 @ 006:0022:4 (00202300)  S     =0.94117647058737929910421:=1.58117647058679722249508                  (4"26194C7FB2E6")
+0828 @ 006:0029:4 (00202500)  I     =2.35000000000582076609135:=2.3561764705955283716321                   (4"2625B2E6194D")
+0828 @ 006:002F:4 (00202800)  IBAR  =2.35000000000582076609135:=2.3561764705955283716321                   (4"2625B2E6194D")
+0828 @ 006:0034:4 (00202900)  J     =0.77500000000145519152284:=0.78279411765106488019228                  (4"26E43298FF68")
+0828 @ 006:0039:4 (00203000)  N     =2.0:=4.0                                                              (4"000000000004")
+0828 @ 006:003E:4 (00203100)  H     =0.25:=0.125                                                           (4"269000000000")
+0828 @ 006:0019:4 (00202100)  S     =1.58117647058679722249508:=0                                          (4"000000000000")
+0828 @ 006:0022:4 (00202300)  S     =0:=0.98461538461560849100351                                          (4"26FE07E07E08")
+0828 @ 006:0022:4 (00202300)  S     =0.98461538461560849100351:=1.86132771338452585041523                  (4"261DC7FF9182")
+0828 @ 006:0022:4 (00202300)  S     =1.86132771338452585041523:=2.58042883698362857103348                  (4"2629496FBF88")
+0828 @ 006:0022:4 (00202300)  S     =2.58042883698362857103348:=3.1468005183996865525841                   (4"2632594B8019")
+0828 @ 006:0029:4 (00202500)  I     =2.3561764705955283716321:=2.35619437685818411409855                   (4"2625B2F8DFFA")
+0828 @ 006:002F:4 (00202800)  IBAR  =2.3561764705955283716321:=2.35619437685818411409855                   (4"2625B2F8DFFA")
+0828 @ 006:0034:4 (00202900)  J     =0.78279411765106488019228:=0.7847471236273122485727                   (4"26E47297FFCE")
+0828 @ 006:0039:4 (00203000)  N     =4.0:=8.0                                                              (4"000000000008")
+0828 @ 006:003E:4 (00203100)  H     =0.125:=0.0625                                                         (4"274000000000")
+0828 @ 006:0019:4 (00202100)  S     =3.1468005183996865525841:=0                                           (4"000000000000")
+0828 @ 006:0022:4 (00202300)  S     =0:=0.99610894941724836826324                                          (4"26FF807F8080")
+0828 @ 006:0022:4 (00202300)  S     =0.99610894941724836826324:=1.96214668526954483240843                  (4"261F64F3EC33")
+0828 @ 006:0022:4 (00202300)  S     =1.96214668526954483240843:=2.87317871373670641332865                  (4"262DF88A3E31")
+0828 @ 006:0022:4 (00202300)  S     =2.87317871373670641332865:=3.7125229760276852175593                   (4"263B667E7DFB")
+0828 @ 006:0022:4 (00202300)  S     =3.7125229760276852175593:=4.472166892941459082067                     (4"26478DFEDF37")
+0828 @ 006:0022:4 (00202300)  S     =4.472166892941459082067:=5.1512119857798097655176                     (4"26526B5D425B")
+0828 @ 006:0022:4 (00202300)  S     =5.1512119857798097655176:=5.7535649269557325169444                    (4"265C0E9A18CB")
+0828 @ 006:0022:4 (00202300)  S     =5.7535649269557325169444:=6.2857894591870717704296                    (4"26649297F7CC")
+0828 @ 006:0029:4 (00202500)  I     =2.35619437685818411409855:=2.3561944884277181699872                   (4"2625B2F8FDED")
+SUM =      0.78540
+0828 @ 006:0005:4 (00201500)  IBAR  =0:=5.0                                                                (4"265000000000")
+0828 @ 006:0009:4 (00201600)  N     =0:=1.0                                                                (4"000000000001")
+0828 @ 006:000E:4 (00201700)  H     =0:=1.25                                                               (4"261400000000")
+0828 @ 006:0015:4 (00201800)  J     =0:=1.96879182252450846135616                                          (4"261F802BDAA6")
+0828 @ 006:0019:4 (00202100)  S     =0:=0                                                                  (4"000000000000")
+0828 @ 006:0022:4 (00202300)  S     =0:=0.85195280197149259038269                                          (4"26ED0CCA171A")
+0828 @ 006:0029:4 (00202500)  I     =0:=6.2285558323783334344625                                           (4"2663A82A2916")
+0828 @ 006:002F:4 (00202800)  IBAR  =5.0:=6.2285558323783334344625                                         (4"2663A82A2916")
+0828 @ 006:0034:4 (00202900)  J     =1.96879182252450846135616:=2.04933691374026238918304                  (4"2620CA1580F0")
+0828 @ 006:0039:4 (00203000)  N     =1.0:=2.0                                                              (4"000000000002")
+0828 @ 006:003E:4 (00203100)  H     =1.25:=0.625                                                           (4"26D000000000")
+0828 @ 006:0019:4 (00202100)  S     =0.85195280197149259038269:=0                                          (4"000000000000")
+0828 @ 006:0022:4 (00202300)  S     =0:=0.75491498686642444226891                                          (4"26E0A10DE5ED")
+0828 @ 006:0022:4 (00202300)  S     =0.75491498686642444226891:=1.66981594185926951467991                  (4"261AB790EBCA")
+0828 @ 006:0029:4 (00202500)  I     =6.2285558323783334344625:=6.2238767683884361758828                    (4"266394FFCE69")
+0828 @ 006:002F:4 (00202800)  IBAR  =6.2285558323783334344625:=6.2238767683884361758828                    (4"266394FFCE69")
+0828 @ 006:0034:4 (00202900)  J     =2.04933691374026238918304:=2.06830342052853666245937                  (4"262117C553D6")
+0828 @ 006:0039:4 (00203000)  N     =2.0:=4.0                                                              (4"000000000004")
+0828 @ 006:003E:4 (00203100)  H     =0.625:=0.3125                                                         (4"26A800000000")
+0828 @ 006:0019:4 (00202100)  S     =1.66981594185926951467991:=0                                          (4"000000000000")
+0828 @ 006:0022:4 (00202300)  S     =0:=0.69264198313248925842344                                          (4"26D8A87E14B2")
+0828 @ 006:0022:4 (00202300)  S     =0.69264198313248925842344:=1.50070919668360147625208                  (4"261802E7A589")
+0828 @ 006:0022:4 (00202300)  S     =1.50070919668360147625208:=2.3879137904004892334342                   (4"262634E51737")
+0828 @ 006:0022:4 (00202300)  S     =2.3879137904004892334342:=3.3241987961519043892621                    (4"26352FEB13AE")
+0828 @ 006:0029:4 (00202500)  I     =6.2238767683884361758828:=6.2235519157256931066512                    (4"266393AB2C70")
+0828 @ 006:002F:4 (00202800)  IBAR  =6.2238767683884361758828:=6.2235519157256931066512                    (4"266393AB2C70")
+0828 @ 006:0034:4 (00202900)  J     =2.06830342052853666245937:=2.07296383407083339989185                  (4"26212ADC2012")
+0828 @ 006:0039:4 (00203000)  N     =4.0:=8.0                                                              (4"000000000008")
+0828 @ 006:003E:4 (00203100)  H     =0.3125:=0.15625                                                       (4"269400000000")
+0828 @ 006:0019:4 (00202100)  S     =3.3241987961519043892621:=0                                           (4"000000000000")
+0828 @ 006:0022:4 (00202300)  S     =0:=0.65841750056097225751728                                          (4"26D447065003")
+0828 @ 006:0022:4 (00202300)  S     =0.65841750056097225751728:=1.38328777674178127199411                  (4"261621F25D21")
+0828 @ 006:0022:4 (00202300)  S     =1.38328777674178127199411:=2.16595025568676646798849                  (4"2622A7BB748F")
+0828 @ 006:0022:4 (00202300)  S     =2.16595025568676646798849:=2.99709330355108249932528                  (4"262FF4181B9D")
+0828 @ 006:0022:4 (00202300)  S     =2.99709330355108249932528:=3.8676905719621572643518                   (4"263DE20F825A")
+0828 @ 006:0022:4 (00202300)  S     =3.8676905719621572643518:=4.7696112484991317614912                    (4"264C5053E26F")
+0828 @ 006:0022:4 (00202300)  S     =4.7696112484991317614912:=5.6959149787871865555644                    (4"265B2277BEAB")
+0828 @ 006:0022:4 (00202300)  S     =5.6959149787871865555644:=6.6409096904972102493048                    (4"266A412A8506")
+0828 @ 006:0029:4 (00202500)  I     =6.2235519157256931066512:=6.2235323906352277845144                    (4"26639396B336")
+0828 @ 006:002F:4 (00202800)  IBAR  =6.2235519157256931066512:=6.2235323906352277845144                    (4"26639396B336")
+0828 @ 006:0034:4 (00202900)  J     =2.07296383407083339989185:=2.07412405617651529610157                  (4"26212F9CB4D2")
+0828 @ 006:0039:4 (00203000)  N     =8.0:=16.0                                                             (4"000000000010")
+0828 @ 006:003E:4 (00203100)  H     =0.15625:=0.078125                                                     (4"275000000000")
+0828 @ 006:0019:4 (00202100)  S     =6.6409096904972102493048:=0                                           (4"000000000000")
+0828 @ 006:0022:4 (00202300)  S     =0:=0.64063585483745555393397                                          (4"26D2005B0E96")
+0828 @ 006:0022:4 (00202300)  S     =0.64063585483745555393397:=1.31640045584936160594225                  (4"26150FF9ECA5")
+0828 @ 006:0022:4 (00202300)  S     =1.31640045584936160594225:=2.02541958964138757437468                  (4"2620681E5F23")
+0828 @ 006:0022:4 (00202300)  S     =2.02541958964138757437468:=2.76559395168442279100418                  (4"262C3FDF7188")
+0828 @ 006:0022:4 (00202300)  S     =2.76559395168442279100418:=3.5346741887478856369852                   (4"26388E0685AB")
+0828 @ 006:0022:4 (00202300)  S     =3.5346741887478856369852:=4.3303322888095863163471                    (4"2645490A8294")
+0828 @ 006:0022:4 (00202300)  S     =4.3303322888095863163471:=5.1502256247185869142412                    (4"26526752FC13")
+0828 @ 006:0022:4 (00202300)  S     =5.1502256247185869142412:=5.9920512719691032543778                    (4"265FDF712791")
+0828 @ 006:0022:4 (00202300)  S     =5.9920512719691032543778:=6.8535894813976483419537                    (4"266DA84D71AD")
+0828 @ 006:0022:4 (00202300)  S     =6.8535894813976483419537:=7.7327362489013466984033                    (4"267BB949A51A")
+0828 @ 006:0022:4 (00202300)  S     =7.7327362489013466984033:=8.6275257122470065951347                    (4"2591414B0CD7")
+0828 @ 006:0022:4 (00202300)  S     =8.6275257122470065951347:=9.5361436092061921954155                    (4"259312816A47")
+0828 @ 006:0022:4 (00202300)  S     =9.5361436092061921954155:=10.4569332851096987724304                   (4"2594E9F328D8")
+0828 @ 006:0022:4 (00202300)  S     =10.4569332851096987724304:=11.3883957921061664819717                  (4"2596C6DBD032")
+0828 @ 006:0022:4 (00202300)  S     =11.3883957921061664819717:=12.3291855413699522614479                  (4"2598A88B01DD")
+0828 @ 006:0022:4 (00202300)  S     =12.3291855413699522614479:=13.2781028044410049915314                  (4"259A8E637DA4")
+0828 @ 006:0029:4 (00202500)  I     =6.2235323906352277845144:=6.2235311825643293559551                    (4"266393956EEC")
+SUM =      2.07451

software/BALGOL/BALGOL-Examples/Simpsons-Rule/EMODE/SIMPS-Emode.alg_m

@@ -0,0 +1,75 @@
+BEGIN                                                                   00000100          
+COMMENT SIMPSON-S RULE INTEGRATION PROCEDURE, TRANSLATED TO BALGOL      00000200          
+        FROM THE EXAMPLE IN THE PRELIMINARY IAL REPORT;                 00000300          
+                                                                        00000400          
+COMMENT                                                                 00000500          
+    EXAMPLE.. INTEGRATION OF A FUNCTION F(X) BY SIMPSON-S RULE. THE     00000600          
+    VALUES OF F(X) ARE SUPPLIED BY AN ASSUMED EXISTENT FUNCTION         00000700          
+    ROUTINE. THE MESH SIZE IS HALVED UNTIL TWO SUCCESSIVE SIMPSON       00000800          
+    SUMS AGREE WITHIN A PRESCRIBED ERROR. DURING THE MESH REDUCTION     00000900          
+    F(X) IS EVALUATED AT MOST ONCE FOR ANY X. A VALUE V GREATER THAN    00001000          
+    THE MAXIMUM ABSOLUTE VALUE ATTAINED BY THE FUNCTION ON THE          00001100          
+    INTERVAL IS REQUIRED FOR INITIALZING;                               00001200          
+                                                                        00110000          
+FILE LINE(KIND=PRINTER, MAXRECSIZE=132, FRAMESIZE=8, FILEUSE=OUT);      00110100          
+FORMAT F1("SUM = ",F12.5);                                              00110200          
+REAL SUM;                                                               00110300          
+LIST RESULT (SUM);                                                      00110400          
+                                                                        00200000          
+REAL PROCEDURE SIMPS(A, B, DELTA, V, F);                                00200100          
+  VALUE A, B, DELTA, V;                                                 00200200          
+  REAL A, B, DELTA, V;                                                  00200300          
+  REAL PROCEDURE F(X); VALUE X; REAL X; FORMAL;                         00200400          
+    COMMENT A, B ARE THE MIN AND MAX, RESP. OF THE POINTS DEF.          00200500          
+    INTERVAL OF INTEG. F() IS THE FUNCTION TO INTEGRATED.               00200600          
+    DELTA IS THE PERMISSIBLE DIFFERENCE BETWEEN TO SUCCESSIVE SIMPSON   00200700          
+    SUMS. V IS GREATER THAN THE MAXIMUM ABSOLUTE VALUE OF F ON A, B;    00200800          
+  BEGIN                                                                 00200900          
+  INTEGER K, N;                                                         00201000          
+  REAL H, I, IBAR, J, S;                                                00201100          
+  LABEL J1;                                                             00201200          
+  MONITOR LINE (IBAR, N, H, J, S K, I);                                 00201300          
+                                                                        00201400          
+  IBAR:= V*(B-A);                                                       00201500          
+  N:= 1;                                                                00201600          
+  H:= (B-A)/2;                                                          00201700          
+  J:= H*(F(A) + F(B));                                                  00201800          
+                                                                        00201900          
+J1:                                                                     00202000          
+  S:= 0;                                                                00202100          
+  FOR K:= 1 STEP 1 UNTIL N DO                                           00202200          
+    S:= S + F(A + (2*K-1)*H);                                           00202300          
+                                                                        00202400          
+  I:= J + 4*H*S;                                                        00202500          
+  IF DELTA < ABS(I-IBAR) THEN                                           00202600          
+    BEGIN                                                               00202700          
+    IBAR:= I;                                                           00202800          
+    J:= (I+J)/4;                                                        00202900          
+    N:= 2*N;                                                            00203000          
+    H:= H/2;                                                            00203100          
+    GO TO J1                                                            00203200          
+    END;                                                                00203300          
+                                                                        00203400          
+  SIMPS:= I/3;                                                          00203500          
+  END SIMPS;                                                            00203600          
+                                                                        00210000          
+REAL PROCEDURE TORADS(X); VALUE X; REAL X; TORADS:= 3.1415926*X/180;    00210100          
+                                                                        00210200          
+REAL PROCEDURE SINE(X); VALUE X; REAL X; SINE:= SIN(X);                 00210300          
+                                                                        00210400          
+REAL PROCEDURE DARCTAN(X); VALUE X; REAL X; DARCTAN:= 1/(X**2 + 1);     00210500          
+                                                                        00210600          
+REAL PROCEDURE LOGISTICSIGMOID(X);                                      00210700          
+  VALUE X;                                                              00210800          
+  REAL X;                                                               00210900          
+  BEGIN                                                                 00211000          
+  LOGISTICSIGMOID:= 1/(1 + EXP(-X));                                    00211100          
+  END LOGISTICSIGMOID;                                                  00211200          
+                                                                        00900000          
+SUM:= SIMPS(TORADS(30), TORADS(90), 0.00001, 2.0, SINE);                00900600          
+WRITE(LINE, F1, RESULT);                                                00900700          
+SUM:= SIMPS(0, 1, 1@-5, 2.0, DARCTAN);                                  00900800          
+WRITE(LINE, F1, RESULT);                                                00900900          
+SUM:= SIMPS(0.5, 3, 1@-5, 2.0, LOGISTICSIGMOID);                        00901000          
+WRITE(LINE, F1, RESULT);                                                00901100          
+END.                                                                    00999900          

software/BALGOL/BALGOL-Examples/Simpsons-Rule/SIMPS-List.lst

@@ -0,0 +1,356 @@
+0200                   BAC-220 STANDARD VERSION   2/1/62
+ 
+0200      COMMENT SIMPSON-S RULE INTEGRATION PROCEDURE, TRANSLATED TO BALGOL
+ 
+0200              FROM THE EXAMPLE IN THE PRELIMINARY IAL REPORT$
+ 
+0200
+ 
+0200      COMMENT
+ 
+0200          EXAMPLE.. INTEGRATION OF A FUNCTION F(X) BY SIMPSON-S RULE. THE
+ 
+0200          VALUES OF F(X) ARE SUPPLIED BY AN ASSUMED EXISTENT FUNCTION
+ 
+0200          ROUTINE. THE MESH SIZE IS HALVED UNTIL TWO SUCCESSIVE SIMPSON
+ 
+0200          SUMS AGREE WITHIN A PRESCRIBED ERROR. DURING THE MESH REDUCTION
+ 
+0200          F(X) IS EVALUATED AT MOST ONCE FOR ANY X. A VALUE V GREATER THAN
+ 
+0200          THE MAXIMUM ABSOLUTE VALUE ATTAINED BY THE FUNCTION ON THE
+ 
+0200          INTERVAL IS REQUIRED FOR INITIALZING$
+ 
+0200
+ 
+0204      PROCEDURE SIMPS(A, B, DELTA, V$$ F())$
+ 
+0204          COMMENT A, B ARE THE MIN AND MAX, RESP. OF THE POINTS DEF.
+ 
+0204          INTERVAL OF INTEG. F() IS THE FUNCTION TO INTEGRATED.
+ 
+0204          DELTA IS THE PERMISSIBLE DIFFERENCE BETWEEN TO SUCCESSIVE SIMPSON
+ 
+0204          SUMS. V IS GREATER THAN THE MAXIMUM ABSOLUTE VALUE OF F ON A, B$
+ 
+0204        BEGIN
+ 
+0204        MONITOR IBAR, N, H, J, S, K, I$
+ 
+0204        INTEGER K, N$
+ 
+0204
+ 
+0204        IBAR = V(B-A)$
+ 
+0210        N = 1$
+ 
+0214        H = (B-A)/2$
+ 
+0221        J = H(F(A) + F(B))$
+ 
+0221
+ 
+0233      J1..
+ 
+0233        S = 0$
+ 
+0238        FOR K = (1, 1, N)$
+ 
+0253          S = S + F(A + (2K-1)H)$
+ 
+0253
+ 
+0269        I = J + 4H.S$
+ 
+0276        IF DELTA LSS ABS(I-IBAR)$
+ 
+0276          BEGIN
+ 
+0276          IBAR = I$
+ 
+0287          J = (I+J)/4$
+ 
+0294          N = 2N$
+ 
+0299          H = H/2$
+ 
+0305          GO TO J1
+ 
+0306          END$
+ 
+0306
+ 
+0306        SIMPS() = I/3$
+ 
+0309        RETURN$
+ 
+0311        END SIMPS()$
+ 
+0311
+ 
+0318      FUNCTION TORADS(X) = 3.1415926X/180$
+ 
+0318
+ 
+0327      FUNCTION DARCTAN(X) = 1/(X*2 + 1)$
+ 
+0327
+ 
+0339      PROCEDURE LOGISTICSIGMOID(X)$
+ 
+0339        BEGIN
+ 
+0342        LOGISTICSIGMOID() = 1/(1 + EXP(-X))$
+ 
+0350        RETURN$
+ 
+0352        END LOGISTICSIGMOID()$
+ 
+0352
+ 
+0352      SUM = SIMPS(TORADS(30.0), TORADS(90.0), 0.00001, 2.0$$ SIN())$
+ 
+0371      WRITE($$ RESULT, F1)$
+ 
+0379      SUM = SIMPS(0.0, 1.0, 1**-5, 2.0$$ DARCTAN())$
+ 
+0393      WRITE($$ RESULT, F2)$
+ 
+0401      SUM = SIMPS(0.5, 3.0, 1**-5, 2.0$$ LOGISTICSIGMOID())$
+ 
+0415      WRITE($$ RESULT, F3)$
+ 
+0415
+ 
+0423      OUTPUT RESULT(SUM)$
+ 
+0430      FORMAT F1(*SINE INTEGRAL =    *,X10.6,W0),
+ 
+0430             F2(*DARCTAN INTEGRAL = *,X10.6,W0),
+ 
+0430             F3(*LOGISTIC INTEGRAL =*,X10.6,W0)$
+ 
+0452      FINISH$
+COMPILED PROGRAM ENDS AT 0453
+PROGRAM VARIABLES BEGIN AT 4399
+ 
+
+
+                                                 IBAR =  .2094395000, 01
+                                                 N    =   0000000001
+                                                 H    =  .5235987500, 00
+                                                 J    =  .7853980700, 00
+                                                 S    =  .0000000000, 00
+                                                 K    =   0000000001
+                                                 S    =  .8660253800, 00
+                                                 K    =   0000000002
+                                                 I    =  .2599197200, 01
+                                                 IBAR =  .2599197200, 01
+                                                 J    =  .8461488000, 00
+                                                 N    =   0000000002
+                                                 H    =  .2617993700, 00
+                                                 S    =  .0000000000, 00
+                                                 K    =   0000000001
+                                                 S    =  .7071067600, 00
+                                                 K    =   0000000002
+                                                 S    =  .1673032500, 01
+                                                 K    =   0000000003
+                                                 I    =  .2598144200, 01
+                                                 IBAR =  .2598144200, 01
+                                                 J    =  .8610732500, 00
+                                                 N    =   0000000004
+                                                 H    =  .1308996800, 00
+                                                 S    =  .0000000000, 00
+                                                 K    =   0000000001
+                                                 S    =  .6087614000, 00
+                                                 K    =   0000000002
+                                                 S    =  .1402114700, 01
+                                                 K    =   0000000003
+                                                 S    =  .2325994100, 01
+                                                 K    =   0000000004
+                                                 S    =  .3317438900, 01
+                                                 K    =   0000000005
+                                                 I    =  .2598079900, 01
+                                                 IBAR =  .2598079900, 01
+                                                 J    =  .8647882700, 00
+                                                 N    =   0000000008
+                                                 H    =  .6544984000,-01
+                                                 S    =  .0000000000, 00
+                                                 K    =   0000000001
+                                                 S    =  .5555702100, 00
+                                                 K    =   0000000002
+                                                 S    =  .1214915900, 01
+                                                 K    =   0000000003
+                                                 S    =  .1966755600, 01
+                                                 K    =   0000000004
+                                                 S    =  .2798225100, 01
+                                                 K    =   0000000005
+                                                 S    =  .3695097700, 01
+                                                 K    =   0000000006
+                                                 S    =  .4642027800, 01
+                                                 K    =   0000000007
+                                                 S    =  .5622813000, 01
+                                                 K    =   0000000008
+                                                 S    =  .6620671900, 01
+                                                 K    =   0000000009
+                                                 I    =  .2598075800, 01
+SINE INTEGRAL =       .866025
+                                                 IBAR =  .2000000000, 01
+                                                 N    =   0000000001
+                                                 H    =  .5000000000, 00
+                                                 J    =  .7500000000, 00
+                                                 S    =  .0000000000, 00
+                                                 K    =   0000000001
+                                                 S    =  .8000000000, 00
+                                                 K    =   0000000002
+                                                 I    =  .2350000000, 01
+                                                 IBAR =  .2350000000, 01
+                                                 J    =  .7750000000, 00
+                                                 N    =   0000000002
+                                                 H    =  .2500000000, 00
+                                                 S    =  .0000000000, 00
+                                                 K    =   0000000001
+                                                 S    =  .9411764700, 00
+                                                 K    =   0000000002
+                                                 S    =  .1581176400, 01
+                                                 K    =   0000000003
+                                                 I    =  .2356176400, 01
+                                                 IBAR =  .2356176400, 01
+                                                 J    =  .7827941000, 00
+                                                 N    =   0000000004
+                                                 H    =  .1250000000, 00
+                                                 S    =  .0000000000, 00
+                                                 K    =   0000000001
+                                                 S    =  .9846153800, 00
+                                                 K    =   0000000002
+                                                 S    =  .1861327700, 01
+                                                 K    =   0000000003
+                                                 S    =  .2580428800, 01
+                                                 K    =   0000000004
+                                                 S    =  .3146800400, 01
+                                                 K    =   0000000005
+                                                 I    =  .2356194300, 01
+                                                 IBAR =  .2356194300, 01
+                                                 J    =  .7847471000, 00
+                                                 N    =   0000000008
+                                                 H    =  .6250000000,-01
+                                                 S    =  .0000000000, 00
+                                                 K    =   0000000001
+                                                 S    =  .9961089900, 00
+                                                 K    =   0000000002
+                                                 S    =  .1962146700, 01
+                                                 K    =   0000000003
+                                                 S    =  .2873178700, 01
+                                                 K    =   0000000004
+                                                 S    =  .3712522900, 01
+                                                 K    =   0000000005
+                                                 S    =  .4472166800, 01
+                                                 K    =   0000000006
+                                                 S    =  .5151211900, 01
+                                                 K    =   0000000007
+                                                 S    =  .5753564800, 01
+                                                 K    =   0000000008
+                                                 S    =  .6285789300, 01
+                                                 K    =   0000000009
+                                                 I    =  .2356194400, 01
+DARCTAN INTEGRAL =    .785398
+                                                 IBAR =  .5000000000, 01
+                                                 N    =   0000000001
+                                                 H    =  .1250000000, 01
+                                                 J    =  .1968791800, 01
+                                                 S    =  .0000000000, 00
+                                                 K    =   0000000001
+                                                 S    =  .8519528300, 00
+                                                 K    =   0000000002
+                                                 I    =  .6228555800, 01
+                                                 IBAR =  .6228555800, 01
+                                                 J    =  .2049336900, 01
+                                                 N    =   0000000002
+                                                 H    =  .6250000000, 00
+                                                 S    =  .0000000000, 00
+                                                 K    =   0000000001
+                                                 S    =  .7549150200, 00
+                                                 K    =   0000000002
+                                                 S    =  .1669816000, 01
+                                                 K    =   0000000003
+                                                 I    =  .6223876900, 01
+                                                 IBAR =  .6223876900, 01
+                                                 J    =  .2068303400, 01
+                                                 N    =   0000000004
+                                                 H    =  .3125000000, 00
+                                                 S    =  .0000000000, 00
+                                                 K    =   0000000001
+                                                 S    =  .6926419800, 00
+                                                 K    =   0000000002
+                                                 S    =  .1500709200, 01
+                                                 K    =   0000000003
+                                                 S    =  .2387913800, 01
+                                                 K    =   0000000004
+                                                 S    =  .3324198800, 01
+                                                 K    =   0000000005
+                                                 I    =  .6223551800, 01
+                                                 IBAR =  .6223551800, 01
+                                                 J    =  .2072963800, 01
+                                                 N    =   0000000008
+                                                 H    =  .1562500000, 00
+                                                 S    =  .0000000000, 00
+                                                 K    =   0000000001
+                                                 S    =  .6584175200, 00
+                                                 K    =   0000000002
+                                                 S    =  .1383287700, 01
+                                                 K    =   0000000003
+                                                 S    =  .2165950200, 01
+                                                 K    =   0000000004
+                                                 S    =  .2997093200, 01
+                                                 K    =   0000000005
+                                                 S    =  .3867690400, 01
+                                                 K    =   0000000006
+                                                 S    =  .4769611100, 01
+                                                 K    =   0000000007
+                                                 S    =  .5695914800, 01
+                                                 K    =   0000000008
+                                                 S    =  .6640909500, 01
+                                                 K    =   0000000009
+                                                 I    =  .6223532200, 01
+                                                 IBAR =  .6223532200, 01
+                                                 J    =  .2074124000, 01
+                                                 N    =   0000000016
+                                                 H    =  .7812500000,-01
+                                                 S    =  .0000000000, 00
+                                                 K    =   0000000001
+                                                 S    =  .6406358700, 00
+                                                 K    =   0000000002
+                                                 S    =  .1316400400, 01
+                                                 K    =   0000000003
+                                                 S    =  .2025419500, 01
+                                                 K    =   0000000004
+                                                 S    =  .2765593800, 01
+                                                 K    =   0000000005
+                                                 S    =  .3534674000, 01
+                                                 K    =   0000000006
+                                                 S    =  .4330332100, 01
+                                                 K    =   0000000007
+                                                 S    =  .5150225400, 01
+                                                 K    =   0000000008
+                                                 S    =  .5992051000, 01
+                                                 K    =   0000000009
+                                                 S    =  .6853589200, 01
+                                                 K    =   0000000010
+                                                 S    =  .7732735900, 01
+                                                 K    =   0000000011
+                                                 S    =  .8627525300, 01
+                                                 K    =   0000000012
+                                                 S    =  .9536143200, 01
+                                                 K    =   0000000013
+                                                 S    =  .1045693200, 02
+                                                 K    =   0000000014
+                                                 S    =  .1138839400, 02
+                                                 K    =   0000000015
+                                                 S    =  .1232918300, 02
+                                                 K    =   0000000016
+                                                 S    =  .1327810000, 02
+                                                 K    =   0000000017
+                                                 I    =  .6223530000, 01
+LOGISTIC INTEGRAL =  2.074510

software/BALGOL/BALGOL-Examples/Simpsons-Rule/SIMPS.card

@@ -0,0 +1,67 @@
+2 COMMENT SIMPSON-S RULE INTEGRATION PROCEDURE, TRANSLATED TO BALGOL
+2         FROM THE EXAMPLE IN THE PRELIMINARY IAL REPORT;
+2
+2 COMMENT
+2     EXAMPLE.. INTEGRATION OF A FUNCTION F(X) BY SIMPSON-S RULE. THE
+2     VALUES OF F(X) ARE SUPPLIED BY AN ASSUMED EXISTENT FUNCTION
+2     ROUTINE. THE MESH SIZE IS HALVED UNTIL TWO SUCCESSIVE SIMPSON
+2     SUMS AGREE WITHIN A PRESCRIBED ERROR. DURING THE MESH REDUCTION
+2     F(X) IS EVALUATED AT MOST ONCE FOR ANY X. A VALUE V GREATER THAN
+2     THE MAXIMUM ABSOLUTE VALUE ATTAINED BY THE FUNCTION ON THE
+2     INTERVAL IS REQUIRED FOR INITIALZING;
+2
+2 PROCEDURE SIMPS(A, B, DELTA, V;; F());
+2     COMMENT A, B ARE THE MIN AND MAX, RESP. OF THE POINTS DEF.
+2     INTERVAL OF INTEG. F() IS THE FUNCTION TO INTEGRATED.
+2     DELTA IS THE PERMISSIBLE DIFFERENCE BETWEEN TO SUCCESSIVE SIMPSON
+2     SUMS. V IS GREATER THAN THE MAXIMUM ABSOLUTE VALUE OF F ON A, B;
+2   BEGIN
+2   MONITOR IBAR, N, H, J, S, K, I;
+2   INTEGER K, N;
+2
+2   IBAR = V(B-A);
+2   N = 1;
+2   H = (B-A)/2;
+2   J = H(F(A) + F(B));
+2
+2 J1..
+2   S = 0;
+2   FOR K = (1, 1, N);
+2     S = S + F(A + (2K-1)H);
+2
+2   I = J + 4H.S;
+2   IF DELTA LSS ABS(I-IBAR);
+2     BEGIN
+2     IBAR = I;
+2     J = (I+J)/4;
+2     N = 2N;
+2     H = H/2;
+2     GO TO J1
+2     END;
+2
+2   SIMPS() = I/3;
+2   RETURN;
+2   END SIMPS();
+2
+2 FUNCTION TORADS(X) = 3.1415926X/180;
+2
+2 FUNCTION DARCTAN(X) = 1/(X*2 + 1);
+2
+2 PROCEDURE LOGISTICSIGMOID(X);
+2   BEGIN
+2   LOGISTICSIGMOID() = 1/(1 + EXP(-X));
+2   RETURN;
+2   END LOGISTICSIGMOID();
+2
+2 SUM = SIMPS(TORADS(30.0), TORADS(90.0), 0.00001, 2.0;; SIN());
+2 WRITE(;; RESULT, F1);
+2 SUM = SIMPS(0.0, 1.0, 1**-5, 2.0;; DARCTAN());
+2 WRITE(;; RESULT, F2);
+2 SUM = SIMPS(0.5, 3.0, 1**-5, 2.0;; LOGISTICSIGMOID());
+2 WRITE(;; RESULT, F3);
+2
+2 OUTPUT RESULT(SUM);
+2 FORMAT F1(*SINE INTEGRAL =    *,X10.6,W0),
+2        F2(*DARCTAN INTEGRAL = *,X10.6,W0),
+2        F3(*LOGISTIC INTEGRAL =*,X10.6,W0);
+2 FINISH;

software/BALGOL/BALGOL-Library/PUNCH-LIBRARY.card

@@ -254,12 +254,12 @@
 6 6       0006144002899991000041000080001400050800004200008000046005380000460054
 6 6       0012864124000511000010999780000330016600001301498041040002080001450004
 6 6       0018100004199988110837002200000120020800003000236000012015282100370034
-6 6       0024800004000528000033002784220260051804124000326050444020060050300200
-6 6       0030600001001526000042014900000300032000003000330000148000880000460052
-6 6       0036888114000528000033003984220260051000004300008880037004280000130055
-6 6       0042802232600538620326005180110400054000004900018891040005489108260054
-6 6       0048871082600548000030002700000000000233000000000000000000000000000000
-6 3       0054000000000000000000005040000990000
+6 6       0024800004000528000033002784220260051804124000326050444020040000040000
+6 6       0030600503002006000010015260000420149000003000320000030003300001480008
+6 6       0036800004600528881140005280000330039842202600510000043000088800370042
+6 6       0042800001300558022326005386203260051801104000540000049000188910400054
+6 6       0048891082600548710826005480000300027000000000002330000000000000000000
+6 4       005400000000000000000000000000000005040000990000
 2TRACE,REAL
 2ERROR=01
 6 6       0000090003800008440028001560000310121800004200008000040002010000109999