{**********************************************************************}
{ Set mode								}
{**********************************************************************}

procedure test_set_mode;
const
MONO = 5;
VMONO = 7;
begin
    if get_display_type = MONO then set_mode(7)
    else if get_display_type = VMONO then set_mode(7)
    else set_mode(3);
end;