' BUDGET.BAS
' This program helps you figure out how much money is
'   left over after you've paid your monthly bills.

CLS

COLOR 2                 ' green foreground
PRINT "Budget Calculator"
COLOR 7                 ' restore default white foreground
PRINT
INPUT "Enter your total income for this month:  $", total!
PRINT
INPUT "How many bills will you have this month?  ", bills%

FOR i% = 1 TO bills%
    PRINT "Enter expense #"; i%;
    INPUT ":  $", thisExpense!
    total! = total! - thisExpense!
NEXT i%

PRINT
PRINT "You have $"; total!; "left over this month."

