print '<tr><td>Position:</td><td><select name="hdtextstyle" onchange="ifrunon">';
print '<option value="newline">New Line</option>';
print '<option value="runon">Runon</option>';
print '</select>';
print '</td></tr>';
my $textstyle = param('hdtextstyle');
if (param(hdtextstyle) eq "Runon") {
print '<tr><td>$textstyle</td></tr>';
}