inpboxe4c2(vlabel, vcombo1, vcombo2, inp)
inpboxe4c2.png
To get the menu, just use the following code:
vlabel<-c('matrix1','matrix2','matrix3','matrix4','combo1','combo2')
vcombo1<-c('a1','b1','c1','d1')
vcombo2<-c('a2','b2','c2','d2')
inp<-c('M','N','S','T',0,0)
ans<-inpboxe4c2(vlabel,vcombo1,vcombo2,inp)