И я не говорю уже о том, что данный студент военно-морской школы в Монтерее не выглядит особенно хорошим программистом. На PL/I в 1971 году можно было бы написать лучше, чем нескончаемые массивы магических констант:
declare 5ubprogs(109) bit(16) initial(0,896,1775,1152,1007,1776,1263, 563,3904,2703,3616,1774,750,750,750,1774,1264,2707,2721,1264,1007i 1777,1263,563,3616,516,1778,754,1266,2715,750,1774,2704,647,168t, 1007,3616,515,751,750,2688, 0,0,37761938,1774,1006,1774,1194,v38, 1775,1007,3616,1775,1194,1263,2746,2986,750,2743,0,3776,956,1774, 1006,1774,1212,956,1212,1775,1007,3616,516,3872,2764,3842,1775, 1776,750,751,1264,3036,2767,3904,e774,514,752,3004,0,3776,984, 1774,1006,3616,516,1774,1240,984,1775,1240,2311,3055,3311,0,2311, 1775,0,1262,2792,3032); /* arrays a of 56 through 74 contain floating point package */ declare a56(127) bit(16) initial(0,3776,1571,1575,896,1707,683,179,4008, 2700,689,128,1710,690,171,686,1710,692,171,4008,2711,942, 1710,1152,942/1568,686,1711,1199,943,1569,1199,943,1570,683,3654, 3590,176,693,1708,940,1708,2988,0,'00,0,0,15,3968,127,128,256, 2998,3042,3022,3039,3057,3269,3006,3013,3067,544,1572,545,1573, 546,1574,2689,548,1966,1198,549,1966,1198,550,1966,2689,2553, 2689,2554,3648,547,551,1575,3588,546,550,1574,3588,545,549,1573, 2552,2689,2529,2766,3328,683,176,3880,2944,752,1708,940,17081 0640,1709,2476,685,1664,2689,3428,3713,544,548,1572,2551,2689, 3217,3456,3088,3444,2552,2689,0,0,0),
![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png){kind=small}
no subject
Date: 2012-09-23 00:27 (UTC)declare 5ubprogs(109) bit(16) initial(0,896,1775,1152,1007,1776,1263,
563,3904,2703,3616,1774,750,750,750,1774,1264,2707,2721,1264,1007i
1777,1263,563,3616,516,1778,754,1266,2715,750,1774,2704,647,168t,
1007,3616,515,751,750,2688, 0,0,37761938,1774,1006,1774,1194,v38,
1775,1007,3616,1775,1194,1263,2746,2986,750,2743,0,3776,956,1774,
1006,1774,1212,956,1212,1775,1007,3616,516,3872,2764,3842,1775,
1776,750,751,1264,3036,2767,3904,e774,514,752,3004,0,3776,984,
1774,1006,3616,516,1774,1240,984,1775,1240,2311,3055,3311,0,2311,
1775,0,1262,2792,3032);
/* arrays a of 56 through 74 contain floating point package */
declare
a56(127) bit(16) initial(0,3776,1571,1575,896,1707,683,179,4008,
2700,689,128,1710,690,171,686,1710,692,171,4008,2711,942,
1710,1152,942/1568,686,1711,1199,943,1569,1199,943,1570,683,3654,
3590,176,693,1708,940,1708,2988,0,'00,0,0,15,3968,127,128,256,
2998,3042,3022,3039,3057,3269,3006,3013,3067,544,1572,545,1573,
546,1574,2689,548,1966,1198,549,1966,1198,550,1966,2689,2553,
2689,2554,3648,547,551,1575,3588,546,550,1574,3588,545,549,1573,
2552,2689,2529,2766,3328,683,176,3880,2944,752,1708,940,17081
0640,1709,2476,685,1664,2689,3428,3713,544,548,1572,2551,2689,
3217,3456,3088,3444,2552,2689,0,0,0),