//See Define.

//These might be in the System task.
DefineLoad("ST_YES_NO", "(Yes or No)");
DefineLoad("ST_EXIT", "Exit");
DefineListLoad("ST_NO_YES_LIST", "No\0Yes\0");

//New strings might be loaded for each user
//to override.

"Spanish";
if (YorN) {
    DefineLoad("ST_YES_NO", "(Si or No)");
    DefineLoad("ST_EXIT", "Salida");
    DefineListLoad("ST_NO_YES_LIST", "No\0Si\0");
}

Bool Quit()
{
    Bool res;
    U8  *st;
    I64  i;

    while (TRUE)
    {
        "%S %S?", "ST_EXIT", "ST_YES_NO";
        st = StrGet;
        i = DefineMatch(st, "ST_NO_YES_LIST", LMF_IGNORE_CASE);
        if (i >= 0)
        {
            res = i;
            break;
        }
        Free(st);
    }

    return res;
}

Quit;