API tools faq
paste
Guest User

Random6502

a guest
May 11th, 2023
80
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C++ 45.93 KB | None | 0 0
raw download clone embed print report
  1. #include <climits>
  2. #include <iostream>
  3. using namespace std;
  4. int Rand(int Seed)
  5. {
  6.     const int MBIG = INT_MAX;
  7.     const int MSEED = 161803398;
  8.     int inext;
  9.     int inextp;
  10.     int SeedArray[56];
  11.     {
  12.         int ii;
  13.         int mj, mk;
  14.  
  15.         // Initialize our Seed array.
  16.         // This algorithm comes from Numerical Recipes in C (2nd Ed.)
  17.         int subtraction = Seed;
  18.         mj = MSEED - subtraction;
  19.         SeedArray[55] = mj;
  20.         mk = 1;
  21.         {
  22.             ii = (21 * 1) % 55;
  23.             SeedArray[ii] = mk;
  24.             mk = mj - mk;
  25.             if (mk < 0)
  26.                 mk += MBIG;
  27.             mj = SeedArray[ii];
  28.         }
  29.         {
  30.             ii = (21 * 2) % 55;
  31.             SeedArray[ii] = mk;
  32.             mk = mj - mk;
  33.             if (mk < 0)
  34.                 mk += MBIG;
  35.             mj = SeedArray[ii];
  36.         }
  37.         {
  38.             ii = (21 * 3) % 55;
  39.             SeedArray[ii] = mk;
  40.             mk = mj - mk;
  41.             if (mk < 0)
  42.                 mk += MBIG;
  43.             mj = SeedArray[ii];
  44.         }
  45.         {
  46.             ii = (21 * 4) % 55;
  47.             SeedArray[ii] = mk;
  48.             mk = mj - mk;
  49.             if (mk < 0)
  50.                 mk += MBIG;
  51.             mj = SeedArray[ii];
  52.         }
  53.         {
  54.             ii = (21 * 5) % 55;
  55.             SeedArray[ii] = mk;
  56.             mk = mj - mk;
  57.             if (mk < 0)
  58.                 mk += MBIG;
  59.             mj = SeedArray[ii];
  60.         }
  61.         {
  62.             ii = (21 * 6) % 55;
  63.             SeedArray[ii] = mk;
  64.             mk = mj - mk;
  65.             if (mk < 0)
  66.                 mk += MBIG;
  67.             mj = SeedArray[ii];
  68.         }
  69.         {
  70.             ii = (21 * 7) % 55;
  71.             SeedArray[ii] = mk;
  72.             mk = mj - mk;
  73.             if (mk < 0)
  74.                 mk += MBIG;
  75.             mj = SeedArray[ii];
  76.         }
  77.         {
  78.             ii = (21 * 8) % 55;
  79.             SeedArray[ii] = mk;
  80.             mk = mj - mk;
  81.             if (mk < 0)
  82.                 mk += MBIG;
  83.             mj = SeedArray[ii];
  84.         }
  85.         {
  86.             ii = (21 * 9) % 55;
  87.             SeedArray[ii] = mk;
  88.             mk = mj - mk;
  89.             if (mk < 0)
  90.                 mk += MBIG;
  91.             mj = SeedArray[ii];
  92.         }
  93.         {
  94.             ii = (21 * 10) % 55;
  95.             SeedArray[ii] = mk;
  96.             mk = mj - mk;
  97.             if (mk < 0)
  98.                 mk += MBIG;
  99.             mj = SeedArray[ii];
  100.         }
  101.         {
  102.             ii = (21 * 11) % 55;
  103.             SeedArray[ii] = mk;
  104.             mk = mj - mk;
  105.             if (mk < 0)
  106.                 mk += MBIG;
  107.             mj = SeedArray[ii];
  108.         }
  109.         {
  110.             ii = (21 * 12) % 55;
  111.             SeedArray[ii] = mk;
  112.             mk = mj - mk;
  113.             if (mk < 0)
  114.                 mk += MBIG;
  115.             mj = SeedArray[ii];
  116.         }
  117.         {
  118.             ii = (21 * 13) % 55;
  119.             SeedArray[ii] = mk;
  120.             mk = mj - mk;
  121.             if (mk < 0)
  122.                 mk += MBIG;
  123.             mj = SeedArray[ii];
  124.         }
  125.         {
  126.             ii = (21 * 14) % 55;
  127.             SeedArray[ii] = mk;
  128.             mk = mj - mk;
  129.             if (mk < 0)
  130.                 mk += MBIG;
  131.             mj = SeedArray[ii];
  132.         }
  133.         {
  134.             ii = (21 * 15) % 55;
  135.             SeedArray[ii] = mk;
  136.             mk = mj - mk;
  137.             if (mk < 0)
  138.                 mk += MBIG;
  139.             mj = SeedArray[ii];
  140.         }
  141.         {
  142.             ii = (21 * 16) % 55;
  143.             SeedArray[ii] = mk;
  144.             mk = mj - mk;
  145.             if (mk < 0)
  146.                 mk += MBIG;
  147.             mj = SeedArray[ii];
  148.         }
  149.         {
  150.             ii = (21 * 17) % 55;
  151.             SeedArray[ii] = mk;
  152.             mk = mj - mk;
  153.             if (mk < 0)
  154.                 mk += MBIG;
  155.             mj = SeedArray[ii];
  156.         }
  157.         {
  158.             ii = (21 * 18) % 55;
  159.             SeedArray[ii] = mk;
  160.             mk = mj - mk;
  161.             if (mk < 0)
  162.                 mk += MBIG;
  163.             mj = SeedArray[ii];
  164.         }
  165.         {
  166.             ii = (21 * 19) % 55;
  167.             SeedArray[ii] = mk;
  168.             mk = mj - mk;
  169.             if (mk < 0)
  170.                 mk += MBIG;
  171.             mj = SeedArray[ii];
  172.         }
  173.         {
  174.             ii = (21 * 20) % 55;
  175.             SeedArray[ii] = mk;
  176.             mk = mj - mk;
  177.             if (mk < 0)
  178.                 mk += MBIG;
  179.             mj = SeedArray[ii];
  180.         }
  181.         {
  182.             ii = (21 * 21) % 55;
  183.             SeedArray[ii] = mk;
  184.             mk = mj - mk;
  185.             if (mk < 0)
  186.                 mk += MBIG;
  187.             mj = SeedArray[ii];
  188.         }
  189.         {
  190.             ii = (21 * 22) % 55;
  191.             SeedArray[ii] = mk;
  192.             mk = mj - mk;
  193.             if (mk < 0)
  194.                 mk += MBIG;
  195.             mj = SeedArray[ii];
  196.         }
  197.         {
  198.             ii = (21 * 23) % 55;
  199.             SeedArray[ii] = mk;
  200.             mk = mj - mk;
  201.             if (mk < 0)
  202.                 mk += MBIG;
  203.             mj = SeedArray[ii];
  204.         }
  205.         {
  206.             ii = (21 * 24) % 55;
  207.             SeedArray[ii] = mk;
  208.             mk = mj - mk;
  209.             if (mk < 0)
  210.                 mk += MBIG;
  211.             mj = SeedArray[ii];
  212.         }
  213.         {
  214.             ii = (21 * 25) % 55;
  215.             SeedArray[ii] = mk;
  216.             mk = mj - mk;
  217.             if (mk < 0)
  218.                 mk += MBIG;
  219.             mj = SeedArray[ii];
  220.         }
  221.         {
  222.             ii = (21 * 26) % 55;
  223.             SeedArray[ii] = mk;
  224.             mk = mj - mk;
  225.             if (mk < 0)
  226.                 mk += MBIG;
  227.             mj = SeedArray[ii];
  228.         }
  229.         {
  230.             ii = (21 * 27) % 55;
  231.             SeedArray[ii] = mk;
  232.             mk = mj - mk;
  233.             if (mk < 0)
  234.                 mk += MBIG;
  235.             mj = SeedArray[ii];
  236.         }
  237.         {
  238.             ii = (21 * 28) % 55;
  239.             SeedArray[ii] = mk;
  240.             mk = mj - mk;
  241.             if (mk < 0)
  242.                 mk += MBIG;
  243.             mj = SeedArray[ii];
  244.         }
  245.         {
  246.             ii = (21 * 29) % 55;
  247.             SeedArray[ii] = mk;
  248.             mk = mj - mk;
  249.             if (mk < 0)
  250.                 mk += MBIG;
  251.             mj = SeedArray[ii];
  252.         }
  253.         {
  254.             ii = (21 * 30) % 55;
  255.             SeedArray[ii] = mk;
  256.             mk = mj - mk;
  257.             if (mk < 0)
  258.                 mk += MBIG;
  259.             mj = SeedArray[ii];
  260.         }
  261.         {
  262.             ii = (21 * 31) % 55;
  263.             SeedArray[ii] = mk;
  264.             mk = mj - mk;
  265.             if (mk < 0)
  266.                 mk += MBIG;
  267.             mj = SeedArray[ii];
  268.         }
  269.         {
  270.             ii = (21 * 32) % 55;
  271.             SeedArray[ii] = mk;
  272.             mk = mj - mk;
  273.             if (mk < 0)
  274.                 mk += MBIG;
  275.             mj = SeedArray[ii];
  276.         }
  277.         {
  278.             ii = (21 * 33) % 55;
  279.             SeedArray[ii] = mk;
  280.             mk = mj - mk;
  281.             if (mk < 0)
  282.                 mk += MBIG;
  283.             mj = SeedArray[ii];
  284.         }
  285.         {
  286.             ii = (21 * 34) % 55;
  287.             SeedArray[ii] = mk;
  288.             mk = mj - mk;
  289.             if (mk < 0)
  290.                 mk += MBIG;
  291.             mj = SeedArray[ii];
  292.         }
  293.         {
  294.             ii = (21 * 35) % 55;
  295.             SeedArray[ii] = mk;
  296.             mk = mj - mk;
  297.             if (mk < 0)
  298.                 mk += MBIG;
  299.             mj = SeedArray[ii];
  300.         }
  301.         {
  302.             ii = (21 * 36) % 55;
  303.             SeedArray[ii] = mk;
  304.             mk = mj - mk;
  305.             if (mk < 0)
  306.                 mk += MBIG;
  307.             mj = SeedArray[ii];
  308.         }
  309.         {
  310.             ii = (21 * 37) % 55;
  311.             SeedArray[ii] = mk;
  312.             mk = mj - mk;
  313.             if (mk < 0)
  314.                 mk += MBIG;
  315.             mj = SeedArray[ii];
  316.         }
  317.         {
  318.             ii = (21 * 38) % 55;
  319.             SeedArray[ii] = mk;
  320.             mk = mj - mk;
  321.             if (mk < 0)
  322.                 mk += MBIG;
  323.             mj = SeedArray[ii];
  324.         }
  325.         {
  326.             ii = (21 * 39) % 55;
  327.             SeedArray[ii] = mk;
  328.             mk = mj - mk;
  329.             if (mk < 0)
  330.                 mk += MBIG;
  331.             mj = SeedArray[ii];
  332.         }
  333.         {
  334.             ii = (21 * 40) % 55;
  335.             SeedArray[ii] = mk;
  336.             mk = mj - mk;
  337.             if (mk < 0)
  338.                 mk += MBIG;
  339.             mj = SeedArray[ii];
  340.         }
  341.         {
  342.             ii = (21 * 41) % 55;
  343.             SeedArray[ii] = mk;
  344.             mk = mj - mk;
  345.             if (mk < 0)
  346.                 mk += MBIG;
  347.             mj = SeedArray[ii];
  348.         }
  349.         {
  350.             ii = (21 * 42) % 55;
  351.             SeedArray[ii] = mk;
  352.             mk = mj - mk;
  353.             if (mk < 0)
  354.                 mk += MBIG;
  355.             mj = SeedArray[ii];
  356.         }
  357.         {
  358.             ii = (21 * 43) % 55;
  359.             SeedArray[ii] = mk;
  360.             mk = mj - mk;
  361.             if (mk < 0)
  362.                 mk += MBIG;
  363.             mj = SeedArray[ii];
  364.         }
  365.         {
  366.             ii = (21 * 44) % 55;
  367.             SeedArray[ii] = mk;
  368.             mk = mj - mk;
  369.             if (mk < 0)
  370.                 mk += MBIG;
  371.             mj = SeedArray[ii];
  372.         }
  373.         {
  374.             ii = (21 * 45) % 55;
  375.             SeedArray[ii] = mk;
  376.             mk = mj - mk;
  377.             if (mk < 0)
  378.                 mk += MBIG;
  379.             mj = SeedArray[ii];
  380.         }
  381.         {
  382.             ii = (21 * 46) % 55;
  383.             SeedArray[ii] = mk;
  384.             mk = mj - mk;
  385.             if (mk < 0)
  386.                 mk += MBIG;
  387.             mj = SeedArray[ii];
  388.         }
  389.         {
  390.             ii = (21 * 47) % 55;
  391.             SeedArray[ii] = mk;
  392.             mk = mj - mk;
  393.             if (mk < 0)
  394.                 mk += MBIG;
  395.             mj = SeedArray[ii];
  396.         }
  397.         {
  398.             ii = (21 * 48) % 55;
  399.             SeedArray[ii] = mk;
  400.             mk = mj - mk;
  401.             if (mk < 0)
  402.                 mk += MBIG;
  403.             mj = SeedArray[ii];
  404.         }
  405.         {
  406.             ii = (21 * 49) % 55;
  407.             SeedArray[ii] = mk;
  408.             mk = mj - mk;
  409.             if (mk < 0)
  410.                 mk += MBIG;
  411.             mj = SeedArray[ii];
  412.         }
  413.         {
  414.             ii = (21 * 50) % 55;
  415.             SeedArray[ii] = mk;
  416.             mk = mj - mk;
  417.             if (mk < 0)
  418.                 mk += MBIG;
  419.             mj = SeedArray[ii];
  420.         }
  421.         {
  422.             ii = (21 * 51) % 55;
  423.             SeedArray[ii] = mk;
  424.             mk = mj - mk;
  425.             if (mk < 0)
  426.                 mk += MBIG;
  427.             mj = SeedArray[ii];
  428.         }
  429.         {
  430.             ii = (21 * 52) % 55;
  431.             SeedArray[ii] = mk;
  432.             mk = mj - mk;
  433.             if (mk < 0)
  434.                 mk += MBIG;
  435.             mj = SeedArray[ii];
  436.         }
  437.         {
  438.             ii = (21 * 53) % 55;
  439.             SeedArray[ii] = mk;
  440.             mk = mj - mk;
  441.             if (mk < 0)
  442.                 mk += MBIG;
  443.             mj = SeedArray[ii];
  444.         }
  445.         {
  446.             ii = (21 * 54) % 55;
  447.             SeedArray[ii] = mk;
  448.             mk = mj - mk;
  449.             if (mk < 0)
  450.                 mk += MBIG;
  451.             mj = SeedArray[ii];
  452.         }
  453.  
  454.         {
  455.             SeedArray[1] -= SeedArray[1 + (1 + 30) % 55];
  456.             if (SeedArray[1] < 0)
  457.                 SeedArray[1] += MBIG;
  458.         }
  459.         {
  460.             SeedArray[2] -= SeedArray[1 + (2 + 30) % 55];
  461.             if (SeedArray[2] < 0)
  462.                 SeedArray[2] += MBIG;
  463.         }
  464.         {
  465.             SeedArray[3] -= SeedArray[1 + (3 + 30) % 55];
  466.             if (SeedArray[3] < 0)
  467.                 SeedArray[3] += MBIG;
  468.         }
  469.         {
  470.             SeedArray[4] -= SeedArray[1 + (4 + 30) % 55];
  471.             if (SeedArray[4] < 0)
  472.                 SeedArray[4] += MBIG;
  473.         }
  474.         {
  475.             SeedArray[5] -= SeedArray[1 + (5 + 30) % 55];
  476.             if (SeedArray[5] < 0)
  477.                 SeedArray[5] += MBIG;
  478.         }
  479.         {
  480.             SeedArray[6] -= SeedArray[1 + (6 + 30) % 55];
  481.             if (SeedArray[6] < 0)
  482.                 SeedArray[6] += MBIG;
  483.         }
  484.         {
  485.             SeedArray[7] -= SeedArray[1 + (7 + 30) % 55];
  486.             if (SeedArray[7] < 0)
  487.                 SeedArray[7] += MBIG;
  488.         }
  489.         {
  490.             SeedArray[8] -= SeedArray[1 + (8 + 30) % 55];
  491.             if (SeedArray[8] < 0)
  492.                 SeedArray[8] += MBIG;
  493.         }
  494.         {
  495.             SeedArray[9] -= SeedArray[1 + (9 + 30) % 55];
  496.             if (SeedArray[9] < 0)
  497.                 SeedArray[9] += MBIG;
  498.         }
  499.         {
  500.             SeedArray[10] -= SeedArray[1 + (10 + 30) % 55];
  501.             if (SeedArray[10] < 0)
  502.                 SeedArray[10] += MBIG;
  503.         }
  504.         {
  505.             SeedArray[11] -= SeedArray[1 + (11 + 30) % 55];
  506.             if (SeedArray[11] < 0)
  507.                 SeedArray[11] += MBIG;
  508.         }
  509.         {
  510.             SeedArray[12] -= SeedArray[1 + (12 + 30) % 55];
  511.             if (SeedArray[12] < 0)
  512.                 SeedArray[12] += MBIG;
  513.         }
  514.         {
  515.             SeedArray[13] -= SeedArray[1 + (13 + 30) % 55];
  516.             if (SeedArray[13] < 0)
  517.                 SeedArray[13] += MBIG;
  518.         }
  519.         {
  520.             SeedArray[14] -= SeedArray[1 + (14 + 30) % 55];
  521.             if (SeedArray[14] < 0)
  522.                 SeedArray[14] += MBIG;
  523.         }
  524.         {
  525.             SeedArray[15] -= SeedArray[1 + (15 + 30) % 55];
  526.             if (SeedArray[15] < 0)
  527.                 SeedArray[15] += MBIG;
  528.         }
  529.         {
  530.             SeedArray[16] -= SeedArray[1 + (16 + 30) % 55];
  531.             if (SeedArray[16] < 0)
  532.                 SeedArray[16] += MBIG;
  533.         }
  534.         {
  535.             SeedArray[17] -= SeedArray[1 + (17 + 30) % 55];
  536.             if (SeedArray[17] < 0)
  537.                 SeedArray[17] += MBIG;
  538.         }
  539.         {
  540.             SeedArray[18] -= SeedArray[1 + (18 + 30) % 55];
  541.             if (SeedArray[18] < 0)
  542.                 SeedArray[18] += MBIG;
  543.         }
  544.         {
  545.             SeedArray[19] -= SeedArray[1 + (19 + 30) % 55];
  546.             if (SeedArray[19] < 0)
  547.                 SeedArray[19] += MBIG;
  548.         }
  549.         {
  550.             SeedArray[20] -= SeedArray[1 + (20 + 30) % 55];
  551.             if (SeedArray[20] < 0)
  552.                 SeedArray[20] += MBIG;
  553.         }
  554.         {
  555.             SeedArray[21] -= SeedArray[1 + (21 + 30) % 55];
  556.             if (SeedArray[21] < 0)
  557.                 SeedArray[21] += MBIG;
  558.         }
  559.         {
  560.             SeedArray[22] -= SeedArray[1 + (22 + 30) % 55];
  561.             if (SeedArray[22] < 0)
  562.                 SeedArray[22] += MBIG;
  563.         }
  564.         {
  565.             SeedArray[23] -= SeedArray[1 + (23 + 30) % 55];
  566.             if (SeedArray[23] < 0)
  567.                 SeedArray[23] += MBIG;
  568.         }
  569.         {
  570.             SeedArray[24] -= SeedArray[1 + (24 + 30) % 55];
  571.             if (SeedArray[24] < 0)
  572.                 SeedArray[24] += MBIG;
  573.         }
  574.         {
  575.             SeedArray[25] -= SeedArray[1 + (25 + 30) % 55];
  576.             if (SeedArray[25] < 0)
  577.                 SeedArray[25] += MBIG;
  578.         }
  579.         {
  580.             SeedArray[26] -= SeedArray[1 + (26 + 30) % 55];
  581.             if (SeedArray[26] < 0)
  582.                 SeedArray[26] += MBIG;
  583.         }
  584.         {
  585.             SeedArray[27] -= SeedArray[1 + (27 + 30) % 55];
  586.             if (SeedArray[27] < 0)
  587.                 SeedArray[27] += MBIG;
  588.         }
  589.         {
  590.             SeedArray[28] -= SeedArray[1 + (28 + 30) % 55];
  591.             if (SeedArray[28] < 0)
  592.                 SeedArray[28] += MBIG;
  593.         }
  594.         {
  595.             SeedArray[29] -= SeedArray[1 + (29 + 30) % 55];
  596.             if (SeedArray[29] < 0)
  597.                 SeedArray[29] += MBIG;
  598.         }
  599.         {
  600.             SeedArray[30] -= SeedArray[1 + (30 + 30) % 55];
  601.             if (SeedArray[30] < 0)
  602.                 SeedArray[30] += MBIG;
  603.         }
  604.         {
  605.             SeedArray[31] -= SeedArray[1 + (31 + 30) % 55];
  606.             if (SeedArray[31] < 0)
  607.                 SeedArray[31] += MBIG;
  608.         }
  609.         {
  610.             SeedArray[32] -= SeedArray[1 + (32 + 30) % 55];
  611.             if (SeedArray[32] < 0)
  612.                 SeedArray[32] += MBIG;
  613.         }
  614.         {
  615.             SeedArray[33] -= SeedArray[1 + (33 + 30) % 55];
  616.             if (SeedArray[33] < 0)
  617.                 SeedArray[33] += MBIG;
  618.         }
  619.         {
  620.             SeedArray[34] -= SeedArray[1 + (34 + 30) % 55];
  621.             if (SeedArray[34] < 0)
  622.                 SeedArray[34] += MBIG;
  623.         }
  624.         {
  625.             SeedArray[35] -= SeedArray[1 + (35 + 30) % 55];
  626.             if (SeedArray[35] < 0)
  627.                 SeedArray[35] += MBIG;
  628.         }
  629.         {
  630.             SeedArray[36] -= SeedArray[1 + (36 + 30) % 55];
  631.             if (SeedArray[36] < 0)
  632.                 SeedArray[36] += MBIG;
  633.         }
  634.         {
  635.             SeedArray[37] -= SeedArray[1 + (37 + 30) % 55];
  636.             if (SeedArray[37] < 0)
  637.                 SeedArray[37] += MBIG;
  638.         }
  639.         {
  640.             SeedArray[38] -= SeedArray[1 + (38 + 30) % 55];
  641.             if (SeedArray[38] < 0)
  642.                 SeedArray[38] += MBIG;
  643.         }
  644.         {
  645.             SeedArray[39] -= SeedArray[1 + (39 + 30) % 55];
  646.             if (SeedArray[39] < 0)
  647.                 SeedArray[39] += MBIG;
  648.         }
  649.         {
  650.             SeedArray[40] -= SeedArray[1 + (40 + 30) % 55];
  651.             if (SeedArray[40] < 0)
  652.                 SeedArray[40] += MBIG;
  653.         }
  654.         {
  655.             SeedArray[41] -= SeedArray[1 + (41 + 30) % 55];
  656.             if (SeedArray[41] < 0)
  657.                 SeedArray[41] += MBIG;
  658.         }
  659.         {
  660.             SeedArray[42] -= SeedArray[1 + (42 + 30) % 55];
  661.             if (SeedArray[42] < 0)
  662.                 SeedArray[42] += MBIG;
  663.         }
  664.         {
  665.             SeedArray[43] -= SeedArray[1 + (43 + 30) % 55];
  666.             if (SeedArray[43] < 0)
  667.                 SeedArray[43] += MBIG;
  668.         }
  669.         {
  670.             SeedArray[44] -= SeedArray[1 + (44 + 30) % 55];
  671.             if (SeedArray[44] < 0)
  672.                 SeedArray[44] += MBIG;
  673.         }
  674.         {
  675.             SeedArray[45] -= SeedArray[1 + (45 + 30) % 55];
  676.             if (SeedArray[45] < 0)
  677.                 SeedArray[45] += MBIG;
  678.         }
  679.         {
  680.             SeedArray[46] -= SeedArray[1 + (46 + 30) % 55];
  681.             if (SeedArray[46] < 0)
  682.                 SeedArray[46] += MBIG;
  683.         }
  684.         {
  685.             SeedArray[47] -= SeedArray[1 + (47 + 30) % 55];
  686.             if (SeedArray[47] < 0)
  687.                 SeedArray[47] += MBIG;
  688.         }
  689.         {
  690.             SeedArray[48] -= SeedArray[1 + (48 + 30) % 55];
  691.             if (SeedArray[48] < 0)
  692.                 SeedArray[48] += MBIG;
  693.         }
  694.         {
  695.             SeedArray[49] -= SeedArray[1 + (49 + 30) % 55];
  696.             if (SeedArray[49] < 0)
  697.                 SeedArray[49] += MBIG;
  698.         }
  699.         {
  700.             SeedArray[50] -= SeedArray[1 + (50 + 30) % 55];
  701.             if (SeedArray[50] < 0)
  702.                 SeedArray[50] += MBIG;
  703.         }
  704.         {
  705.             SeedArray[51] -= SeedArray[1 + (51 + 30) % 55];
  706.             if (SeedArray[51] < 0)
  707.                 SeedArray[51] += MBIG;
  708.         }
  709.         {
  710.             SeedArray[52] -= SeedArray[1 + (52 + 30) % 55];
  711.             if (SeedArray[52] < 0)
  712.                 SeedArray[52] += MBIG;
  713.         }
  714.         {
  715.             SeedArray[53] -= SeedArray[1 + (53 + 30) % 55];
  716.             if (SeedArray[53] < 0)
  717.                 SeedArray[53] += MBIG;
  718.         }
  719.         {
  720.             SeedArray[54] -= SeedArray[1 + (54 + 30) % 55];
  721.             if (SeedArray[54] < 0)
  722.                 SeedArray[54] += MBIG;
  723.         }
  724.         {
  725.             SeedArray[55] -= SeedArray[1 + (55 + 30) % 55];
  726.             if (SeedArray[55] < 0)
  727.                 SeedArray[55] += MBIG;
  728.         }
  729.         {
  730.             SeedArray[1] -= SeedArray[1 + (1 + 30) % 55];
  731.             if (SeedArray[1] < 0)
  732.                 SeedArray[1] += MBIG;
  733.         }
  734.         {
  735.             SeedArray[2] -= SeedArray[1 + (2 + 30) % 55];
  736.             if (SeedArray[2] < 0)
  737.                 SeedArray[2] += MBIG;
  738.         }
  739.         {
  740.             SeedArray[3] -= SeedArray[1 + (3 + 30) % 55];
  741.             if (SeedArray[3] < 0)
  742.                 SeedArray[3] += MBIG;
  743.         }
  744.         {
  745.             SeedArray[4] -= SeedArray[1 + (4 + 30) % 55];
  746.             if (SeedArray[4] < 0)
  747.                 SeedArray[4] += MBIG;
  748.         }
  749.         {
  750.             SeedArray[5] -= SeedArray[1 + (5 + 30) % 55];
  751.             if (SeedArray[5] < 0)
  752.                 SeedArray[5] += MBIG;
  753.         }
  754.         {
  755.             SeedArray[6] -= SeedArray[1 + (6 + 30) % 55];
  756.             if (SeedArray[6] < 0)
  757.                 SeedArray[6] += MBIG;
  758.         }
  759.         {
  760.             SeedArray[7] -= SeedArray[1 + (7 + 30) % 55];
  761.             if (SeedArray[7] < 0)
  762.                 SeedArray[7] += MBIG;
  763.         }
  764.         {
  765.             SeedArray[8] -= SeedArray[1 + (8 + 30) % 55];
  766.             if (SeedArray[8] < 0)
  767.                 SeedArray[8] += MBIG;
  768.         }
  769.         {
  770.             SeedArray[9] -= SeedArray[1 + (9 + 30) % 55];
  771.             if (SeedArray[9] < 0)
  772.                 SeedArray[9] += MBIG;
  773.         }
  774.         {
  775.             SeedArray[10] -= SeedArray[1 + (10 + 30) % 55];
  776.             if (SeedArray[10] < 0)
  777.                 SeedArray[10] += MBIG;
  778.         }
  779.         {
  780.             SeedArray[11] -= SeedArray[1 + (11 + 30) % 55];
  781.             if (SeedArray[11] < 0)
  782.                 SeedArray[11] += MBIG;
  783.         }
  784.         {
  785.             SeedArray[12] -= SeedArray[1 + (12 + 30) % 55];
  786.             if (SeedArray[12] < 0)
  787.                 SeedArray[12] += MBIG;
  788.         }
  789.         {
  790.             SeedArray[13] -= SeedArray[1 + (13 + 30) % 55];
  791.             if (SeedArray[13] < 0)
  792.                 SeedArray[13] += MBIG;
  793.         }
  794.         {
  795.             SeedArray[14] -= SeedArray[1 + (14 + 30) % 55];
  796.             if (SeedArray[14] < 0)
  797.                 SeedArray[14] += MBIG;
  798.         }
  799.         {
  800.             SeedArray[15] -= SeedArray[1 + (15 + 30) % 55];
  801.             if (SeedArray[15] < 0)
  802.                 SeedArray[15] += MBIG;
  803.         }
  804.         {
  805.             SeedArray[16] -= SeedArray[1 + (16 + 30) % 55];
  806.             if (SeedArray[16] < 0)
  807.                 SeedArray[16] += MBIG;
  808.         }
  809.         {
  810.             SeedArray[17] -= SeedArray[1 + (17 + 30) % 55];
  811.             if (SeedArray[17] < 0)
  812.                 SeedArray[17] += MBIG;
  813.         }
  814.         {
  815.             SeedArray[18] -= SeedArray[1 + (18 + 30) % 55];
  816.             if (SeedArray[18] < 0)
  817.                 SeedArray[18] += MBIG;
  818.         }
  819.         {
  820.             SeedArray[19] -= SeedArray[1 + (19 + 30) % 55];
  821.             if (SeedArray[19] < 0)
  822.                 SeedArray[19] += MBIG;
  823.         }
  824.         {
  825.             SeedArray[20] -= SeedArray[1 + (20 + 30) % 55];
  826.             if (SeedArray[20] < 0)
  827.                 SeedArray[20] += MBIG;
  828.         }
  829.         {
  830.             SeedArray[21] -= SeedArray[1 + (21 + 30) % 55];
  831.             if (SeedArray[21] < 0)
  832.                 SeedArray[21] += MBIG;
  833.         }
  834.         {
  835.             SeedArray[22] -= SeedArray[1 + (22 + 30) % 55];
  836.             if (SeedArray[22] < 0)
  837.                 SeedArray[22] += MBIG;
  838.         }
  839.         {
  840.             SeedArray[23] -= SeedArray[1 + (23 + 30) % 55];
  841.             if (SeedArray[23] < 0)
  842.                 SeedArray[23] += MBIG;
  843.         }
  844.         {
  845.             SeedArray[24] -= SeedArray[1 + (24 + 30) % 55];
  846.             if (SeedArray[24] < 0)
  847.                 SeedArray[24] += MBIG;
  848.         }
  849.         {
  850.             SeedArray[25] -= SeedArray[1 + (25 + 30) % 55];
  851.             if (SeedArray[25] < 0)
  852.                 SeedArray[25] += MBIG;
  853.         }
  854.         {
  855.             SeedArray[26] -= SeedArray[1 + (26 + 30) % 55];
  856.             if (SeedArray[26] < 0)
  857.                 SeedArray[26] += MBIG;
  858.         }
  859.         {
  860.             SeedArray[27] -= SeedArray[1 + (27 + 30) % 55];
  861.             if (SeedArray[27] < 0)
  862.                 SeedArray[27] += MBIG;
  863.         }
  864.         {
  865.             SeedArray[28] -= SeedArray[1 + (28 + 30) % 55];
  866.             if (SeedArray[28] < 0)
  867.                 SeedArray[28] += MBIG;
  868.         }
  869.         {
  870.             SeedArray[29] -= SeedArray[1 + (29 + 30) % 55];
  871.             if (SeedArray[29] < 0)
  872.                 SeedArray[29] += MBIG;
  873.         }
  874.         {
  875.             SeedArray[30] -= SeedArray[1 + (30 + 30) % 55];
  876.             if (SeedArray[30] < 0)
  877.                 SeedArray[30] += MBIG;
  878.         }
  879.         {
  880.             SeedArray[31] -= SeedArray[1 + (31 + 30) % 55];
  881.             if (SeedArray[31] < 0)
  882.                 SeedArray[31] += MBIG;
  883.         }
  884.         {
  885.             SeedArray[32] -= SeedArray[1 + (32 + 30) % 55];
  886.             if (SeedArray[32] < 0)
  887.                 SeedArray[32] += MBIG;
  888.         }
  889.         {
  890.             SeedArray[33] -= SeedArray[1 + (33 + 30) % 55];
  891.             if (SeedArray[33] < 0)
  892.                 SeedArray[33] += MBIG;
  893.         }
  894.         {
  895.             SeedArray[34] -= SeedArray[1 + (34 + 30) % 55];
  896.             if (SeedArray[34] < 0)
  897.                 SeedArray[34] += MBIG;
  898.         }
  899.         {
  900.             SeedArray[35] -= SeedArray[1 + (35 + 30) % 55];
  901.             if (SeedArray[35] < 0)
  902.                 SeedArray[35] += MBIG;
  903.         }
  904.         {
  905.             SeedArray[36] -= SeedArray[1 + (36 + 30) % 55];
  906.             if (SeedArray[36] < 0)
  907.                 SeedArray[36] += MBIG;
  908.         }
  909.         {
  910.             SeedArray[37] -= SeedArray[1 + (37 + 30) % 55];
  911.             if (SeedArray[37] < 0)
  912.                 SeedArray[37] += MBIG;
  913.         }
  914.         {
  915.             SeedArray[38] -= SeedArray[1 + (38 + 30) % 55];
  916.             if (SeedArray[38] < 0)
  917.                 SeedArray[38] += MBIG;
  918.         }
  919.         {
  920.             SeedArray[39] -= SeedArray[1 + (39 + 30) % 55];
  921.             if (SeedArray[39] < 0)
  922.                 SeedArray[39] += MBIG;
  923.         }
  924.         {
  925.             SeedArray[40] -= SeedArray[1 + (40 + 30) % 55];
  926.             if (SeedArray[40] < 0)
  927.                 SeedArray[40] += MBIG;
  928.         }
  929.         {
  930.             SeedArray[41] -= SeedArray[1 + (41 + 30) % 55];
  931.             if (SeedArray[41] < 0)
  932.                 SeedArray[41] += MBIG;
  933.         }
  934.         {
  935.             SeedArray[42] -= SeedArray[1 + (42 + 30) % 55];
  936.             if (SeedArray[42] < 0)
  937.                 SeedArray[42] += MBIG;
  938.         }
  939.         {
  940.             SeedArray[43] -= SeedArray[1 + (43 + 30) % 55];
  941.             if (SeedArray[43] < 0)
  942.                 SeedArray[43] += MBIG;
  943.         }
  944.         {
  945.             SeedArray[44] -= SeedArray[1 + (44 + 30) % 55];
  946.             if (SeedArray[44] < 0)
  947.                 SeedArray[44] += MBIG;
  948.         }
  949.         {
  950.             SeedArray[45] -= SeedArray[1 + (45 + 30) % 55];
  951.             if (SeedArray[45] < 0)
  952.                 SeedArray[45] += MBIG;
  953.         }
  954.         {
  955.             SeedArray[46] -= SeedArray[1 + (46 + 30) % 55];
  956.             if (SeedArray[46] < 0)
  957.                 SeedArray[46] += MBIG;
  958.         }
  959.         {
  960.             SeedArray[47] -= SeedArray[1 + (47 + 30) % 55];
  961.             if (SeedArray[47] < 0)
  962.                 SeedArray[47] += MBIG;
  963.         }
  964.         {
  965.             SeedArray[48] -= SeedArray[1 + (48 + 30) % 55];
  966.             if (SeedArray[48] < 0)
  967.                 SeedArray[48] += MBIG;
  968.         }
  969.         {
  970.             SeedArray[49] -= SeedArray[1 + (49 + 30) % 55];
  971.             if (SeedArray[49] < 0)
  972.                 SeedArray[49] += MBIG;
  973.         }
  974.         {
  975.             SeedArray[50] -= SeedArray[1 + (50 + 30) % 55];
  976.             if (SeedArray[50] < 0)
  977.                 SeedArray[50] += MBIG;
  978.         }
  979.         {
  980.             SeedArray[51] -= SeedArray[1 + (51 + 30) % 55];
  981.             if (SeedArray[51] < 0)
  982.                 SeedArray[51] += MBIG;
  983.         }
  984.         {
  985.             SeedArray[52] -= SeedArray[1 + (52 + 30) % 55];
  986.             if (SeedArray[52] < 0)
  987.                 SeedArray[52] += MBIG;
  988.         }
  989.         {
  990.             SeedArray[53] -= SeedArray[1 + (53 + 30) % 55];
  991.             if (SeedArray[53] < 0)
  992.                 SeedArray[53] += MBIG;
  993.         }
  994.         {
  995.             SeedArray[54] -= SeedArray[1 + (54 + 30) % 55];
  996.             if (SeedArray[54] < 0)
  997.                 SeedArray[54] += MBIG;
  998.         }
  999.         {
  1000.             SeedArray[55] -= SeedArray[1 + (55 + 30) % 55];
  1001.             if (SeedArray[55] < 0)
  1002.                 SeedArray[55] += MBIG;
  1003.         }
  1004.         {
  1005.             SeedArray[1] -= SeedArray[1 + (1 + 30) % 55];
  1006.             if (SeedArray[1] < 0)
  1007.                 SeedArray[1] += MBIG;
  1008.         }
  1009.         {
  1010.             SeedArray[2] -= SeedArray[1 + (2 + 30) % 55];
  1011.             if (SeedArray[2] < 0)
  1012.                 SeedArray[2] += MBIG;
  1013.         }
  1014.         {
  1015.             SeedArray[3] -= SeedArray[1 + (3 + 30) % 55];
  1016.             if (SeedArray[3] < 0)
  1017.                 SeedArray[3] += MBIG;
  1018.         }
  1019.         {
  1020.             SeedArray[4] -= SeedArray[1 + (4 + 30) % 55];
  1021.             if (SeedArray[4] < 0)
  1022.                 SeedArray[4] += MBIG;
  1023.         }
  1024.         {
  1025.             SeedArray[5] -= SeedArray[1 + (5 + 30) % 55];
  1026.             if (SeedArray[5] < 0)
  1027.                 SeedArray[5] += MBIG;
  1028.         }
  1029.         {
  1030.             SeedArray[6] -= SeedArray[1 + (6 + 30) % 55];
  1031.             if (SeedArray[6] < 0)
  1032.                 SeedArray[6] += MBIG;
  1033.         }
  1034.         {
  1035.             SeedArray[7] -= SeedArray[1 + (7 + 30) % 55];
  1036.             if (SeedArray[7] < 0)
  1037.                 SeedArray[7] += MBIG;
  1038.         }
  1039.         {
  1040.             SeedArray[8] -= SeedArray[1 + (8 + 30) % 55];
  1041.             if (SeedArray[8] < 0)
  1042.                 SeedArray[8] += MBIG;
  1043.         }
  1044.         {
  1045.             SeedArray[9] -= SeedArray[1 + (9 + 30) % 55];
  1046.             if (SeedArray[9] < 0)
  1047.                 SeedArray[9] += MBIG;
  1048.         }
  1049.         {
  1050.             SeedArray[10] -= SeedArray[1 + (10 + 30) % 55];
  1051.             if (SeedArray[10] < 0)
  1052.                 SeedArray[10] += MBIG;
  1053.         }
  1054.         {
  1055.             SeedArray[11] -= SeedArray[1 + (11 + 30) % 55];
  1056.             if (SeedArray[11] < 0)
  1057.                 SeedArray[11] += MBIG;
  1058.         }
  1059.         {
  1060.             SeedArray[12] -= SeedArray[1 + (12 + 30) % 55];
  1061.             if (SeedArray[12] < 0)
  1062.                 SeedArray[12] += MBIG;
  1063.         }
  1064.         {
  1065.             SeedArray[13] -= SeedArray[1 + (13 + 30) % 55];
  1066.             if (SeedArray[13] < 0)
  1067.                 SeedArray[13] += MBIG;
  1068.         }
  1069.         {
  1070.             SeedArray[14] -= SeedArray[1 + (14 + 30) % 55];
  1071.             if (SeedArray[14] < 0)
  1072.                 SeedArray[14] += MBIG;
  1073.         }
  1074.         {
  1075.             SeedArray[15] -= SeedArray[1 + (15 + 30) % 55];
  1076.             if (SeedArray[15] < 0)
  1077.                 SeedArray[15] += MBIG;
  1078.         }
  1079.         {
  1080.             SeedArray[16] -= SeedArray[1 + (16 + 30) % 55];
  1081.             if (SeedArray[16] < 0)
  1082.                 SeedArray[16] += MBIG;
  1083.         }
  1084.         {
  1085.             SeedArray[17] -= SeedArray[1 + (17 + 30) % 55];
  1086.             if (SeedArray[17] < 0)
  1087.                 SeedArray[17] += MBIG;
  1088.         }
  1089.         {
  1090.             SeedArray[18] -= SeedArray[1 + (18 + 30) % 55];
  1091.             if (SeedArray[18] < 0)
  1092.                 SeedArray[18] += MBIG;
  1093.         }
  1094.         {
  1095.             SeedArray[19] -= SeedArray[1 + (19 + 30) % 55];
  1096.             if (SeedArray[19] < 0)
  1097.                 SeedArray[19] += MBIG;
  1098.         }
  1099.         {
  1100.             SeedArray[20] -= SeedArray[1 + (20 + 30) % 55];
  1101.             if (SeedArray[20] < 0)
  1102.                 SeedArray[20] += MBIG;
  1103.         }
  1104.         {
  1105.             SeedArray[21] -= SeedArray[1 + (21 + 30) % 55];
  1106.             if (SeedArray[21] < 0)
  1107.                 SeedArray[21] += MBIG;
  1108.         }
  1109.         {
  1110.             SeedArray[22] -= SeedArray[1 + (22 + 30) % 55];
  1111.             if (SeedArray[22] < 0)
  1112.                 SeedArray[22] += MBIG;
  1113.         }
  1114.         {
  1115.             SeedArray[23] -= SeedArray[1 + (23 + 30) % 55];
  1116.             if (SeedArray[23] < 0)
  1117.                 SeedArray[23] += MBIG;
  1118.         }
  1119.         {
  1120.             SeedArray[24] -= SeedArray[1 + (24 + 30) % 55];
  1121.             if (SeedArray[24] < 0)
  1122.                 SeedArray[24] += MBIG;
  1123.         }
  1124.         {
  1125.             SeedArray[25] -= SeedArray[1 + (25 + 30) % 55];
  1126.             if (SeedArray[25] < 0)
  1127.                 SeedArray[25] += MBIG;
  1128.         }
  1129.         {
  1130.             SeedArray[26] -= SeedArray[1 + (26 + 30) % 55];
  1131.             if (SeedArray[26] < 0)
  1132.                 SeedArray[26] += MBIG;
  1133.         }
  1134.         {
  1135.             SeedArray[27] -= SeedArray[1 + (27 + 30) % 55];
  1136.             if (SeedArray[27] < 0)
  1137.                 SeedArray[27] += MBIG;
  1138.         }
  1139.         {
  1140.             SeedArray[28] -= SeedArray[1 + (28 + 30) % 55];
  1141.             if (SeedArray[28] < 0)
  1142.                 SeedArray[28] += MBIG;
  1143.         }
  1144.         {
  1145.             SeedArray[29] -= SeedArray[1 + (29 + 30) % 55];
  1146.             if (SeedArray[29] < 0)
  1147.                 SeedArray[29] += MBIG;
  1148.         }
  1149.         {
  1150.             SeedArray[30] -= SeedArray[1 + (30 + 30) % 55];
  1151.             if (SeedArray[30] < 0)
  1152.                 SeedArray[30] += MBIG;
  1153.         }
  1154.         {
  1155.             SeedArray[31] -= SeedArray[1 + (31 + 30) % 55];
  1156.             if (SeedArray[31] < 0)
  1157.                 SeedArray[31] += MBIG;
  1158.         }
  1159.         {
  1160.             SeedArray[32] -= SeedArray[1 + (32 + 30) % 55];
  1161.             if (SeedArray[32] < 0)
  1162.                 SeedArray[32] += MBIG;
  1163.         }
  1164.         {
  1165.             SeedArray[33] -= SeedArray[1 + (33 + 30) % 55];
  1166.             if (SeedArray[33] < 0)
  1167.                 SeedArray[33] += MBIG;
  1168.         }
  1169.         {
  1170.             SeedArray[34] -= SeedArray[1 + (34 + 30) % 55];
  1171.             if (SeedArray[34] < 0)
  1172.                 SeedArray[34] += MBIG;
  1173.         }
  1174.         {
  1175.             SeedArray[35] -= SeedArray[1 + (35 + 30) % 55];
  1176.             if (SeedArray[35] < 0)
  1177.                 SeedArray[35] += MBIG;
  1178.         }
  1179.         {
  1180.             SeedArray[36] -= SeedArray[1 + (36 + 30) % 55];
  1181.             if (SeedArray[36] < 0)
  1182.                 SeedArray[36] += MBIG;
  1183.         }
  1184.         {
  1185.             SeedArray[37] -= SeedArray[1 + (37 + 30) % 55];
  1186.             if (SeedArray[37] < 0)
  1187.                 SeedArray[37] += MBIG;
  1188.         }
  1189.         {
  1190.             SeedArray[38] -= SeedArray[1 + (38 + 30) % 55];
  1191.             if (SeedArray[38] < 0)
  1192.                 SeedArray[38] += MBIG;
  1193.         }
  1194.         {
  1195.             SeedArray[39] -= SeedArray[1 + (39 + 30) % 55];
  1196.             if (SeedArray[39] < 0)
  1197.                 SeedArray[39] += MBIG;
  1198.         }
  1199.         {
  1200.             SeedArray[40] -= SeedArray[1 + (40 + 30) % 55];
  1201.             if (SeedArray[40] < 0)
  1202.                 SeedArray[40] += MBIG;
  1203.         }
  1204.         {
  1205.             SeedArray[41] -= SeedArray[1 + (41 + 30) % 55];
  1206.             if (SeedArray[41] < 0)
  1207.                 SeedArray[41] += MBIG;
  1208.         }
  1209.         {
  1210.             SeedArray[42] -= SeedArray[1 + (42 + 30) % 55];
  1211.             if (SeedArray[42] < 0)
  1212.                 SeedArray[42] += MBIG;
  1213.         }
  1214.         {
  1215.             SeedArray[43] -= SeedArray[1 + (43 + 30) % 55];
  1216.             if (SeedArray[43] < 0)
  1217.                 SeedArray[43] += MBIG;
  1218.         }
  1219.         {
  1220.             SeedArray[44] -= SeedArray[1 + (44 + 30) % 55];
  1221.             if (SeedArray[44] < 0)
  1222.                 SeedArray[44] += MBIG;
  1223.         }
  1224.         {
  1225.             SeedArray[45] -= SeedArray[1 + (45 + 30) % 55];
  1226.             if (SeedArray[45] < 0)
  1227.                 SeedArray[45] += MBIG;
  1228.         }
  1229.         {
  1230.             SeedArray[46] -= SeedArray[1 + (46 + 30) % 55];
  1231.             if (SeedArray[46] < 0)
  1232.                 SeedArray[46] += MBIG;
  1233.         }
  1234.         {
  1235.             SeedArray[47] -= SeedArray[1 + (47 + 30) % 55];
  1236.             if (SeedArray[47] < 0)
  1237.                 SeedArray[47] += MBIG;
  1238.         }
  1239.         {
  1240.             SeedArray[48] -= SeedArray[1 + (48 + 30) % 55];
  1241.             if (SeedArray[48] < 0)
  1242.                 SeedArray[48] += MBIG;
  1243.         }
  1244.         {
  1245.             SeedArray[49] -= SeedArray[1 + (49 + 30) % 55];
  1246.             if (SeedArray[49] < 0)
  1247.                 SeedArray[49] += MBIG;
  1248.         }
  1249.         {
  1250.             SeedArray[50] -= SeedArray[1 + (50 + 30) % 55];
  1251.             if (SeedArray[50] < 0)
  1252.                 SeedArray[50] += MBIG;
  1253.         }
  1254.         {
  1255.             SeedArray[51] -= SeedArray[1 + (51 + 30) % 55];
  1256.             if (SeedArray[51] < 0)
  1257.                 SeedArray[51] += MBIG;
  1258.         }
  1259.         {
  1260.             SeedArray[52] -= SeedArray[1 + (52 + 30) % 55];
  1261.             if (SeedArray[52] < 0)
  1262.                 SeedArray[52] += MBIG;
  1263.         }
  1264.         {
  1265.             SeedArray[53] -= SeedArray[1 + (53 + 30) % 55];
  1266.             if (SeedArray[53] < 0)
  1267.                 SeedArray[53] += MBIG;
  1268.         }
  1269.         {
  1270.             SeedArray[54] -= SeedArray[1 + (54 + 30) % 55];
  1271.             if (SeedArray[54] < 0)
  1272.                 SeedArray[54] += MBIG;
  1273.         }
  1274.         {
  1275.             SeedArray[55] -= SeedArray[1 + (55 + 30) % 55];
  1276.             if (SeedArray[55] < 0)
  1277.                 SeedArray[55] += MBIG;
  1278.         }
  1279.         {
  1280.             SeedArray[1] -= SeedArray[1 + (1 + 30) % 55];
  1281.             if (SeedArray[1] < 0)
  1282.                 SeedArray[1] += MBIG;
  1283.         }
  1284.         {
  1285.             SeedArray[2] -= SeedArray[1 + (2 + 30) % 55];
  1286.             if (SeedArray[2] < 0)
  1287.                 SeedArray[2] += MBIG;
  1288.         }
  1289.         {
  1290.             SeedArray[3] -= SeedArray[1 + (3 + 30) % 55];
  1291.             if (SeedArray[3] < 0)
  1292.                 SeedArray[3] += MBIG;
  1293.         }
  1294.         {
  1295.             SeedArray[4] -= SeedArray[1 + (4 + 30) % 55];
  1296.             if (SeedArray[4] < 0)
  1297.                 SeedArray[4] += MBIG;
  1298.         }
  1299.         {
  1300.             SeedArray[5] -= SeedArray[1 + (5 + 30) % 55];
  1301.             if (SeedArray[5] < 0)
  1302.                 SeedArray[5] += MBIG;
  1303.         }
  1304.         {
  1305.             SeedArray[6] -= SeedArray[1 + (6 + 30) % 55];
  1306.             if (SeedArray[6] < 0)
  1307.                 SeedArray[6] += MBIG;
  1308.         }
  1309.         {
  1310.             SeedArray[7] -= SeedArray[1 + (7 + 30) % 55];
  1311.             if (SeedArray[7] < 0)
  1312.                 SeedArray[7] += MBIG;
  1313.         }
  1314.         {
  1315.             SeedArray[8] -= SeedArray[1 + (8 + 30) % 55];
  1316.             if (SeedArray[8] < 0)
  1317.                 SeedArray[8] += MBIG;
  1318.         }
  1319.         {
  1320.             SeedArray[9] -= SeedArray[1 + (9 + 30) % 55];
  1321.             if (SeedArray[9] < 0)
  1322.                 SeedArray[9] += MBIG;
  1323.         }
  1324.         {
  1325.             SeedArray[10] -= SeedArray[1 + (10 + 30) % 55];
  1326.             if (SeedArray[10] < 0)
  1327.                 SeedArray[10] += MBIG;
  1328.         }
  1329.         {
  1330.             SeedArray[11] -= SeedArray[1 + (11 + 30) % 55];
  1331.             if (SeedArray[11] < 0)
  1332.                 SeedArray[11] += MBIG;
  1333.         }
  1334.         {
  1335.             SeedArray[12] -= SeedArray[1 + (12 + 30) % 55];
  1336.             if (SeedArray[12] < 0)
  1337.                 SeedArray[12] += MBIG;
  1338.         }
  1339.         {
  1340.             SeedArray[13] -= SeedArray[1 + (13 + 30) % 55];
  1341.             if (SeedArray[13] < 0)
  1342.                 SeedArray[13] += MBIG;
  1343.         }
  1344.         {
  1345.             SeedArray[14] -= SeedArray[1 + (14 + 30) % 55];
  1346.             if (SeedArray[14] < 0)
  1347.                 SeedArray[14] += MBIG;
  1348.         }
  1349.         {
  1350.             SeedArray[15] -= SeedArray[1 + (15 + 30) % 55];
  1351.             if (SeedArray[15] < 0)
  1352.                 SeedArray[15] += MBIG;
  1353.         }
  1354.         {
  1355.             SeedArray[16] -= SeedArray[1 + (16 + 30) % 55];
  1356.             if (SeedArray[16] < 0)
  1357.                 SeedArray[16] += MBIG;
  1358.         }
  1359.         {
  1360.             SeedArray[17] -= SeedArray[1 + (17 + 30) % 55];
  1361.             if (SeedArray[17] < 0)
  1362.                 SeedArray[17] += MBIG;
  1363.         }
  1364.         {
  1365.             SeedArray[18] -= SeedArray[1 + (18 + 30) % 55];
  1366.             if (SeedArray[18] < 0)
  1367.                 SeedArray[18] += MBIG;
  1368.         }
  1369.         {
  1370.             SeedArray[19] -= SeedArray[1 + (19 + 30) % 55];
  1371.             if (SeedArray[19] < 0)
  1372.                 SeedArray[19] += MBIG;
  1373.         }
  1374.         {
  1375.             SeedArray[20] -= SeedArray[1 + (20 + 30) % 55];
  1376.             if (SeedArray[20] < 0)
  1377.                 SeedArray[20] += MBIG;
  1378.         }
  1379.         {
  1380.             SeedArray[21] -= SeedArray[1 + (21 + 30) % 55];
  1381.             if (SeedArray[21] < 0)
  1382.                 SeedArray[21] += MBIG;
  1383.         }
  1384.         {
  1385.             SeedArray[22] -= SeedArray[1 + (22 + 30) % 55];
  1386.             if (SeedArray[22] < 0)
  1387.                 SeedArray[22] += MBIG;
  1388.         }
  1389.         {
  1390.             SeedArray[23] -= SeedArray[1 + (23 + 30) % 55];
  1391.             if (SeedArray[23] < 0)
  1392.                 SeedArray[23] += MBIG;
  1393.         }
  1394.         {
  1395.             SeedArray[24] -= SeedArray[1 + (24 + 30) % 55];
  1396.             if (SeedArray[24] < 0)
  1397.                 SeedArray[24] += MBIG;
  1398.         }
  1399.         {
  1400.             SeedArray[25] -= SeedArray[1 + (25 + 30) % 55];
  1401.             if (SeedArray[25] < 0)
  1402.                 SeedArray[25] += MBIG;
  1403.         }
  1404.         {
  1405.             SeedArray[26] -= SeedArray[1 + (26 + 30) % 55];
  1406.             if (SeedArray[26] < 0)
  1407.                 SeedArray[26] += MBIG;
  1408.         }
  1409.         {
  1410.             SeedArray[27] -= SeedArray[1 + (27 + 30) % 55];
  1411.             if (SeedArray[27] < 0)
  1412.                 SeedArray[27] += MBIG;
  1413.         }
  1414.         {
  1415.             SeedArray[28] -= SeedArray[1 + (28 + 30) % 55];
  1416.             if (SeedArray[28] < 0)
  1417.                 SeedArray[28] += MBIG;
  1418.         }
  1419.         {
  1420.             SeedArray[29] -= SeedArray[1 + (29 + 30) % 55];
  1421.             if (SeedArray[29] < 0)
  1422.                 SeedArray[29] += MBIG;
  1423.         }
  1424.         {
  1425.             SeedArray[30] -= SeedArray[1 + (30 + 30) % 55];
  1426.             if (SeedArray[30] < 0)
  1427.                 SeedArray[30] += MBIG;
  1428.         }
  1429.         {
  1430.             SeedArray[31] -= SeedArray[1 + (31 + 30) % 55];
  1431.             if (SeedArray[31] < 0)
  1432.                 SeedArray[31] += MBIG;
  1433.         }
  1434.         {
  1435.             SeedArray[32] -= SeedArray[1 + (32 + 30) % 55];
  1436.             if (SeedArray[32] < 0)
  1437.                 SeedArray[32] += MBIG;
  1438.         }
  1439.         {
  1440.             SeedArray[33] -= SeedArray[1 + (33 + 30) % 55];
  1441.             if (SeedArray[33] < 0)
  1442.                 SeedArray[33] += MBIG;
  1443.         }
  1444.         {
  1445.             SeedArray[34] -= SeedArray[1 + (34 + 30) % 55];
  1446.             if (SeedArray[34] < 0)
  1447.                 SeedArray[34] += MBIG;
  1448.         }
  1449.         {
  1450.             SeedArray[35] -= SeedArray[1 + (35 + 30) % 55];
  1451.             if (SeedArray[35] < 0)
  1452.                 SeedArray[35] += MBIG;
  1453.         }
  1454.         {
  1455.             SeedArray[36] -= SeedArray[1 + (36 + 30) % 55];
  1456.             if (SeedArray[36] < 0)
  1457.                 SeedArray[36] += MBIG;
  1458.         }
  1459.         {
  1460.             SeedArray[37] -= SeedArray[1 + (37 + 30) % 55];
  1461.             if (SeedArray[37] < 0)
  1462.                 SeedArray[37] += MBIG;
  1463.         }
  1464.         {
  1465.             SeedArray[38] -= SeedArray[1 + (38 + 30) % 55];
  1466.             if (SeedArray[38] < 0)
  1467.                 SeedArray[38] += MBIG;
  1468.         }
  1469.         {
  1470.             SeedArray[39] -= SeedArray[1 + (39 + 30) % 55];
  1471.             if (SeedArray[39] < 0)
  1472.                 SeedArray[39] += MBIG;
  1473.         }
  1474.         {
  1475.             SeedArray[40] -= SeedArray[1 + (40 + 30) % 55];
  1476.             if (SeedArray[40] < 0)
  1477.                 SeedArray[40] += MBIG;
  1478.         }
  1479.         {
  1480.             SeedArray[41] -= SeedArray[1 + (41 + 30) % 55];
  1481.             if (SeedArray[41] < 0)
  1482.                 SeedArray[41] += MBIG;
  1483.         }
  1484.         {
  1485.             SeedArray[42] -= SeedArray[1 + (42 + 30) % 55];
  1486.             if (SeedArray[42] < 0)
  1487.                 SeedArray[42] += MBIG;
  1488.         }
  1489.         {
  1490.             SeedArray[43] -= SeedArray[1 + (43 + 30) % 55];
  1491.             if (SeedArray[43] < 0)
  1492.                 SeedArray[43] += MBIG;
  1493.         }
  1494.         {
  1495.             SeedArray[44] -= SeedArray[1 + (44 + 30) % 55];
  1496.             if (SeedArray[44] < 0)
  1497.                 SeedArray[44] += MBIG;
  1498.         }
  1499.         {
  1500.             SeedArray[45] -= SeedArray[1 + (45 + 30) % 55];
  1501.             if (SeedArray[45] < 0)
  1502.                 SeedArray[45] += MBIG;
  1503.         }
  1504.         {
  1505.             SeedArray[46] -= SeedArray[1 + (46 + 30) % 55];
  1506.             if (SeedArray[46] < 0)
  1507.                 SeedArray[46] += MBIG;
  1508.         }
  1509.         {
  1510.             SeedArray[47] -= SeedArray[1 + (47 + 30) % 55];
  1511.             if (SeedArray[47] < 0)
  1512.                 SeedArray[47] += MBIG;
  1513.         }
  1514.         {
  1515.             SeedArray[48] -= SeedArray[1 + (48 + 30) % 55];
  1516.             if (SeedArray[48] < 0)
  1517.                 SeedArray[48] += MBIG;
  1518.         }
  1519.         {
  1520.             SeedArray[49] -= SeedArray[1 + (49 + 30) % 55];
  1521.             if (SeedArray[49] < 0)
  1522.                 SeedArray[49] += MBIG;
  1523.         }
  1524.         {
  1525.             SeedArray[50] -= SeedArray[1 + (50 + 30) % 55];
  1526.             if (SeedArray[50] < 0)
  1527.                 SeedArray[50] += MBIG;
  1528.         }
  1529.         {
  1530.             SeedArray[51] -= SeedArray[1 + (51 + 30) % 55];
  1531.             if (SeedArray[51] < 0)
  1532.                 SeedArray[51] += MBIG;
  1533.         }
  1534.         {
  1535.             SeedArray[52] -= SeedArray[1 + (52 + 30) % 55];
  1536.             if (SeedArray[52] < 0)
  1537.                 SeedArray[52] += MBIG;
  1538.         }
  1539.         {
  1540.             SeedArray[53] -= SeedArray[1 + (53 + 30) % 55];
  1541.             if (SeedArray[53] < 0)
  1542.                 SeedArray[53] += MBIG;
  1543.         }
  1544.         {
  1545.             SeedArray[54] -= SeedArray[1 + (54 + 30) % 55];
  1546.             if (SeedArray[54] < 0)
  1547.                 SeedArray[54] += MBIG;
  1548.         }
  1549.         {
  1550.             SeedArray[55] -= SeedArray[1 + (55 + 30) % 55];
  1551.             if (SeedArray[55] < 0)
  1552.                 SeedArray[55] += MBIG;
  1553.         }
  1554.  
  1555.         inext = 0;
  1556.         inextp = 21;
  1557.         Seed = 1;
  1558.     }
  1559.     {
  1560.         int retVal;
  1561.         int locINext = inext;
  1562.         int locINextp = inextp;
  1563.  
  1564.         if (++locINext >= 56)
  1565.             locINext = 1;
  1566.         if (++locINextp >= 56)
  1567.             locINextp = 1;
  1568.  
  1569.         retVal = SeedArray[locINext] - SeedArray[locINextp];
  1570.  
  1571.         if (retVal == MBIG)
  1572.             retVal--;
  1573.         if (retVal < 0)
  1574.             retVal += MBIG;
  1575.  
  1576.         SeedArray[locINext] = retVal;
  1577.  
  1578.         inext = locINext;
  1579.         inextp = locINextp;
  1580.  
  1581.         return retVal;
  1582.     }
  1583. }
  1584. int main(int argc, const char *argv[])
  1585. {
  1586.     for (unsigned int i = 0; i <= INT_MAX; i++)
  1587.         if (Rand(i) == 6502)
  1588.             cout << i << endl;
  1589.     return 0;
  1590. }
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!