inpboxe6k3(vlabel, inp, dis = FALSE)
inpboxe6k3.png
To get the menu, just use the following code:
vlabel<-c('mat1','mat2','mat3','mat4','mat5','mat6','opt1','opt2','opt3')
inp<-c('M','N','S','T','U','V','TRUE','FALSE','TRUE')
ans<-inpboxe6k3(vlabel, inp, dis = FALSE)