Dealers Signature v.1

[ignatus]

Tested now again "Dealers Signature" (IT will bet two 7+7 sectors 11 pockets away on each side of the current number on the wheel, for each spin)...14 Numbers bet (progression Fibonacci Negative)

This code can also Calculate a new distace for each spin (it took me over 2 weeks to code this). But for now, it will use a static Distance of 11 pockets. I had about a 70% winrate now from a short test. (WG+1000 /SL-1000)

IF you have ideas to improve this bet, let me know....

Dealers Signature version 1

Code Select Expand

system "Dealers Signature v.1"
// © ignatus 2020 ©

method "main"
begin
  while starting a new session
  begin
       Set List[1,1,2,3,5,8,13,21,32,55,89,144,233,377,610,987]
              to Record "progression" Data

       Set List[1,2,3,4,5,6,7] to Record "spin" Data

       Set List [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
                 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73]
         to Record "Matrix" Data
         
       Set List [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
                 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73]
         to Record "Matrix2" Data
         
       Set List [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
                 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73]
         to Record "Matrix3" Data
         
         Set List [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
                 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73]
         to Record "Matrix4" Data
         
         Set List [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
                 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73]
         to Record "Matrix9" Data
         

         copy List[number 0,number 32,number 15,number 19,number 4,number 21,number 2,
                 number 25,number 17,number 34,number 6,number 27,number 13,number 36,
                 number 11,number 30,number 8,number 23,number 10,number 5,number 24,
                 number 16,number 33,number 1,number 20,number 14,number 31,number 9,
                 number 22,number 18,number 29,number 7,number 28,number 12,number 35,
                 number 3,number 26]
        to Record "Wheel" Layout

       { Set List [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
                 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73]
         to Record "DistData" Data
        }

  end
   put 0 to Record "Highest Bankroll" Data

  while on each spin
  begin
   Track last Number for 4 spins to Record "track" layout
   
   IF Record "track" layout index >= 5 each
   begin
   clear Record "track" layout
   set flag "loop" false
   end
 
      IF any inside bet lost each
  begin
  add 1 on Record "progression" Data Index
  clear Record "Bet" Layout
   clear Record "Bet2" Layout
   clear Record "Bet3" Layout
   clear Record "Bet4" Layout

// Put 100% of Record "progression" data to Record "Bet" Layout list
// Put 100% of Record "progression" data to Record "Bet2" Layout list

// Put 100% of Record "progression" data to Record "Bet3" Layout list
// Put 100% of Record "progression" data to Record "Bet4" Layout list

  end
 
//   Put 100% of Record "progression" data to Record "Bet" Layout list
// Put 100% of Record "progression" data to Record "Bet2" Layout list

   If any inside bet won each
  begin
  // set flag "loop" false
   clear Record "DistData" Layout
   clear Record "Bet" Layout
   clear Record "Bet2" Layout
   clear Record "Bet3" Layout
   clear Record "Bet4" Layout
   clear Record "secondlast" Layout
   clear Record "last" Layout
   clear Record "secondlast" Layout
   clear Record "Matrix" Layout
   clear Record "Matrix1" Layout
   clear Record "Matrix2" Layout
   clear Record "Matrix3" Layout
   clear Record "Matrix4" Layout
   clear Record "Matrix5" Layout
   clear Record "Matrix6" Layout
   clear Record "Matrix7" Layout
   clear Record "Matrix8" Layout
   clear Record "Matrix9" Layout
   clear Record "Matrix10" Layout
   clear Record "Matrix11" Layout
   clear Record "Matrix12" Layout
   clear Record "Matrix13" Layout
   clear Record "LastBetMatrix" Layout
   clear Record "LastBetMatrix2" Layout

  Put 1 on Record "spin" Data Index
  put 1 on Record "progression" Data Index

     if Bankroll >= Record "Highest Bankroll" Data
     begin
        clear Record "Highest Bankroll" Data
        put 100% Bankroll to Record "Highest Bankroll" Data
        put 1 on Record "progression" Data Index
     end

  end

  if Record "spin" Data Index = 6 each
  begin
    Put 1 on Record "spin" Data Index
  end

Set Max to Record "last" Layout Index
Add 1 to Record "last" Layout Index
copy last Number to Record "last" Layout

         Set Max to Record "LastBetMatrix" Layout Index
         Add 1 to Record "LastBetMatrix" Layout Index
         copy last Number to Record "LastBetMatrix" Layout
         
         Set Max to Record "LastBetMatrix2" Layout Index
         Add 1 to Record "LastBetMatrix2" Layout Index
         copy last Number to Record "LastBetMatrix2" Layout


Set Max to Record "current" Layout Index
Add 1 to Record "current" Layout Index
copy last number to Record "current" Layout

//===============================================================
IF Record "LastBetMatrix" Layout index >= 2
begin

//duplicate Record "DistData" to Record "DistDataTEMP"
//loop until Record "last" Layout index =  1
//begin
//set max to Record "LastBetMatrix2" Layout index
//set max to Record "LastBetMatrix" Layout index
//set max to Record "secondlast" Layout index
//set flag "loop" true
//duplicate Record "DistData" to Record "DistData2"

//loop until Record "LastBetMatrix2" Layout index =  0
//begin

         duplicate Record "Matrix9" to Record "Matrix7"

              if Record "LastBetMatrix" Layout = number 0 each
         begin
         put 1 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 1 each
         begin
         put 21 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 2 each
         begin
         put 7 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 3 each
         begin
         put 36 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 4 each
         begin
         put 5 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 5 each
         begin
         put 20 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 6 each
         begin
         put 11 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 7 each
         begin
         put 32 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 8 each
         begin
         put 17 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 9 each
         begin
         put 28 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 10 each
         begin
         put 19 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 11 each
         begin
         put 15 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 12 each
         begin
         put 34 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 13 each
         begin
         put 13 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 14 each
         begin
         put 26 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 15 each
         begin
         put 3 to Record "Matrix7" Data index
         end
         
         if Record "LastBetMatrix" Layout = number 16 each
         begin
         put 22 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 17 each
         begin
         put 9 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 18 each
         begin
         put 30 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 19 each
         begin
         put 4 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 20 each
         begin
         put 25 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 21 each
         begin
         put 6 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 22 each
         begin
         put 29 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 23 each
         begin
         put 18 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 24 each
         begin
         put 21 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 25 each
         begin
         put 8 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 26 each
         begin
         put 37 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 27 each
         begin
         put 12 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 28 each
         begin
         put 33 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 29 each
         begin
         put 31 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 30 each
         begin
         put 16 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 31 each
         begin
         put 27 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 32 each
         begin
         put 2 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 33 each
         begin
         put 23 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 34 each
         begin
         put 10 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 35 each
         begin
         put 35 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 36 each
         begin
         put 14 to Record "Matrix7" Data index
         end

         duplicate Record "Matrix7" to Record "Matrix8"
         duplicate Record "Matrix7" to Record "Matrix"
         duplicate Record "Matrix7" to Record "Matrix2"
         duplicate Record "Matrix7" to Record "Matrix5"
         //duplicate Record "Matrix7" to Record "last"
//==========

         duplicate Record "Matrix9" to Record "Matrix10"



         if Record "secondlast" Layout = number 0 each
         begin
         put 1 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 1 each
         begin
         put 21 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 2 each
         begin
         put 7 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 3 each
         begin
         put 36 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 4 each
         begin
         put 5 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 5 each
         begin
         put 20 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 6 each
         begin
         put 11 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 7 each
         begin
         put 32 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 8 each
         begin
         put 17 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 9 each
         begin
         put 28 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 10 each
         begin
         put 19 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 11 each
         begin
         put 15 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 12 each
         begin
         put 34 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 13 each
         begin
         put 13 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 14 each
         begin
         put 26 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 15 each
         begin
         put 3 to Record "Matrix10" Data index
         end
         
         if Record "secondlast" Layout = number 16 each
         begin
         put 22 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 17 each
         begin
         put 9 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 18 each
         begin
         put 30 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 19 each
         begin
         put 4 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 20 each
         begin
         put 25 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 21 each
         begin
         put 6 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 22 each
         begin
         put 29 to Record "Matrix10" Data index
         end

        if Record "secondlast" Layout = number 23 each
         begin
         put 18 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 24 each
         begin
         put 21 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 25 each
         begin
         put 8 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 26 each
         begin
         put 37 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 27 each
         begin
         put 12 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 28 each
         begin
         put 33 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 29 each
         begin
         put 31 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 30 each
         begin
         put 16 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 31 each
         begin
         put 27 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 32 each
         begin
         put 2 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 33 each
         begin
         put 23 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 34 each
         begin
         put 10 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 35 each
         begin
         put 35 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 36 each
         begin
         put 14 to Record "Matrix10" Data index
         end


         duplicate Record "Matrix10" to Record "Matrix11"
         duplicate Record "Matrix10" to Record "Matrix3"
         duplicate Record "Matrix10" to Record "Matrix4"
         duplicate Record "Matrix10" to Record "Matrix6"


      IF flag "loop" false each
       begin

         //==Dist Calc===

if Record "spin" Data index = 1 each
begin

         duplicate Record "last" to Record "temp"
        // duplicate Record "LastBetMatrix" to Record "last"
         duplicate Record "Matrix7" to Record "Matrix"
         duplicate Record "Matrix10" to Record "Matrix3"

          if Record "Matrix" Data index < Record "Matrix3" Data index each
         begin


         if Record "last" Layout = number 0 each
         begin
         subtract 1 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 1 each
         begin
         subtract 21 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 2 each
         begin
         subtract 7 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 3 each
         begin
         subtract 36 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 4 each
         begin
         subtract 5 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 5 each
         begin
         subtract 20 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 6 each
         begin
         subtract 11 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 7 each
         begin
         subtract 32 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 8 each
         begin
         subtract 17 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 9 each
         begin
         subtract 28 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 10 each
         begin
         subtract 19 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 11 each
         begin
         subtract 15 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 12 each
         begin
         subtract 34 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 13 each
         begin
         subtract 13 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 14 each
         begin
         subtract 26 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 15 each
         begin
         subtract 3 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 16 each
         begin
         subtract 22 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 17 each
         begin
         subtract 9 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 18 each
         begin
         subtract 30 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 19 each
         begin
         subtract 4 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 20 each
         begin
         subtract 25 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 21 each
         begin
         subtract 6 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 22 each
         begin
         subtract 29 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 23 each
         begin
         subtract 18 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 24 each
         begin
         subtract 21 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 25 each
         begin
         subtract 8 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 26 each
         begin
         subtract 37 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 27 each
         begin
         subtract 12 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 28 each
         begin
         subtract 33 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 29 each
         begin
         subtract 31 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 30 each
         begin
         subtract 16 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 31 each
         begin
         subtract 27 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 32 each
         begin
         subtract 2 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 33 each
         begin
         subtract 23 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 34 each
         begin
         subtract 10 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 35 each
         begin
         subtract 35 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 36 each
         begin
         subtract 14 from Record "Matrix3" Data index
         end

      //  if flag "loop" false each
      //  begin
         Set Max to Record "DistData" Data Index
         Add 1 to Record "DistData" Data Index
      //  end

         IF Record "Matrix3" Data index = 1 each
         begin
         put 1 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 2 each
         begin
         put 2 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 3 each
         begin
         put 3 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 4 each
         begin
         put 4 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 5 each
         begin
         put 5 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 6 each
         begin
         put 6 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 7 each
         begin
         put 7 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 8 each
         begin
         put 8 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 9 each
         begin
         put 9 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 10 each
         begin
         put 10 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 11 each
         begin
         put 11 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 12 each
         begin
         put 12 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 13 each
         begin
         put 13 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 14 each
         begin
         put 14 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 15 each
         begin
         put 15 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 16 each
         begin
         put 16 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 17 each
         begin
         put 17 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 18 each
         begin
         put 18 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 19 each
         begin
         put 19 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 20 each
         begin
         put 20 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 21 each
         begin
         put 21 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 23 each
         begin
         put 23 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 24 each
         begin
         put 24 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 25 each
         begin
         put 25 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 26 each
         begin
         put 26 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 27 each
         begin
         put 27 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 28 each
         begin
         put 28 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 29 each
         begin
         put 29 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 30 each
         begin
         put 30 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 31 each
         begin
         put 31 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 32 each
         begin
         put 32 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 33 each
         begin
         put 33 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 34 each
         begin
         put 34 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 35 each
         begin
         put 35 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 36 each
         begin
         put 36 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 37 each
         begin
         put 37 to Record "DistData" Data
         end

         end
         else
         begin

      //****


         if Record "Matrix" Data index > Record "Matrix3" Data index each
         begin

         if Record "secondlast" Layout = number 0 each
         begin
         subtract 1 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 1 each
         begin
         subtract 21 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 2 each
         begin
         subtract 7 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 3 each
         begin
         subtract 36 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 4 each
         begin
         subtract 5 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 5 each
         begin
         subtract 20 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 6 each
         begin
         subtract 11 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 7 each
         begin
         subtract 32 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 8 each
         begin
         subtract 17 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 9 each
         begin
         subtract 28 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 10 each
         begin
         subtract 19 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 11 each
         begin
         subtract 15 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 12 each
         begin
         subtract 34 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 13 each
         begin
         subtract 13 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 14 each
         begin
         subtract 26 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 15 each
         begin
         subtract 3 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 16 each
         begin
         subtract 22 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 17 each
         begin
         subtract 9 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 18 each
         begin
         subtract 30 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 19 each
         begin
         subtract 4 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 20 each
         begin
         subtract 25 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 21 each
         begin
         subtract 6 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 22 each
         begin
         subtract 29 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 23 each
         begin
         subtract 18 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 24 each
         begin
         subtract 21 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 25 each
         begin
         subtract 8 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 26 each
         begin
         subtract 37 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 27 each
         begin
         subtract 12 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 28 each
         begin
         subtract 33 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 29 each
         begin
         subtract 31 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 30 each
         begin
         subtract 16 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 31 each
         begin
         subtract 27 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 32 each
         begin
         subtract 23 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 33 each
         begin
         subtract 34 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 34 each
         begin
         subtract 10 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 35 each
         begin
         subtract 35 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 36 each
         begin
         subtract 14 from Record "Matrix" Data index
         end

      //  if flag "loop" false each
      //  begin
         Set Max to Record "DistData" Data Index
         Add 1 to Record "DistData" Data Index
      //  end

         IF Record "Matrix" Data index = 1 each
         begin
         put 1 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 2 each
         begin
         put 2 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 3 each
         begin
         put 3 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 4 each
         begin
         put 4 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 5 each
         begin
         put 5 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 6 each
         begin
         put 6 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 7 each
         begin
         put 7 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 8 each
         begin
         put 8 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 9 each
         begin
         put 9 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 10 each
         begin
         put 10 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 11 each
         begin
         put 11 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 12 each
         begin
         put 12 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 13 each
         begin
         put 13 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 14 each
         begin
         put 14 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 15 each
         begin
         put 15 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 16 each
         begin
         put 16 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 17 each
         begin
         put 17 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 18 each
         begin
         put 18 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 19 each
         begin
         put 19 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 20 each
         begin
         put 20 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 21 each
         begin
         put 21 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 23 each
         begin
         put 23 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 24 each
         begin
         put 24 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 25 each
         begin
         put 25 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 26 each
         begin
         put 26 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 27 each
         begin
         put 27 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 28 each
         begin
         put 28 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 29 each
         begin
         put 29 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 30 each
         begin
         put 30 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 31 each
         begin
         put 31 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 32 each
         begin
         put 32 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 33 each
         begin
         put 33 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 34 each
         begin
         put 34 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 35 each
         begin
         put 35 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 36 each
         begin
         put 36 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 37 each
         begin
         put 37 to Record "DistData" Data
         end

         end
         end
     end
     
end
add 1 to Record "spin" Data index

     put 11 to Record "DistData" Data
         
     IF Record "DistData" Data = 1 each
         begin
         subtract 1 from Record "Matrix7" Data index
         add 1 on Record "Matrix8" Data index

         subtract 1 from Record "Matrix10" Data index
         add 1 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 2 each
         begin
         subtract 2 from Record "Matrix7" Data index
         add 2 on Record "Matrix8" Data index

         subtract 2 from Record "Matrix10" Data index
         add 2 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 3 each
         begin
         subtract 3 from Record "Matrix7" Data index
         add 3 on Record "Matrix8" Data index

         subtract 3 from Record "Matrix10" Data index
         add 3 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 4 each
         begin
         subtract 4 from Record "Matrix7" Data
         add 4 on Record "Matrix8" Data index

         subtract 4 from Record "Matrix10" Data index
         add 4 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 5 each
         begin
         subtract 5 from Record "Matrix7" Data index
         add 5 on Record "Matrix8" Data index

         subtract 5 from Record "Matrix10" Data index
         add 5 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 6 each
         begin
         subtract 6 from Record "Matrix7" Data index
         add 6 on Record "Matrix8" Data index

         subtract 6 from Record "Matrix10" Data index
         add 6 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 7 each
         begin
         subtract 7 from Record "Matrix7" Data index
         add 7 on Record "Matrix8" Data index

         subtract 7 from Record "Matrix10" Data index
         add 7 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 8 each
         begin
         subtract 8 from Record "Matrix7" Data index
         add 8 on Record "Matrix8" Data index

         subtract 8 from Record "Matrix10" Data index
         add 8 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 9 each
         begin
         subtract 9 from Record "Matrix7" Data index
         add 9 on Record "Matrix8" Data index

         subtract 9 from Record "Matrix10" Data index
         add 9 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 10 each
         begin
         subtract 10 from Record "Matrix7" Data index
         add 10 on Record "Matrix8" Data index

         subtract 10 from Record "Matrix10" Data index
         add 10 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 11 each
         begin
         subtract 11 from Record "Matrix7" Data index
         add 11 on Record "Matrix8" Data index

         subtract 11 from Record "Matrix10" Data index
         add 11 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 12 each
         begin
         subtract 12 from Record "Matrix7" Data index
         add 12 on Record "Matrix8" Data index

         subtract 12 from Record "Matrix10" Data index
         add 12 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 13 each
         begin
         subtract 13 from Record "Matrix7" Data index
         add 13 on Record "Matrix8" Data index

         subtract 13 from Record "Matrix10" Data index
         add 13 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 14 each
         begin
         subtract 14 from Record "Matrix7" Data index
         add 14 on Record "Matrix8" Data index

         subtract 14 from Record "Matrix10" Data index
         add 14 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 15 each
         begin
         subtract 15 from Record "Matrix7" Data index
         add 15 on Record "Matrix8" Data index

         subtract 15 from Record "Matrix10" Data index
         add 15 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 16 each
         begin
         subtract 16 from Record "Matrix7" Data index
         add 16 on Record "Matrix8" Data index

         subtract 16 from Record "Matrix10" Data index
         add 16 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 17 each
         begin
         subtract 17 from Record "Matrix7" Data index
         add 17 on Record "Matrix8" Data index

         subtract 17 from Record "Matrix10" Data index
         add 17 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 18 each
         begin
         subtract 18 from Record "Matrix7" Data index
         add 18 on Record "Matrix8" Data index

         subtract 18 from Record "Matrix10" Data index
         add 18 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 19 each
         begin
         subtract 19 from Record "Matrix7" Data index
         add 19 on Record "Matrix8" Data index

         subtract 19 from Record "Matrix10" Data index
         add 19 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 20 each
         begin
         subtract 20 from Record "Matrix7" Data index
         add 20 on Record "Matrix8" Data index

         subtract 20 from Record "Matrix10" Data index
         add 20 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 21 each
         begin
         subtract 21 from Record "Matrix7" Data index
         add 21 on Record "Matrix8" Data index

         subtract 21 from Record "Matrix10" Data index
         add 21 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 22 each
         begin
         subtract 22 from Record "Matrix7" Data index
         add 22 on Record "Matrix8" Data index

         subtract 22 from Record "Matrix10" Data index
         add 22 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 23 each
         begin
         subtract 23 from Record "Matrix7" Data index
         add 23 on Record "Matrix8" Data index

         subtract 23 from Record "Matrix10" Data index
         add 23 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 24 each
         begin
         subtract 24 from Record "Matrix7" Data index
         add 24 on Record "Matrix8" Data index

         subtract 24 from Record "Matrix10" Data index
         add 24 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 25 each
         begin
         subtract 25 from Record "Matrix7" Data index
         add 25 on Record "Matrix8" Data index

         subtract 25 from Record "Matrix10" Data index
         add 25 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 26 each
         begin
         subtract 26 from Record "Matrix7" Data index
         add 26 on Record "Matrix8" Data index

         subtract 26 from Record "Matrix10" Data index
         add 26 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 27 each
         begin
         subtract 27 from Record "Matrix7" Data index
         add 27 on Record "Matrix8" Data index

         subtract 27 from Record "Matrix10" Data index
         add 27 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 28 each
         begin
         subtract 28 from Record "Matrix7" Data index
         add 28 on Record "Matrix8" Data index

         subtract 28 from Record "Matrix10" Data index
         add 28 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 29 each
         begin
         subtract 29 from Record "Matrix7" Data index
         add 29 on Record "Matrix8" Data index

         subtract 29 from Record "Matrix10" Data index
         add 29 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 30 each
         begin
         subtract 30 from Record "Matrix7" Data index
         add 30 on Record "Matrix8" Data index

         subtract 30 from Record "Matrix10" Data index
         add 30 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 31 each
         begin
         subtract 31 from Record "Matrix7" Data index
         add 31 on Record "Matrix8" Data index

         subtract 31 from Record "Matrix10" Data index
         add 31 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 32 each
         begin
         subtract 32 from Record "Matrix7" Data index
         add 32 on Record "Matrix8" Data index

         subtract 32 from Record "Matrix10" Data index
         add 32 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 33 each
         begin
         subtract 33 from Record "Matrix7" Data index
         add 33 on Record "Matrix8" Data index

         subtract 33 from Record "Matrix10" Data index
         add 33 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 34 each
         begin
         subtract 34 from Record "Matrix7" Data index
         add 34 on Record "Matrix8" Data index

         subtract 34 from Record "Matrix10" Data index
         add 34 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 35 each
         begin
         subtract 35 from Record "Matrix7" Data index
         add 35 on Record "Matrix8" Data index

         subtract 35 from Record "Matrix10" Data index
         add 35 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 36 each
         begin
         subtract 36 from Record "Matrix7" Data index
         add 36 on Record "Matrix8" Data index

         subtract 36 from Record "Matrix10" Data index
         add 36 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 37 each
         begin
         subtract 37 from Record "Matrix7" Data index
         add 37 on Record "Matrix8" Data index

         subtract 37 from Record "Matrix10" Data index
         add 37 on Record "Matrix11" Data index
         end


         Set Max to Record "Bet2" Layout Index
         Add 1 to Record "Bet2" Layout Index

         Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index



         if Record "Matrix7" Data index > 37 each
         begin
         subtract 37 from Record "Matrix7" data index
         end

         if Record "Matrix8" Data index > 37 each
         begin
         subtract 37 from Record "Matrix8" data index
         end

         if Record "Matrix10" Data index > 37 each
         begin
         subtract 37 from Record "Matrix10" data index
         end

         if Record "Matrix11" Data index > 37 each
         begin
         subtract 37 from Record "Matrix11" data index
         end



         if Record "Matrix7" Data index < 0 each
         begin
         add 37 to Record "Matrix7" data index
         end

         if Record "Matrix8" Data index < 0 each
         begin
         add 37 to Record "Matrix8" data index
         end

         if Record "Matrix10" Data index < 0 each
         begin
         add 37 to Record "Matrix10" data index
         end

         if Record "Matrix11" Data index < 0 each
         begin
         add 37 to Record "Matrix11" data index
         end


         if Record "Matrix7" Data index = 0 each
         begin
         put 1 to Record "Matrix7" data index
         end

         if Record "Matrix8" Data index = 0 each
         begin
         put 1 to Record "Matrix8" data index
         end

         if Record "Matrix10" Data index = 0 each
         begin
         put 1 to Record "Matrix10" data index
         end

         if Record "Matrix11" Data index = 0 each
         begin
         put 1 to Record "Matrix11" data index
         end


         Set Max to Record "Bet2" Layout Index
         Add 1 to Record "Bet2" Layout Index

         Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

         IF Record "Matrix7" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 2 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 3 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 4 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 6 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 7 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 8 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 9 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 10 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 11 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 12 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 13 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 14 each
         begin
         copy number 36 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 15 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 16 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 17 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 18 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 19 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 20 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 21 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 22 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 23 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 24 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 25 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 26 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 27 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 28 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 29 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 30 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 31 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 32 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 33 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 34 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 35 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 36 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 37 each
         begin
         copy number 26 to Record "Bet" Layout
         end


         Put 3 on Neighbor Count
          Copy Neighbors of Record "Bet" layout
          to Record "Bet2" Layout

         Put 100% of Record "progression" data to Record "Bet2" Layout list
         Put 100% of Record "progression" data to Record "Bet" Layout list


        Set Max to Record "Bet2" Layout Index
         Add 1 to Record "Bet2" Layout Index

         Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index


         IF Record "Matrix8" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 2 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 3 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 4 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 6 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 7 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 8 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 9 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 10 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 11 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 12 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 13 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 14 each
         begin
         copy number 36 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 15 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 16 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 17 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 18 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 19 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 20 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 21 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 22 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 23 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 24 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 25 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 26 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 27 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 28 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 29 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 30 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 31 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 32 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 33 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 34 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 35 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 36 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 37 each
         begin
         copy number 26 to Record "Bet" Layout
         end






         Put 3 on Neighbor Count
          Copy Neighbors of Record "Bet" layout
          to Record "Bet2" Layout
        Put 100% of Record "progression" data to Record "Bet" Layout list
        Put 100% of Record "progression" data to Record "Bet2" Layout list

     {  Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

         IF Record "Matrix10" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 2 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 3 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 4 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 6 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 7 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 8 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 9 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 10 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 11 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 12 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 13 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 14 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 15 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 16 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 17 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 18 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 19 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 20 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 21 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 22 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 23 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 24 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 25 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 26 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 27 each
         begin
         copy number 26 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 28 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 29 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 30 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 31 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 32 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 33 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 34 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 35 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 36 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 37 each
         begin
         copy number 36 to Record "Bet" Layout
         end

          Put 2 on Neighbor Count
          Copy Neighbors of Record "Bet" layout
          to Record "Bet2" Layout

         Put 100% of Record "progression" data to Record "Bet2" Layout list
         Put 100% of Record "progression" data to Record "Bet" Layout list


          Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

         IF Record "Matrix11" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 2 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 3 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 4 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 6 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 7 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 8 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 9 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 10 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 11 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 12 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 13 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 14 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 15 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 16 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 17 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 18 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 19 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 20 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 21 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 22 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 23 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 24 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 25 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 26 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 27 each
         begin
         copy number 26 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 28 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 29 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 30 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 31 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 32 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 33 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 34 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 35 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 36 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 37 each
         begin
         copy number 36 to Record "Bet" Layout
         end
                            }
        set flag "loop" true

     {     Put 2 on Neighbor Count
          Copy Neighbors of Record "Bet" layout
          to Record "Bet2" Layout

         Put 100% of Record "progression" data to Record "Bet2" Layout list
         Put 100% of Record "progression" data to Record "Bet" Layout list
      }
        // subtract 1 to Record "last" Layout index
        // subtract 1 to Record "DistData" Data index
        //subtract 1 to Record "secondlast" Layout index
       end

end


{
IF Record "LastBetMatrix" Layout index >= 4
begin

//duplicate Record "DistData" to Record "DistDataTEMP"
loop until Record "last" Layout index =  1
begin
//set max to Record "LastBetMatrix2" Layout index
//set max to Record "LastBetMatrix" Layout index
//set max to Record "secondlast" Layout index
//set flag "loop" true
//duplicate Record "DistData" to Record "DistData2"

//loop until Record "LastBetMatrix2" Layout index =  0
//begin

         duplicate Record "Matrix9" to Record "Matrix7"

              if Record "LastBetMatrix" Layout = number 0 each
         begin
         put 1 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 1 each
         begin
         put 21 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 2 each
         begin
         put 7 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 3 each
         begin
         put 36 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 4 each
         begin
         put 5 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 5 each
         begin
         put 20 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 6 each
         begin
         put 11 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 7 each
         begin
         put 32 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 8 each
         begin
         put 17 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 9 each
         begin
         put 28 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 10 each
         begin
         put 19 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 11 each
         begin
         put 15 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 12 each
         begin
         put 34 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 13 each
         begin
         put 13 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 14 each
         begin
         put 26 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 15 each
         begin
         put 3 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 16 each
         begin
         put 22 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 17 each
         begin
         put 9 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 18 each
         begin
         put 30 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 19 each
         begin
         put 4 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 20 each
         begin
         put 25 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 21 each
         begin
         put 6 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 22 each
         begin
         put 29 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 23 each
         begin
         put 18 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 24 each
         begin
         put 21 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 25 each
         begin
         put 8 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 26 each
         begin
         put 37 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 27 each
         begin
         put 12 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 28 each
         begin
         put 33 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 29 each
         begin
         put 31 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 30 each
         begin
         put 16 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 31 each
         begin
         put 27 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 32 each
         begin
         put 2 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 33 each
         begin
         put 23 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 34 each
         begin
         put 10 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 35 each
         begin
         put 35 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 36 each
         begin
         put 14 to Record "Matrix7" Data index
         end

         duplicate Record "Matrix7" to Record "Matrix8"
         duplicate Record "Matrix7" to Record "Matrix"
         duplicate Record "Matrix7" to Record "Matrix2"
         duplicate Record "Matrix7" to Record "Matrix5"
         //duplicate Record "Matrix7" to Record "last"
//==========

         duplicate Record "Matrix9" to Record "Matrix10"



         if Record "secondlast" Layout = number 0 each
         begin
         put 1 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 1 each
         begin
         put 21 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 2 each
         begin
         put 7 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 3 each
         begin
         put 36 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 4 each
         begin
         put 5 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 5 each
         begin
         put 20 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 6 each
         begin
         put 11 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 7 each
         begin
         put 32 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 8 each
         begin
         put 17 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 9 each
         begin
         put 28 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 10 each
         begin
         put 19 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 11 each
         begin
         put 15 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 12 each
         begin
         put 34 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 13 each
         begin
         put 13 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 14 each
         begin
         put 26 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 15 each
         begin
         put 3 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 16 each
         begin
         put 22 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 17 each
         begin
         put 9 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 18 each
         begin
         put 30 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 19 each
         begin
         put 4 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 20 each
         begin
         put 25 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 21 each
         begin
         put 6 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 22 each
         begin
         put 29 to Record "Matrix10" Data index
         end

        if Record "secondlast" Layout = number 23 each
         begin
         put 18 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 24 each
         begin
         put 21 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 25 each
         begin
         put 8 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 26 each
         begin
         put 37 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 27 each
         begin
         put 12 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 28 each
         begin
         put 33 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 29 each
         begin
         put 31 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 30 each
         begin
         put 16 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 31 each
         begin
         put 27 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 32 each
         begin
         put 2 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 33 each
         begin
         put 23 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 34 each
         begin
         put 10 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 35 each
         begin
         put 35 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 36 each
         begin
         put 14 to Record "Matrix10" Data index
         end


         duplicate Record "Matrix10" to Record "Matrix11"
         duplicate Record "Matrix10" to Record "Matrix3"
         duplicate Record "Matrix10" to Record "Matrix4"
         duplicate Record "Matrix10" to Record "Matrix6"


      IF flag "loop" false each
       begin

         //==Dist Calc===
         duplicate Record "last" to Record "temp"
        // duplicate Record "LastBetMatrix" to Record "last"
         duplicate Record "Matrix7" to Record "Matrix"
         duplicate Record "Matrix10" to Record "Matrix3"

          if Record "Matrix" Data index < Record "Matrix3" Data index each
         begin


         if Record "last" Layout = number 0 each
         begin
         subtract 1 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 1 each
         begin
         subtract 21 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 2 each
         begin
         subtract 7 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 3 each
         begin
         subtract 36 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 4 each
         begin
         subtract 5 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 5 each
         begin
         subtract 20 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 6 each
         begin
         subtract 11 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 7 each
         begin
         subtract 32 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 8 each
         begin
         subtract 17 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 9 each
         begin
         subtract 28 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 10 each
         begin
         subtract 19 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 11 each
         begin
         subtract 15 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 12 each
         begin
         subtract 34 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 13 each
         begin
         subtract 13 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 14 each
         begin
         subtract 26 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 15 each
         begin
         subtract 3 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 16 each
         begin
         subtract 22 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 17 each
         begin
         subtract 9 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 18 each
         begin
         subtract 30 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 19 each
         begin
         subtract 4 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 20 each
         begin
         subtract 25 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 21 each
         begin
         subtract 6 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 22 each
         begin
         subtract 29 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 23 each
         begin
         subtract 18 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 24 each
         begin
         subtract 21 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 25 each
         begin
         subtract 8 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 26 each
         begin
         subtract 37 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 27 each
         begin
         subtract 12 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 28 each
         begin
         subtract 33 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 29 each
         begin
         subtract 31 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 30 each
         begin
         subtract 16 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 31 each
         begin
         subtract 27 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 32 each
         begin
         subtract 2 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 33 each
         begin
         subtract 23 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 34 each
         begin
         subtract 10 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 35 each
         begin
         subtract 35 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 36 each
         begin
         subtract 14 from Record "Matrix3" Data index
         end

      //  if flag "loop" false each
      //  begin
         Set Max to Record "DistData" Data Index
         Add 1 to Record "DistData" Data Index
      //  end

         IF Record "Matrix3" Data index = 1 each
         begin
         put 1 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 2 each
         begin
         put 2 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 3 each
         begin
         put 3 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 4 each
         begin
         put 4 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 5 each
         begin
         put 5 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 6 each
         begin
         put 6 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 7 each
         begin
         put 7 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 8 each
         begin
         put 8 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 9 each
         begin
         put 9 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 10 each
         begin
         put 10 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 11 each
         begin
         put 11 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 12 each
         begin
         put 12 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 13 each
         begin
         put 13 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 14 each
         begin
         put 14 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 15 each
         begin
         put 15 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 16 each
         begin
         put 16 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 17 each
         begin
         put 17 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 18 each
         begin
         put 18 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 19 each
         begin
         put 19 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 20 each
         begin
         put 20 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 21 each
         begin
         put 21 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 23 each
         begin
         put 23 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 24 each
         begin
         put 24 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 25 each
         begin
         put 25 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 26 each
         begin
         put 26 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 27 each
         begin
         put 27 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 28 each
         begin
         put 28 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 29 each
         begin
         put 29 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 30 each
         begin
         put 30 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 31 each
         begin
         put 31 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 32 each
         begin
         put 32 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 33 each
         begin
         put 33 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 34 each
         begin
         put 34 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 35 each
         begin
         put 35 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 36 each
         begin
         put 36 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 37 each
         begin
         put 37 to Record "DistData" Data
         end

         end
         else
         begin

      //****


         if Record "Matrix" Data index > Record "Matrix3" Data index each
         begin

         if Record "secondlast" Layout = number 0 each
         begin
         subtract 1 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 1 each
         begin
         subtract 21 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 2 each
         begin
         subtract 7 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 3 each
         begin
         subtract 36 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 4 each
         begin
         subtract 5 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 5 each
         begin
         subtract 20 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 6 each
         begin
         subtract 11 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 7 each
         begin
         subtract 32 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 8 each
         begin
         subtract 17 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 9 each
         begin
         subtract 28 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 10 each
         begin
         subtract 19 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 11 each
         begin
         subtract 15 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 12 each
         begin
         subtract 34 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 13 each
         begin
         subtract 13 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 14 each
         begin
         subtract 26 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 15 each
         begin
         subtract 3 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 16 each
         begin
         subtract 22 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 17 each
         begin
         subtract 9 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 18 each
         begin
         subtract 30 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 19 each
         begin
         subtract 4 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 20 each
         begin
         subtract 25 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 21 each
         begin
         subtract 6 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 22 each
         begin
         subtract 29 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 23 each
         begin
         subtract 18 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 24 each
         begin
         subtract 21 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 25 each
         begin
         subtract 8 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 26 each
         begin
         subtract 37 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 27 each
         begin
         subtract 12 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 28 each
         begin
         subtract 33 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 29 each
         begin
         subtract 31 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 30 each
         begin
         subtract 16 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 31 each
         begin
         subtract 27 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 32 each
         begin
         subtract 23 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 33 each
         begin
         subtract 34 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 34 each
         begin
         subtract 10 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 35 each
         begin
         subtract 35 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 36 each
         begin
         subtract 14 from Record "Matrix" Data index
         end

      //  if flag "loop" false each
      //  begin
         Set Max to Record "DistData" Data Index
         Add 1 to Record "DistData" Data Index
      //  end

         IF Record "Matrix" Data index = 1 each
         begin
         put 1 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 2 each
         begin
         put 2 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 3 each
         begin
         put 3 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 4 each
         begin
         put 4 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 5 each
         begin
         put 5 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 6 each
         begin
         put 6 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 7 each
         begin
         put 7 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 8 each
         begin
         put 8 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 9 each
         begin
         put 9 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 10 each
         begin
         put 10 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 11 each
         begin
         put 11 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 12 each
         begin
         put 12 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 13 each
         begin
         put 13 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 14 each
         begin
         put 14 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 15 each
         begin
         put 15 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 16 each
         begin
         put 16 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 17 each
         begin
         put 17 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 18 each
         begin
         put 18 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 19 each
         begin
         put 19 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 20 each
         begin
         put 20 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 21 each
         begin
         put 21 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 23 each
         begin
         put 23 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 24 each
         begin
         put 24 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 25 each
         begin
         put 25 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 26 each
         begin
         put 26 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 27 each
         begin
         put 27 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 28 each
         begin
         put 28 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 29 each
         begin
         put 29 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 30 each
         begin
         put 30 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 31 each
         begin
         put 31 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 32 each
         begin
         put 32 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 33 each
         begin
         put 33 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 34 each
         begin
         put 34 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 35 each
         begin
         put 35 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 36 each
         begin
         put 36 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 37 each
         begin
         put 37 to Record "DistData" Data
         end

         end
         end
     end

     IF Record "DistData" Data = 1 each
         begin
         subtract 1 from Record "Matrix7" Data index
         add 1 on Record "Matrix8" Data index

         subtract 1 from Record "Matrix10" Data index
         add 1 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 2 each
         begin
         subtract 2 from Record "Matrix7" Data index
         add 2 on Record "Matrix8" Data index

         subtract 2 from Record "Matrix10" Data index
         add 2 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 3 each
         begin
         subtract 3 from Record "Matrix7" Data index
         add 3 on Record "Matrix8" Data index

         subtract 3 from Record "Matrix10" Data index
         add 3 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 4 each
         begin
         subtract 4 from Record "Matrix7" Data
         add 4 on Record "Matrix8" Data index

         subtract 4 from Record "Matrix10" Data index
         add 4 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 5 each
         begin
         subtract 5 from Record "Matrix7" Data index
         add 5 on Record "Matrix8" Data index

         subtract 5 from Record "Matrix10" Data index
         add 5 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 6 each
         begin
         subtract 6 from Record "Matrix7" Data index
         add 6 on Record "Matrix8" Data index

         subtract 6 from Record "Matrix10" Data index
         add 6 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 7 each
         begin
         subtract 7 from Record "Matrix7" Data index
         add 7 on Record "Matrix8" Data index

         subtract 7 from Record "Matrix10" Data index
         add 7 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 8 each
         begin
         subtract 8 from Record "Matrix7" Data index
         add 8 on Record "Matrix8" Data index

         subtract 8 from Record "Matrix10" Data index
         add 8 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 9 each
         begin
         subtract 9 from Record "Matrix7" Data index
         add 9 on Record "Matrix8" Data index

         subtract 9 from Record "Matrix10" Data index
         add 9 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 10 each
         begin
         subtract 10 from Record "Matrix7" Data index
         add 10 on Record "Matrix8" Data index

         subtract 10 from Record "Matrix10" Data index
         add 10 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 11 each
         begin
         subtract 11 from Record "Matrix7" Data index
         add 11 on Record "Matrix8" Data index

         subtract 11 from Record "Matrix10" Data index
         add 11 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 12 each
         begin
         subtract 12 from Record "Matrix7" Data index
         add 12 on Record "Matrix8" Data index

         subtract 12 from Record "Matrix10" Data index
         add 12 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 13 each
         begin
         subtract 13 from Record "Matrix7" Data index
         add 13 on Record "Matrix8" Data index

         subtract 13 from Record "Matrix10" Data index
         add 13 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 14 each
         begin
         subtract 14 from Record "Matrix7" Data index
         add 14 on Record "Matrix8" Data index

         subtract 14 from Record "Matrix10" Data index
         add 14 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 15 each
         begin
         subtract 15 from Record "Matrix7" Data index
         add 15 on Record "Matrix8" Data index

         subtract 15 from Record "Matrix10" Data index
         add 15 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 16 each
         begin
         subtract 16 from Record "Matrix7" Data index
         add 16 on Record "Matrix8" Data index

         subtract 16 from Record "Matrix10" Data index
         add 16 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 17 each
         begin
         subtract 17 from Record "Matrix7" Data index
         add 17 on Record "Matrix8" Data index

         subtract 17 from Record "Matrix10" Data index
         add 17 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 18 each
         begin
         subtract 18 from Record "Matrix7" Data index
         add 18 on Record "Matrix8" Data index

         subtract 18 from Record "Matrix10" Data index
         add 18 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 19 each
         begin
         subtract 19 from Record "Matrix7" Data index
         add 19 on Record "Matrix8" Data index

         subtract 19 from Record "Matrix10" Data index
         add 19 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 20 each
         begin
         subtract 20 from Record "Matrix7" Data index
         add 20 on Record "Matrix8" Data index

         subtract 20 from Record "Matrix10" Data index
         add 20 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 21 each
         begin
         subtract 21 from Record "Matrix7" Data index
         add 21 on Record "Matrix8" Data index

         subtract 21 from Record "Matrix10" Data index
         add 21 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 22 each
         begin
         subtract 22 from Record "Matrix7" Data index
         add 22 on Record "Matrix8" Data index

         subtract 22 from Record "Matrix10" Data index
         add 22 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 23 each
         begin
         subtract 23 from Record "Matrix7" Data index
         add 23 on Record "Matrix8" Data index

         subtract 23 from Record "Matrix10" Data index
         add 23 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 24 each
         begin
         subtract 24 from Record "Matrix7" Data index
         add 24 on Record "Matrix8" Data index

         subtract 24 from Record "Matrix10" Data index
         add 24 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 25 each
         begin
         subtract 25 from Record "Matrix7" Data index
         add 25 on Record "Matrix8" Data index

         subtract 25 from Record "Matrix10" Data index
         add 25 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 26 each
         begin
         subtract 26 from Record "Matrix7" Data index
         add 26 on Record "Matrix8" Data index

         subtract 26 from Record "Matrix10" Data index
         add 26 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 27 each
         begin
         subtract 27 from Record "Matrix7" Data index
         add 27 on Record "Matrix8" Data index

         subtract 27 from Record "Matrix10" Data index
         add 27 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 28 each
         begin
         subtract 28 from Record "Matrix7" Data index
         add 28 on Record "Matrix8" Data index

         subtract 28 from Record "Matrix10" Data index
         add 28 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 29 each
         begin
         subtract 29 from Record "Matrix7" Data index
         add 29 on Record "Matrix8" Data index

         subtract 29 from Record "Matrix10" Data index
         add 29 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 30 each
         begin
         subtract 30 from Record "Matrix7" Data index
         add 30 on Record "Matrix8" Data index

         subtract 30 from Record "Matrix10" Data index
         add 30 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 31 each
         begin
         subtract 31 from Record "Matrix7" Data index
         add 31 on Record "Matrix8" Data index

         subtract 31 from Record "Matrix10" Data index
         add 31 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 32 each
         begin
         subtract 32 from Record "Matrix7" Data index
         add 32 on Record "Matrix8" Data index

         subtract 32 from Record "Matrix10" Data index
         add 32 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 33 each
         begin
         subtract 33 from Record "Matrix7" Data index
         add 33 on Record "Matrix8" Data index

         subtract 33 from Record "Matrix10" Data index
         add 33 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 34 each
         begin
         subtract 34 from Record "Matrix7" Data index
         add 34 on Record "Matrix8" Data index

         subtract 34 from Record "Matrix10" Data index
         add 34 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 35 each
         begin
         subtract 35 from Record "Matrix7" Data index
         add 35 on Record "Matrix8" Data index

         subtract 35 from Record "Matrix10" Data index
         add 35 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 36 each
         begin
         subtract 36 from Record "Matrix7" Data index
         add 36 on Record "Matrix8" Data index

         subtract 36 from Record "Matrix10" Data index
         add 36 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 37 each
         begin
         subtract 37 from Record "Matrix7" Data index
         add 37 on Record "Matrix8" Data index

         subtract 37 from Record "Matrix10" Data index
         add 37 on Record "Matrix11" Data index
         end


         Set Max to Record "Bet2" Layout Index
         Add 1 to Record "Bet2" Layout Index

         Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index



         if Record "Matrix7" Data index > 37 each
         begin
         subtract 37 from Record "Matrix7" data index
         end

         if Record "Matrix8" Data index > 37 each
         begin
         subtract 37 from Record "Matrix8" data index
         end

         if Record "Matrix10" Data index > 37 each
         begin
         subtract 37 from Record "Matrix10" data index
         end

         if Record "Matrix11" Data index > 37 each
         begin
         subtract 37 from Record "Matrix11" data index
         end



         if Record "Matrix7" Data index < 0 each
         begin
         add 37 to Record "Matrix7" data index
         end

         if Record "Matrix8" Data index < 0 each
         begin
         add 37 to Record "Matrix8" data index
         end

         if Record "Matrix10" Data index < 0 each
         begin
         add 37 to Record "Matrix10" data index
         end

         if Record "Matrix11" Data index < 0 each
         begin
         add 37 to Record "Matrix11" data index
         end


         if Record "Matrix7" Data index = 0 each
         begin
         put 1 to Record "Matrix7" data index
         end

         if Record "Matrix8" Data index = 0 each
         begin
         put 1 to Record "Matrix8" data index
         end

         if Record "Matrix10" Data index = 0 each
         begin
         put 1 to Record "Matrix10" data index
         end

         if Record "Matrix11" Data index = 0 each
         begin
         put 1 to Record "Matrix11" data index
         end

       {
         Set Max to Record "Bet2" Layout Index
         Add 1 to Record "Bet2" Layout Index

         Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

         IF Record "Matrix7" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 2 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 3 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 4 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 6 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 7 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 8 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 9 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 10 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 11 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 12 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 13 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 14 each
         begin
         copy number 36 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 15 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 16 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 17 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 18 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 19 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 20 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 21 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 22 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 23 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 24 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 25 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 26 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 27 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 28 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 29 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 30 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 31 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 32 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 33 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 34 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 35 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 36 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 37 each
         begin
         copy number 26 to Record "Bet" Layout
         end


         {Put 1 on Neighbor Count
          Copy Neighbors of Record "Bet" layout
          to Record "Bet2" Layout

         Put 100% of Record "progression" data to Record "Bet2" Layout list
         Put 100% of Record "progression" data to Record "Bet" Layout list


        Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

        { Set Max to Record "Bet2" Layout Index
         Add 1 to Record "Bet2" Layout Index


         IF Record "Matrix8" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 2 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 3 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 4 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 6 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 7 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 8 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 9 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 10 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 11 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 12 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 13 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 14 each
         begin
         copy number 36 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 15 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 16 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 17 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 18 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 19 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 20 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 21 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 22 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 23 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 24 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 25 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 26 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 27 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 28 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 29 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 30 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 31 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 32 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 33 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 34 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 35 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 36 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 37 each
         begin
         copy number 26 to Record "Bet" Layout
         end






      {  Put 1 on Neighbor Count
          Copy Neighbors of Record "Bet" layout
          to Record "Bet2" Layout
         Put 100% of Record "progression" data to Record "Bet" Layout list
         Put 100% of Record "progression" data to Record "Bet" Layout list  }

      {   Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

         IF Record "Matrix10" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 2 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 3 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 4 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 6 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 7 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 8 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 9 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 10 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 11 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 12 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 13 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 14 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 15 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 16 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 17 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 18 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 19 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 20 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 21 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 22 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 23 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 24 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 25 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 26 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 27 each
         begin
         copy number 26 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 28 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 29 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 30 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 31 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 32 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 33 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 34 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 35 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 36 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 37 each
         begin
         copy number 36 to Record "Bet" Layout
         end


         Put 100% of Record "progression" data to Record "Bet" Layout list


          Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

         IF Record "Matrix11" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 2 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 3 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 4 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 6 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 7 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 8 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 9 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 10 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 11 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 12 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 13 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 14 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 15 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 16 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 17 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 18 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 19 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 20 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 21 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 22 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 23 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 24 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 25 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 26 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 27 each
         begin
         copy number 26 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 28 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 29 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 30 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 31 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 32 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 33 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 34 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 35 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 36 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 37 each
         begin
         copy number 36 to Record "Bet" Layout
         end
                                                    ]
         set flag "loop" true

         Put 100% of Record "progression" data to Record "Bet" Layout list

         subtract 1 to Record "last" Layout index
        subtract 1 to Record "DistData" Data index
        //subtract 1 to Record "secondlast" Layout index
       end

end                                                  }


{
set max to Record "DistData" Data index
set max to Record "last" Layout index
set max to Record "secondlast" Layout index
set max to Record "LastBetMatrix" Layout index
set max to Record "LastBetMatrix2" Layout index
}
{ if total spin count >= 300 each
  begin
  stop session
  end
  }
 
  if total bankroll <= -1000 each
  begin
   { add 1 to record "lost sessions" data index
    put 0 on total bankroll
    put 1 on Record "progression" Data Index
    }
  stop session
  end

  if total bankroll >= 1000 each
  begin
   { add 1 to record "won sessions" data index
    put 0 on total bankroll
    put 1 on Record "progression" Data Index
    }
  stop session
  end





If Record "progression" Data Index >
  Record "progression" Data Count  each
    Begin
      Put 1 on Record "progression" Data Index
      clear Record "DistData" Layout
   clear Record "Bet" Layout
   clear Record "secondlast" Layout
   clear Record "last" Layout
   clear Record "Matrix" Layout
   clear Record "Matrix1" Layout
   clear Record "Matrix2" Layout
   clear Record "Matrix3" Layout
   clear Record "Matrix4" Layout
   clear Record "Matrix5" Layout
   clear Record "Matrix6" Layout
   clear Record "Matrix7" Layout
   clear Record "Matrix8" Layout
   clear Record "Matrix9" Layout
   clear Record "Matrix10" Layout
   clear Record "Matrix11" Layout
   clear Record "Matrix12" Layout
   clear Record "Matrix13" Layout
   clear Record "LastBetMatrix" Layout
    End
   
    Set Max to Record "secondlast" Layout Index
Add 1 to Record "secondlast" Layout Index
copy last Number to Record "secondlast" Layout

  { clear Record "Matrix" Layout
   clear Record "Matrix1" Layout
   clear Record "Matrix2" Layout
   clear Record "Matrix3" Layout
   clear Record "Matrix4" Layout
   clear Record "Matrix5" Layout
   clear Record "Matrix6" Layout
   clear Record "Matrix7" Layout
   clear Record "Matrix8" Layout      }
// clear Record "last" Layout
   set flag "loop" false
  //
  //  clear Record "temp" layout

END

[Serendipity]

What do you mean 'can calculate a new distance'? Sometimes can bet let's say 12 or 16 numbers? It auto calibrates the number of neighbors? Ok, I will try to read and understand the code

[ignatus]

:question:What do you mean 'can calculate a new distance'? Sometimes can bet let's say 12 or 16 numbers? It auto calibrates the number of neighbors?

its coded to bet same distance as previous spins distance, i tried that but had no good results, so i now use a static distance of 11 pockets away on each side (for each spin)... General said 11 pockets was the most common distance (from statistics).... neigbours is 3+3+1 numbers 7 numbers on each side bet. total bet 14 numbers.

[Steve]

Why would it be any specific distance for all wheels and in all conditions?

In what conditions exactly is there an edge?

What are the exact causes and effects?

How are you verifying the edge? Whats the statistical analysis?

How are you dealing with variable changes?

How are you ensuring accuracy is maintained as variables constantly change?

You missed a whole lot.

[ignatus]

In what conditions exactly is there an edge?

This is the only question i can answer,... and? that must be to find some kind of "trigger" i haven´t figured out yet... or else that must be to compare different distances and see how/If they Relate...

[Macro]

The code can calculate for each spin and it tracks the amount 11 pockets not to hit at x spins then bet?

That is no difference to balvinder system.

The idea is like a sleeper isnt or am I wrong?

[ignatus]

The code can calculate for each spin and it tracks the amount 11 pockets not to hit at x spins then bet?

That is no difference to balvinder system.

The idea is like a sleeper isnt or am I wrong?

yes it can...i can make that code.

now, i just changed somethings (dont know if it made any difference winrate still about 70-80%).

But i changed the code so it *wont* make a bet UNTIL the Virtual Sector (non-bet) sector has hit. THEN it will only BET for 2 spins, then STOP. (and wait for a new trigger, a new hit of the virtual sector etc..)

Test, and also if you have other ideas of a trigger...

Version 2

Code Select Expand

system "Dealers Signature v.2"
// © ignatus 2019 ©

method "main"
begin
  while starting a new session
  begin
       Set List[1,1,2,3,5,8,13,21,32,55,89,144,233,377,610,987]
              to Record "progression" Data

       Set List[1,2,3,4,5,6,7,8] to Record "spin" Data
       
       Set List[1,2,3,4,5,6,7,8,9,10,11,12] to Record "spin2" Data

       Set List [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
                 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73]
         to Record "Matrix" Data
         
       Set List [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
                 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73]
         to Record "Matrix2" Data
         
       Set List [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
                 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73]
         to Record "Matrix3" Data
         
         Set List [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
                 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73]
         to Record "Matrix4" Data
         
         Set List [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
                 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73]
         to Record "Matrix9" Data
         

         copy List[number 0,number 32,number 15,number 19,number 4,number 21,number 2,
                 number 25,number 17,number 34,number 6,number 27,number 13,number 36,
                 number 11,number 30,number 8,number 23,number 10,number 5,number 24,
                 number 16,number 33,number 1,number 20,number 14,number 31,number 9,
                 number 22,number 18,number 29,number 7,number 28,number 12,number 35,
                 number 3,number 26]
        to Record "Wheel" Layout

       { Set List [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
                 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73]
         to Record "DistData" Data
        }

  end
   put 0 to Record "Highest Bankroll" Data

  while on each spin
  begin
   Track last Number for 4 spins to Record "track" layout
   
   Track last Number for 1 spins to Record "current" layout
   
   IF Record "track" layout index >= 5 each
   begin
   clear Record "track" layout
   set flag "loop" false
   end
 
      IF any inside bet lost each
  begin
  add 1 on Record "progression" Data Index
  clear Record "Bet" Layout
   clear Record "Bet2" Layout
   clear Record "Bet3" Layout
   clear Record "Bet4" Layout

// Put 100% of Record "progression" data to Record "Bet" Layout list
// Put 100% of Record "progression" data to Record "Bet2" Layout list

// Put 100% of Record "progression" data to Record "Bet3" Layout list
// Put 100% of Record "progression" data to Record "Bet4" Layout list

  end
 
//   Put 100% of Record "progression" data to Record "Bet" Layout list
// Put 100% of Record "progression" data to Record "Bet2" Layout list

   If any inside bet won each
  begin
  set flag "hit" false
  // set flag "loop" false
   clear Record "DistData" Layout
   clear Record "Bet" Layout
   clear Record "Bet2" Layout
   clear Record "Bet3" Layout
   clear Record "Bet4" Layout
   clear Record "secondlast" Layout
   clear Record "last" Layout
   clear Record "secondlast" Layout
   clear Record "Matrix" Layout
   clear Record "Matrix1" Layout
   clear Record "Matrix2" Layout
   clear Record "Matrix3" Layout
   clear Record "Matrix4" Layout
   clear Record "Matrix5" Layout
   clear Record "Matrix6" Layout
   clear Record "Matrix7" Layout
   clear Record "Matrix8" Layout
   clear Record "Matrix9" Layout
   clear Record "Matrix10" Layout
   clear Record "Matrix11" Layout
   clear Record "Matrix12" Layout
   clear Record "Matrix13" Layout
   clear Record "LastBetMatrix" Layout
   clear Record "LastBetMatrix2" Layout

  Put 1 on Record "spin" Data Index
  Put 1 on Record "spin2" Data Index
  put 1 on Record "progression" Data Index

     if Bankroll >= Record "Highest Bankroll" Data
     begin
        clear Record "Highest Bankroll" Data
        put 100% Bankroll to Record "Highest Bankroll" Data
        put 1 on Record "progression" Data Index
     end

  end

  if Record "spin" Data Index = 6 each
  begin
    Put 1 on Record "spin" Data Index
  end

Set Max to Record "last" Layout Index
Add 1 to Record "last" Layout Index
copy last Number to Record "last" Layout

         Set Max to Record "LastBetMatrix" Layout Index
         Add 1 to Record "LastBetMatrix" Layout Index
         copy last Number to Record "LastBetMatrix" Layout
         
         Set Max to Record "LastBetMatrix2" Layout Index
         Add 1 to Record "LastBetMatrix2" Layout Index
         copy last Number to Record "LastBetMatrix2" Layout


Set Max to Record "current" Layout Index
Add 1 to Record "current" Layout Index
copy last number to Record "current" Layout

//===============================================================
IF Record "LastBetMatrix" Layout index >= 2
begin

//duplicate Record "DistData" to Record "DistDataTEMP"
//loop until Record "last" Layout index =  1
//begin
//set max to Record "LastBetMatrix2" Layout index
//set max to Record "LastBetMatrix" Layout index
//set max to Record "secondlast" Layout index
//set flag "loop" true
//duplicate Record "DistData" to Record "DistData2"

//loop until Record "LastBetMatrix2" Layout index =  0
//begin

         duplicate Record "Matrix9" to Record "Matrix7"

              if Record "LastBetMatrix" Layout = number 0 each
         begin
         put 1 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 1 each
         begin
         put 21 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 2 each
         begin
         put 7 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 3 each
         begin
         put 36 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 4 each
         begin
         put 5 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 5 each
         begin
         put 20 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 6 each
         begin
         put 11 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 7 each
         begin
         put 32 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 8 each
         begin
         put 17 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 9 each
         begin
         put 28 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 10 each
         begin
         put 19 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 11 each
         begin
         put 15 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 12 each
         begin
         put 34 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 13 each
         begin
         put 13 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 14 each
         begin
         put 26 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 15 each
         begin
         put 3 to Record "Matrix7" Data index
         end
         
         if Record "LastBetMatrix" Layout = number 16 each
         begin
         put 22 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 17 each
         begin
         put 9 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 18 each
         begin
         put 30 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 19 each
         begin
         put 4 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 20 each
         begin
         put 25 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 21 each
         begin
         put 6 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 22 each
         begin
         put 29 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 23 each
         begin
         put 18 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 24 each
         begin
         put 21 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 25 each
         begin
         put 8 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 26 each
         begin
         put 37 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 27 each
         begin
         put 12 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 28 each
         begin
         put 33 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 29 each
         begin
         put 31 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 30 each
         begin
         put 16 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 31 each
         begin
         put 27 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 32 each
         begin
         put 2 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 33 each
         begin
         put 23 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 34 each
         begin
         put 10 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 35 each
         begin
         put 35 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 36 each
         begin
         put 14 to Record "Matrix7" Data index
         end

         duplicate Record "Matrix7" to Record "Matrix8"
         duplicate Record "Matrix7" to Record "Matrix"
         duplicate Record "Matrix7" to Record "Matrix2"
         duplicate Record "Matrix7" to Record "Matrix5"
         //duplicate Record "Matrix7" to Record "last"
//==========

         duplicate Record "Matrix9" to Record "Matrix10"



         if Record "secondlast" Layout = number 0 each
         begin
         put 1 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 1 each
         begin
         put 21 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 2 each
         begin
         put 7 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 3 each
         begin
         put 36 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 4 each
         begin
         put 5 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 5 each
         begin
         put 20 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 6 each
         begin
         put 11 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 7 each
         begin
         put 32 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 8 each
         begin
         put 17 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 9 each
         begin
         put 28 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 10 each
         begin
         put 19 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 11 each
         begin
         put 15 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 12 each
         begin
         put 34 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 13 each
         begin
         put 13 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 14 each
         begin
         put 26 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 15 each
         begin
         put 3 to Record "Matrix10" Data index
         end
         
         if Record "secondlast" Layout = number 16 each
         begin
         put 22 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 17 each
         begin
         put 9 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 18 each
         begin
         put 30 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 19 each
         begin
         put 4 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 20 each
         begin
         put 25 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 21 each
         begin
         put 6 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 22 each
         begin
         put 29 to Record "Matrix10" Data index
         end

        if Record "secondlast" Layout = number 23 each
         begin
         put 18 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 24 each
         begin
         put 21 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 25 each
         begin
         put 8 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 26 each
         begin
         put 37 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 27 each
         begin
         put 12 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 28 each
         begin
         put 33 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 29 each
         begin
         put 31 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 30 each
         begin
         put 16 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 31 each
         begin
         put 27 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 32 each
         begin
         put 2 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 33 each
         begin
         put 23 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 34 each
         begin
         put 10 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 35 each
         begin
         put 35 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 36 each
         begin
         put 14 to Record "Matrix10" Data index
         end


         duplicate Record "Matrix10" to Record "Matrix11"
         duplicate Record "Matrix10" to Record "Matrix3"
         duplicate Record "Matrix10" to Record "Matrix4"
         duplicate Record "Matrix10" to Record "Matrix6"


      IF flag "loop" false each
       begin

         //==Dist Calc===

if Record "spin" Data index = 1 each
begin

         duplicate Record "last" to Record "temp"
        // duplicate Record "LastBetMatrix" to Record "last"
         duplicate Record "Matrix7" to Record "Matrix"
         duplicate Record "Matrix10" to Record "Matrix3"

          if Record "Matrix" Data index < Record "Matrix3" Data index each
         begin


         if Record "last" Layout = number 0 each
         begin
         subtract 1 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 1 each
         begin
         subtract 21 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 2 each
         begin
         subtract 7 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 3 each
         begin
         subtract 36 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 4 each
         begin
         subtract 5 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 5 each
         begin
         subtract 20 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 6 each
         begin
         subtract 11 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 7 each
         begin
         subtract 32 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 8 each
         begin
         subtract 17 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 9 each
         begin
         subtract 28 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 10 each
         begin
         subtract 19 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 11 each
         begin
         subtract 15 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 12 each
         begin
         subtract 34 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 13 each
         begin
         subtract 13 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 14 each
         begin
         subtract 26 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 15 each
         begin
         subtract 3 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 16 each
         begin
         subtract 22 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 17 each
         begin
         subtract 9 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 18 each
         begin
         subtract 30 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 19 each
         begin
         subtract 4 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 20 each
         begin
         subtract 25 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 21 each
         begin
         subtract 6 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 22 each
         begin
         subtract 29 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 23 each
         begin
         subtract 18 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 24 each
         begin
         subtract 21 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 25 each
         begin
         subtract 8 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 26 each
         begin
         subtract 37 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 27 each
         begin
         subtract 12 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 28 each
         begin
         subtract 33 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 29 each
         begin
         subtract 31 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 30 each
         begin
         subtract 16 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 31 each
         begin
         subtract 27 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 32 each
         begin
         subtract 2 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 33 each
         begin
         subtract 23 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 34 each
         begin
         subtract 10 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 35 each
         begin
         subtract 35 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 36 each
         begin
         subtract 14 from Record "Matrix3" Data index
         end

      //  if flag "loop" false each
      //  begin
         Set Max to Record "DistData" Data Index
         Add 1 to Record "DistData" Data Index
      //  end

         IF Record "Matrix3" Data index = 1 each
         begin
         put 1 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 2 each
         begin
         put 2 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 3 each
         begin
         put 3 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 4 each
         begin
         put 4 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 5 each
         begin
         put 5 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 6 each
         begin
         put 6 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 7 each
         begin
         put 7 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 8 each
         begin
         put 8 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 9 each
         begin
         put 9 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 10 each
         begin
         put 10 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 11 each
         begin
         put 11 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 12 each
         begin
         put 12 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 13 each
         begin
         put 13 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 14 each
         begin
         put 14 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 15 each
         begin
         put 15 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 16 each
         begin
         put 16 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 17 each
         begin
         put 17 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 18 each
         begin
         put 18 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 19 each
         begin
         put 19 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 20 each
         begin
         put 20 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 21 each
         begin
         put 21 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 23 each
         begin
         put 23 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 24 each
         begin
         put 24 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 25 each
         begin
         put 25 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 26 each
         begin
         put 26 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 27 each
         begin
         put 27 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 28 each
         begin
         put 28 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 29 each
         begin
         put 29 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 30 each
         begin
         put 30 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 31 each
         begin
         put 31 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 32 each
         begin
         put 32 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 33 each
         begin
         put 33 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 34 each
         begin
         put 34 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 35 each
         begin
         put 35 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 36 each
         begin
         put 36 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 37 each
         begin
         put 37 to Record "DistData" Data
         end

         end
         else
         begin

      //****


         if Record "Matrix" Data index > Record "Matrix3" Data index each
         begin

         if Record "secondlast" Layout = number 0 each
         begin
         subtract 1 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 1 each
         begin
         subtract 21 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 2 each
         begin
         subtract 7 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 3 each
         begin
         subtract 36 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 4 each
         begin
         subtract 5 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 5 each
         begin
         subtract 20 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 6 each
         begin
         subtract 11 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 7 each
         begin
         subtract 32 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 8 each
         begin
         subtract 17 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 9 each
         begin
         subtract 28 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 10 each
         begin
         subtract 19 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 11 each
         begin
         subtract 15 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 12 each
         begin
         subtract 34 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 13 each
         begin
         subtract 13 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 14 each
         begin
         subtract 26 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 15 each
         begin
         subtract 3 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 16 each
         begin
         subtract 22 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 17 each
         begin
         subtract 9 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 18 each
         begin
         subtract 30 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 19 each
         begin
         subtract 4 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 20 each
         begin
         subtract 25 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 21 each
         begin
         subtract 6 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 22 each
         begin
         subtract 29 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 23 each
         begin
         subtract 18 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 24 each
         begin
         subtract 21 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 25 each
         begin
         subtract 8 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 26 each
         begin
         subtract 37 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 27 each
         begin
         subtract 12 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 28 each
         begin
         subtract 33 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 29 each
         begin
         subtract 31 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 30 each
         begin
         subtract 16 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 31 each
         begin
         subtract 27 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 32 each
         begin
         subtract 23 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 33 each
         begin
         subtract 34 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 34 each
         begin
         subtract 10 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 35 each
         begin
         subtract 35 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 36 each
         begin
         subtract 14 from Record "Matrix" Data index
         end

      //  if flag "loop" false each
      //  begin
         Set Max to Record "DistData" Data Index
         Add 1 to Record "DistData" Data Index
      //  end

         IF Record "Matrix" Data index = 1 each
         begin
         put 1 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 2 each
         begin
         put 2 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 3 each
         begin
         put 3 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 4 each
         begin
         put 4 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 5 each
         begin
         put 5 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 6 each
         begin
         put 6 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 7 each
         begin
         put 7 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 8 each
         begin
         put 8 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 9 each
         begin
         put 9 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 10 each
         begin
         put 10 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 11 each
         begin
         put 11 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 12 each
         begin
         put 12 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 13 each
         begin
         put 13 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 14 each
         begin
         put 14 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 15 each
         begin
         put 15 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 16 each
         begin
         put 16 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 17 each
         begin
         put 17 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 18 each
         begin
         put 18 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 19 each
         begin
         put 19 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 20 each
         begin
         put 20 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 21 each
         begin
         put 21 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 23 each
         begin
         put 23 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 24 each
         begin
         put 24 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 25 each
         begin
         put 25 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 26 each
         begin
         put 26 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 27 each
         begin
         put 27 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 28 each
         begin
         put 28 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 29 each
         begin
         put 29 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 30 each
         begin
         put 30 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 31 each
         begin
         put 31 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 32 each
         begin
         put 32 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 33 each
         begin
         put 33 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 34 each
         begin
         put 34 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 35 each
         begin
         put 35 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 36 each
         begin
         put 36 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 37 each
         begin
         put 37 to Record "DistData" Data
         end

         end
         end
     end
     
end
add 1 to Record "spin" Data index

     put 11 to Record "DistData" Data
         
     IF Record "DistData" Data = 1 each
         begin
         subtract 1 from Record "Matrix7" Data index
         add 1 on Record "Matrix8" Data index

         subtract 1 from Record "Matrix10" Data index
         add 1 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 2 each
         begin
         subtract 2 from Record "Matrix7" Data index
         add 2 on Record "Matrix8" Data index

         subtract 2 from Record "Matrix10" Data index
         add 2 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 3 each
         begin
         subtract 3 from Record "Matrix7" Data index
         add 3 on Record "Matrix8" Data index

         subtract 3 from Record "Matrix10" Data index
         add 3 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 4 each
         begin
         subtract 4 from Record "Matrix7" Data
         add 4 on Record "Matrix8" Data index

         subtract 4 from Record "Matrix10" Data index
         add 4 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 5 each
         begin
         subtract 5 from Record "Matrix7" Data index
         add 5 on Record "Matrix8" Data index

         subtract 5 from Record "Matrix10" Data index
         add 5 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 6 each
         begin
         subtract 6 from Record "Matrix7" Data index
         add 6 on Record "Matrix8" Data index

         subtract 6 from Record "Matrix10" Data index
         add 6 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 7 each
         begin
         subtract 7 from Record "Matrix7" Data index
         add 7 on Record "Matrix8" Data index

         subtract 7 from Record "Matrix10" Data index
         add 7 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 8 each
         begin
         subtract 8 from Record "Matrix7" Data index
         add 8 on Record "Matrix8" Data index

         subtract 8 from Record "Matrix10" Data index
         add 8 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 9 each
         begin
         subtract 9 from Record "Matrix7" Data index
         add 9 on Record "Matrix8" Data index

         subtract 9 from Record "Matrix10" Data index
         add 9 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 10 each
         begin
         subtract 10 from Record "Matrix7" Data index
         add 10 on Record "Matrix8" Data index

         subtract 10 from Record "Matrix10" Data index
         add 10 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 11 each
         begin
         subtract 11 from Record "Matrix7" Data index
         add 11 on Record "Matrix8" Data index

         subtract 11 from Record "Matrix10" Data index
         add 11 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 12 each
         begin
         subtract 12 from Record "Matrix7" Data index
         add 12 on Record "Matrix8" Data index

         subtract 12 from Record "Matrix10" Data index
         add 12 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 13 each
         begin
         subtract 13 from Record "Matrix7" Data index
         add 13 on Record "Matrix8" Data index

         subtract 13 from Record "Matrix10" Data index
         add 13 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 14 each
         begin
         subtract 14 from Record "Matrix7" Data index
         add 14 on Record "Matrix8" Data index

         subtract 14 from Record "Matrix10" Data index
         add 14 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 15 each
         begin
         subtract 15 from Record "Matrix7" Data index
         add 15 on Record "Matrix8" Data index

         subtract 15 from Record "Matrix10" Data index
         add 15 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 16 each
         begin
         subtract 16 from Record "Matrix7" Data index
         add 16 on Record "Matrix8" Data index

         subtract 16 from Record "Matrix10" Data index
         add 16 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 17 each
         begin
         subtract 17 from Record "Matrix7" Data index
         add 17 on Record "Matrix8" Data index

         subtract 17 from Record "Matrix10" Data index
         add 17 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 18 each
         begin
         subtract 18 from Record "Matrix7" Data index
         add 18 on Record "Matrix8" Data index

         subtract 18 from Record "Matrix10" Data index
         add 18 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 19 each
         begin
         subtract 19 from Record "Matrix7" Data index
         add 19 on Record "Matrix8" Data index

         subtract 19 from Record "Matrix10" Data index
         add 19 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 20 each
         begin
         subtract 20 from Record "Matrix7" Data index
         add 20 on Record "Matrix8" Data index

         subtract 20 from Record "Matrix10" Data index
         add 20 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 21 each
         begin
         subtract 21 from Record "Matrix7" Data index
         add 21 on Record "Matrix8" Data index

         subtract 21 from Record "Matrix10" Data index
         add 21 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 22 each
         begin
         subtract 22 from Record "Matrix7" Data index
         add 22 on Record "Matrix8" Data index

         subtract 22 from Record "Matrix10" Data index
         add 22 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 23 each
         begin
         subtract 23 from Record "Matrix7" Data index
         add 23 on Record "Matrix8" Data index

         subtract 23 from Record "Matrix10" Data index
         add 23 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 24 each
         begin
         subtract 24 from Record "Matrix7" Data index
         add 24 on Record "Matrix8" Data index

         subtract 24 from Record "Matrix10" Data index
         add 24 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 25 each
         begin
         subtract 25 from Record "Matrix7" Data index
         add 25 on Record "Matrix8" Data index

         subtract 25 from Record "Matrix10" Data index
         add 25 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 26 each
         begin
         subtract 26 from Record "Matrix7" Data index
         add 26 on Record "Matrix8" Data index

         subtract 26 from Record "Matrix10" Data index
         add 26 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 27 each
         begin
         subtract 27 from Record "Matrix7" Data index
         add 27 on Record "Matrix8" Data index

         subtract 27 from Record "Matrix10" Data index
         add 27 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 28 each
         begin
         subtract 28 from Record "Matrix7" Data index
         add 28 on Record "Matrix8" Data index

         subtract 28 from Record "Matrix10" Data index
         add 28 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 29 each
         begin
         subtract 29 from Record "Matrix7" Data index
         add 29 on Record "Matrix8" Data index

         subtract 29 from Record "Matrix10" Data index
         add 29 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 30 each
         begin
         subtract 30 from Record "Matrix7" Data index
         add 30 on Record "Matrix8" Data index

         subtract 30 from Record "Matrix10" Data index
         add 30 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 31 each
         begin
         subtract 31 from Record "Matrix7" Data index
         add 31 on Record "Matrix8" Data index

         subtract 31 from Record "Matrix10" Data index
         add 31 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 32 each
         begin
         subtract 32 from Record "Matrix7" Data index
         add 32 on Record "Matrix8" Data index

         subtract 32 from Record "Matrix10" Data index
         add 32 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 33 each
         begin
         subtract 33 from Record "Matrix7" Data index
         add 33 on Record "Matrix8" Data index

         subtract 33 from Record "Matrix10" Data index
         add 33 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 34 each
         begin
         subtract 34 from Record "Matrix7" Data index
         add 34 on Record "Matrix8" Data index

         subtract 34 from Record "Matrix10" Data index
         add 34 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 35 each
         begin
         subtract 35 from Record "Matrix7" Data index
         add 35 on Record "Matrix8" Data index

         subtract 35 from Record "Matrix10" Data index
         add 35 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 36 each
         begin
         subtract 36 from Record "Matrix7" Data index
         add 36 on Record "Matrix8" Data index

         subtract 36 from Record "Matrix10" Data index
         add 36 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 37 each
         begin
         subtract 37 from Record "Matrix7" Data index
         add 37 on Record "Matrix8" Data index

         subtract 37 from Record "Matrix10" Data index
         add 37 on Record "Matrix11" Data index
         end


         Set Max to Record "Bet2" Layout Index
         Add 1 to Record "Bet2" Layout Index

         Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index



         if Record "Matrix7" Data index > 37 each
         begin
         subtract 37 from Record "Matrix7" data index
         end

         if Record "Matrix8" Data index > 37 each
         begin
         subtract 37 from Record "Matrix8" data index
         end

         if Record "Matrix10" Data index > 37 each
         begin
         subtract 37 from Record "Matrix10" data index
         end

         if Record "Matrix11" Data index > 37 each
         begin
         subtract 37 from Record "Matrix11" data index
         end



         if Record "Matrix7" Data index < 0 each
         begin
         add 37 to Record "Matrix7" data index
         end

         if Record "Matrix8" Data index < 0 each
         begin
         add 37 to Record "Matrix8" data index
         end

         if Record "Matrix10" Data index < 0 each
         begin
         add 37 to Record "Matrix10" data index
         end

         if Record "Matrix11" Data index < 0 each
         begin
         add 37 to Record "Matrix11" data index
         end


         if Record "Matrix7" Data index = 0 each
         begin
         put 1 to Record "Matrix7" data index
         end

         if Record "Matrix8" Data index = 0 each
         begin
         put 1 to Record "Matrix8" data index
         end

         if Record "Matrix10" Data index = 0 each
         begin
         put 1 to Record "Matrix10" data index
         end

         if Record "Matrix11" Data index = 0 each
         begin
         put 1 to Record "Matrix11" data index
         end


         Set Max to Record "Bet2" Layout Index
         Add 1 to Record "Bet2" Layout Index

         Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

         IF Record "Matrix7" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 2 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 3 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 4 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 6 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 7 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 8 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 9 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 10 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 11 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 12 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 13 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 14 each
         begin
         copy number 36 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 15 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 16 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 17 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 18 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 19 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 20 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 21 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 22 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 23 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 24 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 25 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 26 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 27 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 28 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 29 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 30 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 31 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 32 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 33 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 34 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 35 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 36 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 37 each
         begin
         copy number 26 to Record "Bet" Layout
         end


      if Record "current" layout is found within Record "1" layout each
      begin
        set flag "hit" true
      end
     
      if Record "current" layout is found within Record "2" layout each
      begin
        set flag "hit" true
      end

      if Record "current" layout is found within Record "3" layout each
      begin
        set flag "hit" true
      end
     
      if Record "current" layout is found within Record "4" layout each
      begin
        set flag "hit" true
      end


      if Record "spin2" Data Index = 3 each
      begin
        set flag "hit" false
        Put 1 on Record "spin2" Data Index
      end

      if flag "hit" true each
      begin
      add 1 on Record "spin2" Data Index
      end
     
         Put 3 on Neighbor Count
          Copy Neighbors of Record "Bet" layout
          to Record "Bet2" Layout

      if flag "hit" true each
      begin
         Put 100% of Record "progression" data to Record "Bet2" Layout list
         Put 100% of Record "progression" data to Record "Bet" Layout list
      end
         duplicate Record "Bet2" to Record "1"
         duplicate Record "Bet" to Record "2"

        Set Max to Record "Bet2" Layout Index
         Add 1 to Record "Bet2" Layout Index

         Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index


         IF Record "Matrix8" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 2 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 3 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 4 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 6 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 7 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 8 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 9 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 10 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 11 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 12 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 13 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 14 each
         begin
         copy number 36 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 15 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 16 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 17 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 18 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 19 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 20 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 21 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 22 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 23 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 24 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 25 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 26 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 27 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 28 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 29 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 30 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 31 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 32 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 33 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 34 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 35 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 36 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 37 each
         begin
         copy number 26 to Record "Bet" Layout
         end






         Put 3 on Neighbor Count
          Copy Neighbors of Record "Bet" layout
          to Record "Bet2" Layout

        if flag "hit" true each
      begin
        Put 100% of Record "progression" data to Record "Bet" Layout list
        Put 100% of Record "progression" data to Record "Bet2" Layout list
      end
        duplicate Record "Bet2" to Record "3"
        duplicate Record "Bet" to Record "4"



       
       clear Record "Bet" layout
       clear Record "Bet2" layout
       
     {  Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

         IF Record "Matrix10" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 2 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 3 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 4 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 6 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 7 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 8 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 9 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 10 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 11 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 12 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 13 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 14 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 15 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 16 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 17 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 18 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 19 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 20 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 21 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 22 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 23 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 24 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 25 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 26 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 27 each
         begin
         copy number 26 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 28 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 29 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 30 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 31 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 32 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 33 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 34 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 35 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 36 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 37 each
         begin
         copy number 36 to Record "Bet" Layout
         end

          Put 2 on Neighbor Count
          Copy Neighbors of Record "Bet" layout
          to Record "Bet2" Layout

         Put 100% of Record "progression" data to Record "Bet2" Layout list
         Put 100% of Record "progression" data to Record "Bet" Layout list


          Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

         IF Record "Matrix11" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 2 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 3 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 4 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 6 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 7 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 8 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 9 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 10 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 11 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 12 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 13 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 14 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 15 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 16 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 17 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 18 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 19 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 20 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 21 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 22 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 23 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 24 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 25 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 26 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 27 each
         begin
         copy number 26 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 28 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 29 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 30 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 31 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 32 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 33 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 34 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 35 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 36 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 37 each
         begin
         copy number 36 to Record "Bet" Layout
         end
                            }
        set flag "loop" true

     {     Put 2 on Neighbor Count
          Copy Neighbors of Record "Bet" layout
          to Record "Bet2" Layout

         Put 100% of Record "progression" data to Record "Bet2" Layout list
         Put 100% of Record "progression" data to Record "Bet" Layout list
      }
        // subtract 1 to Record "last" Layout index
        // subtract 1 to Record "DistData" Data index
        //subtract 1 to Record "secondlast" Layout index
       end

end


{
IF Record "LastBetMatrix" Layout index >= 4
begin

//duplicate Record "DistData" to Record "DistDataTEMP"
loop until Record "last" Layout index =  1
begin
//set max to Record "LastBetMatrix2" Layout index
//set max to Record "LastBetMatrix" Layout index
//set max to Record "secondlast" Layout index
//set flag "loop" true
//duplicate Record "DistData" to Record "DistData2"

//loop until Record "LastBetMatrix2" Layout index =  0
//begin

         duplicate Record "Matrix9" to Record "Matrix7"

              if Record "LastBetMatrix" Layout = number 0 each
         begin
         put 1 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 1 each
         begin
         put 21 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 2 each
         begin
         put 7 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 3 each
         begin
         put 36 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 4 each
         begin
         put 5 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 5 each
         begin
         put 20 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 6 each
         begin
         put 11 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 7 each
         begin
         put 32 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 8 each
         begin
         put 17 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 9 each
         begin
         put 28 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 10 each
         begin
         put 19 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 11 each
         begin
         put 15 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 12 each
         begin
         put 34 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 13 each
         begin
         put 13 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 14 each
         begin
         put 26 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 15 each
         begin
         put 3 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 16 each
         begin
         put 22 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 17 each
         begin
         put 9 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 18 each
         begin
         put 30 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 19 each
         begin
         put 4 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 20 each
         begin
         put 25 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 21 each
         begin
         put 6 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 22 each
         begin
         put 29 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 23 each
         begin
         put 18 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 24 each
         begin
         put 21 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 25 each
         begin
         put 8 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 26 each
         begin
         put 37 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 27 each
         begin
         put 12 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 28 each
         begin
         put 33 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 29 each
         begin
         put 31 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 30 each
         begin
         put 16 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 31 each
         begin
         put 27 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 32 each
         begin
         put 2 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 33 each
         begin
         put 23 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 34 each
         begin
         put 10 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 35 each
         begin
         put 35 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 36 each
         begin
         put 14 to Record "Matrix7" Data index
         end

         duplicate Record "Matrix7" to Record "Matrix8"
         duplicate Record "Matrix7" to Record "Matrix"
         duplicate Record "Matrix7" to Record "Matrix2"
         duplicate Record "Matrix7" to Record "Matrix5"
         //duplicate Record "Matrix7" to Record "last"
//==========

         duplicate Record "Matrix9" to Record "Matrix10"



         if Record "secondlast" Layout = number 0 each
         begin
         put 1 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 1 each
         begin
         put 21 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 2 each
         begin
         put 7 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 3 each
         begin
         put 36 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 4 each
         begin
         put 5 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 5 each
         begin
         put 20 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 6 each
         begin
         put 11 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 7 each
         begin
         put 32 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 8 each
         begin
         put 17 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 9 each
         begin
         put 28 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 10 each
         begin
         put 19 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 11 each
         begin
         put 15 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 12 each
         begin
         put 34 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 13 each
         begin
         put 13 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 14 each
         begin
         put 26 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 15 each
         begin
         put 3 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 16 each
         begin
         put 22 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 17 each
         begin
         put 9 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 18 each
         begin
         put 30 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 19 each
         begin
         put 4 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 20 each
         begin
         put 25 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 21 each
         begin
         put 6 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 22 each
         begin
         put 29 to Record "Matrix10" Data index
         end

        if Record "secondlast" Layout = number 23 each
         begin
         put 18 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 24 each
         begin
         put 21 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 25 each
         begin
         put 8 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 26 each
         begin
         put 37 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 27 each
         begin
         put 12 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 28 each
         begin
         put 33 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 29 each
         begin
         put 31 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 30 each
         begin
         put 16 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 31 each
         begin
         put 27 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 32 each
         begin
         put 2 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 33 each
         begin
         put 23 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 34 each
         begin
         put 10 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 35 each
         begin
         put 35 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 36 each
         begin
         put 14 to Record "Matrix10" Data index
         end


         duplicate Record "Matrix10" to Record "Matrix11"
         duplicate Record "Matrix10" to Record "Matrix3"
         duplicate Record "Matrix10" to Record "Matrix4"
         duplicate Record "Matrix10" to Record "Matrix6"


      IF flag "loop" false each
       begin

         //==Dist Calc===
         duplicate Record "last" to Record "temp"
        // duplicate Record "LastBetMatrix" to Record "last"
         duplicate Record "Matrix7" to Record "Matrix"
         duplicate Record "Matrix10" to Record "Matrix3"

          if Record "Matrix" Data index < Record "Matrix3" Data index each
         begin


         if Record "last" Layout = number 0 each
         begin
         subtract 1 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 1 each
         begin
         subtract 21 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 2 each
         begin
         subtract 7 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 3 each
         begin
         subtract 36 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 4 each
         begin
         subtract 5 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 5 each
         begin
         subtract 20 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 6 each
         begin
         subtract 11 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 7 each
         begin
         subtract 32 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 8 each
         begin
         subtract 17 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 9 each
         begin
         subtract 28 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 10 each
         begin
         subtract 19 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 11 each
         begin
         subtract 15 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 12 each
         begin
         subtract 34 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 13 each
         begin
         subtract 13 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 14 each
         begin
         subtract 26 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 15 each
         begin
         subtract 3 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 16 each
         begin
         subtract 22 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 17 each
         begin
         subtract 9 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 18 each
         begin
         subtract 30 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 19 each
         begin
         subtract 4 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 20 each
         begin
         subtract 25 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 21 each
         begin
         subtract 6 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 22 each
         begin
         subtract 29 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 23 each
         begin
         subtract 18 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 24 each
         begin
         subtract 21 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 25 each
         begin
         subtract 8 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 26 each
         begin
         subtract 37 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 27 each
         begin
         subtract 12 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 28 each
         begin
         subtract 33 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 29 each
         begin
         subtract 31 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 30 each
         begin
         subtract 16 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 31 each
         begin
         subtract 27 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 32 each
         begin
         subtract 2 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 33 each
         begin
         subtract 23 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 34 each
         begin
         subtract 10 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 35 each
         begin
         subtract 35 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 36 each
         begin
         subtract 14 from Record "Matrix3" Data index
         end

      //  if flag "loop" false each
      //  begin
         Set Max to Record "DistData" Data Index
         Add 1 to Record "DistData" Data Index
      //  end

         IF Record "Matrix3" Data index = 1 each
         begin
         put 1 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 2 each
         begin
         put 2 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 3 each
         begin
         put 3 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 4 each
         begin
         put 4 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 5 each
         begin
         put 5 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 6 each
         begin
         put 6 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 7 each
         begin
         put 7 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 8 each
         begin
         put 8 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 9 each
         begin
         put 9 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 10 each
         begin
         put 10 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 11 each
         begin
         put 11 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 12 each
         begin
         put 12 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 13 each
         begin
         put 13 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 14 each
         begin
         put 14 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 15 each
         begin
         put 15 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 16 each
         begin
         put 16 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 17 each
         begin
         put 17 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 18 each
         begin
         put 18 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 19 each
         begin
         put 19 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 20 each
         begin
         put 20 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 21 each
         begin
         put 21 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 23 each
         begin
         put 23 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 24 each
         begin
         put 24 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 25 each
         begin
         put 25 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 26 each
         begin
         put 26 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 27 each
         begin
         put 27 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 28 each
         begin
         put 28 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 29 each
         begin
         put 29 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 30 each
         begin
         put 30 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 31 each
         begin
         put 31 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 32 each
         begin
         put 32 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 33 each
         begin
         put 33 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 34 each
         begin
         put 34 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 35 each
         begin
         put 35 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 36 each
         begin
         put 36 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 37 each
         begin
         put 37 to Record "DistData" Data
         end

         end
         else
         begin

      //****


         if Record "Matrix" Data index > Record "Matrix3" Data index each
         begin

         if Record "secondlast" Layout = number 0 each
         begin
         subtract 1 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 1 each
         begin
         subtract 21 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 2 each
         begin
         subtract 7 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 3 each
         begin
         subtract 36 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 4 each
         begin
         subtract 5 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 5 each
         begin
         subtract 20 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 6 each
         begin
         subtract 11 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 7 each
         begin
         subtract 32 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 8 each
         begin
         subtract 17 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 9 each
         begin
         subtract 28 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 10 each
         begin
         subtract 19 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 11 each
         begin
         subtract 15 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 12 each
         begin
         subtract 34 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 13 each
         begin
         subtract 13 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 14 each
         begin
         subtract 26 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 15 each
         begin
         subtract 3 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 16 each
         begin
         subtract 22 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 17 each
         begin
         subtract 9 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 18 each
         begin
         subtract 30 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 19 each
         begin
         subtract 4 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 20 each
         begin
         subtract 25 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 21 each
         begin
         subtract 6 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 22 each
         begin
         subtract 29 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 23 each
         begin
         subtract 18 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 24 each
         begin
         subtract 21 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 25 each
         begin
         subtract 8 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 26 each
         begin
         subtract 37 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 27 each
         begin
         subtract 12 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 28 each
         begin
         subtract 33 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 29 each
         begin
         subtract 31 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 30 each
         begin
         subtract 16 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 31 each
         begin
         subtract 27 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 32 each
         begin
         subtract 23 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 33 each
         begin
         subtract 34 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 34 each
         begin
         subtract 10 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 35 each
         begin
         subtract 35 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 36 each
         begin
         subtract 14 from Record "Matrix" Data index
         end

      //  if flag "loop" false each
      //  begin
         Set Max to Record "DistData" Data Index
         Add 1 to Record "DistData" Data Index
      //  end

         IF Record "Matrix" Data index = 1 each
         begin
         put 1 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 2 each
         begin
         put 2 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 3 each
         begin
         put 3 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 4 each
         begin
         put 4 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 5 each
         begin
         put 5 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 6 each
         begin
         put 6 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 7 each
         begin
         put 7 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 8 each
         begin
         put 8 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 9 each
         begin
         put 9 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 10 each
         begin
         put 10 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 11 each
         begin
         put 11 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 12 each
         begin
         put 12 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 13 each
         begin
         put 13 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 14 each
         begin
         put 14 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 15 each
         begin
         put 15 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 16 each
         begin
         put 16 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 17 each
         begin
         put 17 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 18 each
         begin
         put 18 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 19 each
         begin
         put 19 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 20 each
         begin
         put 20 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 21 each
         begin
         put 21 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 23 each
         begin
         put 23 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 24 each
         begin
         put 24 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 25 each
         begin
         put 25 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 26 each
         begin
         put 26 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 27 each
         begin
         put 27 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 28 each
         begin
         put 28 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 29 each
         begin
         put 29 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 30 each
         begin
         put 30 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 31 each
         begin
         put 31 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 32 each
         begin
         put 32 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 33 each
         begin
         put 33 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 34 each
         begin
         put 34 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 35 each
         begin
         put 35 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 36 each
         begin
         put 36 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 37 each
         begin
         put 37 to Record "DistData" Data
         end

         end
         end
     end

     IF Record "DistData" Data = 1 each
         begin
         subtract 1 from Record "Matrix7" Data index
         add 1 on Record "Matrix8" Data index

         subtract 1 from Record "Matrix10" Data index
         add 1 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 2 each
         begin
         subtract 2 from Record "Matrix7" Data index
         add 2 on Record "Matrix8" Data index

         subtract 2 from Record "Matrix10" Data index
         add 2 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 3 each
         begin
         subtract 3 from Record "Matrix7" Data index
         add 3 on Record "Matrix8" Data index

         subtract 3 from Record "Matrix10" Data index
         add 3 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 4 each
         begin
         subtract 4 from Record "Matrix7" Data
         add 4 on Record "Matrix8" Data index

         subtract 4 from Record "Matrix10" Data index
         add 4 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 5 each
         begin
         subtract 5 from Record "Matrix7" Data index
         add 5 on Record "Matrix8" Data index

         subtract 5 from Record "Matrix10" Data index
         add 5 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 6 each
         begin
         subtract 6 from Record "Matrix7" Data index
         add 6 on Record "Matrix8" Data index

         subtract 6 from Record "Matrix10" Data index
         add 6 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 7 each
         begin
         subtract 7 from Record "Matrix7" Data index
         add 7 on Record "Matrix8" Data index

         subtract 7 from Record "Matrix10" Data index
         add 7 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 8 each
         begin
         subtract 8 from Record "Matrix7" Data index
         add 8 on Record "Matrix8" Data index

         subtract 8 from Record "Matrix10" Data index
         add 8 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 9 each
         begin
         subtract 9 from Record "Matrix7" Data index
         add 9 on Record "Matrix8" Data index

         subtract 9 from Record "Matrix10" Data index
         add 9 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 10 each
         begin
         subtract 10 from Record "Matrix7" Data index
         add 10 on Record "Matrix8" Data index

         subtract 10 from Record "Matrix10" Data index
         add 10 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 11 each
         begin
         subtract 11 from Record "Matrix7" Data index
         add 11 on Record "Matrix8" Data index

         subtract 11 from Record "Matrix10" Data index
         add 11 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 12 each
         begin
         subtract 12 from Record "Matrix7" Data index
         add 12 on Record "Matrix8" Data index

         subtract 12 from Record "Matrix10" Data index
         add 12 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 13 each
         begin
         subtract 13 from Record "Matrix7" Data index
         add 13 on Record "Matrix8" Data index

         subtract 13 from Record "Matrix10" Data index
         add 13 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 14 each
         begin
         subtract 14 from Record "Matrix7" Data index
         add 14 on Record "Matrix8" Data index

         subtract 14 from Record "Matrix10" Data index
         add 14 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 15 each
         begin
         subtract 15 from Record "Matrix7" Data index
         add 15 on Record "Matrix8" Data index

         subtract 15 from Record "Matrix10" Data index
         add 15 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 16 each
         begin
         subtract 16 from Record "Matrix7" Data index
         add 16 on Record "Matrix8" Data index

         subtract 16 from Record "Matrix10" Data index
         add 16 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 17 each
         begin
         subtract 17 from Record "Matrix7" Data index
         add 17 on Record "Matrix8" Data index

         subtract 17 from Record "Matrix10" Data index
         add 17 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 18 each
         begin
         subtract 18 from Record "Matrix7" Data index
         add 18 on Record "Matrix8" Data index

         subtract 18 from Record "Matrix10" Data index
         add 18 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 19 each
         begin
         subtract 19 from Record "Matrix7" Data index
         add 19 on Record "Matrix8" Data index

         subtract 19 from Record "Matrix10" Data index
         add 19 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 20 each
         begin
         subtract 20 from Record "Matrix7" Data index
         add 20 on Record "Matrix8" Data index

         subtract 20 from Record "Matrix10" Data index
         add 20 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 21 each
         begin
         subtract 21 from Record "Matrix7" Data index
         add 21 on Record "Matrix8" Data index

         subtract 21 from Record "Matrix10" Data index
         add 21 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 22 each
         begin
         subtract 22 from Record "Matrix7" Data index
         add 22 on Record "Matrix8" Data index

         subtract 22 from Record "Matrix10" Data index
         add 22 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 23 each
         begin
         subtract 23 from Record "Matrix7" Data index
         add 23 on Record "Matrix8" Data index

         subtract 23 from Record "Matrix10" Data index
         add 23 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 24 each
         begin
         subtract 24 from Record "Matrix7" Data index
         add 24 on Record "Matrix8" Data index

         subtract 24 from Record "Matrix10" Data index
         add 24 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 25 each
         begin
         subtract 25 from Record "Matrix7" Data index
         add 25 on Record "Matrix8" Data index

         subtract 25 from Record "Matrix10" Data index
         add 25 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 26 each
         begin
         subtract 26 from Record "Matrix7" Data index
         add 26 on Record "Matrix8" Data index

         subtract 26 from Record "Matrix10" Data index
         add 26 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 27 each
         begin
         subtract 27 from Record "Matrix7" Data index
         add 27 on Record "Matrix8" Data index

         subtract 27 from Record "Matrix10" Data index
         add 27 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 28 each
         begin
         subtract 28 from Record "Matrix7" Data index
         add 28 on Record "Matrix8" Data index

         subtract 28 from Record "Matrix10" Data index
         add 28 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 29 each
         begin
         subtract 29 from Record "Matrix7" Data index
         add 29 on Record "Matrix8" Data index

         subtract 29 from Record "Matrix10" Data index
         add 29 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 30 each
         begin
         subtract 30 from Record "Matrix7" Data index
         add 30 on Record "Matrix8" Data index

         subtract 30 from Record "Matrix10" Data index
         add 30 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 31 each
         begin
         subtract 31 from Record "Matrix7" Data index
         add 31 on Record "Matrix8" Data index

         subtract 31 from Record "Matrix10" Data index
         add 31 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 32 each
         begin
         subtract 32 from Record "Matrix7" Data index
         add 32 on Record "Matrix8" Data index

         subtract 32 from Record "Matrix10" Data index
         add 32 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 33 each
         begin
         subtract 33 from Record "Matrix7" Data index
         add 33 on Record "Matrix8" Data index

         subtract 33 from Record "Matrix10" Data index
         add 33 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 34 each
         begin
         subtract 34 from Record "Matrix7" Data index
         add 34 on Record "Matrix8" Data index

         subtract 34 from Record "Matrix10" Data index
         add 34 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 35 each
         begin
         subtract 35 from Record "Matrix7" Data index
         add 35 on Record "Matrix8" Data index

         subtract 35 from Record "Matrix10" Data index
         add 35 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 36 each
         begin
         subtract 36 from Record "Matrix7" Data index
         add 36 on Record "Matrix8" Data index

         subtract 36 from Record "Matrix10" Data index
         add 36 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 37 each
         begin
         subtract 37 from Record "Matrix7" Data index
         add 37 on Record "Matrix8" Data index

         subtract 37 from Record "Matrix10" Data index
         add 37 on Record "Matrix11" Data index
         end


         Set Max to Record "Bet2" Layout Index
         Add 1 to Record "Bet2" Layout Index

         Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index



         if Record "Matrix7" Data index > 37 each
         begin
         subtract 37 from Record "Matrix7" data index
         end

         if Record "Matrix8" Data index > 37 each
         begin
         subtract 37 from Record "Matrix8" data index
         end

         if Record "Matrix10" Data index > 37 each
         begin
         subtract 37 from Record "Matrix10" data index
         end

         if Record "Matrix11" Data index > 37 each
         begin
         subtract 37 from Record "Matrix11" data index
         end



         if Record "Matrix7" Data index < 0 each
         begin
         add 37 to Record "Matrix7" data index
         end

         if Record "Matrix8" Data index < 0 each
         begin
         add 37 to Record "Matrix8" data index
         end

         if Record "Matrix10" Data index < 0 each
         begin
         add 37 to Record "Matrix10" data index
         end

         if Record "Matrix11" Data index < 0 each
         begin
         add 37 to Record "Matrix11" data index
         end


         if Record "Matrix7" Data index = 0 each
         begin
         put 1 to Record "Matrix7" data index
         end

         if Record "Matrix8" Data index = 0 each
         begin
         put 1 to Record "Matrix8" data index
         end

         if Record "Matrix10" Data index = 0 each
         begin
         put 1 to Record "Matrix10" data index
         end

         if Record "Matrix11" Data index = 0 each
         begin
         put 1 to Record "Matrix11" data index
         end

       {
         Set Max to Record "Bet2" Layout Index
         Add 1 to Record "Bet2" Layout Index

         Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

         IF Record "Matrix7" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 2 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 3 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 4 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 6 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 7 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 8 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 9 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 10 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 11 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 12 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 13 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 14 each
         begin
         copy number 36 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 15 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 16 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 17 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 18 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 19 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 20 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 21 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 22 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 23 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 24 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 25 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 26 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 27 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 28 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 29 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 30 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 31 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 32 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 33 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 34 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 35 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 36 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 37 each
         begin
         copy number 26 to Record "Bet" Layout
         end


         {Put 1 on Neighbor Count
          Copy Neighbors of Record "Bet" layout
          to Record "Bet2" Layout

         Put 100% of Record "progression" data to Record "Bet2" Layout list
         Put 100% of Record "progression" data to Record "Bet" Layout list


        Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

        { Set Max to Record "Bet2" Layout Index
         Add 1 to Record "Bet2" Layout Index


         IF Record "Matrix8" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 2 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 3 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 4 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 6 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 7 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 8 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 9 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 10 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 11 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 12 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 13 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 14 each
         begin
         copy number 36 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 15 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 16 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 17 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 18 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 19 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 20 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 21 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 22 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 23 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 24 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 25 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 26 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 27 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 28 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 29 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 30 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 31 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 32 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 33 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 34 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 35 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 36 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 37 each
         begin
         copy number 26 to Record "Bet" Layout
         end






      {  Put 1 on Neighbor Count
          Copy Neighbors of Record "Bet" layout
          to Record "Bet2" Layout
         Put 100% of Record "progression" data to Record "Bet" Layout list
         Put 100% of Record "progression" data to Record "Bet" Layout list  }

      {   Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

         IF Record "Matrix10" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 2 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 3 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 4 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 6 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 7 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 8 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 9 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 10 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 11 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 12 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 13 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 14 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 15 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 16 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 17 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 18 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 19 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 20 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 21 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 22 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 23 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 24 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 25 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 26 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 27 each
         begin
         copy number 26 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 28 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 29 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 30 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 31 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 32 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 33 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 34 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 35 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 36 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 37 each
         begin
         copy number 36 to Record "Bet" Layout
         end


         Put 100% of Record "progression" data to Record "Bet" Layout list


          Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

         IF Record "Matrix11" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 2 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 3 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 4 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 6 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 7 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 8 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 9 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 10 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 11 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 12 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 13 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 14 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 15 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 16 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 17 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 18 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 19 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 20 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 21 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 22 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 23 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 24 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 25 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 26 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 27 each
         begin
         copy number 26 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 28 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 29 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 30 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 31 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 32 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 33 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 34 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 35 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 36 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 37 each
         begin
         copy number 36 to Record "Bet" Layout
         end
                                                    ]
         set flag "loop" true

         Put 100% of Record "progression" data to Record "Bet" Layout list

         subtract 1 to Record "last" Layout index
        subtract 1 to Record "DistData" Data index
        //subtract 1 to Record "secondlast" Layout index
       end

end                                                  }


{
set max to Record "DistData" Data index
set max to Record "last" Layout index
set max to Record "secondlast" Layout index
set max to Record "LastBetMatrix" Layout index
set max to Record "LastBetMatrix2" Layout index
}
{ if total spin count >= 300 each
  begin
  stop session
  end
  }
 
  if total bankroll <= -1000 each
  begin
   { add 1 to record "lost sessions" data index
    put 0 on total bankroll
    put 1 on Record "progression" Data Index
    }
  stop session
  end

  if total bankroll >= 1000 each
  begin
   { add 1 to record "won sessions" data index
    put 0 on total bankroll
    put 1 on Record "progression" Data Index
    }
  stop session
  end





If Record "progression" Data Index >
  Record "progression" Data Count  each
    Begin
      Put 1 on Record "progression" Data Index
      clear Record "DistData" Layout
   clear Record "Bet" Layout
   clear Record "secondlast" Layout
   clear Record "last" Layout
   clear Record "Matrix" Layout
   clear Record "Matrix1" Layout
   clear Record "Matrix2" Layout
   clear Record "Matrix3" Layout
   clear Record "Matrix4" Layout
   clear Record "Matrix5" Layout
   clear Record "Matrix6" Layout
   clear Record "Matrix7" Layout
   clear Record "Matrix8" Layout
   clear Record "Matrix9" Layout
   clear Record "Matrix10" Layout
   clear Record "Matrix11" Layout
   clear Record "Matrix12" Layout
   clear Record "Matrix13" Layout
   clear Record "LastBetMatrix" Layout
    End
   
    Set Max to Record "secondlast" Layout Index
Add 1 to Record "secondlast" Layout Index
copy last Number to Record "secondlast" Layout

  { clear Record "Matrix" Layout
   clear Record "Matrix1" Layout
   clear Record "Matrix2" Layout
   clear Record "Matrix3" Layout
   clear Record "Matrix4" Layout
   clear Record "Matrix5" Layout
   clear Record "Matrix6" Layout
   clear Record "Matrix7" Layout
   clear Record "Matrix8" Layout      }
// clear Record "last" Layout
   set flag "loop" false
  //
  //  clear Record "temp" layout

END

[Macro]

Seems like a good result to me.
1st test had a decent profit.
Will do more test on any live results.

[ignatus]

Seems like a good result to me.
1st test had a decent profit.
Will do more test on any live results.

Alright 

I tested now another trigger (seems to be good i got 80% winrate first test) 

TRIGGER; -wait for 3 virtual losses then start BET for the next (6) spins then STOP (and wait for a new trigger/3 losses)...

Version 3

Code Select Expand

system "Dealers Signature v.3"
// © ignatus 2019 ©

method "main"
begin
  while starting a new session
  begin
       Set List[1,1,2,3,5,8,13,21,32,55,89,144,233,377,610,987]
              to Record "progression" Data

       Set List[1,2,3,4,5,6,7,8] to Record "spin" Data
       
       Set List[1,2,3,4,5,6,7,8,9,10,11,12] to Record "spin2" Data

       Set List [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
                 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73]
         to Record "Matrix" Data
         
       Set List [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
                 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73]
         to Record "Matrix2" Data
         
       Set List [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
                 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73]
         to Record "Matrix3" Data
         
         Set List [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
                 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73]
         to Record "Matrix4" Data
         
         Set List [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
                 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73]
         to Record "Matrix9" Data
         

         copy List[number 0,number 32,number 15,number 19,number 4,number 21,number 2,
                 number 25,number 17,number 34,number 6,number 27,number 13,number 36,
                 number 11,number 30,number 8,number 23,number 10,number 5,number 24,
                 number 16,number 33,number 1,number 20,number 14,number 31,number 9,
                 number 22,number 18,number 29,number 7,number 28,number 12,number 35,
                 number 3,number 26]
        to Record "Wheel" Layout

       { Set List [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
                 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73]
         to Record "DistData" Data
        }

  end
   put 0 to Record "Highest Bankroll" Data

  while on each spin
  begin
   Track last Number for 4 spins to Record "track" layout
   
   Track last Number for 1 spins to Record "current" layout
   
   IF Record "track" layout index >= 5 each
   begin
   clear Record "track" layout
   set flag "loop" false
   end
 
      IF any inside bet lost each
  begin
  add 1 on Record "progression" Data Index
  clear Record "Bet" Layout
   clear Record "Bet2" Layout
   clear Record "Bet3" Layout
   clear Record "Bet4" Layout

// Put 100% of Record "progression" data to Record "Bet" Layout list
// Put 100% of Record "progression" data to Record "Bet2" Layout list

// Put 100% of Record "progression" data to Record "Bet3" Layout list
// Put 100% of Record "progression" data to Record "Bet4" Layout list

  end
 
//   Put 100% of Record "progression" data to Record "Bet" Layout list
// Put 100% of Record "progression" data to Record "Bet2" Layout list

   If any inside bet won each
  begin
  set flag "hit" false
  // set flag "loop" false
   clear Record "DistData" Layout
   clear Record "Bet" Layout
   clear Record "Bet2" Layout
   clear Record "Bet3" Layout
   clear Record "Bet4" Layout
   clear Record "secondlast" Layout
   clear Record "last" Layout
   clear Record "secondlast" Layout
   clear Record "Matrix" Layout
   clear Record "Matrix1" Layout
   clear Record "Matrix2" Layout
   clear Record "Matrix3" Layout
   clear Record "Matrix4" Layout
   clear Record "Matrix5" Layout
   clear Record "Matrix6" Layout
   clear Record "Matrix7" Layout
   clear Record "Matrix8" Layout
   clear Record "Matrix9" Layout
   clear Record "Matrix10" Layout
   clear Record "Matrix11" Layout
   clear Record "Matrix12" Layout
   clear Record "Matrix13" Layout
   clear Record "LastBetMatrix" Layout
   clear Record "LastBetMatrix2" Layout

  Put 1 on Record "spin" Data Index
  Put 1 on Record "spin2" Data Index
  put 1 on Record "progression" Data Index

     if Bankroll >= Record "Highest Bankroll" Data
     begin
        clear Record "Highest Bankroll" Data
        put 100% Bankroll to Record "Highest Bankroll" Data
        put 1 on Record "progression" Data Index
     end

  end

  if Record "spin" Data Index = 6 each
  begin
    Put 1 on Record "spin" Data Index
  end

Set Max to Record "last" Layout Index
Add 1 to Record "last" Layout Index
copy last Number to Record "last" Layout

         Set Max to Record "LastBetMatrix" Layout Index
         Add 1 to Record "LastBetMatrix" Layout Index
         copy last Number to Record "LastBetMatrix" Layout
         
         Set Max to Record "LastBetMatrix2" Layout Index
         Add 1 to Record "LastBetMatrix2" Layout Index
         copy last Number to Record "LastBetMatrix2" Layout


Set Max to Record "current" Layout Index
Add 1 to Record "current" Layout Index
copy last number to Record "current" Layout

//===============================================================
IF Record "LastBetMatrix" Layout index >= 2
begin

//duplicate Record "DistData" to Record "DistDataTEMP"
//loop until Record "last" Layout index =  1
//begin
//set max to Record "LastBetMatrix2" Layout index
//set max to Record "LastBetMatrix" Layout index
//set max to Record "secondlast" Layout index
//set flag "loop" true
//duplicate Record "DistData" to Record "DistData2"

//loop until Record "LastBetMatrix2" Layout index =  0
//begin

         duplicate Record "Matrix9" to Record "Matrix7"

              if Record "LastBetMatrix" Layout = number 0 each
         begin
         put 1 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 1 each
         begin
         put 21 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 2 each
         begin
         put 7 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 3 each
         begin
         put 36 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 4 each
         begin
         put 5 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 5 each
         begin
         put 20 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 6 each
         begin
         put 11 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 7 each
         begin
         put 32 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 8 each
         begin
         put 17 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 9 each
         begin
         put 28 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 10 each
         begin
         put 19 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 11 each
         begin
         put 15 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 12 each
         begin
         put 34 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 13 each
         begin
         put 13 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 14 each
         begin
         put 26 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 15 each
         begin
         put 3 to Record "Matrix7" Data index
         end
         
         if Record "LastBetMatrix" Layout = number 16 each
         begin
         put 22 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 17 each
         begin
         put 9 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 18 each
         begin
         put 30 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 19 each
         begin
         put 4 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 20 each
         begin
         put 25 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 21 each
         begin
         put 6 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 22 each
         begin
         put 29 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 23 each
         begin
         put 18 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 24 each
         begin
         put 21 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 25 each
         begin
         put 8 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 26 each
         begin
         put 37 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 27 each
         begin
         put 12 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 28 each
         begin
         put 33 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 29 each
         begin
         put 31 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 30 each
         begin
         put 16 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 31 each
         begin
         put 27 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 32 each
         begin
         put 2 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 33 each
         begin
         put 23 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 34 each
         begin
         put 10 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 35 each
         begin
         put 35 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 36 each
         begin
         put 14 to Record "Matrix7" Data index
         end

         duplicate Record "Matrix7" to Record "Matrix8"
         duplicate Record "Matrix7" to Record "Matrix"
         duplicate Record "Matrix7" to Record "Matrix2"
         duplicate Record "Matrix7" to Record "Matrix5"
         //duplicate Record "Matrix7" to Record "last"
//==========

         duplicate Record "Matrix9" to Record "Matrix10"



         if Record "secondlast" Layout = number 0 each
         begin
         put 1 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 1 each
         begin
         put 21 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 2 each
         begin
         put 7 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 3 each
         begin
         put 36 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 4 each
         begin
         put 5 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 5 each
         begin
         put 20 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 6 each
         begin
         put 11 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 7 each
         begin
         put 32 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 8 each
         begin
         put 17 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 9 each
         begin
         put 28 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 10 each
         begin
         put 19 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 11 each
         begin
         put 15 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 12 each
         begin
         put 34 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 13 each
         begin
         put 13 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 14 each
         begin
         put 26 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 15 each
         begin
         put 3 to Record "Matrix10" Data index
         end
         
         if Record "secondlast" Layout = number 16 each
         begin
         put 22 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 17 each
         begin
         put 9 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 18 each
         begin
         put 30 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 19 each
         begin
         put 4 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 20 each
         begin
         put 25 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 21 each
         begin
         put 6 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 22 each
         begin
         put 29 to Record "Matrix10" Data index
         end

        if Record "secondlast" Layout = number 23 each
         begin
         put 18 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 24 each
         begin
         put 21 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 25 each
         begin
         put 8 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 26 each
         begin
         put 37 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 27 each
         begin
         put 12 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 28 each
         begin
         put 33 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 29 each
         begin
         put 31 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 30 each
         begin
         put 16 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 31 each
         begin
         put 27 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 32 each
         begin
         put 2 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 33 each
         begin
         put 23 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 34 each
         begin
         put 10 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 35 each
         begin
         put 35 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 36 each
         begin
         put 14 to Record "Matrix10" Data index
         end


         duplicate Record "Matrix10" to Record "Matrix11"
         duplicate Record "Matrix10" to Record "Matrix3"
         duplicate Record "Matrix10" to Record "Matrix4"
         duplicate Record "Matrix10" to Record "Matrix6"


      IF flag "loop" false each
       begin

         //==Dist Calc===

//if Record "spin" Data index = 1 each
//begin

         duplicate Record "last" to Record "temp"
        // duplicate Record "LastBetMatrix" to Record "last"
         duplicate Record "Matrix7" to Record "Matrix"
         duplicate Record "Matrix10" to Record "Matrix3"

          if Record "Matrix" Data index < Record "Matrix3" Data index each
         begin


         if Record "last" Layout = number 0 each
         begin
         subtract 1 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 1 each
         begin
         subtract 21 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 2 each
         begin
         subtract 7 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 3 each
         begin
         subtract 36 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 4 each
         begin
         subtract 5 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 5 each
         begin
         subtract 20 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 6 each
         begin
         subtract 11 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 7 each
         begin
         subtract 32 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 8 each
         begin
         subtract 17 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 9 each
         begin
         subtract 28 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 10 each
         begin
         subtract 19 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 11 each
         begin
         subtract 15 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 12 each
         begin
         subtract 34 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 13 each
         begin
         subtract 13 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 14 each
         begin
         subtract 26 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 15 each
         begin
         subtract 3 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 16 each
         begin
         subtract 22 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 17 each
         begin
         subtract 9 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 18 each
         begin
         subtract 30 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 19 each
         begin
         subtract 4 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 20 each
         begin
         subtract 25 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 21 each
         begin
         subtract 6 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 22 each
         begin
         subtract 29 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 23 each
         begin
         subtract 18 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 24 each
         begin
         subtract 21 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 25 each
         begin
         subtract 8 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 26 each
         begin
         subtract 37 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 27 each
         begin
         subtract 12 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 28 each
         begin
         subtract 33 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 29 each
         begin
         subtract 31 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 30 each
         begin
         subtract 16 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 31 each
         begin
         subtract 27 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 32 each
         begin
         subtract 2 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 33 each
         begin
         subtract 23 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 34 each
         begin
         subtract 10 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 35 each
         begin
         subtract 35 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 36 each
         begin
         subtract 14 from Record "Matrix3" Data index
         end

      //  if flag "loop" false each
      //  begin
         Set Max to Record "DistData" Data Index
         Add 1 to Record "DistData" Data Index
      //  end

         IF Record "Matrix3" Data index = 1 each
         begin
         put 1 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 2 each
         begin
         put 2 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 3 each
         begin
         put 3 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 4 each
         begin
         put 4 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 5 each
         begin
         put 5 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 6 each
         begin
         put 6 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 7 each
         begin
         put 7 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 8 each
         begin
         put 8 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 9 each
         begin
         put 9 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 10 each
         begin
         put 10 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 11 each
         begin
         put 11 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 12 each
         begin
         put 12 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 13 each
         begin
         put 13 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 14 each
         begin
         put 14 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 15 each
         begin
         put 15 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 16 each
         begin
         put 16 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 17 each
         begin
         put 17 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 18 each
         begin
         put 18 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 19 each
         begin
         put 19 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 20 each
         begin
         put 20 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 21 each
         begin
         put 21 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 23 each
         begin
         put 23 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 24 each
         begin
         put 24 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 25 each
         begin
         put 25 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 26 each
         begin
         put 26 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 27 each
         begin
         put 27 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 28 each
         begin
         put 28 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 29 each
         begin
         put 29 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 30 each
         begin
         put 30 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 31 each
         begin
         put 31 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 32 each
         begin
         put 32 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 33 each
         begin
         put 33 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 34 each
         begin
         put 34 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 35 each
         begin
         put 35 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 36 each
         begin
         put 36 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 37 each
         begin
         put 37 to Record "DistData" Data
         end

         end
         else
         begin

      //****


         if Record "Matrix" Data index > Record "Matrix3" Data index each
         begin

         if Record "secondlast" Layout = number 0 each
         begin
         subtract 1 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 1 each
         begin
         subtract 21 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 2 each
         begin
         subtract 7 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 3 each
         begin
         subtract 36 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 4 each
         begin
         subtract 5 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 5 each
         begin
         subtract 20 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 6 each
         begin
         subtract 11 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 7 each
         begin
         subtract 32 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 8 each
         begin
         subtract 17 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 9 each
         begin
         subtract 28 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 10 each
         begin
         subtract 19 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 11 each
         begin
         subtract 15 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 12 each
         begin
         subtract 34 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 13 each
         begin
         subtract 13 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 14 each
         begin
         subtract 26 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 15 each
         begin
         subtract 3 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 16 each
         begin
         subtract 22 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 17 each
         begin
         subtract 9 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 18 each
         begin
         subtract 30 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 19 each
         begin
         subtract 4 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 20 each
         begin
         subtract 25 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 21 each
         begin
         subtract 6 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 22 each
         begin
         subtract 29 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 23 each
         begin
         subtract 18 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 24 each
         begin
         subtract 21 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 25 each
         begin
         subtract 8 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 26 each
         begin
         subtract 37 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 27 each
         begin
         subtract 12 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 28 each
         begin
         subtract 33 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 29 each
         begin
         subtract 31 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 30 each
         begin
         subtract 16 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 31 each
         begin
         subtract 27 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 32 each
         begin
         subtract 23 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 33 each
         begin
         subtract 34 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 34 each
         begin
         subtract 10 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 35 each
         begin
         subtract 35 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 36 each
         begin
         subtract 14 from Record "Matrix" Data index
         end

      //  if flag "loop" false each
      //  begin
         Set Max to Record "DistData" Data Index
         Add 1 to Record "DistData" Data Index
      //  end

         IF Record "Matrix" Data index = 1 each
         begin
         put 1 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 2 each
         begin
         put 2 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 3 each
         begin
         put 3 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 4 each
         begin
         put 4 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 5 each
         begin
         put 5 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 6 each
         begin
         put 6 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 7 each
         begin
         put 7 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 8 each
         begin
         put 8 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 9 each
         begin
         put 9 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 10 each
         begin
         put 10 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 11 each
         begin
         put 11 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 12 each
         begin
         put 12 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 13 each
         begin
         put 13 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 14 each
         begin
         put 14 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 15 each
         begin
         put 15 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 16 each
         begin
         put 16 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 17 each
         begin
         put 17 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 18 each
         begin
         put 18 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 19 each
         begin
         put 19 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 20 each
         begin
         put 20 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 21 each
         begin
         put 21 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 23 each
         begin
         put 23 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 24 each
         begin
         put 24 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 25 each
         begin
         put 25 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 26 each
         begin
         put 26 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 27 each
         begin
         put 27 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 28 each
         begin
         put 28 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 29 each
         begin
         put 29 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 30 each
         begin
         put 30 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 31 each
         begin
         put 31 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 32 each
         begin
         put 32 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 33 each
         begin
         put 33 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 34 each
         begin
         put 34 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 35 each
         begin
         put 35 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 36 each
         begin
         put 36 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 37 each
         begin
         put 37 to Record "DistData" Data
         end

         end
         end
     end
     
//end


     put 11 to Record "DistData" Data
         
     IF Record "DistData" Data = 1 each
         begin
         subtract 1 from Record "Matrix7" Data index
         add 1 on Record "Matrix8" Data index

         subtract 1 from Record "Matrix10" Data index
         add 1 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 2 each
         begin
         subtract 2 from Record "Matrix7" Data index
         add 2 on Record "Matrix8" Data index

         subtract 2 from Record "Matrix10" Data index
         add 2 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 3 each
         begin
         subtract 3 from Record "Matrix7" Data index
         add 3 on Record "Matrix8" Data index

         subtract 3 from Record "Matrix10" Data index
         add 3 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 4 each
         begin
         subtract 4 from Record "Matrix7" Data
         add 4 on Record "Matrix8" Data index

         subtract 4 from Record "Matrix10" Data index
         add 4 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 5 each
         begin
         subtract 5 from Record "Matrix7" Data index
         add 5 on Record "Matrix8" Data index

         subtract 5 from Record "Matrix10" Data index
         add 5 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 6 each
         begin
         subtract 6 from Record "Matrix7" Data index
         add 6 on Record "Matrix8" Data index

         subtract 6 from Record "Matrix10" Data index
         add 6 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 7 each
         begin
         subtract 7 from Record "Matrix7" Data index
         add 7 on Record "Matrix8" Data index

         subtract 7 from Record "Matrix10" Data index
         add 7 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 8 each
         begin
         subtract 8 from Record "Matrix7" Data index
         add 8 on Record "Matrix8" Data index

         subtract 8 from Record "Matrix10" Data index
         add 8 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 9 each
         begin
         subtract 9 from Record "Matrix7" Data index
         add 9 on Record "Matrix8" Data index

         subtract 9 from Record "Matrix10" Data index
         add 9 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 10 each
         begin
         subtract 10 from Record "Matrix7" Data index
         add 10 on Record "Matrix8" Data index

         subtract 10 from Record "Matrix10" Data index
         add 10 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 11 each
         begin
         subtract 11 from Record "Matrix7" Data index
         add 11 on Record "Matrix8" Data index

         subtract 11 from Record "Matrix10" Data index
         add 11 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 12 each
         begin
         subtract 12 from Record "Matrix7" Data index
         add 12 on Record "Matrix8" Data index

         subtract 12 from Record "Matrix10" Data index
         add 12 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 13 each
         begin
         subtract 13 from Record "Matrix7" Data index
         add 13 on Record "Matrix8" Data index

         subtract 13 from Record "Matrix10" Data index
         add 13 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 14 each
         begin
         subtract 14 from Record "Matrix7" Data index
         add 14 on Record "Matrix8" Data index

         subtract 14 from Record "Matrix10" Data index
         add 14 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 15 each
         begin
         subtract 15 from Record "Matrix7" Data index
         add 15 on Record "Matrix8" Data index

         subtract 15 from Record "Matrix10" Data index
         add 15 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 16 each
         begin
         subtract 16 from Record "Matrix7" Data index
         add 16 on Record "Matrix8" Data index

         subtract 16 from Record "Matrix10" Data index
         add 16 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 17 each
         begin
         subtract 17 from Record "Matrix7" Data index
         add 17 on Record "Matrix8" Data index

         subtract 17 from Record "Matrix10" Data index
         add 17 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 18 each
         begin
         subtract 18 from Record "Matrix7" Data index
         add 18 on Record "Matrix8" Data index

         subtract 18 from Record "Matrix10" Data index
         add 18 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 19 each
         begin
         subtract 19 from Record "Matrix7" Data index
         add 19 on Record "Matrix8" Data index

         subtract 19 from Record "Matrix10" Data index
         add 19 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 20 each
         begin
         subtract 20 from Record "Matrix7" Data index
         add 20 on Record "Matrix8" Data index

         subtract 20 from Record "Matrix10" Data index
         add 20 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 21 each
         begin
         subtract 21 from Record "Matrix7" Data index
         add 21 on Record "Matrix8" Data index

         subtract 21 from Record "Matrix10" Data index
         add 21 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 22 each
         begin
         subtract 22 from Record "Matrix7" Data index
         add 22 on Record "Matrix8" Data index

         subtract 22 from Record "Matrix10" Data index
         add 22 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 23 each
         begin
         subtract 23 from Record "Matrix7" Data index
         add 23 on Record "Matrix8" Data index

         subtract 23 from Record "Matrix10" Data index
         add 23 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 24 each
         begin
         subtract 24 from Record "Matrix7" Data index
         add 24 on Record "Matrix8" Data index

         subtract 24 from Record "Matrix10" Data index
         add 24 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 25 each
         begin
         subtract 25 from Record "Matrix7" Data index
         add 25 on Record "Matrix8" Data index

         subtract 25 from Record "Matrix10" Data index
         add 25 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 26 each
         begin
         subtract 26 from Record "Matrix7" Data index
         add 26 on Record "Matrix8" Data index

         subtract 26 from Record "Matrix10" Data index
         add 26 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 27 each
         begin
         subtract 27 from Record "Matrix7" Data index
         add 27 on Record "Matrix8" Data index

         subtract 27 from Record "Matrix10" Data index
         add 27 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 28 each
         begin
         subtract 28 from Record "Matrix7" Data index
         add 28 on Record "Matrix8" Data index

         subtract 28 from Record "Matrix10" Data index
         add 28 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 29 each
         begin
         subtract 29 from Record "Matrix7" Data index
         add 29 on Record "Matrix8" Data index

         subtract 29 from Record "Matrix10" Data index
         add 29 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 30 each
         begin
         subtract 30 from Record "Matrix7" Data index
         add 30 on Record "Matrix8" Data index

         subtract 30 from Record "Matrix10" Data index
         add 30 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 31 each
         begin
         subtract 31 from Record "Matrix7" Data index
         add 31 on Record "Matrix8" Data index

         subtract 31 from Record "Matrix10" Data index
         add 31 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 32 each
         begin
         subtract 32 from Record "Matrix7" Data index
         add 32 on Record "Matrix8" Data index

         subtract 32 from Record "Matrix10" Data index
         add 32 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 33 each
         begin
         subtract 33 from Record "Matrix7" Data index
         add 33 on Record "Matrix8" Data index

         subtract 33 from Record "Matrix10" Data index
         add 33 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 34 each
         begin
         subtract 34 from Record "Matrix7" Data index
         add 34 on Record "Matrix8" Data index

         subtract 34 from Record "Matrix10" Data index
         add 34 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 35 each
         begin
         subtract 35 from Record "Matrix7" Data index
         add 35 on Record "Matrix8" Data index

         subtract 35 from Record "Matrix10" Data index
         add 35 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 36 each
         begin
         subtract 36 from Record "Matrix7" Data index
         add 36 on Record "Matrix8" Data index

         subtract 36 from Record "Matrix10" Data index
         add 36 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 37 each
         begin
         subtract 37 from Record "Matrix7" Data index
         add 37 on Record "Matrix8" Data index

         subtract 37 from Record "Matrix10" Data index
         add 37 on Record "Matrix11" Data index
         end


         Set Max to Record "Bet2" Layout Index
         Add 1 to Record "Bet2" Layout Index

         Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index



         if Record "Matrix7" Data index > 37 each
         begin
         subtract 37 from Record "Matrix7" data index
         end

         if Record "Matrix8" Data index > 37 each
         begin
         subtract 37 from Record "Matrix8" data index
         end

         if Record "Matrix10" Data index > 37 each
         begin
         subtract 37 from Record "Matrix10" data index
         end

         if Record "Matrix11" Data index > 37 each
         begin
         subtract 37 from Record "Matrix11" data index
         end



         if Record "Matrix7" Data index < 0 each
         begin
         add 37 to Record "Matrix7" data index
         end

         if Record "Matrix8" Data index < 0 each
         begin
         add 37 to Record "Matrix8" data index
         end

         if Record "Matrix10" Data index < 0 each
         begin
         add 37 to Record "Matrix10" data index
         end

         if Record "Matrix11" Data index < 0 each
         begin
         add 37 to Record "Matrix11" data index
         end


         if Record "Matrix7" Data index = 0 each
         begin
         put 1 to Record "Matrix7" data index
         end

         if Record "Matrix8" Data index = 0 each
         begin
         put 1 to Record "Matrix8" data index
         end

         if Record "Matrix10" Data index = 0 each
         begin
         put 1 to Record "Matrix10" data index
         end

         if Record "Matrix11" Data index = 0 each
         begin
         put 1 to Record "Matrix11" data index
         end


         Set Max to Record "Bet2" Layout Index
         Add 1 to Record "Bet2" Layout Index

         Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

         IF Record "Matrix7" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 2 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 3 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 4 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 6 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 7 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 8 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 9 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 10 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 11 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 12 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 13 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 14 each
         begin
         copy number 36 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 15 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 16 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 17 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 18 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 19 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 20 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 21 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 22 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 23 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 24 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 25 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 26 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 27 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 28 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 29 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 30 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 31 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 32 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 33 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 34 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 35 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 36 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 37 each
         begin
         copy number 26 to Record "Bet" Layout
         end


      if Record "current" layout is found within Record "1" layout each
      begin
        set flag "hit" true
      end
     
      if Record "current" layout is found within Record "2" layout each
      begin
        set flag "hit" true
      end

      if Record "current" layout is found within Record "3" layout each
      begin
        set flag "hit" true
      end
     
      if Record "current" layout is found within Record "4" layout each
      begin
        set flag "hit" true
      end

      if Record "spin2" Data Index < 4 each
      begin
      if flag "hit" true each
      begin
        set flag "hit" false
        Put 1 on Record "spin2" Data Index
      end
      end

      if Record "spin2" Data Index = 4 each
      begin
        set flag "hit" true
      end

      if flag "hit" false each
      begin
      add 1 on Record "spin2" Data Index
      end
     
      if Record "spin" Data Index = 7 each
      begin
        set flag "hit" false
        Put 1 on Record "spin" Data Index
        Put 1 on Record "spin2" Data Index
      end

      if flag "hit" true each
      begin
      add 1 on Record "spin" Data Index
      end
     
         Put 3 on Neighbor Count
          Copy Neighbors of Record "Bet" layout
          to Record "Bet2" Layout

      if flag "hit" true each
      begin
         Put 100% of Record "progression" data to Record "Bet2" Layout list
         Put 100% of Record "progression" data to Record "Bet" Layout list
      end
         duplicate Record "Bet2" to Record "1"
         duplicate Record "Bet" to Record "2"

        Set Max to Record "Bet2" Layout Index
         Add 1 to Record "Bet2" Layout Index

         Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index


         IF Record "Matrix8" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 2 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 3 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 4 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 6 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 7 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 8 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 9 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 10 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 11 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 12 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 13 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 14 each
         begin
         copy number 36 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 15 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 16 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 17 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 18 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 19 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 20 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 21 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 22 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 23 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 24 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 25 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 26 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 27 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 28 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 29 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 30 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 31 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 32 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 33 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 34 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 35 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 36 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 37 each
         begin
         copy number 26 to Record "Bet" Layout
         end






         Put 3 on Neighbor Count
          Copy Neighbors of Record "Bet" layout
          to Record "Bet2" Layout

        if flag "hit" true each
      begin
        Put 100% of Record "progression" data to Record "Bet" Layout list
        Put 100% of Record "progression" data to Record "Bet2" Layout list
      end
        duplicate Record "Bet2" to Record "3"
        duplicate Record "Bet" to Record "4"



       
       clear Record "Bet" layout
       clear Record "Bet2" layout
       
     {  Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

         IF Record "Matrix10" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 2 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 3 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 4 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 6 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 7 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 8 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 9 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 10 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 11 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 12 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 13 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 14 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 15 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 16 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 17 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 18 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 19 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 20 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 21 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 22 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 23 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 24 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 25 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 26 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 27 each
         begin
         copy number 26 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 28 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 29 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 30 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 31 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 32 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 33 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 34 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 35 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 36 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 37 each
         begin
         copy number 36 to Record "Bet" Layout
         end

          Put 2 on Neighbor Count
          Copy Neighbors of Record "Bet" layout
          to Record "Bet2" Layout

         Put 100% of Record "progression" data to Record "Bet2" Layout list
         Put 100% of Record "progression" data to Record "Bet" Layout list


          Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

         IF Record "Matrix11" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 2 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 3 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 4 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 6 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 7 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 8 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 9 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 10 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 11 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 12 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 13 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 14 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 15 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 16 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 17 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 18 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 19 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 20 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 21 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 22 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 23 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 24 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 25 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 26 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 27 each
         begin
         copy number 26 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 28 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 29 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 30 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 31 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 32 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 33 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 34 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 35 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 36 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 37 each
         begin
         copy number 36 to Record "Bet" Layout
         end
                            }
        set flag "loop" true

     {     Put 2 on Neighbor Count
          Copy Neighbors of Record "Bet" layout
          to Record "Bet2" Layout

         Put 100% of Record "progression" data to Record "Bet2" Layout list
         Put 100% of Record "progression" data to Record "Bet" Layout list
      }
        // subtract 1 to Record "last" Layout index
        // subtract 1 to Record "DistData" Data index
        //subtract 1 to Record "secondlast" Layout index
       end

end


{
IF Record "LastBetMatrix" Layout index >= 4
begin

//duplicate Record "DistData" to Record "DistDataTEMP"
loop until Record "last" Layout index =  1
begin
//set max to Record "LastBetMatrix2" Layout index
//set max to Record "LastBetMatrix" Layout index
//set max to Record "secondlast" Layout index
//set flag "loop" true
//duplicate Record "DistData" to Record "DistData2"

//loop until Record "LastBetMatrix2" Layout index =  0
//begin

         duplicate Record "Matrix9" to Record "Matrix7"

              if Record "LastBetMatrix" Layout = number 0 each
         begin
         put 1 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 1 each
         begin
         put 21 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 2 each
         begin
         put 7 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 3 each
         begin
         put 36 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 4 each
         begin
         put 5 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 5 each
         begin
         put 20 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 6 each
         begin
         put 11 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 7 each
         begin
         put 32 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 8 each
         begin
         put 17 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 9 each
         begin
         put 28 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 10 each
         begin
         put 19 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 11 each
         begin
         put 15 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 12 each
         begin
         put 34 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 13 each
         begin
         put 13 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 14 each
         begin
         put 26 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 15 each
         begin
         put 3 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 16 each
         begin
         put 22 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 17 each
         begin
         put 9 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 18 each
         begin
         put 30 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 19 each
         begin
         put 4 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 20 each
         begin
         put 25 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 21 each
         begin
         put 6 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 22 each
         begin
         put 29 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 23 each
         begin
         put 18 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 24 each
         begin
         put 21 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 25 each
         begin
         put 8 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 26 each
         begin
         put 37 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 27 each
         begin
         put 12 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 28 each
         begin
         put 33 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 29 each
         begin
         put 31 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 30 each
         begin
         put 16 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 31 each
         begin
         put 27 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 32 each
         begin
         put 2 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 33 each
         begin
         put 23 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 34 each
         begin
         put 10 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 35 each
         begin
         put 35 to Record "Matrix7" Data index
         end

         if Record "LastBetMatrix" Layout = number 36 each
         begin
         put 14 to Record "Matrix7" Data index
         end

         duplicate Record "Matrix7" to Record "Matrix8"
         duplicate Record "Matrix7" to Record "Matrix"
         duplicate Record "Matrix7" to Record "Matrix2"
         duplicate Record "Matrix7" to Record "Matrix5"
         //duplicate Record "Matrix7" to Record "last"
//==========

         duplicate Record "Matrix9" to Record "Matrix10"



         if Record "secondlast" Layout = number 0 each
         begin
         put 1 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 1 each
         begin
         put 21 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 2 each
         begin
         put 7 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 3 each
         begin
         put 36 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 4 each
         begin
         put 5 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 5 each
         begin
         put 20 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 6 each
         begin
         put 11 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 7 each
         begin
         put 32 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 8 each
         begin
         put 17 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 9 each
         begin
         put 28 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 10 each
         begin
         put 19 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 11 each
         begin
         put 15 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 12 each
         begin
         put 34 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 13 each
         begin
         put 13 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 14 each
         begin
         put 26 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 15 each
         begin
         put 3 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 16 each
         begin
         put 22 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 17 each
         begin
         put 9 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 18 each
         begin
         put 30 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 19 each
         begin
         put 4 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 20 each
         begin
         put 25 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 21 each
         begin
         put 6 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 22 each
         begin
         put 29 to Record "Matrix10" Data index
         end

        if Record "secondlast" Layout = number 23 each
         begin
         put 18 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 24 each
         begin
         put 21 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 25 each
         begin
         put 8 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 26 each
         begin
         put 37 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 27 each
         begin
         put 12 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 28 each
         begin
         put 33 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 29 each
         begin
         put 31 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 30 each
         begin
         put 16 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 31 each
         begin
         put 27 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 32 each
         begin
         put 2 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 33 each
         begin
         put 23 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 34 each
         begin
         put 10 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 35 each
         begin
         put 35 to Record "Matrix10" Data index
         end

         if Record "secondlast" Layout = number 36 each
         begin
         put 14 to Record "Matrix10" Data index
         end


         duplicate Record "Matrix10" to Record "Matrix11"
         duplicate Record "Matrix10" to Record "Matrix3"
         duplicate Record "Matrix10" to Record "Matrix4"
         duplicate Record "Matrix10" to Record "Matrix6"


      IF flag "loop" false each
       begin

         //==Dist Calc===
         duplicate Record "last" to Record "temp"
        // duplicate Record "LastBetMatrix" to Record "last"
         duplicate Record "Matrix7" to Record "Matrix"
         duplicate Record "Matrix10" to Record "Matrix3"

          if Record "Matrix" Data index < Record "Matrix3" Data index each
         begin


         if Record "last" Layout = number 0 each
         begin
         subtract 1 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 1 each
         begin
         subtract 21 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 2 each
         begin
         subtract 7 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 3 each
         begin
         subtract 36 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 4 each
         begin
         subtract 5 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 5 each
         begin
         subtract 20 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 6 each
         begin
         subtract 11 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 7 each
         begin
         subtract 32 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 8 each
         begin
         subtract 17 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 9 each
         begin
         subtract 28 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 10 each
         begin
         subtract 19 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 11 each
         begin
         subtract 15 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 12 each
         begin
         subtract 34 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 13 each
         begin
         subtract 13 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 14 each
         begin
         subtract 26 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 15 each
         begin
         subtract 3 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 16 each
         begin
         subtract 22 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 17 each
         begin
         subtract 9 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 18 each
         begin
         subtract 30 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 19 each
         begin
         subtract 4 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 20 each
         begin
         subtract 25 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 21 each
         begin
         subtract 6 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 22 each
         begin
         subtract 29 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 23 each
         begin
         subtract 18 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 24 each
         begin
         subtract 21 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 25 each
         begin
         subtract 8 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 26 each
         begin
         subtract 37 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 27 each
         begin
         subtract 12 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 28 each
         begin
         subtract 33 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 29 each
         begin
         subtract 31 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 30 each
         begin
         subtract 16 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 31 each
         begin
         subtract 27 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 32 each
         begin
         subtract 2 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 33 each
         begin
         subtract 23 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 34 each
         begin
         subtract 10 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 35 each
         begin
         subtract 35 from Record "Matrix3" Data index
         end

         if Record "last" Layout = number 36 each
         begin
         subtract 14 from Record "Matrix3" Data index
         end

      //  if flag "loop" false each
      //  begin
         Set Max to Record "DistData" Data Index
         Add 1 to Record "DistData" Data Index
      //  end

         IF Record "Matrix3" Data index = 1 each
         begin
         put 1 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 2 each
         begin
         put 2 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 3 each
         begin
         put 3 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 4 each
         begin
         put 4 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 5 each
         begin
         put 5 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 6 each
         begin
         put 6 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 7 each
         begin
         put 7 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 8 each
         begin
         put 8 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 9 each
         begin
         put 9 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 10 each
         begin
         put 10 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 11 each
         begin
         put 11 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 12 each
         begin
         put 12 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 13 each
         begin
         put 13 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 14 each
         begin
         put 14 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 15 each
         begin
         put 15 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 16 each
         begin
         put 16 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 17 each
         begin
         put 17 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 18 each
         begin
         put 18 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 19 each
         begin
         put 19 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 20 each
         begin
         put 20 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 21 each
         begin
         put 21 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 23 each
         begin
         put 23 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 24 each
         begin
         put 24 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 25 each
         begin
         put 25 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 26 each
         begin
         put 26 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 27 each
         begin
         put 27 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 28 each
         begin
         put 28 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 29 each
         begin
         put 29 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 30 each
         begin
         put 30 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 31 each
         begin
         put 31 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 32 each
         begin
         put 32 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 33 each
         begin
         put 33 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 34 each
         begin
         put 34 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 35 each
         begin
         put 35 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 36 each
         begin
         put 36 to Record "DistData" Data
         end

         IF Record "Matrix3" Data index = 37 each
         begin
         put 37 to Record "DistData" Data
         end

         end
         else
         begin

      //****


         if Record "Matrix" Data index > Record "Matrix3" Data index each
         begin

         if Record "secondlast" Layout = number 0 each
         begin
         subtract 1 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 1 each
         begin
         subtract 21 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 2 each
         begin
         subtract 7 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 3 each
         begin
         subtract 36 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 4 each
         begin
         subtract 5 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 5 each
         begin
         subtract 20 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 6 each
         begin
         subtract 11 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 7 each
         begin
         subtract 32 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 8 each
         begin
         subtract 17 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 9 each
         begin
         subtract 28 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 10 each
         begin
         subtract 19 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 11 each
         begin
         subtract 15 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 12 each
         begin
         subtract 34 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 13 each
         begin
         subtract 13 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 14 each
         begin
         subtract 26 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 15 each
         begin
         subtract 3 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 16 each
         begin
         subtract 22 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 17 each
         begin
         subtract 9 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 18 each
         begin
         subtract 30 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 19 each
         begin
         subtract 4 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 20 each
         begin
         subtract 25 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 21 each
         begin
         subtract 6 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 22 each
         begin
         subtract 29 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 23 each
         begin
         subtract 18 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 24 each
         begin
         subtract 21 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 25 each
         begin
         subtract 8 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 26 each
         begin
         subtract 37 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 27 each
         begin
         subtract 12 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 28 each
         begin
         subtract 33 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 29 each
         begin
         subtract 31 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 30 each
         begin
         subtract 16 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 31 each
         begin
         subtract 27 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 32 each
         begin
         subtract 23 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 33 each
         begin
         subtract 34 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 34 each
         begin
         subtract 10 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 35 each
         begin
         subtract 35 from Record "Matrix" Data index
         end

         if Record "secondlast" Layout = number 36 each
         begin
         subtract 14 from Record "Matrix" Data index
         end

      //  if flag "loop" false each
      //  begin
         Set Max to Record "DistData" Data Index
         Add 1 to Record "DistData" Data Index
      //  end

         IF Record "Matrix" Data index = 1 each
         begin
         put 1 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 2 each
         begin
         put 2 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 3 each
         begin
         put 3 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 4 each
         begin
         put 4 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 5 each
         begin
         put 5 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 6 each
         begin
         put 6 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 7 each
         begin
         put 7 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 8 each
         begin
         put 8 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 9 each
         begin
         put 9 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 10 each
         begin
         put 10 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 11 each
         begin
         put 11 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 12 each
         begin
         put 12 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 13 each
         begin
         put 13 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 14 each
         begin
         put 14 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 15 each
         begin
         put 15 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 16 each
         begin
         put 16 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 17 each
         begin
         put 17 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 18 each
         begin
         put 18 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 19 each
         begin
         put 19 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 20 each
         begin
         put 20 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 21 each
         begin
         put 21 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 23 each
         begin
         put 23 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 24 each
         begin
         put 24 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 25 each
         begin
         put 25 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 26 each
         begin
         put 26 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 27 each
         begin
         put 27 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 28 each
         begin
         put 28 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 29 each
         begin
         put 29 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 30 each
         begin
         put 30 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 31 each
         begin
         put 31 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 32 each
         begin
         put 32 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 33 each
         begin
         put 33 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 34 each
         begin
         put 34 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 35 each
         begin
         put 35 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 36 each
         begin
         put 36 to Record "DistData" Data
         end

         IF Record "Matrix" Data index = 37 each
         begin
         put 37 to Record "DistData" Data
         end

         end
         end
     end

     IF Record "DistData" Data = 1 each
         begin
         subtract 1 from Record "Matrix7" Data index
         add 1 on Record "Matrix8" Data index

         subtract 1 from Record "Matrix10" Data index
         add 1 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 2 each
         begin
         subtract 2 from Record "Matrix7" Data index
         add 2 on Record "Matrix8" Data index

         subtract 2 from Record "Matrix10" Data index
         add 2 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 3 each
         begin
         subtract 3 from Record "Matrix7" Data index
         add 3 on Record "Matrix8" Data index

         subtract 3 from Record "Matrix10" Data index
         add 3 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 4 each
         begin
         subtract 4 from Record "Matrix7" Data
         add 4 on Record "Matrix8" Data index

         subtract 4 from Record "Matrix10" Data index
         add 4 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 5 each
         begin
         subtract 5 from Record "Matrix7" Data index
         add 5 on Record "Matrix8" Data index

         subtract 5 from Record "Matrix10" Data index
         add 5 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 6 each
         begin
         subtract 6 from Record "Matrix7" Data index
         add 6 on Record "Matrix8" Data index

         subtract 6 from Record "Matrix10" Data index
         add 6 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 7 each
         begin
         subtract 7 from Record "Matrix7" Data index
         add 7 on Record "Matrix8" Data index

         subtract 7 from Record "Matrix10" Data index
         add 7 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 8 each
         begin
         subtract 8 from Record "Matrix7" Data index
         add 8 on Record "Matrix8" Data index

         subtract 8 from Record "Matrix10" Data index
         add 8 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 9 each
         begin
         subtract 9 from Record "Matrix7" Data index
         add 9 on Record "Matrix8" Data index

         subtract 9 from Record "Matrix10" Data index
         add 9 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 10 each
         begin
         subtract 10 from Record "Matrix7" Data index
         add 10 on Record "Matrix8" Data index

         subtract 10 from Record "Matrix10" Data index
         add 10 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 11 each
         begin
         subtract 11 from Record "Matrix7" Data index
         add 11 on Record "Matrix8" Data index

         subtract 11 from Record "Matrix10" Data index
         add 11 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 12 each
         begin
         subtract 12 from Record "Matrix7" Data index
         add 12 on Record "Matrix8" Data index

         subtract 12 from Record "Matrix10" Data index
         add 12 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 13 each
         begin
         subtract 13 from Record "Matrix7" Data index
         add 13 on Record "Matrix8" Data index

         subtract 13 from Record "Matrix10" Data index
         add 13 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 14 each
         begin
         subtract 14 from Record "Matrix7" Data index
         add 14 on Record "Matrix8" Data index

         subtract 14 from Record "Matrix10" Data index
         add 14 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 15 each
         begin
         subtract 15 from Record "Matrix7" Data index
         add 15 on Record "Matrix8" Data index

         subtract 15 from Record "Matrix10" Data index
         add 15 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 16 each
         begin
         subtract 16 from Record "Matrix7" Data index
         add 16 on Record "Matrix8" Data index

         subtract 16 from Record "Matrix10" Data index
         add 16 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 17 each
         begin
         subtract 17 from Record "Matrix7" Data index
         add 17 on Record "Matrix8" Data index

         subtract 17 from Record "Matrix10" Data index
         add 17 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 18 each
         begin
         subtract 18 from Record "Matrix7" Data index
         add 18 on Record "Matrix8" Data index

         subtract 18 from Record "Matrix10" Data index
         add 18 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 19 each
         begin
         subtract 19 from Record "Matrix7" Data index
         add 19 on Record "Matrix8" Data index

         subtract 19 from Record "Matrix10" Data index
         add 19 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 20 each
         begin
         subtract 20 from Record "Matrix7" Data index
         add 20 on Record "Matrix8" Data index

         subtract 20 from Record "Matrix10" Data index
         add 20 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 21 each
         begin
         subtract 21 from Record "Matrix7" Data index
         add 21 on Record "Matrix8" Data index

         subtract 21 from Record "Matrix10" Data index
         add 21 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 22 each
         begin
         subtract 22 from Record "Matrix7" Data index
         add 22 on Record "Matrix8" Data index

         subtract 22 from Record "Matrix10" Data index
         add 22 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 23 each
         begin
         subtract 23 from Record "Matrix7" Data index
         add 23 on Record "Matrix8" Data index

         subtract 23 from Record "Matrix10" Data index
         add 23 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 24 each
         begin
         subtract 24 from Record "Matrix7" Data index
         add 24 on Record "Matrix8" Data index

         subtract 24 from Record "Matrix10" Data index
         add 24 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 25 each
         begin
         subtract 25 from Record "Matrix7" Data index
         add 25 on Record "Matrix8" Data index

         subtract 25 from Record "Matrix10" Data index
         add 25 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 26 each
         begin
         subtract 26 from Record "Matrix7" Data index
         add 26 on Record "Matrix8" Data index

         subtract 26 from Record "Matrix10" Data index
         add 26 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 27 each
         begin
         subtract 27 from Record "Matrix7" Data index
         add 27 on Record "Matrix8" Data index

         subtract 27 from Record "Matrix10" Data index
         add 27 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 28 each
         begin
         subtract 28 from Record "Matrix7" Data index
         add 28 on Record "Matrix8" Data index

         subtract 28 from Record "Matrix10" Data index
         add 28 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 29 each
         begin
         subtract 29 from Record "Matrix7" Data index
         add 29 on Record "Matrix8" Data index

         subtract 29 from Record "Matrix10" Data index
         add 29 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 30 each
         begin
         subtract 30 from Record "Matrix7" Data index
         add 30 on Record "Matrix8" Data index

         subtract 30 from Record "Matrix10" Data index
         add 30 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 31 each
         begin
         subtract 31 from Record "Matrix7" Data index
         add 31 on Record "Matrix8" Data index

         subtract 31 from Record "Matrix10" Data index
         add 31 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 32 each
         begin
         subtract 32 from Record "Matrix7" Data index
         add 32 on Record "Matrix8" Data index

         subtract 32 from Record "Matrix10" Data index
         add 32 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 33 each
         begin
         subtract 33 from Record "Matrix7" Data index
         add 33 on Record "Matrix8" Data index

         subtract 33 from Record "Matrix10" Data index
         add 33 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 34 each
         begin
         subtract 34 from Record "Matrix7" Data index
         add 34 on Record "Matrix8" Data index

         subtract 34 from Record "Matrix10" Data index
         add 34 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 35 each
         begin
         subtract 35 from Record "Matrix7" Data index
         add 35 on Record "Matrix8" Data index

         subtract 35 from Record "Matrix10" Data index
         add 35 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 36 each
         begin
         subtract 36 from Record "Matrix7" Data index
         add 36 on Record "Matrix8" Data index

         subtract 36 from Record "Matrix10" Data index
         add 36 on Record "Matrix11" Data index
         end

         IF Record "DistData" Data = 37 each
         begin
         subtract 37 from Record "Matrix7" Data index
         add 37 on Record "Matrix8" Data index

         subtract 37 from Record "Matrix10" Data index
         add 37 on Record "Matrix11" Data index
         end


         Set Max to Record "Bet2" Layout Index
         Add 1 to Record "Bet2" Layout Index

         Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index



         if Record "Matrix7" Data index > 37 each
         begin
         subtract 37 from Record "Matrix7" data index
         end

         if Record "Matrix8" Data index > 37 each
         begin
         subtract 37 from Record "Matrix8" data index
         end

         if Record "Matrix10" Data index > 37 each
         begin
         subtract 37 from Record "Matrix10" data index
         end

         if Record "Matrix11" Data index > 37 each
         begin
         subtract 37 from Record "Matrix11" data index
         end



         if Record "Matrix7" Data index < 0 each
         begin
         add 37 to Record "Matrix7" data index
         end

         if Record "Matrix8" Data index < 0 each
         begin
         add 37 to Record "Matrix8" data index
         end

         if Record "Matrix10" Data index < 0 each
         begin
         add 37 to Record "Matrix10" data index
         end

         if Record "Matrix11" Data index < 0 each
         begin
         add 37 to Record "Matrix11" data index
         end


         if Record "Matrix7" Data index = 0 each
         begin
         put 1 to Record "Matrix7" data index
         end

         if Record "Matrix8" Data index = 0 each
         begin
         put 1 to Record "Matrix8" data index
         end

         if Record "Matrix10" Data index = 0 each
         begin
         put 1 to Record "Matrix10" data index
         end

         if Record "Matrix11" Data index = 0 each
         begin
         put 1 to Record "Matrix11" data index
         end

       {
         Set Max to Record "Bet2" Layout Index
         Add 1 to Record "Bet2" Layout Index

         Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

         IF Record "Matrix7" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 2 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 3 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 4 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 6 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 7 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 8 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 9 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 10 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 11 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 12 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 13 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 14 each
         begin
         copy number 36 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 15 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 16 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 17 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 18 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 19 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 20 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 21 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 22 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 23 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 24 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 25 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 26 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 27 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 28 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 29 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 30 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 31 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 32 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 33 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 34 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 35 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 36 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix7" Data index = 37 each
         begin
         copy number 26 to Record "Bet" Layout
         end


         {Put 1 on Neighbor Count
          Copy Neighbors of Record "Bet" layout
          to Record "Bet2" Layout

         Put 100% of Record "progression" data to Record "Bet2" Layout list
         Put 100% of Record "progression" data to Record "Bet" Layout list


        Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

        { Set Max to Record "Bet2" Layout Index
         Add 1 to Record "Bet2" Layout Index


         IF Record "Matrix8" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 2 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 3 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 4 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 6 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 7 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 8 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 9 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 10 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 11 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 12 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 13 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 14 each
         begin
         copy number 36 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 15 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 16 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 17 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 18 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 19 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 20 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 21 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 22 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 23 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 24 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 25 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 26 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 27 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 28 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 29 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 30 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 31 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 32 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 33 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 34 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 35 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 36 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix8" Data index = 37 each
         begin
         copy number 26 to Record "Bet" Layout
         end






      {  Put 1 on Neighbor Count
          Copy Neighbors of Record "Bet" layout
          to Record "Bet2" Layout
         Put 100% of Record "progression" data to Record "Bet" Layout list
         Put 100% of Record "progression" data to Record "Bet" Layout list  }

      {   Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

         IF Record "Matrix10" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 2 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 3 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 4 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 6 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 7 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 8 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 9 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 10 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 11 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 12 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 13 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 14 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 15 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 16 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 17 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 18 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 19 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 20 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 21 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 22 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 23 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 24 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 25 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 26 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 27 each
         begin
         copy number 26 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 28 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 29 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 30 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 31 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 32 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 33 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 34 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 35 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 36 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix10" Data index = 37 each
         begin
         copy number 36 to Record "Bet" Layout
         end


         Put 100% of Record "progression" data to Record "Bet" Layout list


          Set Max to Record "Bet" Layout Index
         Add 1 to Record "Bet" Layout Index

         IF Record "Matrix11" Data index = 1 each
         begin
         copy number 0 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 2 each
         begin
         copy number 1 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 3 each
         begin
         copy number 2 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 4 each
         begin
         copy number 3 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 5 each
         begin
         copy number 4 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 6 each
         begin
         copy number 5 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 7 each
         begin
         copy number 6 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 8 each
         begin
         copy number 7 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 9 each
         begin
         copy number 8 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 10 each
         begin
         copy number 9 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 11 each
         begin
         copy number 10 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 12 each
         begin
         copy number 11 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 13 each
         begin
         copy number 12 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 14 each
         begin
         copy number 13 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 15 each
         begin
         copy number 14 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 16 each
         begin
         copy number 15 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 17 each
         begin
         copy number 16 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 18 each
         begin
         copy number 17 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 19 each
         begin
         copy number 18 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 20 each
         begin
         copy number 19 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 21 each
         begin
         copy number 20 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 22 each
         begin
         copy number 21 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 23 each
         begin
         copy number 22 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 24 each
         begin
         copy number 23 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 25 each
         begin
         copy number 24 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 26 each
         begin
         copy number 25 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 27 each
         begin
         copy number 26 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 28 each
         begin
         copy number 27 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 29 each
         begin
         copy number 28 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 30 each
         begin
         copy number 29 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 31 each
         begin
         copy number 30 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 32 each
         begin
         copy number 31 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 33 each
         begin
         copy number 32 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 34 each
         begin
         copy number 33 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 35 each
         begin
         copy number 34 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 36 each
         begin
         copy number 35 to Record "Bet" Layout
         end

         IF Record "Matrix11" Data index = 37 each
         begin
         copy number 36 to Record "Bet" Layout
         end
                                                    ]
         set flag "loop" true

         Put 100% of Record "progression" data to Record "Bet" Layout list

         subtract 1 to Record "last" Layout index
        subtract 1 to Record "DistData" Data index
        //subtract 1 to Record "secondlast" Layout index
       end

end                                                  }


{
set max to Record "DistData" Data index
set max to Record "last" Layout index
set max to Record "secondlast" Layout index
set max to Record "LastBetMatrix" Layout index
set max to Record "LastBetMatrix2" Layout index
}
{ if total spin count >= 300 each
  begin
  stop session
  end
  }
 
  if total bankroll <= -1000 each
  begin
   { add 1 to record "lost sessions" data index
    put 0 on total bankroll
    put 1 on Record "progression" Data Index
    }
  stop session
  end

  if total bankroll >= 1000 each
  begin
   { add 1 to record "won sessions" data index
    put 0 on total bankroll
    put 1 on Record "progression" Data Index
    }
  stop session
  end





If Record "progression" Data Index >
  Record "progression" Data Count  each
    Begin
      Put 1 on Record "progression" Data Index
      clear Record "DistData" Layout
   clear Record "Bet" Layout
   clear Record "secondlast" Layout
   clear Record "last" Layout
   clear Record "Matrix" Layout
   clear Record "Matrix1" Layout
   clear Record "Matrix2" Layout
   clear Record "Matrix3" Layout
   clear Record "Matrix4" Layout
   clear Record "Matrix5" Layout
   clear Record "Matrix6" Layout
   clear Record "Matrix7" Layout
   clear Record "Matrix8" Layout
   clear Record "Matrix9" Layout
   clear Record "Matrix10" Layout
   clear Record "Matrix11" Layout
   clear Record "Matrix12" Layout
   clear Record "Matrix13" Layout
   clear Record "LastBetMatrix" Layout
    End
   
    Set Max to Record "secondlast" Layout Index
Add 1 to Record "secondlast" Layout Index
copy last Number to Record "secondlast" Layout

  { clear Record "Matrix" Layout
   clear Record "Matrix1" Layout
   clear Record "Matrix2" Layout
   clear Record "Matrix3" Layout
   clear Record "Matrix4" Layout
   clear Record "Matrix5" Layout
   clear Record "Matrix6" Layout
   clear Record "Matrix7" Layout
   clear Record "Matrix8" Layout      }
// clear Record "last" Layout
   set flag "loop" false
  //
  //  clear Record "temp" layout

END

[Macro]

Tried this v3... It went up and down.
I cant tell yet about what's the best way or trigger to make some sure hits.

[Normy2000]

Hello IG,

Just to let you know, there is a Locate Left or Right function in Rx, can be usefull.

system "11 gap left and right"
method "main"
begin
    Put 3 on Neighbor Count
    Locate Number Left 11 gaps from the Last Number to Record "left" layout
    Copy Neighbors of Record "left" layout to Record "left 2" layout
    Locate Number Right 11 gaps from the Last Number to Record "right" layout
    Copy Neighbors of Record "right" layout to Record "right 2" layout
    put 1 on Record "left" layout
    put 1 on Record "left 2" layout list
    put 1 on Record "right" layout
    put 1 on Record "right 2" layout list
end

[ignatus]

Hello IG,

Just to let you know, there is a Locate Left or Right function in Rx, can be usefull.

system "11 gap left and right"
method "main"
begin
    Put 3 on Neighbor Count
    Locate Number Left 11 gaps from the Last Number to Record "left" layout
    Copy Neighbors of Record "left" layout to Record "left 2" layout
    Locate Number Right 11 gaps from the Last Number to Record "right" layout
    Copy Neighbors of Record "right" layout to Record "right 2" layout
    put 1 on Record "left" layout
    put 1 on Record "left 2" layout list
    put 1 on Record "right" layout
    put 1 on Record "right 2" layout list
end

Great ! Thanks 

[Normy2000]

U r welcome my friend!

[Macro]

Is there any way to add to get the average jump in the code?

And bet only if there is a close jumps to get average

It maybe hard to code I think

[Normy2000]

Not hard to code, there is a "Locate Distance between 2 numbers" function in Rx.
The problem is: we don't know if a spin is CW or CCW.