string main_question = "Favorite color?";
list options = ["Blue", "Red", "Green", "Yellow", "Purple", "None"];
integer main_font_size = 20;
integer options_font_size = 15;
integer questions;
integer face = 1;
integer choice;

menu (string main_question, integer main_font_size, list options, integer options_font_size)

{
    questions = llGetListLength(options);
    integer rows = (integer) (questions/2 +1);

    string CommandList = ""; 
    string current_line = main_question;
    integer vertical_position = 20;
    
    CommandList = osMovePen( CommandList, 20, vertical_position );
    CommandList += "FontSize " + (string)main_font_size + ";";
    CommandList = osDrawText( CommandList, current_line ); // PUT QUESTION ON TOP
    
    vertical_position += (integer) (main_font_size * 3);
    
    integer index=0;
    
    CommandList += "FontSize " + (string)options_font_size + ";";
    
    while (index < rows)
    { 
        CommandList = osMovePen( CommandList, 20, vertical_position );
        current_line = llList2String(options, index*2);
        CommandList = osDrawText( CommandList, current_line ); //PUT FIRST OPTION ON LEFT OF ROW
        
        if (index<questions+1)
        {
            CommandList = osMovePen( CommandList, 135, vertical_position );
            current_line = llList2String(options, index*2+1);
            CommandList = osDrawText( CommandList, current_line ); //PUT SECOND OPTION ON RIGHT 
        }
        ++index;
        vertical_position += (integer) (options_font_size * 3);        
    }
    
    // NOW PRINT THE WHOLE MENU ON THE PRIM
    osSetDynamicTextureDataBlendFace( "", "vector", CommandList, "width:256,height:256", FALSE, 2, 0, 255, face );
}    


default 
{
    
    state_entry()
    {
        menu (main_question, main_font_size, options, options_font_size);
    }
    
    touch_end(integer total_number) 
    {
        vector pos = llDetectedTouchST(0);
        integer y = llFloor(256 * (1-pos.y));
        integer x = llFloor(256 * (pos.x));
         
        if (y>main_font_size*3) 
        {
            integer choice = (integer) (2*(y-main_font_size*3)/(options_font_size*3));
        
            if (x>120) ++choice;
            if (choice<questions+1) llSay(0, "You chose option "+ (string)choice);
        }                         
    }
}