[Prev] [Next] [Contents] [Commodore] [New] [Search] [Home]

INCOME/EXPENSE BUDGET EXAMPLE
 5 PRINT"{CLEAR}"
 10 PRINT"MONTHLY INCOME":INPUT IN
 20 PRINT
 30 PRINT"EXPENSE CATEGORY 1":INPUT E1$
 40 PRINT"EXPENSE AMOUNT":INPUT E1
 50 PRINT
 60 PRINT"EXPENSE CATEGORY 2":INPUT E2$
 70 PRINT"EXPENSE AMOUNT":INPUT E2
 80 PRINT
 90 PRINT"EXPENSE CATEGORY 3":INPUT E3$
 100 PRINT"EXPENSE AMOUNT":INPUT E3
 110 PRINT"{CLEAR}"
 120 E=E1+E2+E3
 130 EP=E/IN
 140 PRINT"MONTHLY INCOME: $"IN
 150 PRINT"TOTAL EXPENSES: $"E
 160 PRINT"BALANCE EQUALS: $"IN-E
 170 PRINT
 180 PRINT E1$"="(E1/E)*100"% OF TOTAL EXPENSES"
 190 PRINT E2$"="(E2/E)*100"% OF TOTAL EXPENSES"
 200 PRINT E3$"="(E3/E)*100"% OF TOTAL EXPENSES"
 210 PRINT
 220 PRINT"YOUR EXPENSES="EP*100"% OF YOUR TOTAL INCOME"
 230 FORX=1TO5000:NEXT:PRINT
 240 PRINT"REPEAT? (Y OR N)":INPUT Y$:IF Y$="Y"THEN 5
 250 PRINT"{CLEAR}":END

NOTE: IN can NOT = 0, and E1, E2, E3 can NOT all be 0 at the same time.


[Prev] [Next] [Contents] [Commodore] [New] [Search] [Home]
This page has been created by Sami Rautiainen.
Read the small print. Last updated November 14, 1998.