VERSI 2.0 H ADD'L SOFTWARE FROM\ SOFTWARE, BOX AF, WOODBRIDGE, CT.06525  X0 \ SETS PUT CRT  X1 SETS PUT ER  #0,80 ( #1,90 D2 FIRST ENTERED JULY 4,1977....FINALLY DEBUGGED JULY 19,1977 < .....IT WKS -F CREATIVE COMPUTING MAYJUNE 1977 PG.57 P HBR Z Q972 \ WIDTH OF PUT d Q27 n &x D18),E$Q25),VQ),FQ),A$25)  26)\\ 8 19),"RECURSIVE BUDGETING MODEL"\\28),"* * *" 7"SALARY/WAGES","OTHER INCOME","FEDERAL INCOME TAX" ="STATE & LOCAL TAX","SOCIAL SECURITY","UNEMPLOYMENT INS" 8"HEALTH INSURANCE","LIFE INSURANCE","CONTRIBUTIONS" 8"OTHER DEDUCTIONS","RENT/MORTGAGE","LIFE INSURANCE" :"HEALTH INSURANCE","HOUSE INSURANCE","AUTO INSURANCE" 3"CAR PAYMENTS","LOAN PAYMENTS","TRASH REMOVAL" "OTHER FIXED EXPENSES" ."FOOD/BEVERAGE","CLOTHING","DRY CLEANING" ;"BARBER/BEAUTY","HOME MAINTAINENCE","HOME HEAT'G FUEL" 0"WATER","ELECTRICITY","TELEPHONE","GAS/OIL" 8"AUTO MAINTAINENCE","FARES/TOLLS/PARKING","DENTIST" 3"PHYSICIAN","DRUGS/SUNDRIES","SCHOOL EXPENSES" 7"FAMILY ALLOWANCE","CLUBS/LODGES","THEATRE/SPORTS" ="RESTAURANTS","OTHER ENTERTAINMENT","MAG'S/BOOKS/PAPERS" .""SITTERS","CHILD CARE","VACATION SAVINGS" 5,"OTHER SAVINGS","CONTRIBUTIONS","OTHER EXPENSES" @6 \"SELECT YOUR BUDGETING PERIOD BY NUMBER. LATER IT WILL" "@ "BE EXTENDED TO ONE YEAR."\ ?J 3),"1-WEEKLY",15),"2-BIWEEKLY",30),"3-SEMIMONTHLY", T 45),"4-MONTHLY"\ $^ "WELL..... ",P\ P4 n ,h P1P52P2P26P3P24P4P12 Ar \"ALRIGHT....FIRST LET'S LOOK AT INCOME FOR THE PERIOD."\ :| A$\A$," $",\ D0)\ A$\A$," $",\ D1)  T1D0)D1)\ 8 \"OK....NOW LET'S LOOK AT PAYCHECK DEDECTIONS."\ 9 J2 9\ A$\A$,\" $",DJ)\T2T2DJ)\ J\ ; \"OK.....NOW LET'S TAKE A LOOK AT FIXED EXPENSES."\ 9 J10 18\ A$\A$,\" $",DJ)\T3T3DJ)\ J  D1T2T3\S1T1D1\SQ9 : \"OK....AT THIS TIME OUR TABLE LOOKS LIKE THIS: "\  X1 \ TURN THE ER  #X," "   \#X," "\#X, 19), G #X,"RECURSIVE BUDGETING MODEL"\#X," "\#X, 27),"* * *"\#X," "   : #X," "\#X,20),"SPENDABLE INCOME SUMMARY "\#X," " ; \#X,3),"ACCOUNT",42),"PERIOD",57),"ANNUAL" 8 \#X,"TOTAL INCOME",40),\#X, T1,\#X,55), ;& #X, T1P\ #X,\#X, 3),"PAYCHECK DEDUCTIONS",25), 0#X, T21)\#X," " 5: #X, 3),"FIXED EXPENSES:",25),\#X, T31), *D #X, 40),\#X, D11),\#X, 55), N #X,D11)P BX #X, 41),"-------",55),"--------"\#X,"SPENDABLE INCOME", -b #X,40),\#X, S1,\#X,55),\ #X,S1P 2l #X, 41),"=======",55),"========"\#X," " v \#X," "\#X," " 9 #X,12)\ X0 \ TURN OFF ER,ALSO ADVANCE TOF  \R00 C \"OK....NOW FOR THE FIRST ROUND OF VARIABLE EXPENSES. DON'T" B "PINCH YOURSELF IN YOUR ESTIMATES (WITHIN REASON). LET THE" 8 "COMPUTER HELP YOU REFINE YOUR BUDGET LATER ON."\  POOT ( J0 Q\ E$1J20),J1)20)) A E$1J20),J1)20)),\ " $",VJ)\V2V2VJ)\ J  \\ B "YOUR BUDGET FOR THE FIRST ROUND TOTALLED $",V2," . THIS" = "COMPARES TO SPENDABLE INCOME OF $",S1," . WE HAVE " F"PRORATED THE DIFFERENCE, $",S1V2," OVER ALL VARIABLE EXPENSE" "ACCOUNTS."\ 3 \ J0 Q\VJ)VJ)V2S1)\ J\V2S1\ ?  "NOW WE BEGIN THE BUDGET REFINEMENT PHASE. MAKE AS MANY" ? "PASSES AS YOU LIKE. AS YOU REVIEW EACH ACCOUNT, DECIDE" ?  "WHETHER TO FREEZE IT OR TO LEAVE IT FOR ANOTHER PASS."\ 9* "HINT: DON'T BE IN A HURRY TO FREEZE AN ACCOUNT."\ =4 "YOUR TASK IS FINISHED WHEN ALL ACCOUNTS ARE FROZEN."\ >  H J0 Q\\ VJ)0 t R K\E$1J20),J1)20)) ," $",VJ)\" CHANGE ('Y' OR 'N') ",A$ *f A$"N"  A$"Y" z \ p \ /z "REVISED AMOUNT $",A\ AVJ)    * " FREEZE ( 'Y' OR 'N' ) ",B$\  A$"Y" B$"Y"    A$"Y" B$"N" L   A$"N" B$"N" t   V2V2VJ)\F2F2VJ) # S9FJ)\FJ)VJ)\VJ)S9\S90  VJ)0\ ? "OK....THE ACCOUNT HAS BEEN FROZEN AT $",FJ)," ."\ t   V2V2A\F2F2A  S8A\AFJ)\FJ)S8\S80  VJ)0 $ 3. K0 Q\VK)VK)S1F2)V2)\ K\V2S1F2 G8"OK,THE ACCOUNT HAS BEEN FROZEN AT $",FJ),", AND THE DIFFERENCE" 0B"PRORATED OVER REMAINING ACCOUNTS."\\ t L V2V2VJ)A\VJ)A 3V K0 Q\VK)VK)S1F2)V2)\ K\V2S1F2 D` "OK,THE VALUE HAS BEEN CHANGED TO $",A,", AND THE DIFFERENCE" +j "PRORATED OVER REMAINING ACCOUNTS."\ t J\\R0\ J0 Q ~ VJ)0 RR1  J  RQ  7 J0 Q\FJ)FJ)F2S1)\ J\V20\F2S1\ J  DUPLICATE @ "NOW LET'S RECAP VARIABLE EXPENSES BEFORE GOING ON TO THE" ( "NEXT ROUND. "\\R0R01\V10\F10 3 J0 Q\VJ)VJ)V2S1F2))\ J\V2S1F2  X1 \ TURN ER 5 #X,7),"INTERIM SUMMARY OF VARIABLE EXPENSES",  #X,": NUMBER ",%4I,R0  SQ9 ? \#X, 3),"ACCOUNTS",28),"NUMBER",37),"PERCENT", ' #X,51),"AMOUNT",61),"PERCENT" (  \ J0 Q\ VJ)FJ)0   VJ) V1V11 F1F11  J ( %#9F2 82 #X,"VARIABLE EXPENSES",29),\#X, V1,\#X, 39), -< #X,V1V1F1)100,\#X, 46),\#X, V2, !F #X, 59),V2T1100\#X," " *P #X,"FROZEN EXPENSES",29),F1,39), Z #X, F1V1F1)100,46), d #X, F2,58),F2T1100 )n #X,32),"-------",50),"--------" )x #X,3),"TOTALS",29),F1V1,46), = #X, V2F2\#X, 32),"=======",50),"========"\#X," "  \#X," "\#X," "  \  B #X,8),"INTERIM STATUS OF VARIABLE EXPENSES NUMBER ",%3I,R0 > \#X,3),"ACCOUNT",30),"VARIABLE",43),"FROZEN",  #X,54),"PERCENT"  \#X," " ( J0 Q\ VJ)FJ)0  ) FJ)  #X,29),VJ),55),  #X, VJ)T1100\   #X,40),FJ),55),  #X,FJ)T1100  R25)R25 #X," "  J\#X," "\R20  \#X," "  #X,12) " X0 \ OFF ER , OFF ER >6\"NOW WE MAKE ANOTHER PASS THROUGH VARIABLE EXPENSES."\ @ > BJ "PLEASE INPUT THE REQUESTED INFORMATION BEFORE WE PROVIDE A" &T "FINAL DETAIL OF YOUR BUDGET."\ ,^ 18),"* USE NO COMMAS NOR COLONS *"\ #h "NAME ",A$\ "BUDGET YEAR ",A r B A$)\B16B2 | OFF ER POOT  X1  OFF ER POOT    \#X," " D #X, B),"* THE ",A$," FAMILY BUDGET FOR ",%5I,A," *"\#X," "  \#X," " ; #X,6),"ACCOUNT",20),"|",26),"INCOME",38),"|", ) #X,44),"EXPENSE",56),"|PERCENT" < #X,20),"|-----------------|-----------------| TOTAL" < #X,20),"| PERIOD | ANNUAL | PERIOD | ANNUAL |INCOME" J#X,"--------------------|--------|--------|--------|--------|-------"   D #X,"| | | | | "\  C #X,"INCOME",20),"|",%$7F0,T1,",|",%$7F0,T1P,",| |", $ #X," | ",%5F1,T1T1100 & #X,"------",20), 0  =: A$\#X,A$,20),"|",%$7F0,D0),",|",%$7F0,D0)P,",|", .D #X," | |",%5F0,D0)T1100 =N A$\#X,A$,20),"|",%$7F0,D1),",|",%$7F0,D1)P,",|", .X #X," | |",%5F0,D1)T1100 b #X,20), l  #v #X,"PAYCHECK DEDUCT'S",20), K #X,"| | |",%$7F0,T2,",|",%$7F0,T2P,",|",%5F1,T2T1100 # #X,"-----------------",20),   3 J2 9\ A$\ DJ)0  #X, A$,20), P#X,"| | |",%$7F0,DJ)," |",%$7F0,DJ)P," |",%5F1,DJ)T1100  J\#X, 20),    #X,"FIXED EXPENSES",20), K #X,"| | |",%$7F0,T3," |",%$7F0,T3P," |",%5F1,T3T1100  #X,"--------------",20),   4 J10 18\ A$\ DJ)0  #X,A$,20), A #X,"| | |",%$7F0,DJ)," |",%$7F0,DJ)P," |",  #X,%5F1,DJ)T1100   J\ #X, 20),   "  #X,"VARIABLE EXPENSE",20), <*#X,"| | |",%$7F0,F2," |",%$7F0,F2P," |", 4 #X,%5F1,F2T1100 #> #X,"-----------------",20), H  =RJ0Q\ FJ)0 p #X,E$1J20),J1)20)),20), A\ #X,"| | |",%$7F0,FJ)," |",%$7F0,FJ)P," |", f #X, %5F1,FJ)T1100 p J\#X," " z \#X," "  \#X," "\   SQ9\ WIDTH % L1 S\#X,"-",\ L\#X," "\ % L1 S\#X,"=",\ L\#X," "\ . "PRESS C TO CONTINUE ",\ A$\#X," "\  L1 4\#X," "\ L\  AVJ)   AV2  F"* YOU HAVE EXCEEDED YOUR BALANCE OF SPENDABLE INCOME BY $",AS1, "" *"\"REVISED AMOUNT $",A\  % \ A$\ A$\#X," "\#X," "\SQ9 ) X1 S90 \ NER WIDER PUT  #X,12)\ Y1 900\ Y & #X,21),"* EXPENSE BAR CHART *" 0 #X,20),"PERCENT OF TOTAL INCOME"\#X," " $ \#X," " . \#X," " #8 J2 18\ A$\ DJ)0 V B ADJ)T1300)\#X, A$, L V J ` J0 Q\ FJ)0 ~ 2j AFJ)T1300)\#X,E$1J20),J1)20)), t ~ J\#X," "  \#X," "\#X," "  \#X," "\#X," "  OFF ER  #X,12)\ Y1 500\ Y X0  OFF ER  M #X,20)," - - - - 5 - - - - 10 - - - - 15 - - - - 20"     A1  A2 - #X,20),\K1 A\ #X,"]",\ K\#X," "   OFF ER ( X0 2 < F OFF ER P X0 Z OFF ER d n Dx \"*** TRY AGAIN....CHOOSE A NUMBER 1....2....3....OR...4...." 6 , #X, E$1J20),J1)20)),\R2R21\  #X,20),"]"\   #X,20),"]"\  RR1  J  H ADD'L SOFTWARE FROM\ SOFTWARE, BOX AF, WOODBRIDGE, CT.06525