powered by
inpboxlist(vnames,ltitle)
vnames<-as.character(1:20)
ltitle<-'Number choice'
ans<-inpboxlist(vnames,ltitle)