system "Frank's Red and Black"

{Bet selection: Always the same as the next to the last (decision before the last).

Bet selection is not affected by 0 or 00 but counted as a loss for the negative progressive bet.

Negative bet progression: $5, 10, 25, 50, 100, 100...reset after any win.

}

method "main"
  begin
    While starting a new session
      begin
         Call "Setup"
       end
    if Flag "Startup" False
       begin
         Call "Process"
         Call "Bet"
       end
    else
       begin
         Set Flag "Startup" False
       end
  end

Method "Process"
begin
 Track Last Red-Black for the past 2 spins to record "LastColor" layout
 if net > 0
    begin
      put 1 on record "Progression" data index
      Add 1 to record "Progressions Won" data
    end
  else
    begin
      Add 1 to record "Progression" data index
      if record "Progression" data index > record "Progression" data count
         begin
           put 1 on record "Progression" data index
           Add 1 to record "Progressions Lost" data
         end
    end
end

Method "Bet"
begin
 put 1 on record "LastColor" layout index
 put 100% of record "Progression" data on record "LastColor" layout
end

Method "Setup"
begin
  set Flag "Startup" True
  Set List [1,2,5,10,20,20] to record "Progression" data
  put 0 on record "Progression" data index
  put 0 on record "Progressions Won" data
  put 0 on record "Progressions Lost" data
end