elsif ($word eq "radio")
                {if ($debug) {print "Radio-";}
                $count++;
                eval "\$answer$count=\"\";";
                $things=nextword;
                @things=split(/\s/, $things);
                foreach $item (@things)
                foreach $item (@things)
                        {eval "\$textframe$fcount->Radiobutton(-text => '$item', -variable => \\\$answer$count, -value => '$item')
                                ->pack(-side => 'left', -fill => 'x');";}