table of radio buttons

[jury]

These two combined batches of radio buttons seem to work well - but I'd like to put them into two columns (or three even).
I've tried constructing a table but nothing would work. Please give me a clue or better yet an small example.

Thanking whoever responds,

jury


groupChoice$ = "Two"

[drawPage]
cls
radiogroup #rgroup2, "Civ,Crim,Admin,Fam,Costs,UKHL,UKPC,ECHR,ScotSC,Misc,QB,EWPCC,Mercantile,Pat,TCC,B number for EWHC (current years),Comm,Ch", groupChoice2$
print

groupChoice$ = "One"


radiogroup #rgroup, "2009,2008,2007,2006,2005,2004,2003,2002,2001,2000,1999,1998,1997,1996,1995,1994,1993,1992,1991,1990,1989,1988,1987,1986 ,1985,1984,1983,1982,1981,1980,1979,1978,1977,1976,1975,1974,1973,1972,1971,1970,1969,1968,1967,1966,1965,1964,1963,1962, 1961,1960,1959,1958,1957,1956,1955,1954,1953,1952,1951,1950,1949,1948,1947,1946,1945,1944,1943,1942,1941,1940,1939,1938,1 937,1936,1935,1934,1933,1932,1931,1930,1929,1928,1927,1926,1925,1924,1923,1922,1921,1920,1919,1918,1917,1916,1915,1914,19 13,1912,1911,1910,1909,1908,1907,1906,1905,1904,1903,1902,1901,1900,1899,1898,1897,1896,1895,1894,1893,1892,1891,1890,188 9,1888,1887,1886,1885,1884,1883,1882,1881,1880,1879,1878,1877,1876,1875,1874,1873,1872,1871,1870,1869,1868,1867,1866,1865 ,1864,1863,1862,1861,1860,1859,1858,1857,1856,1855,1854,1853,1852,1851,1850,1849,1848,1847,1846,1845,1844,1843,1842,1841, 1840,1839,1838,1837,1836,1835,1834,1833,1832,1831,1830,1829,1828,1827,1826,1825,1824,1823,1822,1821,1820,1819,1818,1817,1 816,1815,1814,1813,1812,1811,1810,1809,1808,1807,1806,1805,1804,1803,1802,1801,1800", groupChoice$
print
link #exec, "Execute!", [processAction]
print
print aTranslated$
wait

[processAction]
cls
groupChoice$ = #rgroup selection$()
groupChoice2$ = #rgroup2 selection$()
print groupChoice$+" "+groupChoice2$
link #cont, "Continue", [drawPage]
wait


[kokenge]

Would it hurt your application to put your choices in a drop-down.
Normally radio buttons are used where there are fewer choices.

[Psycho]

I would agree with kokenge's suggestion that drop-down lists would be much better suited for this.
See sample below:

'load items into arrays
fullgroup2$="Civ,Crim,Admin,Fam,Costs,UKHL,UKPC,ECHR,ScotSC,Misc,QB,EWPCC,Mercantile,Pat,TCC,B number for EWHC (current years),Comm,Ch"
dim group1$(220)
dim group2$(18)
for x = 1 to 18
   group2$(x)=word$(fullgroup2$,x, ",")
next x

fullgroup1$="2009,2008,2007,2006,2005,2004,2003,2002,2001,2000,1999,1998,1997,1996,1995,1994,1993,1992,1991,1990,1989,1988,1987,1986 ,1985,1984,1983,1982,1981,1980,1979,1978,1977,1976,1975,1974,1973,1972,1971,1970,1969,1968,1967,1966,1965,1964,1963,1962 , 1961,1960,1959,1958,1957,1956,1955,1954,1953,1952,1951,1950,1949,1948,1947,1946,1945,1944,1943,1942,1941,1940,1939,1938, 1 937,1936,1935,1934,1933,1932,1931,1930,1929,1928,1927,1926,1925,1924,1923,1922,1921,1920,1919,1918,1917,1916,1915,1914,1 9 13,1912,1911,1910,1909,1908,1907,1906,1905,1904,1903,1902,1901,1900,1899,1898,1897,1896,1895,1894,1893,1892,1891,1890,18 8 9,1888,1887,1886,1885,1884,1883,1882,1881,1880,1879,1878,1877,1876,1875,1874,1873,1872,1871,1870,1869,1868,1867,1866,186 5 ,1864,1863,1862,1861,1860,1859,1858,1857,1856,1855,1854,1853,1852,1851,1850,1849,1848,1847,1846,1845,1844,1843,1842,1841 , 1840,1839,1838,1837,1836,1835,1834,1833,1832,1831,1830,1829,1828,1827,1826,1825,1824,1823,1822,1821,1820,1819,1818,1817, 1 816,1815,1814,1813,1812,1811,1810,1809,1808,1807,1806,1805,1804,1803,1802,1801,1800,END"

a=1
while nextword$<>"END"
   nextword$=word$(fullgroup1$,a,",")
   if nextword$="END" then exit while
   group1$(a)=nextword$
   a=a+1
wend

'create listboxes
listbox #choice1, group1$(), 0
print " ";
listbox #choice2, group2$(), 0
print " ";
link #selected, "SELECT", [selection]
wait

'print selections
[selection]
print:print
print #choice1 selection$();
print " ";
print #choice2 selection$()
end

John "Psycho" Siejkowski

[StefanPendl]

Using Johns' code one can get rid of the enormous string for the years too.

    'load items into arrays
    StartYear=2009
    EndYear=1800

    dim group1$(StartYear - EndYear + 1)
    dim group2$(18)

    fullgroup2$="Civ,Crim,Admin,Fam,Costs,UKHL,UKPC,ECHR,ScotSC,Misc,QB,EWPCC,Mercantile,Pat,TCC,B number for EWHC (current years),Comm,Ch"

    for x = 1 to 18
        group2$(x)=word$(fullgroup2$,x, ",")
    next x

    for a = 1 to StartYear - EndYear
        group1$(a)=str$(StartYear - a + 1)
    next

    'create listboxes
    listbox #choice1, group1$(), 0
    print " ";
    listbox #choice2, group2$(), 0
    print " ";
    link #selected, "SELECT", [selection]
    wait

    'print selections
[selection]
    print:print
    print #choice1 selection$();
    print " ";
    print #choice2 selection$()
    end

[jury]

Thanks people - much better ideas than I had.

Cheers,

jury