@EVENTLOAD
#DIM DYNAMIC DELMONEY
#DIM DYNAMIC DELITEMS
PRINTFORMDL Delete stuff?
CALL ASK_YN
SIF RESULT
    RETURN

LOCAL = LINECOUNT
$OPTIONS
IF DELMONEY
    SETCOLOR C_AQUA
ELSE
    RESETCOLOR
ENDIF
PRINTFORML [0] - Delete money
IF DELITEMS
    SETCOLOR C_AQUA
ELSE
    RESETCOLOR
ENDIF
PRINTFORML [1] - Delete items
IF !DELITEMS && !DELMONEY
    SETCOLOR C_GRAY
ELSE
    RESETCOLOR
ENDIF
PRINTFORML [2] - Execute
RESETCOLOR
PRINTFORMDL [3] - Quit

INPUT
SELECTCASE RESULT
    CASE 0
        DELMONEY = !DELMONEY
    CASE 1
        DELITEMS = !DELITEMS
    CASE 2
        IF !DELITEMS && !DELMONEY
            REUSELASTLINE No options selected.
            WAIT
        ELSE
            IF DELMONEY
                VARSET MONEY
            ENDIF
            IF DELITEMS
                VARSET ITEM
                VARSET LOG_SALES
            ENDIF
            FONTBOLD
            PRINTFORMDL BALEETED!
            FONTREGULAR
            FORCEWAIT
            RETURN
        ENDIF
    CASE 3
        RETURN
    CASEELSE
        REUSELASTLINE Invalid option.
        WAIT
ENDSELECT

CLEARLINE LINECOUNT - LOCAL
GOTO OPTIONS