3S Skip Streak System v2

Contenuto del file

system "3S Skip Streak System v2"
{
*************************************
*          System by Apache         *
*         on the VIP Lounge         *
*************************************
          Rx-ed by St0rm0r
-------------------------------------
           00-c0mpatible
-------------------------------------
-------------------------------------
}
method "main"
begin
// section 1: do this once
while starting new session
    begin
    call "init"
    exit
    end

// do the tracking
track last number for 1 record"last N"layout
call "update hitlist"

// act on a loss
if net < 0
    begin

    end

// act on a win
if net > 0
    begin
    if record"P"data < 4
        begin
        put 1 record"numbers"layout index
        loop until record"numbers"layout = record"last N"layout
            begin
            add 1 record"numbers"layout index
            end
        put 100% record"numbers"layout index record"qualified"data index
        put 99 record"qualified"data
        end
    end

// check qualification
put 1 record"all consecutive larger skips"data index
loop until record"all consecutive larger skips"data index > record"all consecutive larger skips"data count
    begin
    put 100% record"all consecutive larger skips"data index record"#bets"data index
    put 100% record"all consecutive larger skips"data index record"qualified"data index
    put 100% record"all consecutive larger skips"data index record"all medians"data index

    if record"P"data = 1
        begin put 99999 record"limit"data end
    if record"P"data = 2
        begin put 37 record"limit"data end
    if record"P"data = 3
        begin put 100% record"all medians"data record"limit"data end

    if record"all consecutive larger skips"data = record"+signs"data
        begin
        if record"qualified"data < 99
            begin
            put 1 record"qualified"data
            end
        end

    if record"#bets"data >= record"limit"data and record"#bets"data > 0
            begin
            put 99 record"qualified"data
            end

    add 1 record"all consecutive larger skips"data index
    end
//bet
if record"W"data = 1
    begin
    put 1 record"end of session"data
    end
    else
    begin
    put 0 record"end of session"data
    end

put 1 record"qualified"data index
loop until record"qualified"data index > record"qualified"data count
    begin
    if record"qualified"data = 1
        begin
        put 100% record"qualified"data index record"numbers"layout index
        put 100% record"qualified"data index record"#bets"data index
        add 1 record"#bets"data
        put 1 record"numbers"layout
        end
    if record"qualified"data = 99
        begin
        add 1 record"end of session"data
        end
    add 1 record"qualified"data index
    end
if record"end of session"data = 38
    begin
    call "reset"
    exit
    end
end

// subroutines
method "init"
begin
call "reset"
group
    begin
    display "3S Skip Streak System"
    display "------------------------------------------------------------------"
    input dropdown "Wheel type:
    1:= single wheel
    2:= double wheel" record"W"data
    input data "Bet on numbers with exactly X consecutive + signs:" record"+signs"data
    input dropdown "Bet on a number:
    1:= until the number hits
    2:= until a hit or max 37 spins
    3:= until a hit or for a number of spins = median value of skips" record"P"data
    end
if record"W"data = 1
    begin
    load single wheel
    end
    else
    begin
    load double wheel
    end
copy list [number 00, number 0, number 1, number 2, number 3,number 4,number 5,
number 6,number 7,number 8,number 9,number 10,number 11,number 12,number 13,
number 14,number 15,number 16,number 17,number 18,number 19,number 20,number 21,
number 22,number 23,number 24,number 25,number 26,number 27,number 28,number 29,
number 30,number 31,number 32,number 33,number 34,number 35,number 36]
to record"numbers"layout
put 1 record"0.1"data
divide by 10 record"0.1"data
end

method "reset"
begin
clear record"hitlist"data
clear record"all medians"data
clear record"all consecutive larger skips"data
clear record"qualified"data
clear record"#bets"data
clear record"00 skips"data
clear record"00 skips sorted"data
clear record"0 skips"data
clear record"0 skips sorted"data
clear record"1 skips"data
clear record"1 skips sorted"data
clear record"2 skips"data
clear record"2 skips sorted"data
clear record"3 skips"data
clear record"3 skips sorted"data
clear record"4 skips"data
clear record"4 skips sorted"data
clear record"5 skips"data
clear record"5 skips sorted"data
clear record"6 skips"data
clear record"6 skips sorted"data
clear record"7 skips"data
clear record"7 skips sorted"data
clear record"8 skips"data
clear record"8 skips sorted"data
clear record"9 skips"data
clear record"9 skips sorted"data
clear record"10 skips"data
clear record"10 skips sorted"data
clear record"11 skips"data
clear record"11 skips sorted"data
clear record"12 skips"data
clear record"12 skips sorted"data
clear record"13 skips"data
clear record"13 skips sorted"data
clear record"14 skips"data
clear record"14 skips sorted"data
clear record"15 skips"data
clear record"15 skips sorted"data
clear record"16 skips"data
clear record"16 skips sorted"data
clear record"17 skips"data
clear record"17 skips sorted"data
clear record"18 skips"data
clear record"18 skips sorted"data
clear record"19 skips"data
clear record"19 skips sorted"data
clear record"20 skips"data
clear record"20 skips sorted"data
clear record"21 skips"data
clear record"21 skips sorted"data
clear record"22 skips"data
clear record"22 skips sorted"data
clear record"23 skips"data
clear record"23 skips sorted"data
clear record"24 skips"data
clear record"24 skips sorted"data
clear record"25 skips"data
clear record"25 skips sorted"data
clear record"26 skips"data
clear record"26 skips sorted"data
clear record"27 skips"data
clear record"27 skips sorted"data
clear record"28 skips"data
clear record"28 skips sorted"data
clear record"29 skips"data
clear record"29 skips sorted"data
clear record"30 skips"data
clear record"30 skips sorted"data
clear record"31 skips"data
clear record"31 skips sorted"data
clear record"32 skips"data
clear record"32 skips sorted"data
clear record"33 skips"data
clear record"33 skips sorted"data
clear record"34 skips"data
clear record"34 skips sorted"data
clear record"35 skips"data
clear record"35 skips sorted"data
clear record"36 skips"data
clear record"36 skips sorted"data
clear record"#bets"data
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0] record"qualified"data
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0] record"#bets"data
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0] record"hitlist"data
clear record"start"data
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0] record"start"data
end

method "update hitlist"
begin
put 1 record"numbers"layout index
loop until record"numbers"layout index > record"numbers"layout count
    begin
    put 100% record"numbers"layout index record"hitlist"data index
    put 100% record"numbers"layout index record"start"data index
    put 100% record"numbers"layout index record"qualified"data index

    if record"qualified"data < 99
        begin

        if record"numbers"layout not = record"last N"layout
            begin
            add 1 record"hitlist"data
            end
            else
            begin
            put 100% record"hitlist"data record"new skip"data
            put 0 record"hitlist"data

            if record"last N"layout = number 00
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"00 skips"data
                add 1 record"00 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 0
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"0 skips"data
                add 1 record"0 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 1
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"1 skips"data
                add 1 record"1 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 2
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"2 skips"data
                add 1 record"2 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 3
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"3 skips"data
                add 1 record"3 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 4
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"4 skips"data
                add 1 record"4 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 5
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"5 skips"data
                add 1 record"5 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 6
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"6 skips"data
                add 1 record"6 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 7
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"7 skips"data
                add 1 record"7 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 8
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"8 skips"data
                add 1 record"8 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 9
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"9 skips"data
                add 1 record"9 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 10
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"10 skips"data
                add 1 record"10 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 11
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"11 skips"data
                add 1 record"11 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 12
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"12 skips"data
                add 1 record"12 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 13
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"13 skips"data
                add 1 record"13 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 14
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"14 skips"data
                add 1 record"14 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 15
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"15 skips"data
                add 1 record"15 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 16
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"16 skips"data
                add 1 record"16 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 17
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"17 skips"data
                add 1 record"17 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 18
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"18 skips"data
                add 1 record"18 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 19
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"19 skips"data
                add 1 record"19 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 20
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"20 skips"data
                add 1 record"20 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 21
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"21 skips"data
                add 1 record"21 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 22
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"22 skips"data
                add 1 record"22 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 23
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"23 skips"data
                add 1 record"23 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 24
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"24 skips"data
                add 1 record"24 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 25
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"25 skips"data
                add 1 record"25 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 26
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"26 skips"data
                add 1 record"26 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 27
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"27 skips"data
                add 1 record"27 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 28
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"28 skips"data
                add 1 record"28 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 29
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"29 skips"data
                add 1 record"29 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 30
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"30 skips"data
                add 1 record"30 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 31
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"31 skips"data
                add 1 record"31 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 32
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"32 skips"data
                add 1 record"32 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 33
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"33 skips"data
                add 1 record"33 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 34
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"34 skips"data
                add 1 record"34 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 35
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"35 skips"data
                add 1 record"35 skips"data index
                end else begin put 1 record"start"data end
                end
            if record"last N"layout = number 36
                begin
                if record"start"data = 1 begin
                put 100% record"new skip"data record"36 skips"data
                add 1 record"36 skips"data index
                end else begin put 1 record"start"data end
                end
            end
        end
    add 1 record"numbers"layout index
    end

put 1 record"qualified"data index if record"qualified"data < 99 begin
put 1 record"hitlist"data index put 1 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"00 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"00 skips sorted"
put 1 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 2 record"qualified"data index if record"qualified"data < 99 begin
put 2 record"hitlist"data index put 2 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"0 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"0 skips sorted"
put 2 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 3 record"qualified"data index if record"qualified"data < 99 begin
put 3 record"hitlist"data index put 3 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"1 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"1 skips sorted"
put 3 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 4 record"qualified"data index if record"qualified"data < 99 begin
put 4 record"hitlist"data index put 4 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"2 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"2 skips sorted"
put 4 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 5 record"qualified"data index if record"qualified"data < 99 begin
put 5 record"hitlist"data index put 5 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"3 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"3 skips sorted"
put 5 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 6 record"qualified"data index if record"qualified"data < 99 begin
put 6 record"hitlist"data index put 6 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"4 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"4 skips sorted"
put 6 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 7 record"qualified"data index if record"qualified"data < 99 begin
put 7 record"hitlist"data index put 7 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"5 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"5 skips sorted"
put 7 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 8 record"qualified"data index if record"qualified"data < 99 begin
put 8 record"hitlist"data index put 8 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"6 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"6 skips sorted"
put 8 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 9 record"qualified"data index if record"qualified"data < 99 begin
put 9 record"hitlist"data index put 9 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"7 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"7 skips sorted"
put 9 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 10 record"qualified"data index if record"qualified"data < 99 begin
put 10 record"hitlist"data index put 10 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"8 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"8 skips sorted"
put 10 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 11 record"qualified"data index if record"qualified"data < 99 begin
put 11 record"hitlist"data index put 11 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"9 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"9 skips sorted"
put 11 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 12 record"qualified"data index if record"qualified"data < 99 begin
put 12 record"hitlist"data index put 12 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"10 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"10 skips sorted"
put 12 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 13 record"qualified"data index if record"qualified"data < 99 begin
put 13 record"hitlist"data index put 13 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"11 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"11 skips sorted"
put 13 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 14 record"qualified"data index if record"qualified"data < 99 begin
put 14 record"hitlist"data index put 14 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"12 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"12 skips sorted"
put 14 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 15 record"qualified"data index if record"qualified"data < 99 begin
put 15 record"hitlist"data index put 15 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"13 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"13 skips sorted"
put 15 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 16 record"qualified"data index if record"qualified"data < 99 begin
put 16 record"hitlist"data index put 16 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"14 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"14 skips sorted"
put 16 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 17 record"qualified"data index if record"qualified"data < 99 begin
put 17 record"hitlist"data index put 17 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"15 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"15 skips sorted"
put 17 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 18 record"qualified"data index if record"qualified"data < 99 begin
put 18 record"hitlist"data index put 18 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"16 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"16 skips sorted"
put 18 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 19 record"qualified"data index if record"qualified"data < 99 begin
put 19 record"hitlist"data index put 19 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"17 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"17 skips sorted"
put 19 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 20 record"qualified"data index if record"qualified"data < 99 begin
put 20 record"hitlist"data index put 20 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"18 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"18 skips sorted"
put 20 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 21 record"qualified"data index if record"qualified"data < 99 begin
put 21 record"hitlist"data index put 21 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"19 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"19 skips sorted"
put 21 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 22 record"qualified"data index if record"qualified"data < 99 begin
put 22 record"hitlist"data index put 22 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"20 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"20 skips sorted"
put 22 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 23 record"qualified"data index if record"qualified"data < 99 begin
put 23 record"hitlist"data index put 23 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"21 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"21 skips sorted"
put 23 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 24 record"qualified"data index if record"qualified"data < 99 begin
put 24 record"hitlist"data index put 24 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"22 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > 2 begin
call"calculate median" duplicate record"temp2" record"22 skips sorted"
put 24 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 25 record"qualified"data index if record"qualified"data < 99 begin
put 25 record"hitlist"data index put 25 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"23 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"23 skips sorted"
put 25 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 26 record"qualified"data index if record"qualified"data < 99 begin
put 26 record"hitlist"data index put 26 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"24 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"24 skips sorted"
put 26 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 27 record"qualified"data index if record"qualified"data < 99 begin
put 27 record"hitlist"data index put 27 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"25 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"25 skips sorted"
put 27 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 28 record"qualified"data index if record"qualified"data < 99 begin
put 28 record"hitlist"data index put 28 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"26 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"26 skips sorted"
put 28 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 29 record"qualified"data index if record"qualified"data < 99 begin
put 29 record"hitlist"data index put 29 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"27 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"27 skips sorted"
put 29 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 30 record"qualified"data index if record"qualified"data < 99 begin
put 30 record"hitlist"data index put 30 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"28 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"28 skips sorted"
put 30 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 31 record"qualified"data index if record"qualified"data < 99 begin
put 31 record"hitlist"data index put 31 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"29 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"29 skips sorted"
put 31 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 32 record"qualified"data index if record"qualified"data < 99 begin
put 32 record"hitlist"data index put 32 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"30 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"30 skips sorted"
put 32 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 33 record"qualified"data index if record"qualified"data < 99 begin
put 33 record"hitlist"data index put 33 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"31 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"31 skips sorted"
put 33 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 34 record"qualified"data index if record"qualified"data < 99 begin
put 34 record"hitlist"data index put 34 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"32 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"32 skips sorted"
put 34 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 35 record"qualified"data index if record"qualified"data < 99 begin
put 35 record"hitlist"data index put 35 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"33 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"33 skips sorted"
put 35 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 36 record"qualified"data index if record"qualified"data < 99 begin
put 36 record"hitlist"data index put 36 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"34 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"34 skips sorted"
put 36 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 37 record"qualified"data index if record"qualified"data < 99 begin
put 37 record"hitlist"data index put 37 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"35 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"35 skips sorted"
put 37 record"how many"data call "update all medians and consecutive larger spins"
end end end
put 38 record"qualified"data index if record"qualified"data < 99 begin
put 38 record"hitlist"data index put 38 record"all medians"data index
put 100% record"all medians"data record"bigger"data add 1 record"bigger"data
if record"hitlist"data < 2 or record"hitlist"data = record"bigger"data begin
duplicate record"36 skips" record"skips"
    set max record"skips"data index add 1 record"skips"data index
    put 100% record"hitlist"data record"skips"data
if record"skips"data count > record"+signs"data begin
call"calculate median" duplicate record"temp2" record"36 skips sorted"
put 38 record"how many"data call "update all medians and consecutive larger spins"
end end end
end

method"calculate median"
begin
if record"skips"data count > 2
begin
//sort
clear record"temp1"data
clear record"temp2"data
clear record"median"data
clear record"median value"data
clear record"consec"data
put 1 record"skips"data index
put 100% record"skips"data record"temp1"data
put 2 record"skips"data index
loop until record"skips"data index > record"skips"data count
    begin
    set flag "inserted" false
    clear record"temp2"data
    put 1 record"temp1"data index
    loop until record"temp1"data index > record"temp1"data count
        begin
        if record"temp1"data < record"skips"data
            begin
            put 100% record"temp1"data record"temp2"data
            end
            else
            begin
            set flag "inserted" true
            put 100% record"skips"data record"temp2"data
            loop until record"temp1"data index > record"temp1"data count
                begin
                add 1 record"temp2"data index
                put 100% record"temp1"data record"temp2"data
                add 1 record"temp1"data index
                end
            end
        add 1 record"temp2"data index
        add 1 record"temp1"data index
        end
    if flag "inserted" false
        begin
        put 100% record"skips"data record"temp2"data
        end
    duplicate record"temp2" record"temp1"
    add 1 record"skips"data index
    end
put 0 record"median"data
put 1 record"temp2"data index
loop until record"temp2"data index > record"temp2"data count
    begin
    add 1 record"median"data
    add 1 record"temp2"data index
    end
add 100% record"0.1"data record"median"data
divide by 2 record"median"data
put 100% record"median"data red
put 100% red record"median"data
put 0 red
put 100% record"median"data record"temp2"data index
put 100% record"temp2"data record"median value"data
//calculate # consecutive skips > median value
put 1 record"skips"data index
loop until record"skips"data index = record"skips"data count
    begin
    add 1 record"skips"data index
    end
if record"median"data > 0
    begin
    put 0 record"consec"data
    loop until record"skips"data <= record"median value"data or record"skips"data index = 0
        begin
        add 1 record"consec"data
        subtract 1 record"skips"data index
        end
    end
end
end

method "update all medians and consecutive larger spins"
begin
put 100% record"how many"data record"all medians"data index
put 100% record"median value"data record"all medians"data
put 100% record"how many"data record"all consecutive larger skips"data index
put 100% record"consec"data record"all consecutive larger skips"data
end