/***************************************************************************/
void Update_Time()

{
     char time_str[35];
    char *message;
      
    byte minutes,hours,day_o_week,day_o_month,month,am_pm,i,time_len,color;
    byte x,y,max_time_str = 34;

    _asm mov ah,2ch
    _asm int 21h
    _asm mov minutes,cl
    _asm mov hours,ch

     if (current_minute != minutes){

        current_minute = minutes;
         _asm mov ah,2ah        
        _asm int 21h
        _asm mov day_o_week,al
        _asm mov day_o_month,dl
        _asm mov month,dh

        am_pm = 0;
         if (hours >= 12) {
            am_pm = 1;
            hours -=12;
        }
        if (hours == 0)
            hours = 12; 
            
        switch (day_o_week){
            case  0:
                strcpy(time_str,"Sunday, ");
                break;
            case  1:
                strcpy(time_str,"Monday, ");
                break;
            case  2:
                strcpy(time_str,"Tuesday, ");
                break;
            case  3:
                strcpy(time_str,"Wednesday, ");
                break;
            case  4:
                strcpy(time_str,"Thursday, ");
                break;
            case  5:
                strcpy(time_str,"Friday, ");
                break;
            case  6:
                strcpy(time_str,"Saturday, ");
                break;
        }
        switch (month){
            case  1:
                strcat( time_str,"January");
                break;
            case  2:
                strcat( time_str,"February");
                break;
            case  3:
                strcat( time_str,"March");
                break;
            case  4:
                strcat( time_str,"April");
                break;
            case  5:
                strcat( time_str,"May");
                break;
            case  6:
                strcat( time_str,"June");
                break;
            case  7:
                strcat( time_str,"July");
                break;
            case  8:
                strcat( time_str,"August");
                break;
            case  9:
                strcat( time_str,"September");
                break;
            case  10:
                strcat( time_str,"October");
                break;
            case  11:
                strcat( time_str,"November");
                break;
            case  12:
                strcat( time_str,"December");
                break;
        }

                /* day, hours,  minutes and am/pm */
        sprintf( (time_str + strlen(time_str))," %d, %d:%02d ",day_o_month,hours,minutes);

        if (am_pm) strcat( time_str,"pm");
        else strcat(time_str,"am");

                /* display time */
        time_len = strlen(time_str);
        message = time_str;
        color = (byte) (palette[header_palette][BACK] <<4) | (palette[header_palette][TEXT]);

            /* tigger timer special action if time expires */
        if (timer){
            if (!--timer){
                event.action = SPECIAL;
                event.data = 0;
            }    
        }
          // Determine where and if to display the time
        x = max_screen_x -2;
        y = 1;
        if ( !timer && timer_holder ){
            Fill_Screen(' ',0);
            if (screen_saver_message != NULL)
                message = screen_saver_message;

            max_time_str = time_len = strlen( message );
                /* invent a psuedo random number */
            x = time_len + clock_place % (max_screen_x - time_len);
            y = clock_place % max_screen_y;
        }
        else if (!show_time)
			return;

        Hide_Mouse();
        for (i=1;i <= time_len ;i++)
            Draw( (byte)(x-i),y,*(message+time_len-i),color);

            /* overlap old spot should new time be shorter */
        for (;i<max_time_str;i++)
            Draw( (byte)(x-i),y,' ',color);

        Show_Mouse();
    }
}

/***************************************************************************/
void Unselect_Fn()

{
    byte x,i;

    if (!selected_fn)
        return;

    i = selected_fn;

    for (i--;i>0;i--)
        if (special_item[i] != NULL)
            break;

    if (!i) x=0;
    else x=special_item[i]->item_number;

    Hide_Mouse();
    for (;x < special_item[selected_fn]->item_number;x++)
        Put_Color(x,max_screen_y,footer_color);
    Show_Mouse();    

    selected_fn = 0;    
}

/***************************************************************************/
void Select_Fn(x)

byte x;

{
    byte i;

    for (i=1;i<11;i++)
        if (special_item[i]!=NULL && special_item[i]->item_number>x)
            break;        

    if (i == selected_fn)
        return;

    if (i == 11){
        Unselect_Fn();
        return;
    }

    Unselect_Fn();

    selected_fn=i;
    for (i--;i>0 && special_item[i] == NULL;i--);

    if (!i) x=0;
    else x=special_item[i]->item_number;

    Hide_Mouse();
    for (;x< special_item[selected_fn]->item_number;x++)
        Put_Color(x,max_screen_y,footer_highlight);
    Show_Mouse();
}    

/***************************************************************************/
byte Old_Window(x,y)

byte x,y;

{
    byte window = (byte) win_index;

    for (window--;window!=255;window--)
        if (x>=Win[window].left && x<= Win[window].right &&
                y>=Win[window].top && y<= Win[window].bottom)
            return( (int) win_index - window);
    return( 0);
}

/***************************************************************************/
void Update_Mouse()

{
    unsigned int mouse_x,mouse_y,button;
    byte choice;
    Item *item;

    _asm mov ax,3        /* read current mouse position */
    _asm sub bx,bx            
    _asm sub cx,cx            
    _asm sub dx,dx
    _asm int 33h
    _asm mov mouse_x,cx
    _asm mov mouse_y,dx
    _asm mov button,bx

    mouse_x = mouse_x >> 3;
    mouse_y = mouse_y >> 3;

            /* decide what is going on with the mouse */

    if (mouse_x == 0 && mouse_y == 0)
        return;

    if (mouse_x == last_x && mouse_y == last_y && button == last_button)
        return;

        /* select item if the mouse is over a selectable item */

    choice = mouse_y-top-2;

    if ( mouse_x>left && mouse_x<right ){
        if ( choice>0 && choice<=current_menu->number_of_items){
            if ( choice!=current_item->item_number ){
                item = Number_To_Item( (byte) choice );
                if (item->first_line != NULL){
                    event.action = GOTO_ITEM;
                    event.data = choice;
                  }
              }
         }
        /*  this checks for top & bottom run off */
        else if ( last_y < bottom  && last_y > (byte)top+2 ){ 
            if ( last_y > mouse_y) 
                choice = 1;
            else
                choice = current_menu->number_of_items;
            item = Number_To_Item( (byte) choice );
            if (item->first_line != NULL){
                event.action = GOTO_ITEM;
                event.data = choice;
              }
        }
    }

        /*  highlight footer spots */
    if (mouse_y == max_screen_y )
        Select_Fn( (byte)mouse_x);
    else if (selected_fn)
        Unselect_Fn();

        /* left button */
    if ( !(last_button & 1) && (button & 1)){
        event.action = OTHER;
        if ( mouse_x>left && mouse_x<right && choice>0 && choice<=current_menu->number_of_items ){
            item = Number_To_Item( (byte) choice );
            if (item->first_line != NULL)
                event.action = DO_ITEM;
        }
        else if (selected_fn){
            event.action = SPECIAL;
            event.data = selected_fn;
        }        
        else if ( mouse_x < left || mouse_x > right || mouse_y > bottom || mouse_y < top){ 
            choice = Old_Window( (byte)mouse_x, (byte)mouse_y );
            if (choice > 0){
                event.action = ESCAPE;
                event.data = choice;
            }
        }
    }
    
        /* right button */
    if ( !(last_button & 2) && (button & 2) ){
        event.action = ESCAPE;
        event.data = 1;
    }

    timer = timer_holder;   /* reset timer */

    last_x      = mouse_x;
    last_y      = mouse_y;
    last_button = button;

    Show_Mouse();
}

/***************************************************************************/
void Get_Key_Input()

{
    char key_input;
    byte index;

    timer = timer_holder;

    key_input = getch();

    event.action = KEY_PRESS;
    event.data = key_input;

    if (!key_input)     /* if key input == 0 get the extended part */
        switch(key_input = getch()){
            case 71:   /* home */
            case 73:   /* page up */
                event.action = GOTO_TOP;
                return;
            case 72:   /* up arrow */
                event.action = MOVE_UP;
                return;
            case 75:   /* back arrow */
            case 83:   /* delete key */
                event.action = BACK_SPACE;
                event.data = 1;
                return;
            case 79:   /* end */
            case 81:   /* page down */
                event.action = GOTO_BOTTOM;
                return;
            case 80:   /* down arrow */
                event.action = MOVE_DOWN;
                return;
            default:
                    /* chech fn keys */
                if (key_input >58 && key_input < 69){
                    key_input -= 58;
                    if (special_item[key_input] != NULL){
                        event.action = SPECIAL;
                        event.data = key_input;
                    }
                    return;
                }            
                    /* check extended hot keys */
                for(index=11;index < hot_keys;index++){
                    if (special_item[index]->item_number == 0 && special_item[index]->title_length == key_input){
                        event.action = SPECIAL;
                        event.data = index;
                        return;
                    }
                }
                event.action = NO_ACTION;
                return;
        }
    switch(key_input){
        case 8:
            event.action = BACK_SPACE;
            event.data = 1;
            return;
        case 13:
            event.action = DO_ITEM;
            return;
        case 27:
            event.action = ESCAPE;
            event.data = 1;
            return;
        default:
                /* check regular hot keys */
            for(index=11;index < hot_keys;index++){
                if (special_item[index]->item_number == key_input){
                    event.action = SPECIAL;
                    event.data = index;
                    return;
                }
            }
            return;
    }
}

/***************************************************************************/
void Scan_For_Letter( key_input )

char key_input;

{
    Item *item = current_item->next_item;

    if (key_input == ' '){
        event.action = MOVE_DOWN;
        return;
    }

    key_input = key_input | 32;  /* ignore case */

    if (quick_select){
        if ( key_input > 48 && key_input <= 57 ){
            if ( key_input <= (byte) (current_menu->number_of_items + 48) ){
                item = Number_To_Item( (byte) (key_input - 48) );
                if ( item->first_line != NULL ){
                    Win[win_index].item = current_item = item;
                    event.action = DO_ITEM;
                }
            }
        }
        if ( key_input > 96  ){
                    /* 87 is becuase 'a' is actually 10 */
            if ( key_input <= (byte) (current_menu->number_of_items + 87 ) ){
                item = Number_To_Item( (byte) (key_input - 87) );
                if ( item->first_line != NULL ){
                    Win[win_index].item = current_item = item;
                    event.action = DO_ITEM;
                }
            }
        }
        return;
    }                

    for (; item != NULL; item = item->next_item)
        if (item->first_line != NULL && (*(item->title)|32) == key_input){
            event.action = GOTO_ITEM;
            event.data = item->item_number;
            return;
        }
    for (item = Home_Item(); item != current_item; item = item->next_item)
        if (item->first_line != NULL && (*(item->title)|32) == key_input){
            event.action = GOTO_ITEM;
            event.data = item->item_number;
            return;
          }
}            

/***************************************************************************/
void Wait_For_Event()

{
    Show_Mouse();
 
    event.action = NO_ACTION;

    while( event.action == NO_ACTION ){
        Update_Mouse();
        Update_Time();
        if (kbhit())
            Get_Key_Input();
    }

    Hide_Mouse();
}
/***************************************************************************/

void Pause_Until_Serious_Action( void )

{
    do
        Wait_For_Event();
    while (event.action == GOTO_ITEM);

    if (event.action != SPECIAL && event.action != ESCAPE)
        event.action = NO_ACTION;
}