home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / test / jpmobnch.src < prev    next >
Encoding:
Text File  |  1988-05-03  |  112.8 KB  |  7,005 lines
  1. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2. --compa.txt
  3. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  4. procedure COMPA is
  5.   A0 : INTEGER;
  6.   A1 : INTEGER;
  7.   A2 : INTEGER;
  8.   A3 : INTEGER;
  9.   A4 : INTEGER;
  10.   A5 : INTEGER;
  11.   A6 : INTEGER;
  12.   A7 : INTEGER;
  13.   A8 : INTEGER;
  14.   A9 : INTEGER;
  15.   A10 : INTEGER;
  16.   A11 : INTEGER;
  17.   A12 : INTEGER;
  18.   A13 : INTEGER;
  19.   A14 : INTEGER;
  20.   A15 : INTEGER;
  21.   A16 : INTEGER;
  22.   A17 : INTEGER;
  23.   A18 : INTEGER;
  24.   A19 : INTEGER;
  25.   A20 : INTEGER;
  26.   A21 : INTEGER;
  27.   A22 : INTEGER;
  28.   A23 : INTEGER;
  29.   A24 : INTEGER;
  30.   A25 : INTEGER;
  31.   A26 : INTEGER;
  32.   A27 : INTEGER;
  33.   A28 : INTEGER;
  34.   A29 : INTEGER;
  35.   A30 : INTEGER;
  36.   A31 : INTEGER;
  37.   A32 : INTEGER;
  38.   A33 : INTEGER;
  39.   A34 : INTEGER;
  40.   A35 : INTEGER;
  41.   A36 : INTEGER;
  42.   A37 : INTEGER;
  43.   A38 : INTEGER;
  44.   A39 : INTEGER;
  45.   A40 : INTEGER;
  46.   A41 : INTEGER;
  47.   A42 : INTEGER;
  48.   A43 : INTEGER;
  49.   A44 : INTEGER;
  50.   A45 : INTEGER;
  51.   A46 : INTEGER;
  52.   A47 : INTEGER;
  53.   A48 : INTEGER;
  54.   A49 : INTEGER;
  55.   A50 : INTEGER;
  56.   A51 : INTEGER;
  57.   A52 : INTEGER;
  58.   A53 : INTEGER;
  59.   A54 : INTEGER;
  60.   A55 : INTEGER;
  61.   A56 : INTEGER;
  62.   A57 : INTEGER;
  63.   A58 : INTEGER;
  64.   A59 : INTEGER;
  65.   A60 : INTEGER;
  66.   A61 : INTEGER;
  67.   A62 : INTEGER;
  68.   A63 : INTEGER;
  69.   A64 : INTEGER;
  70.   A65 : INTEGER;
  71.   A66 : INTEGER;
  72.   A67 : INTEGER;
  73.   A68 : INTEGER;
  74.   A69 : INTEGER;
  75.   A70 : INTEGER;
  76.   A71 : INTEGER;
  77.   A72 : INTEGER;
  78.   A73 : INTEGER;
  79.   A74 : INTEGER;
  80.   A75 : INTEGER;
  81.   A76 : INTEGER;
  82.   A77 : INTEGER;
  83.   A78 : INTEGER;
  84.   A79 : INTEGER;
  85.   A80 : INTEGER;
  86.   A81 : INTEGER;
  87.   A82 : INTEGER;
  88.   A83 : INTEGER;
  89.   A84 : INTEGER;
  90.   A85 : INTEGER;
  91.   A86 : INTEGER;
  92.   A87 : INTEGER;
  93.   A88 : INTEGER;
  94.   A89 : INTEGER;
  95.   A90 : INTEGER;
  96.   A91 : INTEGER;
  97.   A92 : INTEGER;
  98.   A93 : INTEGER;
  99.   A94 : INTEGER;
  100.   A95 : INTEGER;
  101.   A96 : INTEGER;
  102.   A97 : INTEGER;
  103.   A98 : INTEGER;
  104.   A99 : INTEGER;
  105.   A100 : INTEGER;
  106.   A101 : INTEGER;
  107.   A102 : INTEGER;
  108.   A103 : INTEGER;
  109.   A104 : INTEGER;
  110.   A105 : INTEGER;
  111.   A106 : INTEGER;
  112.   A107 : INTEGER;
  113.   A108 : INTEGER;
  114.   A109 : INTEGER;
  115.   A110 : INTEGER;
  116.   A111 : INTEGER;
  117.   A112 : INTEGER;
  118.   A113 : INTEGER;
  119.   A114 : INTEGER;
  120.   A115 : INTEGER;
  121.   A116 : INTEGER;
  122.   A117 : INTEGER;
  123.   A118 : INTEGER;
  124.   A119 : INTEGER;
  125.   A120 : INTEGER;
  126.   A121 : INTEGER;
  127.   A122 : INTEGER;
  128.   A123 : INTEGER;
  129.   A124 : INTEGER;
  130.   A125 : INTEGER;
  131.   A126 : INTEGER;
  132.   A127 : INTEGER;
  133.   A128 : INTEGER;
  134.   A129 : INTEGER;
  135.   A130 : INTEGER;
  136.   A131 : INTEGER;
  137.   A132 : INTEGER;
  138.   A133 : INTEGER;
  139.   A134 : INTEGER;
  140.   A135 : INTEGER;
  141.   A136 : INTEGER;
  142.   A137 : INTEGER;
  143.   A138 : INTEGER;
  144.   A139 : INTEGER;
  145.   A140 : INTEGER;
  146.   A141 : INTEGER;
  147.   A142 : INTEGER;
  148.   A143 : INTEGER;
  149.   A144 : INTEGER;
  150.   A145 : INTEGER;
  151.   A146 : INTEGER;
  152.   A147 : INTEGER;
  153.   A148 : INTEGER;
  154.   A149 : INTEGER;
  155.   A150 : INTEGER;
  156.   A151 : INTEGER;
  157.   A152 : INTEGER;
  158.   A153 : INTEGER;
  159.   A154 : INTEGER;
  160.   A155 : INTEGER;
  161.   A156 : INTEGER;
  162.   A157 : INTEGER;
  163.   A158 : INTEGER;
  164.   A159 : INTEGER;
  165.   A160 : INTEGER;
  166.   A161 : INTEGER;
  167.   A162 : INTEGER;
  168.   A163 : INTEGER;
  169.   A164 : INTEGER;
  170.   A165 : INTEGER;
  171.   A166 : INTEGER;
  172.   A167 : INTEGER;
  173.   A168 : INTEGER;
  174.   A169 : INTEGER;
  175.   A170 : INTEGER;
  176.   A171 : INTEGER;
  177.   A172 : INTEGER;
  178.   A173 : INTEGER;
  179.   A174 : INTEGER;
  180.   A175 : INTEGER;
  181.   A176 : INTEGER;
  182.   A177 : INTEGER;
  183.   A178 : INTEGER;
  184.   A179 : INTEGER;
  185.   A180 : INTEGER;
  186.   A181 : INTEGER;
  187.   A182 : INTEGER;
  188.   A183 : INTEGER;
  189.   A184 : INTEGER;
  190.   A185 : INTEGER;
  191.   A186 : INTEGER;
  192.   A187 : INTEGER;
  193.   A188 : INTEGER;
  194.   A189 : INTEGER;
  195.   A190 : INTEGER;
  196.   A191 : INTEGER;
  197.   A192 : INTEGER;
  198.   A193 : INTEGER;
  199.   A194 : INTEGER;
  200.   A195 : INTEGER;
  201.   A196 : INTEGER;
  202.   A197 : INTEGER;
  203.   A198 : INTEGER;
  204.   A199 : INTEGER;
  205.   A200 : INTEGER;
  206.   A201 : INTEGER;
  207.   A202 : INTEGER;
  208.   A203 : INTEGER;
  209.   A204 : INTEGER;
  210.   A205 : INTEGER;
  211.   A206 : INTEGER;
  212.   A207 : INTEGER;
  213.   A208 : INTEGER;
  214.   A209 : INTEGER;
  215.   A210 : INTEGER;
  216.   A211 : INTEGER;
  217.   A212 : INTEGER;
  218.   A213 : INTEGER;
  219.   A214 : INTEGER;
  220.   A215 : INTEGER;
  221.   A216 : INTEGER;
  222.   A217 : INTEGER;
  223.   A218 : INTEGER;
  224.   A219 : INTEGER;
  225.   A220 : INTEGER;
  226.   A221 : INTEGER;
  227.   A222 : INTEGER;
  228.   A223 : INTEGER;
  229.   A224 : INTEGER;
  230.   A225 : INTEGER;
  231.   A226 : INTEGER;
  232.   A227 : INTEGER;
  233.   A228 : INTEGER;
  234.   A229 : INTEGER;
  235.   A230 : INTEGER;
  236.   A231 : INTEGER;
  237.   A232 : INTEGER;
  238.   A233 : INTEGER;
  239.   A234 : INTEGER;
  240.   A235 : INTEGER;
  241.   A236 : INTEGER;
  242.   A237 : INTEGER;
  243.   A238 : INTEGER;
  244.   A239 : INTEGER;
  245.   A240 : INTEGER;
  246.   A241 : INTEGER;
  247.   A242 : INTEGER;
  248.   A243 : INTEGER;
  249.   A244 : INTEGER;
  250.   A245 : INTEGER;
  251.   A246 : INTEGER;
  252.   A247 : INTEGER;
  253.   A248 : INTEGER;
  254.   A249 : INTEGER;
  255.   A250 : INTEGER;
  256.   A251 : INTEGER;
  257.   A252 : INTEGER;
  258.   A253 : INTEGER;
  259.   A254 : INTEGER;
  260.   A255 : INTEGER;
  261.   A256 : INTEGER;
  262.   A257 : INTEGER;
  263.   A258 : INTEGER;
  264.   A259 : INTEGER;
  265.   A260 : INTEGER;
  266.   A261 : INTEGER;
  267.   A262 : INTEGER;
  268.   A263 : INTEGER;
  269.   A264 : INTEGER;
  270.   A265 : INTEGER;
  271.   A266 : INTEGER;
  272.   A267 : INTEGER;
  273.   A268 : INTEGER;
  274.   A269 : INTEGER;
  275.   A270 : INTEGER;
  276.   A271 : INTEGER;
  277.   A272 : INTEGER;
  278.   A273 : INTEGER;
  279.   A274 : INTEGER;
  280.   A275 : INTEGER;
  281.   A276 : INTEGER;
  282.   A277 : INTEGER;
  283.   A278 : INTEGER;
  284.   A279 : INTEGER;
  285.   A280 : INTEGER;
  286.   A281 : INTEGER;
  287.   A282 : INTEGER;
  288.   A283 : INTEGER;
  289.   A284 : INTEGER;
  290.   A285 : INTEGER;
  291.   A286 : INTEGER;
  292.   A287 : INTEGER;
  293.   A288 : INTEGER;
  294.   A289 : INTEGER;
  295.   A290 : INTEGER;
  296.   A291 : INTEGER;
  297.   A292 : INTEGER;
  298.   A293 : INTEGER;
  299.   A294 : INTEGER;
  300.   A295 : INTEGER;
  301.   A296 : INTEGER;
  302.   A297 : INTEGER;
  303.   A298 : INTEGER;
  304.   A299 : INTEGER;
  305.   A300 : INTEGER;
  306.   A301 : INTEGER;
  307.   A302 : INTEGER;
  308.   A303 : INTEGER;
  309.   A304 : INTEGER;
  310.   A305 : INTEGER;
  311.   A306 : INTEGER;
  312.   A307 : INTEGER;
  313.   A308 : INTEGER;
  314.   A309 : INTEGER;
  315.   A310 : INTEGER;
  316.   A311 : INTEGER;
  317.   A312 : INTEGER;
  318.   A313 : INTEGER;
  319.   A314 : INTEGER;
  320.   A315 : INTEGER;
  321.   A316 : INTEGER;
  322.   A317 : INTEGER;
  323.   A318 : INTEGER;
  324.   A319 : INTEGER;
  325.   A320 : INTEGER;
  326.   A321 : INTEGER;
  327.   A322 : INTEGER;
  328.   A323 : INTEGER;
  329.   A324 : INTEGER;
  330.   A325 : INTEGER;
  331.   A326 : INTEGER;
  332.   A327 : INTEGER;
  333.   A328 : INTEGER;
  334.   A329 : INTEGER;
  335.   A330 : INTEGER;
  336.   A331 : INTEGER;
  337.   A332 : INTEGER;
  338.   A333 : INTEGER;
  339.   A334 : INTEGER;
  340.   A335 : INTEGER;
  341.   A336 : INTEGER;
  342.   A337 : INTEGER;
  343.   A338 : INTEGER;
  344.   A339 : INTEGER;
  345.   A340 : INTEGER;
  346.   A341 : INTEGER;
  347.   A342 : INTEGER;
  348.   A343 : INTEGER;
  349.   A344 : INTEGER;
  350.   A345 : INTEGER;
  351.   A346 : INTEGER;
  352.   A347 : INTEGER;
  353.   A348 : INTEGER;
  354.   A349 : INTEGER;
  355.   A350 : INTEGER;
  356.   A351 : INTEGER;
  357.   A352 : INTEGER;
  358.   A353 : INTEGER;
  359.   A354 : INTEGER;
  360.   A355 : INTEGER;
  361.   A356 : INTEGER;
  362.   A357 : INTEGER;
  363.   A358 : INTEGER;
  364.   A359 : INTEGER;
  365.   A360 : INTEGER;
  366.   A361 : INTEGER;
  367.   A362 : INTEGER;
  368.   A363 : INTEGER;
  369.   A364 : INTEGER;
  370.   A365 : INTEGER;
  371.   A366 : INTEGER;
  372.   A367 : INTEGER;
  373.   A368 : INTEGER;
  374.   A369 : INTEGER;
  375.   A370 : INTEGER;
  376.   A371 : INTEGER;
  377.   A372 : INTEGER;
  378.   A373 : INTEGER;
  379.   A374 : INTEGER;
  380.   A375 : INTEGER;
  381.   A376 : INTEGER;
  382.   A377 : INTEGER;
  383.   A378 : INTEGER;
  384.   A379 : INTEGER;
  385.   A380 : INTEGER;
  386.   A381 : INTEGER;
  387.   A382 : INTEGER;
  388.   A383 : INTEGER;
  389.   A384 : INTEGER;
  390.   A385 : INTEGER;
  391.   A386 : INTEGER;
  392.   A387 : INTEGER;
  393.   A388 : INTEGER;
  394.   A389 : INTEGER;
  395.   A390 : INTEGER;
  396.   A391 : INTEGER;
  397.   A392 : INTEGER;
  398.   A393 : INTEGER;
  399.   A394 : INTEGER;
  400.   A395 : INTEGER;
  401.   A396 : INTEGER;
  402.   A397 : INTEGER;
  403.   A398 : INTEGER;
  404.   A399 : INTEGER;
  405.   A400 : INTEGER;
  406.   A401 : INTEGER;
  407.   A402 : INTEGER;
  408.   A403 : INTEGER;
  409.   A404 : INTEGER;
  410.   A405 : INTEGER;
  411.   A406 : INTEGER;
  412.   A407 : INTEGER;
  413.   A408 : INTEGER;
  414.   A409 : INTEGER;
  415.   A410 : INTEGER;
  416.   A411 : INTEGER;
  417.   A412 : INTEGER;
  418.   A413 : INTEGER;
  419.   A414 : INTEGER;
  420.   A415 : INTEGER;
  421.   A416 : INTEGER;
  422.   A417 : INTEGER;
  423.   A418 : INTEGER;
  424.   A419 : INTEGER;
  425.   A420 : INTEGER;
  426.   A421 : INTEGER;
  427.   A422 : INTEGER;
  428.   A423 : INTEGER;
  429.   A424 : INTEGER;
  430.   A425 : INTEGER;
  431.   A426 : INTEGER;
  432.   A427 : INTEGER;
  433.   A428 : INTEGER;
  434.   A429 : INTEGER;
  435.   A430 : INTEGER;
  436.   A431 : INTEGER;
  437.   A432 : INTEGER;
  438.   A433 : INTEGER;
  439.   A434 : INTEGER;
  440.   A435 : INTEGER;
  441.   A436 : INTEGER;
  442.   A437 : INTEGER;
  443.   A438 : INTEGER;
  444.   A439 : INTEGER;
  445.   A440 : INTEGER;
  446.   A441 : INTEGER;
  447.   A442 : INTEGER;
  448.   A443 : INTEGER;
  449.   A444 : INTEGER;
  450.   A445 : INTEGER;
  451.   A446 : INTEGER;
  452.   A447 : INTEGER;
  453.   A448 : INTEGER;
  454.   A449 : INTEGER;
  455.   A450 : INTEGER;
  456.   A451 : INTEGER;
  457.   A452 : INTEGER;
  458.   A453 : INTEGER;
  459.   A454 : INTEGER;
  460.   A455 : INTEGER;
  461.   A456 : INTEGER;
  462.   A457 : INTEGER;
  463.   A458 : INTEGER;
  464.   A459 : INTEGER;
  465.   A460 : INTEGER;
  466.   A461 : INTEGER;
  467.   A462 : INTEGER;
  468.   A463 : INTEGER;
  469.   A464 : INTEGER;
  470.   A465 : INTEGER;
  471.   A466 : INTEGER;
  472.   A467 : INTEGER;
  473.   A468 : INTEGER;
  474.   A469 : INTEGER;
  475.   A470 : INTEGER;
  476.   A471 : INTEGER;
  477.   A472 : INTEGER;
  478.   A473 : INTEGER;
  479.   A474 : INTEGER;
  480.   A475 : INTEGER;
  481.   A476 : INTEGER;
  482.   A477 : INTEGER;
  483.   A478 : INTEGER;
  484.   A479 : INTEGER;
  485.   A480 : INTEGER;
  486.   A481 : INTEGER;
  487.   A482 : INTEGER;
  488.   A483 : INTEGER;
  489.   A484 : INTEGER;
  490.   A485 : INTEGER;
  491.   A486 : INTEGER;
  492.   A487 : INTEGER;
  493.   A488 : INTEGER;
  494.   A489 : INTEGER;
  495.   A490 : INTEGER;
  496.   A491 : INTEGER;
  497.   A492 : INTEGER;
  498.   A493 : INTEGER;
  499.   A494 : INTEGER;
  500.   A495 : INTEGER;
  501.   A496 : INTEGER;
  502.   A497 : INTEGER;
  503.   A498 : INTEGER;
  504.   A499 : INTEGER;
  505.  
  506. begin
  507.   A499 := 0;
  508. end COMPA;
  509. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  510. --compb.txt
  511. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  512. procedure COMPB is
  513.     A0,   A1,    A2,    A3,    A4,    A5,    A6,    A7,    A8,    A9,
  514.    A10,  A11,   A12,   A13,   A14,   A15,   A16,   A17,   A18,   A19,
  515.    A20,  A21,   A22,   A23,   A24,   A25,   A26,   A27,   A28,   A29,
  516.    A30,  A31,   A32,   A33,   A34,   A35,   A36,   A37,   A38,   A39,
  517.    A40,  A41,   A42,   A43,   A44,   A45,   A46,   A47,   A48,   A49,
  518.    A50,  A51,   A52,   A53,   A54,   A55,   A56,   A57,   A58,   A59,
  519.    A60,  A61,   A62,   A63,   A64,   A65,   A66,   A67,   A68,   A69,
  520.    A70,  A71,   A72,   A73,   A74,   A75,   A76,   A77,   A78,   A79,
  521.    A80,  A81,   A82,   A83,   A84,   A85,   A86,   A87,   A88,   A89,
  522.    A90,  A91,   A92,   A93,   A94,   A95,   A96,   A97,   A98,   A99,
  523.   A100, A101,  A102,  A103,  A104,  A105,  A106,  A107,  A108,  A109,
  524.   A110, A111,  A112,  A113,  A114,  A115,  A116,  A117,  A118,  A119,
  525.   A120, A121,  A122,  A123,  A124,  A125,  A126,  A127,  A128,  A129,
  526.   A130, A131,  A132,  A133,  A134,  A135,  A136,  A137,  A138,  A139,
  527.   A140, A141,  A142,  A143,  A144,  A145,  A146,  A147,  A148,  A149,
  528.   A150, A151,  A152,  A153,  A154,  A155,  A156,  A157,  A158,  A159,
  529.   A160, A161,  A162,  A163,  A164,  A165,  A166,  A167,  A168,  A169,
  530.   A170, A171,  A172,  A173,  A174,  A175,  A176,  A177,  A178,  A179,
  531.   A180, A181,  A182,  A183,  A184,  A185,  A186,  A187,  A188,  A189,
  532.   A190, A191,  A192,  A193,  A194,  A195,  A196,  A197,  A198,  A199,
  533.   A200, A201,  A202,  A203,  A204,  A205,  A206,  A207,  A208,  A209,
  534.   A210, A211,  A212,  A213,  A214,  A215,  A216,  A217,  A218,  A219,
  535.   A220, A221,  A222,  A223,  A224,  A225,  A226,  A227,  A228,  A229,
  536.   A230, A231,  A232,  A233,  A234,  A235,  A236,  A237,  A238,  A239,
  537.   A240, A241,  A242,  A243,  A244,  A245,  A246,  A247,  A248,  A249,
  538.   A250, A251,  A252,  A253,  A254,  A255,  A256,  A257,  A258,  A259,
  539.   A260, A261,  A262,  A263,  A264,  A265,  A266,  A267,  A268,  A269,
  540.   A270, A271,  A272,  A273,  A274,  A275,  A276,  A277,  A278,  A279,
  541.   A280, A281,  A282,  A283,  A284,  A285,  A286,  A287,  A288,  A289,
  542.   A290, A291,  A292,  A293,  A294,  A295,  A296,  A297,  A298,  A299,
  543.   A300, A301,  A302,  A303,  A304,  A305,  A306,  A307,  A308,  A309,
  544.   A310, A311,  A312,  A313,  A314,  A315,  A316,  A317,  A318,  A319,
  545.   A320, A321,  A322,  A323,  A324,  A325,  A326,  A327,  A328,  A329,
  546.   A330, A331,  A332,  A333,  A334,  A335,  A336,  A337,  A338,  A339,
  547.   A340, A341,  A342,  A343,  A344,  A345,  A346,  A347,  A348,  A349,
  548.   A350, A351,  A352,  A353,  A354,  A355,  A356,  A357,  A358,  A359,
  549.   A360, A361,  A362,  A363,  A364,  A365,  A366,  A367,  A368,  A369,
  550.   A370, A371,  A372,  A373,  A374,  A375,  A376,  A377,  A378,  A379,
  551.   A380, A381,  A382,  A383,  A384,  A385,  A386,  A387,  A388,  A389,
  552.   A390, A391,  A392,  A393,  A394,  A395,  A396,  A397,  A398,  A399,
  553.   A400, A401,  A402,  A403,  A404,  A405,  A406,  A407,  A408,  A409,
  554.   A410, A411,  A412,  A413,  A414,  A415,  A416,  A417,  A418,  A419,
  555.   A420, A421,  A422,  A423,  A424,  A425,  A426,  A427,  A428,  A429,
  556.   A430, A431,  A432,  A433,  A434,  A435,  A436,  A437,  A438,  A439,
  557.   A440, A441,  A442,  A443,  A444,  A445,  A446,  A447,  A448,  A449,
  558.   A450, A451,  A452,  A453,  A454,  A455,  A456,  A457,  A458,  A459,
  559.   A460, A461,  A462,  A463,  A464,  A465,  A466,  A467,  A468,  A469,
  560.   A470, A471,  A472,  A473,  A474,  A475,  A476,  A477,  A478,  A479,
  561.   A480, A481,  A482,  A483,  A484,  A485,  A486,  A487,  A488,  A489,
  562.   A490, A491,  A492,  A493,  A494,  A495,  A496,  A497,  A498,  A499 : INTEGER;
  563.  
  564. begin
  565.   A499 := 0;
  566. end COMPB;
  567. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  568. --compc.txt
  569. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  570. procedure COMPC is
  571.   A, B, C : INTEGER := 0;
  572.  
  573. begin
  574.   B := A;  C := B;  A:= B;  C := A;  B := C;
  575.   B := A;  C := B;  A:= B;  C := A;  B := C;
  576.   B := A;  C := B;  A:= B;  C := A;  B := C;
  577.   B := A;  C := B;  A:= B;  C := A;  B := C;
  578.   B := A;  C := B;  A:= B;  C := A;  B := C;
  579.   B := A;  C := B;  A:= B;  C := A;  B := C;
  580.   B := A;  C := B;  A:= B;  C := A;  B := C;
  581.   B := A;  C := B;  A:= B;  C := A;  B := C;
  582.   B := A;  C := B;  A:= B;  C := A;  B := C;
  583.   B := A;  C := B;  A:= B;  C := A;  B := C;
  584.   B := A;  C := B;  A:= B;  C := A;  B := C;
  585.   B := A;  C := B;  A:= B;  C := A;  B := C;
  586.   B := A;  C := B;  A:= B;  C := A;  B := C;
  587.   B := A;  C := B;  A:= B;  C := A;  B := C;
  588.   B := A;  C := B;  A:= B;  C := A;  B := C;
  589.   B := A;  C := B;  A:= B;  C := A;  B := C;
  590.   B := A;  C := B;  A:= B;  C := A;  B := C;
  591.   B := A;  C := B;  A:= B;  C := A;  B := C;
  592.   B := A;  C := B;  A:= B;  C := A;  B := C;
  593.   B := A;  C := B;  A:= B;  C := A;  B := C;
  594.   B := A;  C := B;  A:= B;  C := A;  B := C;
  595.   B := A;  C := B;  A:= B;  C := A;  B := C;
  596.   B := A;  C := B;  A:= B;  C := A;  B := C;
  597.   B := A;  C := B;  A:= B;  C := A;  B := C;
  598.   B := A;  C := B;  A:= B;  C := A;  B := C;
  599.   B := A;  C := B;  A:= B;  C := A;  B := C;
  600.   B := A;  C := B;  A:= B;  C := A;  B := C;
  601.   B := A;  C := B;  A:= B;  C := A;  B := C;
  602.   B := A;  C := B;  A:= B;  C := A;  B := C;
  603.   B := A;  C := B;  A:= B;  C := A;  B := C;
  604.   B := A;  C := B;  A:= B;  C := A;  B := C;
  605.   B := A;  C := B;  A:= B;  C := A;  B := C;
  606.   B := A;  C := B;  A:= B;  C := A;  B := C;
  607.   B := A;  C := B;  A:= B;  C := A;  B := C;
  608.   B := A;  C := B;  A:= B;  C := A;  B := C;
  609.   B := A;  C := B;  A:= B;  C := A;  B := C;
  610.   B := A;  C := B;  A:= B;  C := A;  B := C;
  611.   B := A;  C := B;  A:= B;  C := A;  B := C;
  612.   B := A;  C := B;  A:= B;  C := A;  B := C;
  613.   B := A;  C := B;  A:= B;  C := A;  B := C;
  614.   B := A;  C := B;  A:= B;  C := A;  B := C;
  615.   B := A;  C := B;  A:= B;  C := A;  B := C;
  616.   B := A;  C := B;  A:= B;  C := A;  B := C;
  617.   B := A;  C := B;  A:= B;  C := A;  B := C;
  618.   B := A;  C := B;  A:= B;  C := A;  B := C;
  619.   B := A;  C := B;  A:= B;  C := A;  B := C;
  620.   B := A;  C := B;  A:= B;  C := A;  B := C;
  621.   B := A;  C := B;  A:= B;  C := A;  B := C;
  622.   B := A;  C := B;  A:= B;  C := A;  B := C;
  623.   B := A;  C := B;  A:= B;  C := A;  B := C;
  624.   B := A;  C := B;  A:= B;  C := A;  B := C;
  625.   B := A;  C := B;  A:= B;  C := A;  B := C;
  626.   B := A;  C := B;  A:= B;  C := A;  B := C;
  627.   B := A;  C := B;  A:= B;  C := A;  B := C;
  628.   B := A;  C := B;  A:= B;  C := A;  B := C;
  629.   B := A;  C := B;  A:= B;  C := A;  B := C;
  630.   B := A;  C := B;  A:= B;  C := A;  B := C;
  631.   B := A;  C := B;  A:= B;  C := A;  B := C;
  632.   B := A;  C := B;  A:= B;  C := A;  B := C;
  633.   B := A;  C := B;  A:= B;  C := A;  B := C;
  634.   B := A;  C := B;  A:= B;  C := A;  B := C;
  635.   B := A;  C := B;  A:= B;  C := A;  B := C;
  636.   B := A;  C := B;  A:= B;  C := A;  B := C;
  637.   B := A;  C := B;  A:= B;  C := A;  B := C;
  638.   B := A;  C := B;  A:= B;  C := A;  B := C;
  639.   B := A;  C := B;  A:= B;  C := A;  B := C;
  640.   B := A;  C := B;  A:= B;  C := A;  B := C;
  641.   B := A;  C := B;  A:= B;  C := A;  B := C;
  642.   B := A;  C := B;  A:= B;  C := A;  B := C;
  643.   B := A;  C := B;  A:= B;  C := A;  B := C;
  644.   B := A;  C := B;  A:= B;  C := A;  B := C;
  645.   B := A;  C := B;  A:= B;  C := A;  B := C;
  646.   B := A;  C := B;  A:= B;  C := A;  B := C;
  647.   B := A;  C := B;  A:= B;  C := A;  B := C;
  648.   B := A;  C := B;  A:= B;  C := A;  B := C;
  649.   B := A;  C := B;  A:= B;  C := A;  B := C;
  650.   B := A;  C := B;  A:= B;  C := A;  B := C;
  651.   B := A;  C := B;  A:= B;  C := A;  B := C;
  652.   B := A;  C := B;  A:= B;  C := A;  B := C;
  653.   B := A;  C := B;  A:= B;  C := A;  B := C;
  654.   B := A;  C := B;  A:= B;  C := A;  B := C;
  655.   B := A;  C := B;  A:= B;  C := A;  B := C;
  656.   B := A;  C := B;  A:= B;  C := A;  B := C;
  657.   B := A;  C := B;  A:= B;  C := A;  B := C;
  658.   B := A;  C := B;  A:= B;  C := A;  B := C;
  659.   B := A;  C := B;  A:= B;  C := A;  B := C;
  660.   B := A;  C := B;  A:= B;  C := A;  B := C;
  661.   B := A;  C := B;  A:= B;  C := A;  B := C;
  662.   B := A;  C := B;  A:= B;  C := A;  B := C;
  663.   B := A;  C := B;  A:= B;  C := A;  B := C;
  664.   B := A;  C := B;  A:= B;  C := A;  B := C;
  665.   B := A;  C := B;  A:= B;  C := A;  B := C;
  666.   B := A;  C := B;  A:= B;  C := A;  B := C;
  667.   B := A;  C := B;  A:= B;  C := A;  B := C;
  668.   B := A;  C := B;  A:= B;  C := A;  B := C;
  669.   B := A;  C := B;  A:= B;  C := A;  B := C;
  670.   B := A;  C := B;  A:= B;  C := A;  B := C;
  671.   B := A;  C := B;  A:= B;  C := A;  B := C;
  672.   B := A;  C := B;  A:= B;  C := A;  B := C;
  673.   B := A;  C := B;  A:= B;  C := A;  B := C;
  674.  
  675. end COMPC;
  676. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  677. --compd.txt
  678. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  679. procedure COMPD is
  680.   A, B, C : INTEGER := 0;
  681.  
  682. begin
  683.   B := A;
  684.   C := B;
  685.   A := B;
  686.   C := A;
  687.   B := C;
  688.   B := A;
  689.   C := B;
  690.   A := B;
  691.   C := A;
  692.   B := C;
  693.   B := A;
  694.   C := B;
  695.   A := B;
  696.   C := A;
  697.   B := C;
  698.   B := A;
  699.   C := B;
  700.   A := B;
  701.   C := A;
  702.   B := C;
  703.   B := A;
  704.   C := B;
  705.   A := B;
  706.   C := A;
  707.   B := C;
  708.   B := A;
  709.   C := B;
  710.   A := B;
  711.   C := A;
  712.   B := C;
  713.   B := A;
  714.   C := B;
  715.   A := B;
  716.   C := A;
  717.   B := C;
  718.   B := A;
  719.   C := B;
  720.   A := B;
  721.   C := A;
  722.   B := C;
  723.   B := A;
  724.   C := B;
  725.   A := B;
  726.   C := A;
  727.   B := C;
  728.   B := A;
  729.   C := B;
  730.   A := B;
  731.   C := A;
  732.   B := C;
  733.   B := A;
  734.   C := B;
  735.   A := B;
  736.   C := A;
  737.   B := C;
  738.   B := A;
  739.   C := B;
  740.   A := B;
  741.   C := A;
  742.   B := C;
  743.   B := A;
  744.   C := B;
  745.   A := B;
  746.   C := A;
  747.   B := C;
  748.   B := A;
  749.   C := B;
  750.   A := B;
  751.   C := A;
  752.   B := C;
  753.   B := A;
  754.   C := B;
  755.   A := B;
  756.   C := A;
  757.   B := C;
  758.   B := A;
  759.   C := B;
  760.   A := B;
  761.   C := A;
  762.   B := C;
  763.   B := A;
  764.   C := B;
  765.   A := B;
  766.   C := A;
  767.   B := C;
  768.   B := A;
  769.   C := B;
  770.   A := B;
  771.   C := A;
  772.   B := C;
  773.   B := A;
  774.   C := B;
  775.   A := B;
  776.   C := A;
  777.   B := C;
  778.   B := A;
  779.   C := B;
  780.   A := B;
  781.   C := A;
  782.   B := C;
  783.   B := A;
  784.   C := B;
  785.   A := B;
  786.   C := A;
  787.   B := C;
  788.   B := A;
  789.   C := B;
  790.   A := B;
  791.   C := A;
  792.   B := C;
  793.   B := A;
  794.   C := B;
  795.   A := B;
  796.   C := A;
  797.   B := C;
  798.   B := A;
  799.   C := B;
  800.   A := B;
  801.   C := A;
  802.   B := C;
  803.   B := A;
  804.   C := B;
  805.   A := B;
  806.   C := A;
  807.   B := C;
  808.   B := A;
  809.   C := B;
  810.   A := B;
  811.   C := A;
  812.   B := C;
  813.   B := A;
  814.   C := B;
  815.   A := B;
  816.   C := A;
  817.   B := C;
  818.   B := A;
  819.   C := B;
  820.   A := B;
  821.   C := A;
  822.   B := C;
  823.   B := A;
  824.   C := B;
  825.   A := B;
  826.   C := A;
  827.   B := C;
  828.   B := A;
  829.   C := B;
  830.   A := B;
  831.   C := A;
  832.   B := C;
  833.   B := A;
  834.   C := B;
  835.   A := B;
  836.   C := A;
  837.   B := C;
  838.   B := A;
  839.   C := B;
  840.   A := B;
  841.   C := A;
  842.   B := C;
  843.   B := A;
  844.   C := B;
  845.   A := B;
  846.   C := A;
  847.   B := C;
  848.   B := A;
  849.   C := B;
  850.   A := B;
  851.   C := A;
  852.   B := C;
  853.   B := A;
  854.   C := B;
  855.   A := B;
  856.   C := A;
  857.   B := C;
  858.   B := A;
  859.   C := B;
  860.   A := B;
  861.   C := A;
  862.   B := C;
  863.   B := A;
  864.   C := B;
  865.   A := B;
  866.   C := A;
  867.   B := C;
  868.   B := A;
  869.   C := B;
  870.   A := B;
  871.   C := A;
  872.   B := C;
  873.   B := A;
  874.   C := B;
  875.   A := B;
  876.   C := A;
  877.   B := C;
  878.   B := A;
  879.   C := B;
  880.   A := B;
  881.   C := A;
  882.   B := C;
  883.   B := A;
  884.   C := B;
  885.   A := B;
  886.   C := A;
  887.   B := C;
  888.   B := A;
  889.   C := B;
  890.   A := B;
  891.   C := A;
  892.   B := C;
  893.   B := A;
  894.   C := B;
  895.   A := B;
  896.   C := A;
  897.   B := C;
  898.   B := A;
  899.   C := B;
  900.   A := B;
  901.   C := A;
  902.   B := C;
  903.   B := A;
  904.   C := B;
  905.   A := B;
  906.   C := A;
  907.   B := C;
  908.   B := A;
  909.   C := B;
  910.   A := B;
  911.   C := A;
  912.   B := C;
  913.   B := A;
  914.   C := B;
  915.   A := B;
  916.   C := A;
  917.   B := C;
  918.   B := A;
  919.   C := B;
  920.   A := B;
  921.   C := A;
  922.   B := C;
  923.   B := A;
  924.   C := B;
  925.   A := B;
  926.   C := A;
  927.   B := C;
  928.   B := A;
  929.   C := B;
  930.   A := B;
  931.   C := A;
  932.   B := C;
  933.   B := A;
  934.   C := B;
  935.   A := B;
  936.   C := A;
  937.   B := C;
  938.   B := A;
  939.   C := B;
  940.   A := B;
  941.   C := A;
  942.   B := C;
  943.   B := A;
  944.   C := B;
  945.   A := B;
  946.   C := A;
  947.   B := C;
  948.   B := A;
  949.   C := B;
  950.   A := B;
  951.   C := A;
  952.   B := C;
  953.   B := A;
  954.   C := B;
  955.   A := B;
  956.   C := A;
  957.   B := C;
  958.   B := A;
  959.   C := B;
  960.   A := B;
  961.   C := A;
  962.   B := C;
  963.   B := A;
  964.   C := B;
  965.   A := B;
  966.   C := A;
  967.   B := C;
  968.   B := A;
  969.   C := B;
  970.   A := B;
  971.   C := A;
  972.   B := C;
  973.   B := A;
  974.   C := B;
  975.   A := B;
  976.   C := A;
  977.   B := C;
  978.   B := A;
  979.   C := B;
  980.   A := B;
  981.   C := A;
  982.   B := C;
  983.   B := A;
  984.   C := B;
  985.   A := B;
  986.   C := A;
  987.   B := C;
  988.   B := A;
  989.   C := B;
  990.   A := B;
  991.   C := A;
  992.   B := C;
  993.   B := A;
  994.   C := B;
  995.   A := B;
  996.   C := A;
  997.   B := C;
  998.   B := A;
  999.   C := B;
  1000.   A := B;
  1001.   C := A;
  1002.   B := C;
  1003.   B := A;
  1004.   C := B;
  1005.   A := B;
  1006.   C := A;
  1007.   B := C;
  1008.   B := A;
  1009.   C := B;
  1010.   A := B;
  1011.   C := A;
  1012.   B := C;
  1013.   B := A;
  1014.   C := B;
  1015.   A := B;
  1016.   C := A;
  1017.   B := C;
  1018.   B := A;
  1019.   C := B;
  1020.   A := B;
  1021.   C := A;
  1022.   B := C;
  1023.   B := A;
  1024.   C := B;
  1025.   A := B;
  1026.   C := A;
  1027.   B := C;
  1028.   B := A;
  1029.   C := B;
  1030.   A := B;
  1031.   C := A;
  1032.   B := C;
  1033.   B := A;
  1034.   C := B;
  1035.   A := B;
  1036.   C := A;
  1037.   B := C;
  1038.   B := A;
  1039.   C := B;
  1040.   A := B;
  1041.   C := A;
  1042.   B := C;
  1043.   B := A;
  1044.   C := B;
  1045.   A := B;
  1046.   C := A;
  1047.   B := C;
  1048.   B := A;
  1049.   C := B;
  1050.   A := B;
  1051.   C := A;
  1052.   B := C;
  1053.   B := A;
  1054.   C := B;
  1055.   A := B;
  1056.   C := A;
  1057.   B := C;
  1058.   B := A;
  1059.   C := B;
  1060.   A := B;
  1061.   C := A;
  1062.   B := C;
  1063.   B := A;
  1064.   C := B;
  1065.   A := B;
  1066.   C := A;
  1067.   B := C;
  1068.   B := A;
  1069.   C := B;
  1070.   A := B;
  1071.   C := A;
  1072.   B := C;
  1073.   B := A;
  1074.   C := B;
  1075.   A := B;
  1076.   C := A;
  1077.   B := C;
  1078.   B := A;
  1079.   C := B;
  1080.   A := B;
  1081.   C := A;
  1082.   B := C;
  1083.   B := A;
  1084.   C := B;
  1085.   A := B;
  1086.   C := A;
  1087.   B := C;
  1088.   B := A;
  1089.   C := B;
  1090.   A := B;
  1091.   C := A;
  1092.   B := C;
  1093.   B := A;
  1094.   C := B;
  1095.   A := B;
  1096.   C := A;
  1097.   B := C;
  1098.   B := A;
  1099.   C := B;
  1100.   A := B;
  1101.   C := A;
  1102.   B := C;
  1103.   B := A;
  1104.   C := B;
  1105.   A := B;
  1106.   C := A;
  1107.   B := C;
  1108.   B := A;
  1109.   C := B;
  1110.   A := B;
  1111.   C := A;
  1112.   B := C;
  1113.   B := A;
  1114.   C := B;
  1115.   A := B;
  1116.   C := A;
  1117.   B := C;
  1118.   B := A;
  1119.   C := B;
  1120.   A := B;
  1121.   C := A;
  1122.   B := C;
  1123.   B := A;
  1124.   C := B;
  1125.   A := B;
  1126.   C := A;
  1127.   B := C;
  1128.   B := A;
  1129.   C := B;
  1130.   A := B;
  1131.   C := A;
  1132.   B := C;
  1133.   B := A;
  1134.   C := B;
  1135.   A := B;
  1136.   C := A;
  1137.   B := C;
  1138.   B := A;
  1139.   C := B;
  1140.   A := B;
  1141.   C := A;
  1142.   B := C;
  1143.   B := A;
  1144.   C := B;
  1145.   A := B;
  1146.   C := A;
  1147.   B := C;
  1148.   B := A;
  1149.   C := B;
  1150.   A := B;
  1151.   C := A;
  1152.   B := C;
  1153.   B := A;
  1154.   C := B;
  1155.   A := B;
  1156.   C := A;
  1157.   B := C;
  1158.   B := A;
  1159.   C := B;
  1160.   A := B;
  1161.   C := A;
  1162.   B := C;
  1163.   B := A;
  1164.   C := B;
  1165.   A := B;
  1166.   C := A;
  1167.   B := C;
  1168.   B := A;
  1169.   C := B;
  1170.   A := B;
  1171.   C := A;
  1172.   B := C;
  1173.   B := A;
  1174.   C := B;
  1175.   A := B;
  1176.   C := A;
  1177.   B := C;
  1178.   B := A;
  1179.   C := B;
  1180.   A := B;
  1181.   C := A;
  1182.   B := C;
  1183.  
  1184. end COMPD;
  1185. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  1186. --compe.txt
  1187. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  1188. procedure COMPE is
  1189.   A, B, C : INTEGER := 0;
  1190.  
  1191. begin
  1192. --  COMMENT
  1193.   B := A;
  1194. --  COMMENT
  1195.   C := B;
  1196. --  COMMENT
  1197.   A := B;
  1198. --  COMMENT
  1199.   C := A;
  1200. --  COMMENT
  1201.   B := C;
  1202. --  COMMENT
  1203.   B := A;
  1204. --  COMMENT
  1205.   C := B;
  1206. --  COMMENT
  1207.   A := B;
  1208. --  COMMENT
  1209.   C := A;
  1210. --  COMMENT
  1211.   B := C;
  1212. --  COMMENT
  1213.   B := A;
  1214. --  COMMENT
  1215.   C := B;
  1216. --  COMMENT
  1217.   A := B;
  1218. --  COMMENT
  1219.   C := A;
  1220. --  COMMENT
  1221.   B := C;
  1222. --  COMMENT
  1223.   B := A;
  1224. --  COMMENT
  1225.   C := B;
  1226. --  COMMENT
  1227.   A := B;
  1228. --  COMMENT
  1229.   C := A;
  1230. --  COMMENT
  1231.   B := C;
  1232. --  COMMENT
  1233.   B := A;
  1234. --  COMMENT
  1235.   C := B;
  1236. --  COMMENT
  1237.   A := B;
  1238. --  COMMENT
  1239.   C := A;
  1240. --  COMMENT
  1241.   B := C;
  1242. --  COMMENT
  1243.   B := A;
  1244. --  COMMENT
  1245.   C := B;
  1246. --  COMMENT
  1247.   A := B;
  1248. --  COMMENT
  1249.   C := A;
  1250. --  COMMENT
  1251.   B := C;
  1252. --  COMMENT
  1253.   B := A;
  1254. --  COMMENT
  1255.   C := B;
  1256. --  COMMENT
  1257.   A := B;
  1258. --  COMMENT
  1259.   C := A;
  1260. --  COMMENT
  1261.   B := C;
  1262. --  COMMENT
  1263.   B := A;
  1264. --  COMMENT
  1265.   C := B;
  1266. --  COMMENT
  1267.   A := B;
  1268. --  COMMENT
  1269.   C := A;
  1270. --  COMMENT
  1271.   B := C;
  1272. --  COMMENT
  1273.   B := A;
  1274. --  COMMENT
  1275.   C := B;
  1276. --  COMMENT
  1277.   A := B;
  1278. --  COMMENT
  1279.   C := A;
  1280. --  COMMENT
  1281.   B := C;
  1282. --  COMMENT
  1283.   B := A;
  1284. --  COMMENT
  1285.   C := B;
  1286. --  COMMENT
  1287.   A := B;
  1288. --  COMMENT
  1289.   C := A;
  1290. --  COMMENT
  1291.   B := C;
  1292. --  COMMENT
  1293.   B := A;
  1294. --  COMMENT
  1295.   C := B;
  1296. --  COMMENT
  1297.   A := B;
  1298. --  COMMENT
  1299.   C := A;
  1300. --  COMMENT
  1301.   B := C;
  1302. --  COMMENT
  1303.   B := A;
  1304. --  COMMENT
  1305.   C := B;
  1306. --  COMMENT
  1307.   A := B;
  1308. --  COMMENT
  1309.   C := A;
  1310. --  COMMENT
  1311.   B := C;
  1312. --  COMMENT
  1313.   B := A;
  1314. --  COMMENT
  1315.   C := B;
  1316. --  COMMENT
  1317.   A := B;
  1318. --  COMMENT
  1319.   C := A;
  1320. --  COMMENT
  1321.   B := C;
  1322. --  COMMENT
  1323.   B := A;
  1324. --  COMMENT
  1325.   C := B;
  1326. --  COMMENT
  1327.   A := B;
  1328. --  COMMENT
  1329.   C := A;
  1330. --  COMMENT
  1331.   B := C;
  1332. --  COMMENT
  1333.   B := A;
  1334. --  COMMENT
  1335.   C := B;
  1336. --  COMMENT
  1337.   A := B;
  1338. --  COMMENT
  1339.   C := A;
  1340. --  COMMENT
  1341.   B := C;
  1342. --  COMMENT
  1343.   B := A;
  1344. --  COMMENT
  1345.   C := B;
  1346. --  COMMENT
  1347.   A := B;
  1348. --  COMMENT
  1349.   C := A;
  1350. --  COMMENT
  1351.   B := C;
  1352. --  COMMENT
  1353.   B := A;
  1354. --  COMMENT
  1355.   C := B;
  1356. --  COMMENT
  1357.   A := B;
  1358. --  COMMENT
  1359.   C := A;
  1360. --  COMMENT
  1361.   B := C;
  1362. --  COMMENT
  1363.   B := A;
  1364. --  COMMENT
  1365.   C := B;
  1366. --  COMMENT
  1367.   A := B;
  1368. --  COMMENT
  1369.   C := A;
  1370. --  COMMENT
  1371.   B := C;
  1372. --  COMMENT
  1373.   B := A;
  1374. --  COMMENT
  1375.   C := B;
  1376. --  COMMENT
  1377.   A := B;
  1378. --  COMMENT
  1379.   C := A;
  1380. --  COMMENT
  1381.   B := C;
  1382. --  COMMENT
  1383.   B := A;
  1384. --  COMMENT
  1385.   C := B;
  1386. --  COMMENT
  1387.   A := B;
  1388. --  COMMENT
  1389.   C := A;
  1390. --  COMMENT
  1391.   B := C;
  1392. --  COMMENT
  1393.   B := A;
  1394. --  COMMENT
  1395.   C := B;
  1396. --  COMMENT
  1397.   A := B;
  1398. --  COMMENT
  1399.   C := A;
  1400. --  COMMENT
  1401.   B := C;
  1402. --  COMMENT
  1403.   B := A;
  1404. --  COMMENT
  1405.   C := B;
  1406. --  COMMENT
  1407.   A := B;
  1408. --  COMMENT
  1409.   C := A;
  1410. --  COMMENT
  1411.   B := C;
  1412. --  COMMENT
  1413.   B := A;
  1414. --  COMMENT
  1415.   C := B;
  1416. --  COMMENT
  1417.   A := B;
  1418. --  COMMENT
  1419.   C := A;
  1420. --  COMMENT
  1421.   B := C;
  1422. --  COMMENT
  1423.   B := A;
  1424. --  COMMENT
  1425.   C := B;
  1426. --  COMMENT
  1427.   A := B;
  1428. --  COMMENT
  1429.   C := A;
  1430. --  COMMENT
  1431.   B := C;
  1432. --  COMMENT
  1433.   B := A;
  1434. --  COMMENT
  1435.   C := B;
  1436. --  COMMENT
  1437.   A := B;
  1438. --  COMMENT
  1439.   C := A;
  1440. --  COMMENT
  1441.   B := C;
  1442. --  COMMENT
  1443.   B := A;
  1444. --  COMMENT
  1445.   C := B;
  1446. --  COMMENT
  1447.   A := B;
  1448. --  COMMENT
  1449.   C := A;
  1450. --  COMMENT
  1451.   B := C;
  1452. --  COMMENT
  1453.   B := A;
  1454. --  COMMENT
  1455.   C := B;
  1456. --  COMMENT
  1457.   A := B;
  1458. --  COMMENT
  1459.   C := A;
  1460. --  COMMENT
  1461.   B := C;
  1462. --  COMMENT
  1463.   B := A;
  1464. --  COMMENT
  1465.   C := B;
  1466. --  COMMENT
  1467.   A := B;
  1468. --  COMMENT
  1469.   C := A;
  1470. --  COMMENT
  1471.   B := C;
  1472. --  COMMENT
  1473.   B := A;
  1474. --  COMMENT
  1475.   C := B;
  1476. --  COMMENT
  1477.   A := B;
  1478. --  COMMENT
  1479.   C := A;
  1480. --  COMMENT
  1481.   B := C;
  1482. --  COMMENT
  1483.   B := A;
  1484. --  COMMENT
  1485.   C := B;
  1486. --  COMMENT
  1487.   A := B;
  1488. --  COMMENT
  1489.   C := A;
  1490. --  COMMENT
  1491.   B := C;
  1492. --  COMMENT
  1493.   B := A;
  1494. --  COMMENT
  1495.   C := B;
  1496. --  COMMENT
  1497.   A := B;
  1498. --  COMMENT
  1499.   C := A;
  1500. --  COMMENT
  1501.   B := C;
  1502. --  COMMENT
  1503.   B := A;
  1504. --  COMMENT
  1505.   C := B;
  1506. --  COMMENT
  1507.   A := B;
  1508. --  COMMENT
  1509.   C := A;
  1510. --  COMMENT
  1511.   B := C;
  1512. --  COMMENT
  1513.   B := A;
  1514. --  COMMENT
  1515.   C := B;
  1516. --  COMMENT
  1517.   A := B;
  1518. --  COMMENT
  1519.   C := A;
  1520. --  COMMENT
  1521.   B := C;
  1522. --  COMMENT
  1523.   B := A;
  1524. --  COMMENT
  1525.   C := B;
  1526. --  COMMENT
  1527.   A := B;
  1528. --  COMMENT
  1529.   C := A;
  1530. --  COMMENT
  1531.   B := C;
  1532. --  COMMENT
  1533.   B := A;
  1534. --  COMMENT
  1535.   C := B;
  1536. --  COMMENT
  1537.   A := B;
  1538. --  COMMENT
  1539.   C := A;
  1540. --  COMMENT
  1541.   B := C;
  1542. --  COMMENT
  1543.   B := A;
  1544. --  COMMENT
  1545.   C := B;
  1546. --  COMMENT
  1547.   A := B;
  1548. --  COMMENT
  1549.   C := A;
  1550. --  COMMENT
  1551.   B := C;
  1552. --  COMMENT
  1553.   B := A;
  1554. --  COMMENT
  1555.   C := B;
  1556. --  COMMENT
  1557.   A := B;
  1558. --  COMMENT
  1559.   C := A;
  1560. --  COMMENT
  1561.   B := C;
  1562. --  COMMENT
  1563.   B := A;
  1564. --  COMMENT
  1565.   C := B;
  1566. --  COMMENT
  1567.   A := B;
  1568. --  COMMENT
  1569.   C := A;
  1570. --  COMMENT
  1571.   B := C;
  1572. --  COMMENT
  1573.   B := A;
  1574. --  COMMENT
  1575.   C := B;
  1576. --  COMMENT
  1577.   A := B;
  1578. --  COMMENT
  1579.   C := A;
  1580. --  COMMENT
  1581.   B := C;
  1582. --  COMMENT
  1583.   B := A;
  1584. --  COMMENT
  1585.   C := B;
  1586. --  COMMENT
  1587.   A := B;
  1588. --  COMMENT
  1589.   C := A;
  1590. --  COMMENT
  1591.   B := C;
  1592. --  COMMENT
  1593.   B := A;
  1594. --  COMMENT
  1595.   C := B;
  1596. --  COMMENT
  1597.   A := B;
  1598. --  COMMENT
  1599.   C := A;
  1600. --  COMMENT
  1601.   B := C;
  1602. --  COMMENT
  1603.   B := A;
  1604. --  COMMENT
  1605.   C := B;
  1606. --  COMMENT
  1607.   A := B;
  1608. --  COMMENT
  1609.   C := A;
  1610. --  COMMENT
  1611.   B := C;
  1612. --  COMMENT
  1613.   B := A;
  1614. --  COMMENT
  1615.   C := B;
  1616. --  COMMENT
  1617.   A := B;
  1618. --  COMMENT
  1619.   C := A;
  1620. --  COMMENT
  1621.   B := C;
  1622. --  COMMENT
  1623.   B := A;
  1624. --  COMMENT
  1625.   C := B;
  1626. --  COMMENT
  1627.   A := B;
  1628. --  COMMENT
  1629.   C := A;
  1630. --  COMMENT
  1631.   B := C;
  1632. --  COMMENT
  1633.   B := A;
  1634. --  COMMENT
  1635.   C := B;
  1636. --  COMMENT
  1637.   A := B;
  1638. --  COMMENT
  1639.   C := A;
  1640. --  COMMENT
  1641.   B := C;
  1642. --  COMMENT
  1643.   B := A;
  1644. --  COMMENT
  1645.   C := B;
  1646. --  COMMENT
  1647.   A := B;
  1648. --  COMMENT
  1649.   C := A;
  1650. --  COMMENT
  1651.   B := C;
  1652. --  COMMENT
  1653.   B := A;
  1654. --  COMMENT
  1655.   C := B;
  1656. --  COMMENT
  1657.   A := B;
  1658. --  COMMENT
  1659.   C := A;
  1660. --  COMMENT
  1661.   B := C;
  1662. --  COMMENT
  1663.   B := A;
  1664. --  COMMENT
  1665.   C := B;
  1666. --  COMMENT
  1667.   A := B;
  1668. --  COMMENT
  1669.   C := A;
  1670. --  COMMENT
  1671.   B := C;
  1672. --  COMMENT
  1673.   B := A;
  1674. --  COMMENT
  1675.   C := B;
  1676. --  COMMENT
  1677.   A := B;
  1678. --  COMMENT
  1679.   C := A;
  1680. --  COMMENT
  1681.   B := C;
  1682. --  COMMENT
  1683.   B := A;
  1684. --  COMMENT
  1685.   C := B;
  1686. --  COMMENT
  1687.   A := B;
  1688. --  COMMENT
  1689.   C := A;
  1690. --  COMMENT
  1691.   B := C;
  1692. --  COMMENT
  1693.   B := A;
  1694. --  COMMENT
  1695.   C := B;
  1696. --  COMMENT
  1697.   A := B;
  1698. --  COMMENT
  1699.   C := A;
  1700. --  COMMENT
  1701.   B := C;
  1702. --  COMMENT
  1703.   B := A;
  1704. --  COMMENT
  1705.   C := B;
  1706. --  COMMENT
  1707.   A := B;
  1708. --  COMMENT
  1709.   C := A;
  1710. --  COMMENT
  1711.   B := C;
  1712. --  COMMENT
  1713.   B := A;
  1714. --  COMMENT
  1715.   C := B;
  1716. --  COMMENT
  1717.   A := B;
  1718. --  COMMENT
  1719.   C := A;
  1720. --  COMMENT
  1721.   B := C;
  1722. --  COMMENT
  1723.   B := A;
  1724. --  COMMENT
  1725.   C := B;
  1726. --  COMMENT
  1727.   A := B;
  1728. --  COMMENT
  1729.   C := A;
  1730. --  COMMENT
  1731.   B := C;
  1732. --  COMMENT
  1733.   B := A;
  1734. --  COMMENT
  1735.   C := B;
  1736. --  COMMENT
  1737.   A := B;
  1738. --  COMMENT
  1739.   C := A;
  1740. --  COMMENT
  1741.   B := C;
  1742. --  COMMENT
  1743.   B := A;
  1744. --  COMMENT
  1745.   C := B;
  1746. --  COMMENT
  1747.   A := B;
  1748. --  COMMENT
  1749.   C := A;
  1750. --  COMMENT
  1751.   B := C;
  1752. --  COMMENT
  1753.   B := A;
  1754. --  COMMENT
  1755.   C := B;
  1756. --  COMMENT
  1757.   A := B;
  1758. --  COMMENT
  1759.   C := A;
  1760. --  COMMENT
  1761.   B := C;
  1762. --  COMMENT
  1763.   B := A;
  1764. --  COMMENT
  1765.   C := B;
  1766. --  COMMENT
  1767.   A := B;
  1768. --  COMMENT
  1769.   C := A;
  1770. --  COMMENT
  1771.   B := C;
  1772. --  COMMENT
  1773.   B := A;
  1774. --  COMMENT
  1775.   C := B;
  1776. --  COMMENT
  1777.   A := B;
  1778. --  COMMENT
  1779.   C := A;
  1780. --  COMMENT
  1781.   B := C;
  1782. --  COMMENT
  1783.   B := A;
  1784. --  COMMENT
  1785.   C := B;
  1786. --  COMMENT
  1787.   A := B;
  1788. --  COMMENT
  1789.   C := A;
  1790. --  COMMENT
  1791.   B := C;
  1792. --  COMMENT
  1793.   B := A;
  1794. --  COMMENT
  1795.   C := B;
  1796. --  COMMENT
  1797.   A := B;
  1798. --  COMMENT
  1799.   C := A;
  1800. --  COMMENT
  1801.   B := C;
  1802. --  COMMENT
  1803.   B := A;
  1804. --  COMMENT
  1805.   C := B;
  1806. --  COMMENT
  1807.   A := B;
  1808. --  COMMENT
  1809.   C := A;
  1810. --  COMMENT
  1811.   B := C;
  1812. --  COMMENT
  1813.   B := A;
  1814. --  COMMENT
  1815.   C := B;
  1816. --  COMMENT
  1817.   A := B;
  1818. --  COMMENT
  1819.   C := A;
  1820. --  COMMENT
  1821.   B := C;
  1822. --  COMMENT
  1823.   B := A;
  1824. --  COMMENT
  1825.   C := B;
  1826. --  COMMENT
  1827.   A := B;
  1828. --  COMMENT
  1829.   C := A;
  1830. --  COMMENT
  1831.   B := C;
  1832. --  COMMENT
  1833.   B := A;
  1834. --  COMMENT
  1835.   C := B;
  1836. --  COMMENT
  1837.   A := B;
  1838. --  COMMENT
  1839.   C := A;
  1840. --  COMMENT
  1841.   B := C;
  1842. --  COMMENT
  1843.   B := A;
  1844. --  COMMENT
  1845.   C := B;
  1846. --  COMMENT
  1847.   A := B;
  1848. --  COMMENT
  1849.   C := A;
  1850. --  COMMENT
  1851.   B := C;
  1852. --  COMMENT
  1853.   B := A;
  1854. --  COMMENT
  1855.   C := B;
  1856. --  COMMENT
  1857.   A := B;
  1858. --  COMMENT
  1859.   C := A;
  1860. --  COMMENT
  1861.   B := C;
  1862. --  COMMENT
  1863.   B := A;
  1864. --  COMMENT
  1865.   C := B;
  1866. --  COMMENT
  1867.   A := B;
  1868. --  COMMENT
  1869.   C := A;
  1870. --  COMMENT
  1871.   B := C;
  1872. --  COMMENT
  1873.   B := A;
  1874. --  COMMENT
  1875.   C := B;
  1876. --  COMMENT
  1877.   A := B;
  1878. --  COMMENT
  1879.   C := A;
  1880. --  COMMENT
  1881.   B := C;
  1882. --  COMMENT
  1883.   B := A;
  1884. --  COMMENT
  1885.   C := B;
  1886. --  COMMENT
  1887.   A := B;
  1888. --  COMMENT
  1889.   C := A;
  1890. --  COMMENT
  1891.   B := C;
  1892. --  COMMENT
  1893.   B := A;
  1894. --  COMMENT
  1895.   C := B;
  1896. --  COMMENT
  1897.   A := B;
  1898. --  COMMENT
  1899.   C := A;
  1900. --  COMMENT
  1901.   B := C;
  1902. --  COMMENT
  1903.   B := A;
  1904. --  COMMENT
  1905.   C := B;
  1906. --  COMMENT
  1907.   A := B;
  1908. --  COMMENT
  1909.   C := A;
  1910. --  COMMENT
  1911.   B := C;
  1912. --  COMMENT
  1913.   B := A;
  1914. --  COMMENT
  1915.   C := B;
  1916. --  COMMENT
  1917.   A := B;
  1918. --  COMMENT
  1919.   C := A;
  1920. --  COMMENT
  1921.   B := C;
  1922. --  COMMENT
  1923.   B := A;
  1924. --  COMMENT
  1925.   C := B;
  1926. --  COMMENT
  1927.   A := B;
  1928. --  COMMENT
  1929.   C := A;
  1930. --  COMMENT
  1931.   B := C;
  1932. --  COMMENT
  1933.   B := A;
  1934. --  COMMENT
  1935.   C := B;
  1936. --  COMMENT
  1937.   A := B;
  1938. --  COMMENT
  1939.   C := A;
  1940. --  COMMENT
  1941.   B := C;
  1942. --  COMMENT
  1943.   B := A;
  1944. --  COMMENT
  1945.   C := B;
  1946. --  COMMENT
  1947.   A := B;
  1948. --  COMMENT
  1949.   C := A;
  1950. --  COMMENT
  1951.   B := C;
  1952. --  COMMENT
  1953.   B := A;
  1954. --  COMMENT
  1955.   C := B;
  1956. --  COMMENT
  1957.   A := B;
  1958. --  COMMENT
  1959.   C := A;
  1960. --  COMMENT
  1961.   B := C;
  1962. --  COMMENT
  1963.   B := A;
  1964. --  COMMENT
  1965.   C := B;
  1966. --  COMMENT
  1967.   A := B;
  1968. --  COMMENT
  1969.   C := A;
  1970. --  COMMENT
  1971.   B := C;
  1972. --  COMMENT
  1973.   B := A;
  1974. --  COMMENT
  1975.   C := B;
  1976. --  COMMENT
  1977.   A := B;
  1978. --  COMMENT
  1979.   C := A;
  1980. --  COMMENT
  1981.   B := C;
  1982. --  COMMENT
  1983.   B := A;
  1984. --  COMMENT
  1985.   C := B;
  1986. --  COMMENT
  1987.   A := B;
  1988. --  COMMENT
  1989.   C := A;
  1990. --  COMMENT
  1991.   B := C;
  1992. --  COMMENT
  1993.   B := A;
  1994. --  COMMENT
  1995.   C := B;
  1996. --  COMMENT
  1997.   A := B;
  1998. --  COMMENT
  1999.   C := A;
  2000. --  COMMENT
  2001.   B := C;
  2002. --  COMMENT
  2003.   B := A;
  2004. --  COMMENT
  2005.   C := B;
  2006. --  COMMENT
  2007.   A := B;
  2008. --  COMMENT
  2009.   C := A;
  2010. --  COMMENT
  2011.   B := C;
  2012. --  COMMENT
  2013.   B := A;
  2014. --  COMMENT
  2015.   C := B;
  2016. --  COMMENT
  2017.   A := B;
  2018. --  COMMENT
  2019.   C := A;
  2020. --  COMMENT
  2021.   B := C;
  2022. --  COMMENT
  2023.   B := A;
  2024. --  COMMENT
  2025.   C := B;
  2026. --  COMMENT
  2027.   A := B;
  2028. --  COMMENT
  2029.   C := A;
  2030. --  COMMENT
  2031.   B := C;
  2032. --  COMMENT
  2033.   B := A;
  2034. --  COMMENT
  2035.   C := B;
  2036. --  COMMENT
  2037.   A := B;
  2038. --  COMMENT
  2039.   C := A;
  2040. --  COMMENT
  2041.   B := C;
  2042. --  COMMENT
  2043.   B := A;
  2044. --  COMMENT
  2045.   C := B;
  2046. --  COMMENT
  2047.   A := B;
  2048. --  COMMENT
  2049.   C := A;
  2050. --  COMMENT
  2051.   B := C;
  2052. --  COMMENT
  2053.   B := A;
  2054. --  COMMENT
  2055.   C := B;
  2056. --  COMMENT
  2057.   A := B;
  2058. --  COMMENT
  2059.   C := A;
  2060. --  COMMENT
  2061.   B := C;
  2062. --  COMMENT
  2063.   B := A;
  2064. --  COMMENT
  2065.   C := B;
  2066. --  COMMENT
  2067.   A := B;
  2068. --  COMMENT
  2069.   C := A;
  2070. --  COMMENT
  2071.   B := C;
  2072. --  COMMENT
  2073.   B := A;
  2074. --  COMMENT
  2075.   C := B;
  2076. --  COMMENT
  2077.   A := B;
  2078. --  COMMENT
  2079.   C := A;
  2080. --  COMMENT
  2081.   B := C;
  2082. --  COMMENT
  2083.   B := A;
  2084. --  COMMENT
  2085.   C := B;
  2086. --  COMMENT
  2087.   A := B;
  2088. --  COMMENT
  2089.   C := A;
  2090. --  COMMENT
  2091.   B := C;
  2092. --  COMMENT
  2093.   B := A;
  2094. --  COMMENT
  2095.   C := B;
  2096. --  COMMENT
  2097.   A := B;
  2098. --  COMMENT
  2099.   C := A;
  2100. --  COMMENT
  2101.   B := C;
  2102. --  COMMENT
  2103.   B := A;
  2104. --  COMMENT
  2105.   C := B;
  2106. --  COMMENT
  2107.   A := B;
  2108. --  COMMENT
  2109.   C := A;
  2110. --  COMMENT
  2111.   B := C;
  2112. --  COMMENT
  2113.   B := A;
  2114. --  COMMENT
  2115.   C := B;
  2116. --  COMMENT
  2117.   A := B;
  2118. --  COMMENT
  2119.   C := A;
  2120. --  COMMENT
  2121.   B := C;
  2122. --  COMMENT
  2123.   B := A;
  2124. --  COMMENT
  2125.   C := B;
  2126. --  COMMENT
  2127.   A := B;
  2128. --  COMMENT
  2129.   C := A;
  2130. --  COMMENT
  2131.   B := C;
  2132. --  COMMENT
  2133.   B := A;
  2134. --  COMMENT
  2135.   C := B;
  2136. --  COMMENT
  2137.   A := B;
  2138. --  COMMENT
  2139.   C := A;
  2140. --  COMMENT
  2141.   B := C;
  2142. --  COMMENT
  2143.   B := A;
  2144. --  COMMENT
  2145.   C := B;
  2146. --  COMMENT
  2147.   A := B;
  2148. --  COMMENT
  2149.   C := A;
  2150. --  COMMENT
  2151.   B := C;
  2152. --  COMMENT
  2153.   B := A;
  2154. --  COMMENT
  2155.   C := B;
  2156. --  COMMENT
  2157.   A := B;
  2158. --  COMMENT
  2159.   C := A;
  2160. --  COMMENT
  2161.   B := C;
  2162. --  COMMENT
  2163.   B := A;
  2164. --  COMMENT
  2165.   C := B;
  2166. --  COMMENT
  2167.   A := B;
  2168. --  COMMENT
  2169.   C := A;
  2170. --  COMMENT
  2171.   B := C;
  2172. --  COMMENT
  2173.   B := A;
  2174. --  COMMENT
  2175.   C := B;
  2176. --  COMMENT
  2177.   A := B;
  2178. --  COMMENT
  2179.   C := A;
  2180. --  COMMENT
  2181.   B := C;
  2182. --  COMMENT
  2183.   B := A;
  2184. --  COMMENT
  2185.   C := B;
  2186. --  COMMENT
  2187.   A := B;
  2188. --  COMMENT
  2189.   C := A;
  2190. --  COMMENT
  2191.   B := C;
  2192.  
  2193. end COMPE;
  2194. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2195. --compf.txt
  2196. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2197. procedure COMPF is
  2198.   A, B, C : INTEGER := 0;
  2199.  
  2200. begin
  2201. --  COMMENT
  2202. --  COMMENT
  2203. --  COMMENT
  2204. --  COMMENT
  2205. --  COMMENT
  2206. --  COMMENT
  2207. --  COMMENT
  2208. --  COMMENT
  2209. --  COMMENT
  2210. --  COMMENT
  2211. --  COMMENT
  2212. --  COMMENT
  2213. --  COMMENT
  2214. --  COMMENT
  2215. --  COMMENT
  2216. --  COMMENT
  2217. --  COMMENT
  2218. --  COMMENT
  2219. --  COMMENT
  2220. --  COMMENT
  2221. --  COMMENT
  2222. --  COMMENT
  2223. --  COMMENT
  2224. --  COMMENT
  2225. --  COMMENT
  2226. --  COMMENT
  2227. --  COMMENT
  2228. --  COMMENT
  2229. --  COMMENT
  2230. --  COMMENT
  2231. --  COMMENT
  2232. --  COMMENT
  2233. --  COMMENT
  2234. --  COMMENT
  2235. --  COMMENT
  2236. --  COMMENT
  2237. --  COMMENT
  2238. --  COMMENT
  2239. --  COMMENT
  2240. --  COMMENT
  2241. --  COMMENT
  2242. --  COMMENT
  2243. --  COMMENT
  2244. --  COMMENT
  2245. --  COMMENT
  2246. --  COMMENT
  2247. --  COMMENT
  2248. --  COMMENT
  2249. --  COMMENT
  2250. --  COMMENT
  2251. --  COMMENT
  2252. --  COMMENT
  2253. --  COMMENT
  2254. --  COMMENT
  2255. --  COMMENT
  2256. --  COMMENT
  2257. --  COMMENT
  2258. --  COMMENT
  2259. --  COMMENT
  2260. --  COMMENT
  2261. --  COMMENT
  2262. --  COMMENT
  2263. --  COMMENT
  2264. --  COMMENT
  2265. --  COMMENT
  2266. --  COMMENT
  2267. --  COMMENT
  2268. --  COMMENT
  2269. --  COMMENT
  2270. --  COMMENT
  2271. --  COMMENT
  2272. --  COMMENT
  2273. --  COMMENT
  2274. --  COMMENT
  2275. --  COMMENT
  2276. --  COMMENT
  2277. --  COMMENT
  2278. --  COMMENT
  2279. --  COMMENT
  2280. --  COMMENT
  2281. --  COMMENT
  2282. --  COMMENT
  2283. --  COMMENT
  2284. --  COMMENT
  2285. --  COMMENT
  2286. --  COMMENT
  2287. --  COMMENT
  2288. --  COMMENT
  2289. --  COMMENT
  2290. --  COMMENT
  2291. --  COMMENT
  2292. --  COMMENT
  2293. --  COMMENT
  2294. --  COMMENT
  2295. --  COMMENT
  2296. --  COMMENT
  2297. --  COMMENT
  2298. --  COMMENT
  2299. --  COMMENT
  2300. --  COMMENT
  2301. --  COMMENT
  2302. --  COMMENT
  2303. --  COMMENT
  2304. --  COMMENT
  2305. --  COMMENT
  2306. --  COMMENT
  2307. --  COMMENT
  2308. --  COMMENT
  2309. --  COMMENT
  2310. --  COMMENT
  2311. --  COMMENT
  2312. --  COMMENT
  2313. --  COMMENT
  2314. --  COMMENT
  2315. --  COMMENT
  2316. --  COMMENT
  2317. --  COMMENT
  2318. --  COMMENT
  2319. --  COMMENT
  2320. --  COMMENT
  2321. --  COMMENT
  2322. --  COMMENT
  2323. --  COMMENT
  2324. --  COMMENT
  2325. --  COMMENT
  2326. --  COMMENT
  2327. --  COMMENT
  2328. --  COMMENT
  2329. --  COMMENT
  2330. --  COMMENT
  2331. --  COMMENT
  2332. --  COMMENT
  2333. --  COMMENT
  2334. --  COMMENT
  2335. --  COMMENT
  2336. --  COMMENT
  2337. --  COMMENT
  2338. --  COMMENT
  2339. --  COMMENT
  2340. --  COMMENT
  2341. --  COMMENT
  2342. --  COMMENT
  2343. --  COMMENT
  2344. --  COMMENT
  2345. --  COMMENT
  2346. --  COMMENT
  2347. --  COMMENT
  2348. --  COMMENT
  2349. --  COMMENT
  2350. --  COMMENT
  2351. --  COMMENT
  2352. --  COMMENT
  2353. --  COMMENT
  2354. --  COMMENT
  2355. --  COMMENT
  2356. --  COMMENT
  2357. --  COMMENT
  2358. --  COMMENT
  2359. --  COMMENT
  2360. --  COMMENT
  2361. --  COMMENT
  2362. --  COMMENT
  2363. --  COMMENT
  2364. --  COMMENT
  2365. --  COMMENT
  2366. --  COMMENT
  2367. --  COMMENT
  2368. --  COMMENT
  2369. --  COMMENT
  2370. --  COMMENT
  2371. --  COMMENT
  2372. --  COMMENT
  2373. --  COMMENT
  2374. --  COMMENT
  2375. --  COMMENT
  2376. --  COMMENT
  2377. --  COMMENT
  2378. --  COMMENT
  2379. --  COMMENT
  2380. --  COMMENT
  2381. --  COMMENT
  2382. --  COMMENT
  2383. --  COMMENT
  2384. --  COMMENT
  2385. --  COMMENT
  2386. --  COMMENT
  2387. --  COMMENT
  2388. --  COMMENT
  2389. --  COMMENT
  2390. --  COMMENT
  2391. --  COMMENT
  2392. --  COMMENT
  2393. --  COMMENT
  2394. --  COMMENT
  2395. --  COMMENT
  2396. --  COMMENT
  2397. --  COMMENT
  2398. --  COMMENT
  2399. --  COMMENT
  2400. --  COMMENT
  2401. --  COMMENT
  2402. --  COMMENT
  2403. --  COMMENT
  2404. --  COMMENT
  2405. --  COMMENT
  2406. --  COMMENT
  2407. --  COMMENT
  2408. --  COMMENT
  2409. --  COMMENT
  2410. --  COMMENT
  2411. --  COMMENT
  2412. --  COMMENT
  2413. --  COMMENT
  2414. --  COMMENT
  2415. --  COMMENT
  2416. --  COMMENT
  2417. --  COMMENT
  2418. --  COMMENT
  2419. --  COMMENT
  2420. --  COMMENT
  2421. --  COMMENT
  2422. --  COMMENT
  2423. --  COMMENT
  2424. --  COMMENT
  2425. --  COMMENT
  2426. --  COMMENT
  2427. --  COMMENT
  2428. --  COMMENT
  2429. --  COMMENT
  2430. --  COMMENT
  2431. --  COMMENT
  2432. --  COMMENT
  2433. --  COMMENT
  2434. --  COMMENT
  2435. --  COMMENT
  2436. --  COMMENT
  2437. --  COMMENT
  2438. --  COMMENT
  2439. --  COMMENT
  2440. --  COMMENT
  2441. --  COMMENT
  2442. --  COMMENT
  2443. --  COMMENT
  2444. --  COMMENT
  2445. --  COMMENT
  2446. --  COMMENT
  2447. --  COMMENT
  2448. --  COMMENT
  2449. --  COMMENT
  2450. --  COMMENT
  2451. --  COMMENT
  2452. --  COMMENT
  2453. --  COMMENT
  2454. --  COMMENT
  2455. --  COMMENT
  2456. --  COMMENT
  2457. --  COMMENT
  2458. --  COMMENT
  2459. --  COMMENT
  2460. --  COMMENT
  2461. --  COMMENT
  2462. --  COMMENT
  2463. --  COMMENT
  2464. --  COMMENT
  2465. --  COMMENT
  2466. --  COMMENT
  2467. --  COMMENT
  2468. --  COMMENT
  2469. --  COMMENT
  2470. --  COMMENT
  2471. --  COMMENT
  2472. --  COMMENT
  2473. --  COMMENT
  2474. --  COMMENT
  2475. --  COMMENT
  2476. --  COMMENT
  2477. --  COMMENT
  2478. --  COMMENT
  2479. --  COMMENT
  2480. --  COMMENT
  2481. --  COMMENT
  2482. --  COMMENT
  2483. --  COMMENT
  2484. --  COMMENT
  2485. --  COMMENT
  2486. --  COMMENT
  2487. --  COMMENT
  2488. --  COMMENT
  2489. --  COMMENT
  2490. --  COMMENT
  2491. --  COMMENT
  2492. --  COMMENT
  2493. --  COMMENT
  2494. --  COMMENT
  2495. --  COMMENT
  2496. --  COMMENT
  2497. --  COMMENT
  2498. --  COMMENT
  2499. --  COMMENT
  2500. --  COMMENT
  2501. --  COMMENT
  2502. --  COMMENT
  2503. --  COMMENT
  2504. --  COMMENT
  2505. --  COMMENT
  2506. --  COMMENT
  2507. --  COMMENT
  2508. --  COMMENT
  2509. --  COMMENT
  2510. --  COMMENT
  2511. --  COMMENT
  2512. --  COMMENT
  2513. --  COMMENT
  2514. --  COMMENT
  2515. --  COMMENT
  2516. --  COMMENT
  2517. --  COMMENT
  2518. --  COMMENT
  2519. --  COMMENT
  2520. --  COMMENT
  2521. --  COMMENT
  2522. --  COMMENT
  2523. --  COMMENT
  2524. --  COMMENT
  2525. --  COMMENT
  2526. --  COMMENT
  2527. --  COMMENT
  2528. --  COMMENT
  2529. --  COMMENT
  2530. --  COMMENT
  2531. --  COMMENT
  2532. --  COMMENT
  2533. --  COMMENT
  2534. --  COMMENT
  2535. --  COMMENT
  2536. --  COMMENT
  2537. --  COMMENT
  2538. --  COMMENT
  2539. --  COMMENT
  2540. --  COMMENT
  2541. --  COMMENT
  2542. --  COMMENT
  2543. --  COMMENT
  2544. --  COMMENT
  2545. --  COMMENT
  2546. --  COMMENT
  2547. --  COMMENT
  2548. --  COMMENT
  2549. --  COMMENT
  2550. --  COMMENT
  2551. --  COMMENT
  2552. --  COMMENT
  2553. --  COMMENT
  2554. --  COMMENT
  2555. --  COMMENT
  2556. --  COMMENT
  2557. --  COMMENT
  2558. --  COMMENT
  2559. --  COMMENT
  2560. --  COMMENT
  2561. --  COMMENT
  2562. --  COMMENT
  2563. --  COMMENT
  2564. --  COMMENT
  2565. --  COMMENT
  2566. --  COMMENT
  2567. --  COMMENT
  2568. --  COMMENT
  2569. --  COMMENT
  2570. --  COMMENT
  2571. --  COMMENT
  2572. --  COMMENT
  2573. --  COMMENT
  2574. --  COMMENT
  2575. --  COMMENT
  2576. --  COMMENT
  2577. --  COMMENT
  2578. --  COMMENT
  2579. --  COMMENT
  2580. --  COMMENT
  2581. --  COMMENT
  2582. --  COMMENT
  2583. --  COMMENT
  2584. --  COMMENT
  2585. --  COMMENT
  2586. --  COMMENT
  2587. --  COMMENT
  2588. --  COMMENT
  2589. --  COMMENT
  2590. --  COMMENT
  2591. --  COMMENT
  2592. --  COMMENT
  2593. --  COMMENT
  2594. --  COMMENT
  2595. --  COMMENT
  2596. --  COMMENT
  2597. --  COMMENT
  2598. --  COMMENT
  2599. --  COMMENT
  2600. --  COMMENT
  2601. --  COMMENT
  2602. --  COMMENT
  2603. --  COMMENT
  2604. --  COMMENT
  2605. --  COMMENT
  2606. --  COMMENT
  2607. --  COMMENT
  2608. --  COMMENT
  2609. --  COMMENT
  2610. --  COMMENT
  2611. --  COMMENT
  2612. --  COMMENT
  2613. --  COMMENT
  2614. --  COMMENT
  2615. --  COMMENT
  2616. --  COMMENT
  2617. --  COMMENT
  2618. --  COMMENT
  2619. --  COMMENT
  2620. --  COMMENT
  2621. --  COMMENT
  2622. --  COMMENT
  2623. --  COMMENT
  2624. --  COMMENT
  2625. --  COMMENT
  2626. --  COMMENT
  2627. --  COMMENT
  2628. --  COMMENT
  2629. --  COMMENT
  2630. --  COMMENT
  2631. --  COMMENT
  2632. --  COMMENT
  2633. --  COMMENT
  2634. --  COMMENT
  2635. --  COMMENT
  2636. --  COMMENT
  2637. --  COMMENT
  2638. --  COMMENT
  2639. --  COMMENT
  2640. --  COMMENT
  2641. --  COMMENT
  2642. --  COMMENT
  2643. --  COMMENT
  2644. --  COMMENT
  2645. --  COMMENT
  2646. --  COMMENT
  2647. --  COMMENT
  2648. --  COMMENT
  2649. --  COMMENT
  2650. --  COMMENT
  2651. --  COMMENT
  2652. --  COMMENT
  2653. --  COMMENT
  2654. --  COMMENT
  2655. --  COMMENT
  2656. --  COMMENT
  2657. --  COMMENT
  2658. --  COMMENT
  2659. --  COMMENT
  2660. --  COMMENT
  2661. --  COMMENT
  2662. --  COMMENT
  2663. --  COMMENT
  2664. --  COMMENT
  2665. --  COMMENT
  2666. --  COMMENT
  2667. --  COMMENT
  2668. --  COMMENT
  2669. --  COMMENT
  2670. --  COMMENT
  2671. --  COMMENT
  2672. --  COMMENT
  2673. --  COMMENT
  2674. --  COMMENT
  2675. --  COMMENT
  2676. --  COMMENT
  2677. --  COMMENT
  2678. --  COMMENT
  2679. --  COMMENT
  2680. --  COMMENT
  2681. --  COMMENT
  2682. --  COMMENT
  2683. --  COMMENT
  2684. --  COMMENT
  2685. --  COMMENT
  2686. --  COMMENT
  2687. --  COMMENT
  2688. --  COMMENT
  2689. --  COMMENT
  2690. --  COMMENT
  2691. --  COMMENT
  2692. --  COMMENT
  2693. --  COMMENT
  2694. --  COMMENT
  2695. --  COMMENT
  2696. --  COMMENT
  2697. --  COMMENT
  2698. --  COMMENT
  2699. --  COMMENT
  2700. --  COMMENT
  2701.   B := A;
  2702.   C := B;
  2703.   A := B;
  2704.   C := A;
  2705.   B := C;
  2706.   B := A;
  2707.   C := B;
  2708.   A := B;
  2709.   C := A;
  2710.   B := C;
  2711.   B := A;
  2712.   C := B;
  2713.   A := B;
  2714.   C := A;
  2715.   B := C;
  2716.   B := A;
  2717.   C := B;
  2718.   A := B;
  2719.   C := A;
  2720.   B := C;
  2721.   B := A;
  2722.   C := B;
  2723.   A := B;
  2724.   C := A;
  2725.   B := C;
  2726.   B := A;
  2727.   C := B;
  2728.   A := B;
  2729.   C := A;
  2730.   B := C;
  2731.   B := A;
  2732.   C := B;
  2733.   A := B;
  2734.   C := A;
  2735.   B := C;
  2736.   B := A;
  2737.   C := B;
  2738.   A := B;
  2739.   C := A;
  2740.   B := C;
  2741.   B := A;
  2742.   C := B;
  2743.   A := B;
  2744.   C := A;
  2745.   B := C;
  2746.   B := A;
  2747.   C := B;
  2748.   A := B;
  2749.   C := A;
  2750.   B := C;
  2751.   B := A;
  2752.   C := B;
  2753.   A := B;
  2754.   C := A;
  2755.   B := C;
  2756.   B := A;
  2757.   C := B;
  2758.   A := B;
  2759.   C := A;
  2760.   B := C;
  2761.   B := A;
  2762.   C := B;
  2763.   A := B;
  2764.   C := A;
  2765.   B := C;
  2766.   B := A;
  2767.   C := B;
  2768.   A := B;
  2769.   C := A;
  2770.   B := C;
  2771.   B := A;
  2772.   C := B;
  2773.   A := B;
  2774.   C := A;
  2775.   B := C;
  2776.   B := A;
  2777.   C := B;
  2778.   A := B;
  2779.   C := A;
  2780.   B := C;
  2781.   B := A;
  2782.   C := B;
  2783.   A := B;
  2784.   C := A;
  2785.   B := C;
  2786.   B := A;
  2787.   C := B;
  2788.   A := B;
  2789.   C := A;
  2790.   B := C;
  2791.   B := A;
  2792.   C := B;
  2793.   A := B;
  2794.   C := A;
  2795.   B := C;
  2796.   B := A;
  2797.   C := B;
  2798.   A := B;
  2799.   C := A;
  2800.   B := C;
  2801.   B := A;
  2802.   C := B;
  2803.   A := B;
  2804.   C := A;
  2805.   B := C;
  2806.   B := A;
  2807.   C := B;
  2808.   A := B;
  2809.   C := A;
  2810.   B := C;
  2811.   B := A;
  2812.   C := B;
  2813.   A := B;
  2814.   C := A;
  2815.   B := C;
  2816.   B := A;
  2817.   C := B;
  2818.   A := B;
  2819.   C := A;
  2820.   B := C;
  2821.   B := A;
  2822.   C := B;
  2823.   A := B;
  2824.   C := A;
  2825.   B := C;
  2826.   B := A;
  2827.   C := B;
  2828.   A := B;
  2829.   C := A;
  2830.   B := C;
  2831.   B := A;
  2832.   C := B;
  2833.   A := B;
  2834.   C := A;
  2835.   B := C;
  2836.   B := A;
  2837.   C := B;
  2838.   A := B;
  2839.   C := A;
  2840.   B := C;
  2841.   B := A;
  2842.   C := B;
  2843.   A := B;
  2844.   C := A;
  2845.   B := C;
  2846.   B := A;
  2847.   C := B;
  2848.   A := B;
  2849.   C := A;
  2850.   B := C;
  2851.   B := A;
  2852.   C := B;
  2853.   A := B;
  2854.   C := A;
  2855.   B := C;
  2856.   B := A;
  2857.   C := B;
  2858.   A := B;
  2859.   C := A;
  2860.   B := C;
  2861.   B := A;
  2862.   C := B;
  2863.   A := B;
  2864.   C := A;
  2865.   B := C;
  2866.   B := A;
  2867.   C := B;
  2868.   A := B;
  2869.   C := A;
  2870.   B := C;
  2871.   B := A;
  2872.   C := B;
  2873.   A := B;
  2874.   C := A;
  2875.   B := C;
  2876.   B := A;
  2877.   C := B;
  2878.   A := B;
  2879.   C := A;
  2880.   B := C;
  2881.   B := A;
  2882.   C := B;
  2883.   A := B;
  2884.   C := A;
  2885.   B := C;
  2886.   B := A;
  2887.   C := B;
  2888.   A := B;
  2889.   C := A;
  2890.   B := C;
  2891.   B := A;
  2892.   C := B;
  2893.   A := B;
  2894.   C := A;
  2895.   B := C;
  2896.   B := A;
  2897.   C := B;
  2898.   A := B;
  2899.   C := A;
  2900.   B := C;
  2901.   B := A;
  2902.   C := B;
  2903.   A := B;
  2904.   C := A;
  2905.   B := C;
  2906.   B := A;
  2907.   C := B;
  2908.   A := B;
  2909.   C := A;
  2910.   B := C;
  2911.   B := A;
  2912.   C := B;
  2913.   A := B;
  2914.   C := A;
  2915.   B := C;
  2916.   B := A;
  2917.   C := B;
  2918.   A := B;
  2919.   C := A;
  2920.   B := C;
  2921.   B := A;
  2922.   C := B;
  2923.   A := B;
  2924.   C := A;
  2925.   B := C;
  2926.   B := A;
  2927.   C := B;
  2928.   A := B;
  2929.   C := A;
  2930.   B := C;
  2931.   B := A;
  2932.   C := B;
  2933.   A := B;
  2934.   C := A;
  2935.   B := C;
  2936.   B := A;
  2937.   C := B;
  2938.   A := B;
  2939.   C := A;
  2940.   B := C;
  2941.   B := A;
  2942.   C := B;
  2943.   A := B;
  2944.   C := A;
  2945.   B := C;
  2946.   B := A;
  2947.   C := B;
  2948.   A := B;
  2949.   C := A;
  2950.   B := C;
  2951.   B := A;
  2952.   C := B;
  2953.   A := B;
  2954.   C := A;
  2955.   B := C;
  2956.   B := A;
  2957.   C := B;
  2958.   A := B;
  2959.   C := A;
  2960.   B := C;
  2961.   B := A;
  2962.   C := B;
  2963.   A := B;
  2964.   C := A;
  2965.   B := C;
  2966.   B := A;
  2967.   C := B;
  2968.   A := B;
  2969.   C := A;
  2970.   B := C;
  2971.   B := A;
  2972.   C := B;
  2973.   A := B;
  2974.   C := A;
  2975.   B := C;
  2976.   B := A;
  2977.   C := B;
  2978.   A := B;
  2979.   C := A;
  2980.   B := C;
  2981.   B := A;
  2982.   C := B;
  2983.   A := B;
  2984.   C := A;
  2985.   B := C;
  2986.   B := A;
  2987.   C := B;
  2988.   A := B;
  2989.   C := A;
  2990.   B := C;
  2991.   B := A;
  2992.   C := B;
  2993.   A := B;
  2994.   C := A;
  2995.   B := C;
  2996.   B := A;
  2997.   C := B;
  2998.   A := B;
  2999.   C := A;
  3000.   B := C;
  3001.   B := A;
  3002.   C := B;
  3003.   A := B;
  3004.   C := A;
  3005.   B := C;
  3006.   B := A;
  3007.   C := B;
  3008.   A := B;
  3009.   C := A;
  3010.   B := C;
  3011.   B := A;
  3012.   C := B;
  3013.   A := B;
  3014.   C := A;
  3015.   B := C;
  3016.   B := A;
  3017.   C := B;
  3018.   A := B;
  3019.   C := A;
  3020.   B := C;
  3021.   B := A;
  3022.   C := B;
  3023.   A := B;
  3024.   C := A;
  3025.   B := C;
  3026.   B := A;
  3027.   C := B;
  3028.   A := B;
  3029.   C := A;
  3030.   B := C;
  3031.   B := A;
  3032.   C := B;
  3033.   A := B;
  3034.   C := A;
  3035.   B := C;
  3036.   B := A;
  3037.   C := B;
  3038.   A := B;
  3039.   C := A;
  3040.   B := C;
  3041.   B := A;
  3042.   C := B;
  3043.   A := B;
  3044.   C := A;
  3045.   B := C;
  3046.   B := A;
  3047.   C := B;
  3048.   A := B;
  3049.   C := A;
  3050.   B := C;
  3051.   B := A;
  3052.   C := B;
  3053.   A := B;
  3054.   C := A;
  3055.   B := C;
  3056.   B := A;
  3057.   C := B;
  3058.   A := B;
  3059.   C := A;
  3060.   B := C;
  3061.   B := A;
  3062.   C := B;
  3063.   A := B;
  3064.   C := A;
  3065.   B := C;
  3066.   B := A;
  3067.   C := B;
  3068.   A := B;
  3069.   C := A;
  3070.   B := C;
  3071.   B := A;
  3072.   C := B;
  3073.   A := B;
  3074.   C := A;
  3075.   B := C;
  3076.   B := A;
  3077.   C := B;
  3078.   A := B;
  3079.   C := A;
  3080.   B := C;
  3081.   B := A;
  3082.   C := B;
  3083.   A := B;
  3084.   C := A;
  3085.   B := C;
  3086.   B := A;
  3087.   C := B;
  3088.   A := B;
  3089.   C := A;
  3090.   B := C;
  3091.   B := A;
  3092.   C := B;
  3093.   A := B;
  3094.   C := A;
  3095.   B := C;
  3096.   B := A;
  3097.   C := B;
  3098.   A := B;
  3099.   C := A;
  3100.   B := C;
  3101.   B := A;
  3102.   C := B;
  3103.   A := B;
  3104.   C := A;
  3105.   B := C;
  3106.   B := A;
  3107.   C := B;
  3108.   A := B;
  3109.   C := A;
  3110.   B := C;
  3111.   B := A;
  3112.   C := B;
  3113.   A := B;
  3114.   C := A;
  3115.   B := C;
  3116.   B := A;
  3117.   C := B;
  3118.   A := B;
  3119.   C := A;
  3120.   B := C;
  3121.   B := A;
  3122.   C := B;
  3123.   A := B;
  3124.   C := A;
  3125.   B := C;
  3126.   B := A;
  3127.   C := B;
  3128.   A := B;
  3129.   C := A;
  3130.   B := C;
  3131.   B := A;
  3132.   C := B;
  3133.   A := B;
  3134.   C := A;
  3135.   B := C;
  3136.   B := A;
  3137.   C := B;
  3138.   A := B;
  3139.   C := A;
  3140.   B := C;
  3141.   B := A;
  3142.   C := B;
  3143.   A := B;
  3144.   C := A;
  3145.   B := C;
  3146.   B := A;
  3147.   C := B;
  3148.   A := B;
  3149.   C := A;
  3150.   B := C;
  3151.   B := A;
  3152.   C := B;
  3153.   A := B;
  3154.   C := A;
  3155.   B := C;
  3156.   B := A;
  3157.   C := B;
  3158.   A := B;
  3159.   C := A;
  3160.   B := C;
  3161.   B := A;
  3162.   C := B;
  3163.   A := B;
  3164.   C := A;
  3165.   B := C;
  3166.   B := A;
  3167.   C := B;
  3168.   A := B;
  3169.   C := A;
  3170.   B := C;
  3171.   B := A;
  3172.   C := B;
  3173.   A := B;
  3174.   C := A;
  3175.   B := C;
  3176.   B := A;
  3177.   C := B;
  3178.   A := B;
  3179.   C := A;
  3180.   B := C;
  3181.   B := A;
  3182.   C := B;
  3183.   A := B;
  3184.   C := A;
  3185.   B := C;
  3186.   B := A;
  3187.   C := B;
  3188.   A := B;
  3189.   C := A;
  3190.   B := C;
  3191.   B := A;
  3192.   C := B;
  3193.   A := B;
  3194.   C := A;
  3195.   B := C;
  3196.   B := A;
  3197.   C := B;
  3198.   A := B;
  3199.   C := A;
  3200.   B := C;
  3201.  
  3202. end COMPF;
  3203. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  3204. --compg.txt
  3205. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  3206. procedure COMPG is
  3207.   A, B, C : INTEGER := 0;
  3208.  
  3209. begin
  3210. --  COMMENT
  3211.   B := A;
  3212. --  COMMENT
  3213.   C := B;
  3214. --  COMMENT
  3215.   A := B;
  3216. --  COMMENT
  3217.   C := A;
  3218. --  COMMENT
  3219.   B := C;
  3220. --  COMMENT
  3221.   B := A;
  3222. --  COMMENT
  3223.   C := B;
  3224. --  COMMENT
  3225.   A := B;
  3226. --  COMMENT
  3227.   C := A;
  3228. --  COMMENT
  3229.   B := C;
  3230. --  COMMENT
  3231.   B := A;
  3232. --  COMMENT
  3233.   C := B;
  3234. --  COMMENT
  3235.   A := B;
  3236. --  COMMENT
  3237.   C := A;
  3238. --  COMMENT
  3239.   B := C;
  3240. --  COMMENT
  3241.   B := A;
  3242. --  COMMENT
  3243.   C := B;
  3244. --  COMMENT
  3245.   A := B;
  3246. --  COMMENT
  3247.   C := A;
  3248. --  COMMENT
  3249.   B := C;
  3250. --  COMMENT
  3251.   B := A;
  3252. --  COMMENT
  3253.   C := B;
  3254. --  COMMENT
  3255.   A := B;
  3256. --  COMMENT
  3257.   C := A;
  3258. --  COMMENT
  3259.   B := C;
  3260. --  COMMENT
  3261.   B := A;
  3262. --  COMMENT
  3263.   C := B;
  3264. --  COMMENT
  3265.   A := B;
  3266. --  COMMENT
  3267.   C := A;
  3268. --  COMMENT
  3269.   B := C;
  3270. --  COMMENT
  3271.   B := A;
  3272. --  COMMENT
  3273.   C := B;
  3274. --  COMMENT
  3275.   A := B;
  3276. --  COMMENT
  3277.   C := A;
  3278. --  COMMENT
  3279.   B := C;
  3280. --  COMMENT
  3281.   B := A;
  3282. --  COMMENT
  3283.   C := B;
  3284. --  COMMENT
  3285.   A := B;
  3286. --  COMMENT
  3287.   C := A;
  3288. --  COMMENT
  3289.   B := C;
  3290. --  COMMENT
  3291.   B := A;
  3292. --  COMMENT
  3293.   C := B;
  3294. --  COMMENT
  3295.   A := B;
  3296. --  COMMENT
  3297.   C := A;
  3298. --  COMMENT
  3299.   B := C;
  3300. --  COMMENT
  3301.   B := A;
  3302. --  COMMENT
  3303.   C := B;
  3304. --  COMMENT
  3305.   A := B;
  3306. --  COMMENT
  3307.   C := A;
  3308. --  COMMENT
  3309.   B := C;
  3310. --  COMMENT
  3311.   B := A;
  3312. --  COMMENT
  3313.   C := B;
  3314. --  COMMENT
  3315.   A := B;
  3316. --  COMMENT
  3317.   C := A;
  3318. --  COMMENT
  3319.   B := C;
  3320. --  COMMENT
  3321.   B := A;
  3322. --  COMMENT
  3323.   C := B;
  3324. --  COMMENT
  3325.   A := B;
  3326. --  COMMENT
  3327.   C := A;
  3328. --  COMMENT
  3329.   B := C;
  3330. --  COMMENT
  3331.   B := A;
  3332. --  COMMENT
  3333.   C := B;
  3334. --  COMMENT
  3335.   A := B;
  3336. --  COMMENT
  3337.   C := A;
  3338. --  COMMENT
  3339.   B := C;
  3340. --  COMMENT
  3341.   B := A;
  3342. --  COMMENT
  3343.   C := B;
  3344. --  COMMENT
  3345.   A := B;
  3346. --  COMMENT
  3347.   C := A;
  3348. --  COMMENT
  3349.   B := C;
  3350. --  COMMENT
  3351.   B := A;
  3352. --  COMMENT
  3353.   C := B;
  3354. --  COMMENT
  3355.   A := B;
  3356. --  COMMENT
  3357.   C := A;
  3358. --  COMMENT
  3359.   B := C;
  3360. --  COMMENT
  3361.   B := A;
  3362. --  COMMENT
  3363.   C := B;
  3364. --  COMMENT
  3365.   A := B;
  3366. --  COMMENT
  3367.   C := A;
  3368. --  COMMENT
  3369.   B := C;
  3370. --  COMMENT
  3371.   B := A;
  3372. --  COMMENT
  3373.   C := B;
  3374. --  COMMENT
  3375.   A := B;
  3376. --  COMMENT
  3377.   C := A;
  3378. --  COMMENT
  3379.   B := C;
  3380. --  COMMENT
  3381.   B := A;
  3382. --  COMMENT
  3383.   C := B;
  3384. --  COMMENT
  3385.   A := B;
  3386. --  COMMENT
  3387.   C := A;
  3388. --  COMMENT
  3389.   B := C;
  3390. --  COMMENT
  3391.   B := A;
  3392. --  COMMENT
  3393.   C := B;
  3394. --  COMMENT
  3395.   A := B;
  3396. --  COMMENT
  3397.   C := A;
  3398. --  COMMENT
  3399.   B := C;
  3400. --  COMMENT
  3401.   B := A;
  3402. --  COMMENT
  3403.   C := B;
  3404. --  COMMENT
  3405.   A := B;
  3406. --  COMMENT
  3407.   C := A;
  3408. --  COMMENT
  3409.   B := C;
  3410. --  COMMENT
  3411.   B := A;
  3412. --  COMMENT
  3413.   C := B;
  3414. --  COMMENT
  3415.   A := B;
  3416. --  COMMENT
  3417.   C := A;
  3418. --  COMMENT
  3419.   B := C;
  3420. --  COMMENT
  3421.   B := A;
  3422. --  COMMENT
  3423.   C := B;
  3424. --  COMMENT
  3425.   A := B;
  3426. --  COMMENT
  3427.   C := A;
  3428. --  COMMENT
  3429.   B := C;
  3430. --  COMMENT
  3431.   B := A;
  3432. --  COMMENT
  3433.   C := B;
  3434. --  COMMENT
  3435.   A := B;
  3436. --  COMMENT
  3437.   C := A;
  3438. --  COMMENT
  3439.   B := C;
  3440. --  COMMENT
  3441.   B := A;
  3442. --  COMMENT
  3443.   C := B;
  3444. --  COMMENT
  3445.   A := B;
  3446. --  COMMENT
  3447.   C := A;
  3448. --  COMMENT
  3449.   B := C;
  3450. --  COMMENT
  3451.   B := A;
  3452. --  COMMENT
  3453.   C := B;
  3454. --  COMMENT
  3455.   A := B;
  3456. --  COMMENT
  3457.   C := A;
  3458. --  COMMENT
  3459.   B := C;
  3460. --  COMMENT
  3461.   B := A;
  3462. --  COMMENT
  3463.   C := B;
  3464. --  COMMENT
  3465.   A := B;
  3466. --  COMMENT
  3467.   C := A;
  3468. --  COMMENT
  3469.   B := C;
  3470. --  COMMENT
  3471.   B := A;
  3472. --  COMMENT
  3473.   C := B;
  3474. --  COMMENT
  3475.   A := B;
  3476. --  COMMENT
  3477.   C := A;
  3478. --  COMMENT
  3479.   B := C;
  3480. --  COMMENT
  3481.   B := A;
  3482. --  COMMENT
  3483.   C := B;
  3484. --  COMMENT
  3485.   A := B;
  3486. --  COMMENT
  3487.   C := A;
  3488. --  COMMENT
  3489.   B := C;
  3490. --  COMMENT
  3491.   B := A;
  3492. --  COMMENT
  3493.   C := B;
  3494. --  COMMENT
  3495.   A := B;
  3496. --  COMMENT
  3497.   C := A;
  3498. --  COMMENT
  3499.   B := C;
  3500. --  COMMENT
  3501.   B := A;
  3502. --  COMMENT
  3503.   C := B;
  3504. --  COMMENT
  3505.   A := B;
  3506. --  COMMENT
  3507.   C := A;
  3508. --  COMMENT
  3509.   B := C;
  3510. --  COMMENT
  3511.   B := A;
  3512. --  COMMENT
  3513.   C := B;
  3514. --  COMMENT
  3515.   A := B;
  3516. --  COMMENT
  3517.   C := A;
  3518. --  COMMENT
  3519.   B := C;
  3520. --  COMMENT
  3521.   B := A;
  3522. --  COMMENT
  3523.   C := B;
  3524. --  COMMENT
  3525.   A := B;
  3526. --  COMMENT
  3527.   C := A;
  3528. --  COMMENT
  3529.   B := C;
  3530. --  COMMENT
  3531.   B := A;
  3532. --  COMMENT
  3533.   C := B;
  3534. --  COMMENT
  3535.   A := B;
  3536. --  COMMENT
  3537.   C := A;
  3538. --  COMMENT
  3539.   B := C;
  3540. --  COMMENT
  3541.   B := A;
  3542. --  COMMENT
  3543.   C := B;
  3544. --  COMMENT
  3545.   A := B;
  3546. --  COMMENT
  3547.   C := A;
  3548. --  COMMENT
  3549.   B := C;
  3550. --  COMMENT
  3551.   B := A;
  3552. --  COMMENT
  3553.   C := B;
  3554. --  COMMENT
  3555.   A := B;
  3556. --  COMMENT
  3557.   C := A;
  3558. --  COMMENT
  3559.   B := C;
  3560. --  COMMENT
  3561.   B := A;
  3562. --  COMMENT
  3563.   C := B;
  3564. --  COMMENT
  3565.   A := B;
  3566. --  COMMENT
  3567.   C := A;
  3568. --  COMMENT
  3569.   B := C;
  3570. --  COMMENT
  3571.   B := A;
  3572. --  COMMENT
  3573.   C := B;
  3574. --  COMMENT
  3575.   A := B;
  3576. --  COMMENT
  3577.   C := A;
  3578. --  COMMENT
  3579.   B := C;
  3580. --  COMMENT
  3581.   B := A;
  3582. --  COMMENT
  3583.   C := B;
  3584. --  COMMENT
  3585.   A := B;
  3586. --  COMMENT
  3587.   C := A;
  3588. --  COMMENT
  3589.   B := C;
  3590. --  COMMENT
  3591.   B := A;
  3592. --  COMMENT
  3593.   C := B;
  3594. --  COMMENT
  3595.   A := B;
  3596. --  COMMENT
  3597.   C := A;
  3598. --  COMMENT
  3599.   B := C;
  3600. --  COMMENT
  3601.   B := A;
  3602. --  COMMENT
  3603.   C := B;
  3604. --  COMMENT
  3605.   A := B;
  3606. --  COMMENT
  3607.   C := A;
  3608. --  COMMENT
  3609.   B := C;
  3610. --  COMMENT
  3611.   B := A;
  3612. --  COMMENT
  3613.   C := B;
  3614. --  COMMENT
  3615.   A := B;
  3616. --  COMMENT
  3617.   C := A;
  3618. --  COMMENT
  3619.   B := C;
  3620. --  COMMENT
  3621.   B := A;
  3622. --  COMMENT
  3623.   C := B;
  3624. --  COMMENT
  3625.   A := B;
  3626. --  COMMENT
  3627.   C := A;
  3628. --  COMMENT
  3629.   B := C;
  3630. --  COMMENT
  3631.   B := A;
  3632. --  COMMENT
  3633.   C := B;
  3634. --  COMMENT
  3635.   A := B;
  3636. --  COMMENT
  3637.   C := A;
  3638. --  COMMENT
  3639.   B := C;
  3640. --  COMMENT
  3641.   B := A;
  3642. --  COMMENT
  3643.   C := B;
  3644. --  COMMENT
  3645.   A := B;
  3646. --  COMMENT
  3647.   C := A;
  3648. --  COMMENT
  3649.   B := C;
  3650. --  COMMENT
  3651.   B := A;
  3652. --  COMMENT
  3653.   C := B;
  3654. --  COMMENT
  3655.   A := B;
  3656. --  COMMENT
  3657.   C := A;
  3658. --  COMMENT
  3659.   B := C;
  3660. --  COMMENT
  3661.   B := A;
  3662. --  COMMENT
  3663.   C := B;
  3664. --  COMMENT
  3665.   A := B;
  3666. --  COMMENT
  3667.   C := A;
  3668. --  COMMENT
  3669.   B := C;
  3670. --  COMMENT
  3671.   B := A;
  3672. --  COMMENT
  3673.   C := B;
  3674. --  COMMENT
  3675.   A := B;
  3676. --  COMMENT
  3677.   C := A;
  3678. --  COMMENT
  3679.   B := C;
  3680. --  COMMENT
  3681.   B := A;
  3682. --  COMMENT
  3683.   C := B;
  3684. --  COMMENT
  3685.   A := B;
  3686. --  COMMENT
  3687.   C := A;
  3688. --  COMMENT
  3689.   B := C;
  3690. --  COMMENT
  3691.   B := A;
  3692. --  COMMENT
  3693.   C := B;
  3694. --  COMMENT
  3695.   A := B;
  3696. --  COMMENT
  3697.   C := A;
  3698. --  COMMENT
  3699.   B := C;
  3700. --  COMMENT
  3701.   B := A;
  3702. --  COMMENT
  3703.   C := B;
  3704. --  COMMENT
  3705.   A := B;
  3706. --  COMMENT
  3707.   C := A;
  3708. --  COMMENT
  3709.   B := C;
  3710. --  COMMENT
  3711.   B := A;
  3712. --  COMMENT
  3713.   C := B;
  3714. --  COMMENT
  3715.   A := B;
  3716. --  COMMENT
  3717.   C := A;
  3718. --  COMMENT
  3719.   B := C;
  3720. --  COMMENT
  3721.   B := A;
  3722. --  COMMENT
  3723.   C := B;
  3724. --  COMMENT
  3725.   A := B;
  3726. --  COMMENT
  3727.   C := A;
  3728. --  COMMENT
  3729.   B := C;
  3730. --  COMMENT
  3731.   B := A;
  3732. --  COMMENT
  3733.   C := B;
  3734. --  COMMENT
  3735.   A := B;
  3736. --  COMMENT
  3737.   C := A;
  3738. --  COMMENT
  3739.   B := C;
  3740. --  COMMENT
  3741.   B := A;
  3742. --  COMMENT
  3743.   C := B;
  3744. --  COMMENT
  3745.   A := B;
  3746. --  COMMENT
  3747.   C := A;
  3748. --  COMMENT
  3749.   B := C;
  3750. --  COMMENT
  3751.   B := A;
  3752. --  COMMENT
  3753.   C := B;
  3754. --  COMMENT
  3755.   A := B;
  3756. --  COMMENT
  3757.   C := A;
  3758. --  COMMENT
  3759.   B := C;
  3760. --  COMMENT
  3761.   B := A;
  3762. --  COMMENT
  3763.   C := B;
  3764. --  COMMENT
  3765.   A := B;
  3766. --  COMMENT
  3767.   C := A;
  3768. --  COMMENT
  3769.   B := C;
  3770. --  COMMENT
  3771.   B := A;
  3772. --  COMMENT
  3773.   C := B;
  3774. --  COMMENT
  3775.   A := B;
  3776. --  COMMENT
  3777.   C := A;
  3778. --  COMMENT
  3779.   B := C;
  3780. --  COMMENT
  3781.   B := A;
  3782. --  COMMENT
  3783.   C := B;
  3784. --  COMMENT
  3785.   A := B;
  3786. --  COMMENT
  3787.   C := A;
  3788. --  COMMENT
  3789.   B := C;
  3790. --  COMMENT
  3791.   B := A;
  3792. --  COMMENT
  3793.   C := B;
  3794. --  COMMENT
  3795.   A := B;
  3796. --  COMMENT
  3797.   C := A;
  3798. --  COMMENT
  3799.   B := C;
  3800. --  COMMENT
  3801.   B := A;
  3802. --  COMMENT
  3803.   C := B;
  3804. --  COMMENT
  3805.   A := B;
  3806. --  COMMENT
  3807.   C := A;
  3808. --  COMMENT
  3809.   B := C;
  3810. --  COMMENT
  3811.   B := A;
  3812. --  COMMENT
  3813.   C := B;
  3814. --  COMMENT
  3815.   A := B;
  3816. --  COMMENT
  3817.   C := A;
  3818. --  COMMENT
  3819.   B := C;
  3820. --  COMMENT
  3821.   B := A;
  3822. --  COMMENT
  3823.   C := B;
  3824. --  COMMENT
  3825.   A := B;
  3826. --  COMMENT
  3827.   C := A;
  3828. --  COMMENT
  3829.   B := C;
  3830. --  COMMENT
  3831.   B := A;
  3832. --  COMMENT
  3833.   C := B;
  3834. --  COMMENT
  3835.   A := B;
  3836. --  COMMENT
  3837.   C := A;
  3838. --  COMMENT
  3839.   B := C;
  3840. --  COMMENT
  3841.   B := A;
  3842. --  COMMENT
  3843.   C := B;
  3844. --  COMMENT
  3845.   A := B;
  3846. --  COMMENT
  3847.   C := A;
  3848. --  COMMENT
  3849.   B := C;
  3850. --  COMMENT
  3851.   B := A;
  3852. --  COMMENT
  3853.   C := B;
  3854. --  COMMENT
  3855.   A := B;
  3856. --  COMMENT
  3857.   C := A;
  3858. --  COMMENT
  3859.   B := C;
  3860. --  COMMENT
  3861.   B := A;
  3862. --  COMMENT
  3863.   C := B;
  3864. --  COMMENT
  3865.   A := B;
  3866. --  COMMENT
  3867.   C := A;
  3868. --  COMMENT
  3869.   B := C;
  3870. --  COMMENT
  3871.   B := A;
  3872. --  COMMENT
  3873.   C := B;
  3874. --  COMMENT
  3875.   A := B;
  3876. --  COMMENT
  3877.   C := A;
  3878. --  COMMENT
  3879.   B := C;
  3880. --  COMMENT
  3881.   B := A;
  3882. --  COMMENT
  3883.   C := B;
  3884. --  COMMENT
  3885.   A := B;
  3886. --  COMMENT
  3887.   C := A;
  3888. --  COMMENT
  3889.   B := C;
  3890. --  COMMENT
  3891.   B := A;
  3892. --  COMMENT
  3893.   C := B;
  3894. --  COMMENT
  3895.   A := B;
  3896. --  COMMENT
  3897.   C := A;
  3898. --  COMMENT
  3899.   B := C;
  3900. --  COMMENT
  3901.   B := A;
  3902. --  COMMENT
  3903.   C := B;
  3904. --  COMMENT
  3905.   A := B;
  3906. --  COMMENT
  3907.   C := A;
  3908. --  COMMENT
  3909.   B := C;
  3910. --  COMMENT
  3911.   B := A;
  3912. --  COMMENT
  3913.   C := B;
  3914. --  COMMENT
  3915.   A := B;
  3916. --  COMMENT
  3917.   C := A;
  3918. --  COMMENT
  3919.   B := C;
  3920. --  COMMENT
  3921.   B := A;
  3922. --  COMMENT
  3923.   C := B;
  3924. --  COMMENT
  3925.   A := B;
  3926. --  COMMENT
  3927.   C := A;
  3928. --  COMMENT
  3929.   B := C;
  3930. --  COMMENT
  3931.   B := A;
  3932. --  COMMENT
  3933.   C := B;
  3934. --  COMMENT
  3935.   A := B;
  3936. --  COMMENT
  3937.   C := A;
  3938. --  COMMENT
  3939.   B := C;
  3940. --  COMMENT
  3941.   B := A;
  3942. --  COMMENT
  3943.   C := B;
  3944. --  COMMENT
  3945.   A := B;
  3946. --  COMMENT
  3947.   C := A;
  3948. --  COMMENT
  3949.   B := C;
  3950. --  COMMENT
  3951.   B := A;
  3952. --  COMMENT
  3953.   C := B;
  3954. --  COMMENT
  3955.   A := B;
  3956. --  COMMENT
  3957.   C := A;
  3958. --  COMMENT
  3959.   B := C;
  3960. --  COMMENT
  3961.   B := A;
  3962. --  COMMENT
  3963.   C := B;
  3964. --  COMMENT
  3965.   A := B;
  3966. --  COMMENT
  3967.   C := A;
  3968. --  COMMENT
  3969.   B := C;
  3970. --  COMMENT
  3971.   B := A;
  3972. --  COMMENT
  3973.   C := B;
  3974. --  COMMENT
  3975.   A := B;
  3976. --  COMMENT
  3977.   C := A;
  3978. --  COMMENT
  3979.   B := C;
  3980. --  COMMENT
  3981.   B := A;
  3982. --  COMMENT
  3983.   C := B;
  3984. --  COMMENT
  3985.   A := B;
  3986. --  COMMENT
  3987.   C := A;
  3988. --  COMMENT
  3989.   B := C;
  3990. --  COMMENT
  3991.   B := A;
  3992. --  COMMENT
  3993.   C := B;
  3994. --  COMMENT
  3995.   A := B;
  3996. --  COMMENT
  3997.   C := A;
  3998. --  COMMENT
  3999.   B := C;
  4000. --  COMMENT
  4001.   B := A;
  4002. --  COMMENT
  4003.   C := B;
  4004. --  COMMENT
  4005.   A := B;
  4006. --  COMMENT
  4007.   C := A;
  4008. --  COMMENT
  4009.   B := C;
  4010. --  COMMENT
  4011.   B := A;
  4012. --  COMMENT
  4013.   C := B;
  4014. --  COMMENT
  4015.   A := B;
  4016. --  COMMENT
  4017.   C := A;
  4018. --  COMMENT
  4019.   B := C;
  4020. --  COMMENT
  4021.   B := A;
  4022. --  COMMENT
  4023.   C := B;
  4024. --  COMMENT
  4025.   A := B;
  4026. --  COMMENT
  4027.   C := A;
  4028. --  COMMENT
  4029.   B := C;
  4030. --  COMMENT
  4031.   B := A;
  4032. --  COMMENT
  4033.   C := B;
  4034. --  COMMENT
  4035.   A := B;
  4036. --  COMMENT
  4037.   C := A;
  4038. --  COMMENT
  4039.   B := C;
  4040. --  COMMENT
  4041.   B := A;
  4042. --  COMMENT
  4043.   C := B;
  4044. --  COMMENT
  4045.   A := B;
  4046. --  COMMENT
  4047.   C := A;
  4048. --  COMMENT
  4049.   B := C;
  4050. --  COMMENT
  4051.   B := A;
  4052. --  COMMENT
  4053.   C := B;
  4054. --  COMMENT
  4055.   A := B;
  4056. --  COMMENT
  4057.   C := A;
  4058. --  COMMENT
  4059.   B := C;
  4060. --  COMMENT
  4061.   B := A;
  4062. --  COMMENT
  4063.   C := B;
  4064. --  COMMENT
  4065.   A := B;
  4066. --  COMMENT
  4067.   C := A;
  4068. --  COMMENT
  4069.   B := C;
  4070. --  COMMENT
  4071.   B := A;
  4072. --  COMMENT
  4073.   C := B;
  4074. --  COMMENT
  4075.   A := B;
  4076. --  COMMENT
  4077.   C := A;
  4078. --  COMMENT
  4079.   B := C;
  4080. --  COMMENT
  4081.   B := A;
  4082. --  COMMENT
  4083.   C := B;
  4084. --  COMMENT
  4085.   A := B;
  4086. --  COMMENT
  4087.   C := A;
  4088. --  COMMENT
  4089.   B := C;
  4090. --  COMMENT
  4091.   B := A;
  4092. --  COMMENT
  4093.   C := B;
  4094. --  COMMENT
  4095.   A := B;
  4096. --  COMMENT
  4097.   C := A;
  4098. --  COMMENT
  4099.   B := C;
  4100. --  COMMENT
  4101.   B := A;
  4102. --  COMMENT
  4103.   C := B;
  4104. --  COMMENT
  4105.   A := B;
  4106. --  COMMENT
  4107.   C := A;
  4108. --  COMMENT
  4109.   B := C;
  4110. --  COMMENT
  4111.   B := A;
  4112. --  COMMENT
  4113.   C := B;
  4114. --  COMMENT
  4115.   A := B;
  4116. --  COMMENT
  4117.   C := A;
  4118. --  COMMENT
  4119.   B := C;
  4120. --  COMMENT
  4121.   B := A;
  4122. --  COMMENT
  4123.   C := B;
  4124. --  COMMENT
  4125.   A := B;
  4126. --  COMMENT
  4127.   C := A;
  4128. --  COMMENT
  4129.   B := C;
  4130. --  COMMENT
  4131.   B := A;
  4132. --  COMMENT
  4133.   C := B;
  4134. --  COMMENT
  4135.   A := B;
  4136. --  COMMENT
  4137.   C := A;
  4138. --  COMMENT
  4139.   B := C;
  4140. --  COMMENT
  4141.   B := A;
  4142. --  COMMENT
  4143.   C := B;
  4144. --  COMMENT
  4145.   A := B;
  4146. --  COMMENT
  4147.   C := A;
  4148. --  COMMENT
  4149.   B := C;
  4150. --  COMMENT
  4151.   B := A;
  4152. --  COMMENT
  4153.   C := B;
  4154. --  COMMENT
  4155.   A := B;
  4156. --  COMMENT
  4157.   C := A;
  4158. --  COMMENT
  4159.   B := C;
  4160. --  COMMENT
  4161.   B := A;
  4162. --  COMMENT
  4163.   C := B;
  4164. --  COMMENT
  4165.   A := B;
  4166. --  COMMENT
  4167.   C := A;
  4168. --  COMMENT
  4169.   B := C;
  4170. --  COMMENT
  4171.   B := A;
  4172. --  COMMENT
  4173.   C := B;
  4174. --  COMMENT
  4175.   A := B;
  4176. --  COMMENT
  4177.   C := A;
  4178. --  COMMENT
  4179.   B := C;
  4180. --  COMMENT
  4181.   B := A;
  4182. --  COMMENT
  4183.   C := B;
  4184. --  COMMENT
  4185.   A := B;
  4186. --  COMMENT
  4187.   C := A;
  4188. --  COMMENT
  4189.   B := C;
  4190. --  COMMENT
  4191.   B := A;
  4192. --  COMMENT
  4193.   C := B;
  4194. --  COMMENT
  4195.   A := B;
  4196. --  COMMENT
  4197.   C := A;
  4198. --  COMMENT
  4199.   B := C;
  4200. --  COMMENT
  4201.   B := A;
  4202. --  COMMENT
  4203.   C := B;
  4204. --  COMMENT
  4205.   A := B;
  4206. --  COMMENT
  4207.   C := A;
  4208. --  COMMENT
  4209.   B := C;
  4210. --  COMMENT
  4211.   B := A;
  4212. --  COMMENT
  4213.   C := B;
  4214. --  COMMENT
  4215.   A := B;
  4216. --  COMMENT
  4217.   C := A;
  4218. --  COMMENT
  4219.   B := C;
  4220. --  COMMENT
  4221.   B := A;
  4222. --  COMMENT
  4223.   C := B;
  4224. --  COMMENT
  4225.   A := B;
  4226. --  COMMENT
  4227.   C := A;
  4228. --  COMMENT
  4229.   B := C;
  4230. --  COMMENT
  4231.   B := A;
  4232. --  COMMENT
  4233.   C := B;
  4234. --  COMMENT
  4235.   A := B;
  4236. --  COMMENT
  4237.   C := A;
  4238. --  COMMENT
  4239.   B := C;
  4240. --  COMMENT
  4241.   B := A;
  4242. --  COMMENT
  4243.   C := B;
  4244. --  COMMENT
  4245.   A := B;
  4246. --  COMMENT
  4247.   C := A;
  4248. --  COMMENT
  4249.   B := C;
  4250. --  COMMENT
  4251.   B := A;
  4252. --  COMMENT
  4253.   C := B;
  4254. --  COMMENT
  4255.   A := B;
  4256. --  COMMENT
  4257.   C := A;
  4258. --  COMMENT
  4259.   B := C;
  4260. --  COMMENT
  4261.   B := A;
  4262. --  COMMENT
  4263.   C := B;
  4264. --  COMMENT
  4265.   A := B;
  4266. --  COMMENT
  4267.   C := A;
  4268. --  COMMENT
  4269.   B := C;
  4270. --  COMMENT
  4271.   B := A;
  4272. --  COMMENT
  4273.   C := B;
  4274. --  COMMENT
  4275.   A := B;
  4276. --  COMMENT
  4277.   C := A;
  4278. --  COMMENT
  4279.   B := C;
  4280. --  COMMENT
  4281.   B := A;
  4282. --  COMMENT
  4283.   C := B;
  4284. --  COMMENT
  4285.   A := B;
  4286. --  COMMENT
  4287.   C := A;
  4288. --  COMMENT
  4289.   B := C;
  4290. --  COMMENT
  4291.   B := A;
  4292. --  COMMENT
  4293.   C := B;
  4294. --  COMMENT
  4295.   A := B;
  4296. --  COMMENT
  4297.   C := A;
  4298. --  COMMENT
  4299.   B := C;
  4300. --  COMMENT
  4301.   B := A;
  4302. --  COMMENT
  4303.   C := B;
  4304. --  COMMENT
  4305.   A := B;
  4306. --  COMMENT
  4307.   C := A;
  4308. --  COMMENT
  4309.   B := C;
  4310. --  COMMENT
  4311.   B := A;
  4312. --  COMMENT
  4313.   C := B;
  4314. --  COMMENT
  4315.   A := B;
  4316. --  COMMENT
  4317.   C := A;
  4318. --  COMMENT
  4319.   B := C;
  4320. --  COMMENT
  4321.   B := A;
  4322. --  COMMENT
  4323.   C := B;
  4324. --  COMMENT
  4325.   A := B;
  4326. --  COMMENT
  4327.   C := A;
  4328. --  COMMENT
  4329.   B := C;
  4330. --  COMMENT
  4331.   B := A;
  4332. --  COMMENT
  4333.   C := B;
  4334. --  COMMENT
  4335.   A := B;
  4336. --  COMMENT
  4337.   C := A;
  4338. --  COMMENT
  4339.   B := C;
  4340. --  COMMENT
  4341.   B := A;
  4342. --  COMMENT
  4343.   C := B;
  4344. --  COMMENT
  4345.   A := B;
  4346. --  COMMENT
  4347.   C := A;
  4348. --  COMMENT
  4349.   B := C;
  4350. --  COMMENT
  4351.   B := A;
  4352. --  COMMENT
  4353.   C := B;
  4354. --  COMMENT
  4355.   A := B;
  4356. --  COMMENT
  4357.   C := A;
  4358. --  COMMENT
  4359.   B := C;
  4360. --  COMMENT
  4361.   B := A;
  4362. --  COMMENT
  4363.   C := B;
  4364. --  COMMENT
  4365.   A := B;
  4366. --  COMMENT
  4367.   C := A;
  4368. --  COMMENT
  4369.   B := C;
  4370. --  COMMENT
  4371.   B := A;
  4372. --  COMMENT
  4373.   C := B;
  4374. --  COMMENT
  4375.   A := B;
  4376. --  COMMENT
  4377.   C := A;
  4378. --  COMMENT
  4379.   B := C;
  4380. --  COMMENT
  4381.   B := A;
  4382. --  COMMENT
  4383.   C := B;
  4384. --  COMMENT
  4385.   A := B;
  4386. --  COMMENT
  4387.   C := A;
  4388. --  COMMENT
  4389.   B := C;
  4390. --  COMMENT
  4391.   B := A;
  4392. --  COMMENT
  4393.   C := B;
  4394. --  COMMENT
  4395.   A := B;
  4396. --  COMMENT
  4397.   C := A;
  4398. --  COMMENT
  4399.   B := C;
  4400. --  COMMENT
  4401.   B := A;
  4402. --  COMMENT
  4403.   C := B;
  4404. --  COMMENT
  4405.   A := B;
  4406. --  COMMENT
  4407.   C := A;
  4408. --  COMMENT
  4409.   B := C;
  4410. --  COMMENT
  4411.   B := A;
  4412. --  COMMENT
  4413.   C := B;
  4414. --  COMMENT
  4415.   A := B;
  4416. --  COMMENT
  4417.   C := A;
  4418. --  COMMENT
  4419.   B := C;
  4420. --  COMMENT
  4421.   B := A;
  4422. --  COMMENT
  4423.   C := B;
  4424. --  COMMENT
  4425.   A := B;
  4426. --  COMMENT
  4427.   C := A;
  4428. --  COMMENT
  4429.   B := C;
  4430. --  COMMENT
  4431.   B := A;
  4432. --  COMMENT
  4433.   C := B;
  4434. --  COMMENT
  4435.   A := B;
  4436. --  COMMENT
  4437.   C := A;
  4438. --  COMMENT
  4439.   B := C;
  4440. --  COMMENT
  4441.   B := A;
  4442. --  COMMENT
  4443.   C := B;
  4444. --  COMMENT
  4445.   A := B;
  4446. --  COMMENT
  4447.   C := A;
  4448. --  COMMENT
  4449.   B := C;
  4450. --  COMMENT
  4451.   B := A;
  4452. --  COMMENT
  4453.   C := B;
  4454. --  COMMENT
  4455.   A := B;
  4456. --  COMMENT
  4457.   C := A;
  4458. --  COMMENT
  4459.   B := C;
  4460. --  COMMENT
  4461.   B := A;
  4462. --  COMMENT
  4463.   C := B;
  4464. --  COMMENT
  4465.   A := B;
  4466. --  COMMENT
  4467.   C := A;
  4468. --  COMMENT
  4469.   B := C;
  4470. --  COMMENT
  4471.   B := A;
  4472. --  COMMENT
  4473.   C := B;
  4474. --  COMMENT
  4475.   A := B;
  4476. --  COMMENT
  4477.   C := A;
  4478. --  COMMENT
  4479.   B := C;
  4480. --  COMMENT
  4481.   B := A;
  4482. --  COMMENT
  4483.   C := B;
  4484. --  COMMENT
  4485.   A := B;
  4486. --  COMMENT
  4487.   C := A;
  4488. --  COMMENT
  4489.   B := C;
  4490. --  COMMENT
  4491.   B := A;
  4492. --  COMMENT
  4493.   C := B;
  4494. --  COMMENT
  4495.   A := B;
  4496. --  COMMENT
  4497.   C := A;
  4498. --  COMMENT
  4499.   B := C;
  4500. --  COMMENT
  4501.   B := A;
  4502. --  COMMENT
  4503.   C := B;
  4504. --  COMMENT
  4505.   A := B;
  4506. --  COMMENT
  4507.   C := A;
  4508. --  COMMENT
  4509.   B := C;
  4510. --  COMMENT
  4511.   B := A;
  4512. --  COMMENT
  4513.   C := B;
  4514. --  COMMENT
  4515.   A := B;
  4516. --  COMMENT
  4517.   C := A;
  4518. --  COMMENT
  4519.   B := C;
  4520. --  COMMENT
  4521.   B := A;
  4522. --  COMMENT
  4523.   C := B;
  4524. --  COMMENT
  4525.   A := B;
  4526. --  COMMENT
  4527.   C := A;
  4528. --  COMMENT
  4529.   B := C;
  4530. --  COMMENT
  4531.   B := A;
  4532. --  COMMENT
  4533.   C := B;
  4534. --  COMMENT
  4535.   A := B;
  4536. --  COMMENT
  4537.   C := A;
  4538. --  COMMENT
  4539.   B := C;
  4540. --  COMMENT
  4541.   B := A;
  4542. --  COMMENT
  4543.   C := B;
  4544. --  COMMENT
  4545.   A := B;
  4546. --  COMMENT
  4547.   C := A;
  4548. --  COMMENT
  4549.   B := C;
  4550. --  COMMENT
  4551.   B := A;
  4552. --  COMMENT
  4553.   C := B;
  4554. --  COMMENT
  4555.   A := B;
  4556. --  COMMENT
  4557.   C := A;
  4558. --  COMMENT
  4559.   B := C;
  4560. --  COMMENT
  4561.   B := A;
  4562. --  COMMENT
  4563.   C := B;
  4564. --  COMMENT
  4565.   A := B;
  4566. --  COMMENT
  4567.   C := A;
  4568. --  COMMENT
  4569.   B := C;
  4570. --  COMMENT
  4571.   B := A;
  4572. --  COMMENT
  4573.   C := B;
  4574. --  COMMENT
  4575.   A := B;
  4576. --  COMMENT
  4577.   C := A;
  4578. --  COMMENT
  4579.   B := C;
  4580. --  COMMENT
  4581.   B := A;
  4582. --  COMMENT
  4583.   C := B;
  4584. --  COMMENT
  4585.   A := B;
  4586. --  COMMENT
  4587.   C := A;
  4588. --  COMMENT
  4589.   B := C;
  4590. --  COMMENT
  4591.   B := A;
  4592. --  COMMENT
  4593.   C := B;
  4594. --  COMMENT
  4595.   A := B;
  4596. --  COMMENT
  4597.   C := A;
  4598. --  COMMENT
  4599.   B := C;
  4600. --  COMMENT
  4601.   B := A;
  4602. --  COMMENT
  4603.   C := B;
  4604. --  COMMENT
  4605.   A := B;
  4606. --  COMMENT
  4607.   C := A;
  4608. --  COMMENT
  4609.   B := C;
  4610. --  COMMENT
  4611.   B := A;
  4612. --  COMMENT
  4613.   C := B;
  4614. --  COMMENT
  4615.   A := B;
  4616. --  COMMENT
  4617.   C := A;
  4618. --  COMMENT
  4619.   B := C;
  4620. --  COMMENT
  4621.   B := A;
  4622. --  COMMENT
  4623.   C := B;
  4624. --  COMMENT
  4625.   A := B;
  4626. --  COMMENT
  4627.   C := A;
  4628. --  COMMENT
  4629.   B := C;
  4630. --  COMMENT
  4631.   B := A;
  4632. --  COMMENT
  4633.   C := B;
  4634. --  COMMENT
  4635.   A := B;
  4636. --  COMMENT
  4637.   C := A;
  4638. --  COMMENT
  4639.   B := C;
  4640. --  COMMENT
  4641.   B := A;
  4642. --  COMMENT
  4643.   C := B;
  4644. --  COMMENT
  4645.   A := B;
  4646. --  COMMENT
  4647.   C := A;
  4648. --  COMMENT
  4649.   B := C;
  4650. --  COMMENT
  4651.   B := A;
  4652. --  COMMENT
  4653.   C := B;
  4654. --  COMMENT
  4655.   A := B;
  4656. --  COMMENT
  4657.   C := A;
  4658. --  COMMENT
  4659.   B := C;
  4660. --  COMMENT
  4661.   B := A;
  4662. --  COMMENT
  4663.   C := B;
  4664. --  COMMENT
  4665.   A := B;
  4666. --  COMMENT
  4667.   C := A;
  4668. --  COMMENT
  4669.   B := C;
  4670. --  COMMENT
  4671.   B := A;
  4672. --  COMMENT
  4673.   C := B;
  4674. --  COMMENT
  4675.   A := B;
  4676. --  COMMENT
  4677.   C := A;
  4678. --  COMMENT
  4679.   B := C;
  4680. --  COMMENT
  4681.   B := A;
  4682. --  COMMENT
  4683.   C := B;
  4684. --  COMMENT
  4685.   A := B;
  4686. --  COMMENT
  4687.   C := A;
  4688. --  COMMENT
  4689.   B := C;
  4690. --  COMMENT
  4691.   B := A;
  4692. --  COMMENT
  4693.   C := B;
  4694. --  COMMENT
  4695.   A := B;
  4696. --  COMMENT
  4697.   C := A;
  4698. --  COMMENT
  4699.   B := C;
  4700. --  COMMENT
  4701.   B := A;
  4702. --  COMMENT
  4703.   C := B;
  4704. --  COMMENT
  4705.   A := B;
  4706. --  COMMENT
  4707.   C := A;
  4708. --  COMMENT
  4709.   B := C;
  4710. --  COMMENT
  4711.   B := A;
  4712. --  COMMENT
  4713.   C := B;
  4714. --  COMMENT
  4715.   A := B;
  4716. --  COMMENT
  4717.   C := A;
  4718. --  COMMENT
  4719.   B := C;
  4720. --  COMMENT
  4721.   B := A;
  4722. --  COMMENT
  4723.   C := B;
  4724. --  COMMENT
  4725.   A := B;
  4726. --  COMMENT
  4727.   C := A;
  4728. --  COMMENT
  4729.   B := C;
  4730. --  COMMENT
  4731.   B := A;
  4732. --  COMMENT
  4733.   C := B;
  4734. --  COMMENT
  4735.   A := B;
  4736. --  COMMENT
  4737.   C := A;
  4738. --  COMMENT
  4739.   B := C;
  4740. --  COMMENT
  4741.   B := A;
  4742. --  COMMENT
  4743.   C := B;
  4744. --  COMMENT
  4745.   A := B;
  4746. --  COMMENT
  4747.   C := A;
  4748. --  COMMENT
  4749.   B := C;
  4750. --  COMMENT
  4751.   B := A;
  4752. --  COMMENT
  4753.   C := B;
  4754. --  COMMENT
  4755.   A := B;
  4756. --  COMMENT
  4757.   C := A;
  4758. --  COMMENT
  4759.   B := C;
  4760. --  COMMENT
  4761.   B := A;
  4762. --  COMMENT
  4763.   C := B;
  4764. --  COMMENT
  4765.   A := B;
  4766. --  COMMENT
  4767.   C := A;
  4768. --  COMMENT
  4769.   B := C;
  4770. --  COMMENT
  4771.   B := A;
  4772. --  COMMENT
  4773.   C := B;
  4774. --  COMMENT
  4775.   A := B;
  4776. --  COMMENT
  4777.   C := A;
  4778. --  COMMENT
  4779.   B := C;
  4780. --  COMMENT
  4781.   B := A;
  4782. --  COMMENT
  4783.   C := B;
  4784. --  COMMENT
  4785.   A := B;
  4786. --  COMMENT
  4787.   C := A;
  4788. --  COMMENT
  4789.   B := C;
  4790. --  COMMENT
  4791.   B := A;
  4792. --  COMMENT
  4793.   C := B;
  4794. --  COMMENT
  4795.   A := B;
  4796. --  COMMENT
  4797.   C := A;
  4798. --  COMMENT
  4799.   B := C;
  4800. --  COMMENT
  4801.   B := A;
  4802. --  COMMENT
  4803.   C := B;
  4804. --  COMMENT
  4805.   A := B;
  4806. --  COMMENT
  4807.   C := A;
  4808. --  COMMENT
  4809.   B := C;
  4810. --  COMMENT
  4811.   B := A;
  4812. --  COMMENT
  4813.   C := B;
  4814. --  COMMENT
  4815.   A := B;
  4816. --  COMMENT
  4817.   C := A;
  4818. --  COMMENT
  4819.   B := C;
  4820. --  COMMENT
  4821.   B := A;
  4822. --  COMMENT
  4823.   C := B;
  4824. --  COMMENT
  4825.   A := B;
  4826. --  COMMENT
  4827.   C := A;
  4828. --  COMMENT
  4829.   B := C;
  4830. --  COMMENT
  4831.   B := A;
  4832. --  COMMENT
  4833.   C := B;
  4834. --  COMMENT
  4835.   A := B;
  4836. --  COMMENT
  4837.   C := A;
  4838. --  COMMENT
  4839.   B := C;
  4840. --  COMMENT
  4841.   B := A;
  4842. --  COMMENT
  4843.   C := B;
  4844. --  COMMENT
  4845.   A := B;
  4846. --  COMMENT
  4847.   C := A;
  4848. --  COMMENT
  4849.   B := C;
  4850. --  COMMENT
  4851.   B := A;
  4852. --  COMMENT
  4853.   C := B;
  4854. --  COMMENT
  4855.   A := B;
  4856. --  COMMENT
  4857.   C := A;
  4858. --  COMMENT
  4859.   B := C;
  4860. --  COMMENT
  4861.   B := A;
  4862. --  COMMENT
  4863.   C := B;
  4864. --  COMMENT
  4865.   A := B;
  4866. --  COMMENT
  4867.   C := A;
  4868. --  COMMENT
  4869.   B := C;
  4870. --  COMMENT
  4871.   B := A;
  4872. --  COMMENT
  4873.   C := B;
  4874. --  COMMENT
  4875.   A := B;
  4876. --  COMMENT
  4877.   C := A;
  4878. --  COMMENT
  4879.   B := C;
  4880. --  COMMENT
  4881.   B := A;
  4882. --  COMMENT
  4883.   C := B;
  4884. --  COMMENT
  4885.   A := B;
  4886. --  COMMENT
  4887.   C := A;
  4888. --  COMMENT
  4889.   B := C;
  4890. --  COMMENT
  4891.   B := A;
  4892. --  COMMENT
  4893.   C := B;
  4894. --  COMMENT
  4895.   A := B;
  4896. --  COMMENT
  4897.   C := A;
  4898. --  COMMENT
  4899.   B := C;
  4900. --  COMMENT
  4901.   B := A;
  4902. --  COMMENT
  4903.   C := B;
  4904. --  COMMENT
  4905.   A := B;
  4906. --  COMMENT
  4907.   C := A;
  4908. --  COMMENT
  4909.   B := C;
  4910. --  COMMENT
  4911.   B := A;
  4912. --  COMMENT
  4913.   C := B;
  4914. --  COMMENT
  4915.   A := B;
  4916. --  COMMENT
  4917.   C := A;
  4918. --  COMMENT
  4919.   B := C;
  4920. --  COMMENT
  4921.   B := A;
  4922. --  COMMENT
  4923.   C := B;
  4924. --  COMMENT
  4925.   A := B;
  4926. --  COMMENT
  4927.   C := A;
  4928. --  COMMENT
  4929.   B := C;
  4930. --  COMMENT
  4931.   B := A;
  4932. --  COMMENT
  4933.   C := B;
  4934. --  COMMENT
  4935.   A := B;
  4936. --  COMMENT
  4937.   C := A;
  4938. --  COMMENT
  4939.   B := C;
  4940. --  COMMENT
  4941.   B := A;
  4942. --  COMMENT
  4943.   C := B;
  4944. --  COMMENT
  4945.   A := B;
  4946. --  COMMENT
  4947.   C := A;
  4948. --  COMMENT
  4949.   B := C;
  4950. --  COMMENT
  4951.   B := A;
  4952. --  COMMENT
  4953.   C := B;
  4954. --  COMMENT
  4955.   A := B;
  4956. --  COMMENT
  4957.   C := A;
  4958. --  COMMENT
  4959.   B := C;
  4960. --  COMMENT
  4961.   B := A;
  4962. --  COMMENT
  4963.   C := B;
  4964. --  COMMENT
  4965.   A := B;
  4966. --  COMMENT
  4967.   C := A;
  4968. --  COMMENT
  4969.   B := C;
  4970. --  COMMENT
  4971.   B := A;
  4972. --  COMMENT
  4973.   C := B;
  4974. --  COMMENT
  4975.   A := B;
  4976. --  COMMENT
  4977.   C := A;
  4978. --  COMMENT
  4979.   B := C;
  4980. --  COMMENT
  4981.   B := A;
  4982. --  COMMENT
  4983.   C := B;
  4984. --  COMMENT
  4985.   A := B;
  4986. --  COMMENT
  4987.   C := A;
  4988. --  COMMENT
  4989.   B := C;
  4990. --  COMMENT
  4991.   B := A;
  4992. --  COMMENT
  4993.   C := B;
  4994. --  COMMENT
  4995.   A := B;
  4996. --  COMMENT
  4997.   C := A;
  4998. --  COMMENT
  4999.   B := C;
  5000. --  COMMENT
  5001.   B := A;
  5002. --  COMMENT
  5003.   C := B;
  5004. --  COMMENT
  5005.   A := B;
  5006. --  COMMENT
  5007.   C := A;
  5008. --  COMMENT
  5009.   B := C;
  5010. --  COMMENT
  5011.   B := A;
  5012. --  COMMENT
  5013.   C := B;
  5014. --  COMMENT
  5015.   A := B;
  5016. --  COMMENT
  5017.   C := A;
  5018. --  COMMENT
  5019.   B := C;
  5020. --  COMMENT
  5021.   B := A;
  5022. --  COMMENT
  5023.   C := B;
  5024. --  COMMENT
  5025.   A := B;
  5026. --  COMMENT
  5027.   C := A;
  5028. --  COMMENT
  5029.   B := C;
  5030. --  COMMENT
  5031.   B := A;
  5032. --  COMMENT
  5033.   C := B;
  5034. --  COMMENT
  5035.   A := B;
  5036. --  COMMENT
  5037.   C := A;
  5038. --  COMMENT
  5039.   B := C;
  5040. --  COMMENT
  5041.   B := A;
  5042. --  COMMENT
  5043.   C := B;
  5044. --  COMMENT
  5045.   A := B;
  5046. --  COMMENT
  5047.   C := A;
  5048. --  COMMENT
  5049.   B := C;
  5050. --  COMMENT
  5051.   B := A;
  5052. --  COMMENT
  5053.   C := B;
  5054. --  COMMENT
  5055.   A := B;
  5056. --  COMMENT
  5057.   C := A;
  5058. --  COMMENT
  5059.   B := C;
  5060. --  COMMENT
  5061.   B := A;
  5062. --  COMMENT
  5063.   C := B;
  5064. --  COMMENT
  5065.   A := B;
  5066. --  COMMENT
  5067.   C := A;
  5068. --  COMMENT
  5069.   B := C;
  5070. --  COMMENT
  5071.   B := A;
  5072. --  COMMENT
  5073.   C := B;
  5074. --  COMMENT
  5075.   A := B;
  5076. --  COMMENT
  5077.   C := A;
  5078. --  COMMENT
  5079.   B := C;
  5080. --  COMMENT
  5081.   B := A;
  5082. --  COMMENT
  5083.   C := B;
  5084. --  COMMENT
  5085.   A := B;
  5086. --  COMMENT
  5087.   C := A;
  5088. --  COMMENT
  5089.   B := C;
  5090. --  COMMENT
  5091.   B := A;
  5092. --  COMMENT
  5093.   C := B;
  5094. --  COMMENT
  5095.   A := B;
  5096. --  COMMENT
  5097.   C := A;
  5098. --  COMMENT
  5099.   B := C;
  5100. --  COMMENT
  5101.   B := A;
  5102. --  COMMENT
  5103.   C := B;
  5104. --  COMMENT
  5105.   A := B;
  5106. --  COMMENT
  5107.   C := A;
  5108. --  COMMENT
  5109.   B := C;
  5110. --  COMMENT
  5111.   B := A;
  5112. --  COMMENT
  5113.   C := B;
  5114. --  COMMENT
  5115.   A := B;
  5116. --  COMMENT
  5117.   C := A;
  5118. --  COMMENT
  5119.   B := C;
  5120. --  COMMENT
  5121.   B := A;
  5122. --  COMMENT
  5123.   C := B;
  5124. --  COMMENT
  5125.   A := B;
  5126. --  COMMENT
  5127.   C := A;
  5128. --  COMMENT
  5129.   B := C;
  5130. --  COMMENT
  5131.   B := A;
  5132. --  COMMENT
  5133.   C := B;
  5134. --  COMMENT
  5135.   A := B;
  5136. --  COMMENT
  5137.   C := A;
  5138. --  COMMENT
  5139.   B := C;
  5140. --  COMMENT
  5141.   B := A;
  5142. --  COMMENT
  5143.   C := B;
  5144. --  COMMENT
  5145.   A := B;
  5146. --  COMMENT
  5147.   C := A;
  5148. --  COMMENT
  5149.   B := C;
  5150. --  COMMENT
  5151.   B := A;
  5152. --  COMMENT
  5153.   C := B;
  5154. --  COMMENT
  5155.   A := B;
  5156. --  COMMENT
  5157.   C := A;
  5158. --  COMMENT
  5159.   B := C;
  5160. --  COMMENT
  5161.   B := A;
  5162. --  COMMENT
  5163.   C := B;
  5164. --  COMMENT
  5165.   A := B;
  5166. --  COMMENT
  5167.   C := A;
  5168. --  COMMENT
  5169.   B := C;
  5170. --  COMMENT
  5171.   B := A;
  5172. --  COMMENT
  5173.   C := B;
  5174. --  COMMENT
  5175.   A := B;
  5176. --  COMMENT
  5177.   C := A;
  5178. --  COMMENT
  5179.   B := C;
  5180. --  COMMENT
  5181.   B := A;
  5182. --  COMMENT
  5183.   C := B;
  5184. --  COMMENT
  5185.   A := B;
  5186. --  COMMENT
  5187.   C := A;
  5188. --  COMMENT
  5189.   B := C;
  5190. --  COMMENT
  5191.   B := A;
  5192. --  COMMENT
  5193.   C := B;
  5194. --  COMMENT
  5195.   A := B;
  5196. --  COMMENT
  5197.   C := A;
  5198. --  COMMENT
  5199.   B := C;
  5200. --  COMMENT
  5201.   B := A;
  5202. --  COMMENT
  5203.   C := B;
  5204. --  COMMENT
  5205.   A := B;
  5206. --  COMMENT
  5207.   C := A;
  5208. --  COMMENT
  5209.   B := C;
  5210.  
  5211. end COMPG;
  5212. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5213. --compk.txt
  5214. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5215. package COMPK is
  5216.  
  5217.   package COMPK1 is
  5218.     function K1 return INTEGER;
  5219.   end COMPK1;
  5220.  
  5221.   package COMPK2 is
  5222.     function K2 return INTEGER;
  5223.   end COMPK2;
  5224.  
  5225.   package COMPK3 is
  5226.     function K3 return INTEGER;
  5227.   end COMPK3;
  5228.  
  5229.   package COMPK4 is
  5230.     function K4 return INTEGER;
  5231.   end COMPK4;
  5232.  
  5233.   package COMPK5 is
  5234.     function K5 return INTEGER;
  5235.   end COMPK5;
  5236.  
  5237.   package COMPK6 is
  5238.     function K6 return INTEGER;
  5239.   end COMPK6;
  5240.  
  5241.   package COMPK7 is
  5242.     function K7 return INTEGER;
  5243.   end COMPK7;
  5244.  
  5245.   package COMPK8 is
  5246.     function K8 return INTEGER;
  5247.   end COMPK8;
  5248.  
  5249.   package COMPK9 is
  5250.     function K9 return INTEGER;
  5251.   end COMPK9;
  5252.  
  5253.   package COMPK10 is
  5254.     function K10 return INTEGER;
  5255.   end COMPK10;
  5256.  
  5257.   package COMPK11 is
  5258.     function K11 return INTEGER;
  5259.   end COMPK11;
  5260.  
  5261.   package COMPK12 is
  5262.     function K12 return INTEGER;
  5263.   end COMPK12;
  5264.  
  5265.   package COMPK13 is
  5266.     function K13 return INTEGER;
  5267.   end COMPK13;
  5268.  
  5269.   package COMPK14 is
  5270.     function K14 return INTEGER;
  5271.   end COMPK14;
  5272.  
  5273.   package COMPK15 is
  5274.     function K15 return INTEGER;
  5275.   end COMPK15;
  5276.  
  5277.   package COMPK16 is
  5278.     function K16 return INTEGER;
  5279.   end COMPK16;
  5280.  
  5281.   package COMPK17 is
  5282.     function K17 return INTEGER;
  5283.   end COMPK17;
  5284.  
  5285.   package COMPK18 is
  5286.     function K18 return INTEGER;
  5287.   end COMPK18;
  5288.  
  5289.   package COMPK19 is
  5290.     function K19 return INTEGER;
  5291.   end COMPK19;
  5292.  
  5293.   package COMPK20 is
  5294.     function K20 return INTEGER;
  5295.   end COMPK20;
  5296.  
  5297.   package COMPK21 is
  5298.     function K21 return INTEGER;
  5299.   end COMPK21;
  5300.  
  5301.   package COMPK22 is
  5302.     function K22 return INTEGER;
  5303.   end COMPK22;
  5304.  
  5305.   package COMPK23 is
  5306.     function K23 return INTEGER;
  5307.   end COMPK23;
  5308.  
  5309.   package COMPK24 is
  5310.     function K24 return INTEGER;
  5311.   end COMPK24;
  5312.  
  5313.   package COMPK25 is
  5314.     function K25 return INTEGER;
  5315.   end COMPK25;
  5316.  
  5317. end COMPK;
  5318.  
  5319.  
  5320. package body COMPK is
  5321.  
  5322.   package body COMPK1 is
  5323.     function K1 return INTEGER is
  5324.     begin
  5325.       return 1;
  5326.     end K1;
  5327.   end COMPK1;
  5328.  
  5329.   package body COMPK2 is
  5330.     function K2 return INTEGER is
  5331.     begin
  5332.       return 2;
  5333.     end K2;
  5334.   end COMPK2;
  5335.  
  5336.   package body COMPK3 is
  5337.     function K3 return INTEGER is
  5338.     begin
  5339.       return 3;
  5340.     end K3;
  5341.   end COMPK3;
  5342.  
  5343.   package body COMPK4 is
  5344.     function K4 return INTEGER is
  5345.     begin
  5346.       return 4;
  5347.     end K4;
  5348.   end COMPK4;
  5349.  
  5350.   package body COMPK5 is
  5351.     function K5 return INTEGER is
  5352.     begin
  5353.       return 5;
  5354.     end K5;
  5355.   end COMPK5;
  5356.  
  5357.   package body COMPK6 is
  5358.     function K6 return INTEGER is
  5359.     begin
  5360.       return 6;
  5361.     end K6;
  5362.   end COMPK6;
  5363.  
  5364.   package body COMPK7 is
  5365.     function K7 return INTEGER is
  5366.     begin
  5367.       return 7;
  5368.     end K7;
  5369.   end COMPK7;
  5370.  
  5371.   package body COMPK8 is
  5372.     function K8 return INTEGER is
  5373.     begin
  5374.       return 8;
  5375.     end K8;
  5376.   end COMPK8;
  5377.  
  5378.   package body COMPK9 is
  5379.     function K9 return INTEGER is
  5380.     begin
  5381.       return 9;
  5382.     end K9;
  5383.   end COMPK9;
  5384.  
  5385.   package body COMPK10 is
  5386.     function K10 return INTEGER is
  5387.     begin
  5388.       return 10;
  5389.     end K10;
  5390.   end COMPK10;
  5391.  
  5392.   package body COMPK11 is
  5393.     function K11 return INTEGER is
  5394.     begin
  5395.       return 11;
  5396.     end K11;
  5397.   end COMPK11;
  5398.  
  5399.   package body COMPK12 is
  5400.     function K12 return INTEGER is
  5401.     begin
  5402.       return 12;
  5403.     end K12;
  5404.   end COMPK12;
  5405.  
  5406.   package body COMPK13 is
  5407.     function K13 return INTEGER is
  5408.     begin
  5409.       return 13;
  5410.     end K13;
  5411.   end COMPK13;
  5412.  
  5413.   package body COMPK14 is
  5414.     function K14 return INTEGER is
  5415.     begin
  5416.       return 14;
  5417.     end K14;
  5418.   end COMPK14;
  5419.  
  5420.   package body COMPK15 is
  5421.     function K15 return INTEGER is
  5422.     begin
  5423.       return 15;
  5424.     end K15;
  5425.   end COMPK15;
  5426.  
  5427.   package body COMPK16 is
  5428.     function K16 return INTEGER is
  5429.     begin
  5430.       return 16;
  5431.     end K16;
  5432.   end COMPK16;
  5433.  
  5434.   package body COMPK17 is
  5435.     function K17 return INTEGER is
  5436.     begin
  5437.       return 17;
  5438.     end K17;
  5439.   end COMPK17;
  5440.  
  5441.   package body COMPK18 is
  5442.     function K18 return INTEGER is
  5443.     begin
  5444.       return 18;
  5445.     end K18;
  5446.   end COMPK18;
  5447.  
  5448.   package body COMPK19 is
  5449.     function K19 return INTEGER is
  5450.     begin
  5451.       return 19;
  5452.     end K19;
  5453.   end COMPK19;
  5454.  
  5455.   package body COMPK20 is
  5456.     function K20 return INTEGER is
  5457.     begin
  5458.       return 20;
  5459.     end K20;
  5460.   end COMPK20;
  5461.  
  5462.   package body COMPK21 is
  5463.     function K21 return INTEGER is
  5464.     begin
  5465.       return 21;
  5466.     end K21;
  5467.   end COMPK21;
  5468.  
  5469.   package body COMPK22 is
  5470.     function K22 return INTEGER is
  5471.     begin
  5472.       return 22;
  5473.     end K22;
  5474.   end COMPK22;
  5475.  
  5476.   package body COMPK23 is
  5477.     function K23 return INTEGER is
  5478.     begin
  5479.       return 23;
  5480.     end K23;
  5481.   end COMPK23;
  5482.  
  5483.   package body COMPK24 is
  5484.     function K24 return INTEGER is
  5485.     begin
  5486.       return 24;
  5487.     end K24;
  5488.   end COMPK24;
  5489.  
  5490.   package body COMPK25 is
  5491.     function K25 return INTEGER is
  5492.     begin
  5493.       return 25;
  5494.     end K25;
  5495.   end COMPK25;
  5496.  
  5497. end COMPK;
  5498. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5499. --compk1.txt
  5500. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5501.   package COMPK1 is
  5502.     function K1 return INTEGER;
  5503.   end COMPK1;
  5504.  
  5505.  
  5506.   package body COMPK1 is
  5507.     function K1 return INTEGER is
  5508.     begin
  5509.       return 1;
  5510.     end K1;
  5511.   end COMPK1;
  5512. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5513. --compk2.txt
  5514. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5515.   package COMPK2 is
  5516.     function K2 return INTEGER;
  5517.   end COMPK2;
  5518.  
  5519.   package body COMPK2 is
  5520.     function K2 return INTEGER is
  5521.     begin
  5522.       return 2;
  5523.     end K2;
  5524.   end COMPK2;
  5525. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5526. --compk3.txt
  5527. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5528.   package COMPK3 is
  5529.     function K3 return INTEGER;
  5530.   end COMPK3;
  5531.  
  5532.   package body COMPK3 is
  5533.     function K3 return INTEGER is
  5534.     begin
  5535.       return 3;
  5536.     end K3;
  5537.   end COMPK3;
  5538. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5539. --compk4.txt
  5540. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5541.   package COMPK4 is
  5542.     function K4 return INTEGER;
  5543.   end COMPK4;
  5544.  
  5545.   package body COMPK4 is
  5546.     function K4 return INTEGER is
  5547.     begin
  5548.       return 4;
  5549.     end K4;
  5550.   end COMPK4;
  5551. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5552. --compk5.txt
  5553. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5554.   package COMPK5 is
  5555.     function K5 return INTEGER;
  5556.   end COMPK5;
  5557.  
  5558.   package body COMPK5 is
  5559.     function K5 return INTEGER is
  5560.     begin
  5561.       return 5;
  5562.     end K5;
  5563.   end COMPK5;
  5564. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5565. --compk6.txt
  5566. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5567.   package COMPK6 is
  5568.     function K6 return INTEGER;
  5569.   end COMPK6;
  5570.  
  5571.   package body COMPK6 is
  5572.     function K6 return INTEGER is
  5573.     begin
  5574.       return 6;
  5575.     end K6;
  5576.   end COMPK6;
  5577. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5578. --compk7.txt
  5579. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5580.   package COMPK7 is
  5581.     function K7 return INTEGER;
  5582.   end COMPK7;
  5583.  
  5584.   package body COMPK7 is
  5585.     function K7 return INTEGER is
  5586.     begin
  5587.       return 7;
  5588.     end K7;
  5589.   end COMPK7;
  5590. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5591. --compk8.txt
  5592. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5593.   package COMPK8 is
  5594.     function K8 return INTEGER;
  5595.   end COMPK8;
  5596.  
  5597.   package body COMPK8 is
  5598.     function K8 return INTEGER is
  5599.     begin
  5600.       return 8;
  5601.     end K8;
  5602.   end COMPK8;
  5603. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5604. --compk9.txt
  5605. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5606.   package COMPK9 is
  5607.     function K9 return INTEGER;
  5608.   end COMPK9;
  5609.  
  5610.   package body COMPK9 is
  5611.     function K9 return INTEGER is
  5612.     begin
  5613.       return 9;
  5614.     end K9;
  5615.   end COMPK9;
  5616. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5617. --compk10.txt
  5618. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5619.   package COMPK10 is
  5620.     function K10 return INTEGER;
  5621.   end COMPK10;
  5622.  
  5623.   package body COMPK10 is
  5624.     function K10 return INTEGER is
  5625.     begin
  5626.       return 10;
  5627.     end K10;
  5628.   end COMPK10;
  5629. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5630. --compk11.txt
  5631. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5632.   package COMPK11 is
  5633.     function K11 return INTEGER;
  5634.   end COMPK11;
  5635.  
  5636.   package body COMPK11 is
  5637.     function K11 return INTEGER is
  5638.     begin
  5639.       return 11;
  5640.     end K11;
  5641.   end COMPK11;
  5642. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5643. --compk12.txt
  5644. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5645.   package COMPK12 is
  5646.     function K12 return INTEGER;
  5647.   end COMPK12;
  5648.  
  5649.   package body COMPK12 is
  5650.     function K12 return INTEGER is
  5651.     begin
  5652.       return 12;
  5653.     end K12;
  5654.   end COMPK12;
  5655. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5656. --compk13.txt
  5657. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5658.   package COMPK13 is
  5659.     function K13 return INTEGER;
  5660.   end COMPK13;
  5661.  
  5662.   package body COMPK13 is
  5663.     function K13 return INTEGER is
  5664.     begin
  5665.       return 13;
  5666.     end K13;
  5667.   end COMPK13;
  5668. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5669. --compk14.txt
  5670. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5671.   package COMPK14 is
  5672.     function K14 return INTEGER;
  5673.   end COMPK14;
  5674.  
  5675.   package body COMPK14 is
  5676.     function K14 return INTEGER is
  5677.     begin
  5678.       return 14;
  5679.     end K14;
  5680.   end COMPK14;
  5681. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5682. --compk15.txt
  5683. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5684.   package COMPK15 is
  5685.     function K15 return INTEGER;
  5686.   end COMPK15;
  5687.  
  5688.   package body COMPK15 is
  5689.     function K15 return INTEGER is
  5690.     begin
  5691.       return 15;
  5692.     end K15;
  5693.   end COMPK15;
  5694. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5695. --compk16.txt
  5696. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5697.   package COMPK16 is
  5698.     function K16 return INTEGER;
  5699.   end COMPK16;
  5700.  
  5701.   package body COMPK16 is
  5702.     function K16 return INTEGER is
  5703.     begin
  5704.       return 16;
  5705.     end K16;
  5706.   end COMPK16;
  5707. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5708. --compk17.txt
  5709. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5710.   package COMPK17 is
  5711.     function K17 return INTEGER;
  5712.   end COMPK17;
  5713.  
  5714.   package body COMPK17 is
  5715.     function K17 return INTEGER is
  5716.     begin
  5717.       return 17;
  5718.     end K17;
  5719.   end COMPK17;
  5720. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5721. --compk18.txt
  5722. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5723.   package COMPK18 is
  5724.     function K18 return INTEGER;
  5725.   end COMPK18;
  5726.  
  5727.   package body COMPK18 is
  5728.     function K18 return INTEGER is
  5729.     begin
  5730.       return 18;
  5731.     end K18;
  5732.   end COMPK18;
  5733. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5734. --compk19.txt
  5735. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5736.   package COMPK19 is
  5737.     function K19 return INTEGER;
  5738.   end COMPK19;
  5739.  
  5740.   package body COMPK19 is
  5741.     function K19 return INTEGER is
  5742.     begin
  5743.       return 19;
  5744.     end K19;
  5745.   end COMPK19;
  5746. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5747. --compk20.txt
  5748. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5749.   package COMPK20 is
  5750.     function K20 return INTEGER;
  5751.   end COMPK20;
  5752.  
  5753.   package body COMPK20 is
  5754.     function K20 return INTEGER is
  5755.     begin
  5756.       return 20;
  5757.     end K20;
  5758.   end COMPK20;
  5759. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5760. --compk21.txt
  5761. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5762.   package COMPK21 is
  5763.     function K21 return INTEGER;
  5764.   end COMPK21;
  5765.  
  5766.   package body COMPK21 is
  5767.     function K21 return INTEGER is
  5768.     begin
  5769.       return 21;
  5770.     end K21;
  5771.   end COMPK21;
  5772. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5773. --compk22.txt
  5774. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5775.   package COMPK22 is
  5776.     function K22 return INTEGER;
  5777.   end COMPK22;
  5778.  
  5779.   package body COMPK22 is
  5780.     function K22 return INTEGER is
  5781.     begin
  5782.       return 22;
  5783.     end K22;
  5784.   end COMPK22;
  5785. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5786. --compk23.txt
  5787. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5788.   package COMPK23 is
  5789.     function K23 return INTEGER;
  5790.   end COMPK23;
  5791.  
  5792.   package body COMPK23 is
  5793.     function K23 return INTEGER is
  5794.     begin
  5795.       return 23;
  5796.     end K23;
  5797.   end COMPK23;
  5798. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5799. --compk24.txt
  5800. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5801.   package COMPK24 is
  5802.     function K24 return INTEGER;
  5803.   end COMPK24;
  5804.  
  5805.   package body COMPK24 is
  5806.     function K24 return INTEGER is
  5807.     begin
  5808.       return 24;
  5809.     end K24;
  5810.   end COMPK24;
  5811. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5812. --compk25.txt
  5813. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5814.   package COMPK25 is
  5815.     function K25 return INTEGER;
  5816.   end COMPK25;
  5817.  
  5818.   package body COMPK25 is
  5819.     function K25 return INTEGER is
  5820.     begin
  5821.       return 25;
  5822.     end K25;
  5823.   end COMPK25;
  5824. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5825. --compk50.txt
  5826. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5827. package COMPK is
  5828.  
  5829.   package COMPK1 is
  5830.     function K1 return INTEGER;
  5831.   end COMPK1;
  5832.  
  5833.   package COMPK2 is
  5834.     function K2 return INTEGER;
  5835.   end COMPK2;
  5836.  
  5837.   package COMPK3 is
  5838.     function K3 return INTEGER;
  5839.   end COMPK3;
  5840.  
  5841.   package COMPK4 is
  5842.     function K4 return INTEGER;
  5843.   end COMPK4;
  5844.  
  5845.   package COMPK5 is
  5846.     function K5 return INTEGER;
  5847.   end COMPK5;
  5848.  
  5849.   package COMPK6 is
  5850.     function K6 return INTEGER;
  5851.   end COMPK6;
  5852.  
  5853.   package COMPK7 is
  5854.     function K7 return INTEGER;
  5855.   end COMPK7;
  5856.  
  5857.   package COMPK8 is
  5858.     function K8 return INTEGER;
  5859.   end COMPK8;
  5860.  
  5861.   package COMPK9 is
  5862.     function K9 return INTEGER;
  5863.   end COMPK9;
  5864.  
  5865.   package COMPK10 is
  5866.     function K10 return INTEGER;
  5867.   end COMPK10;
  5868.  
  5869.   package COMPK11 is
  5870.     function K11 return INTEGER;
  5871.   end COMPK11;
  5872.  
  5873.   package COMPK12 is
  5874.     function K12 return INTEGER;
  5875.   end COMPK12;
  5876.  
  5877.   package COMPK13 is
  5878.     function K13 return INTEGER;
  5879.   end COMPK13;
  5880.  
  5881.   package COMPK14 is
  5882.     function K14 return INTEGER;
  5883.   end COMPK14;
  5884.  
  5885.   package COMPK15 is
  5886.     function K15 return INTEGER;
  5887.   end COMPK15;
  5888.  
  5889.   package COMPK16 is
  5890.     function K16 return INTEGER;
  5891.   end COMPK16;
  5892.  
  5893.   package COMPK17 is
  5894.     function K17 return INTEGER;
  5895.   end COMPK17;
  5896.  
  5897.   package COMPK18 is
  5898.     function K18 return INTEGER;
  5899.   end COMPK18;
  5900.  
  5901.   package COMPK19 is
  5902.     function K19 return INTEGER;
  5903.   end COMPK19;
  5904.  
  5905.   package COMPK20 is
  5906.     function K20 return INTEGER;
  5907.   end COMPK20;
  5908.  
  5909.   package COMPK21 is
  5910.     function K21 return INTEGER;
  5911.   end COMPK21;
  5912.  
  5913.   package COMPK22 is
  5914.     function K22 return INTEGER;
  5915.   end COMPK22;
  5916.  
  5917.   package COMPK23 is
  5918.     function K23 return INTEGER;
  5919.   end COMPK23;
  5920.  
  5921.   package COMPK24 is
  5922.     function K24 return INTEGER;
  5923.   end COMPK24;
  5924.  
  5925.   package COMPK25 is
  5926.     function K25 return INTEGER;
  5927.   end COMPK25;
  5928.  
  5929.   package COMPK26 is
  5930.     function K26 return INTEGER;
  5931.   end COMPK26;
  5932.  
  5933.   package COMPK27 is
  5934.     function K27 return INTEGER;
  5935.   end COMPK27;
  5936.  
  5937.   package COMPK28 is
  5938.     function K28 return INTEGER;
  5939.   end COMPK28;
  5940.  
  5941.   package COMPK29 is
  5942.     function K29 return INTEGER;
  5943.   end COMPK29;
  5944.  
  5945.   package COMPK30 is
  5946.     function K30 return INTEGER;
  5947.   end COMPK30;
  5948.  
  5949.   package COMPK31 is
  5950.     function K31 return INTEGER;
  5951.   end COMPK31;
  5952.  
  5953.   package COMPK32 is
  5954.     function K32 return INTEGER;
  5955.   end COMPK32;
  5956.  
  5957.   package COMPK33 is
  5958.     function K33 return INTEGER;
  5959.   end COMPK33;
  5960.  
  5961.   package COMPK34 is
  5962.     function K34 return INTEGER;
  5963.   end COMPK34;
  5964.  
  5965.   package COMPK35 is
  5966.     function K35 return INTEGER;
  5967.   end COMPK35;
  5968.  
  5969.   package COMPK36 is
  5970.     function K36 return INTEGER;
  5971.   end COMPK36;
  5972.  
  5973.   package COMPK37 is
  5974.     function K37 return INTEGER;
  5975.   end COMPK37;
  5976.  
  5977.   package COMPK38 is
  5978.     function K38 return INTEGER;
  5979.   end COMPK38;
  5980.  
  5981.   package COMPK39 is
  5982.     function K39 return INTEGER;
  5983.   end COMPK39;
  5984.  
  5985.   package COMPK40 is
  5986.     function K40 return INTEGER;
  5987.   end COMPK40;
  5988.  
  5989.   package COMPK41 is
  5990.     function K41 return INTEGER;
  5991.   end COMPK41;
  5992.  
  5993.   package COMPK42 is
  5994.     function K42 return INTEGER;
  5995.   end COMPK42;
  5996.  
  5997.   package COMPK43 is
  5998.     function K43 return INTEGER;
  5999.   end COMPK43;
  6000.  
  6001.   package COMPK44 is
  6002.     function K44 return INTEGER;
  6003.   end COMPK44;
  6004.  
  6005.   package COMPK45 is
  6006.     function K45 return INTEGER;
  6007.   end COMPK45;
  6008.  
  6009.   package COMPK46 is
  6010.     function K46 return INTEGER;
  6011.   end COMPK46;
  6012.  
  6013.   package COMPK47 is
  6014.     function K47 return INTEGER;
  6015.   end COMPK47;
  6016.  
  6017.   package COMPK48 is
  6018.     function K48 return INTEGER;
  6019.   end COMPK48;
  6020.  
  6021.   package COMPK49 is
  6022.     function K49 return INTEGER;
  6023.   end COMPK49;
  6024.  
  6025.   package COMPK50 is
  6026.     function K50 return INTEGER;
  6027.   end COMPK50;
  6028.  
  6029. end COMPK;
  6030.  
  6031.  
  6032. package body COMPK is
  6033.  
  6034.   package body COMPK1 is
  6035.     function K1 return INTEGER is
  6036.     begin
  6037.       return 1;
  6038.     end K1;
  6039.   end COMPK1;
  6040.  
  6041.   package body COMPK2 is
  6042.     function K2 return INTEGER is
  6043.     begin
  6044.       return 2;
  6045.     end K2;
  6046.   end COMPK2;
  6047.  
  6048.   package body COMPK3 is
  6049.     function K3 return INTEGER is
  6050.     begin
  6051.       return 3;
  6052.     end K3;
  6053.   end COMPK3;
  6054.  
  6055.   package body COMPK4 is
  6056.     function K4 return INTEGER is
  6057.     begin
  6058.       return 4;
  6059.     end K4;
  6060.   end COMPK4;
  6061.  
  6062.   package body COMPK5 is
  6063.     function K5 return INTEGER is
  6064.     begin
  6065.       return 5;
  6066.     end K5;
  6067.   end COMPK5;
  6068.  
  6069.   package body COMPK6 is
  6070.     function K6 return INTEGER is
  6071.     begin
  6072.       return 6;
  6073.     end K6;
  6074.   end COMPK6;
  6075.  
  6076.   package body COMPK7 is
  6077.     function K7 return INTEGER is
  6078.     begin
  6079.       return 7;
  6080.     end K7;
  6081.   end COMPK7;
  6082.  
  6083.   package body COMPK8 is
  6084.     function K8 return INTEGER is
  6085.     begin
  6086.       return 8;
  6087.     end K8;
  6088.   end COMPK8;
  6089.  
  6090.   package body COMPK9 is
  6091.     function K9 return INTEGER is
  6092.     begin
  6093.       return 9;
  6094.     end K9;
  6095.   end COMPK9;
  6096.  
  6097.   package body COMPK10 is
  6098.     function K10 return INTEGER is
  6099.     begin
  6100.       return 10;
  6101.     end K10;
  6102.   end COMPK10;
  6103.  
  6104.   package body COMPK11 is
  6105.     function K11 return INTEGER is
  6106.     begin
  6107.       return 11;
  6108.     end K11;
  6109.   end COMPK11;
  6110.  
  6111.   package body COMPK12 is
  6112.     function K12 return INTEGER is
  6113.     begin
  6114.       return 12;
  6115.     end K12;
  6116.   end COMPK12;
  6117.  
  6118.   package body COMPK13 is
  6119.     function K13 return INTEGER is
  6120.     begin
  6121.       return 13;
  6122.     end K13;
  6123.   end COMPK13;
  6124.  
  6125.   package body COMPK14 is
  6126.     function K14 return INTEGER is
  6127.     begin
  6128.       return 14;
  6129.     end K14;
  6130.   end COMPK14;
  6131.  
  6132.   package body COMPK15 is
  6133.     function K15 return INTEGER is
  6134.     begin
  6135.       return 15;
  6136.     end K15;
  6137.   end COMPK15;
  6138.  
  6139.   package body COMPK16 is
  6140.     function K16 return INTEGER is
  6141.     begin
  6142.       return 16;
  6143.     end K16;
  6144.   end COMPK16;
  6145.  
  6146.   package body COMPK17 is
  6147.     function K17 return INTEGER is
  6148.     begin
  6149.       return 17;
  6150.     end K17;
  6151.   end COMPK17;
  6152.  
  6153.   package body COMPK18 is
  6154.     function K18 return INTEGER is
  6155.     begin
  6156.       return 18;
  6157.     end K18;
  6158.   end COMPK18;
  6159.  
  6160.   package body COMPK19 is
  6161.     function K19 return INTEGER is
  6162.     begin
  6163.       return 19;
  6164.     end K19;
  6165.   end COMPK19;
  6166.  
  6167.   package body COMPK20 is
  6168.     function K20 return INTEGER is
  6169.     begin
  6170.       return 20;
  6171.     end K20;
  6172.   end COMPK20;
  6173.  
  6174.   package body COMPK21 is
  6175.     function K21 return INTEGER is
  6176.     begin
  6177.       return 21;
  6178.     end K21;
  6179.   end COMPK21;
  6180.  
  6181.   package body COMPK22 is
  6182.     function K22 return INTEGER is
  6183.     begin
  6184.       return 22;
  6185.     end K22;
  6186.   end COMPK22;
  6187.  
  6188.   package body COMPK23 is
  6189.     function K23 return INTEGER is
  6190.     begin
  6191.       return 23;
  6192.     end K23;
  6193.   end COMPK23;
  6194.  
  6195.   package body COMPK24 is
  6196.     function K24 return INTEGER is
  6197.     begin
  6198.       return 24;
  6199.     end K24;
  6200.   end COMPK24;
  6201.  
  6202.   package body COMPK25 is
  6203.     function K25 return INTEGER is
  6204.     begin
  6205.       return 25;
  6206.     end K25;
  6207.   end COMPK25;
  6208.  
  6209.   package body COMPK26 is
  6210.     function K26 return INTEGER is
  6211.     begin
  6212.       return 26;
  6213.     end K26;
  6214.   end COMPK26;
  6215.  
  6216.   package body COMPK27 is
  6217.     function K27 return INTEGER is
  6218.     begin
  6219.       return 27;
  6220.     end K27;
  6221.   end COMPK27;
  6222.  
  6223.   package body COMPK28 is
  6224.     function K28 return INTEGER is
  6225.     begin
  6226.       return 28;
  6227.     end K28;
  6228.   end COMPK28;
  6229.  
  6230.   package body COMPK29 is
  6231.     function K29 return INTEGER is
  6232.     begin
  6233.       return 29;
  6234.     end K29;
  6235.   end COMPK29;
  6236.  
  6237.   package body COMPK30 is
  6238.     function K30 return INTEGER is
  6239.     begin
  6240.       return 30;
  6241.     end K30;
  6242.   end COMPK30;
  6243.  
  6244.   package body COMPK31 is
  6245.     function K31 return INTEGER is
  6246.     begin
  6247.       return 31;
  6248.     end K31;
  6249.   end COMPK31;
  6250.  
  6251.   package body COMPK32 is
  6252.     function K32 return INTEGER is
  6253.     begin
  6254.       return 32;
  6255.     end K32;
  6256.   end COMPK32;
  6257.  
  6258.   package body COMPK33 is
  6259.     function K33 return INTEGER is
  6260.     begin
  6261.       return 33;
  6262.     end K33;
  6263.   end COMPK33;
  6264.  
  6265.   package body COMPK34 is
  6266.     function K34 return INTEGER is
  6267.     begin
  6268.       return 34;
  6269.     end K34;
  6270.   end COMPK34;
  6271.  
  6272.   package body COMPK35 is
  6273.     function K35 return INTEGER is
  6274.     begin
  6275.       return 35;
  6276.     end K35;
  6277.   end COMPK35;
  6278.  
  6279.   package body COMPK36 is
  6280.     function K36 return INTEGER is
  6281.     begin
  6282.       return 36;
  6283.     end K36;
  6284.   end COMPK36;
  6285.  
  6286.   package body COMPK37 is
  6287.     function K37 return INTEGER is
  6288.     begin
  6289.       return 37;
  6290.     end K37;
  6291.   end COMPK37;
  6292.  
  6293.   package body COMPK38 is
  6294.     function K38 return INTEGER is
  6295.     begin
  6296.       return 38;
  6297.     end K38;
  6298.   end COMPK38;
  6299.  
  6300.   package body COMPK39 is
  6301.     function K39 return INTEGER is
  6302.     begin
  6303.       return 39;
  6304.     end K39;
  6305.   end COMPK39;
  6306.  
  6307.   package body COMPK40 is
  6308.     function K40 return INTEGER is
  6309.     begin
  6310.       return 40;
  6311.     end K40;
  6312.   end COMPK40;
  6313.  
  6314.   package body COMPK41 is
  6315.     function K41 return INTEGER is
  6316.     begin
  6317.       return 41;
  6318.     end K41;
  6319.   end COMPK41;
  6320.  
  6321.   package body COMPK42 is
  6322.     function K42 return INTEGER is
  6323.     begin
  6324.       return 42;
  6325.     end K42;
  6326.   end COMPK42;
  6327.  
  6328.   package body COMPK43 is
  6329.     function K43 return INTEGER is
  6330.     begin
  6331.       return 43;
  6332.     end K43;
  6333.   end COMPK43;
  6334.  
  6335.   package body COMPK44 is
  6336.     function K44 return INTEGER is
  6337.     begin
  6338.       return 44;
  6339.     end K44;
  6340.   end COMPK44;
  6341.  
  6342.   package body COMPK45 is
  6343.     function K45 return INTEGER is
  6344.     begin
  6345.       return 45;
  6346.     end K45;
  6347.   end COMPK45;
  6348.  
  6349.   package body COMPK46 is
  6350.     function K46 return INTEGER is
  6351.     begin
  6352.       return 46;
  6353.     end K46;
  6354.   end COMPK46;
  6355.  
  6356.   package body COMPK47 is
  6357.     function K47 return INTEGER is
  6358.     begin
  6359.       return 47;
  6360.     end K47;
  6361.   end COMPK47;
  6362.  
  6363.   package body COMPK48 is
  6364.     function K48 return INTEGER is
  6365.     begin
  6366.       return 48;
  6367.     end K48;
  6368.   end COMPK48;
  6369.  
  6370.   package body COMPK49 is
  6371.     function K49 return INTEGER is
  6372.     begin
  6373.       return 49;
  6374.     end K49;
  6375.   end COMPK49;
  6376.  
  6377.   package body COMPK50 is
  6378.     function K50 return INTEGER is
  6379.     begin
  6380.       return 50;
  6381.     end K50;
  6382.   end COMPK50;
  6383.  
  6384. end COMPK;
  6385. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  6386. --compl.txt
  6387. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  6388. with COMPK; use COMPK;
  6389. procedure COMPL is
  6390.   L : INTEGER;
  6391. begin
  6392.   L :=
  6393.     COMPK1.K1   + COMPK2.K2   + COMPK3.K3   + COMPK4.K4   + COMPK5.K5
  6394.   + COMPK6.K6   + COMPK7.K7   + COMPK8.K8   + COMPK9.K9   + COMPK10.K10
  6395.   + COMPK11.K11 + COMPK12.K12 + COMPK13.K13 + COMPK14.K14 + COMPK15.K15
  6396.   + COMPK16.K16 + COMPK17.K17 + COMPK18.K18 + COMPK19.K19 + COMPK20.K20
  6397.   + COMPK21.K21 + COMPK22.K22 + COMPK23.K23 + COMPK24.K24 + COMPK25.K25 ;
  6398. end COMPL;
  6399. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  6400. --compm.txt
  6401. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  6402. with COMPK1,  COMPK2,  COMPK3,  COMPK4,  COMPK5,
  6403.      COMPK6,  COMPK7,  COMPK8,  COMPK9,  COMPK10,
  6404.      COMPK11, COMPK12, COMPK13, COMPK14, COMPK15,
  6405.      COMPK16, COMPK17, COMPK18, COMPK19, COMPK20,
  6406.      COMPK21, COMPK22, COMPK23, COMPK24, COMPK25 ;
  6407. procedure COMPM is
  6408.   L : INTEGER;
  6409. begin
  6410.   L :=
  6411.     COMPK1.K1   + COMPK2.K2   + COMPK3.K3   + COMPK4.K4   + COMPK5.K5
  6412.   + COMPK6.K6   + COMPK7.K7   + COMPK8.K8   + COMPK9.K9   + COMPK10.K10
  6413.   + COMPK11.K11 + COMPK12.K12 + COMPK13.K13 + COMPK14.K14 + COMPK15.K15
  6414.   + COMPK16.K16 + COMPK17.K17 + COMPK18.K18 + COMPK19.K19 + COMPK20.K20
  6415.   + COMPK21.K21 + COMPK22.K22 + COMPK23.K23 + COMPK24.K24 + COMPK25.K25 ;
  6416. end COMPM;
  6417. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  6418. --compm50.txt
  6419. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  6420. with COMPK1,  COMPK2,  COMPK3,  COMPK4,  COMPK5,
  6421.      COMPK6,  COMPK7,  COMPK8,  COMPK9,  COMPK10,
  6422.      COMPK11, COMPK12, COMPK13, COMPK14, COMPK15,
  6423.      COMPK16, COMPK17, COMPK18, COMPK19, COMPK20,
  6424.      COMPK21, COMPK22, COMPK23, COMPK24, COMPK25,
  6425.      COMPK26, COMPK27, COMPK28, COMPK29, COMPK30,
  6426.      COMPK31, COMPK32, COMPK33, COMPK34, COMPK35,
  6427.      COMPK36, COMPK37, COMPK38, COMPK39, COMPK40,
  6428.      COMPK41, COMPK42, COMPK43, COMPK44, COMPK45,
  6429.      COMPK46, COMPK47, COMPK48, COMPK49, COMPK50  ;
  6430. procedure COMPM is
  6431.   L : INTEGER;
  6432. begin
  6433.   L :=
  6434.     COMPK1.K1   + COMPK2.K2   + COMPK3.K3   + COMPK4.K4   + COMPK5.K5
  6435.     COMPK6.K6   + COMPK7.K7   + COMPK8.K8   + COMPK9.K9   + COMPK10.K10
  6436.     COMPK11.K11 + COMPK12.K12 + COMPK13.K13 + COMPK14.K14 + COMPK15.K15
  6437.     COMPK16.K16 + COMPK17.K17 + COMPK18.K18 + COMPK19.K19 + COMPK20.K20
  6438.     COMPK21.K21 + COMPK22.K22 + COMPK23.K23 + COMPK24.K24 + COMPK25.K25
  6439.     COMPK26.K26 + COMPK27.K27 + COMPK28.K28 + COMPK29.K29 + COMPK30.K30
  6440.     COMPK31.K31 + COMPK32.K32 + COMPK33.K33 + COMPK34.K34 + COMPK35.K35
  6441.     COMPK36.K36 + COMPK37.K37 + COMPK38.K38 + COMPK39.K39 + COMPK40.K40
  6442.     COMPK41.K41 + COMPK42.K42 + COMPK43.K43 + COMPK44.K44 + COMPK45.K45
  6443.     COMPK46.K46 + COMPK47.K47 + COMPK48.K48 + COMPK49.K49 + COMPK50.K50 ;
  6444. end COMPM;
  6445. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  6446. --compn.txt
  6447. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  6448. procedure COMPN is
  6449. begin
  6450.   null;
  6451. end COMPN;
  6452. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  6453. --compt.txt
  6454. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  6455. with TEXT_IO; use TEXT_IO;
  6456. procedure COMPT is
  6457.   A : INTEGER;
  6458. begin
  6459.   A := 0;
  6460. end COMPT;
  6461. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  6462. --compz.txt
  6463. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  6464. procedure COMPZ is
  6465.   A : INTEGER;
  6466. begin
  6467.   A := 0;
  6468. end COMPZ;
  6469. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  6470. --imp.txt
  6471. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  6472.  
  6473. with TEXT_IO;
  6474. with CALENDAR; use CALENDAR;
  6475. with SYSTEM;
  6476. with DIRECT_IO;
  6477. procedure IMP is
  6478.   package INTEGER_IO is new TEXT_IO.INTEGER_IO(INTEGER);
  6479.   package FLOAT_IO is new TEXT_IO.FLOAT_IO(FLOAT);
  6480.   use TEXT_IO;
  6481.   use INTEGER_IO;
  6482.   use FLOAT_IO;
  6483.  
  6484.   pragma SUPPRESS(ACCESS_CHECK);
  6485.   pragma SUPPRESS(DISCRIMINANT_CHECK);
  6486.   pragma SUPPRESS(INDEX_CHECK);
  6487.   pragma SUPPRESS(LENGTH_CHECK);
  6488.   pragma SUPPRESS(RANGE_CHECK);
  6489.   pragma SUPPRESS(DIVISION_CHECK);
  6490.   pragma SUPPRESS(OVERFLOW_CHECK);
  6491.   pragma SUPPRESS(STORAGE_CHECK);
  6492.  
  6493.   MACHINE_SPEED : constant FLOAT := 1.0;
  6494.  
  6495.   procedure GOOD is
  6496.   begin
  6497.     PUT("!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!    ");
  6498.   end GOOD;
  6499.   
  6500.   procedure BAD is
  6501.   begin
  6502.     PUT("####################################    ");
  6503.   end BAD;
  6504.  
  6505.   procedure IMPLEMENTATION_DEFINITIONS is
  6506.     --LONG_INTEGER_IO is new TEXT_IO.INTEGER_IO(LONG_INTEGER); 
  6507.     --LONG_FLOAT_IO is new TEXT_IO.FLOAT_IO(LONG_FLOAT);
  6508.     package BOOLEAN_IO is new TEXT_IO.ENUMERATION_IO(BOOLEAN); use BOOLEAN_IO;
  6509.   --use LONG_INTEGER_IO;
  6510.   --use LONG_FLOAT_IO;
  6511.      
  6512.     
  6513.   begin
  6514.     
  6515.     PACKAGE_SYSTEM_PARAMETERS:
  6516.     begin
  6517.       PUT("PACKAGE SYSTEM:"); NEW_LINE; NEW_LINE;
  6518.       PUT("SYSTEM.STORAGE_UNIT "); PUT(SYSTEM.STORAGE_UNIT); NEW_LINE;
  6519.       PUT("SYSTEM.MEMORY_SIZE  "); PUT(SYSTEM.MEMORY_SIZE); NEW_LINE;
  6520.       PUT("SYSTEM.MIN_INT      "); PUT(SYSTEM.MIN_INT); NEW_LINE;
  6521.       PUT("SYSTEM.MAX_INT      "); PUT(SYSTEM.MAX_INT); NEW_LINE;
  6522.       if SYSTEM.MAX_DIGITS < 7  then BAD; end if;
  6523.       PUT("SYSTEM.MAX_DIGITS   "); PUT(SYSTEM.MAX_DIGITS); NEW_LINE;
  6524.       if SYSTEM.FINE_DELTA < 0.001  then GOOD; end if;
  6525.       PUT("SYSTEM.FINE_DELTA   "); PUT(SYSTEM.FINE_DELTA); NEW_LINE;
  6526.       PUT("SYSTEM.TICK         "); PUT(SYSTEM.TICK); NEW_LINE;
  6527.       NEW_LINE; NEW_LINE;
  6528.     end PACKAGE_SYSTEM_PARAMETERS;
  6529.     
  6530.     STANDARD:
  6531.     begin
  6532.       PUT("STANDARD:"); NEW_LINE; NEW_LINE;
  6533.       --PUT("SHORT_INTEGER is range "); PUT(SHORT_INTEGER'FIRST);
  6534.                                 --PUT(".."); PUT(SHORT_INTEGER'LAST); NEW_LINE;
  6535.       if FLOAT(INTEGER'LAST) < 2.0E6  then  BAD; end if;
  6536.       PUT("INTEGER is range "); PUT(INTEGER'FIRST);
  6537.                                 PUT(".."); PUT(INTEGER'LAST); NEW_LINE;
  6538.       --PUT("LONG_INTEGER is range "); PUT(LONG_INTEGER'FIRST);
  6539.                                 --PUT(".."); PUT(LONG_INTEGER'LAST); NEW_LINE;
  6540.       PUT("DURATION'DELTA = "); PUT(FLOAT(DURATION'DELTA)); NEW_LINE;
  6541.       PUT("DURATION'SMALL = "); PUT(FLOAT(DURATION'SMALL)); NEW_LINE;
  6542.       NEW_LINE; NEW_LINE;
  6543.     end STANDARD;
  6544.     
  6545.     GENERAL_ATTRIBUTES:
  6546.     begin
  6547.       PUT("GENERAL ATTRIBUTES:"); NEW_LINE; NEW_LINE;
  6548.       if FLOAT'MACHINE_ROUNDS = FALSE  then BAD; end if;
  6549.       PUT("FLOAT'MACHINE_ROUNDS = "); PUT(FLOAT'MACHINE_ROUNDS); NEW_LINE;
  6550.       NEW_LINE; NEW_LINE;
  6551.     end GENERAL_ATTRIBUTES;
  6552.    
  6553.     CHAPTER_14:
  6554.     begin
  6555.       PUT("CHAPTER 14:"); NEW_LINE; NEW_LINE;
  6556.       if FLOAT(DIRECT_IO.COUNT'LAST) < 2.0E6  then BAD; end if;
  6557.       PUT("DIRECT_IO.COUNT'LAST "); PUT(DIRECT_IO.COUNT'LAST); NEW_LINE;
  6558.       PUT("TEXT_IO.COUNT'LAST "); PUT(TEXT_IO.COUNT'LAST); NEW_LINE;
  6559.       PUT("TEXT_IO.FIELD'LAST "); PUT(TEXT_IO.FIELD'LAST); NEW_LINE;
  6560.       NEW_LINE; NEW_LINE;
  6561.     end CHAPTER_14;
  6562.     
  6563.   end IMPLEMENTATION_DEFINITIONS;
  6564.   
  6565.   procedure CHARACTERISTICS_OF_MACHINE_FLOAT is
  6566.     subtype NUMBER is FLOAT;
  6567.   
  6568.     IBETA : INTEGER;
  6569.     --  The radix of the floating-point representation
  6570.  
  6571.     IT : INTEGER;
  6572.     --  The number of base IBETA digits in the NUMBER significand
  6573.  
  6574.     IRND : INTEGER;
  6575.     --  TRUE (1) if floating addition rounds, FALSE (0) if truncates
  6576.  
  6577.     NGRD : INTEGER;
  6578.     --  Number of guard digits for multiplication
  6579.  
  6580.     MACHEP : INTEGER;
  6581.     --  The largest negative integer 
  6582.  
  6583.     NEGEP : INTEGER;
  6584.     --  The largest negative integer such that
  6585.     --    1.0 + NUMBER(IBETA) ** MACHEP /= 1.0
  6586.     --  except that MACHEP is bounded below by -(IT + 3)
  6587.  
  6588.     IEXP : INTEGER;
  6589.     --  The number of bits (decimal places if IBETA = 10)
  6590.     --  reserved for the representation of the exponent (including
  6591.     --  the bias or sign) of a floating-point number
  6592.  
  6593.     MINEXP : INTEGER;
  6594.     --  The largest in magnitude negative integer such that
  6595.     --  NUMBER(IBETA) ** M is a positive floating-point number
  6596.  
  6597.  
  6598.     MAXEXP : INTEGER;
  6599.     --  The largest positive exponent for a finite floating-point number
  6600.  
  6601.     EPS : NUMBER;
  6602.     --  The smallest positive floating-point number such that
  6603.     --                              1.0 + EPS /= 1.0
  6604.     --  In particular, if IBETA = 2 or IRND = 0,
  6605.     --  EPS = NUMBER(IBETA) ** MACHEP
  6606.     --  Otherwise, EPS = (NUMBER(IBETA) ** MACHEP) / 2
  6607.  
  6608.  
  6609.     EPSNEG : NUMBER;
  6610.     --  A small positive floating-point number such that 1.0-EPSNEG /= 1.0  XMIN : NUMBER;
  6611.     --  The smallest non-vanishing floating-point power of the radix
  6612.     --  In particular, XMIN = NUMBER(IBETA) ** MAXEXP
  6613.  
  6614.     XMIN : NUMBER;
  6615.     --  The smallest finite floating-point number
  6616.  
  6617.     XMAX : NUMBER;
  6618.     --  The largest finite floating-point number
  6619.  
  6620.     --  ONE and ZERO must be defined in the package for NUMBER
  6621.     --  since they may not be able to take a litteral for user type
  6622.     ZERO : NUMBER := 0.0;
  6623.     ONE  : NUMBER := 1.0;
  6624.     A, B, Y, Z : NUMBER;
  6625.     I, K, MX, IZ : INTEGER;
  6626.     BETA, BETAM1, BETAIN : NUMBER;
  6627.  
  6628.  
  6629.   begin
  6630.     NEW_LINE; PUT(" CHARACTERISTICS_OF_MACHINE_FLOAT:"); NEW_LINE;
  6631.     
  6632.     A := ONE;
  6633.     while (((A + ONE) - A) - ONE) = ZERO  loop
  6634.       A := A + A;
  6635.     end loop;
  6636.     B := ONE;
  6637.     while ((A + B) - A) = ZERO  loop
  6638.       B := B + B;
  6639.     end loop;
  6640.   --  IBETA := INTEGER((A + B) - A);
  6641.   --  BETA := NUMBER(IBETA);
  6642.     B := (A + B) - A;
  6643.     B := B - ONE/(ONE+ONE);
  6644.     IBETA := 0;
  6645.     BETA := ZERO;
  6646.     while B > ZERO  loop
  6647.       BETA := BETA + ONE;
  6648.       IBETA := IBETA + 1;
  6649.       B := B - ONE;
  6650.     end loop;
  6651.   PUT("    IBETA  : INTEGER  :=    "); PUT(IBETA); NEW_LINE;
  6652.   PUT("    BETA   : NUMBER   :=    "); PUT(BETA); NEW_LINE;
  6653.   
  6654.     IT := 0;
  6655.     B := ONE;
  6656.     while (((B + ONE) - B) - ONE) = ZERO  loop
  6657.       IT := IT + 1;
  6658.       B := B * BETA;
  6659.     end loop;
  6660.   PUT("    IT     : INTEGER  :=    "); PUT(IT); NEW_LINE;
  6661.   
  6662.     IRND := 0;
  6663.     BETAM1 := BETA - ONE;
  6664.     if ((A + BETAM1) - A) /= ZERO  then
  6665.       IRND := 1;
  6666.     end if;
  6667.   PUT("    IRND   : INTEGER  :=    "); PUT(IRND); NEW_LINE;
  6668.   
  6669.     NEGEP := IT + 3;
  6670.     BETAIN := ONE / BETA;
  6671.     A := ONE;
  6672.   --  for I in 1..NEGEP  loop
  6673.   for I in 1..50  loop
  6674.   exit when I > NEGEP;
  6675.       A := A * BETAIN;
  6676.     end loop;
  6677.     B := A;
  6678.     while ((ONE - A) - ONE) = ZERO  loop
  6679.       A := A * BETA;
  6680.       NEGEP := NEGEP - 1;
  6681.     end loop;
  6682.     NEGEP := -NEGEP;
  6683.   PUT("    NEGEP  : INTEGER  :=    "); PUT(NEGEP); NEW_LINE;
  6684.   
  6685.     EPSNEG := A;
  6686.     if (IBETA /= 2) and (IRND /= 0)  then
  6687.       A := (A * (ONE + A)) / (ONE + ONE);
  6688.       if ((ONE - A) - ONE) /= ZERO  then
  6689.         EPSNEG := A;
  6690.       end if;
  6691.     end if;
  6692.   PUT("    EPSNEG : NUMBER   :=    "); PUT(EPSNEG); NEW_LINE;
  6693.   
  6694.     MACHEP := -IT - 3;
  6695.     A := B;
  6696.     while ((ONE + A) - ONE) = ZERO  loop
  6697.       A := A * BETA;
  6698.       MACHEP := MACHEP + 1;
  6699.     end loop;
  6700.   PUT("    MACHEP : INTEGER  :=    "); PUT(MACHEP); NEW_LINE;
  6701.   
  6702.     EPS := A;
  6703.     if (IBETA /= 2) and (IRND /= 0)  then
  6704.       A := (A * (ONE + A)) / (ONE + ONE);
  6705.       if ((ONE + A) - ONE) /= ZERO  then
  6706.         EPS := A;
  6707.       end if;
  6708.     end if;
  6709.   PUT("    EPS    : NUMBER   :=    "); PUT(EPS); NEW_LINE;
  6710.   
  6711.     NGRD := 0;
  6712.     if ((IRND = 0) and ((ONE + EPS) * ONE - ONE) /= ZERO)  then
  6713.       NGRD := 1;
  6714.     end if;
  6715.   PUT("    NGRD   : INTEGER  :=    "); PUT(NGRD); NEW_LINE;
  6716.   
  6717.     I := 0;
  6718.     K := 1;
  6719.     Z := BETAIN;
  6720.     loop
  6721.       Y := Z;
  6722.       Z := Y * Y;
  6723.       A := Z * ONE;
  6724.       exit when ((A + A) = ZERO) or (ABS(Z) >= Y);
  6725.       I := I + 1;
  6726.       K := K + K;
  6727.     end loop;
  6728.     if (IBETA /= 10)  then
  6729.       IEXP := I + 1;
  6730.       MX := K + K;
  6731.     else
  6732.       IEXP := 2;
  6733.       IZ := IBETA;
  6734.       while (K >= IZ)  loop
  6735.         IZ := IZ * IBETA;
  6736.         IEXP := IEXP + 1;
  6737.       end loop;
  6738.       MX := IZ + IZ - 1;
  6739.     end if;
  6740.     loop
  6741.       XMIN := Y;
  6742.       Y := Y * BETAIN;
  6743.       A := Y * ONE;
  6744.       exit when ((A + A) = ZERO) or (ABS(Y) >= XMIN);
  6745.       K := K + 1;
  6746.     end loop;
  6747.   PUT("    XMIN   : NUMBER   :=    "); PUT(XMIN); NEW_LINE;
  6748.   
  6749.     MINEXP := -K;
  6750.   PUT("    MINEXP : INTEGER  :=    "); PUT(MINEXP); NEW_LINE;
  6751.   
  6752.     if ((MX <= (K + K - 3)) and (IBETA /= 10))  then
  6753.       MX := MX + MX;
  6754.       IEXP := IEXP + 1;
  6755.     end if;
  6756.   PUT("    IEXP   : INTEGER  :=    "); PUT(IEXP); NEW_LINE;
  6757.   
  6758.     MAXEXP := MX + MINEXP;
  6759.     I := MAXEXP + MINEXP;
  6760.     if ((IBETA = 2) and (I = 0))  then
  6761.       MAXEXP := MAXEXP - 1;
  6762.     end if;
  6763.     if (I > 20)  then
  6764.       MAXEXP := MAXEXP - 1;
  6765.     end if;
  6766.     if (A /= Y)  then
  6767.       MAXEXP := MAXEXP - 2;
  6768.     end if;
  6769.   PUT("    MAXEXP : INTEGER  :=    "); PUT(MAXEXP); NEW_LINE;
  6770.   
  6771.     XMAX := ONE - EPSNEG;
  6772.     if ((XMAX * ONE) /= XMAX)  then
  6773.       XMAX := ONE - BETA * EPSNEG;
  6774.     end if;
  6775.     XMAX := XMAX / (BETA * BETA * BETA * XMIN);
  6776.     I := MAXEXP + MINEXP + 3;
  6777.     if I > 0  then
  6778.       for J in 1..50  loop
  6779.   exit when J > I;
  6780.         if IBETA = 2  then
  6781.           XMAX := XMAX + XMAX;
  6782.         else
  6783.           XMAX := XMAX * BETA;
  6784.         end if;
  6785.       end loop;
  6786.     end if;
  6787.   PUT("    XMAX   : NUMBER   :=    "); PUT(XMAX); NEW_LINE;
  6788.   
  6789.   exception
  6790.   when others  =>
  6791.     null;
  6792.   end CHARACTERISTICS_OF_MACHINE_FLOAT;
  6793.  
  6794.   procedure INTEGER_ADD is
  6795.     X : INTEGER := 1;
  6796.     Y : INTEGER := 0;
  6797.   begin
  6798.       for J in 1..1_000 loop
  6799.         Y := Y + X + X + X + X + X + X + X + X + X + X;
  6800.       end loop;
  6801.   end INTEGER_ADD;
  6802.   
  6803.   procedure FLOAT_ADD is
  6804.     X : FLOAT := 0.0001;
  6805.     Y : FLOAT := 0.0;
  6806.   begin
  6807.       for J in 1..1_000 loop
  6808.         Y := Y + X + X + X + X + X + X + X + X + X + X;
  6809.       end loop;
  6810.   end FLOAT_ADD;
  6811.   
  6812.   procedure MULT is
  6813.     X : FLOAT := 1.000_001;
  6814.     Y : FLOAT := 1.0;
  6815.   
  6816.   begin
  6817.     for I in 1..100  loop
  6818.       for J in 1..1_000 loop
  6819.         Y := Y * X * X * X * X * X * X * X * X * X * X;
  6820.       end loop;
  6821.     end loop;
  6822.   end MULT;
  6823.   
  6824.     function ACKERMANN(N, M : INTEGER) return INTEGER is
  6825.       begin
  6826.         if N = 0  then
  6827.           return M + 1;
  6828.         elsif M = 0  then
  6829.           return ACKERMANN(N-1, 1);
  6830.         else
  6831.           return ACKERMANN(N-1, ACKERMANN(N,M-1));
  6832.         end if;
  6833.       end ACKERMANN;
  6834.   
  6835.   
  6836.   procedure SIEVE is
  6837.     
  6838.     SIZE  : constant INTEGER := 8_190;
  6839.     FLAGS: array (0..SIZE) of BOOLEAN;
  6840.     COUNT : INTEGER := 0;
  6841.     TIMES : constant INTEGER := 10;
  6842.     
  6843.     procedure PRIMES is
  6844.       PRIME, K : INTEGER;
  6845.     begin
  6846.       for I in 0..SIZE  loop
  6847.         FLAGS(I) := TRUE;
  6848.       end loop;
  6849.       COUNT := 2;
  6850.       for I in 0..SIZE  loop
  6851.         if FLAGS(I) = TRUE  then
  6852.           PRIME := I + I + 3;
  6853.           K := I + PRIME;
  6854.           while K <= SIZE  loop
  6855.             FLAGS(K) := FALSE;
  6856.             K := K + PRIME;
  6857.           end loop;
  6858.           COUNT := COUNT + 1;
  6859.         end if;
  6860.       end loop;
  6861.     end PRIMES;
  6862.     
  6863.   begin
  6864.   
  6865.     for I in 1..TIMES  loop
  6866.       PRIMES;
  6867.     end loop;
  6868.   
  6869.   end SIEVE;
  6870.   
  6871.   procedure MACK is
  6872.   EXPECTED_ACKER_TIME : constant FLOAT := 8.0;
  6873.   EXPECTED_SIEVE_TIME : constant FLOAT := 8.0;
  6874.   
  6875.   START_TIME, STOP_TIME, TOTAL_TIME : FLOAT := 0.0;
  6876.   INTEGER_ADD_TIME, FLOAT_ADD_TIME, ACKER_TIME, SIEVE_TIME : FLOAT;
  6877.   I : INTEGER;
  6878.   
  6879.   begin
  6880.  
  6881.     START_TIME := FLOAT(CALENDAR.SECONDS(CALENDAR.CLOCK));
  6882.     INTEGER_ADD;
  6883.     STOP_TIME := FLOAT(CALENDAR.SECONDS(CALENDAR.CLOCK));
  6884.     INTEGER_ADD_TIME := STOP_TIME - START_TIME;
  6885.     PUT("INTEGER ADD TIME FOR 10000 = "); PUT(INTEGER_ADD_TIME); NEW_LINE;
  6886.  
  6887.     START_TIME := FLOAT(CALENDAR.SECONDS(CALENDAR.CLOCK));
  6888.     FLOAT_ADD;
  6889.     STOP_TIME := FLOAT(CALENDAR.SECONDS(CALENDAR.CLOCK));
  6890.     FLOAT_ADD_TIME := STOP_TIME - START_TIME;
  6891.     PUT("  FLOAT ADD TIME FOR 10000 = "); PUT(FLOAT_ADD_TIME); NEW_LINE;
  6892.  
  6893.     if FLOAT_ADD_TIME > INTEGER_ADD_TIME * 4.0  then
  6894.       BAD;
  6895.       PUT("FLOAT may be slow"); NEW_LINE;
  6896.     end if;
  6897.  
  6898.     START_TIME := FLOAT(CALENDAR.SECONDS(CALENDAR.CLOCK));
  6899.     I := ACKERMANN(3, 6);
  6900.     STOP_TIME := FLOAT(CALENDAR.SECONDS(CALENDAR.CLOCK));
  6901.     ACKER_TIME := STOP_TIME - START_TIME;
  6902.     if ACKER_TIME > EXPECTED_ACKER_TIME / MACHINE_SPEED * 2.0  then
  6903.       BAD;
  6904.     elsif ACKER_TIME < EXPECTED_ACKER_TIME / MACHINE_SPEED / 2.0  then
  6905.       GOOD;
  6906.     end if;
  6907.     PUT(" ACKER BENCHMARK   "); PUT(ACKER_TIME); NEW_LINE;
  6908.  
  6909.     START_TIME := FLOAT(CALENDAR.SECONDS(CALENDAR.CLOCK));
  6910.     SIEVE;
  6911.     STOP_TIME := FLOAT(CALENDAR.SECONDS(CALENDAR.CLOCK));
  6912.     SIEVE_TIME := STOP_TIME - START_TIME;
  6913.     if SIEVE_TIME > EXPECTED_SIEVE_TIME / MACHINE_SPEED * 2.0  then
  6914.       BAD;
  6915.     elsif SIEVE_TIME < EXPECTED_SIEVE_TIME / MACHINE_SPEED / 2.0  then
  6916.       GOOD;
  6917.     end if;
  6918.     PUT(" SIEVE BENCHMARK   "); PUT(SIEVE_TIME); NEW_LINE;
  6919.   
  6920.   end MACK;
  6921.  
  6922.   procedure TIMER is
  6923.     DATE, DATE1, DATE2 : TIME;
  6924.     YR, MO, DA : INTEGER;
  6925.     HR, MN, SC : INTEGER;
  6926.     SEC : FLOAT;
  6927.     J, K : INTEGER;
  6928.     A, B, C, D : FLOAT;
  6929.   
  6930.     procedure PUT_FILLED(N, W : in INTEGER) is
  6931.     begin
  6932.       if W = 2  and   N < 10  then
  6933.         PUT('0');
  6934.         PUT(N, 1);
  6935.       else 
  6936.         PUT(N, W);
  6937.       end if;
  6938.     end PUT_FILLED;
  6939.   
  6940.   begin
  6941.     DATE := CLOCK;
  6942.     YR :=(INTEGER(YEAR(DATE)));
  6943.     MO := (INTEGER(MONTH(DATE)));
  6944.     DA := (INTEGER(DAY(DATE)));
  6945.     PUT("THE DATE (IN ISO FORMAT) IS ");
  6946.     PUT(YR, 4);
  6947.     PUT_FILLED(MO, 2);
  6948.     PUT_FILLED(DA, 2);
  6949.     NEW_LINE;
  6950.     SEC := (FLOAT(SECONDS(DATE)));
  6951.     PUT("THE TIME OF DAY IS ");
  6952.     HR := INTEGER(SEC/3600.0 - 0.5);
  6953.     MN := INTEGER((SEC-FLOAT(HR)*3600.0)/60.0 - 0.5);
  6954.     SC := INTEGER((SEC-FLOAT(HR)*3600.0)-FLOAT(MN)*60.0);
  6955.     PUT_FILLED(HR,2); PUT(':'); PUT_FILLED(MN,2); PUT(':'); PUT_FILLED(SC,2);
  6956.     NEW_LINE;
  6957.   
  6958.     NEW_LINE;
  6959.     A := 0.0;
  6960.     C := 0.0;
  6961.     D := 1000.0;
  6962.     FOR I IN 1..1000  LOOP
  6963.       DATE1 := CLOCK;
  6964.       DATE2 := CLOCK;
  6965.       B := (FLOAT(SECONDS(DATE2) - SECONDS(DATE1)));
  6966.       IF B > A  THEN
  6967.         A := B;
  6968.       END IF;
  6969.       IF B < D  THEN
  6970.         D := B;
  6971.       END IF;
  6972.       C := C + B;
  6973.     END LOOP;
  6974.     PUT("AVERAGE TIME BETWEEN SUCCESSIVE CALLS TO CLOCK  ");
  6975.     PUT(FLOAT(C/1000.0));
  6976.     NEW_LINE;
  6977.     PUT("MAXIMUM TIME BETWEEN SUCCESSIVE CALLS TO CLOCK  ");
  6978.     PUT(FLOAT(A));
  6979.     NEW_LINE;
  6980.     PUT("MINIMUM TIME BETWEEN SUCCESSIVE CALLS TO CLOCK  ");
  6981.     PUT(FLOAT(D));
  6982.     NEW_LINE;
  6983.     NEW_LINE;
  6984.   
  6985.     DATE1 := CLOCK;
  6986.     FOR I IN 1..10000  LOOP
  6987.       K := I + 1 - I /2;
  6988.     END LOOP;
  6989.     DATE2 := CLOCK;
  6990.     PUT("10000 ARBITARY OPERATIONS    ");
  6991.     PUT(FLOAT(SECONDS(DATE2) - SECONDS(DATE1)));
  6992.     NEW_LINE;
  6993.   
  6994.   end TIMER;
  6995.  
  6996. begin
  6997.   
  6998.   IMPLEMENTATION_DEFINITIONS;
  6999.   CHARACTERISTICS_OF_MACHINE_FLOAT;
  7000.   MACK;
  7001.   TIMER;
  7002.   
  7003. end IMP;
  7004.  
  7005.