struct PersonalReq *CreateReq(ULONG flags, Tag tag1, ...)
{
    struct PersonalReq *pr;
    struct Window *aw;
    SHORT left, top;
    BOOL activate, scrfront;

    activate = TRUE;
    scrfront = FALSE;
    if ((aw = IntuitionBase->ActiveWindow) != NULL) {
        if (DoingARexx)
            scrfront = TRUE;
        else {
            if (aw->WScreen != MainScreen)
                activate = FALSE;
        }
    }
    pr = CreatePersonalReq(PRQ_TextPtr, WinText,
                                  PRQ_GTextPtr, GadgText,
                                  PRQ_Screen, MainScreen,
                                  PRQ_Font, PersonalFont,
                                  PRQ_HorizThick, ScrXShift,
                                  PRQ_VertThick, ScrYShift,
                                  PRQ_Pointer, GetMPointer(MP_ARROW),
                                  PRQ_Activate, activate,
                                  PRQ_ScreenToFront, scrfront,
                                  PRQ_UserFlags, flags,
                                  PRQ_Beep1, pargen_s.agg_aud ? Do_audgogad : NULL,
                                  PRQ_Beep2, pargen_s.agg_aud ? Do_audgokey : NULL,
                                  PRQ_AutoCenter, FALSE,
                                  PRQ_JoinStrGads, TRUE,    // can be overriden by tag1 contents
                                  PRQ_KeepStrGads, TRUE,
                                  PRQ_DoubleNumGads, (PersonalFont->tf_XSize > 30),
                                  PRQ_CycleStyle, CycleGadgStyle,
                                  TAG_MORE, &tag1); // no TAG_END required
    if (pr) {
        CentReqEdges(pr->Width, pr->Height, &left, &top);
        SetPReqAttrs(pr, PRQ_Left, left, PRQ_Top, top, TAG_END);
    }
    else DoAlert(MessText[TMS_NOWINMEM]);

    return(pr);
}