\n";
print " $text{'dev_device'} | \n";
print " | \n";
print " $text{'dev_speed'} | \n";
foreach $s (1, 2, 4, 8, 16, 32, 48, undef) {
printf " %s\n",
$s, $s eq $config{'speed'} ? 'checked' : '',
$s ? $s.'x' : $text{'dev_other'};
$found++ if ($s eq $config{'speed'});
}
printf " | \n",
$found ? '' : $config{'speed'};
print " $text{'dev_extra'} | \n";
printf " | \n",
$config{'extra'};
print " |