bb_channels = 0;

bb_removechan = [
	bb_num = (- $bb_channels $arg1);

	loop i $bb_num [
		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 [
	guititle "Boombox!";
	loop i $bb_channels [
		do [
			guilist [
				guistayopen [
					guibutton "" [bb_removechan @i] "exit"
					guifield bb_ch_@i 3;
					loop j 16 [ do [ guicheckbox "" [ bb_ch_@@(i)_step_@@j ] ] ]
				]
			]
		]
	]
	guistayopen [
		guibutton "+" [
			bb_channels = (+ $bb_channels 1)
			bb_ch_@bb_channels = 0;
		]
	]
]