[
	// Syntax: _select(default, list, name, style, misc)

	$default = $_args[0];
	$list = $_args[1];
	$name = $_args[2];
	$style = $_args[3];
	$misc = " " & $_args[4];

	$nl = chr(13);
	
	$list = foreach($list) {[
		$d = "";
		$offset = strpos($_data, $nl);
		if($offset != "-1") {[$_data = substr($_data, 0, negative(1));]};

		if(strpos($_data, "<!>") != "-1") {[
			$value = substr($_data, 0, strpos($_data, "<!>"));
			$caption = substr($_data, 3 + strpos($_data, "<!>"));
		]} else {[
			$value = $_data;
			$caption = $_data;
		]};

		if($default == $value) {[$d = " selected";]};

		if($_data != "")
			$_data = {<option[$d] value="[$value]">[$caption]</option>};
	]};
]
<select name="[$name]" style="[$style]" [$misc]>
	[$list]
</select>