FUNCTION MakeWifeHappy
** This function should be called when 
** oWifeMemory.GetPreviousMistakes()
** event fires

lAdmitMistake = .T.

IF lDidLast = lBoughtGift
    DO FixHouseHoldItem
ELSE
    DO BuyWifeGift
ENDIF
IF oWife.CheckStatus # CONST_WIFEHAPPY
    = MakeWifeHappy()
ENDIF
RETURN .T.

FUNCTION RespondToWife
nRandNumber = RIGHT(TRAN(RAND()),1)
DO CASE
    CASE nRandNumber $ "16"
        RETURN "Yes, dear"
    CASE nRandNumber $ "27"
        RETURN "You don't say."
    CASE nRandNumber $ "38"
        RETURN "That's interesting"
    CASE nRandNumber $ "49"
        RETURN "Hmmmm"
    CASE nRandNumber $ "50"
        RETURN "OK"
ENDCASE