"|:<<< < < ; 75>>772-++ !"!/ q H           d GAVERAGE 7GBUDGET7GCENTER55GDATEGFILENAMEGFILENAME1  GLOOP  GLOOP1GMENU-GMENU1GMENU3!&GMESSAGE GMESSAGE1  GMONTH  GMONTH#  GNAME2GNAME1  2GRESPONSEGRESPONSE1GRESPONSE2GRESPONSE3&&GRULERGSETUPSTRING$$GTITLEGTITLE1GYARDSTICK33GYTDFILENAME  G\0G\A  G\M.YTDPIE: :; ;< <;;;;;;;;Sacco Family Budgets - Actual Expenses YTD - thru December 1990 Rent Food Util qq 70/ # gi( f$%&| '(\027&l7.27C\027(s0p12H ( B)'*-acco Family Budgets - Actual Expenses TD - thru December 1990 ent ood til qq          'Message: v' v\v\v\v'    "YTDBGT91  "YTDBGT91 v' 'Macro Menu v'   $' Budget vs ActualMR5A@7$' Budget vs Actual MR5A@7 v' v\v\v\v'   9!'The "Setup" menu choice is run at the beginning of  $' Average Spending         5!'the new budget year to create the Year To Date     'Alt Mv'/xmMenu1~     :!'worksheet and provide some information necessary to 'Month #           9!'extract data out of the "Home Budgets Template For^ Actual^ Budget   ^Average ^Budget       v'MENU1 v'Print v'Create v'Savev'Retrieve v'List v'Setup  !'1-2-3".^ Y - T - D^ Y - T - D^ Variance"%^ACCT. #^DESCRIPTION ^Actual^Average ^Variance "% ^ACCT. # ^DESCRIPTION v'Pick Report to Print/v'Combine Files to Create New Year to Date$v'Save the Current File to Diskv'Retrieve a New Filev'List All Files on Disk,v'Set Up the New Y-T-D Budget Worksheet   \ \ \ \ \ \ \ \ \ \ \ \   '/xmMENU3~  '{home} '{home}/fs '/fr{NAME}{?}~ '/flo{?}~ '{goto}Message~   :! 'Please respond to the prompt above by entering an 8     1 V"  N/A;3 N/A  ^100 'SALARY & WAGES           1 "  N/A;  ^100 'SALARY & WAGES   - '/xlPlease Enter Month and Year: ~DATE~ v 'YTDBGT    '/xg\M~= '/xlFilename to Save YTD Worksheet Under ?~YTDFILENAME~   <! 'character filename. A good filename structure to use     1 9 "  N/A;3 N/A  ^110 'FEDERAL TAX RETURN           1 "  N/A;  ^110 'FEDERAL TAX RETURN     '{goto}RULER~/cYARDSTICK~~ '{?}~{r}{?}~    '/cYtdfilename~Filename~   ;! 'would be the letters YTDBGT followed by the last two     1 "  N/A;3 N/A  ^120 'INSURANCE REFUNDS           1 "  N/A;  ^120 'INSURANCE REFUNDS  v 'Loop =>% '{goto}DATE~{edit}{home}{r}{?}~  '/xg\M~    '/cYtdfilename~Filename1~   :! 'numbers of the current year (ie "91" for 1991). In     1 "  N/A;3 N/A  ^130 'PROPERTY TAX RETURN           1 "  N/A;  ^130 'PROPERTY TAX RETURN   / '/xlCenter Date Again (Y or N) ? ~CENTER~    ! '/rfrFilename~/rlrFilename~   0! 'this example, you would respond YTDBGT91.    1"  N/A;3 N/A ^140'STATE TAX RETURN         1 "  N/A;  ^140 'STATE TAX RETURN  '{if CENTER="Y"}/xgloop~   #'/rfrFilename1~/rlrFilename1~      1՞"  N/A;3 N/A ^150'ALL OTHER         1 "  N/A;  ^150 'ALL OTHER  '/reRULER~   '{goto}Message1~  \\\\\\\\ \ \ \ \  '{home}{d 2}/fcan{?}~   8'/xlFilename of New Years Home Budgets ?~Response~  3!' Please respond in all capital letters. P P P ^TOTAL INCOME P P  P   ^TOTAL INCOME   vv'<<=== Response1  '{goto}Name~  \\\\\\\\ \ \ \ \  '~{goto}AVERAGE~   '/reName~   "    1"  N/A;3 N/A ^200'AMERICAN EXPRESS         1 "  N/A;  ^200 'AMERICAN EXPRESS  8'/xnInput the Month # (Jan=1, Feb=2, Etc.)~MONTH#~   '/fccnMask~      1 "  N/A;3 N/A ^210'AUTO EXPENSE         1 "  N/A;  ^210 'AUTO EXPENSE   '{home}    vv' <<=== Response  'Message1:    1u"  N/A;3 N/A ^220'AUTO INSURANCE         1 "  N/A;  ^220 'AUTO INSURANCE   '/xg\M~   '~      1b"  N/A;3 N/A ^230'CAR PAYMENT         1 "  N/A;  ^230 'CAR PAYMENT      '/cName~name1~      1O"  N/A;3 N/A ^240'CHURCH CONTRIBUTIONS         1 "  N/A;  ^240 'CHURCH CONTRIBUTIONS      '/cResponse~Response1~      1: "  N/A;3 N/A ^250'CLOTHES         1 "  N/A;  ^250 'CLOTHES      '/cResponse~Response2~  8!'The next prompt will ask you for the filename you    1$"  N/A;3 N/A ^260'EQUITY LOAN         1 "  N/A;  ^260 'EQUITY LOAN      '/cResponse~Response3~  7!'saved your Home Budgets Template under. This is    1 "  N/A;3 N/A ^270'GARBAGE DISPOSAL         1 "  N/A;  ^270 'GARBAGE DISPOSAL      '{goto}Title~/re~  ;!'necessary to extract your current years accounts and    1 "  N/A;3 N/A ^280'GAS & ELECTRIC         1 "  N/A;  ^280 'GAS & ELECTRIC      '/fccnTitle~  0!'copy them into the Y-T-D budget analysis.    1"  N/A;3 N/A ^290 'GIFTS         1 "  N/A;  ^290  'GIFTS v v v    vv'<<=== Response2     1Ν"  N/A;3 N/A ^300'GROCERIES         1 "  N/A;  ^300 'GROCERIES  v v   '~  9!'Later on, this information will be used to extract    1"  N/A;3 N/A ^310'HOME INSURANCE         1 "  N/A;  ^310 'HOME INSURANCE       '{goto}RULER~/cYARDSTICK~~  ;!'the data necessary to build your Year To Date Budget    1 "  N/A;3 N/A ^320'LIFE INSURANCE         1 "  N/A;  ^320 'LIFE INSURANCE      &'{goto}TITLE~{edit}{home}{r}{?}~  !'vs Actual Analysis.     1 "  N/A;3 N/A  ^330 'MASTER CARD           1 "  N/A;  ^330 'MASTER CARD       0 '/xlCenter Title Again (Y or N) ? ~CENTER~   ! !!  1!w"  N/A;3! N/A !^340!'MEDICAL!   !    !  1 !"  N/A;  !^340 !'MEDICAL v!'MENU3 v!'Y-T-Dv!'Avg Spend v!'Both ! !!'{if CENTER="Y"}/xgloop1~ ! ! "! " ""  1"b"  N/A;3" N/A "^350"'MORTGAGE"   "    "  1 ""  N/A;  "^350 "'MORTGAGE "'v"'Print Year to Date Budget Report&v"'Print Average Spending Analysisv"'Print Both Reports " ""'/reRULER~ " " # ##  1#J"  N/A;3# N/A #^360#'PHARMACY#   #    #  1 #"  N/A;  #^360 #'PHARMACY #$#'/ppcar{name}BUDGET~omt2~mb0~s%#'/ppcar{name}AVERAGE~omt2~mb0~s$#'/ppcar{name}BUDGET~omt2~mb0~s # ##'/cTitle~Title1~ # # $ $$  1$1 "  N/A;3$ N/A $^370$'PHONE BILL$   $    $  1 $"  N/A;  $^370 $'PHONE BILL $ v$ v$ v$ $ $$'{goto}Setupstring~ $ $ % %%  1% "  N/A;3% N/A %^380%'SCHOOL TUITION%   %    %  1 %"  N/A;  %^380 %'SCHOOL TUITION % %'~qagpq %'~qagpq%'~qagrAVERAGE~pgpq % %%'/fccnNormal~ % % & &&  1& "  N/A;3& N/A &^390 &'SEARS&   &    &  1 &"  N/A;  &^390  &'SEARS & &'/xg\m~ &'/xg\m~ &'/xg\m~ & & v&v&'<<=== Response3 & ' ''  1'"  N/A;3' N/A '^400 ''SEWERS'   '    '  1 '"  N/A;  '^400  ''SEWERS ' ' ' ' ' '''~ ' ' ( ((  1( "  N/A;3( N/A (^410 ('SITTER(   (    (  1 ("  N/A;  (^410  ('SITTER ( ( ( ( ( (('/c~{r}.{r}~ ( ( ) ))  1)ќ "  N/A;3) N/A )^420 )'STERNS)   )    )  1 )"  N/A;  )^420  )'STERNS ) ) ) ) ) ) )'{home} ) ) * **  1*"  N/A;3* N/A *^430 *'VISA*   *    *  1 *"  N/A;  *^430  *'VISA v* * * * * * *'/xg\M~ * * + ++  1+"  N/A;3+ N/A +^440+'WATER BILL+   +    +  1 +"  N/A;  +^440 +'WATER BILL + + + + + + + + + , ,,  1, "  N/A;3, N/A ,^450,'*,   ,    ,  1 ,"  N/A;  ,^450 ,'* , , , , , , , - --  1- "  N/A;3- N/A -^460-'*-   -    -  1 -"  N/A;  -^460 -'* - - - - - - - . ..  1.z "  N/A;3. N/A .^470.'*.   .    .  1 ."  N/A;  .^470 .'* / //  1/i "  N/A;3/ N/A /^480/'*/   /    /  1 /"  N/A;  /^480 /'* 0 00  10X "  N/A;30 N/A 0^4900'*0   0    0  1 0"  N/A;  0^490 0'* 0 0 1 1 1 1 1 1 1 1  1  1  1  1 1 2 22  12G "  N/A;32 N/A 2^6002'ALL OTHER2   2    2  1 2"  N/A;  2^600 2'ALL OTHER 2 23\3\3\3\3\3\3\3\ 3\ 3\ 3\ 3\3'Yardstick ==>>&3'0----5---10---15---20---25---304 ߿P4 ߿P4  14*"  N/A;34 N/A4'Total Expenses4 P4 P 4  1 4"  N/A; 4'Total Expenses5\5\5\5\5\5\5\5\ 5\ 5\ 5\ 5\5'Center ==>>5'N6 ۿ 6 ۿ 6  16"  N/A;36 N/A 6'Net6 ۿ 6 ۿ  6  1 6"  N/A;  6'Net 6 6 6 67\7\7\7\7\7\7\7\ 7\ 7\ 7\ 7\ 7 7 7 7 : : : : : : : : :  :  :  : ; ; ; ; ; ; ; ;  ; < @< < < < < < <  <  < = = = > > > > > > > ? ? ? @ @ @ @ @ A A A B B B B B G H H I I L L L L L M M M M M M N N N N N N O O O O O O P P P P P P Q Q Q Q Q Q R R R R R R S S S S S S T T T T T T U U U U U U V V V V W W W W W W X X X X X X Y Y Y Y Y Y Z Z Z Z Z Z [ [ [ [ [ [ \ \ \ \ \ \ ] ] ] ] ] ] ^ ^ ^ ^ ^ ^ _ _ _ _ _ _ ` ` ` ` ` ` a a a a a a b b b b b b c c c c c c d d d d d d e e e e e e f f f f f f g g g g g g h h h h h h i i i i i i j j j j j j k k k k k k l l l l l l m m m m m m n n n n n n o o o o o o p p p p p p q q q q q q r r r r r r s s s s s s t t t t t t u u u u u u v v v v w w w w w w x x x x x x y y y y y z z z z z z { { { { { | | | | | | } } } } } ~ ~ ~ ~ ~          B           B B B B B     B B B B B