temp

bb_removechan = [
    loop i (- $bb_channels $arg1) [
        do [
            bb_ch_@(+ $arg1 $i) = $bb_ch_@(+ $arg1 (+ $i 1))
            loop j 16 [
                do [
                    bb_@@(+ $arg1 $i)_step_@j = bb_@@(+ $arg1 (+ $i 1))_step_@j
                ]
            ]
        ]
    ]
    bb_channels = (- $bb_channels 1);
]

newgui boombox [
    guinoautotab [
        loop i $bb_channels [
            guilist [
                guistayopen [
                    guibutton " " [bb_removechan @i] "exit"
                    guifield bb_ch_@i 3
                    guistrut 1
                    loop j 16 [
                        do [
                            guicheckbox "" [
                                bb_ch_@[@@i]_step_@@j
                            ]
                        ]
                    ]
                ]
            ]
        ]
        guistayopen [
            guibutton "Add Sequence" [
                bb_channels = (+ $bb_channels 1)
                bb_ch_@bb_channels = 0
            ]
        ]
    ]
] " Boombox! "