inpboxe6k2(vlabel, inp)
inpboxe6k2.png
To get the menu, just use the following code:
vlabel<-c('matrix1','matrix2','matrix3','matrix4','matrix5','matrix6','option1','option2')
inp<-c('M','N','S','T','U','V','TRUE','FALSE')
ans<-inpboxe6k2(vlabel,inp)