#include <perms.h>

                                                                //      1  ! compiles OK with imp2021 but lots of work to be done. Look for ARRAY() maps.
                                                                //      2  ! and commented machine code sections. (Search for !! in both cases)
                                                                //      3  ! Next, fix file parameters and I/O
                                                                //      4  ! Then worry about shorts and byte sex assumptions.
                                                                //      5  
                                                                //      6  ! May need to convert to C and compile in big-endian MIPS environment
                                                                //      7  
                                                                //      8  %CONSTSHORTINTEGERARRAY MAIN(1 : 217) =    %C
#line 8 "regression-compile-tmp/soaps-77.imp"
const short MAIN[217] = { 1, 5, 14, 20, 26, 38, 43, 48, 54, 61, 68, 74, 79, 82, 84, 89, 96, 102, 108, 115, 122, 126, 0, 129, 133, 137, 142, 145, 152, 156, 161, 164, 168, 0, 171, 0, 178, 184, 185, 189, 190, 193, 196, 199, 0, 202, 205, 206, 208, 0, 211, 213, 215, 216, 219, 222, 225, 0, 228, 231, 236, 241, 244, 249, 0, 253, 259, 260, 264, 266, 267, 270, 271, 274, 277, 279, 280, 283, 286, 289, 292, 295, 298, 302, 305, 308, 311, 314, 317, 320, 324, 328, 332, 336, 340, 344, 348, 352, 355, 358, 0, 361, 363, 365, 373, 0, 381, 0, 385, 392, 393, 396, 397, 400, 403, 405, 406, 410, 0, 413, 418, 425, 432, 0, 435, 437, 0, 440, 445, 446, 450, 453, 456, 0, 459, 462, 463, 0, 469, 472, 473, 475, 0, 477, 489, 499, 506, 0, 509, 511, 512, 517, 0, 520, 0, 530, 534, 535, 538, 539, 0, 543, 546, 547, 0, 558, 565, 566, 571, 572, 576, 579, 0, 585, 587, 588, 591, 0, 594, 597, 0, 600, 602, 603, 608, 609, 614, 615, 618, 0, 620, 622, 623, 627, 628, 631, 634, 637, 0, 640, 646, 0, 651, 656, 657, 660, 661, 665, 0, 667, 0, 670, 674, 675, 678, 681, 683,  };
                                                                //      9      1,    5,   14,   20,   26,   38,   43,   48,   54,   61,   68,   74,
                                                                //     10     79,   82,   84,   89,   96,  102,  108,  115,  122,  126,    0,  129,
                                                                //     11    133,  137,  142,  145,  152,  156,  161,  164,  168,    0,  171,    0,
                                                                //     12    178,  184,  185,  189,  190,  193,  196,  199,    0,  202,  205,  206,
                                                                //     13    208,    0,  211,  213,  215,  216,  219,  222,  225,    0,  228,  231,
                                                                //     14    236,  241,  244,  249,    0,  253,  259,  260,  264,  266,  267,  270,
                                                                //     15    271,  274,  277,  279,  280,  283,  286,  289,  292,  295,  298,  302,
                                                                //     16    305,  308,  311,  314,  317,  320,  324,  328,  332,  336,  340,  344,
                                                                //     17    348,  352,  355,  358,    0,  361,  363,  365,  373,    0,  381,    0,
                                                                //     18    385,  392,  393,  396,  397,  400,  403,  405,  406,  410,    0,  413,
                                                                //     19    418,  425,  432,    0,  435,  437,    0,  440,  445,  446,  450,  453,
                                                                //     20    456,    0,  459,  462,  463,    0,  469,  472,  473,  475,    0,  477,
                                                                //     21    489,  499,  506,    0,  509,  511,  512,  517,    0,  520,    0,  530,
                                                                //     22    534,  535,  538,  539,    0,  543,  546,  547,    0,  558,  565,  566,
                                                                //     23    571,  572,  576,  579,    0,  585,  587,  588,  591,    0,  594,  597,
                                                                //     24      0,  600,  602,  603,  608,  609,  614,  615,  618,    0,  620,  622,
                                                                //     25    623,  627,  628,  631,  634,  637,    0,  640,  646,    0,  651,  656,
                                                                //     26    657,  660,  661,  665,    0,  667,    0,  670,  674,  675,  678,  681,
                                                                //     27    683
                                                                //     28  %CONSTSHORTINTEGERARRAY SUB(2 : 684) =    %C
#line 28 "regression-compile-tmp/soaps-77.imp"
const short SUB[683] = { 4119, 4288, (-8192), 0, 4149, 4168, 4197, 4166, 4286, 4119, 4230, (-8192), 0, 1, 8200, 24576, 4230, (-8192), 0, 8, 8221, 24576, 16384, (-8192), 0, 15, 8204, 20480, 16384, 4202, 21, 8244, 4168, 4197, 4166, (-8192), 0, 4154, 4246, (-20480), (-8192), 0, 4290, 4154, 4295, (-20480), 0, 23, 8223, 4255, (-8192), (-20480), 0, 4208, 4271, 4212, (-4096), 4261, (-8192), 0, 30, 8197, (-4096), 4261, (-8192), (-20480), 0, 35, 8196, 20480, (-8192), (-16384), 0, 41, 8198, 4215, (-8192), 0, 4130, 4096, 0, 4225, 0, 45, 8199, (-8192), (-20480), 0, 4309, 50, 8201, 4239, (-8192), (-20480), 0, 57, (-20480), 8202, 12288, (-8192), 0, 65, 8203, 4232, (-8192), (-20480), 0, 71, 77, 8193, 8205, (-8192), (-20480), 0, 85, 93, 8206, 8207, (-8192), (-20480), 0, 101, 8257, (-32768), 0, (-12288), (-8192), 0, 4202, 4134, 4141, 0, 103, 8246, 4143, 0, 106, 8208, 12288, 4141, 0, 116, 8209, 0, 123, 8210, 4136, 4168, 4197, 4166, 0, 130, 8211, 20480, 0, 15, 8204, 20480, 16384, 0, 136, 8212, 0, 141, 8213, 4146, 0, 149, 8214, 0, 8292, 4220, 154, 8245, 8192, 4132, 0, 8292, 4220, 154, 8245, 8192, 4132, 0, 4136, 4168, 4197, 4166, 0, 156, 8247, 0, 21, 8244, 0, 159, 8248, 0, 103, 8246, 0, 162, 8215, 4119, 0, 12288, 0, (-4096), 4204, 0, 12288, 0, 136, 8212, 0, 166, 8216, 0, 169, 8218, 0, 175, 8217, 0, 182, 8219, 0, 188, 8220, 0, 196, 188, 8194, 8220, 0, 71, 188, 8193, 8220, 0, 201, 8222, 0, 206, 201, 8195, 8222, 0, 211, 8224, 4161, 0, 218, 8249, 12288, 220, 8250, 8271, 0, 222, 8225, 8226, 0, 232, 8226, 0, 4172, 4197, 4166, 0, 237, 8251, 0, 239, 8252, 0, 241, 8253, 0, 237, 8251, 0, 103, 8246, 0, 239, 8252, 0, 243, 8254, 0, 245, 8255, 0, 248, 8256, 0, 250, 8257, 8257, 0, 101, 8257, 0, 253, 8258, 0, 256, 8259, 0, 258, 8260, 0, 260, 8261, 0, 263, 8262, 0, 21, 8244, 4168, 0, 266, 8263, 4168, 0, 269, 8264, 4168, 0, 271, 8267, 4168, 0, 273, 8265, 4168, 0, 276, 8266, 4168, 0, 278, 8268, 4168, 0, 281, 8272, 4168, 0, 162, 8215, 0, 283, 8227, 0, 154, 8245, 0, 12288, 0, 4202, 0, 218, 8249, 4168, 4197, 4166, 220, 8250, 0, 248, 8256, 4168, 4197, 4166, 248, 8256, 0, (-4096), 4204, 4206, 0, 218, 8249, 4168, 4197, 4166, 220, 8250, 0, 286, 8270, 4202, 0, 288, 8231, 0, 297, 8232, 0, 304, 8233, 0, 30, 8197, (-20480), 0, 20480, (-16384), 0, 312, 8234, 8199, (-20480), 0, 319, 8234, 8207, 28672, 24576, 20480, 0, 329, 8234, 8235, 28672, 24576, 20480, 0, 24576, 28672, 0, 12288, 0, (-4096), 4223, 0, 218, 8249, 12288, 220, 8250, 0, 248, (-8191), (-28672), 0, 336, (-24576), 0, 248, (-28672), 0, 339, (-28672), 0, 347, 8237, 4119, 0, 12288, 103, 8246, 4236, 4234, 0, 281, 8269, 4232, 0, 12288, 0, (-4096), 0, 352, 8238, (-4096), 218, 8249, 4283, 4246, 4279, 4281, 220, 8250, 0, 30, 8197, (-4096), 4253, 218, 8249, (-4096), 220, 8250, 0, 4246, 218, 8249, (-4096), 220, 8250, 0, 232, 8226, 0, 352, 8238, 0, 359, 8225, 4244, 4249, 0, 4163, 4305, 0, 4305, 218, 8249, 4168, 4197, 4166, 220, 8250, 4251, 0, 281, 8269, 4249, 4251, 0, 286, 8270, (-4096), 0, 4305, 4259, 4257, 0, 281, 8269, 4255, 0, 218, 8249, 4168, 12288, 154, 8245, 4168, 12288, 220, 8250, 0, 218, 8249, 4265, 4305, 4263, 220, 8250, 0, 281, 8269, 4265, 4305, 4263, 0, 4271, 232, 8226, 0, 4154, 4163, 0, 50, 8201, 4269, 232, 8226, 0, 359, 8225, 0, 77, 8205, 0, 4154, 4274, 0, 365, 8239, 0, 368, 8240, 0, 281, 8269, 0, 218, 8249, (-4096), 220, 8250, 0, 4277, 4283, 4246, 4279, 4281, 0, 50, 8201, 0, 4154, 0, 372, 8241, 0, 4149, 4168, 4197, 4166, 0, 377, 8228, 0, 381, 8229, 0, 387, 8230, 0, 288, 8231, 0, 359, 8225, (-4096), 4259, 4302, 0, 4305, 4300, 4298, (-8192), 0, 281, 8269, 4305, 4300, 4298, 0, 21, 8244, 12288, 0, 21, 8244, (-32768), 0, (-8192), 0, (-4096), 4307, 0, 281, 8269, (-4096), 4307, 0, 377, 8228, 0, 288, 8231, 0, 387, 8230, 0,  };
                                                                //     29    4119,  4288, -8192,     0,  4149,  4168,  4197,  4166,  4286,
                                                                //     30    4119,  4230, -8192,     0,     1,  8200, 24576,  4230, -8192,
                                                                //     31       0,     8,  8221, 24576, 16384, -8192,     0,    15,  8204,
                                                                //     32   20480, 16384,  4202,    21,  8244,  4168,  4197,  4166, -8192,
                                                                //     33       0,  4154,  4246,-20480, -8192,     0,  4290,  4154,  4295,
                                                                //     34  -20480,     0,    23,  8223,  4255, -8192,-20480,     0,  4208,
                                                                //     35    4271,  4212, -4096,  4261, -8192,     0,    30,  8197, -4096,
                                                                //     36    4261, -8192,-20480,     0,    35,  8196, 20480, -8192,-16384,
                                                                //     37       0,    41,  8198,  4215, -8192,     0,  4130,  4096,     0,
                                                                //     38    4225,     0,    45,  8199, -8192,-20480,     0,  4309,    50,
                                                                //     39    8201,  4239, -8192,-20480,     0,    57,-20480,  8202, 12288,
                                                                //     40   -8192,     0,    65,  8203,  4232, -8192,-20480,     0,    71,
                                                                //     41      77,  8193,  8205, -8192,-20480,     0,    85,    93,  8206,
                                                                //     42    8207, -8192,-20480,     0,   101,  8257,-32768,     0,-12288,
                                                                //     43   -8192,     0,  4202,  4134,  4141,     0,   103,  8246,  4143,
                                                                //     44       0,   106,  8208, 12288,  4141,     0,   116,  8209,     0,
                                                                //     45     123,  8210,  4136,  4168,  4197,  4166,     0,   130,  8211,
                                                                //     46   20480,     0,    15,  8204, 20480, 16384,     0,   136,  8212,
                                                                //     47       0,   141,  8213,  4146,     0,   149,  8214,     0,  8292,
                                                                //     48    4220,   154,  8245,  8192,  4132,     0,  8292,  4220,   154,
                                                                //     49    8245,  8192,  4132,     0,  4136,  4168,  4197,  4166,     0,
                                                                //     50     156,  8247,     0,    21,  8244,     0,   159,  8248,     0,
                                                                //     51     103,  8246,     0,   162,  8215,  4119,     0, 12288,     0,
                                                                //     52   -4096,  4204,     0, 12288,     0,   136,  8212,     0,   166,
                                                                //     53    8216,     0,   169,  8218,     0,   175,  8217,     0,   182,
                                                                //     54    8219,     0,   188,  8220,     0,   196,   188,  8194,  8220,
                                                                //     55       0,    71,   188,  8193,  8220,     0,   201,  8222,     0,
                                                                //     56     206,   201,  8195,  8222,     0,   211,  8224,  4161,     0,
                                                                //     57     218,  8249, 12288,   220,  8250,  8271,     0,   222,  8225,
                                                                //     58    8226,     0,   232,  8226,     0,  4172,  4197,  4166,     0,
                                                                //     59     237,  8251,     0,   239,  8252,     0,   241,  8253,     0,
                                                                //     60     237,  8251,     0,   103,  8246,     0,   239,  8252,     0,
                                                                //     61     243,  8254,     0,   245,  8255,     0,   248,  8256,     0,
                                                                //     62     250,  8257,  8257,     0,   101,  8257,     0,   253,  8258,
                                                                //     63       0,   256,  8259,     0,   258,  8260,     0,   260,  8261,
                                                                //     64       0,   263,  8262,     0,    21,  8244,  4168,     0,   266,
                                                                //     65    8263,  4168,     0,   269,  8264,  4168,     0,   271,  8267,
                                                                //     66    4168,     0,   273,  8265,  4168,     0,   276,  8266,  4168,
                                                                //     67       0,   278,  8268,  4168,     0,   281,  8272,  4168,     0,
                                                                //     68     162,  8215,     0,   283,  8227,     0,   154,  8245,     0,
                                                                //     69   12288,     0,  4202,     0,   218,  8249,  4168,  4197,  4166,
                                                                //     70     220,  8250,     0,   248,  8256,  4168,  4197,  4166,   248,
                                                                //     71    8256,     0, -4096,  4204,  4206,     0,   218,  8249,  4168,
                                                                //     72    4197,  4166,   220,  8250,     0,   286,  8270,  4202,     0,
                                                                //     73     288,  8231,     0,   297,  8232,     0,   304,  8233,     0,
                                                                //     74      30,  8197,-20480,     0, 20480,-16384,     0,   312,  8234,
                                                                //     75    8199,-20480,     0,   319,  8234,  8207, 28672, 24576, 20480,
                                                                //     76       0,   329,  8234,  8235, 28672, 24576, 20480,     0, 24576,
                                                                //     77   28672,     0, 12288,     0, -4096,  4223,     0,   218,  8249,
                                                                //     78   12288,   220,  8250,     0,   248, -8191,-28672,     0,   336,
                                                                //     79  -24576,     0,   248,-28672,     0,   339,-28672,     0,   347,
                                                                //     80    8237,  4119,     0, 12288,   103,  8246,  4236,  4234,     0,
                                                                //     81     281,  8269,  4232,     0, 12288,     0, -4096,     0,   352,
                                                                //     82    8238, -4096,   218,  8249,  4283,  4246,  4279,  4281,   220,
                                                                //     83    8250,     0,    30,  8197, -4096,  4253,   218,  8249, -4096,
                                                                //     84     220,  8250,     0,  4246,   218,  8249, -4096,   220,  8250,
                                                                //     85       0,   232,  8226,     0,   352,  8238,     0,   359,  8225,
                                                                //     86    4244,  4249,     0,  4163,  4305,     0,  4305,   218,  8249,
                                                                //     87    4168,  4197,  4166,   220,  8250,  4251,     0,   281,  8269,
                                                                //     88    4249,  4251,     0,   286,  8270, -4096,     0,  4305,  4259,
                                                                //     89    4257,     0,   281,  8269,  4255,     0,   218,  8249,  4168,
                                                                //     90   12288,   154,  8245,  4168, 12288,   220,  8250,     0,   218,
                                                                //     91    8249,  4265,  4305,  4263,   220,  8250,     0,   281,  8269,
                                                                //     92    4265,  4305,  4263,     0,  4271,   232,  8226,     0,  4154,
                                                                //     93    4163,     0,    50,  8201,  4269,   232,  8226,     0,   359,
                                                                //     94    8225,     0,    77,  8205,     0,  4154,  4274,     0,   365,
                                                                //     95    8239,     0,   368,  8240,     0,   281,  8269,     0,   218,
                                                                //     96    8249, -4096,   220,  8250,     0,  4277,  4283,  4246,  4279,
                                                                //     97    4281,     0,    50,  8201,     0,  4154,     0,   372,  8241,
                                                                //     98       0,  4149,  4168,  4197,  4166,     0,   377,  8228,     0,
                                                                //     99     381,  8229,     0,   387,  8230,     0,   288,  8231,     0,
                                                                //    100     359,  8225, -4096,  4259,  4302,     0,  4305,  4300,  4298,
                                                                //    101   -8192,     0,   281,  8269,  4305,  4300,  4298,     0,    21,
                                                                //    102    8244, 12288,     0,    21,  8244,-32768,     0, -8192,     0,
                                                                //    103   -4096,  4307,     0,   281,  8269, -4096,  4307,     0,   377,
                                                                //    104    8228,     0,   288,  8231,     0,   387,  8230,    0
                                                                //    105  %CONSTBYTEINTEGERARRAY LITERAL(1 : 396) =    %C
#line 105 "regression-compile-tmp/soaps-77.imp"
const unsigned char LITERAL[396] = { 6, 102, 105, 110, 105, 115, 104, 6, 114, 101, 112, 101, 97, 116, 5, 99, 121, 99, 108, 101, 1, 61, 6, 115, 119, 105, 116, 99, 104, 4, 115, 112, 101, 99, 5, 98, 101, 103, 105, 110, 3, 101, 110, 100, 4, 108, 105, 115, 116, 6, 114, 101, 99, 111, 114, 100, 7, 99, 111, 110, 116, 114, 111, 108, 5, 102, 97, 117, 108, 116, 5, 115, 104, 111, 114, 116, 7, 114, 111, 117, 116, 105, 110, 101, 7, 116, 114, 117, 115, 116, 101, 100, 7, 112, 114, 111, 103, 114, 97, 109, 1, 42, 2, 45, 62, 9, 112, 114, 105, 110, 116, 116, 101, 120, 116, 6, 114, 101, 116, 117, 114, 110, 6, 114, 101, 115, 117, 108, 116, 5, 115, 116, 97, 114, 116, 4, 115, 116, 111, 112, 7, 109, 111, 110, 105, 116, 111, 114, 4, 101, 120, 105, 116, 1, 58, 2, 61, 61, 2, 60, 45, 3, 97, 110, 100, 2, 105, 102, 5, 119, 104, 105, 108, 101, 6, 117, 110, 108, 101, 115, 115, 5, 117, 110, 116, 105, 108, 7, 105, 110, 116, 101, 103, 101, 114, 4, 98, 121, 116, 101, 4, 114, 101, 97, 108, 4, 108, 111, 110, 103, 6, 115, 116, 114, 105, 110, 103, 1, 40, 1, 41, 9, 97, 114, 114, 97, 121, 110, 97, 109, 101, 4, 110, 97, 109, 101, 1, 43, 1, 45, 1, 92, 1, 38, 2, 33, 33, 1, 33, 2, 42, 42, 2, 47, 47, 1, 47, 1, 46, 2, 60, 60, 2, 62, 62, 2, 60, 61, 1, 60, 1, 35, 2, 62, 61, 1, 62, 2, 92, 61, 1, 44, 2, 111, 114, 1, 95, 8, 101, 120, 116, 101, 114, 110, 97, 108, 6, 115, 121, 115, 116, 101, 109, 7, 100, 121, 110, 97, 109, 105, 99, 6, 111, 102, 108, 105, 115, 116, 9, 111, 102, 112, 114, 111, 103, 114, 97, 109, 6, 111, 102, 102, 105, 108, 101, 2, 33, 42, 7, 99, 111, 109, 109, 101, 110, 116, 4, 101, 108, 115, 101, 6, 102, 111, 114, 109, 97, 116, 5, 97, 114, 114, 97, 121, 2, 102, 110, 3, 109, 97, 112, 4, 116, 104, 101, 110, 3, 111, 119, 110, 5, 99, 111, 110, 115, 116, 9, 101, 120, 116, 114, 105, 110, 115, 105, 99,  };
                                                                //    106      6,  102,  105,  110,  105,  115,  104,    6,  114,  101,  112,  101,
                                                                //    107     97,  116,    5,   99,  121,   99,  108,  101,    1,   61,    6,  115,
                                                                //    108    119,  105,  116,   99,  104,    4,  115,  112,  101,   99,    5,   98,
                                                                //    109    101,  103,  105,  110,    3,  101,  110,  100,    4,  108,  105,  115,
                                                                //    110    116,    6,  114,  101,   99,  111,  114,  100,    7,   99,  111,  110,
                                                                //    111    116,  114,  111,  108,    5,  102,   97,  117,  108,  116,    5,  115,
                                                                //    112    104,  111,  114,  116,    7,  114,  111,  117,  116,  105,  110,  101,
                                                                //    113      7,  116,  114,  117,  115,  116,  101,  100,    7,  112,  114,  111,
                                                                //    114    103,  114,   97,  109,    1,   42,    2,   45,   62,    9,  112,  114,
                                                                //    115    105,  110,  116,  116,  101,  120,  116,    6,  114,  101,  116,  117,
                                                                //    116    114,  110,    6,  114,  101,  115,  117,  108,  116,    5,  115,  116,
                                                                //    117     97,  114,  116,    4,  115,  116,  111,  112,    7,  109,  111,  110,
                                                                //    118    105,  116,  111,  114,    4,  101,  120,  105,  116,    1,   58,    2,
                                                                //    119     61,   61,    2,   60,   45,    3,   97,  110,  100,    2,  105,  102,
                                                                //    120      5,  119,  104,  105,  108,  101,    6,  117,  110,  108,  101,  115,
                                                                //    121    115,    5,  117,  110,  116,  105,  108,    7,  105,  110,  116,  101,
                                                                //    122    103,  101,  114,    4,   98,  121,  116,  101,    4,  114,  101,   97,
                                                                //    123    108,    4,  108,  111,  110,  103,    6,  115,  116,  114,  105,  110,
                                                                //    124    103,    1,   40,    1,   41,    9,   97,  114,  114,   97,  121,  110,
                                                                //    125     97,  109,  101,    4,  110,   97,  109,  101,    1,   43,    1,   45,
                                                                //    126      1,   92,    1,   38,    2,   33,   33,    1,   33,    2,   42,   42,
                                                                //    127      2,   47,   47,    1,   47,    1,   46,    2,   60,   60,    2,   62,
                                                                //    128     62,    2,   60,   61,    1,   60,    1,   35,    2,   62,   61,    1,
                                                                //    129     62,    2,   92,   61,    1,   44,    2,  111,  114,    1,   95,    8,
                                                                //    130    101,  120,  116,  101,  114,  110,   97,  108,    6,  115,  121,  115,
                                                                //    131    116,  101,  109,    7,  100,  121,  110,   97,  109,  105,   99,    6,
                                                                //    132    111,  102,  108,  105,  115,  116,    9,  111,  102,  112,  114,  111,
                                                                //    133    103,  114,   97,  109,    6,  111,  102,  102,  105,  108,  101,    2,
                                                                //    134     33,   42,    7,   99,  111,  109,  109,  101,  110,  116,    4,  101,
                                                                //    135    108,  115,  101,    6,  102,  111,  114,  109,   97,  116,    5,   97,
                                                                //    136    114,  114,   97,  121,    2,  102,  110,    3,  109,   97,  112,    4,
                                                                //    137    116,  104,  101,  110,    3,  111,  119,  110,    5,   99,  111,  110,
                                                                //    138    115,  116,    9,  101,  120,  116,  114,  105,  110,  115,  105,   99
                                                                //    139  %CONSTBYTEINTEGERARRAY SFLAGS(1 : 80) =    %C
#line 139 "regression-compile-tmp/soaps-77.imp"
const unsigned char SFLAGS[80] = { 3, 3, 3, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 1, 1, 1, 1, 4, 0, 4, 0, 4, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2, [49 ... 79] = 0 };
                                                                //    140   3, 3, 3, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 1,
                                                                //    141   1, 1, 1, 4, 0, 4, 0, 4, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0,
                                                                //    142   2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
                                                                //    143   0, 0, 0, 0, 0, 0, 0, 0
                                                                //    144  {%CONST}%OWNBYTEINTEGERARRAY KEYSYMS(1 : 381) =    %C
#line 144 "regression-compile-tmp/soaps-77.imp"
static unsigned char KEYSYMS[381] = { 5, 83, 72, 79, 82, 84, 4, 66, 89, 84, 69, 4, 76, 79, 78, 71, 5, 66, 69, 71, 73, 78, 4, 83, 80, 69, 67, 3, 69, 78, 68, 4, 76, 73, 83, 84, 6, 70, 73, 78, 73, 83, 72, 6, 82, 69, 67, 79, 82, 68, 7, 67, 79, 78, 84, 82, 79, 76, 5, 70, 65, 85, 76, 84, 5, 67, 89, 67, 76, 69, 7, 82, 79, 85, 84, 73, 78, 69, 7, 84, 82, 85, 83, 84, 69, 68, 7, 80, 82, 79, 71, 82, 65, 77, 9, 80, 82, 73, 78, 84, 84, 69, 88, 84, 6, 82, 69, 84, 85, 82, 78, 6, 82, 69, 83, 85, 76, 84, 5, 83, 84, 65, 82, 84, 4, 83, 84, 79, 80, 7, 77, 79, 78, 73, 84, 79, 82, 4, 69, 88, 73, 84, 3, 65, 78, 68, 2, 73, 70, 6, 85, 78, 76, 69, 83, 83, 5, 87, 72, 73, 76, 69, 5, 85, 78, 84, 73, 76, 7, 73, 78, 84, 69, 71, 69, 82, 6, 82, 69, 80, 69, 65, 84, 4, 82, 69, 65, 76, 6, 83, 87, 73, 84, 67, 72, 6, 83, 84, 82, 73, 78, 71, 5, 65, 82, 82, 65, 89, 4, 78, 65, 77, 69, 2, 79, 82, 3, 79, 87, 78, 5, 67, 79, 78, 83, 84, 9, 69, 88, 84, 82, 73, 78, 83, 73, 67, 8, 69, 88, 84, 69, 82, 78, 65, 76, 6, 83, 89, 83, 84, 69, 77, 7, 68, 89, 78, 65, 77, 73, 67, 2, 79, 70, 4, 70, 73, 76, 69, 7, 67, 79, 77, 77, 69, 78, 84, 4, 69, 76, 83, 69, 6, 70, 79, 82, 77, 65, 84, 2, 70, 78, 3, 77, 65, 80, 4, 84, 72, 69, 78, 5, 82, 69, 65, 76, 83, 6, 78, 79, 82, 77, 65, 76, 1, 61, 1, 58, 2, 45, 62, 2, 61, 61, 2, 60, 45, 1, 40, 1, 41, 1, 43, 1, 45, 1, 92, 1, 38, 2, 33, 33, 1, 33, 1, 42, 2, 47, 47, 1, 47, 1, 46, 2, 60, 60, 2, 62, 62, 2, 60, 61, 1, 60, 2, 62, 61, 1, 62, 1, 35, 2, 92, 61, 1, 44, 1, 95, 1, 32, 1, 44,  };
                                                                //    145    5, 83, 72, 79, 82, 84,  4, 66, 89, 84, 69,  4, 76, 79, 78, 71,  5, 66,
                                                                //    146   69, 71, 73, 78,  4, 83, 80, 69, 67,  3, 69, 78, 68,  4, 76, 73, 83, 84,
                                                                //    147    6, 70, 73, 78, 73, 83, 72,  6, 82, 69, 67, 79, 82, 68,  7, 67, 79, 78,
                                                                //    148   84, 82, 79, 76,  5, 70, 65, 85, 76, 84,  5, 67, 89, 67, 76, 69,  7, 82,
                                                                //    149   79, 85, 84, 73, 78, 69,  7, 84, 82, 85, 83, 84, 69, 68,  7, 80, 82, 79,
                                                                //    150   71, 82, 65, 77,  9, 80, 82, 73, 78, 84, 84, 69, 88, 84,  6, 82, 69, 84,
                                                                //    151   85, 82, 78,  6, 82, 69, 83, 85, 76, 84,  5, 83, 84, 65, 82, 84,  4, 83,
                                                                //    152   84, 79, 80,  7, 77, 79, 78, 73, 84, 79, 82,  4, 69, 88, 73, 84,  3, 65,
                                                                //    153   78, 68,  2, 73, 70,  6, 85, 78, 76, 69, 83, 83,  5, 87, 72, 73, 76, 69,
                                                                //    154    5, 85, 78, 84, 73, 76,  7, 73, 78, 84, 69, 71, 69, 82,  6, 82, 69, 80,
                                                                //    155   69, 65, 84,  4, 82, 69, 65, 76,  6, 83, 87, 73, 84, 67, 72,  6, 83, 84,
                                                                //    156   82, 73, 78, 71,  5, 65, 82, 82, 65, 89,  4, 78, 65, 77, 69,  2, 79, 82,
                                                                //    157    3, 79, 87, 78,  5, 67, 79, 78, 83, 84,  9, 69, 88, 84, 82, 73, 78, 83,
                                                                //    158   73, 67,  8, 69, 88, 84, 69, 82, 78, 65, 76,  6, 83, 89, 83, 84, 69, 77,
                                                                //    159    7, 68, 89, 78, 65, 77, 73, 67,  2, 79, 70,  4, 70, 73, 76, 69,  7, 67,
                                                                //    160   79, 77, 77, 69, 78, 84,  4, 69, 76, 83, 69,  6, 70, 79, 82, 77, 65, 84,
                                                                //    161    2, 70, 78,  3, 77, 65, 80,  4, 84, 72, 69, 78,  5, 82, 69, 65, 76, 83,
                                                                //    162    6, 78, 79, 82, 77, 65, 76,  1, 61,  1, 58,  2, 45, 62,  2, 61, 61,  2,
                                                                //    163   60, 45,  1, 40,  1, 41,  1, 43,  1, 45,  1, 92,  1, 38,  2, 33, 33,  1,
                                                                //    164   33,  1, 42,  2, 47, 47,  1, 47,  1, 46,  2, 60, 60,  2, 62, 62,  2, 60,
                                                                //    165   61,  1, 60,  2, 62, 61,  1, 62,  1, 35,  2, 92, 61,  1, 44,  1, 95,  1,
                                                                //    166   32,  1, 44
                                                                //    167  %CONSTSHORTINTEGERARRAY KEYWORD(1 : 80) =    %C
#line 167 "regression-compile-tmp/soaps-77.imp"
const short KEYWORD[80] = { 0, 6, 11, 16, 22, 27, 31, 36, 43, 50, 58, 64, 70, 78, 86, 94, 104, 111, 118, 124, 129, 137, 142, 146, 149, 156, 162, 168, 176, 183, 188, 195, 202, 208, 213, 216, 220, 226, 236, 245, 252, 260, 263, 268, 276, 281, 288, 291, 295, 300, 306, 313, 315, 317, 320, 323, 326, 328, 330, 332, 334, 336, 338, 341, 343, 345, 348, 350, 352, 355, 358, 361, 363, 366, 368, 370, 373, 375, 377, 379,  };
                                                                //    168     0,   6,  11,  16,  22,  27,  31,  36,  43,  50,  58,  64,  70,  78,
                                                                //    169    86,  94, 104, 111, 118, 124, 129, 137, 142, 146, 149, 156, 162, 168,
                                                                //    170   176, 183, 188, 195, 202, 208, 213, 216, 220, 226, 236, 245, 252, 260,
                                                                //    171   263, 268, 276, 281, 288, 291, 295, 300, 306, 313, 315, 317, 320, 323,
                                                                //    172   326, 328, 330, 332, 334, 336, 338, 341, 343, 345, 348, 350, 352, 355,
                                                                //    173   358, 361, 363, 366, 368, 370, 373, 375, 377, 379
                                                                //    174  %CONSTBYTEINTEGERARRAY KFLAGS(1 : 80) =    %C
#line 174 "regression-compile-tmp/soaps-77.imp"
const unsigned char KFLAGS[80] = { 144, 144, 144, 128, 129, 128, 128, 128, 128, 128, 128, 128, 128, 144, 128, 128, 128, 128, 128, 128, 144, 128, 160, 130, 130, 130, 130, 128, 128, 128, 128, 128, 145, 129, 128, 144, 144, 144, 144, 144, 144, 145, 128, 128, 162, 129, 129, 129, 160, 144, 128, 8, 8, 8, 8, 8, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 8, 8, 8, 8, 8, 64, 0, 0, 0,  };
                                                                //    175   144, 144, 144, 128, 129, 128, 128, 128, 128, 128, 128, 128, 128, 144,
                                                                //    176   128, 128, 128, 128, 128, 128, 144, 128, 160, 130, 130, 130, 130, 128,
                                                                //    177   128, 128, 128, 128, 145, 129, 128, 144, 144, 144, 144, 144, 144, 145,
                                                                //    178   128, 128, 162, 129, 129, 129, 160, 144, 128,   8,   8,   8,   8,   8,
                                                                //    179     4,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,
                                                                //    180     8,   8,   8,   8,   8,   8,  64,   0,   0,   0
                                                                //    181  %OWNBYTEINTEGER ISOLATE BRACKETS = 0;   !  'IB'
#line 181 "regression-compile-tmp/soaps-77.imp"
static unsigned char ISOLATEBRACKETS = 0;
                                                                //    182  %OWNBYTEINTEGER LEAVE BLANKS = 0;       !  'LB'
#line 182 "regression-compile-tmp/soaps-77.imp"
static unsigned char LEAVEBLANKS = 0;
                                                                //    183  %OWNBYTEINTEGER SEP BLOCKS = 1;         !  'SB'
#line 183 "regression-compile-tmp/soaps-77.imp"
static unsigned char SEPBLOCKS = 1;
                                                                //    184  %OWNBYTEINTEGER INDENT BLOCKS = 1;      !  'TB'
#line 184 "regression-compile-tmp/soaps-77.imp"
static unsigned char INDENTBLOCKS = 1;
                                                                //    185  %OWNBYTEINTEGER SPLIT KEYWORDS = 0;     !  'SK'
#line 185 "regression-compile-tmp/soaps-77.imp"
static unsigned char SPLITKEYWORDS = 0;
                                                                //    186  %OWNBYTEINTEGER PACK NAMES = 0;         !  'PN'
#line 186 "regression-compile-tmp/soaps-77.imp"
static unsigned char PACKNAMES = 0;
                                                                //    187  %OWNBYTEINTEGER SPLIT STATS = 0;        !  'SS'
#line 187 "regression-compile-tmp/soaps-77.imp"
static unsigned char SPLITSTATS = 0;
                                                                //    188  %OWNBYTEINTEGER COMMENTS NORMAL = 0;    !  'CN'
#line 188 "regression-compile-tmp/soaps-77.imp"
static unsigned char COMMENTSNORMAL = 0;
                                                                //    189  %OWNBYTEINTEGER BREAK COMMENTS = 1;     !  'BC'
#line 189 "regression-compile-tmp/soaps-77.imp"
static unsigned char BREAKCOMMENTS = 1;
                                                                //    190  %OWNBYTEINTEGER LEAVE STARS = 1;        !  'LS'
#line 190 "regression-compile-tmp/soaps-77.imp"
static unsigned char LEAVESTARS = 1;
                                                                //    191  %OWNBYTEINTEGER JUSTIFY ALL = 0;        !  'JA'
#line 191 "regression-compile-tmp/soaps-77.imp"
static unsigned char JUSTIFYALL = 0;
                                                                //    192  %OWNBYTEINTEGER LABELS RELATIVE = 0;    !  'LR'
#line 192 "regression-compile-tmp/soaps-77.imp"
static unsigned char LABELSRELATIVE = 0;
                                                                //    193  %OWNBYTEINTEGER SPLIT CONDS = 1;        !  'SC'
#line 193 "regression-compile-tmp/soaps-77.imp"
static unsigned char SPLITCONDS = 1;
                                                                //    194  %OWNBYTEINTEGER DECS RELATIVE = 1;      !  'DR'
#line 194 "regression-compile-tmp/soaps-77.imp"
static unsigned char DECSRELATIVE = 1;
                                                                //    195  %OWNBYTEINTEGER SPACE LISTS = 1;        !  'SL'
#line 195 "regression-compile-tmp/soaps-77.imp"
static unsigned char SPACELISTS = 1;
                                                                //    196  %OWNBYTEINTEGER SPACE EQUALS = 1;       !  'SE'
#line 196 "regression-compile-tmp/soaps-77.imp"
static unsigned char SPACEEQUALS = 1;
                                                                //    197  %OWNBYTEINTEGER ISOLATE LOOPS = 1;      !  'IL'
#line 197 "regression-compile-tmp/soaps-77.imp"
static unsigned char ISOLATELOOPS = 1;
                                                                //    198  %OWNBYTEINTEGER EXTRA MARGIN = 0;       !  'EM'
#line 198 "regression-compile-tmp/soaps-77.imp"
static unsigned char EXTRAMARGIN = 0;
                                                                //    199  %OWNBYTEINTEGER LEAVE OWNS = 0;         !  'LO'
#line 199 "regression-compile-tmp/soaps-77.imp"
static unsigned char LEAVEOWNS = 0;
                                                                //    200  %OWNBYTEINTEGER COMMENTS RELATIVE = 1;  !  'CR'
#line 200 "regression-compile-tmp/soaps-77.imp"
static unsigned char COMMENTSRELATIVE = 1;
                                                                //    201  %OWNBYTEINTEGER EXTEND COMMENTS = 1;    !  'EC'
#line 201 "regression-compile-tmp/soaps-77.imp"
static unsigned char EXTENDCOMMENTS = 1;
                                                                //    202  %OWNBYTEINTEGER MI = 3;                 !  MARGIN INCREMENT
#line 202 "regression-compile-tmp/soaps-77.imp"
static unsigned char MI = 3;
                                                                //    203  %OWNBYTEINTEGER LL = 72;                !  LINE LENGTH
#line 203 "regression-compile-tmp/soaps-77.imp"
static unsigned char LL = 72;
                                                                //    204  %OWNBYTEINTEGER CT = 40;                !  COMMENT TAB
#line 204 "regression-compile-tmp/soaps-77.imp"
static unsigned char CT = 40;
                                                                //    205  %OWNBYTEINTEGER ML = 40;                !  MARGIN LIMIT
#line 205 "regression-compile-tmp/soaps-77.imp"
static unsigned char ML = 40;
                                                                //    206  %OWNBYTEINTEGER COMMENT EXTENSION = 5;  !  'CE'
#line 206 "regression-compile-tmp/soaps-77.imp"
static unsigned char COMMENTEXTENSION = 5;
                                                                //    207  %OWNBYTEINTEGER EXT NUM = 2;            !  'XN'
#line 207 "regression-compile-tmp/soaps-77.imp"
static unsigned char EXTNUM = 2;
                                                                //    208  %OWNBYTEINTEGER INITIAL MARGIN = 7;     !  'IM'
#line 208 "regression-compile-tmp/soaps-77.imp"
static unsigned char INITIALMARGIN = 7;
                                                                //    209  %OWNBYTEINTEGER SECONDARY MARGIN = 3;   !  'SM'
#line 209 "regression-compile-tmp/soaps-77.imp"
static unsigned char SECONDARYMARGIN = 3;
                                                                //    210  %OWNBYTEINTEGER COMMENT LIMIT = 20;     !  'CL'
#line 210 "regression-compile-tmp/soaps-77.imp"
static unsigned char COMMENTLIMIT = 20;
                                                                //    211  %OWNBYTEINTEGER COMMENT LINE = 120;     !  'LC'
#line 211 "regression-compile-tmp/soaps-77.imp"
static unsigned char COMMENTLINE = 120;
                                                                //    212  %OWNSHORTINTEGER SAFETY FACTOR = 5
#line 212 "regression-compile-tmp/soaps-77.imp"
static short SAFETYFACTOR = 5;
                                                                //    213  %OWNINTEGER DELTA MARGIN = 3
#line 213 "regression-compile-tmp/soaps-77.imp"
static int DELTAMARGIN = 3;
                                                                //    214  %OWNINTEGER LINE LENGTH = 70
#line 214 "regression-compile-tmp/soaps-77.imp"
static int LINELENGTH = 70;
                                                                //    215  %OWNINTEGER COMMENT TAB = 40
#line 215 "regression-compile-tmp/soaps-77.imp"
static int COMMENTTAB = 40;
                                                                //    216  %OWNINTEGER LEVEL = 1, MLIMIT = 0, SEC MARGIN = 3
#line 216 "regression-compile-tmp/soaps-77.imp"
static int LEVEL = 1;
#line 216 "regression-compile-tmp/soaps-77.imp"
static int MLIMIT = 0;
#line 216 "regression-compile-tmp/soaps-77.imp"
static int SECMARGIN = 3;
                                                                //    217  %OWNBYTEINTEGER COMMENT FLAG
#line 217 "regression-compile-tmp/soaps-77.imp"
static unsigned char COMMENTFLAG;
                                                                //    218  %OWNBYTEINTEGER CMODE, LOOP FLAG
#line 218 "regression-compile-tmp/soaps-77.imp"
static unsigned char CMODE;
#line 218 "regression-compile-tmp/soaps-77.imp"
static unsigned char LOOPFLAG;
                                                                //    219  %OWNINTEGER LINESIZE, CS, DISP, D, RMARGIN, FIRST DISP
#line 219 "regression-compile-tmp/soaps-77.imp"
static int LINESIZE;
#line 219 "regression-compile-tmp/soaps-77.imp"
static int CS;
#line 219 "regression-compile-tmp/soaps-77.imp"
static int DISP;
#line 219 "regression-compile-tmp/soaps-77.imp"
static int D;
#line 219 "regression-compile-tmp/soaps-77.imp"
static int RMARGIN;
#line 219 "regression-compile-tmp/soaps-77.imp"
static int FIRSTDISP;
                                                                //    220  %OWNINTEGER SIZE, CSTART, LINE BASE, FULL LINE
#line 220 "regression-compile-tmp/soaps-77.imp"
static int SIZE;
#line 220 "regression-compile-tmp/soaps-77.imp"
static int CSTART;
#line 220 "regression-compile-tmp/soaps-77.imp"
static int LINEBASE;
#line 220 "regression-compile-tmp/soaps-77.imp"
static int FULLLINE;
                                                                //    221  %EXTERNALROUTINE PROMPT(%STRING (63) S)
#line 221 "regression-compile-tmp/soaps-77.imp"
void PROMPT( _imp_string /*%string(63)*/ S )
#line 221 "regression-compile-tmp/soaps-77.imp"
{
                                                                //    222    PRINT STRING(S)
#line 222 "regression-compile-tmp/soaps-77.imp"
_imp_PRINTSTRING(S);
                                                                //    223  %END
#line 223 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PROMPT at level 1
                                                                //    224  
                                                                //    225  !%EXTERNALROUTINESPEC DEFINE(%STRING (63) S)
                                                                //    226  %EXTERNALROUTINESPEC SEND(%STRING (63) S)
#line 226 "regression-compile-tmp/soaps-77.imp"
extern void SEND( _imp_string /*%string(63)*/ S );
                                                                //    227  %EXTERNALROUTINESPEC LIST(%STRING (63) S)
#line 227 "regression-compile-tmp/soaps-77.imp"
extern void LIST( _imp_string /*%string(63)*/ S );
                                                                //    228  %EXTERNALROUTINESPEC DESTROY(%STRING (63) S)
#line 228 "regression-compile-tmp/soaps-77.imp"
extern void DESTROY( _imp_string /*%string(63)*/ S );
                                                                //    229  %EXTERNALROUTINESPEC RENAME(%STRING (63) S)
#line 229 "regression-compile-tmp/soaps-77.imp"
extern void RENAME( _imp_string /*%string(63)*/ S );
                                                                //    230  %INTEGERFNSPEC PARSE(%INTEGER EP)
#line 230 "regression-compile-tmp/soaps-77.imp"
int PARSE( int EP );
                                                                //    231  %OWNSTRING (255) INPUT, OUTPUT, OPTION FILE, ST, OPLIST
#line 231 "regression-compile-tmp/soaps-77.imp"
static _imp_string /*%string(255)*/ INPUT;
#line 231 "regression-compile-tmp/soaps-77.imp"
static _imp_string /*%string(255)*/ OUTPUT;
#line 231 "regression-compile-tmp/soaps-77.imp"
static _imp_string /*%string(255)*/ OPTIONFILE;
#line 231 "regression-compile-tmp/soaps-77.imp"
static _imp_string /*%string(255)*/ ST;
#line 231 "regression-compile-tmp/soaps-77.imp"
static _imp_string /*%string(255)*/ OPLIST;
                                                                //    232  %OWNINTEGER SPT, SAD, S
#line 232 "regression-compile-tmp/soaps-77.imp"
static int SPT;
#line 232 "regression-compile-tmp/soaps-77.imp"
static int SAD;
#line 232 "regression-compile-tmp/soaps-77.imp"
static int S;
                                                                //    233  %OWNBYTEINTEGER SPACES, MODE
#line 233 "regression-compile-tmp/soaps-77.imp"
static unsigned char SPACES;
#line 233 "regression-compile-tmp/soaps-77.imp"
static unsigned char MODE;
                                                                //    234  %OWNBYTEINTEGER OK, THIS SEP
#line 234 "regression-compile-tmp/soaps-77.imp"
static unsigned char OK;
#line 234 "regression-compile-tmp/soaps-77.imp"
static unsigned char THISSEP;
                                                                //    235  %CONSTINTEGER LAST TEXT = 51
                                                                //    236  %OWNINTEGER HEADER, SEGS
#line 236 "regression-compile-tmp/soaps-77.imp"
static int HEADER;
#line 236 "regression-compile-tmp/soaps-77.imp"
static int SEGS;
                                                                //    237  %OWNINTEGERARRAY STRINGS(1 : 100); !(-100 : -1)
#line 237 "regression-compile-tmp/soaps-77.imp"
static int STRINGS[100];
                                                                //    238  %OWNINTEGER COMMENT LENGTH
#line 238 "regression-compile-tmp/soaps-77.imp"
static int COMMENTLENGTH;
                                                                //    239  %OWNSHORTINTEGERARRAY REM(1 : 4)
#line 239 "regression-compile-tmp/soaps-77.imp"
static short REM[4];
                                                                //    240  %OWNBYTEINTEGERARRAY SYMFILE(0 : 300)
#line 240 "regression-compile-tmp/soaps-77.imp"
static unsigned char SYMFILE[301];
                                                                //    241  %OWNBYTEINTEGERARRAY TLENGTH(1 : 100);!(-100 : -1)
#line 241 "regression-compile-tmp/soaps-77.imp"
static unsigned char TLENGTH[100];
                                                                //    242  %OWNINTEGERARRAY REC(1 : 100)
#line 242 "regression-compile-tmp/soaps-77.imp"
static int REC[100];
                                                                //    243  %OWNBYTEINTEGER STATUS, OPTIONS, LAST SEP, FLAG, PMODE
#line 243 "regression-compile-tmp/soaps-77.imp"
static unsigned char STATUS;
#line 243 "regression-compile-tmp/soaps-77.imp"
static unsigned char OPTIONS;
#line 243 "regression-compile-tmp/soaps-77.imp"
static unsigned char LASTSEP;
#line 243 "regression-compile-tmp/soaps-77.imp"
static unsigned char FLAG;
#line 243 "regression-compile-tmp/soaps-77.imp"
static unsigned char PMODE;
                                                                //    244  %OWNBYTEINTEGER QUOTES = 0, OWNFLAG = ';'
#line 244 "regression-compile-tmp/soaps-77.imp"
static unsigned char QUOTES = 0;
#line 244 "regression-compile-tmp/soaps-77.imp"
static unsigned char OWNFLAG = 59;
                                                                //    245  %OWNINTEGER NVAL
#line 245 "regression-compile-tmp/soaps-77.imp"
static int NVAL;
                                                                //    246  !%REGISTER CURRIN(14)
                                                                //    247  %OWNINTEGER CURRIN
#line 247 "regression-compile-tmp/soaps-77.imp"
static int CURRIN;
                                                                //    248  %OWNINTEGER CURROUT, SLENGTH, LIMIT, MARGIN, INBASE, STATSIZE
#line 248 "regression-compile-tmp/soaps-77.imp"
static int CURROUT;
#line 248 "regression-compile-tmp/soaps-77.imp"
static int SLENGTH;
#line 248 "regression-compile-tmp/soaps-77.imp"
static int LIMIT;
#line 248 "regression-compile-tmp/soaps-77.imp"
static int MARGIN;
#line 248 "regression-compile-tmp/soaps-77.imp"
static int INBASE;
#line 248 "regression-compile-tmp/soaps-77.imp"
static int STATSIZE;
                                                                //    249  %OWNINTEGER STAT, KEYBASE, TEXTBASE, J, SN, RP, RPLIM, RPINC
#line 249 "regression-compile-tmp/soaps-77.imp"
static int STAT;
#line 249 "regression-compile-tmp/soaps-77.imp"
static int KEYBASE;
#line 249 "regression-compile-tmp/soaps-77.imp"
static int TEXTBASE;
#line 249 "regression-compile-tmp/soaps-77.imp"
static int J;
#line 249 "regression-compile-tmp/soaps-77.imp"
static int SN;
#line 249 "regression-compile-tmp/soaps-77.imp"
static int RP;
#line 249 "regression-compile-tmp/soaps-77.imp"
static int RPLIM;
#line 249 "regression-compile-tmp/soaps-77.imp"
static int RPINC;
                                                                //    250  %OWNINTEGER MAXMARGIN, ENDOFFILE
#line 250 "regression-compile-tmp/soaps-77.imp"
static int MAXMARGIN;
#line 250 "regression-compile-tmp/soaps-77.imp"
static int ENDOFFILE;
                                                                //    251  %CONSTINTEGER CCC = X'2025430A'
                                                                //    252  %CONSTINTEGER CONNEKTEP = 1
                                                                //    253  %CONSTINTEGER CREATEEP = 162
                                                                //    254  %CONSTINTEGER READEP = 7
                                                                //    255  %CONSTINTEGER INFOEP = 5
                                                                //    256  %CONSTINTEGER CHANGEEP = 6
                                                                //    257  %ROUTINESPEC SET UP FILES(%STRING(*)%NAME S)
#line 257 "regression-compile-tmp/soaps-77.imp"
void SETUPFILES( _imp_string /*%string(255)*/ /*name*/*S );
                                                                //    258  %ROUTINESPEC CLOSE FILES
#line 258 "regression-compile-tmp/soaps-77.imp"
void CLOSEFILES( void );
                                                                //    259  %ROUTINESPEC SET OPTIONS
#line 259 "regression-compile-tmp/soaps-77.imp"
void SETOPTIONS( void );
                                                                //    260  
                                                                //    261  %DYNAMICROUTINESPEC CHERISH(%STRING(63) S)
#line 261 "regression-compile-tmp/soaps-77.imp"
extern void CHERISH( _imp_string /*%string(63)*/ S );
                                                                //    262  
                                                                //    263  
                                                                //    264  %ROUTINE CONTINUE
#line 264 "regression-compile-tmp/soaps-77.imp"
void CONTINUE( void )
#line 264 "regression-compile-tmp/soaps-77.imp"
{
                                                                //    265  !%SHORTROUTINE
                                                                //    266  %ROUTINESPEC ADJUST
#line 266 "regression-compile-tmp/soaps-77.imp"
auto void ADJUST( void );
                                                                //    267  %INTEGERARRAY HOLD(1 : 4)
#line 267 "regression-compile-tmp/soaps-77.imp"
int HOLD[4];
                                                                //    268  %INTEGER J, K, L, M, N, Z, LIM, XES
#line 268 "regression-compile-tmp/soaps-77.imp"
int J;
#line 268 "regression-compile-tmp/soaps-77.imp"
int K;
#line 268 "regression-compile-tmp/soaps-77.imp"
int L;
#line 268 "regression-compile-tmp/soaps-77.imp"
int M;
#line 268 "regression-compile-tmp/soaps-77.imp"
int N;
#line 268 "regression-compile-tmp/soaps-77.imp"
int Z;
#line 268 "regression-compile-tmp/soaps-77.imp"
int LIM;
#line 268 "regression-compile-tmp/soaps-77.imp"
int XES;
                                                                //    269  !!%BYTEINTEGERARRAYFORMAT NFM(1 : 4)
                                                                //    270  %BYTEINTEGERARRAYNAME NEST
#line 270 "regression-compile-tmp/soaps-77.imp"
unsigned char /*arrayname*/*NEST;
                                                                //    271  %BYTEINTEGER S, CFLAG
#line 271 "regression-compile-tmp/soaps-77.imp"
unsigned char S;
#line 271 "regression-compile-tmp/soaps-77.imp"
unsigned char CFLAG;
                                                                //    272            !!NEST == ARRAY(ADDR(NVAL),NFM)
                                                                //    273            THIS SEP = NL;  LIM = MARGIN+SAFETY FACTOR+SEC MARGIN
#line 273 "regression-compile-tmp/soaps-77.imp"
THISSEP = 10;
#line 273 "regression-compile-tmp/soaps-77.imp"
LIM = (((int)(((MARGIN) + ((int)(SAFETYFACTOR))))) + (SECMARGIN));
                                                                //    274            Z = SLENGTH+CURROUT
#line 274 "regression-compile-tmp/soaps-77.imp"
Z = (((int)(SLENGTH)) + (CURROUT));
                                                                //    275            %RETURN %IF Z < LIMIT %OR (Z-SAFETY FACTOR-LIMIT < -4 %C
#line 275 "regression-compile-tmp/soaps-77.imp"
if (((Z) < (LIMIT))) goto L_0002;
#line 275 "regression-compile-tmp/soaps-77.imp"
if ((((((int)(((Z) - ((int)(SAFETYFACTOR))))) - (LIMIT))) >= ((-4)))) goto L_0003;
#line 275 "regression-compile-tmp/soaps-77.imp"
if ((((REC-1)[(((int)(RP)) + (1))]) != (0))) goto L_0003;
#line 275 "regression-compile-tmp/soaps-77.imp"
L_0002:;
#line 275 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 275 "regression-compile-tmp/soaps-77.imp"
L_0003:;
                                                                //    276               %AND REC(RP+1) = 0)
                                                                //    277  !         LEAVE TWO SPACES FOR " %" IF NESC.
                                                                //    278            XES = Z-LIMIT;                ! EXCESS LINE LENGTH
#line 278 "regression-compile-tmp/soaps-77.imp"
XES = (((int)(Z)) - (LIMIT));
                                                                //    279  
                                                                //    280            %CYCLE J = 1,1,4;  HOLD(J) = NEST(J)+CURROUT-LINE BASE
#line 280 "regression-compile-tmp/soaps-77.imp"
J = 0;
if ((((4)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, 4");
L_0004:;
if (J == 4) goto L_0005;
J += 1;
#line 280 "regression-compile-tmp/soaps-77.imp"
HOLD[(((int)(J)) - (1))] = (((int)((((int)(NEST[J])) + (CURROUT)))) - (LINEBASE));
                                                                //    281            %REPEAT
#line 281 "regression-compile-tmp/soaps-77.imp"
goto L_0004;
#line 281 "regression-compile-tmp/soaps-77.imp"
L_0005:;
                                                                //    282  
                                                                //    283            %IF LAST SEP = ';' %THEN %START
#line 283 "regression-compile-tmp/soaps-77.imp"
if (((LASTSEP) != (59))) goto L_0007;
                                                                //    284               N = CURROUT;  QUOTES = 0
#line 284 "regression-compile-tmp/soaps-77.imp"
N = CURROUT;
#line 284 "regression-compile-tmp/soaps-77.imp"
QUOTES = 0;
                                                                //    285  
                                                                //    286               %CYCLE
#line 286 "regression-compile-tmp/soaps-77.imp"
L_0008:;
                                                                //    287                  N = N-1;  S = BYTEINTEGER(N)
#line 287 "regression-compile-tmp/soaps-77.imp"
N = (((int)(N)) - (1));
#line 287 "regression-compile-tmp/soaps-77.imp"
S = *_imp_BYTEINTEGER(N);
                                                                //    288                  QUOTES = QUOTES!!1 %IF S = ''''
#line 288 "regression-compile-tmp/soaps-77.imp"
if (((S) != (39))) goto L_000b;
#line 288 "regression-compile-tmp/soaps-77.imp"
QUOTES = ((QUOTES) ^ (1));
#line 288 "regression-compile-tmp/soaps-77.imp"
L_000b:;
                                                                //    289               %REPEAT %UNTIL S = ';' %AND QUOTES = 0
#line 289 "regression-compile-tmp/soaps-77.imp"
if (((S) != (59))) goto L_000a;
#line 289 "regression-compile-tmp/soaps-77.imp"
if (((QUOTES) == (0))) goto L_0009;
#line 289 "regression-compile-tmp/soaps-77.imp"
L_000a:;
#line 289 "regression-compile-tmp/soaps-77.imp"
goto L_0008;
#line 289 "regression-compile-tmp/soaps-77.imp"
L_0009:;
                                                                //    290  
                                                                //    291               BYTEINTEGER(N) = NL;  LIMIT = N+LINELENGTH
#line 291 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(N) = 10;
#line 291 "regression-compile-tmp/soaps-77.imp"
LIMIT = (((int)(N)) + (LINELENGTH));
                                                                //    292               LINE BASE = N
#line 292 "regression-compile-tmp/soaps-77.imp"
LINEBASE = N;
                                                                //    293               K = CURROUT+80;  M = K
#line 293 "regression-compile-tmp/soaps-77.imp"
K = (((int)(CURROUT)) + (80));
#line 293 "regression-compile-tmp/soaps-77.imp"
M = K;
                                                                //    294  
                                                                //    295               %CYCLE L = N+3,1,CURROUT
#line 295 "regression-compile-tmp/soaps-77.imp"
{static int _initial, _increment, _final, _control;
_initial = (((int)(N)) + (3)); _increment = 1; _final = CURROUT; L = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle L = (((int)(N)) + (3)), 1, CURROUT");
L -= _increment; _control -= _increment;
L_000c:;
if (L == _final) goto L_000d;
L += _increment; _control += _increment;
if (L != _control) _imp_signal(4,2,0,"Corrupt control variable L"); /* FOR loop control variable corrupted */
}
                                                                //    296                  K = K+1;  BYTEINTEGER(K) = BYTEINTEGER(L)
#line 296 "regression-compile-tmp/soaps-77.imp"
K = (((int)(K)) + (1));
#line 296 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(K) = *_imp_BYTEINTEGER(L);
                                                                //    297               %REPEAT
#line 297 "regression-compile-tmp/soaps-77.imp"
goto L_000c;
#line 297 "regression-compile-tmp/soaps-77.imp"
L_000d:;
                                                                //    298  
                                                                //    299               %CYCLE L = 1,1,MARGIN
#line 299 "regression-compile-tmp/soaps-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = MARGIN; L = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle L = 1, 1, MARGIN");
L -= _increment; _control -= _increment;
L_000f:;
if (L == _final) goto L_0010;
L += _increment; _control += _increment;
if (L != _control) _imp_signal(4,2,0,"Corrupt control variable L"); /* FOR loop control variable corrupted */
}
                                                                //    300                  N = N+1;  BYTEINTEGER(N) = ' '
#line 300 "regression-compile-tmp/soaps-77.imp"
N = (((int)(N)) + (1));
#line 300 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(N) = 32;
                                                                //    301               %REPEAT
#line 301 "regression-compile-tmp/soaps-77.imp"
goto L_000f;
#line 301 "regression-compile-tmp/soaps-77.imp"
L_0010:;
                                                                //    302  
                                                                //    303               %CYCLE L = M+1,1,K
#line 303 "regression-compile-tmp/soaps-77.imp"
{static int _initial, _increment, _final, _control;
_initial = (((int)(M)) + (1)); _increment = 1; _final = K; L = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle L = (((int)(M)) + (1)), 1, K");
L -= _increment; _control -= _increment;
L_0012:;
if (L == _final) goto L_0013;
L += _increment; _control += _increment;
if (L != _control) _imp_signal(4,2,0,"Corrupt control variable L"); /* FOR loop control variable corrupted */
}
                                                                //    304                  N = N+1;  BYTEINTEGER(N) = BYTEINTEGER(L)
#line 304 "regression-compile-tmp/soaps-77.imp"
N = (((int)(N)) + (1));
#line 304 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(N) = *_imp_BYTEINTEGER(L);
                                                                //    305               %REPEAT
#line 305 "regression-compile-tmp/soaps-77.imp"
goto L_0012;
#line 305 "regression-compile-tmp/soaps-77.imp"
L_0013:;
                                                                //    306  
                                                                //    307               CURROUT = N
#line 307 "regression-compile-tmp/soaps-77.imp"
CURROUT = N;
                                                                //    308               LAST SEP = NL
#line 308 "regression-compile-tmp/soaps-77.imp"
LASTSEP = 10;
                                                                //    309               ADJUST
#line 309 "regression-compile-tmp/soaps-77.imp"
ADJUST();
                                                                //    310               %RETURN %IF CURROUT+SLENGTH < LIMIT
#line 310 "regression-compile-tmp/soaps-77.imp"
if ((((((int)(CURROUT)) + (SLENGTH))) >= (LIMIT))) goto L_0015;
#line 310 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 310 "regression-compile-tmp/soaps-77.imp"
L_0015:;
                                                                //    311            %FINISH
#line 311 "regression-compile-tmp/soaps-77.imp"
L_0007:;
                                                                //    312            NEST(3) = 0 %IF NEST(4) # 0 %AND REC(REM(4)-1) >= 4
#line 312 "regression-compile-tmp/soaps-77.imp"
if (((NEST[4]) == (0))) goto L_0016;
#line 312 "regression-compile-tmp/soaps-77.imp"
if ((((REC-1)[(((int)((REM-1)[4])) - (1))]) < (4))) goto L_0016;
#line 312 "regression-compile-tmp/soaps-77.imp"
NEST[3] = 0;
#line 312 "regression-compile-tmp/soaps-77.imp"
L_0016:;
                                                                //    313            CFLAG = 0
#line 313 "regression-compile-tmp/soaps-77.imp"
CFLAG = 0;
                                                                //    314  
                                                                //    315            %CYCLE J = 1,1,4
#line 315 "regression-compile-tmp/soaps-77.imp"
J = 0;
if ((((4)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, 4");
L_0017:;
if (J == 4) goto L_0018;
J += 1;
                                                                //    316               N = NEST(J)
#line 316 "regression-compile-tmp/soaps-77.imp"
N = NEST[J];
                                                                //    317               %IF N > LIM %START
#line 317 "regression-compile-tmp/soaps-77.imp"
if (((N) <= (LIM))) goto L_001a;
                                                                //    318                  N = N+LINE BASE
#line 318 "regression-compile-tmp/soaps-77.imp"
N = (((int)(N)) + (LINEBASE));
                                                                //    319                  CFLAG = 1 %AND %EXIT %IF N < CURROUT
#line 319 "regression-compile-tmp/soaps-77.imp"
if (((N) >= (CURROUT))) goto L_001b;
#line 319 "regression-compile-tmp/soaps-77.imp"
CFLAG = 1;
#line 319 "regression-compile-tmp/soaps-77.imp"
goto L_0018;
#line 319 "regression-compile-tmp/soaps-77.imp"
L_001b:;
                                                                //    320               %FINISH
#line 320 "regression-compile-tmp/soaps-77.imp"
L_001a:;
                                                                //    321            %REPEAT
#line 321 "regression-compile-tmp/soaps-77.imp"
goto L_0017;
#line 321 "regression-compile-tmp/soaps-77.imp"
L_0018:;
                                                                //    322  
                                                                //    323            %IF CFLAG # 0 %START
#line 323 "regression-compile-tmp/soaps-77.imp"
if (((CFLAG) == (0))) goto L_001c;
                                                                //    324               %IF NEST(J)-MARGIN-SEC MARGIN-SAFETY FACTOR < XES %START
#line 324 "regression-compile-tmp/soaps-77.imp"
if ((((((short)((((int)((((int)(NEST[J])) - (MARGIN)))) - (SECMARGIN)))) - (SAFETYFACTOR))) >= (XES))) goto L_001d;
                                                                //    325                  K = J
#line 325 "regression-compile-tmp/soaps-77.imp"
K = J;
                                                                //    326  
                                                                //    327                  %WHILE K < 4 %CYCLE
#line 327 "regression-compile-tmp/soaps-77.imp"
L_001e:;
#line 327 "regression-compile-tmp/soaps-77.imp"
if (((K) >= (4))) goto L_001f;
                                                                //    328                     K = K+1
#line 328 "regression-compile-tmp/soaps-77.imp"
K = (((int)(K)) + (1));
                                                                //    329                     CFLAG = 0 %AND %EXIT %IF NEST(K) # 0
#line 329 "regression-compile-tmp/soaps-77.imp"
if (((NEST[K]) == (0))) goto L_0021;
#line 329 "regression-compile-tmp/soaps-77.imp"
CFLAG = 0;
#line 329 "regression-compile-tmp/soaps-77.imp"
goto L_001f;
#line 329 "regression-compile-tmp/soaps-77.imp"
L_0021:;
                                                                //    330                  %REPEAT
#line 330 "regression-compile-tmp/soaps-77.imp"
goto L_001e;
#line 330 "regression-compile-tmp/soaps-77.imp"
L_001f:;
                                                                //    331  
                                                                //    332                  %IF CFLAG = 0 %START
#line 332 "regression-compile-tmp/soaps-77.imp"
if (((CFLAG) != (0))) goto L_0022;
                                                                //    333                     L = NEST(K)+LINE BASE
#line 333 "regression-compile-tmp/soaps-77.imp"
L = (((int)(NEST[K])) + (LINEBASE));
                                                                //    334                     J = K %AND N = L %C
#line 334 "regression-compile-tmp/soaps-77.imp"
if (((NEST[K]) <= (LIM))) goto L_0023;
#line 334 "regression-compile-tmp/soaps-77.imp"
if (((L) >= (CURROUT))) goto L_0023;
#line 334 "regression-compile-tmp/soaps-77.imp"
J = K;
#line 334 "regression-compile-tmp/soaps-77.imp"
N = L;
#line 334 "regression-compile-tmp/soaps-77.imp"
L_0023:;
                                                                //    335                        %IF NEST(K) > LIM %AND L < CURROUT
                                                                //    336                  %FINISH
#line 336 "regression-compile-tmp/soaps-77.imp"
L_0022:;
                                                                //    337               %FINISH
#line 337 "regression-compile-tmp/soaps-77.imp"
L_001d:;
                                                                //    338               J = 3 %AND N = NEST(3)+LINE BASE %C
#line 338 "regression-compile-tmp/soaps-77.imp"
if (((J) != (4))) goto L_0024;
#line 338 "regression-compile-tmp/soaps-77.imp"
if ((((REM-1)[3]) != ((((int)((REM-1)[4])) - (1))))) goto L_0024;
#line 338 "regression-compile-tmp/soaps-77.imp"
J = 3;
#line 338 "regression-compile-tmp/soaps-77.imp"
N = (((int)(NEST[3])) + (LINEBASE));
#line 338 "regression-compile-tmp/soaps-77.imp"
L_0024:;
                                                                //    339                  %IF J = 4 %AND REM(3) = REM(4)-1
                                                                //    340               LIM = NEST(J)+SAFETY FACTOR+SEC MARGIN
#line 340 "regression-compile-tmp/soaps-77.imp"
LIM = (((int)((((short)(NEST[J])) + (SAFETYFACTOR)))) + (SECMARGIN));
                                                                //    341               K = CURROUT+80;  M = K
#line 341 "regression-compile-tmp/soaps-77.imp"
K = (((int)(CURROUT)) + (80));
#line 341 "regression-compile-tmp/soaps-77.imp"
M = K;
                                                                //    342  
                                                                //    343               %CYCLE L = N+1,1,CURROUT
#line 343 "regression-compile-tmp/soaps-77.imp"
{static int _initial, _increment, _final, _control;
_initial = (((int)(N)) + (1)); _increment = 1; _final = CURROUT; L = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle L = (((int)(N)) + (1)), 1, CURROUT");
L -= _increment; _control -= _increment;
L_0025:;
if (L == _final) goto L_0026;
L += _increment; _control += _increment;
if (L != _control) _imp_signal(4,2,0,"Corrupt control variable L"); /* FOR loop control variable corrupted */
}
                                                                //    344                  K = K+1;  BYTEINTEGER(K) = BYTEINTEGER(L)
#line 344 "regression-compile-tmp/soaps-77.imp"
K = (((int)(K)) + (1));
#line 344 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(K) = *_imp_BYTEINTEGER(L);
                                                                //    345               %REPEAT
#line 345 "regression-compile-tmp/soaps-77.imp"
goto L_0025;
#line 345 "regression-compile-tmp/soaps-77.imp"
L_0026:;
                                                                //    346  
                                                                //    347               !!*L_1,N
                                                                //    348               !!*MVC_1(4,1),CCC
                                                                //    349               !!*LA_1,4(1)
                                                                //    350               !!*ST_1,CURROUT
                                                                //    351               !!*ST_1,LINEBASE
                                                                //    352  
                                                                //    353               %CYCLE J = 1,1,MARGIN+SEC MARGIN
#line 353 "regression-compile-tmp/soaps-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = (((int)(MARGIN)) + (SECMARGIN)); J = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, (((int)(MARGIN)) + (SECMARGIN))");
J -= _increment; _control -= _increment;
L_0028:;
if (J == _final) goto L_0029;
J += _increment; _control += _increment;
if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */
}
                                                                //    354                  CURROUT = CURROUT+1;  BYTEINTEGER(CURROUT) = ' '
#line 354 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
#line 354 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 32;
                                                                //    355               %REPEAT
#line 355 "regression-compile-tmp/soaps-77.imp"
goto L_0028;
#line 355 "regression-compile-tmp/soaps-77.imp"
L_0029:;
                                                                //    356  
                                                                //    357               M = M+1 %IF BYTEINTEGER(M+1) = ' '
#line 357 "regression-compile-tmp/soaps-77.imp"
if (((*_imp_BYTEINTEGER((((int)(M)) + (1)))) != (32))) goto L_002b;
#line 357 "regression-compile-tmp/soaps-77.imp"
M = (((int)(M)) + (1));
#line 357 "regression-compile-tmp/soaps-77.imp"
L_002b:;
                                                                //    358               %IF BYTEINTEGER(M+1) # '%' %START
#line 358 "regression-compile-tmp/soaps-77.imp"
if (((*_imp_BYTEINTEGER((((int)(M)) + (1)))) == (37))) goto L_002c;
                                                                //    359                  CURROUT = CURROUT+1;  BYTEINTEGER(CURROUT) = '%'
#line 359 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
#line 359 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 37;
                                                                //    360               %FINISH
#line 360 "regression-compile-tmp/soaps-77.imp"
L_002c:;
                                                                //    361  
                                                                //    362               %CYCLE L = M+1,1,K
#line 362 "regression-compile-tmp/soaps-77.imp"
{static int _initial, _increment, _final, _control;
_initial = (((int)(M)) + (1)); _increment = 1; _final = K; L = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle L = (((int)(M)) + (1)), 1, K");
L -= _increment; _control -= _increment;
L_002d:;
if (L == _final) goto L_002e;
L += _increment; _control += _increment;
if (L != _control) _imp_signal(4,2,0,"Corrupt control variable L"); /* FOR loop control variable corrupted */
}
                                                                //    363                  CURROUT = CURROUT+1
#line 363 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
                                                                //    364                  BYTEINTEGER(CURROUT) = BYTEINTEGER(L)
#line 364 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = *_imp_BYTEINTEGER(L);
                                                                //    365               %REPEAT
#line 365 "regression-compile-tmp/soaps-77.imp"
goto L_002d;
#line 365 "regression-compile-tmp/soaps-77.imp"
L_002e:;
                                                                //    366  
                                                                //    367  !??          ADJUST
                                                                //    368            %FINISH %ELSE %START
#line 368 "regression-compile-tmp/soaps-77.imp"
goto L_0030;
#line 368 "regression-compile-tmp/soaps-77.imp"
L_001c:;
                                                                //    369               LIM = CURROUT-LINEBASE+SAFETY FACTOR
#line 369 "regression-compile-tmp/soaps-77.imp"
LIM = (((short)((((int)(CURROUT)) - (LINEBASE)))) + (SAFETYFACTOR));
                                                                //    370               !!*L_1,CURROUT
                                                                //    371               !!*MVC_1(4,1),CCC
                                                                //    372               !!*LA_1,4(1)
                                                                //    373               !!*ST_1,CURROUT
                                                                //    374               !!*ST_1,LINE BASE
                                                                //    375  
                                                                //    376               %CYCLE J = 1,1,MARGIN+SEC MARGIN
#line 376 "regression-compile-tmp/soaps-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = (((int)(MARGIN)) + (SECMARGIN)); J = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, (((int)(MARGIN)) + (SECMARGIN))");
J -= _increment; _control -= _increment;
L_0031:;
if (J == _final) goto L_0032;
J += _increment; _control += _increment;
if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */
}
                                                                //    377                  CURROUT = CURROUT+1;  BYTEINTEGER(CURROUT) = ' '
#line 377 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
#line 377 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 32;
                                                                //    378               %REPEAT
#line 378 "regression-compile-tmp/soaps-77.imp"
goto L_0031;
#line 378 "regression-compile-tmp/soaps-77.imp"
L_0032:;
                                                                //    379  
                                                                //    380               PMODE = 128;               ! NO LONGER IN RANGE OF '%'
#line 380 "regression-compile-tmp/soaps-77.imp"
PMODE = 128;
                                                                //    381            %FINISH
#line 381 "regression-compile-tmp/soaps-77.imp"
L_0030:;
                                                                //    382            LIMIT = LINEBASE+LINE LENGTH
#line 382 "regression-compile-tmp/soaps-77.imp"
LIMIT = (((int)(LINEBASE)) + (LINELENGTH));
                                                                //    383            STATSIZE = STATSIZE-LINELENGTH+MARGIN
#line 383 "regression-compile-tmp/soaps-77.imp"
STATSIZE = (((int)((((int)(STATSIZE)) - (LINELENGTH)))) + (MARGIN));
                                                                //    384            RPLIM = RPLIM+RPINC %IF STATSIZE+MARGIN >= LINE LENGTH
#line 384 "regression-compile-tmp/soaps-77.imp"
if ((((((int)(STATSIZE)) + (MARGIN))) < (LINELENGTH))) goto L_0034;
#line 384 "regression-compile-tmp/soaps-77.imp"
RPLIM = (((int)(RPLIM)) + (RPINC));
#line 384 "regression-compile-tmp/soaps-77.imp"
L_0034:;
                                                                //    385            NVAL = 0
#line 385 "regression-compile-tmp/soaps-77.imp"
NVAL = 0;
                                                                //    386  
                                                                //    387  %ROUTINE ADJUST
#line 387 "regression-compile-tmp/soaps-77.imp"
void ADJUST( void )
#line 387 "regression-compile-tmp/soaps-77.imp"
{
                                                                //    388  
                                                                //    389               %CYCLE J = 1,1,4
#line 389 "regression-compile-tmp/soaps-77.imp"
J = 0;
if ((((4)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, 4");
L_0035:;
if (J == 4) goto L_0036;
J += 1;
                                                                //    390                  %IF NEST(J) <= LIM %THEN NEST(J) = 0 %C
#line 390 "regression-compile-tmp/soaps-77.imp"
if (((NEST[J]) > (LIM))) goto L_0038;
#line 390 "regression-compile-tmp/soaps-77.imp"
NEST[J] = 0;
#line 390 "regression-compile-tmp/soaps-77.imp"
goto L_0039;
#line 390 "regression-compile-tmp/soaps-77.imp"
L_0038:;
#line 390 "regression-compile-tmp/soaps-77.imp"
NEST[J] = (((int)((((int)(HOLD[(((int)(J)) - (1))])) - (CURROUT)))) + (LINEBASE));
#line 390 "regression-compile-tmp/soaps-77.imp"
L_0039:;
                                                                //    391                     %ELSE NEST(J) = HOLD(J)-CURROUT+LINE BASE
                                                                //    392               %REPEAT
#line 392 "regression-compile-tmp/soaps-77.imp"
goto L_0035;
#line 392 "regression-compile-tmp/soaps-77.imp"
L_0036:;
                                                                //    393  
                                                                //    394  %END
#line 394 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block ADJUST at level 2
                                                                //    395  %END
#line 395 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CONTINUE at level 1
                                                                //    396  
                                                                //    397  %ROUTINE BREAK
#line 397 "regression-compile-tmp/soaps-77.imp"
void BREAK( void )
#line 397 "regression-compile-tmp/soaps-77.imp"
{
                                                                //    398  !%SHORTROUTINE
                                                                //    399            CURROUT = CURROUT-2 %UNLESS BYTEINTEGER(CURROUT) = ';'
#line 399 "regression-compile-tmp/soaps-77.imp"
if (((*_imp_BYTEINTEGER(CURROUT)) == (59))) goto L_003a;
#line 399 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) - (2));
#line 399 "regression-compile-tmp/soaps-77.imp"
L_003a:;
                                                                //    400            BYTEINTEGER(CURROUT) = NL
#line 400 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 10;
                                                                //    401            SIZE = 0;  LINE BASE = CURROUT
#line 401 "regression-compile-tmp/soaps-77.imp"
SIZE = 0;
#line 401 "regression-compile-tmp/soaps-77.imp"
LINEBASE = CURROUT;
                                                                //    402            LIMIT = LINE BASE+LINE SIZE
#line 402 "regression-compile-tmp/soaps-77.imp"
LIMIT = (((int)(LINEBASE)) + (LINESIZE));
                                                                //    403            NVAL = 0
#line 403 "regression-compile-tmp/soaps-77.imp"
NVAL = 0;
                                                                //    404  %END
#line 404 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block BREAK at level 1
                                                                //    405  
                                                                //    406  %EXTERNALROUTINE SOAP(%STRING (128) FILES)
#line 406 "regression-compile-tmp/soaps-77.imp"
void SOAP( _imp_string /*%string(128)*/ FILES )
#line 406 "regression-compile-tmp/soaps-77.imp"
{
                                                                //    407  !%SHORTROUTINE
                                                                //    408  %OWNINTEGER MOVEX = X'D2002001', MOVEY = X'10010000'
#line 408 "regression-compile-tmp/soaps-77.imp"
static int MOVEX = (-771743743);
#line 408 "regression-compile-tmp/soaps-77.imp"
static int MOVEY = 268500992;
                                                                //    409  %ROUTINESPEC PERCENT
#line 409 "regression-compile-tmp/soaps-77.imp"
auto void PERCENT( void );
                                                                //    410  %ROUTINESPEC SPACE
#line 410 "regression-compile-tmp/soaps-77.imp"
auto void SPACE( void );
                                                                //    411  %INTEGERNAME MID MARGIN
#line 411 "regression-compile-tmp/soaps-77.imp"
int /*name*/*MIDMARGIN;
                                                                //    412  %INTEGER N, P, K, M, Z
#line 412 "regression-compile-tmp/soaps-77.imp"
int N;
#line 412 "regression-compile-tmp/soaps-77.imp"
int P;
#line 412 "regression-compile-tmp/soaps-77.imp"
int K;
#line 412 "regression-compile-tmp/soaps-77.imp"
int M;
#line 412 "regression-compile-tmp/soaps-77.imp"
int Z;
                                                                //    413  !!%BYTEINTEGERARRAYFORMAT NFM(1 : 4)
                                                                //    414  %BYTEINTEGERARRAYNAME NEST
#line 414 "regression-compile-tmp/soaps-77.imp"
unsigned char /*arrayname*/*NEST;
                                                                //    415            PRINT STRING( "SOAP");  {PRINTCH(7);}  NEWLINE
#line 415 "regression-compile-tmp/soaps-77.imp"
_imp_PRINTSTRING(_imp_str_literal("SOAP"));
#line 415 "regression-compile-tmp/soaps-77.imp"
_imp_NEWLINE();
                                                                //    416            !!NEST == ARRAY(ADDR(NVAL),NFM)
                                                                //    417            SET UP FILES(FILES);  %RETURN %IF OK = 0
#line 417 "regression-compile-tmp/soaps-77.imp"
SETUPFILES(&FILES);
#line 417 "regression-compile-tmp/soaps-77.imp"
if (((OK) != (0))) goto L_003b;
#line 417 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 417 "regression-compile-tmp/soaps-77.imp"
L_003b:;
                                                                //    418            SET OPTIONS;  %RETURN %IF OK = 0
#line 418 "regression-compile-tmp/soaps-77.imp"
SETOPTIONS();
#line 418 "regression-compile-tmp/soaps-77.imp"
if (((OK) != (0))) goto L_003c;
#line 418 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 418 "regression-compile-tmp/soaps-77.imp"
L_003c:;
                                                                //    419            MID MARGIN == MARGIN
#line 419 "regression-compile-tmp/soaps-77.imp"
MIDMARGIN = &MARGIN;
                                                                //    420            MID MARGIN == RMARGIN %IF COMMENTS RELATIVE = 0
#line 420 "regression-compile-tmp/soaps-77.imp"
if (((COMMENTSRELATIVE) != (0))) goto L_003d;
#line 420 "regression-compile-tmp/soaps-77.imp"
MIDMARGIN = &RMARGIN;
#line 420 "regression-compile-tmp/soaps-77.imp"
L_003d:;
                                                                //    421  !*                32             16      8     4     2      1
                                                                //    422  !* STATUS:  SPECIAL COMMENT : COMMENT : OWN : END : DOWN : UP
                                                                //    423  TOP:                                    !    HEAD OF MAIN LOOP
#line 423 "regression-compile-tmp/soaps-77.imp"
U_1000:;
                                                                //    424  
                                                                //    425            %CYCLE
#line 425 "regression-compile-tmp/soaps-77.imp"
L_003e:;
                                                                //    426               NVAL = 0
#line 426 "regression-compile-tmp/soaps-77.imp"
NVAL = 0;
                                                                //    427               LOOP FLAG = 0
#line 427 "regression-compile-tmp/soaps-77.imp"
LOOPFLAG = 0;
                                                                //    428               RP = 0;  SPT = 0;  MODE = 0;  STATUS = 0
#line 428 "regression-compile-tmp/soaps-77.imp"
RP = 0;
#line 428 "regression-compile-tmp/soaps-77.imp"
SPT = 0;
#line 428 "regression-compile-tmp/soaps-77.imp"
MODE = 0;
#line 428 "regression-compile-tmp/soaps-77.imp"
STATUS = 0;
                                                                //    429               SAD = TEXTBASE
#line 429 "regression-compile-tmp/soaps-77.imp"
SAD = TEXTBASE;
                                                                //    430               LIMIT = CURROUT+LINELENGTH %IF LAST SEP # ';'
#line 430 "regression-compile-tmp/soaps-77.imp"
if (((LASTSEP) == (59))) goto L_0041;
#line 430 "regression-compile-tmp/soaps-77.imp"
LIMIT = (((int)(CURROUT)) + (LINELENGTH));
#line 430 "regression-compile-tmp/soaps-77.imp"
L_0041:;
                                                                //    431               INBASE = CURRIN
#line 431 "regression-compile-tmp/soaps-77.imp"
INBASE = CURRIN;
                                                                //    432               %IF PARSE(0) # 0 %THEN %START
#line 432 "regression-compile-tmp/soaps-77.imp"
if (((PARSE(0)) == (0))) goto L_0042;
                                                                //    433                                          !    SYNTAX ??
                                                                //    434  OWNS:           J = CURRIN;  QUOTES = 0;  K = 0
#line 434 "regression-compile-tmp/soaps-77.imp"
U_1001:;
#line 434 "regression-compile-tmp/soaps-77.imp"
J = CURRIN;
#line 434 "regression-compile-tmp/soaps-77.imp"
QUOTES = 0;
#line 434 "regression-compile-tmp/soaps-77.imp"
K = 0;
                                                                //    435  
                                                                //    436                  %CYCLE
#line 436 "regression-compile-tmp/soaps-77.imp"
L_0043:;
                                                                //    437                     K = K+1
#line 437 "regression-compile-tmp/soaps-77.imp"
K = (((int)(K)) + (1));
                                                                //    438                     J = J+1;  S = BYTEINTEGER(J)
#line 438 "regression-compile-tmp/soaps-77.imp"
J = (((int)(J)) + (1));
#line 438 "regression-compile-tmp/soaps-77.imp"
S = *_imp_BYTEINTEGER(J);
                                                                //    439                     QUOTES = QUOTES!!1 %IF S = ''''
#line 439 "regression-compile-tmp/soaps-77.imp"
if (((S) != (39))) goto L_0046;
#line 439 "regression-compile-tmp/soaps-77.imp"
QUOTES = ((QUOTES) ^ (1));
#line 439 "regression-compile-tmp/soaps-77.imp"
L_0046:;
                                                                //    440                  %REPEAT %UNTIL (S = NL %OR S = ';') %AND (QUOTES = 0 %OR K > 300)
#line 440 "regression-compile-tmp/soaps-77.imp"
if (((S) == (10))) goto L_0047;
#line 440 "regression-compile-tmp/soaps-77.imp"
if (((S) != (59))) goto L_0045;
#line 440 "regression-compile-tmp/soaps-77.imp"
L_0047:;
#line 440 "regression-compile-tmp/soaps-77.imp"
if (((QUOTES) == (0))) goto L_0044;
#line 440 "regression-compile-tmp/soaps-77.imp"
if (((K) > (300))) goto L_0044;
#line 440 "regression-compile-tmp/soaps-77.imp"
L_0045:;
#line 440 "regression-compile-tmp/soaps-77.imp"
goto L_0043;
#line 440 "regression-compile-tmp/soaps-77.imp"
L_0044:;
                                                                //    441  
                                                                //    442                  SLENGTH = J-CURRIN
#line 442 "regression-compile-tmp/soaps-77.imp"
SLENGTH = (((int)(J)) - (CURRIN));
                                                                //    443                  %IF CURROUT+SLENGTH > LIMIT %AND LAST SEP = ';' %C
#line 443 "regression-compile-tmp/soaps-77.imp"
if ((((((int)(CURROUT)) + (SLENGTH))) <= (LIMIT))) goto L_0048;
#line 443 "regression-compile-tmp/soaps-77.imp"
if (((LASTSEP) != (59))) goto L_0048;
                                                                //    444                     %THEN %START
                                                                //    445                     BREAK
#line 445 "regression-compile-tmp/soaps-77.imp"
BREAK();
                                                                //    446                     STAT = CURROUT+MARGIN
#line 446 "regression-compile-tmp/soaps-77.imp"
STAT = (((int)(CURROUT)) + (MARGIN));
                                                                //    447  
                                                                //    448                     %CYCLE J = 1,1,MARGIN
#line 448 "regression-compile-tmp/soaps-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = MARGIN; J = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, MARGIN");
J -= _increment; _control -= _increment;
L_0049:;
if (J == _final) goto L_004a;
J += _increment; _control += _increment;
if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */
}
                                                                //    449                        CURROUT = CURROUT+1
#line 449 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
                                                                //    450                        BYTEINTEGER(CURROUT) = ' '
#line 450 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 32;
                                                                //    451                     %REPEAT
#line 451 "regression-compile-tmp/soaps-77.imp"
goto L_0049;
#line 451 "regression-compile-tmp/soaps-77.imp"
L_004a:;
                                                                //    452  
                                                                //    453                  %FINISH
#line 453 "regression-compile-tmp/soaps-77.imp"
L_0048:;
                                                                //    454                  %IF OWNFLAG = 0 %THEN %START
#line 454 "regression-compile-tmp/soaps-77.imp"
if (((OWNFLAG) != (0))) goto L_004c;
                                                                //    455                     OWNFLAG = ';'
#line 455 "regression-compile-tmp/soaps-77.imp"
OWNFLAG = 59;
                                                                //    456                     %IF CURROUT+SLENGTH+SAFETY FACTOR > LIMIT %C
#line 456 "regression-compile-tmp/soaps-77.imp"
if ((((((short)((((int)(CURROUT)) + (SLENGTH)))) + (SAFETYFACTOR))) <= (LIMIT))) goto L_004d;
                                                                //    457                        %THEN %START
                                                                //    458                        !!*L_1,CURROUT
                                                                //    459                        !!*MVC_1(4,1),CCC;  ! PUSH IN CONTINUATION
                                                                //    460                        !!*LA_1,4(1)
                                                                //    461                        !!*ST_1,CURROUT
                                                                //    462                        !!*ST_1,LINE BASE
                                                                //    463                     %FINISH
#line 463 "regression-compile-tmp/soaps-77.imp"
L_004d:;
                                                                //    464                  %FINISH
#line 464 "regression-compile-tmp/soaps-77.imp"
L_004c:;
                                                                //    465  
                                                                //    466                  %CYCLE J = 1,1,SLENGTH
#line 466 "regression-compile-tmp/soaps-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = SLENGTH; J = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, SLENGTH");
J -= _increment; _control -= _increment;
L_004e:;
if (J == _final) goto L_004f;
J += _increment; _control += _increment;
if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */
}
                                                                //    467                     CURRIN = CURRIN+1;  CURROUT = CURROUT+1
#line 467 "regression-compile-tmp/soaps-77.imp"
CURRIN = (((int)(CURRIN)) + (1));
#line 467 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
                                                                //    468                     BYTEINTEGER(CURROUT) = BYTEINTEGER(CURRIN)
#line 468 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = *_imp_BYTEINTEGER(CURRIN);
                                                                //    469                  %REPEAT
#line 469 "regression-compile-tmp/soaps-77.imp"
goto L_004e;
#line 469 "regression-compile-tmp/soaps-77.imp"
L_004f:;
                                                                //    470  
                                                                //    471                  LAST SEP = BYTEINTEGER(CURRIN)
#line 471 "regression-compile-tmp/soaps-77.imp"
LASTSEP = *_imp_BYTEINTEGER(CURRIN);
                                                                //    472                  %IF LAST SEP = ';' %THEN %START
#line 472 "regression-compile-tmp/soaps-77.imp"
if (((LASTSEP) != (59))) goto L_0051;
                                                                //    473                     BYTEINTEGER(CURROUT+1) = ' '
#line 473 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER((((int)(CURROUT)) + (1))) = 32;
                                                                //    474                     BYTEINTEGER(CURROUT+2) = ' '
#line 474 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER((((int)(CURROUT)) + (2))) = 32;
                                                                //    475                     CURROUT = CURROUT+2
#line 475 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (2));
                                                                //    476                  %FINISH %ELSE LINE BASE = CURROUT
#line 476 "regression-compile-tmp/soaps-77.imp"
goto L_0052;
#line 476 "regression-compile-tmp/soaps-77.imp"
L_0051:;
#line 476 "regression-compile-tmp/soaps-77.imp"
LINEBASE = CURROUT;
#line 476 "regression-compile-tmp/soaps-77.imp"
L_0052:;
                                                                //    477               %FINISH %ELSE %START
#line 477 "regression-compile-tmp/soaps-77.imp"
goto L_0053;
#line 477 "regression-compile-tmp/soaps-77.imp"
L_0042:;
                                                                //    478                  PMODE = 128
#line 478 "regression-compile-tmp/soaps-77.imp"
PMODE = 128;
                                                                //    479                  STATSIZE = CURRIN-INBASE
#line 479 "regression-compile-tmp/soaps-77.imp"
STATSIZE = (((int)(CURRIN)) - (INBASE));
                                                                //    480                  %IF STATSIZE+MARGIN > LINE LENGTH %START
#line 480 "regression-compile-tmp/soaps-77.imp"
if ((((((int)(STATSIZE)) + (MARGIN))) <= (LINELENGTH))) goto L_0054;
                                                                //    481                     RPINC = RP//(STATSIZE//(LINE LENGTH-MARGIN))
#line 481 "regression-compile-tmp/soaps-77.imp"
RPINC = (long)((long)((int)(RP)) / (long)((_Z(((long)((long)((int)(STATSIZE)) / (long)((_Z((((int)(LINELENGTH)) - (MARGIN)))))))))));
                                                                //    482                     RPLIM = RPINC
#line 482 "regression-compile-tmp/soaps-77.imp"
RPLIM = RPINC;
                                                                //    483                  %FINISH %ELSE RPLIM = RP
#line 483 "regression-compile-tmp/soaps-77.imp"
goto L_0055;
#line 483 "regression-compile-tmp/soaps-77.imp"
L_0054:;
#line 483 "regression-compile-tmp/soaps-77.imp"
RPLIM = RP;
#line 483 "regression-compile-tmp/soaps-77.imp"
L_0055:;
                                                                //    484                  %IF STATUS&11 # 0 %AND LAST SEP = ';' %THEN %START
#line 484 "regression-compile-tmp/soaps-77.imp"
if (((((STATUS) & (11))) == (0))) goto L_0056;
#line 484 "regression-compile-tmp/soaps-77.imp"
if (((LASTSEP) != (59))) goto L_0056;
                                                                //    485                     LAST SEP = NL
#line 485 "regression-compile-tmp/soaps-77.imp"
LASTSEP = 10;
                                                                //    486                     BREAK
#line 486 "regression-compile-tmp/soaps-77.imp"
BREAK();
                                                                //    487                  %FINISH
#line 487 "regression-compile-tmp/soaps-77.imp"
L_0056:;
                                                                //    488                  %IF STATUS&136 # 0 %THEN %START
#line 488 "regression-compile-tmp/soaps-77.imp"
if (((((STATUS) & (136))) == (0))) goto L_0057;
                                                                //    489                                          !    BLANK LINE OR BLOCK
                                                                //    490                     %IF (LEAVE BLANKS # 0 %AND THIS SEP # ';') %C
#line 490 "regression-compile-tmp/soaps-77.imp"
if (((LEAVEBLANKS) == (0))) goto L_0058;
#line 490 "regression-compile-tmp/soaps-77.imp"
if (((THISSEP) != (59))) goto L_004b;
#line 490 "regression-compile-tmp/soaps-77.imp"
L_0058:;
#line 490 "regression-compile-tmp/soaps-77.imp"
if (((((STATUS) & (128))) == (0))) goto L_0059;
#line 490 "regression-compile-tmp/soaps-77.imp"
if (((SEPBLOCKS) == (0))) goto L_0059;
#line 490 "regression-compile-tmp/soaps-77.imp"
L_004b:;
                                                                //    491                        %OR (STATUS&128 # 0 %AND SEP BLOCKS # 0) %C
                                                                //    492                        %THEN %START
                                                                //    493  NULL:
#line 493 "regression-compile-tmp/soaps-77.imp"
U_1002:;
                                                                //    494                        CURROUT = CURROUT+1;  BYTEINTEGER(CURROUT) = NL
#line 494 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
#line 494 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 10;
                                                                //    495                        LINE BASE = CURROUT
#line 495 "regression-compile-tmp/soaps-77.imp"
LINEBASE = CURROUT;
                                                                //    496                     %FINISH
#line 496 "regression-compile-tmp/soaps-77.imp"
L_0059:;
                                                                //    497                     -> TOP %IF STATUS&8 # 0 %AND RP <= 1
#line 497 "regression-compile-tmp/soaps-77.imp"
if (((((STATUS) & (8))) == (0))) goto L_005a;
#line 497 "regression-compile-tmp/soaps-77.imp"
if (((RP) > (1))) goto L_005a;
#line 497 "regression-compile-tmp/soaps-77.imp"
goto U_1000;
#line 497 "regression-compile-tmp/soaps-77.imp"
L_005a:;
                                                                //    498                                          !    IN CASE OF LONELY LABELS
                                                                //    499                  %FINISH
#line 499 "regression-compile-tmp/soaps-77.imp"
L_0057:;
                                                                //    500                  RP = 0
#line 500 "regression-compile-tmp/soaps-77.imp"
RP = 0;
                                                                //    501                  %IF LOOP FLAG # 0 %AND STATUS&1 # 0 %C
#line 501 "regression-compile-tmp/soaps-77.imp"
if (((LOOPFLAG) == (0))) goto L_005b;
#line 501 "regression-compile-tmp/soaps-77.imp"
if (((((STATUS) & (1))) == (0))) goto L_005b;
#line 501 "regression-compile-tmp/soaps-77.imp"
if (((*_imp_BYTEINTEGER((((int)(CURROUT)) - (1)))) == (10))) goto L_005b;
                                                                //    502                     %AND BYTEINTEGER(CURROUT-1) # NL %START
                                                                //    503                     CURROUT = CURROUT+1;  BYTEINTEGER(CURROUT) = NL
#line 503 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
#line 503 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 10;
                                                                //    504                     LINE BASE = CURROUT
#line 504 "regression-compile-tmp/soaps-77.imp"
LINEBASE = CURROUT;
                                                                //    505                     LIMIT = LIMIT+1
#line 505 "regression-compile-tmp/soaps-77.imp"
LIMIT = (((int)(LIMIT)) + (1));
                                                                //    506                  %FINISH
#line 506 "regression-compile-tmp/soaps-77.imp"
L_005b:;
                                                                //    507                  %IF STATUS&2 # 0 %THEN %START
#line 507 "regression-compile-tmp/soaps-77.imp"
if (((((STATUS) & (2))) == (0))) goto L_005c;
                                                                //    508                                          !    DOWN
                                                                //    509                     STATUS = STATUS!64 %C
#line 509 "regression-compile-tmp/soaps-77.imp"
if (((EXTRAMARGIN) == (0))) goto L_005d;
#line 509 "regression-compile-tmp/soaps-77.imp"
if (((((STATUS) & (4))) == (0))) goto L_005d;
#line 509 "regression-compile-tmp/soaps-77.imp"
STATUS = ((STATUS) | (64));
#line 509 "regression-compile-tmp/soaps-77.imp"
L_005d:;
                                                                //    510                        %IF EXTRA MARGIN # 0 %AND STATUS&4 # 0
                                                                //    511                     LEVEL = LEVEL>>1
#line 511 "regression-compile-tmp/soaps-77.imp"
LEVEL = (int)((((unsigned int)(LEVEL)) >> (1)));
                                                                //    512                     LEVEL = 1 %IF LEVEL = 0
#line 512 "regression-compile-tmp/soaps-77.imp"
if (((LEVEL) != (0))) goto L_005e;
#line 512 "regression-compile-tmp/soaps-77.imp"
LEVEL = 1;
#line 512 "regression-compile-tmp/soaps-77.imp"
L_005e:;
                                                                //    513                     MARGIN = MARGIN-DELTA MARGIN %IF MLIMIT&1 = 0
#line 513 "regression-compile-tmp/soaps-77.imp"
if (((((MLIMIT) & (1))) != (0))) goto L_005f;
#line 513 "regression-compile-tmp/soaps-77.imp"
MARGIN = (((int)(MARGIN)) - (DELTAMARGIN));
#line 513 "regression-compile-tmp/soaps-77.imp"
L_005f:;
                                                                //    514                     MLIMIT = MLIMIT>>1
#line 514 "regression-compile-tmp/soaps-77.imp"
MLIMIT = (int)((((unsigned int)(MLIMIT)) >> (1)));
                                                                //    515                     MARGIN = 0 %IF MARGIN < 0
#line 515 "regression-compile-tmp/soaps-77.imp"
if (((MARGIN) >= (0))) goto L_0060;
#line 515 "regression-compile-tmp/soaps-77.imp"
MARGIN = 0;
#line 515 "regression-compile-tmp/soaps-77.imp"
L_0060:;
                                                                //    516                  %FINISH
#line 516 "regression-compile-tmp/soaps-77.imp"
L_005c:;
                                                                //    517                  STAT = CURROUT+MARGIN %IF LAST SEP # ';'
#line 517 "regression-compile-tmp/soaps-77.imp"
if (((LASTSEP) == (59))) goto L_0061;
#line 517 "regression-compile-tmp/soaps-77.imp"
STAT = (((int)(CURROUT)) + (MARGIN));
#line 517 "regression-compile-tmp/soaps-77.imp"
L_0061:;
                                                                //    518  
                                                                //    519                  %WHILE REC(RP+1) = 100 %CYCLE
#line 519 "regression-compile-tmp/soaps-77.imp"
L_0062:;
#line 519 "regression-compile-tmp/soaps-77.imp"
if ((((REC-1)[(((int)(RP)) + (1))]) != (100))) goto L_0063;
                                                                //    520                                          !    DEAL WITH LABELS
                                                                //    521                     RP = RP+1
#line 521 "regression-compile-tmp/soaps-77.imp"
RP = (((int)(RP)) + (1));
                                                                //    522                     %IF LAST SEP = ';' %OR LAST SEP = ':' %THEN %START
#line 522 "regression-compile-tmp/soaps-77.imp"
if (((LASTSEP) == (59))) goto L_0065;
#line 522 "regression-compile-tmp/soaps-77.imp"
if (((LASTSEP) != (58))) goto L_0066;
#line 522 "regression-compile-tmp/soaps-77.imp"
L_0065:;
                                                                //    523                        N = -2;  N = 1 %IF LAST SEP = ':'
#line 523 "regression-compile-tmp/soaps-77.imp"
N = (-2);
#line 523 "regression-compile-tmp/soaps-77.imp"
if (((LASTSEP) != (58))) goto L_0067;
#line 523 "regression-compile-tmp/soaps-77.imp"
N = 1;
#line 523 "regression-compile-tmp/soaps-77.imp"
L_0067:;
                                                                //    524                        CURROUT = CURROUT+N;  BYTEINTEGER(CURROUT) = NL
#line 524 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (N));
#line 524 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 10;
                                                                //    525                        LINE BASE = CURROUT
#line 525 "regression-compile-tmp/soaps-77.imp"
LINEBASE = CURROUT;
                                                                //    526                        LIMIT = CURROUT+LINELENGTH
#line 526 "regression-compile-tmp/soaps-77.imp"
LIMIT = (((int)(CURROUT)) + (LINELENGTH));
                                                                //    527                        STAT = CURROUT+MARGIN
#line 527 "regression-compile-tmp/soaps-77.imp"
STAT = (((int)(CURROUT)) + (MARGIN));
                                                                //    528                        LAST SEP = NL
#line 528 "regression-compile-tmp/soaps-77.imp"
LASTSEP = 10;
                                                                //    529                     %FINISH
#line 529 "regression-compile-tmp/soaps-77.imp"
L_0066:;
                                                                //    530                     %IF LABELS RELATIVE # 0 %AND LAST SEP # ':' %C
#line 530 "regression-compile-tmp/soaps-77.imp"
if (((LABELSRELATIVE) == (0))) goto L_0068;
#line 530 "regression-compile-tmp/soaps-77.imp"
if (((LASTSEP) == (58))) goto L_0068;
                                                                //    531                        %THEN %START
                                                                //    532                        N = LEVEL;  M = MARGIN
#line 532 "regression-compile-tmp/soaps-77.imp"
N = LEVEL;
#line 532 "regression-compile-tmp/soaps-77.imp"
M = MARGIN;
                                                                //    533                        M = M+FIRST DISP %C
#line 533 "regression-compile-tmp/soaps-77.imp"
if (((EXTRAMARGIN) == (0))) goto L_0069;
#line 533 "regression-compile-tmp/soaps-77.imp"
if (((LEVEL) != (1))) goto L_0069;
#line 533 "regression-compile-tmp/soaps-77.imp"
M = (((int)(M)) + (FIRSTDISP));
#line 533 "regression-compile-tmp/soaps-77.imp"
L_0069:;
                                                                //    534                           %IF EXTRA MARGIN # 0 %AND LEVEL = 1
                                                                //    535  
                                                                //    536                        %CYCLE
#line 536 "regression-compile-tmp/soaps-77.imp"
L_006a:;
                                                                //    537                           M = M-DELTA MARGIN
#line 537 "regression-compile-tmp/soaps-77.imp"
M = (((int)(M)) - (DELTAMARGIN));
                                                                //    538                           %EXIT %IF N&1 # 0
#line 538 "regression-compile-tmp/soaps-77.imp"
if (((((N) & (1))) == (0))) goto L_006d;
#line 538 "regression-compile-tmp/soaps-77.imp"
goto L_006b;
#line 538 "regression-compile-tmp/soaps-77.imp"
L_006d:;
                                                                //    539                           N = N>>1
#line 539 "regression-compile-tmp/soaps-77.imp"
N = (int)((((unsigned int)(N)) >> (1)));
                                                                //    540                        %REPEAT
#line 540 "regression-compile-tmp/soaps-77.imp"
goto L_006a;
#line 540 "regression-compile-tmp/soaps-77.imp"
L_006b:;
                                                                //    541  
                                                                //    542                        %WHILE M > 0 %CYCLE
#line 542 "regression-compile-tmp/soaps-77.imp"
L_006e:;
#line 542 "regression-compile-tmp/soaps-77.imp"
if (((M) <= (0))) goto L_006f;
                                                                //    543                           M = M-1
#line 543 "regression-compile-tmp/soaps-77.imp"
M = (((int)(M)) - (1));
                                                                //    544                           CURROUT = CURROUT+1
#line 544 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
                                                                //    545                           BYTEINTEGER(CURROUT) = ' '
#line 545 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 32;
                                                                //    546                        %REPEAT
#line 546 "regression-compile-tmp/soaps-77.imp"
goto L_006e;
#line 546 "regression-compile-tmp/soaps-77.imp"
L_006f:;
                                                                //    547  
                                                                //    548                     %FINISH
#line 548 "regression-compile-tmp/soaps-77.imp"
L_0068:;
                                                                //    549  
                                                                //    550                     %CYCLE
#line 550 "regression-compile-tmp/soaps-77.imp"
L_0071:;
                                                                //    551                        RP = RP+1;  N = REC(RP);  %EXIT %IF N = 0
#line 551 "regression-compile-tmp/soaps-77.imp"
RP = (((int)(RP)) + (1));
#line 551 "regression-compile-tmp/soaps-77.imp"
N = (REC-1)[RP];
#line 551 "regression-compile-tmp/soaps-77.imp"
if (((N) != (0))) goto L_0074;
#line 551 "regression-compile-tmp/soaps-77.imp"
goto L_0072;
#line 551 "regression-compile-tmp/soaps-77.imp"
L_0074:;
                                                                //    552                        %IF N < 0 %THEN SN = STRINGS(-N) %C
#line 552 "regression-compile-tmp/soaps-77.imp"
if (((N) >= (0))) goto L_0075;
#line 552 "regression-compile-tmp/soaps-77.imp"
SN = (STRINGS-1)[(-(N))];
#line 552 "regression-compile-tmp/soaps-77.imp"
goto L_0076;
#line 552 "regression-compile-tmp/soaps-77.imp"
L_0075:;
#line 552 "regression-compile-tmp/soaps-77.imp"
SN = (((int)((KEYWORD-1)[N])) + (KEYBASE));
#line 552 "regression-compile-tmp/soaps-77.imp"
L_0076:;
                                                                //    553                           %ELSE SN = KEYWORD(N)+KEYBASE
                                                                //    554  
                                                                //    555                        %CYCLE J = SN+1,1,SN+BYTEINTEGER(SN)
#line 555 "regression-compile-tmp/soaps-77.imp"
{static int _initial, _increment, _final, _control;
_initial = (((int)(SN)) + (1)); _increment = 1; _final = ((SN) + (*(int *)(_imp_BYTEINTEGER(SN)))); J = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = (((int)(SN)) + (1)), 1, ((SN) + (*(int *)(_imp_BYTEINTEGER(SN))))");
J -= _increment; _control -= _increment;
L_0077:;
if (J == _final) goto L_0078;
J += _increment; _control += _increment;
if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */
}
                                                                //    556                           CURROUT = CURROUT+1
#line 556 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
                                                                //    557                           BYTEINTEGER(CURROUT) = BYTEINTEGER(J)
#line 557 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = *_imp_BYTEINTEGER(J);
                                                                //    558                        %REPEAT
#line 558 "regression-compile-tmp/soaps-77.imp"
goto L_0077;
#line 558 "regression-compile-tmp/soaps-77.imp"
L_0078:;
                                                                //    559  
                                                                //    560                     %REPEAT
#line 560 "regression-compile-tmp/soaps-77.imp"
goto L_0071;
#line 560 "regression-compile-tmp/soaps-77.imp"
L_0072:;
                                                                //    561  
                                                                //    562                     %IF CURROUT > STAT %AND STATUS&16 = 0 %THEN %START
#line 562 "regression-compile-tmp/soaps-77.imp"
if (((CURROUT) <= (STAT))) goto L_007a;
#line 562 "regression-compile-tmp/soaps-77.imp"
if (((((STATUS) & (16))) != (0))) goto L_007a;
                                                                //    563                        CURROUT = CURROUT+1;  BYTEINTEGER(CURROUT) = NL
#line 563 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
#line 563 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 10;
                                                                //    564                        LINE BASE = CURROUT
#line 564 "regression-compile-tmp/soaps-77.imp"
LINEBASE = CURROUT;
                                                                //    565                        LIMIT = CURROUT+LINELENGTH
#line 565 "regression-compile-tmp/soaps-77.imp"
LIMIT = (((int)(CURROUT)) + (LINELENGTH));
                                                                //    566                        STAT = CURROUT+MARGIN
#line 566 "regression-compile-tmp/soaps-77.imp"
STAT = (((int)(CURROUT)) + (MARGIN));
                                                                //    567                     %FINISH
#line 567 "regression-compile-tmp/soaps-77.imp"
L_007a:;
                                                                //    568                     LAST SEP = ':'
#line 568 "regression-compile-tmp/soaps-77.imp"
LASTSEP = 58;
                                                                //    569                  %REPEAT
#line 569 "regression-compile-tmp/soaps-77.imp"
goto L_0062;
#line 569 "regression-compile-tmp/soaps-77.imp"
L_0063:;
                                                                //    570  
                                                                //    571                  RP = 0 %AND -> NULL %IF STATUS&8 # 0
#line 571 "regression-compile-tmp/soaps-77.imp"
if (((((STATUS) & (8))) == (0))) goto L_007b;
#line 571 "regression-compile-tmp/soaps-77.imp"
RP = 0;
#line 571 "regression-compile-tmp/soaps-77.imp"
goto U_1002;
#line 571 "regression-compile-tmp/soaps-77.imp"
L_007b:;
                                                                //    572                                          !    NOW DEAL WITH COMMENTS
                                                                //    573                  %IF STATUS&16 # 0 %THEN %START
#line 573 "regression-compile-tmp/soaps-77.imp"
if (((((STATUS) & (16))) == (0))) goto L_007c;
                                                                //    574                     RP = RP+1;  DISP = REC(RP)
#line 574 "regression-compile-tmp/soaps-77.imp"
RP = (((int)(RP)) + (1));
#line 574 "regression-compile-tmp/soaps-77.imp"
DISP = (REC-1)[RP];
                                                                //    575                                          !   STARTING DISP OF INPUT
                                                                //    576                                          !  COMMENT
                                                                //    577                     D = 0;  CMODE = 0
#line 577 "regression-compile-tmp/soaps-77.imp"
D = 0;
#line 577 "regression-compile-tmp/soaps-77.imp"
CMODE = 0;
                                                                //    578                     J = CURRIN;          !   FIND THE END OF THE COMMENT
#line 578 "regression-compile-tmp/soaps-77.imp"
J = CURRIN;
                                                                //    579                     J = J+1 %WHILE BYTEINTEGER(J) # NL %C
#line 579 "regression-compile-tmp/soaps-77.imp"
L_007d:;
#line 579 "regression-compile-tmp/soaps-77.imp"
if (((*_imp_BYTEINTEGER(J)) == (10))) goto L_007e;
#line 579 "regression-compile-tmp/soaps-77.imp"
if (((*_imp_BYTEINTEGER(J)) == (59))) goto L_007e;
#line 579 "regression-compile-tmp/soaps-77.imp"
J = (((int)(J)) + (1));
#line 579 "regression-compile-tmp/soaps-77.imp"
goto L_007d;
#line 579 "regression-compile-tmp/soaps-77.imp"
L_007e:;
                                                                //    580                        %AND BYTEINTEGER(J) # ';'
                                                                //    581                     CS = J-CURRIN;       !   COMMENT SIZE
#line 581 "regression-compile-tmp/soaps-77.imp"
CS = (((int)(J)) - (CURRIN));
                                                                //    582                     %IF COMMENT FLAG = 0 %C
#line 582 "regression-compile-tmp/soaps-77.imp"
if (((COMMENTFLAG) != (0))) goto L_0080;
#line 582 "regression-compile-tmp/soaps-77.imp"
CSTART = COMMENTTAB;
#line 582 "regression-compile-tmp/soaps-77.imp"
goto L_0081;
#line 582 "regression-compile-tmp/soaps-77.imp"
L_0080:;
                                                                //    583                        %THEN CSTART = COMMENT TAB %ELSE %START
                                                                //    584                        %IF COMMENTS NORMAL # 0 %START
#line 584 "regression-compile-tmp/soaps-77.imp"
if (((COMMENTSNORMAL) == (0))) goto L_0082;
                                                                //    585                           CMODE = 1;  CSTART = MARGIN
#line 585 "regression-compile-tmp/soaps-77.imp"
CMODE = 1;
#line 585 "regression-compile-tmp/soaps-77.imp"
CSTART = MARGIN;
                                                                //    586                        %FINISH %ELSE %START
#line 586 "regression-compile-tmp/soaps-77.imp"
goto L_0083;
#line 586 "regression-compile-tmp/soaps-77.imp"
L_0082:;
                                                                //    587                           %IF LAST SEP = ';' %C
#line 587 "regression-compile-tmp/soaps-77.imp"
if (((LASTSEP) != (59))) goto L_0084;
#line 587 "regression-compile-tmp/soaps-77.imp"
CSTART = COMMENTTAB;
#line 587 "regression-compile-tmp/soaps-77.imp"
goto L_0085;
#line 587 "regression-compile-tmp/soaps-77.imp"
L_0084:;
                                                                //    588                              %THEN CSTART = COMMENT TAB %ELSE %START
                                                                //    589                              %IF DISP = 0 %THEN CSTART = 0 %ELSE %START
#line 589 "regression-compile-tmp/soaps-77.imp"
if (((DISP) != (0))) goto L_0086;
#line 589 "regression-compile-tmp/soaps-77.imp"
CSTART = 0;
#line 589 "regression-compile-tmp/soaps-77.imp"
goto L_0087;
#line 589 "regression-compile-tmp/soaps-77.imp"
L_0086:;
                                                                //    590                                 %IF DISP <= MID MARGIN %C
#line 590 "regression-compile-tmp/soaps-77.imp"
if (((DISP) > (*MIDMARGIN))) goto L_0088;
#line 590 "regression-compile-tmp/soaps-77.imp"
if (((((STATUS) & (32))) != (0))) goto L_0088;
#line 590 "regression-compile-tmp/soaps-77.imp"
CSTART = MARGIN;
#line 590 "regression-compile-tmp/soaps-77.imp"
goto L_0089;
#line 590 "regression-compile-tmp/soaps-77.imp"
L_0088:;
#line 590 "regression-compile-tmp/soaps-77.imp"
CSTART = COMMENTTAB;
#line 590 "regression-compile-tmp/soaps-77.imp"
L_0089:;
                                                                //    591                                    %AND STATUS&32 = 0 %C
                                                                //    592                                    %THEN CSTART = MARGIN %C
                                                                //    593                                    %ELSE CSTART = COMMENT TAB
                                                                //    594                              %FINISH
#line 594 "regression-compile-tmp/soaps-77.imp"
L_0087:;
                                                                //    595                           %FINISH
#line 595 "regression-compile-tmp/soaps-77.imp"
L_0085:;
                                                                //    596                        %FINISH
#line 596 "regression-compile-tmp/soaps-77.imp"
L_0083:;
                                                                //    597                     %FINISH
#line 597 "regression-compile-tmp/soaps-77.imp"
L_0081:;
                                                                //    598                     CSTART = 0 %IF STATUS&32 # 0 %AND LEAVE STARS # 0
#line 598 "regression-compile-tmp/soaps-77.imp"
if (((((STATUS) & (32))) == (0))) goto L_008a;
#line 598 "regression-compile-tmp/soaps-77.imp"
if (((LEAVESTARS) == (0))) goto L_008a;
#line 598 "regression-compile-tmp/soaps-77.imp"
CSTART = 0;
#line 598 "regression-compile-tmp/soaps-77.imp"
L_008a:;
                                                                //    599                     SIZE = CURROUT-LINE BASE
#line 599 "regression-compile-tmp/soaps-77.imp"
SIZE = (((int)(CURROUT)) - (LINEBASE));
                                                                //    600                     %IF LAST SEP = ';' %START
#line 600 "regression-compile-tmp/soaps-77.imp"
if (((LASTSEP) != (59))) goto L_008b;
                                                                //    601                        %IF BYTEINTEGER(CURROUT) = NL %START
#line 601 "regression-compile-tmp/soaps-77.imp"
if (((*_imp_BYTEINTEGER(CURROUT)) != (10))) goto L_008c;
                                                                //    602                                          ! COMMENT AFTER REPEAT+NL
                                                                //    603                           LOOP FLAG = 1
#line 603 "regression-compile-tmp/soaps-77.imp"
LOOPFLAG = 1;
                                                                //    604                           LINE BASE = LINE BASE-1 %C
#line 604 "regression-compile-tmp/soaps-77.imp"
L_008d:;
#line 604 "regression-compile-tmp/soaps-77.imp"
LINEBASE = (((int)(LINEBASE)) - (1));
#line 604 "regression-compile-tmp/soaps-77.imp"
if (((*_imp_BYTEINTEGER(LINEBASE)) == (10))) goto L_008e;
#line 604 "regression-compile-tmp/soaps-77.imp"
goto L_008d;
#line 604 "regression-compile-tmp/soaps-77.imp"
L_008e:;
                                                                //    605                              %UNTIL BYTEINTEGER(LINE BASE) = NL
                                                                //    606                           SIZE = CURROUT-LINE BASE
#line 606 "regression-compile-tmp/soaps-77.imp"
SIZE = (((int)(CURROUT)) - (LINEBASE));
                                                                //    607                        %FINISH
#line 607 "regression-compile-tmp/soaps-77.imp"
L_008c:;
                                                                //    608                        CURROUT = CURROUT-2;  SIZE = SIZE-2
#line 608 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) - (2));
#line 608 "regression-compile-tmp/soaps-77.imp"
SIZE = (((int)(SIZE)) - (2));
                                                                //    609                                          ! TO REMOVE SPACES AFTER SEMI"S
                                                                //    610                        %IF EXTEND COMMENTS # 0 %AND CSTART < SIZE %START
#line 610 "regression-compile-tmp/soaps-77.imp"
if (((EXTENDCOMMENTS) == (0))) goto L_0090;
#line 610 "regression-compile-tmp/soaps-77.imp"
if (((CSTART) >= (SIZE))) goto L_0090;
                                                                //    611                           P = CSTART;    ! REMEMBER IT JUST IN CASE
#line 611 "regression-compile-tmp/soaps-77.imp"
P = CSTART;
                                                                //    612                           N = EXT NUM;   ! NUMBER OF EXTENSION TRIES
#line 612 "regression-compile-tmp/soaps-77.imp"
N = EXTNUM;
                                                                //    613  
                                                                //    614                           %CYCLE
#line 614 "regression-compile-tmp/soaps-77.imp"
L_0091:;
                                                                //    615                              %EXIT %IF N <= 0
#line 615 "regression-compile-tmp/soaps-77.imp"
if (((N) > (0))) goto L_0094;
#line 615 "regression-compile-tmp/soaps-77.imp"
goto L_0092;
#line 615 "regression-compile-tmp/soaps-77.imp"
L_0094:;
                                                                //    616                              CSTART = CSTART+COMMENT EXTENSION
#line 616 "regression-compile-tmp/soaps-77.imp"
CSTART = ((CSTART) + ((int)(COMMENTEXTENSION)));
                                                                //    617                              %EXIT %IF CSTART >= SIZE
#line 617 "regression-compile-tmp/soaps-77.imp"
if (((CSTART) < (SIZE))) goto L_0095;
#line 617 "regression-compile-tmp/soaps-77.imp"
goto L_0092;
#line 617 "regression-compile-tmp/soaps-77.imp"
L_0095:;
                                                                //    618                              N = N-1
#line 618 "regression-compile-tmp/soaps-77.imp"
N = (((int)(N)) - (1));
                                                                //    619                           %REPEAT
#line 619 "regression-compile-tmp/soaps-77.imp"
goto L_0091;
#line 619 "regression-compile-tmp/soaps-77.imp"
L_0092:;
                                                                //    620  
                                                                //    621                           CSTART = P %IF N <= 0 %C
#line 621 "regression-compile-tmp/soaps-77.imp"
if (((N) <= (0))) goto L_0093;
#line 621 "regression-compile-tmp/soaps-77.imp"
if ((((((int)(CS)) + (CSTART))) <= (COMMENTLINE))) goto L_0096;
#line 621 "regression-compile-tmp/soaps-77.imp"
L_0093:;
#line 621 "regression-compile-tmp/soaps-77.imp"
CSTART = P;
#line 621 "regression-compile-tmp/soaps-77.imp"
L_0096:;
                                                                //    622                              %OR CS+CSTART > COMMENT LINE
                                                                //    623  ! RESTORE IT IF TOO LONG
                                                                //    624                        %FINISH
#line 624 "regression-compile-tmp/soaps-77.imp"
L_0090:;
                                                                //    625                        %IF CSTART < SIZE %START
#line 625 "regression-compile-tmp/soaps-77.imp"
if (((CSTART) >= (SIZE))) goto L_0097;
                                                                //    626                           %IF CMODE # 0 %THEN CSTART = 0 %ELSE BREAK
#line 626 "regression-compile-tmp/soaps-77.imp"
if (((CMODE) == (0))) goto L_0098;
#line 626 "regression-compile-tmp/soaps-77.imp"
CSTART = 0;
#line 626 "regression-compile-tmp/soaps-77.imp"
goto L_0099;
#line 626 "regression-compile-tmp/soaps-77.imp"
L_0098:;
#line 626 "regression-compile-tmp/soaps-77.imp"
BREAK();
#line 626 "regression-compile-tmp/soaps-77.imp"
L_0099:;
                                                                //    627                        %FINISH %ELSE %START
#line 627 "regression-compile-tmp/soaps-77.imp"
goto L_009a;
#line 627 "regression-compile-tmp/soaps-77.imp"
L_0097:;
                                                                //    628                           D = COMMENT LINE-CSTART-CS
#line 628 "regression-compile-tmp/soaps-77.imp"
D = (((int)((((int)(COMMENTLINE)) - (CSTART)))) - (CS));
                                                                //    629                           %IF D < 0 %AND BREAK COMMENTS = 0 %START
#line 629 "regression-compile-tmp/soaps-77.imp"
if (((D) >= (0))) goto L_009b;
#line 629 "regression-compile-tmp/soaps-77.imp"
if (((BREAKCOMMENTS) != (0))) goto L_009b;
                                                                //    630                              CSTART = LINE SIZE-CS
#line 630 "regression-compile-tmp/soaps-77.imp"
CSTART = (((int)(LINESIZE)) - (CS));
                                                                //    631                              BREAK
#line 631 "regression-compile-tmp/soaps-77.imp"
BREAK();
                                                                //    632                              D = 0
#line 632 "regression-compile-tmp/soaps-77.imp"
D = 0;
                                                                //    633                           %FINISH
#line 633 "regression-compile-tmp/soaps-77.imp"
L_009b:;
                                                                //    634                        %FINISH
#line 634 "regression-compile-tmp/soaps-77.imp"
L_009a:;
                                                                //    635                     %FINISH %ELSE %START
#line 635 "regression-compile-tmp/soaps-77.imp"
goto L_009c;
#line 635 "regression-compile-tmp/soaps-77.imp"
L_008b:;
                                                                //    636                        D = COMMENT LINE-CSTART-CS
#line 636 "regression-compile-tmp/soaps-77.imp"
D = (((int)((((int)(COMMENTLINE)) - (CSTART)))) - (CS));
                                                                //    637                        %IF D < 0 %AND BREAKCOMMENTS = 0 %THEN %START
#line 637 "regression-compile-tmp/soaps-77.imp"
if (((D) >= (0))) goto L_009d;
#line 637 "regression-compile-tmp/soaps-77.imp"
if (((BREAKCOMMENTS) != (0))) goto L_009d;
                                                                //    638                           CSTART = COMMENT LINE-CS
#line 638 "regression-compile-tmp/soaps-77.imp"
CSTART = (((int)(COMMENTLINE)) - (CS));
                                                                //    639                           D = 0
#line 639 "regression-compile-tmp/soaps-77.imp"
D = 0;
                                                                //    640                        %FINISH
#line 640 "regression-compile-tmp/soaps-77.imp"
L_009d:;
                                                                //    641                     %FINISH
#line 641 "regression-compile-tmp/soaps-77.imp"
L_009c:;
                                                                //    642  
                                                                //    643                     %CYCLE
#line 643 "regression-compile-tmp/soaps-77.imp"
L_009e:;
                                                                //    644                        N = CSTART-SIZE
#line 644 "regression-compile-tmp/soaps-77.imp"
N = (((int)(CSTART)) - (SIZE));
                                                                //    645  
                                                                //    646                        %WHILE N > 0 %CYCLE
#line 646 "regression-compile-tmp/soaps-77.imp"
L_00a1:;
#line 646 "regression-compile-tmp/soaps-77.imp"
if (((N) <= (0))) goto L_00a2;
                                                                //    647                           N = N-1;  CURROUT = CURROUT+1
#line 647 "regression-compile-tmp/soaps-77.imp"
N = (((int)(N)) - (1));
#line 647 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
                                                                //    648                           BYTEINTEGER(CURROUT) = ' '
#line 648 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 32;
                                                                //    649                        %REPEAT
#line 649 "regression-compile-tmp/soaps-77.imp"
goto L_00a1;
#line 649 "regression-compile-tmp/soaps-77.imp"
L_00a2:;
                                                                //    650  
                                                                //    651                        CURROUT = CURROUT+1
#line 651 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
                                                                //    652                        BYTEINTEGER(CURROUT) = '!'
#line 652 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 33;
                                                                //    653                        CURROUT = CURROUT+1 %C
#line 653 "regression-compile-tmp/soaps-77.imp"
if (((((STATUS) & (32))) == (0))) goto L_00a4;
#line 653 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
#line 653 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 42;
#line 653 "regression-compile-tmp/soaps-77.imp"
L_00a4:;
                                                                //    654                           %AND BYTEINTEGER(CURROUT) = '*' %C
                                                                //    655                           %IF STATUS&32 # 0
                                                                //    656                        P = J
#line 656 "regression-compile-tmp/soaps-77.imp"
P = J;
                                                                //    657                        %IF D < 0 %START
#line 657 "regression-compile-tmp/soaps-77.imp"
if (((D) >= (0))) goto L_00a5;
                                                                //    658                           P = J+D
#line 658 "regression-compile-tmp/soaps-77.imp"
P = (((int)(J)) + (D));
                                                                //    659                           P = P-1 %WHILE BYTEINTEGER(P) # ' ' %C
#line 659 "regression-compile-tmp/soaps-77.imp"
L_00a6:;
#line 659 "regression-compile-tmp/soaps-77.imp"
if (((*_imp_BYTEINTEGER(P)) == (32))) goto L_00a7;
#line 659 "regression-compile-tmp/soaps-77.imp"
if (((*_imp_BYTEINTEGER(P)) == (44))) goto L_00a7;
#line 659 "regression-compile-tmp/soaps-77.imp"
if (((*_imp_BYTEINTEGER(P)) == (46))) goto L_00a7;
#line 659 "regression-compile-tmp/soaps-77.imp"
if (((P) <= (CURRIN))) goto L_00a7;
#line 659 "regression-compile-tmp/soaps-77.imp"
P = (((int)(P)) - (1));
#line 659 "regression-compile-tmp/soaps-77.imp"
goto L_00a6;
#line 659 "regression-compile-tmp/soaps-77.imp"
L_00a7:;
                                                                //    660                              %AND BYTEINTEGER(P) # ',' %C
                                                                //    661                              %AND BYTEINTEGER(P) # '.' %AND P > CURRIN
                                                                //    662                           P = P-1
#line 662 "regression-compile-tmp/soaps-77.imp"
P = (((int)(P)) - (1));
                                                                //    663                           P = J+D %IF P = CURRIN
#line 663 "regression-compile-tmp/soaps-77.imp"
if (((P) != (CURRIN))) goto L_00a9;
#line 663 "regression-compile-tmp/soaps-77.imp"
P = (((int)(J)) + (D));
#line 663 "regression-compile-tmp/soaps-77.imp"
L_00a9:;
                                                                //    664                        %FINISH
#line 664 "regression-compile-tmp/soaps-77.imp"
L_00a5:;
                                                                //    665  
                                                                //    666                        %CYCLE K = CURRIN+1,1,P
#line 666 "regression-compile-tmp/soaps-77.imp"
{static int _initial, _increment, _final, _control;
_initial = (((int)(CURRIN)) + (1)); _increment = 1; _final = P; K = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle K = (((int)(CURRIN)) + (1)), 1, P");
K -= _increment; _control -= _increment;
L_00aa:;
if (K == _final) goto L_00ab;
K += _increment; _control += _increment;
if (K != _control) _imp_signal(4,2,0,"Corrupt control variable K"); /* FOR loop control variable corrupted */
}
                                                                //    667                           CURROUT = CURROUT+1
#line 667 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
                                                                //    668                           BYTEINTEGER(CURROUT) = BYTEINTEGER(K)
#line 668 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = *_imp_BYTEINTEGER(K);
                                                                //    669                        %REPEAT
#line 669 "regression-compile-tmp/soaps-77.imp"
goto L_00aa;
#line 669 "regression-compile-tmp/soaps-77.imp"
L_00ab:;
                                                                //    670  
                                                                //    671                        CURRIN = P
#line 671 "regression-compile-tmp/soaps-77.imp"
CURRIN = P;
                                                                //    672                        %EXIT %IF D >= 0
#line 672 "regression-compile-tmp/soaps-77.imp"
if (((D) < (0))) goto L_00ad;
#line 672 "regression-compile-tmp/soaps-77.imp"
goto L_009f;
#line 672 "regression-compile-tmp/soaps-77.imp"
L_00ad:;
                                                                //    673                        CURROUT = CURROUT+1
#line 673 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
                                                                //    674                        BYTEINTEGER(CURROUT) = NL
#line 674 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 10;
                                                                //    675                        SIZE = 0;  D = LINE LENGTH-MARGIN+D
#line 675 "regression-compile-tmp/soaps-77.imp"
SIZE = 0;
#line 675 "regression-compile-tmp/soaps-77.imp"
D = (((int)((((int)(LINELENGTH)) - (MARGIN)))) + (D));
                                                                //    676                     %REPEAT
#line 676 "regression-compile-tmp/soaps-77.imp"
goto L_009e;
#line 676 "regression-compile-tmp/soaps-77.imp"
L_009f:;
                                                                //    677  
                                                                //    678                     BYTEINTEGER(CURROUT) = NL
#line 678 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 10;
                                                                //    679                     %IF LOOP FLAG # 0 %START
#line 679 "regression-compile-tmp/soaps-77.imp"
if (((LOOPFLAG) == (0))) goto L_00ae;
                                                                //    680                        LOOP FLAG = 0
#line 680 "regression-compile-tmp/soaps-77.imp"
LOOPFLAG = 0;
                                                                //    681                        CURROUT = CURROUT+1;  BYTEINTEGER(CURROUT) = NL
#line 681 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
#line 681 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 10;
                                                                //    682                     %FINISH
#line 682 "regression-compile-tmp/soaps-77.imp"
L_00ae:;
                                                                //    683                     SIZE = 0;  LINE BASE = CURROUT;  LAST SEP = NL
#line 683 "regression-compile-tmp/soaps-77.imp"
SIZE = 0;
#line 683 "regression-compile-tmp/soaps-77.imp"
LINEBASE = CURROUT;
#line 683 "regression-compile-tmp/soaps-77.imp"
LASTSEP = 10;
                                                                //    684                                          !   END OF COMMENT HANDLING
                                                                //    685                  %FINISH %ELSE %START
#line 685 "regression-compile-tmp/soaps-77.imp"
goto L_00af;
#line 685 "regression-compile-tmp/soaps-77.imp"
L_007c:;
                                                                //    686                     N = 0
#line 686 "regression-compile-tmp/soaps-77.imp"
N = 0;
                                                                //    687                     %IF STATUS&64 # 0 %START
#line 687 "regression-compile-tmp/soaps-77.imp"
if (((((STATUS) & (64))) == (0))) goto L_00b0;
                                                                //    688                        N = DELTA MARGIN
#line 688 "regression-compile-tmp/soaps-77.imp"
N = DELTAMARGIN;
                                                                //    689                        N = MARGIN %IF EXTRA MARGIN # 0
#line 689 "regression-compile-tmp/soaps-77.imp"
if (((EXTRAMARGIN) == (0))) goto L_00b1;
#line 689 "regression-compile-tmp/soaps-77.imp"
N = MARGIN;
#line 689 "regression-compile-tmp/soaps-77.imp"
L_00b1:;
                                                                //    690                     %FINISH
#line 690 "regression-compile-tmp/soaps-77.imp"
L_00b0:;
                                                                //    691                     STAT = STAT-N
#line 691 "regression-compile-tmp/soaps-77.imp"
STAT = (((int)(STAT)) - (N));
                                                                //    692                     CURROUT = CURROUT+1 %C
#line 692 "regression-compile-tmp/soaps-77.imp"
L_00b2:;
#line 692 "regression-compile-tmp/soaps-77.imp"
if (((CURROUT) >= (STAT))) goto L_00b3;
#line 692 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
#line 692 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 32;
#line 692 "regression-compile-tmp/soaps-77.imp"
goto L_00b2;
#line 692 "regression-compile-tmp/soaps-77.imp"
L_00b3:;
                                                                //    693                        %AND BYTEINTEGER(CURROUT) = ' ' %C
                                                                //    694                        %WHILE CURROUT < STAT
                                                                //    695                     LIMIT = CURROUT+LINELENGTH-MARGIN+N %C
#line 695 "regression-compile-tmp/soaps-77.imp"
if (((LASTSEP) == (59))) goto L_00b5;
#line 695 "regression-compile-tmp/soaps-77.imp"
LIMIT = (((int)((((int)((((int)(CURROUT)) + (LINELENGTH)))) - (MARGIN)))) + (N));
#line 695 "regression-compile-tmp/soaps-77.imp"
L_00b5:;
                                                                //    696                        %IF LAST SEP # ';'
                                                                //    697  
                                                                //    698                     %CYCLE
#line 698 "regression-compile-tmp/soaps-77.imp"
L_00b6:;
                                                                //    699                        RP = RP+1;  N = REC(RP);  %EXIT %IF N = 0
#line 699 "regression-compile-tmp/soaps-77.imp"
RP = (((int)(RP)) + (1));
#line 699 "regression-compile-tmp/soaps-77.imp"
N = (REC-1)[RP];
#line 699 "regression-compile-tmp/soaps-77.imp"
if (((N) != (0))) goto L_00b9;
#line 699 "regression-compile-tmp/soaps-77.imp"
goto L_00b7;
#line 699 "regression-compile-tmp/soaps-77.imp"
L_00b9:;
                                                                //    700                        %IF N > 0 %THEN %START
#line 700 "regression-compile-tmp/soaps-77.imp"
if (((N) <= (0))) goto L_00ba;
                                                                //    701                           SN = KEYWORD(N)+KEYBASE
#line 701 "regression-compile-tmp/soaps-77.imp"
SN = (((int)((KEYWORD-1)[N])) + (KEYBASE));
                                                                //    702                           FLAG = KFLAGS(N)
#line 702 "regression-compile-tmp/soaps-77.imp"
FLAG = (KFLAGS-1)[N];
                                                                //    703                           Z = SFLAGS(N)
#line 703 "regression-compile-tmp/soaps-77.imp"
Z = (SFLAGS-1)[N];
                                                                //    704                           SLENGTH = BYTEINTEGER(SN)
#line 704 "regression-compile-tmp/soaps-77.imp"
SLENGTH = *_imp_BYTEINTEGER(SN);
                                                                //    705                        %FINISH %ELSE %START
#line 705 "regression-compile-tmp/soaps-77.imp"
goto L_00bb;
#line 705 "regression-compile-tmp/soaps-77.imp"
L_00ba:;
                                                                //    706                           SN = STRINGS(-N)
#line 706 "regression-compile-tmp/soaps-77.imp"
SN = (STRINGS-1)[(-(N))];
                                                                //    707                           FLAG = 0;  Z = 0
#line 707 "regression-compile-tmp/soaps-77.imp"
FLAG = 0;
#line 707 "regression-compile-tmp/soaps-77.imp"
Z = 0;
                                                                //    708                           SLENGTH = TLENGTH(-N)
#line 708 "regression-compile-tmp/soaps-77.imp"
SLENGTH = (TLENGTH-1)[(-(N))];
                                                                //    709                        %FINISH
#line 709 "regression-compile-tmp/soaps-77.imp"
L_00bb:;
                                                                //    710                        %IF RP >= RPLIM %C
#line 710 "regression-compile-tmp/soaps-77.imp"
if (((RP) >= (RPLIM))) goto L_00ac;
#line 710 "regression-compile-tmp/soaps-77.imp"
if ((((((int)(SLENGTH)) + (CURROUT))) <= (LIMIT))) goto L_00bc;
#line 710 "regression-compile-tmp/soaps-77.imp"
if (((N) > (51))) goto L_00bc;
#line 710 "regression-compile-tmp/soaps-77.imp"
L_00ac:;
#line 710 "regression-compile-tmp/soaps-77.imp"
CONTINUE();
#line 710 "regression-compile-tmp/soaps-77.imp"
L_00bc:;
                                                                //    711                           %OR (SLENGTH+CURROUT > LIMIT %C
                                                                //    712                           %AND N <= LAST TEXT) %THEN CONTINUE
                                                                //    713                        %IF Z # 0 %START
#line 713 "regression-compile-tmp/soaps-77.imp"
if (((Z) == (0))) goto L_00bd;
                                                                //    714                           NEST(Z) = CURROUT-LINE BASE
#line 714 "regression-compile-tmp/soaps-77.imp"
NEST[Z] = (((int)(CURROUT)) - (LINEBASE));
                                                                //    715                           REM(Z) = RP
#line 715 "regression-compile-tmp/soaps-77.imp"
(REM-1)[Z] = RP;
                                                                //    716                        %FINISH
#line 716 "regression-compile-tmp/soaps-77.imp"
L_00bd:;
                                                                //    717                        SPACE %IF FLAG&OPTIONS&15 # 0 %C
#line 717 "regression-compile-tmp/soaps-77.imp"
if (((((((FLAG) & (OPTIONS))) & (15))) != (0))) goto L_00be;
#line 717 "regression-compile-tmp/soaps-77.imp"
if (((((((PMODE) ^ (FLAG))) & (128))) != (0))) goto L_00bf;
#line 717 "regression-compile-tmp/soaps-77.imp"
L_00be:;
#line 717 "regression-compile-tmp/soaps-77.imp"
SPACE();
#line 717 "regression-compile-tmp/soaps-77.imp"
L_00bf:;
                                                                //    718                           %OR (PMODE!!FLAG)&128 = 0
                                                                //    719                        PERCENT %IF FLAG&PMODE # 0
#line 719 "regression-compile-tmp/soaps-77.imp"
if (((((FLAG) & (PMODE))) == (0))) goto L_00c0;
#line 719 "regression-compile-tmp/soaps-77.imp"
PERCENT();
#line 719 "regression-compile-tmp/soaps-77.imp"
L_00c0:;
                                                                //    720                        %CYCLE J=SN+1, 1, SN+BYTEINTEGER(SN)
#line 720 "regression-compile-tmp/soaps-77.imp"
{static int _initial, _increment, _final, _control;
_initial = (((int)(SN)) + (1)); _increment = 1; _final = ((SN) + (*(int *)(_imp_BYTEINTEGER(SN)))); J = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = (((int)(SN)) + (1)), 1, ((SN) + (*(int *)(_imp_BYTEINTEGER(SN))))");
J -= _increment; _control -= _increment;
L_00c1:;
if (J == _final) goto L_00c2;
J += _increment; _control += _increment;
if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */
}
                                                                //    721                          CURROUT=CURROUT+1
#line 721 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
                                                                //    722                          BYTEINTEGER(CURROUT)=BYTEINTEGER(J)
#line 722 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = *_imp_BYTEINTEGER(J);
                                                                //    723                        %REPEAT
#line 723 "regression-compile-tmp/soaps-77.imp"
goto L_00c1;
#line 723 "regression-compile-tmp/soaps-77.imp"
L_00c2:;
                                                                //    724                        SPACE %IF FLAG&OPTIONS&120 # 0
#line 724 "regression-compile-tmp/soaps-77.imp"
if (((((((FLAG) & (OPTIONS))) & (120))) == (0))) goto L_00c4;
#line 724 "regression-compile-tmp/soaps-77.imp"
SPACE();
#line 724 "regression-compile-tmp/soaps-77.imp"
L_00c4:;
                                                                //    725                        PMODE = 128 %UNLESS 0 < N <= LAST TEXT
#line 725 "regression-compile-tmp/soaps-77.imp"
if ((((0) >= (N))) || (((N) <= (51)))) goto L_00c5;
#line 725 "regression-compile-tmp/soaps-77.imp"
L_00c3:;
#line 725 "regression-compile-tmp/soaps-77.imp"
PMODE = 128;
#line 725 "regression-compile-tmp/soaps-77.imp"
L_00c5:;
                                                                //    726                     %REPEAT
#line 726 "regression-compile-tmp/soaps-77.imp"
goto L_00b6;
#line 726 "regression-compile-tmp/soaps-77.imp"
L_00b7:;
                                                                //    727  
                                                                //    728                     -> OWNS %IF OWNFLAG = 0
#line 728 "regression-compile-tmp/soaps-77.imp"
if (((OWNFLAG) != (0))) goto L_00c6;
#line 728 "regression-compile-tmp/soaps-77.imp"
goto U_1001;
#line 728 "regression-compile-tmp/soaps-77.imp"
L_00c6:;
                                                                //    729                     CURROUT = CURROUT+1
#line 729 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
                                                                //    730                     BYTEINTEGER(CURROUT) = THIS SEP
#line 730 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = THISSEP;
                                                                //    731                     LAST SEP = THIS SEP
#line 731 "regression-compile-tmp/soaps-77.imp"
LASTSEP = THISSEP;
                                                                //    732                     %IF LOOP FLAG # 0 %AND STATUS&2 # 0 %START
#line 732 "regression-compile-tmp/soaps-77.imp"
if (((LOOPFLAG) == (0))) goto L_00c7;
#line 732 "regression-compile-tmp/soaps-77.imp"
if (((((STATUS) & (2))) == (0))) goto L_00c7;
                                                                //    733                        CURROUT = CURROUT+1;  BYTEINTEGER(CURROUT) = NL
#line 733 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
#line 733 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 10;
                                                                //    734                     %FINISH
#line 734 "regression-compile-tmp/soaps-77.imp"
L_00c7:;
                                                                //    735                     %IF STATUS&1 # 0 %THEN %START
#line 735 "regression-compile-tmp/soaps-77.imp"
if (((((STATUS) & (1))) == (0))) goto L_00c8;
                                                                //    736                                          !    UP
                                                                //    737                        LEVEL = LEVEL<<1
#line 737 "regression-compile-tmp/soaps-77.imp"
LEVEL = ((LEVEL) << (1));
                                                                //    738                        LEVEL = LEVEL!1 %IF STATUS&128 # 0
#line 738 "regression-compile-tmp/soaps-77.imp"
if (((((STATUS) & (128))) == (0))) goto L_00c9;
#line 738 "regression-compile-tmp/soaps-77.imp"
LEVEL = ((LEVEL) | (1));
#line 738 "regression-compile-tmp/soaps-77.imp"
L_00c9:;
                                                                //    739                        MLIMIT = MLIMIT<<1
#line 739 "regression-compile-tmp/soaps-77.imp"
MLIMIT = ((MLIMIT) << (1));
                                                                //    740                        MLIMIT = MLIMIT!1 %C
#line 740 "regression-compile-tmp/soaps-77.imp"
if (((MARGIN) >= (MAXMARGIN))) goto L_00ca;
#line 740 "regression-compile-tmp/soaps-77.imp"
if (((INDENTBLOCKS) != (0))) goto L_00cb;
#line 740 "regression-compile-tmp/soaps-77.imp"
if (((((STATUS) & (128))) == (0))) goto L_00cb;
#line 740 "regression-compile-tmp/soaps-77.imp"
L_00ca:;
#line 740 "regression-compile-tmp/soaps-77.imp"
MLIMIT = ((MLIMIT) | (1));
#line 740 "regression-compile-tmp/soaps-77.imp"
L_00cb:;
                                                                //    741                           %IF MARGIN >= MAX MARGIN %OR ( %C
                                                                //    742                           INDENT BLOCKS = 0 %AND STATUS&128 # 0)
                                                                //    743                        %IF MARGIN = 0 %AND EXTRA MARGIN # 0 %C
#line 743 "regression-compile-tmp/soaps-77.imp"
if (((MARGIN) != (0))) goto L_00cc;
#line 743 "regression-compile-tmp/soaps-77.imp"
if (((EXTRAMARGIN) == (0))) goto L_00cc;
#line 743 "regression-compile-tmp/soaps-77.imp"
MARGIN = INITIALMARGIN;
#line 743 "regression-compile-tmp/soaps-77.imp"
goto L_00cd;
#line 743 "regression-compile-tmp/soaps-77.imp"
L_00cc:;
                                                                //    744                           %THEN MARGIN = INITIAL MARGIN %ELSE %START
                                                                //    745                           MARGIN = MARGIN+DELTA MARGIN %IF MLIMIT&1 = 0
#line 745 "regression-compile-tmp/soaps-77.imp"
if (((((MLIMIT) & (1))) != (0))) goto L_00ce;
#line 745 "regression-compile-tmp/soaps-77.imp"
MARGIN = (((int)(MARGIN)) + (DELTAMARGIN));
#line 745 "regression-compile-tmp/soaps-77.imp"
L_00ce:;
                                                                //    746                        %FINISH
#line 746 "regression-compile-tmp/soaps-77.imp"
L_00cd:;
                                                                //    747                     %FINISH
#line 747 "regression-compile-tmp/soaps-77.imp"
L_00c8:;
                                                                //    748                     %IF LAST SEP = ';' %THEN %START
#line 748 "regression-compile-tmp/soaps-77.imp"
if (((LASTSEP) != (59))) goto L_00cf;
                                                                //    749                        BYTEINTEGER(CURROUT+1) = ' '
#line 749 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER((((int)(CURROUT)) + (1))) = 32;
                                                                //    750                        CURROUT = CURROUT+2
#line 750 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (2));
                                                                //    751                        BYTEINTEGER(CURROUT) = ' '
#line 751 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 32;
                                                                //    752                     %FINISH %ELSE LINE BASE = CURROUT
#line 752 "regression-compile-tmp/soaps-77.imp"
goto L_00d0;
#line 752 "regression-compile-tmp/soaps-77.imp"
L_00cf:;
#line 752 "regression-compile-tmp/soaps-77.imp"
LINEBASE = CURROUT;
#line 752 "regression-compile-tmp/soaps-77.imp"
L_00d0:;
                                                                //    753                     %EXIT %IF CURRIN >= ENDOFFILE %OR STATUS&7 = 7
#line 753 "regression-compile-tmp/soaps-77.imp"
if (((CURRIN) >= (ENDOFFILE))) goto L_00b8;
#line 753 "regression-compile-tmp/soaps-77.imp"
if (((((STATUS) & (7))) != (7))) goto L_00d1;
#line 753 "regression-compile-tmp/soaps-77.imp"
L_00b8:;
#line 753 "regression-compile-tmp/soaps-77.imp"
goto L_003f;
#line 753 "regression-compile-tmp/soaps-77.imp"
L_00d1:;
                                                                //    754                  %FINISH
#line 754 "regression-compile-tmp/soaps-77.imp"
L_00af:;
                                                                //    755               %FINISH
#line 755 "regression-compile-tmp/soaps-77.imp"
L_0053:;
                                                                //    756            %REPEAT
#line 756 "regression-compile-tmp/soaps-77.imp"
goto L_003e;
#line 756 "regression-compile-tmp/soaps-77.imp"
L_003f:;
                                                                //    757  
                                                                //    758            CLOSE FILES
#line 758 "regression-compile-tmp/soaps-77.imp"
CLOSEFILES();
                                                                //    759            %RETURN
#line 759 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    760  
                                                                //    761  %ROUTINE SPACE
#line 761 "regression-compile-tmp/soaps-77.imp"
void SPACE( void )
#line 761 "regression-compile-tmp/soaps-77.imp"
{
                                                                //    762               %IF ' ' # BYTEINTEGER(CURROUT) # NL %C
#line 762 "regression-compile-tmp/soaps-77.imp"
if (({int tmp1 = 32, tmp2 = *_imp_BYTEINTEGER(CURROUT), tmp3 = 10; (tmp1 == tmp2) || (tmp2 == tmp3);})) goto L_00d2;
#line 762 "regression-compile-tmp/soaps-77.imp"
if (((*_imp_BYTEINTEGER(CURROUT)) == (40))) goto L_00d2;
                                                                //    763                  %AND BYTEINTEGER(CURROUT) # '(' %THEN %START
                                                                //    764                  CURROUT = CURROUT+1;  BYTEINTEGER(CURROUT) = ' '
#line 764 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
#line 764 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 32;
                                                                //    765                  PMODE = 128
#line 765 "regression-compile-tmp/soaps-77.imp"
PMODE = 128;
                                                                //    766               %FINISH
#line 766 "regression-compile-tmp/soaps-77.imp"
L_00d2:;
                                                                //    767  %END
#line 767 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SPACE at level 2
                                                                //    768  
                                                                //    769  %ROUTINE PERCENT
#line 769 "regression-compile-tmp/soaps-77.imp"
void PERCENT( void )
#line 769 "regression-compile-tmp/soaps-77.imp"
{
                                                                //    770               %IF PMODE # 0 %THEN %START
#line 770 "regression-compile-tmp/soaps-77.imp"
if (((PMODE) == (0))) goto L_00d3;
                                                                //    771                  %IF ' ' # BYTEINTEGER(CURROUT) # NL %C
#line 771 "regression-compile-tmp/soaps-77.imp"
if (({int tmp1 = 32, tmp2 = *_imp_BYTEINTEGER(CURROUT), tmp3 = 10; (tmp1 == tmp2) || (tmp2 == tmp3);})) goto L_00d4;
#line 771 "regression-compile-tmp/soaps-77.imp"
if (((*_imp_BYTEINTEGER(CURROUT)) == (40))) goto L_00d4;
                                                                //    772                     %AND BYTEINTEGER(CURROUT) # '(' %THEN %START
                                                                //    773                     CURROUT = CURROUT+1;  BYTEINTEGER(CURROUT) = ' '
#line 773 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
#line 773 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 32;
                                                                //    774                  %FINISH
#line 774 "regression-compile-tmp/soaps-77.imp"
L_00d4:;
                                                                //    775                  CURROUT = CURROUT+1
#line 775 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (1));
                                                                //    776                  BYTEINTEGER(CURROUT) = '%'
#line 776 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 37;
                                                                //    777                  PMODE = 0
#line 777 "regression-compile-tmp/soaps-77.imp"
PMODE = 0;
                                                                //    778               %FINISH
#line 778 "regression-compile-tmp/soaps-77.imp"
L_00d3:;
                                                                //    779  %END
#line 779 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PERCENT at level 2
                                                                //    780  %END
#line 780 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SOAP at level 1
                                                                //    781  
                                                                //    782  %ROUTINE CONNEKT(%STRING (17) FILE, %INTEGERNAME MODE, FLAG)
#line 782 "regression-compile-tmp/soaps-77.imp"
void CONNEKT( _imp_string /*%string(17)*/ FILE, int /*name*/*MODE, int /*name*/*FLAG )
#line 782 "regression-compile-tmp/soaps-77.imp"
{
                                                                //    783  %INTEGER J
#line 783 "regression-compile-tmp/soaps-77.imp"
int J;
                                                                //    784            J = 0
#line 784 "regression-compile-tmp/soaps-77.imp"
J = 0;
                                                                //    785            !FDP(CONNEKTEP,FILE,MODE,ADDR(J),FLAG)
                                                                //    786            MODE = J
#line 786 "regression-compile-tmp/soaps-77.imp"
*MODE = J;
                                                                //    787            FLAG = 0 %IF FLAG = 5
#line 787 "regression-compile-tmp/soaps-77.imp"
if (((*FLAG) != (5))) goto L_00d5;
#line 787 "regression-compile-tmp/soaps-77.imp"
*FLAG = 0;
#line 787 "regression-compile-tmp/soaps-77.imp"
L_00d5:;
                                                                //    788  %END
#line 788 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CONNEKT at level 1
                                                                //    789  
                                                                //    790  %INTEGERFN PARSE(%INTEGER ENTRY)
#line 790 "regression-compile-tmp/soaps-77.imp"
int PARSE( int ENTRY )
#line 790 "regression-compile-tmp/soaps-77.imp"
{
                                                                //    791  !%SHORTROUTINE
                                                                //    792  %INTEGER SS, SP, TRP, TPT, L
#line 792 "regression-compile-tmp/soaps-77.imp"
int SS;
#line 792 "regression-compile-tmp/soaps-77.imp"
int SP;
#line 792 "regression-compile-tmp/soaps-77.imp"
int TRP;
#line 792 "regression-compile-tmp/soaps-77.imp"
int TPT;
#line 792 "regression-compile-tmp/soaps-77.imp"
int L;
                                                                //    793  %BYTEINTEGER MODES
#line 793 "regression-compile-tmp/soaps-77.imp"
unsigned char MODES;
                                                                //    794  
                                                                //    795  %INTEGERFN PUT
#line 795 "regression-compile-tmp/soaps-77.imp"
int PUT( void )
#line 795 "regression-compile-tmp/soaps-77.imp"
{
                                                                //    796               SPT = SPT-1
#line 796 "regression-compile-tmp/soaps-77.imp"
SPT = (((int)(SPT)) - (1));
                                                                //    797               RP = RP+1
#line 797 "regression-compile-tmp/soaps-77.imp"
RP = (((int)(RP)) + (1));
                                                                //    798               REC(RP) = SPT
#line 798 "regression-compile-tmp/soaps-77.imp"
(REC-1)[RP] = SPT;
                                                                //    799               TLENGTH(-SPT) = SLENGTH
#line 799 "regression-compile-tmp/soaps-77.imp"
(TLENGTH-1)[(-(SPT))] = SLENGTH;
                                                                //    800               STRINGS(-SPT) = SAD
#line 800 "regression-compile-tmp/soaps-77.imp"
(STRINGS-1)[(-(SPT))] = SAD;
                                                                //    801               STRING(SAD) = ST
#line 801 "regression-compile-tmp/soaps-77.imp"
*_imp_STRING(SAD) = ST;
                                                                //    802               SAD = SAD+1+BYTEINTEGER(ADDR(ST))
#line 802 "regression-compile-tmp/soaps-77.imp"
SAD = (((unsigned char)((((int)(SAD)) + (1)))) + (*_imp_BYTEINTEGER(_imp_ADDR(&ST))));
                                                                //    803               %RESULT = SPT
#line 803 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return SPT;
                                                                //    804  %END
#line 804 "regression-compile-tmp/soaps-77.imp"
} // End of block PUT at level 2
                                                                //    805  
                                                                //    806  %ROUTINE SYM
#line 806 "regression-compile-tmp/soaps-77.imp"
void SYM( void )
#line 806 "regression-compile-tmp/soaps-77.imp"
{
                                                                //    807  
                                                                //    808               %CYCLE
#line 808 "regression-compile-tmp/soaps-77.imp"
L_00d6:;
                                                                //    809                  CURRIN = CURRIN+1;  S = BYTEINTEGER(CURRIN)
#line 809 "regression-compile-tmp/soaps-77.imp"
CURRIN = (((int)(CURRIN)) + (1));
#line 809 "regression-compile-tmp/soaps-77.imp"
S = *_imp_BYTEINTEGER(CURRIN);
                                                                //    810                  MODE = 0 %UNLESS 'A' <= S <= 'Z'
#line 810 "regression-compile-tmp/soaps-77.imp"
if ((((65) > (S))) || (((S) <= (90)))) goto L_00d9;
#line 810 "regression-compile-tmp/soaps-77.imp"
L_0033:;
#line 810 "regression-compile-tmp/soaps-77.imp"
MODE = 0;
#line 810 "regression-compile-tmp/soaps-77.imp"
L_00d9:;
                                                                //    811                  %IF S = '%' %THEN MODE = 32 %ELSE %START
#line 811 "regression-compile-tmp/soaps-77.imp"
if (((S) != (37))) goto L_00da;
#line 811 "regression-compile-tmp/soaps-77.imp"
MODE = 32;
#line 811 "regression-compile-tmp/soaps-77.imp"
goto L_00db;
#line 811 "regression-compile-tmp/soaps-77.imp"
L_00da:;
                                                                //    812                     %IF S # ' ' %THEN %START
#line 812 "regression-compile-tmp/soaps-77.imp"
if (((S) == (32))) goto L_00dc;
                                                                //    813                        S = S+MODE
#line 813 "regression-compile-tmp/soaps-77.imp"
S = ((S) + ((int)(MODE)));
                                                                //    814                        %RETURN %IF S # 'C'+32 %C
#line 814 "regression-compile-tmp/soaps-77.imp"
if (((S) != (99))) goto L_00dd;
#line 814 "regression-compile-tmp/soaps-77.imp"
if (((*_imp_BYTEINTEGER((((int)(CURRIN)) + (1)))) == (10))) goto L_00de;
#line 814 "regression-compile-tmp/soaps-77.imp"
L_00dd:;
#line 814 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 814 "regression-compile-tmp/soaps-77.imp"
L_00de:;
                                                                //    815                           %OR BYTEINTEGER(CURRIN+1) # NL
                                                                //    816                        CURRIN = CURRIN+1
#line 816 "regression-compile-tmp/soaps-77.imp"
CURRIN = (((int)(CURRIN)) + (1));
                                                                //    817                        MODE = 0
#line 817 "regression-compile-tmp/soaps-77.imp"
MODE = 0;
                                                                //    818                     %FINISH
#line 818 "regression-compile-tmp/soaps-77.imp"
L_00dc:;
                                                                //    819                     SPACES = PACK NAMES
#line 819 "regression-compile-tmp/soaps-77.imp"
SPACES = PACKNAMES;
                                                                //    820                  %FINISH
#line 820 "regression-compile-tmp/soaps-77.imp"
L_00db:;
                                                                //    821               %REPEAT
#line 821 "regression-compile-tmp/soaps-77.imp"
goto L_00d6;
                                                                //    822  
                                                                //    823  %END
#line 823 "regression-compile-tmp/soaps-77.imp"
return;
} // End of block SYM at level 2
                                                                //    824  
                                                                //    825  %INTEGERFN CONSTANT
#line 825 "regression-compile-tmp/soaps-77.imp"
int CONSTANT( void )
#line 825 "regression-compile-tmp/soaps-77.imp"
{
                                                                //    826  %INTEGER T, LIM
#line 826 "regression-compile-tmp/soaps-77.imp"
int T;
#line 826 "regression-compile-tmp/soaps-77.imp"
int LIM;
                                                                //    827  %INTEGER CS
#line 827 "regression-compile-tmp/soaps-77.imp"
int CS;
                                                                //    828               SLENGTH = 0
#line 828 "regression-compile-tmp/soaps-77.imp"
SLENGTH = 0;
                                                                //    829               ST = ""
#line 829 "regression-compile-tmp/soaps-77.imp"
ST = _imp_str_literal("");
                                                                //    830               SYM
#line 830 "regression-compile-tmp/soaps-77.imp"
SYM();
                                                                //    831               CS = CURRIN %AND ST = ST.TOSTRING(S) %AND SYM %C
#line 831 "regression-compile-tmp/soaps-77.imp"
L_00df:;
#line 831 "regression-compile-tmp/soaps-77.imp"
if ((((48) > (S))) || (((S) <= (57)))) goto L_00e1;
#line 831 "regression-compile-tmp/soaps-77.imp"
L_00e2:;
#line 831 "regression-compile-tmp/soaps-77.imp"
if (((S) == (46))) goto L_00e1;
#line 831 "regression-compile-tmp/soaps-77.imp"
if (((S) != (64))) goto L_00e0;
#line 831 "regression-compile-tmp/soaps-77.imp"
L_00e1:;
#line 831 "regression-compile-tmp/soaps-77.imp"
CS = CURRIN;
#line 831 "regression-compile-tmp/soaps-77.imp"
ST = _imp_join((_imp_string)ST,(_imp_string)_imp_TOSTRING(S));
#line 831 "regression-compile-tmp/soaps-77.imp"
SYM();
#line 831 "regression-compile-tmp/soaps-77.imp"
goto L_00df;
#line 831 "regression-compile-tmp/soaps-77.imp"
L_00e0:;
                                                                //    832                  %WHILE '0' <= S <= '9' %OR S = '.' %OR S = '@'
                                                                //    833               CURRIN = CS %AND %RESULT = PUT %IF ST # ""
#line 833 "regression-compile-tmp/soaps-77.imp"
if ((_imp_strcmp(ST, _imp_str_literal("")) == 0)) goto L_00e3;
#line 833 "regression-compile-tmp/soaps-77.imp"
CURRIN = CS;
#line 833 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return PUT();
#line 833 "regression-compile-tmp/soaps-77.imp"
L_00e3:;
                                                                //    834               %IF S = 'M' %OR S = 'X' %OR S = 'B' %THEN %START
#line 834 "regression-compile-tmp/soaps-77.imp"
if (((S) == (77))) goto L_00e4;
#line 834 "regression-compile-tmp/soaps-77.imp"
if (((S) == (88))) goto L_00e4;
#line 834 "regression-compile-tmp/soaps-77.imp"
if (((S) != (66))) goto L_00e5;
#line 834 "regression-compile-tmp/soaps-77.imp"
L_00e4:;
                                                                //    835                  ST = TOSTRING(S)
#line 835 "regression-compile-tmp/soaps-77.imp"
ST = _imp_TOSTRING(S);
                                                                //    836                  T = CURRIN
#line 836 "regression-compile-tmp/soaps-77.imp"
T = CURRIN;
                                                                //    837                  SYM
#line 837 "regression-compile-tmp/soaps-77.imp"
SYM();
                                                                //    838                  CURRIN = T %AND %RESULT = 0 %IF S # ''''
#line 838 "regression-compile-tmp/soaps-77.imp"
if (((S) == (39))) goto L_00e6;
#line 838 "regression-compile-tmp/soaps-77.imp"
CURRIN = T;
#line 838 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 838 "regression-compile-tmp/soaps-77.imp"
L_00e6:;
                                                                //    839               %FINISH
#line 839 "regression-compile-tmp/soaps-77.imp"
L_00e5:;
                                                                //    840               LIM = CURRIN+255
#line 840 "regression-compile-tmp/soaps-77.imp"
LIM = (((int)(CURRIN)) + (255));
                                                                //    841  
                                                                //    842               %WHILE S = '''' %CYCLE
#line 842 "regression-compile-tmp/soaps-77.imp"
L_00e7:;
#line 842 "regression-compile-tmp/soaps-77.imp"
if (((S) != (39))) goto L_00e8;
                                                                //    843  
                                                                //    844                  %CYCLE
#line 844 "regression-compile-tmp/soaps-77.imp"
L_00ea:;
                                                                //    845                     SLENGTH = BYTEINTEGER(ADDR(ST)) %C
#line 845 "regression-compile-tmp/soaps-77.imp"
if (((S) != (10))) goto L_00ed;
#line 845 "regression-compile-tmp/soaps-77.imp"
if (((SLENGTH) != (0))) goto L_00ed;
#line 845 "regression-compile-tmp/soaps-77.imp"
SLENGTH = *_imp_BYTEINTEGER(_imp_ADDR(&ST));
#line 845 "regression-compile-tmp/soaps-77.imp"
L_00ed:;
                                                                //    846                        %IF S = NL %AND SLENGTH = 0
                                                                //    847                     ST = ST.TOSTRING(S)
#line 847 "regression-compile-tmp/soaps-77.imp"
ST = _imp_join((_imp_string)ST,(_imp_string)_imp_TOSTRING(S));
                                                                //    848                     CURRIN = CURRIN+1
#line 848 "regression-compile-tmp/soaps-77.imp"
CURRIN = (((int)(CURRIN)) + (1));
                                                                //    849                     S = BYTEINTEGER(CURRIN)
#line 849 "regression-compile-tmp/soaps-77.imp"
S = *_imp_BYTEINTEGER(CURRIN);
                                                                //    850                  %REPEAT %UNTIL S = '''' %OR CURRIN > LIM
#line 850 "regression-compile-tmp/soaps-77.imp"
if (((S) == (39))) goto L_00eb;
#line 850 "regression-compile-tmp/soaps-77.imp"
if (((CURRIN) > (LIM))) goto L_00eb;
#line 850 "regression-compile-tmp/soaps-77.imp"
goto L_00ea;
#line 850 "regression-compile-tmp/soaps-77.imp"
L_00eb:;
                                                                //    851  
                                                                //    852                  ST = ST."'"
#line 852 "regression-compile-tmp/soaps-77.imp"
ST = _imp_join((_imp_string)ST,(_imp_string)_imp_str_literal("'"));
                                                                //    853                  CS = CURRIN
#line 853 "regression-compile-tmp/soaps-77.imp"
CS = CURRIN;
                                                                //    854                  SYM
#line 854 "regression-compile-tmp/soaps-77.imp"
SYM();
                                                                //    855               %REPEAT
#line 855 "regression-compile-tmp/soaps-77.imp"
goto L_00e7;
#line 855 "regression-compile-tmp/soaps-77.imp"
L_00e8:;
                                                                //    856  
                                                                //    857               SLENGTH = BYTEINTEGER(ADDR(ST)) %IF SLENGTH = 0
#line 857 "regression-compile-tmp/soaps-77.imp"
if (((SLENGTH) != (0))) goto L_00ee;
#line 857 "regression-compile-tmp/soaps-77.imp"
SLENGTH = *_imp_BYTEINTEGER(_imp_ADDR(&ST));
#line 857 "regression-compile-tmp/soaps-77.imp"
L_00ee:;
                                                                //    858               CURRIN = CS %AND %RESULT = PUT %IF ST # ""
#line 858 "regression-compile-tmp/soaps-77.imp"
if ((_imp_strcmp(ST, _imp_str_literal("")) == 0)) goto L_00ef;
#line 858 "regression-compile-tmp/soaps-77.imp"
CURRIN = CS;
#line 858 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return PUT();
#line 858 "regression-compile-tmp/soaps-77.imp"
L_00ef:;
                                                                //    859               %RESULT = 0
#line 859 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
                                                                //    860  %END
#line 860 "regression-compile-tmp/soaps-77.imp"
} // End of block CONSTANT at level 2
                                                                //    861  
                                                                //    862  %INTEGERFN NAME
#line 862 "regression-compile-tmp/soaps-77.imp"
int NAME( void )
#line 862 "regression-compile-tmp/soaps-77.imp"
{
                                                                //    863  %INTEGER Z
#line 863 "regression-compile-tmp/soaps-77.imp"
int Z;
                                                                //    864               SYM
#line 864 "regression-compile-tmp/soaps-77.imp"
SYM();
                                                                //    865               %RESULT = 0 %UNLESS 'A' <= S <= 'Z'
#line 865 "regression-compile-tmp/soaps-77.imp"
if ((((65) > (S))) || (((S) <= (90)))) goto L_00f0;
#line 865 "regression-compile-tmp/soaps-77.imp"
L_00e9:;
#line 865 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 865 "regression-compile-tmp/soaps-77.imp"
L_00f0:;
                                                                //    866               ST = ""
#line 866 "regression-compile-tmp/soaps-77.imp"
ST = _imp_str_literal("");
                                                                //    867  
                                                                //    868               %CYCLE
#line 868 "regression-compile-tmp/soaps-77.imp"
L_00f1:;
                                                                //    869                  SPACES = 1
#line 869 "regression-compile-tmp/soaps-77.imp"
SPACES = 1;
                                                                //    870                  ST = ST.TOSTRING(S)
#line 870 "regression-compile-tmp/soaps-77.imp"
ST = _imp_join((_imp_string)ST,(_imp_string)_imp_TOSTRING(S));
                                                                //    871                  Z = CURRIN
#line 871 "regression-compile-tmp/soaps-77.imp"
Z = CURRIN;
                                                                //    872                  SYM
#line 872 "regression-compile-tmp/soaps-77.imp"
SYM();
                                                                //    873                  SLENGTH = BYTEINTEGER(ADDR(ST)) %AND CURRIN = Z %C
#line 873 "regression-compile-tmp/soaps-77.imp"
if ((((65) > (S))) || (((S) <= (90)))) goto L_00f4;
#line 873 "regression-compile-tmp/soaps-77.imp"
L_00ec:;
#line 873 "regression-compile-tmp/soaps-77.imp"
if ((((48) > (S))) || (((S) <= (57)))) goto L_00f4;
#line 873 "regression-compile-tmp/soaps-77.imp"
L_00f5:;
#line 873 "regression-compile-tmp/soaps-77.imp"
SLENGTH = *_imp_BYTEINTEGER(_imp_ADDR(&ST));
#line 873 "regression-compile-tmp/soaps-77.imp"
CURRIN = Z;
#line 873 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return PUT();
#line 873 "regression-compile-tmp/soaps-77.imp"
L_00f4:;
                                                                //    874                     %AND %RESULT = PUT %C
                                                                //    875                     %UNLESS 'A' <= S <= 'Z' %OR '0' <= S <= '9'
                                                                //    876                  ST = ST." " %IF SPACES = 0
#line 876 "regression-compile-tmp/soaps-77.imp"
if (((SPACES) != (0))) goto L_00f6;
#line 876 "regression-compile-tmp/soaps-77.imp"
ST = _imp_join((_imp_string)ST,(_imp_string)_imp_str_literal(" "));
#line 876 "regression-compile-tmp/soaps-77.imp"
L_00f6:;
                                                                //    877               %REPEAT
#line 877 "regression-compile-tmp/soaps-77.imp"
goto L_00f1;
                                                                //    878  
                                                                //    879  %END
#line 879 "regression-compile-tmp/soaps-77.imp"
} // End of block NAME at level 2
                                                                //    880  %SWITCH BIP(0 : 15)
#line 880 "regression-compile-tmp/soaps-77.imp"
static int sw1_BIP_idx;
static const void * /*SWITCH*/ sw1_BIP[16] = { &&sw1_BIP_0, &&sw1_BIP_1, &&sw1_BIP_2, &&sw1_BIP_3, &&sw1_BIP_4, &&sw1_BIP_5, &&sw1_BIP_6, &&sw1_BIP_7, &&sw1_BIP_8, &&sw1_BIP_9, &&sw1_BIP_10, &&sw1_BIP_11, &&sw1_BIP_12, &&sw1_BIP_13, &&sw1_BIP_14, &&sw1_BIP_15,  };
                                                                //    881                                          !
                                                                //    882            TRP = RP
#line 882 "regression-compile-tmp/soaps-77.imp"
TRP = RP;
                                                                //    883            TPT = CURRIN
#line 883 "regression-compile-tmp/soaps-77.imp"
TPT = CURRIN;
                                                                //    884            MODES = MODE
#line 884 "regression-compile-tmp/soaps-77.imp"
MODES = MODE;
                                                                //    885  FAILURE:
#line 885 "regression-compile-tmp/soaps-77.imp"
U_1001:;
                                                                //    886            RP = TRP
#line 886 "regression-compile-tmp/soaps-77.imp"
RP = TRP;
                                                                //    887            CURRIN = TPT
#line 887 "regression-compile-tmp/soaps-77.imp"
CURRIN = TPT;
                                                                //    888            MODE = MODES
#line 888 "regression-compile-tmp/soaps-77.imp"
MODE = MODES;
                                                                //    889            ENTRY = ENTRY+1
#line 889 "regression-compile-tmp/soaps-77.imp"
ENTRY = (((int)(ENTRY)) + (1));
                                                                //    890            SP = MAIN(ENTRY)
#line 890 "regression-compile-tmp/soaps-77.imp"
SP = (MAIN-1)[ENTRY];
                                                                //    891            %RESULT = 1 %IF SP = 0
#line 891 "regression-compile-tmp/soaps-77.imp"
if (((SP) != (0))) goto L_00f2;
#line 891 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return 1;
#line 891 "regression-compile-tmp/soaps-77.imp"
L_00f2:;
                                                                //    892  SUCCESS:
#line 892 "regression-compile-tmp/soaps-77.imp"
U_1002:;
                                                                //    893            SP = SP+1
#line 893 "regression-compile-tmp/soaps-77.imp"
SP = (((int)(SP)) + (1));
                                                                //    894            SS = SUB(SP)
#line 894 "regression-compile-tmp/soaps-77.imp"
SS = (SUB-2)[SP];
                                                                //    895            %RESULT = 0 %IF S S = 0
#line 895 "regression-compile-tmp/soaps-77.imp"
if (((SS) != (0))) goto L_00f7;
#line 895 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 895 "regression-compile-tmp/soaps-77.imp"
L_00f7:;
                                                                //    896            -> BIP(SS>>12&15)
#line 896 "regression-compile-tmp/soaps-77.imp"
sw1_BIP_idx = (((int)((((unsigned int)(SS)) >> (12)))) & (15)); if ((0 <= sw1_BIP_idx) && (sw1_BIP_idx <= 15)) goto *sw1_BIP[sw1_BIP_idx]; else {
   /*_imp_signal(8, 2, sw1_BIP_idx);*/
   fprintf(stderr, "%%SWITCH index BIP(%d) not in range 0:15 at %s:%d\n",
           sw1_BIP_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //    897  BIP(1):                                 !    SUB-PHRASE
#line 897 "regression-compile-tmp/soaps-77.imp"
sw1_BIP_1:;
                                                                //    898            -> SUCCESS %IF PARSE(SS&X'FFF') = 0
#line 898 "regression-compile-tmp/soaps-77.imp"
if (((PARSE(((SS) & (4095)))) != (0))) goto L_00f8;
#line 898 "regression-compile-tmp/soaps-77.imp"
goto U_1002;
#line 898 "regression-compile-tmp/soaps-77.imp"
L_00f8:;
                                                                //    899            -> FAILURE
#line 899 "regression-compile-tmp/soaps-77.imp"
goto U_1001;
                                                                //    900  BIP(0):                                 !    LITERAL
#line 900 "regression-compile-tmp/soaps-77.imp"
sw1_BIP_0:;
                                                                //    901            SS = SS&X'FFF'
#line 901 "regression-compile-tmp/soaps-77.imp"
SS = ((SS) & (4095));
                                                                //    902            L = LITERAL(SS);              ! LENGTH
#line 902 "regression-compile-tmp/soaps-77.imp"
L = (LITERAL-1)[SS];
                                                                //    903  
                                                                //    904            %CYCLE SS = SS+1,1,SS+L
#line 904 "regression-compile-tmp/soaps-77.imp"
{static int _initial, _increment, _final, _control;
_initial = (((int)(SS)) + (1)); _increment = 1; _final = (((int)(SS)) + (L)); SS = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle SS = (((int)(SS)) + (1)), 1, (((int)(SS)) + (L))");
SS -= _increment; _control -= _increment;
L_00f9:;
if (SS == _final) goto L_00fa;
SS += _increment; _control += _increment;
if (SS != _control) _imp_signal(4,2,0,"Corrupt control variable SS"); /* FOR loop control variable corrupted */
}
                                                                //    905               SYM
#line 905 "regression-compile-tmp/soaps-77.imp"
SYM();
                                                                //    906               -> FAILURE %UNLESS S = LITERAL(SS)
#line 906 "regression-compile-tmp/soaps-77.imp"
if (((S) == ((LITERAL-1)[SS]))) goto L_00fc;
#line 906 "regression-compile-tmp/soaps-77.imp"
goto U_1001;
#line 906 "regression-compile-tmp/soaps-77.imp"
L_00fc:;
                                                                //    907            %REPEAT
#line 907 "regression-compile-tmp/soaps-77.imp"
goto L_00f9;
#line 907 "regression-compile-tmp/soaps-77.imp"
L_00fa:;
                                                                //    908  
                                                                //    909            -> SUCCESS
#line 909 "regression-compile-tmp/soaps-77.imp"
goto U_1002;
                                                                //    910  BIP(15):                                !    (NAME)
#line 910 "regression-compile-tmp/soaps-77.imp"
sw1_BIP_15:;
                                                                //    911            -> SUCCESS %IF NAME # 0
#line 911 "regression-compile-tmp/soaps-77.imp"
if (((NAME()) == (0))) goto L_00fd;
#line 911 "regression-compile-tmp/soaps-77.imp"
goto U_1002;
#line 911 "regression-compile-tmp/soaps-77.imp"
L_00fd:;
                                                                //    912            -> FAILURE
#line 912 "regression-compile-tmp/soaps-77.imp"
goto U_1001;
                                                                //    913  BIP(3):                                 !    CONSTANT
#line 913 "regression-compile-tmp/soaps-77.imp"
sw1_BIP_3:;
                                                                //    914            -> SUCCESS %IF CONSTANT # 0
#line 914 "regression-compile-tmp/soaps-77.imp"
if (((CONSTANT()) == (0))) goto L_00fe;
#line 914 "regression-compile-tmp/soaps-77.imp"
goto U_1002;
#line 914 "regression-compile-tmp/soaps-77.imp"
L_00fe:;
                                                                //    915            -> FAILURE
#line 915 "regression-compile-tmp/soaps-77.imp"
goto U_1001;
                                                                //    916  BIP(4):                                 ! (*LOOP)
#line 916 "regression-compile-tmp/soaps-77.imp"
sw1_BIP_4:;
                                                                //    917            LOOP FLAG = 1 %IF ISOLATE LOOPS # 0
#line 917 "regression-compile-tmp/soaps-77.imp"
if (((ISOLATELOOPS) == (0))) goto L_00ff;
#line 917 "regression-compile-tmp/soaps-77.imp"
LOOPFLAG = 1;
#line 917 "regression-compile-tmp/soaps-77.imp"
L_00ff:;
                                                                //    918            -> SUCCESS
#line 918 "regression-compile-tmp/soaps-77.imp"
goto U_1002;
                                                                //    919  BIP(5):                                 !    (UP)
#line 919 "regression-compile-tmp/soaps-77.imp"
sw1_BIP_5:;
                                                                //    920            STATUS = STATUS!1;  -> SUCCESS
#line 920 "regression-compile-tmp/soaps-77.imp"
STATUS = ((STATUS) | (1));
#line 920 "regression-compile-tmp/soaps-77.imp"
goto U_1002;
                                                                //    921  BIP(6):                                 !    (DOWN)
#line 921 "regression-compile-tmp/soaps-77.imp"
sw1_BIP_6:;
                                                                //    922            STATUS = STATUS!2;  -> SUCCESS
#line 922 "regression-compile-tmp/soaps-77.imp"
STATUS = ((STATUS) | (2));
#line 922 "regression-compile-tmp/soaps-77.imp"
goto U_1002;
                                                                //    923  BIP(7):                                 !    (END)
#line 923 "regression-compile-tmp/soaps-77.imp"
sw1_BIP_7:;
                                                                //    924            STATUS = STATUS!4;  -> SUCCESS
#line 924 "regression-compile-tmp/soaps-77.imp"
STATUS = ((STATUS) | (4));
#line 924 "regression-compile-tmp/soaps-77.imp"
goto U_1002;
                                                                //    925  BIP(8):                                 !    (OWN)
#line 925 "regression-compile-tmp/soaps-77.imp"
sw1_BIP_8:;
                                                                //    926            -> FAILURE %IF LEAVE OWNS # 0 %C
#line 926 "regression-compile-tmp/soaps-77.imp"
if (((LEAVEOWNS) == (0))) goto L_0100;
#line 926 "regression-compile-tmp/soaps-77.imp"
if (((*_imp_BYTEINTEGER(CURRIN)) == (42))) goto L_0100;
#line 926 "regression-compile-tmp/soaps-77.imp"
goto U_1001;
#line 926 "regression-compile-tmp/soaps-77.imp"
L_0100:;
                                                                //    927               %AND BYTEINTEGER(CURRIN) # '*'
                                                                //    928  ! MACHINE CODE
                                                                //    929            OWN FLAG = 0
#line 929 "regression-compile-tmp/soaps-77.imp"
OWNFLAG = 0;
                                                                //    930            RP = RP+1;  REC(RP) = 0
#line 930 "regression-compile-tmp/soaps-77.imp"
RP = (((int)(RP)) + (1));
#line 930 "regression-compile-tmp/soaps-77.imp"
(REC-1)[RP] = 0;
                                                                //    931                                          !    TO FIDDLE THE END OF STAT.
                                                                //    932            THIS SEP = NL
#line 932 "regression-compile-tmp/soaps-77.imp"
THISSEP = 10;
                                                                //    933            -> SUCCESS
#line 933 "regression-compile-tmp/soaps-77.imp"
goto U_1002;
                                                                //    934  BIP(10):                                !    (SPECIAL COMMENT)
#line 934 "regression-compile-tmp/soaps-77.imp"
sw1_BIP_10:;
                                                                //    935            INBASE = INBASE+1;            ! TO SET DISP PROPERLY
#line 935 "regression-compile-tmp/soaps-77.imp"
INBASE = (((int)(INBASE)) + (1));
                                                                //    936            STATUS = STATUS!32
#line 936 "regression-compile-tmp/soaps-77.imp"
STATUS = ((STATUS) | (32));
                                                                //    937  BIP(9):                                 !     (COMMENT)
#line 937 "regression-compile-tmp/soaps-77.imp"
sw1_BIP_9:;
                                                                //    938            STATUS = STATUS!16
#line 938 "regression-compile-tmp/soaps-77.imp"
STATUS = ((STATUS) | (16));
                                                                //    939            RP = RP+1;  REC(RP) = CURRIN-INBASE-1
#line 939 "regression-compile-tmp/soaps-77.imp"
RP = (((int)(RP)) + (1));
#line 939 "regression-compile-tmp/soaps-77.imp"
(REC-1)[RP] = (((int)((((int)(CURRIN)) - (INBASE)))) - (1));
                                                                //    940            -> SUCCESS
#line 940 "regression-compile-tmp/soaps-77.imp"
goto U_1002;
                                                                //    941  BIP(11):                                !    (*DEC)
#line 941 "regression-compile-tmp/soaps-77.imp"
sw1_BIP_11:;
                                                                //    942            STATUS = STATUS!64 %IF DECS RELATIVE # 0;  -> SUCCESS
#line 942 "regression-compile-tmp/soaps-77.imp"
if (((DECSRELATIVE) == (0))) goto L_0101;
#line 942 "regression-compile-tmp/soaps-77.imp"
STATUS = ((STATUS) | (64));
#line 942 "regression-compile-tmp/soaps-77.imp"
L_0101:;
#line 942 "regression-compile-tmp/soaps-77.imp"
goto U_1002;
                                                                //    943  BIP(12):                                !     (*BLOCK)
#line 943 "regression-compile-tmp/soaps-77.imp"
sw1_BIP_12:;
                                                                //    944            STATUS = STATUS!64 %IF EXTRA MARGIN # 0
#line 944 "regression-compile-tmp/soaps-77.imp"
if (((EXTRAMARGIN) == (0))) goto L_0102;
#line 944 "regression-compile-tmp/soaps-77.imp"
STATUS = ((STATUS) | (64));
#line 944 "regression-compile-tmp/soaps-77.imp"
L_0102:;
                                                                //    945            STATUS = STATUS!128;  -> SUCCESS
#line 945 "regression-compile-tmp/soaps-77.imp"
STATUS = ((STATUS) | (128));
#line 945 "regression-compile-tmp/soaps-77.imp"
goto U_1002;
                                                                //    946  BIP(13):                                !     (*NULL)
#line 946 "regression-compile-tmp/soaps-77.imp"
sw1_BIP_13:;
                                                                //    947            STATUS = STATUS!8;  -> SUCCESS
#line 947 "regression-compile-tmp/soaps-77.imp"
STATUS = ((STATUS) | (8));
#line 947 "regression-compile-tmp/soaps-77.imp"
goto U_1002;
                                                                //    948  BIP(14):                                !    (S)
#line 948 "regression-compile-tmp/soaps-77.imp"
sw1_BIP_14:;
                                                                //    949            SYM
#line 949 "regression-compile-tmp/soaps-77.imp"
SYM();
                                                                //    950            -> FAILURE %UNLESS S = NL %OR S = ';'
#line 950 "regression-compile-tmp/soaps-77.imp"
if (((S) == (10))) goto L_0103;
#line 950 "regression-compile-tmp/soaps-77.imp"
if (((S) == (59))) goto L_0103;
#line 950 "regression-compile-tmp/soaps-77.imp"
goto U_1001;
#line 950 "regression-compile-tmp/soaps-77.imp"
L_0103:;
                                                                //    951            THIS SEP = S
#line 951 "regression-compile-tmp/soaps-77.imp"
THISSEP = S;
                                                                //    952            THISSEP = NL %IF SPLIT STATS # 0
#line 952 "regression-compile-tmp/soaps-77.imp"
if (((SPLITSTATS) == (0))) goto L_0104;
#line 952 "regression-compile-tmp/soaps-77.imp"
THISSEP = 10;
#line 952 "regression-compile-tmp/soaps-77.imp"
L_0104:;
                                                                //    953            RP = RP+1
#line 953 "regression-compile-tmp/soaps-77.imp"
RP = (((int)(RP)) + (1));
                                                                //    954            REC(RP) = 0
#line 954 "regression-compile-tmp/soaps-77.imp"
(REC-1)[RP] = 0;
                                                                //    955            -> SUCCESS
#line 955 "regression-compile-tmp/soaps-77.imp"
goto U_1002;
                                                                //    956  BIP(2):                                 !    <>
#line 956 "regression-compile-tmp/soaps-77.imp"
sw1_BIP_2:;
                                                                //    957            RP = RP+1
#line 957 "regression-compile-tmp/soaps-77.imp"
RP = (((int)(RP)) + (1));
                                                                //    958            REC(RP) = SS&X'FFF'
#line 958 "regression-compile-tmp/soaps-77.imp"
(REC-1)[RP] = ((SS) & (4095));
                                                                //    959            -> SUCCESS
#line 959 "regression-compile-tmp/soaps-77.imp"
goto U_1002;
                                                                //    960  %END
#line 960 "regression-compile-tmp/soaps-77.imp"
} // End of block PARSE at level 1
                                                                //    961  
                                                                //    962  %ROUTINE CREATE(%STRING (8) FILE, %INTEGERNAME SIZE, FLAG)
#line 962 "regression-compile-tmp/soaps-77.imp"
void CREATE( _imp_string /*%string(8)*/ FILE, int /*name*/*SIZE, int /*name*/*FLAG )
#line 962 "regression-compile-tmp/soaps-77.imp"
{
                                                                //    963            !FDP(CREATEEP,FILE,SIZE,0,FLAG)
                                                                //    964            SIZE = 3
#line 964 "regression-compile-tmp/soaps-77.imp"
*SIZE = 3;
                                                                //    965            %IF FLAG = 0 %OR FLAG = 3 %THEN CONNEKT(FILE,SIZE,FLAG)
#line 965 "regression-compile-tmp/soaps-77.imp"
if (((*FLAG) == (0))) goto L_00fb;
#line 965 "regression-compile-tmp/soaps-77.imp"
if (((*FLAG) != (3))) goto L_0105;
#line 965 "regression-compile-tmp/soaps-77.imp"
L_00fb:;
#line 965 "regression-compile-tmp/soaps-77.imp"
CONNEKT(FILE, SIZE, FLAG);
#line 965 "regression-compile-tmp/soaps-77.imp"
L_0105:;
                                                                //    966  %END
#line 966 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CREATE at level 1
                                                                //    967  
                                                                //    968  %ROUTINE COMPRESS(%STRING (8) FILE)
#line 968 "regression-compile-tmp/soaps-77.imp"
void COMPRESS( _imp_string /*%string(8)*/ FILE )
#line 968 "regression-compile-tmp/soaps-77.imp"
{
                                                                //    969  %END
#line 969 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block COMPRESS at level 1
                                                                //    970  
                                                                //    971  %ROUTINE SET UP FILES(%STRING(*)%NAME S)
#line 971 "regression-compile-tmp/soaps-77.imp"
void SETUPFILES( _imp_string /*%string(255)*/ /*name*/*S )
#line 971 "regression-compile-tmp/soaps-77.imp"
{
                                                                //    972  !%SHORTROUTINE
                                                                //    973  %INTEGER FLAG, SIZE
#line 973 "regression-compile-tmp/soaps-77.imp"
int FLAG;
#line 973 "regression-compile-tmp/soaps-77.imp"
int SIZE;
                                                                //    974            OK = 0
#line 974 "regression-compile-tmp/soaps-77.imp"
OK = 0;
                                                                //    975            INPUT = ""
#line 975 "regression-compile-tmp/soaps-77.imp"
INPUT = _imp_str_literal("");
                                                                //    976            OUTPUT = ""
#line 976 "regression-compile-tmp/soaps-77.imp"
OUTPUT = _imp_str_literal("");
                                                                //    977            OPTION FILE = ""
#line 977 "regression-compile-tmp/soaps-77.imp"
OPTIONFILE = _imp_str_literal("");
                                                                //    978            INPUT = S %UNLESS S -> INPUT.("/").OUTPUT
#line 978 "regression-compile-tmp/soaps-77.imp"
if (_imp_resolve(*S, &INPUT, _imp_str_literal("/"), &OUTPUT)) goto L_0106;
#line 978 "regression-compile-tmp/soaps-77.imp"
INPUT = *S;
#line 978 "regression-compile-tmp/soaps-77.imp"
L_0106:;
                                                                //    979            OPTION FILE = "" %UNLESS INPUT -> INPUT.(",").OPTION FILE
#line 979 "regression-compile-tmp/soaps-77.imp"
if (_imp_resolve(INPUT, &INPUT, _imp_str_literal(","), &OPTIONFILE)) goto L_0107;
#line 979 "regression-compile-tmp/soaps-77.imp"
OPTIONFILE = _imp_str_literal("");
#line 979 "regression-compile-tmp/soaps-77.imp"
L_0107:;
                                                                //    980            OUTPUT = INPUT %IF OUTPUT = ""
#line 980 "regression-compile-tmp/soaps-77.imp"
if ((_imp_strcmp(OUTPUT, _imp_str_literal("")) != 0)) goto L_0108;
#line 980 "regression-compile-tmp/soaps-77.imp"
OUTPUT = INPUT;
#line 980 "regression-compile-tmp/soaps-77.imp"
L_0108:;
                                                                //    981            SIZE = 0
#line 981 "regression-compile-tmp/soaps-77.imp"
SIZE = 0;
                                                                //    982            !FDP(7, INPUT, 0, ADDR(SIZE), FLAG)
                                                                //    983            CURRIN = SIZE
#line 983 "regression-compile-tmp/soaps-77.imp"
CURRIN = SIZE;
                                                                //    984            %IF FLAG # 0 %THEN %START
#line 984 "regression-compile-tmp/soaps-77.imp"
if (((FLAG) == (0))) goto L_0109;
                                                                //    985               PRINTSTRING("CANNOT CONNECT ".INPUT.": ");  WRITE(FLAG,1)
#line 985 "regression-compile-tmp/soaps-77.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("CANNOT CONNECT "),(_imp_string)INPUT),(_imp_string)_imp_str_literal(": ")));
#line 985 "regression-compile-tmp/soaps-77.imp"
_imp_WRITE(FLAG, 1);
                                                                //    986               NEWLINE
#line 986 "regression-compile-tmp/soaps-77.imp"
_imp_NEWLINE();
                                                                //    987               %RETURN
#line 987 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    988            %FINISH
#line 988 "regression-compile-tmp/soaps-77.imp"
L_0109:;
                                                                //    989            %IF INTEGER(CURRIN+12) # 0 %THEN %START
#line 989 "regression-compile-tmp/soaps-77.imp"
if (((*_imp_INTEGER((((int)(CURRIN)) + (12)))) == (0))) goto L_010a;
                                                                //    990               PRINTSTRING(INPUT." IS NOT A SOURCE FILE\n")
#line 990 "regression-compile-tmp/soaps-77.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)INPUT,(_imp_string)_imp_str_literal(" IS NOT A SOURCE FILE\\n")));
                                                                //    991               %RETURN
#line 991 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    992            %FINISH
#line 992 "regression-compile-tmp/soaps-77.imp"
L_010a:;
                                                                //    993            SIZE = INTEGER(CURRIN)
#line 993 "regression-compile-tmp/soaps-77.imp"
SIZE = *_imp_INTEGER(CURRIN);
                                                                //    994            %IF SIZE < 10 %THEN %START
#line 994 "regression-compile-tmp/soaps-77.imp"
if (((SIZE) >= (10))) goto L_010b;
                                                                //    995               PRINTSTRING(INPUT." IS A NULL FILE\n")
#line 995 "regression-compile-tmp/soaps-77.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)INPUT,(_imp_string)_imp_str_literal(" IS A NULL FILE\\n")));
                                                                //    996               %RETURN
#line 996 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    997            %FINISH
#line 997 "regression-compile-tmp/soaps-77.imp"
L_010b:;
                                                                //    998            ENDOFFILE = CURRIN+SIZE
#line 998 "regression-compile-tmp/soaps-77.imp"
ENDOFFILE = (((int)(CURRIN)) + (SIZE));
                                                                //    999            ENDOFFILE = ENDOFFILE-1 %WHILE BYTEINTEGER(ENDOFFILE) # NL
#line 999 "regression-compile-tmp/soaps-77.imp"
L_010c:;
#line 999 "regression-compile-tmp/soaps-77.imp"
if (((*_imp_BYTEINTEGER(ENDOFFILE)) == (10))) goto L_010d;
#line 999 "regression-compile-tmp/soaps-77.imp"
ENDOFFILE = (((int)(ENDOFFILE)) - (1));
#line 999 "regression-compile-tmp/soaps-77.imp"
goto L_010c;
#line 999 "regression-compile-tmp/soaps-77.imp"
L_010d:;
                                                                //   1000            CURROUT = ((SIZE*6)+4095)>>12;!    I HOPE IT"S BIG ENOUGH
#line 1000 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((((((int)((((int)(SIZE)) * (6)))) + (4095)))) >> (12)));
                                                                //   1001            SEGS = (CURROUT+15)>>4
#line 1001 "regression-compile-tmp/soaps-77.imp"
SEGS = (((((((int)(CURROUT)) + (15)))) >> (4)));
                                                                //   1002            CREATE("SP#WORK",CURROUT,FLAG)
#line 1002 "regression-compile-tmp/soaps-77.imp"
CREATE(_imp_str_literal("SP#WORK"), &CURROUT, &FLAG);
                                                                //   1003            %IF FLAG # 0 %THEN %START
#line 1003 "regression-compile-tmp/soaps-77.imp"
if (((FLAG) == (0))) goto L_010f;
                                                                //   1004               PRINT STRING( "CANNOT CREATE WORK FILE");  WRITE(FLAG,1)
#line 1004 "regression-compile-tmp/soaps-77.imp"
_imp_PRINTSTRING(_imp_str_literal("CANNOT CREATE WORK FILE"));
#line 1004 "regression-compile-tmp/soaps-77.imp"
_imp_WRITE(FLAG, 1);
                                                                //   1005               NEWLINE
#line 1005 "regression-compile-tmp/soaps-77.imp"
_imp_NEWLINE();
                                                                //   1006               %RETURN
#line 1006 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1007            %FINISH
#line 1007 "regression-compile-tmp/soaps-77.imp"
L_010f:;
                                                                //   1008            HEADER = CURROUT
#line 1008 "regression-compile-tmp/soaps-77.imp"
HEADER = CURROUT;
                                                                //   1009            CURROUT = CURROUT+16
#line 1009 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(CURROUT)) + (16));
                                                                //   1010            BYTEINTEGER(CURROUT) = NL
#line 1010 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 10;
                                                                //   1011            CURRIN = CURRIN+15
#line 1011 "regression-compile-tmp/soaps-77.imp"
CURRIN = (((int)(CURRIN)) + (15));
                                                                //   1012            INTEGER(HEADER) = 1<<16;      !    JUST FOR TESTING
#line 1012 "regression-compile-tmp/soaps-77.imp"
*_imp_INTEGER(HEADER) = ((1) << (16));
                                                                //   1013            INTEGER(HEADER+4) = 16
#line 1013 "regression-compile-tmp/soaps-77.imp"
*_imp_INTEGER((((int)(HEADER)) + (4))) = 16;
                                                                //   1014            INTEGER(HEADER+8) = SEGS
#line 1014 "regression-compile-tmp/soaps-77.imp"
*_imp_INTEGER((((int)(HEADER)) + (8))) = SEGS;
                                                                //   1015            INTEGER(HEADER+12) = 0
#line 1015 "regression-compile-tmp/soaps-77.imp"
*_imp_INTEGER((((int)(HEADER)) + (12))) = 0;
                                                                //   1016            OK = 1
#line 1016 "regression-compile-tmp/soaps-77.imp"
OK = 1;
                                                                //   1017  %END
#line 1017 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SETUPFILES at level 1
                                                                //   1018  
                                                                //   1019  %ROUTINE CLOSE FILES
#line 1019 "regression-compile-tmp/soaps-77.imp"
void CLOSEFILES( void )
#line 1019 "regression-compile-tmp/soaps-77.imp"
{
                                                                //   1020     %ROUTINE NEWGENS
#line 1020 "regression-compile-tmp/soaps-77.imp"
void NEWGENS( void )
#line 1020 "regression-compile-tmp/soaps-77.imp"
{
                                                                //   1021     %END
#line 1021 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block NEWGENS at level 2
                                                                //   1022  %END
#line 1022 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CLOSEFILES at level 1
                                                                //   1023  
                                                                //   1024  %ROUTINE SET OPTIONS
#line 1024 "regression-compile-tmp/soaps-77.imp"
void SETOPTIONS( void )
#line 1024 "regression-compile-tmp/soaps-77.imp"
{
                                                                //   1025  !%SHORTROUTINE
                                                                //   1026  %STRING (255) S, T
#line 1026 "regression-compile-tmp/soaps-77.imp"
_imp_string /*%string(255)*/ S;
#line 1026 "regression-compile-tmp/soaps-77.imp"
_imp_string /*%string(255)*/ T;
                                                                //   1027  %INTEGER J
#line 1027 "regression-compile-tmp/soaps-77.imp"
int J;
                                                                //   1028  %BYTEINTEGER OPT FLAG
#line 1028 "regression-compile-tmp/soaps-77.imp"
unsigned char OPTFLAG;
                                                                //   1029  !!%BYTEINTEGERARRAYFORMAT FM(1 : 31)
                                                                //   1030  %BYTEINTEGERARRAYNAME WORD
#line 1030 "regression-compile-tmp/soaps-77.imp"
unsigned char /*arrayname*/*WORD;
                                                                //   1031  
                                                                //   1032  %ROUTINE LINE(%STRING(*)%NAME S)
#line 1032 "regression-compile-tmp/soaps-77.imp"
void LINE( _imp_string /*%string(255)*/ /*name*/*S )
#line 1032 "regression-compile-tmp/soaps-77.imp"
{
                                                                //   1033  %INTEGER J
#line 1033 "regression-compile-tmp/soaps-77.imp"
int J;
                                                                //   1034               %RETURN %IF OPT FLAG = 0
#line 1034 "regression-compile-tmp/soaps-77.imp"
if (((OPTFLAG) != (0))) goto L_0110;
#line 1034 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1034 "regression-compile-tmp/soaps-77.imp"
L_0110:;
                                                                //   1035               S = ""
#line 1035 "regression-compile-tmp/soaps-77.imp"
*S = _imp_str_literal("");
                                                                //   1036  
                                                                //   1037               %CYCLE
#line 1037 "regression-compile-tmp/soaps-77.imp"
L_0111:;
                                                                //   1038  
                                                                //   1039                  %CYCLE
#line 1039 "regression-compile-tmp/soaps-77.imp"
L_0114:;
                                                                //   1040                     READSYMBOL(J) %UNTIL J # ' '
#line 1040 "regression-compile-tmp/soaps-77.imp"
L_0117:;
#line 1040 "regression-compile-tmp/soaps-77.imp"
_imp_READSYMBOL(&J);
#line 1040 "regression-compile-tmp/soaps-77.imp"
if (((J) != (32))) goto L_0118;
#line 1040 "regression-compile-tmp/soaps-77.imp"
goto L_0117;
#line 1040 "regression-compile-tmp/soaps-77.imp"
L_0118:;
                                                                //   1041                     %EXIT %IF J = NL
#line 1041 "regression-compile-tmp/soaps-77.imp"
if (((J) != (10))) goto L_011a;
#line 1041 "regression-compile-tmp/soaps-77.imp"
goto L_0115;
#line 1041 "regression-compile-tmp/soaps-77.imp"
L_011a:;
                                                                //   1042                     S = S.TOSTRING(J)
#line 1042 "regression-compile-tmp/soaps-77.imp"
*S = _imp_join((_imp_string)*S,(_imp_string)_imp_TOSTRING(J));
                                                                //   1043                  %REPEAT
#line 1043 "regression-compile-tmp/soaps-77.imp"
goto L_0114;
#line 1043 "regression-compile-tmp/soaps-77.imp"
L_0115:;
                                                                //   1044  
                                                                //   1045               %REPEAT %UNTIL S # ""
#line 1045 "regression-compile-tmp/soaps-77.imp"
if ((_imp_strcmp(*S, _imp_str_literal("")) != 0)) goto L_0112;
#line 1045 "regression-compile-tmp/soaps-77.imp"
goto L_0111;
#line 1045 "regression-compile-tmp/soaps-77.imp"
L_0112:;
                                                                //   1046  
                                                                //   1047  %END
#line 1047 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block LINE at level 2
                                                                //   1048  
                                                                //   1049  %ROUTINE SET(%STRING(*)%NAME S)
#line 1049 "regression-compile-tmp/soaps-77.imp"
void SET( _imp_string /*%string(255)*/ /*name*/*S )
#line 1049 "regression-compile-tmp/soaps-77.imp"
{
                                                                //   1050  %STRING (255) N, OPT
#line 1050 "regression-compile-tmp/soaps-77.imp"
_imp_string /*%string(255)*/ N;
#line 1050 "regression-compile-tmp/soaps-77.imp"
_imp_string /*%string(255)*/ OPT;
                                                                //   1051  %INTEGER V, K, C, NUM
#line 1051 "regression-compile-tmp/soaps-77.imp"
int V;
#line 1051 "regression-compile-tmp/soaps-77.imp"
int K;
#line 1051 "regression-compile-tmp/soaps-77.imp"
int C;
#line 1051 "regression-compile-tmp/soaps-77.imp"
int NUM;
                                                                //   1052  %BYTEINTEGER NOT
#line 1052 "regression-compile-tmp/soaps-77.imp"
unsigned char NOT;
                                                                //   1053  %CONSTSTRING (2) %ARRAY PARAM(1 : 31) =          %C
#line 1053 "regression-compile-tmp/soaps-77.imp"
const _imp_string /*%string(2)*/ PARAM[31] = { _imp_str_literal("IB"), _imp_str_literal("LB"), _imp_str_literal("SB"), _imp_str_literal("TB"), _imp_str_literal("SK"), _imp_str_literal("PN"), _imp_str_literal("SS"), _imp_str_literal("CN"), _imp_str_literal("BC"), _imp_str_literal("LS"), _imp_str_literal("JA"), _imp_str_literal("LR"), _imp_str_literal("SC"), _imp_str_literal("DR"), _imp_str_literal("SL"), _imp_str_literal("SE"), _imp_str_literal("IL"), _imp_str_literal("EM"), _imp_str_literal("LO"), _imp_str_literal("CR"), _imp_str_literal("EC"), _imp_str_literal("MI"), _imp_str_literal("LL"), _imp_str_literal("CT"), _imp_str_literal("ML"), _imp_str_literal("CE"), _imp_str_literal("XN"), _imp_str_literal("IM"), _imp_str_literal("SM"), _imp_str_literal("CL"), _imp_str_literal("LC"),  };
                                                                //   1054  "IB", "LB", "SB", "TB", "SK", "PN", "SS", "CN", "BC",
                                                                //   1055  "LS", "JA", "LR", "SC",
                                                                //   1056  "DR", "SL", "SE", "IL", "EM",
                                                                //   1057  "LO", "CR", "EC",
                                                                //   1058  "MI", "LL", "CT", "ML",
                                                                //   1059  "CE",  "XN",  "IM", "SM",
                                                                //   1060  "CL", "LC"
                                                                //   1061  %OWNINTEGER PARAMS = 31, BOOLS = 21
#line 1061 "regression-compile-tmp/soaps-77.imp"
static int PARAMS = 31;
#line 1061 "regression-compile-tmp/soaps-77.imp"
static int BOOLS = 21;
                                                                //   1062               OPT = S
#line 1062 "regression-compile-tmp/soaps-77.imp"
OPT = *S;
                                                                //   1063               NOT = 1;  NUM = 0
#line 1063 "regression-compile-tmp/soaps-77.imp"
NOT = 1;
#line 1063 "regression-compile-tmp/soaps-77.imp"
NUM = 0;
                                                                //   1064               %IF S -> S.("=").N %THEN %START
#line 1064 "regression-compile-tmp/soaps-77.imp"
if (!(_imp_resolve(*S, S, _imp_str_literal("="), &N))) goto L_011b;
                                                                //   1065                  NUM = -1;  V = 0;  J = ADDR(N)
#line 1065 "regression-compile-tmp/soaps-77.imp"
NUM = (-1);
#line 1065 "regression-compile-tmp/soaps-77.imp"
V = 0;
#line 1065 "regression-compile-tmp/soaps-77.imp"
J = _imp_ADDR(&N);
                                                                //   1066  
                                                                //   1067                  %CYCLE J = J+1,1,J+LENGTH(N)
#line 1067 "regression-compile-tmp/soaps-77.imp"
{static int _initial, _increment, _final, _control;
_initial = (((int)(J)) + (1)); _increment = 1; _final = ((J) + (*(int *)(_imp_LENGTH(&N)))); J = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = (((int)(J)) + (1)), 1, ((J) + (*(int *)(_imp_LENGTH(&N))))");
J -= _increment; _control -= _increment;
L_011c:;
if (J == _final) goto L_011d;
J += _increment; _control += _increment;
if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */
}
                                                                //   1068                     C = BYTEINTEGER(J)-'0'
#line 1068 "regression-compile-tmp/soaps-77.imp"
C = ((*(int *)(_imp_BYTEINTEGER(J))) - (48));
                                                                //   1069                     %UNLESS 0 <= C <= 9 %THEN %START
#line 1069 "regression-compile-tmp/soaps-77.imp"
if ((((0) > (C))) || (((C) <= (9)))) goto L_011f;
#line 1069 "regression-compile-tmp/soaps-77.imp"
L_0119:;
                                                                //   1070                        PRINTSTRING(N." ?\n")
#line 1070 "regression-compile-tmp/soaps-77.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)N,(_imp_string)_imp_str_literal(" ?\\n")));
                                                                //   1071                        %RETURN
#line 1071 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1072                     %FINISH
#line 1072 "regression-compile-tmp/soaps-77.imp"
L_011f:;
                                                                //   1073                     V = V*10+C
#line 1073 "regression-compile-tmp/soaps-77.imp"
V = (((int)((((int)(V)) * (10)))) + (C));
                                                                //   1074                  %REPEAT
#line 1074 "regression-compile-tmp/soaps-77.imp"
goto L_011c;
#line 1074 "regression-compile-tmp/soaps-77.imp"
L_011d:;
                                                                //   1075  
                                                                //   1076                  %IF V > 255 %THEN %START
#line 1076 "regression-compile-tmp/soaps-77.imp"
if (((V) <= (255))) goto L_0120;
                                                                //   1077                     PRINTSTRING(N." ?\n")
#line 1077 "regression-compile-tmp/soaps-77.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)N,(_imp_string)_imp_str_literal(" ?\\n")));
                                                                //   1078                     %RETURN
#line 1078 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1079                  %FINISH
#line 1079 "regression-compile-tmp/soaps-77.imp"
L_0120:;
                                                                //   1080               %FINISH
#line 1080 "regression-compile-tmp/soaps-77.imp"
L_011b:;
                                                                //   1081               NOT = 0 %IF NUM = 0 %AND S -> ("\").S
#line 1081 "regression-compile-tmp/soaps-77.imp"
if (((NUM) != (0))) goto L_0121;
#line 1081 "regression-compile-tmp/soaps-77.imp"
if (!(_imp_resolve(*S, 0 /*NULL*/, _imp_str_literal("\\"), S))) goto L_0121;
#line 1081 "regression-compile-tmp/soaps-77.imp"
NOT = 0;
#line 1081 "regression-compile-tmp/soaps-77.imp"
L_0121:;
                                                                //   1082  
                                                                //   1083               %CYCLE J = 1,1,PARAMS
#line 1083 "regression-compile-tmp/soaps-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = PARAMS; J = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, PARAMS");
J -= _increment; _control -= _increment;
L_0122:;
if (J == _final) goto L_0123;
J += _increment; _control += _increment;
if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */
}
                                                                //   1084                  %IF PARAM(J) = S %THEN %START
#line 1084 "regression-compile-tmp/soaps-77.imp"
if ((_imp_strcmp((PARAM-1)[J], *S) != 0)) goto L_0125;
                                                                //   1085                     %IF (BOOLS-J)!!NUM < 0 %THEN %START
#line 1085 "regression-compile-tmp/soaps-77.imp"
if ((((((((int)(BOOLS)) - (J))) ^ (NUM))) >= (0))) goto L_0126;
                                                                //   1086                        PRINTSTRING(S."= ?\n")
#line 1086 "regression-compile-tmp/soaps-77.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)*S,(_imp_string)_imp_str_literal("= ?\\n")));
                                                                //   1087                        %RETURN
#line 1087 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1088                     %FINISH
#line 1088 "regression-compile-tmp/soaps-77.imp"
L_0126:;
                                                                //   1089                     K = NOT;  K = V %IF NUM < 0
#line 1089 "regression-compile-tmp/soaps-77.imp"
K = NOT;
#line 1089 "regression-compile-tmp/soaps-77.imp"
if (((NUM) >= (0))) goto L_0127;
#line 1089 "regression-compile-tmp/soaps-77.imp"
K = V;
#line 1089 "regression-compile-tmp/soaps-77.imp"
L_0127:;
                                                                //   1090                     WORD(J) = K
#line 1090 "regression-compile-tmp/soaps-77.imp"
WORD[J] = K;
                                                                //   1091                     OPLIST = OPLIST." ".OPT
#line 1091 "regression-compile-tmp/soaps-77.imp"
OPLIST = _imp_join((_imp_string)_imp_join((_imp_string)OPLIST,(_imp_string)_imp_str_literal(" ")),(_imp_string)OPT);
                                                                //   1092                     %RETURN
#line 1092 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1093                  %FINISH
#line 1093 "regression-compile-tmp/soaps-77.imp"
L_0125:;
                                                                //   1094               %REPEAT
#line 1094 "regression-compile-tmp/soaps-77.imp"
goto L_0122;
#line 1094 "regression-compile-tmp/soaps-77.imp"
L_0123:;
                                                                //   1095  
                                                                //   1096               PRINTSTRING(S." ?\n")
#line 1096 "regression-compile-tmp/soaps-77.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)*S,(_imp_string)_imp_str_literal(" ?\\n")));
                                                                //   1097  %END
#line 1097 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SET at level 2
                                                                //   1098            OPLIST = "\n!! OPTIONS:"
#line 1098 "regression-compile-tmp/soaps-77.imp"
OPLIST = _imp_str_literal("\\n!! OPTIONS:");
                                                                //   1099            !!WORD == ARRAY(ADDR(ISOLATE BRACKETS),FM)
                                                                //   1100            OK = 1
#line 1100 "regression-compile-tmp/soaps-77.imp"
OK = 1;
                                                                //   1101            %IF OPTIONFILE # "" %THEN %START
#line 1101 "regression-compile-tmp/soaps-77.imp"
if ((_imp_strcmp(OPTIONFILE, _imp_str_literal("")) == 0)) goto L_0128;
                                                                //   1102               OK = 0
#line 1102 "regression-compile-tmp/soaps-77.imp"
OK = 0;
                                                                //   1103               OPT FLAG = 0
#line 1103 "regression-compile-tmp/soaps-77.imp"
OPTFLAG = 0;
                                                                //   1104               %IF OPTIONFILE -> ("[").S %THEN %START
#line 1104 "regression-compile-tmp/soaps-77.imp"
if (!(_imp_resolve(OPTIONFILE, 0 /*NULL*/, _imp_str_literal("["), &S))) goto L_0129;
                                                                //   1105                  OPT FLAG = 0 %IF S -> S.("]")
#line 1105 "regression-compile-tmp/soaps-77.imp"
if (!(_imp_resolve(S, &S, _imp_str_literal("]"), 0 /*NULL*/))) goto L_012a;
#line 1105 "regression-compile-tmp/soaps-77.imp"
OPTFLAG = 0;
#line 1105 "regression-compile-tmp/soaps-77.imp"
L_012a:;
                                                                //   1106                  S = S.",*"
#line 1106 "regression-compile-tmp/soaps-77.imp"
S = _imp_join((_imp_string)S,(_imp_string)_imp_str_literal(",*"));
                                                                //   1107               %FINISH %ELSE %START
#line 1107 "regression-compile-tmp/soaps-77.imp"
goto L_012b;
#line 1107 "regression-compile-tmp/soaps-77.imp"
L_0129:;
                                                                //   1108                  OPT FLAG = 1
#line 1108 "regression-compile-tmp/soaps-77.imp"
OPTFLAG = 1;
                                                                //   1109                  PROMPT("OPTIONS:")
#line 1109 "regression-compile-tmp/soaps-77.imp"
PROMPT(_imp_str_literal("OPTIONS:"));
                                                                //   1110                  !DEFINE("ST76,".OPTION FILE)
                                                                //   1111                  SELECTINPUT(76)
#line 1111 "regression-compile-tmp/soaps-77.imp"
_imp_SELECTINPUT(76);
                                                                //   1112               %FINISH
#line 1112 "regression-compile-tmp/soaps-77.imp"
L_012b:;
                                                                //   1113  
                                                                //   1114               %CYCLE
#line 1114 "regression-compile-tmp/soaps-77.imp"
L_012c:;
                                                                //   1115                  LINE(S)
#line 1115 "regression-compile-tmp/soaps-77.imp"
LINE(&S);
                                                                //   1116                  SET(T) %WHILE S -> T.(",").S
#line 1116 "regression-compile-tmp/soaps-77.imp"
L_012f:;
#line 1116 "regression-compile-tmp/soaps-77.imp"
if (!(_imp_resolve(S, &T, _imp_str_literal(","), &S))) goto L_0130;
#line 1116 "regression-compile-tmp/soaps-77.imp"
SET(&T);
#line 1116 "regression-compile-tmp/soaps-77.imp"
goto L_012f;
#line 1116 "regression-compile-tmp/soaps-77.imp"
L_0130:;
                                                                //   1117                  %EXIT %IF S = "*"
#line 1117 "regression-compile-tmp/soaps-77.imp"
if ((_imp_strcmp(S, _imp_str_literal("*")) != 0)) goto L_0132;
#line 1117 "regression-compile-tmp/soaps-77.imp"
goto L_012d;
#line 1117 "regression-compile-tmp/soaps-77.imp"
L_0132:;
                                                                //   1118                  SET(S)
#line 1118 "regression-compile-tmp/soaps-77.imp"
SET(&S);
                                                                //   1119               %REPEAT
#line 1119 "regression-compile-tmp/soaps-77.imp"
goto L_012c;
#line 1119 "regression-compile-tmp/soaps-77.imp"
L_012d:;
                                                                //   1120  
                                                                //   1121               %IF CHARNO(OUTPUT,1) = '.' %START
#line 1121 "regression-compile-tmp/soaps-77.imp"
if (((*_imp_CHARNO(&OUTPUT, 1)) != (46))) goto L_0133;
                                                                //   1122                                          ! SHOW OPTIONS
                                                                //   1123                  STRING(CURROUT) = OPLIST."\n\n"
#line 1123 "regression-compile-tmp/soaps-77.imp"
*_imp_STRING(CURROUT) = _imp_join((_imp_string)OPLIST,(_imp_string)_imp_str_literal("\\n\\n"));
                                                                //   1124                  BYTEINTEGER(CURROUT) = NL
#line 1124 "regression-compile-tmp/soaps-77.imp"
*_imp_BYTEINTEGER(CURROUT) = 10;
                                                                //   1125                  CURROUT = CURROUT+LENGTH(OPLIST)+2
#line 1125 "regression-compile-tmp/soaps-77.imp"
CURROUT = (((int)(((CURROUT) + (*(int *)(_imp_LENGTH(&OPLIST)))))) + (2));
                                                                //   1126               %FINISH
#line 1126 "regression-compile-tmp/soaps-77.imp"
L_0133:;
                                                                //   1127            %FINISH
#line 1127 "regression-compile-tmp/soaps-77.imp"
L_0128:;
                                                                //   1128            DELTA MARGIN = MI
#line 1128 "regression-compile-tmp/soaps-77.imp"
DELTAMARGIN = MI;
                                                                //   1129            LINE LENGTH = LL
#line 1129 "regression-compile-tmp/soaps-77.imp"
LINELENGTH = LL;
                                                                //   1130            COMMENT TAB = CT
#line 1130 "regression-compile-tmp/soaps-77.imp"
COMMENTTAB = CT;
                                                                //   1131            MAXMARGIN = ML
#line 1131 "regression-compile-tmp/soaps-77.imp"
MAXMARGIN = ML;
                                                                //   1132            SEC MARGIN = SECONDARY MARGIN
#line 1132 "regression-compile-tmp/soaps-77.imp"
SECMARGIN = SECONDARYMARGIN;
                                                                //   1133            %UNLESS 40 < LINELENGTH < 133 %THEN %START
#line 1133 "regression-compile-tmp/soaps-77.imp"
if ((((40) >= (LINELENGTH))) || (((LINELENGTH) < (133)))) goto L_0134;
#line 1133 "regression-compile-tmp/soaps-77.imp"
L_0124:;
                                                                //   1134               PRINT STRING( "INVALID LINE LENGTH\n")
#line 1134 "regression-compile-tmp/soaps-77.imp"
_imp_PRINTSTRING(_imp_str_literal("INVALID LINE LENGTH\\n"));
                                                                //   1135               %RETURN
#line 1135 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1136            %FINISH
#line 1136 "regression-compile-tmp/soaps-77.imp"
L_0134:;
                                                                //   1137            %UNLESS 0 < COMMENT TAB < LINE LENGTH-20 %THEN %START
#line 1137 "regression-compile-tmp/soaps-77.imp"
if ((((0) >= (COMMENTTAB))) || (((COMMENTTAB) < ((((int)(LINELENGTH)) - (20)))))) goto L_0136;
#line 1137 "regression-compile-tmp/soaps-77.imp"
L_0135:;
                                                                //   1138               PRINT STRING( "INVALID COMMENT MARGIN\n")
#line 1138 "regression-compile-tmp/soaps-77.imp"
_imp_PRINTSTRING(_imp_str_literal("INVALID COMMENT MARGIN\\n"));
                                                                //   1139               %RETURN
#line 1139 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1140            %FINISH
#line 1140 "regression-compile-tmp/soaps-77.imp"
L_0136:;
                                                                //   1141            %UNLESS MAX MARGIN < LINE LENGTH-20 %THEN %START
#line 1141 "regression-compile-tmp/soaps-77.imp"
if (((MAXMARGIN) < ((((int)(LINELENGTH)) - (20))))) goto L_0137;
                                                                //   1142               PRINT STRING( "INVALID MAX MARGIN\n")
#line 1142 "regression-compile-tmp/soaps-77.imp"
_imp_PRINTSTRING(_imp_str_literal("INVALID MAX MARGIN\\n"));
                                                                //   1143               %RETURN
#line 1143 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1144            %FINISH
#line 1144 "regression-compile-tmp/soaps-77.imp"
L_0137:;
                                                                //   1145            %UNLESS DELTA MARGIN <= MAX MARGIN<<1 %START
#line 1145 "regression-compile-tmp/soaps-77.imp"
if (((DELTAMARGIN) <= (((MAXMARGIN) << (1))))) goto L_0138;
                                                                //   1146               PRINT STRING( "INVALID MARGIN INCREMENT\n")
#line 1146 "regression-compile-tmp/soaps-77.imp"
_imp_PRINTSTRING(_imp_str_literal("INVALID MARGIN INCREMENT\\n"));
                                                                //   1147               %RETURN
#line 1147 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1148            %FINISH
#line 1148 "regression-compile-tmp/soaps-77.imp"
L_0138:;
                                                                //   1149            %IF SEC MARGIN > DELTA MARGIN<<1+SAFETY FACTOR %START
#line 1149 "regression-compile-tmp/soaps-77.imp"
if (((SECMARGIN) <= ((((short)(((DELTAMARGIN) << (1)))) + (SAFETYFACTOR))))) goto L_0139;
                                                                //   1150               PRINT STRING( "INVALID SECONDARY MARGIN\n")
#line 1150 "regression-compile-tmp/soaps-77.imp"
_imp_PRINTSTRING(_imp_str_literal("INVALID SECONDARY MARGIN\\n"));
                                                                //   1151               %RETURN
#line 1151 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1152            %FINISH
#line 1152 "regression-compile-tmp/soaps-77.imp"
L_0139:;
                                                                //   1153            %IF INITIAL MARGIN > 30 %THEN %START
#line 1153 "regression-compile-tmp/soaps-77.imp"
if (((INITIALMARGIN) <= (30))) goto L_013a;
                                                                //   1154               PRINT STRING( "INVALID INITIAL MARGIN\n")
#line 1154 "regression-compile-tmp/soaps-77.imp"
_imp_PRINTSTRING(_imp_str_literal("INVALID INITIAL MARGIN\\n"));
                                                                //   1155               %RETURN
#line 1155 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1156            %FINISH
#line 1156 "regression-compile-tmp/soaps-77.imp"
L_013a:;
                                                                //   1157            MARGIN = 1 %IF DELTA MARGIN = 0 %AND SEC MARGIN = 0 %C
#line 1157 "regression-compile-tmp/soaps-77.imp"
if (((DELTAMARGIN) != (0))) goto L_013b;
#line 1157 "regression-compile-tmp/soaps-77.imp"
if (((SECMARGIN) != (0))) goto L_013b;
#line 1157 "regression-compile-tmp/soaps-77.imp"
if (((INITIALMARGIN) != (0))) goto L_013b;
#line 1157 "regression-compile-tmp/soaps-77.imp"
MARGIN = 1;
#line 1157 "regression-compile-tmp/soaps-77.imp"
L_013b:;
                                                                //   1158               %AND INITIAL MARGIN = 0
                                                                //   1159            MARGIN = INITIAL MARGIN %IF EXTRA MARGIN # 0
#line 1159 "regression-compile-tmp/soaps-77.imp"
if (((EXTRAMARGIN) == (0))) goto L_013c;
#line 1159 "regression-compile-tmp/soaps-77.imp"
MARGIN = INITIALMARGIN;
#line 1159 "regression-compile-tmp/soaps-77.imp"
L_013c:;
                                                                //   1160            SPLIT CONDS = 1 %IF SPLIT KEYWORDS # 0
#line 1160 "regression-compile-tmp/soaps-77.imp"
if (((SPLITKEYWORDS) == (0))) goto L_013d;
#line 1160 "regression-compile-tmp/soaps-77.imp"
SPLITCONDS = 1;
#line 1160 "regression-compile-tmp/soaps-77.imp"
L_013d:;
                                                                //   1161            COMMENT LENGTH = LINE LENGTH-COMMENT TAB
#line 1161 "regression-compile-tmp/soaps-77.imp"
COMMENTLENGTH = (((int)(LINELENGTH)) - (COMMENTTAB));
                                                                //   1162            TEXTBASE = ADDR(SYMFILE(0))
#line 1162 "regression-compile-tmp/soaps-77.imp"
TEXTBASE = _imp_ADDR(&SYMFILE[0]);
                                                                //   1163            KEYBASE = ADDR(KEYSYMS(1))
#line 1163 "regression-compile-tmp/soaps-77.imp"
KEYBASE = _imp_ADDR(&(KEYSYMS-1)[1]);
                                                                //   1164            RMARGIN = COMMENT LIMIT
#line 1164 "regression-compile-tmp/soaps-77.imp"
RMARGIN = COMMENTLIMIT;
                                                                //   1165            FULL LINE = LINE LENGTH
#line 1165 "regression-compile-tmp/soaps-77.imp"
FULLLINE = LINELENGTH;
                                                                //   1166            LINE LENGTH = LINE LENGTH-SAFETY FACTOR
#line 1166 "regression-compile-tmp/soaps-77.imp"
LINELENGTH = ((LINELENGTH) - ((int)(SAFETYFACTOR)));
                                                                //   1167            OPTIONS = 17*SPLIT KEYWORDS+34*SPLIT CONDS+SPACE LISTS<<6 %C
#line 1167 "regression-compile-tmp/soaps-77.imp"
OPTIONS = (((int)(((((((((((((((17) * ((int)(SPLITKEYWORDS))))) + (((34) * ((int)(SPLITCONDS))))))) + (((SPACELISTS) << (6)))))) + (((ISOLATEBRACKETS) << (2)))))) + (((SPACEEQUALS) << (3)))))) + (128));
                                                                //   1168               +ISOLATE BRACKETS<<2+SPACE EQUALS<<3+128
                                                                //   1169            LINE BASE = CURROUT;  SIZE = 0
#line 1169 "regression-compile-tmp/soaps-77.imp"
LINEBASE = CURROUT;
#line 1169 "regression-compile-tmp/soaps-77.imp"
SIZE = 0;
                                                                //   1170            COMMENT FLAG = JUSTIFY ALL<<1!COMMENTSNORMAL
#line 1170 "regression-compile-tmp/soaps-77.imp"
COMMENTFLAG = ((((JUSTIFYALL) << (1))) | (COMMENTSNORMAL));
                                                                //   1171            COMMENT FLAG = COMMENT FLAG!!B'010'
#line 1171 "regression-compile-tmp/soaps-77.imp"
COMMENTFLAG = ((COMMENTFLAG) ^ (2));
                                                                //   1172            FIRST DISP = DELTA MARGIN-INITIAL MARGIN
#line 1172 "regression-compile-tmp/soaps-77.imp"
FIRSTDISP = ((DELTAMARGIN) - ((int)(INITIALMARGIN)));
                                                                //   1173            COMMENT LINE = FULL LINE %IF COMMENT LINE = 0
#line 1173 "regression-compile-tmp/soaps-77.imp"
if (((COMMENTLINE) != (0))) goto L_013e;
#line 1173 "regression-compile-tmp/soaps-77.imp"
COMMENTLINE = FULLLINE;
#line 1173 "regression-compile-tmp/soaps-77.imp"
L_013e:;
                                                                //   1174            OK = 1
#line 1174 "regression-compile-tmp/soaps-77.imp"
OK = 1;
                                                                //   1175  %END
#line 1175 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SETOPTIONS at level 1
                                                                //   1176  
                                                                //   1177  %BEGIN
#line 1177 "regression-compile-tmp/soaps-77.imp"
int main(int argc, char **argv) {
  _imp_initialise(argc, argv);
                                                                //   1178    SOAP("test.imp") ;! need CLIPARAM ...
#line 1178 "regression-compile-tmp/soaps-77.imp"
SOAP(_imp_str_literal("test.imp"));
                                                                //   1179  %ENDOFPROGRAM
#line 1179 "regression-compile-tmp/soaps-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
} // End of block _imp_main at level 1
#line 1179 "regression-compile-tmp/soaps-77.imp"
// End of file
