"STORAGE", 1, 70,"E", 0
"TXU", 1, 298.7,"E", 0
"TITHES", 4, 640,"E", 0
"ATMOS", 6, 86.5,"E", 0
"STATE FARM", 10, 211,"E", 0
"WATER", 15, 150.64,"E", 0
"OPTIMUM", 17, 92,"E", 0
"MOTORHOME", 5, 534.9,"E", 0
"HULU", 25, 81.53,"E", 0
"MORTGAGE", 25, 1074.24,"E", 0
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 0
"AIR FORCE", 1, 1843.56,"I", 0
"CISCO COLLEGE", 10, 1048.2,"I", 0
"STEVE SSN", 19, 1097,"I", 0
"MELINDA SSN", 27, 449,"I", 0
"TRS", 30, 1543.47,"I", 0
"MELINDA PAT", 20, 0,"I", 0
"MORTGAGE", 25, 1074.24,"E43.47
"MELINDA PAT", 20, 0,"I", 0
.68
"VISA", 25, 750,"E", 1000
"PHONE", 30, 90,"E", 90
"AIR FORCE", 1, 2173.56,"I", 2173.56
"CISCO COLLEGE", 10, 1048.2,"I", 1084.34
"STEVE SSN", 19, 1097,"I", 1097
"MELINDA SSN", 27, 449,"I", 508
"TRS", 30, 1543.47,"I", 15                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "STORAGE", 1, 70,"E", 70
"TXU", 1, 298.7,"E", 0
"TITHES", 4, 640,"E", 0
"ATMOS", 6, 86.5,"E", 156.66
"STATE FARM", 10, 211,"E", 0
"WATER", 15, 150.64,"E", 0
"OPTIMUM", 17, 92,"E", 0
"MOTORHOME", 5, 534.9,"E", 0
"HULU", 25, 81.53,"E", 0
"5", 25, 1074.24,"E", 1074.24
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 0
"AIR FORCE", 1, 1843.56,"I", 2188.69
"CISCO COLLEGE", 10, 1048.2,"I", 1084.37
"STEVE SSN", 19, 1097,"I", 1097
"MELINDA SSN", 27, 449,"I", 508
"TRS", 30, 1543.47,"I", 1543.47
"MELINDA PAT", 20, 0,"I", 0
1074.24
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 0
"AIR FORCE", 1, 1843.56,"I", 2188.69
"CISCO COLLEGE", 10, 1048.2,"I", 1084.37
"STEVE SSN", 19, 1097,"I", 1097
"MELINDA SSN", 27, 449,"I", 508
"TRS", 30, 1543.47,"I", 1543.47
"MELINDA PAT", 20, 0,"I",                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
N&
Ю&!Й "WHICH ACCOUNT ";P$&4Й "AMOUNT ";NA&jЖ JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC&{А T │ 1 е 12&Д(Н M$&Ь2Щ"I",#1,M$л"23.DAT"&┤<Щ"O",#2,M$л"23.UPD"&╞FЕ  М(1) з 500&█PЙ #1,N$,D,A,C$,P&юZЕ N$│P$ з A│NA'd┘ #2,N$,D,A,C$,P'
nБе 70'
ЇЪ'%
■╥ M$л"23.DAT"'E╓ M$л"23.UPD" е M$л"23.DAT"'MЛ TUN,JUL,AUG,SEP,OCT,NOV,DEC&{А T │ 1 е 12&Д(Н M$&Ь2Щ"I",#1,M$л"23.DAT"&┤<Щ"O",#2,M$л"23.UPD"&╞FЕ  М(1) з 500&█PЙ #1,N$,D,A,C$,P&юZЕ N$│P$ з A│NA'd┘ #2,N$,D,A, 430
"TRS", 31, 1543.47,"I", 1543.47
"MELINDA PAT", 20, 0,"I", 0
MORTGAGE", 25, 1092.68,"E", 1092.68
"PHONE", 30, 90,"E", 90
"AIR FORCE", 1, 2005.26,"I", 2005.26
"CISCO COLLEGE", 10, 960,"I", 876.59
"STEVE SSN", 19, 990,"I", 990
"MELINDA SSN", 26, 430,"I", 60,"Y",""
"N/A","VISA", 1000,"N",""
"WATER","WATER", 150,"Y",""
"N/A","STORAGE", 60,"N",""
"N/A","MOTORHOME", 534.68,"N",""
"N/A","STAQTE FARM", 217.23,"N",""
"N/A","WATER", 140.38,"N",""
,"BIBLE BAPTIST", 150,"Y",""
"222","MA", 85,"Y",""
"N/A","STORAGE",                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "STORAGE", 1, 70,"E", 0
"TXU", 1, 298.7,"E", 0
"TITHES", 4, 640,"E", 0
"ATMOS", 6, 86.5,"E", 0
"STATE FARM", 10, 211,"E", 0
"WATER", 15, 150.64,"E", 0
"OPTIMUM", 17, 92,"E", 0
"MOTORHOME", 5, 534.9,"E", 0
"HULU", 25, 81.53,"E", 0
"MORTGAGE", 25, 1074.24,"E", 0
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 0
"AIR FORCE", 1, 1843.56,"I", 0
"CISCO COLLEGE", 10, 1048.2,"I", 0
"STEVE SSN", 19, 1097,"I", 0
"MELINDA SSN", 27, 449,"I", 0
"TRS", 30, 1543.47,"I", 0
"MELINDA PAT", 20, 0,"I", 0
"MORTGAGE", 25, 1074.24,"E PAT", 20, 1200,"I", 1200
68
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 90
"AIR FORCE", 1, 2173.56,"I", 2173.56
"CISCO COLLEGE", 10, 1048.2,"I", 899.67
"STEVE SSN", 19, 1097,"I", 990
"MELINDA SSN", 27, 449,"I", 449
"TRS", 30, 1543.47,"I", 1543.47
"MELINDA                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
,&
Ю&!З "(1) Income Status"&=З "(2) Expenses Status"&h(З"(3) Budget Totals (takes some time)"&В2З"(4) Return to Menu"&ШdA$│ Т:ЕA$│""з 100&┤iЕ A$┤"1" ▒ A$▓"4" з 100&╘nЕ A$│"1" з О "YEARINCM.BAS"&єxЕ A$│"2" з О "YEAREXP.BAS"'ВЕ A$│"3" з О "YEARBUDG.BAS"'+МЕ A$│"4" з О"*.BAS"xpenses Status"&h(З"(3) Budget Totals (takes some time)"&В2З"(4) Return to Menu"&ШdA$│ Т:ЕA$│""з 100&┤iЕ A$┤"1" ▒ A$▓"4" з 100&╘nЕ A$│"1" з О "YEARINCM.BAS"&єxЕ A$│"2" з О "YEAREXP.BAS"'ВЕ A$│"3                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "STORAGE", 1, 70,"E", 0
"TXU", 1, 298.7,"E", 0
"TITHES", 4, 640,"E", 0
"ATMOS", 6, 86.5,"E", 0
"STATE FARM", 10, 211,"E", 0
"WATER", 15, 150.64,"E", 0
"OPTIMUM", 17, 92,"E", 0
"MOTORHOME", 5, 534.9,"E", 0
"HULU", 25, 81.53,"E", 0
"MORTGAGE", 25, 1074.24,"E", 0
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 0
"AIR FORCE", 1, 1843.56,"I", 0
"CISCO COLLEGE", 10, 1048.2,"I", 0
"STEVE SSN", 19, 1097,"I", 0
"MELINDA SSN", 27, 449,"I", 0
"TRS", 30, 1543.47,"I", 0
"MELINDA PAT", 20, 0,"I", 0
"MORTGAGE", 25, 1074.24,"E PAT", 20, 0,"I", 0
 1092.68
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 90
"AIR FORCE", 1, 2173.56,"I", 2173.56
"CISCO COLLEGE", 10, 1048.2,"I", 899.67
"STEVE SSN", 19, 1097,"I", 990
"MELINDA SSN", 27, 449,"I", 449
"TRS", 30, 1543.47,"I", 1543.47
"MELINDATTлTD)
TA│0:TP│0)
Л T)b
З═"                       ---------------------------------------";)▓
"З═"                       $##,###.##   $##,###.##     $###,###.##";GA,GP,TT)╕
&З*
'В PRINTUSING"                         ADJUSTED EXPECTED EXPENSE $###,###.##";GA+TT*%
-Щ"O",#1,"TAX.AMT"*1
.┘ #1,GP*7
/Ъ*G
5GA│GAл12000*Й
JЗ:З"                    Press any key to return to the Menu";*е
TA$ │  Т:Е A$ │ "" з 340*╖
^О"STATUS.BAS"
'В PRINTUSING"                         ADJUSTED EXPECTED EXPENSE $#                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "STORAGE", 1, 90,"E", 90
"ELECTRICITY", 1, 298.7,"E", 303
"CHARITY", 4, 640,"E", 640
"GAS CO", 6, 86.5,"E", 133.57
"CAR INSURANCE", 10, 211,"E", 233.52
"WATER", 15, 150.64,"E", 133.83
"INTERNET", 17, 70,"E", 91.09
"BANK LOAN", 5, 534.9,"E", 534.9
"TV CABLE", 25, 81.53,"E", 91.99
"MORTGAGE", 25, 1092.68,"E", 1092.68
"VISA", 25, 750,"E", 1500
"PHONE", 30, 90,"E", 90
"INCOME 1", 1, 2173.56,"I", 2173.56
"INCOME 2", 10, 1048.2,"I", 899.67
"INCOME 3", 19, 1097,"I", 990
"INCOME 4", 27, 449,"I", 449
"INCOME 5", 30, 1543.47,"I", 1543.47
9
"MORTGAGE", 25, 1092.68,"E", 1092.68
"VISA", 25, 750,"E", 1500
"PHONE", 30, 90,"E", 90
"INCOME 1", 1, 2173.56,"I", 2173.56
"INCOME 2", 10, 1048.2,"I", 899.67
"INCOME 3", 19, 1097,"I", 990
"INCOME 4", 27, 449,"I", 449
"INCOME 5", 30,TTлTD)
TA│0:TP│0)
Л T)b
З═"                       ---------------------------------------";)▓
"З═"                       $##,###.##   $##,###.##     $###,###.##";GA,GP,TT)╕
&З*
'В PRINTUSING"                         ADJUSTED EXPECTED EXPENSE $###,###.##";GA+TT*%
-Щ"O",#1,"TAX.AMT"*1
.┘ #1,GP*7
/Ъ*G
5GA│GAл12000*Й
JЗ:З"                    Press any key to return to the Menu";*е
TA$ │  Т:Е A$ │ "" з 340*╖
^О"STATUS.BAS"
'В PRINTUSING"                         ADJUSTED EXPECTED EXPENSE $#                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &
О "*.BAS:0"
hЕ  М(1) з 410+<
rЙ #1,CK$,P$,A,CL$,N$+V
|Е CL$ │ "N" з FJ│FJлA+а
ЖЕ FJ▓0 з J$│"(J) Joint outstandings" :Д J$ │ "(J) Joint Outstandings"+л
РБе 360+▒
ЪЪ+╖
дР1*┌
@Е A$ │ "J" з О "JOINT.BAS"*х
JБе 220*є
TТ 65496,0*∙
YК+
^Щ", 84.41
"MA", 25, 85,"E", 85
"MORTGAGE", 25, 1092.68,"E", 1092.68
"PHONE", 30, 90,"E", 90
"AIR FORCE", 1, 2005.26,"I", 2005.26
"CISCO COLLEGE", 10, 960,"I", 853.5
"STEVE SSN", 15, 990,"I", 990
"MELINDA SSN", 22, 430,"I", 430
"TRS", 30, 1543.47,"I", 1543.47
"MELINDA PAT", 20, 1200,"I", 1200
AGE", 25, 1092.68,"E", 1092.68
"PHONE", 30, 90,"E", 90
"AIR FORCE", 1, 2005.26,"I", 2005.26
"CISCO COLLEGE", 10, 960,"I", 853.5
"STEVE SSN", 15, 990,"I", 990
"MELINDA SSN", 22, 430,"I", 430
"TRS", 30, 1543.47,"I", 1543.4                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "STORAGE"
"ELECTRICITY"
"GAS CO"
"VISA"
"CHARITY"
"CAR INSURANCE"
"WATER"
"INTERNET"
"TV CABLE"
"BANK LOAN"
"MORTGAGE"
"PHONE"
"INCOME 1"
"INCOME 2"
"INCOME 3"
"INCOME 4"
"INCOME 5"
 0
"INCOME 5", 30, 1543.47,"I", 0
, 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAE", 25, 1074.24,"E", 0
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 0
"INCOME 1", 1, 1843.56,"I", 0
"INCOME 2", 10, 1048.2,"I", 0
"INCOME 3", 19, 1097,"I", 0
"INCOME 4", 27, 449,"I", 0
"INCOME 5", 30, 1543.47,"I", 0
, 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAGU" з Бж 310($аЕ N$│"PHONE" з Бж 310(:кЕ N$│"VISA"з TP│P(E┤Бе 100(K╛Ъ(R╚:Г(X╥З(Е▄З═"    BUDGETED           $$#,###.##";VA(▓цЗ═"    ACTUAL PAID        $$#,###.##";VP(▌ЁЗ═"                        ---------";)
·З═"    TOTAL ACTUAL       $$#,###.##";VP)
З)H
З:З═"    The amount paid to VISA was $$#,###.##";TP)Ы
З:З═"    A difference of #,###.## that was applied to the VISA account.";TPмVP)░
"A$│ Т:ЕA$│""з290)╣
,О "*)└
6:Г*
@З═ "    %             %  $$#,###.##      $$#,###.##      $$#,###.##";N$,A,P,AмP* 
JVA│VAлA*,
TVP│VPлP*2
^Р was $$#,###.##";TP)Ы
З:З═"    A difference of #,###.## that was applied to the VISA account.";TPмVP)░
"A$│ Т:ЕA$│""з290)╣
,О "*)└
6:Г*
@З═ "    %             %  $$#,###.##      $$#,###.##      $A+'
╠Е N$│AL$ ░ P┤▓0 з PT│PTлP:DT│DTлDI+>
╓Е N$│AL$ з AT│ATлA+O
рЕ P│0 з DI│0+к
ъЕ N$ │ AL$ з З═"                    % %   #,###.##   ##,###.##    ##,###.##";M$,A,P,DI+╡
ЇБе 420+╗
■Ъ+├Л X,	З═"                          ---------  ----------   ----------";,VЗ═"                        $##,###.##  $##,###.##   ###,###.##";AT,PT,DT,Ш&З:З:З"                      Press any key to return to Menu";,п0A$│ Т:ЕA$│"" з 560,╛:О"ACCTLIST X,	З═"                          ---------  ----------   --                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ц&
:ГPERPETUAL CALENDAR&5:ГBY HAROLD H. BRITTEN&O:Г(COPYRIGHT (C) 1993&f:ГBY FALSOFT, INC.&}:ГRAINBOW MAGAZINE&еЩ"I",#1,"MONTH.DAT":Й#1,M$:Ъ:Y│2023&╤
т40:МM$(12),D(12):АI│1е12:НM$(I),D(I):Л'
З:АI│1е12:ЕM$│ О(M$(I), З(M$))зM│I :ДЛ:Бе20'иD│ Б(Yм2000):D(2)│1м А(Dм Б(Dо4)н4)л А(Dм Б(Dо100)н100)м А(Dм Б(Dо400)н400):D│ Б((Dл3)о4)м Б((Dл99)о100)л Б((Dл399)о400)лD:АI│0еMм1:D│DлD(I):Л:D│Dл6:D│Dм Б(Dо7)н7(J(Ю:M$│M$(M)л И(Y):Зд21м З(M$)о2);M$:ё0,3:З"  SUN  MON  TUE  WED  THU  FRI  SAT":ё5нD,6:АI│1еD(M)л28:M$│ И(I):З О("   ",5м З(M$))лM$;:D│Dл1:ЕD│7зЗ:З:З:D│0:Л:ДЛ(U-ё 0,23(i2A$│ Т:ЕA$│""з50(q3О"*(х<Ж JANUARY,3,FEBRUARY,0,MARCH,3,APRIL,2,MAY,3,JUNE,2,JULY,3,AUGUST,3,SEPTEMBER,2,OCTOBER,3,NOVEMBER,2,DECEMBER,3WED  THU  FRI  SAT":ё5н                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╓&
т32:Т&HFFBC,22:Т&HFFBD,0&$Ю&<З@10,"SELECT MONTH"&T(З@42,"============"&}2З@32н15л5,"ARROW UP/DOWN TO SCROLL";&Ы<М P(12):М H$(12):М L$(12)&╧FЖ 69,133,197,261,325,389,83,147,211,275,339,403'+PЖ JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER'ЗZЖ january,february,march,april,may,june,july,august,september,october,november,december'йdЩ"I",#1,"MONTH.DAT":Й#1,MM$:Ъ'└nА T│1е12:НP(T):Л T'╪xА T│1е12:Н H$(T):ЛT'їВА T │ 1 е 12:Н L$(T):Л T(МА X│1 е 12( ЦЕ  О(H$(X),3)│MM$ з L│X((аЛ X(EкАT│1е12:З@P(T),H$(T):Л T(W┤З@P(L),L$(L);(m╛A$│ Т:ЕA$│""з 190(м╚Е  К(A$)│94 ░ L│1 з L│12:З@P(L),L$(L);:З@P(1),H$(1);:Бе220(ъ╥Е  К(A$)│94 ░ L▓1 з L│Lм1:З@P(L),L$(L);:З@P(Lл1),H$(Lл1);),▄Е  К(A$)│10 ░ L│12 з L│1:З@P(L),L$(L);:З@P(12),H$(12);:Бе 250)kцЕ  К(A$)│10 ░ L┤12 з L│Lл1:З@P(L),L$(L);:З@P(Lм1),H$(Lм1);)ТЁЕ  К(A$)│13 з M$│ О(H$(L),3):Бе260)Э·Бе 190)╡
Щ"O",#1,"MONTH.DAT")┴
┘ #1,M$)╟
Ъ)╒
"О "*.BAS":З@P(Lл1),H$(Lл1);),▄Е  К(A$)│10 ░ L│                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 $&
:Г  YEARUTIL.BAS& т80:Ю&VЖ JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC&g(А T │ 1 е 12&m2Ъ&v<Н M$&└Fё0,0:З═"                        Reading % % for the Year-To-Date.";M$&┘PЩ "I",#1,M$л"23.DAT"&ыZЕ  М(1) з 190&єdC│0'nЙ #1,N$,D,A,C$,P'ExЕ N$ │ "ELECTRICITY"   ░ P ▓ 0 з TA│TAлA:TP│TPлP:TX│TXл1'zВЕ N$ │ "WATER" ░ P ▓ 0 з TA│TAлA:TP│TPлP:WA│WAл1'░МЕ N$ │ "GAS CO" ░ P ▓ 0 з TA│TAлA:TP│TPлP:AT│ATл1'┐ЦF│TXлWAлAT'╒аЕ F │ 1 з DI│DIл1'шкTX│0:WA│0:AT│0'Є┤Бе 90'°╛Ъ(╚Л T(╥Ю(▄TD │ TAмTP(#цDI │ DIо3()ЁЗ(w·З "                This is your Year-To-Date of the three utility bills:"(Б
З:З:З(╝
З "                       ELECTRIC      (ELECTRICITY)"(ё
З "                       GAS           (GAS CO")1
"З "                       WATER         (CITY OF WHEREVER)")9
,З:З)М
6З═"                       Budgeted    $##,###.##   Average $#,###.##";TA,TAоDI)▀
@З═"                       Actual      $##,###.##   Average $#,###.##";TP,TPоDI**
JЗ═"                       ------------------------------------------";*g
TЗ═"                       Difference  $##,###.##";TAмTP;*Х
UЕ (TAмTP)▓0 з З " Pocketed for the year!"*╕
VЕ (TAмTP)┤0 з З " IN THE RED!"+

^ё 0,20:З"                       Press <Any Key> to Return to Menu ";+
hA$│ Т:ЕA$│""з360+#
rО"*.BAS"--";*g
TЗ═"                       Difference  $##,###.##";TAмTP;*Х
UЕ (TAмTP)▓0 з З " Pocketed for the year!"*╕
VЕ (TAмTP)┤0 з З " IN THE RED!"+

^ё 0,20:З"                       Press <Any Key> to Return to Menu                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 "STORAGE", 1, 90,"E", 0
"ELECTRICITY", 1, 298.7,"E", 0
"CHARITY", 4, 640,"E", 0
"GAS CO", 6, 86.5,"E", 0
"CAR INSURANCE", 10, 211,"E", 0
"WATER", 15, 150.64,"E", 0
"INTERNET", 17, 92,"E", 0
"BANK LOAN", 5, 534.9,"E", 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAGE", 25, 1074.24,"E", 0
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 0
"INCOME 1", 1, 1843.56,"I", 0
"INCOME 2", 10, 1048.2,"I", 0
"INCOME 3", 19, 1097,"I", 0
"INCOME 4", 27, 449,"I", 0
"INCOME 5", 30, 1543.47,"I", 0
, 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAG, 1543.47,"I", 1543.47
"MORTGAGE", 25, 1092.68,"E", 1092.68
"VISA", 25, 750,"E", 1000
"PHONE", 30, 90,"E", 90
"INCOME 1", 1, 2173.56,"I", 2173.56
"INCOME 2", 10, 1048.2,"I", 1084.34
"INCOME 3", 19, 1097,"I", 1097
"INCOME 4", 27, 449,"I", 508
"INCOME 5", 30                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 -&A
L$│"                       %       % $#,###.##  $#,###.## "&sЩ"I",#1,"MONTH.DAT":Й#1,MO$:Ъ:M$│MO$л"23.DAT"&пЮ:З"                          Utility Amounts for ";MO$&╖(З:З&°2З  "                                  Budgeted     Actual  "'93З  "                                  --------   --------  "'H<Щ"I",#1,M$'ZFЕ  М(1) з 130'oPЙ #1,N$,D,A,C$,P'ЯZЕ N$│"GAS CO"з З═ L$;N$,A,P:TA│TAлA:TP│TPлP'╬dЕ N$│"WATER"з З═ L$;N$,A,P:TA│TAлA:TP│TPлP(nЕ N$│"ELECTRICITY"  з З═ L$;N$,A,P:TA│TAлA:TP│TPлP(xБе 70(NВЗ "                                  --------   -------- "(fМЗ═ L$;"TOTAL",TA,TP(nЦЗ:З(оаЗ═"                       A Difference of $$#,###.##";TAмTP(┤кЗ(║╚Ъ(┬╠З:З)═З═"                         Press any key for YTD summary ";)╥A$│ Т:ЕA$│""з210),▄О"YEARUTIL.BAS"          --------   -------- "(fМЗ═ L$;"TOTAL",TA,TP(nЦЗ:З(оаЗ═"                       A Difference of $$#,###.##";TAмTP(┤кЗ(║╚Ъ(┬╠З:З)═З═"                         Press any key for YTD summar                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ,22/иТ 65496,0/g▓ё 0,23:З"Make Change (Y/N) Note: N Will prompt for a new month, <ENTER> for Menu";/~╝MC$│ Т:ЕMC$│""з7000╞Е MC$│"Y" з ё 0,23:BT│0:IT│0:ET│0:AT│0:З"                                                                  ";:ё 0,23:Й "WHAT NAME ";CN$:Бж7500A╨Е MC$│"N" з Ъ :IT│0:ET│0:AT│0:О"SELMNTH.BAS"0^┌Е  К(MC$)│13 з О "*.BAS"0iфБе 7000oюЪ0°Щ"I",#1,NI$0ПЩ"O",#2,NO$0бЕ  М(1) з 9900╢Й #1,N$,D,A,C$,P0┼ SL│ З(CN$)0ы*Е  О(N$,SL) │  О(CN$,SL) з Бж 84014┘ #2,N$,D,A,C$,P1>Бе 7801HЮ10RЗ═"(1) %             %";N$1P\З═"(2) ##            DAY";D1sfЗ═"(3) $#,###.##     AMOUNT";A1ХpЗ═"(4) %%            CODE";C$1╢zЗ═"(5) $#,###.##     PAID";P1·ДЗ:З"WHICH DO YOU WANT TO CHANGE? (PRESS W TO WRITE AND RETURN)"2ОP$│ Т:ЕP$│""з9102.ШЕ P$│"1" з Й "TO WHAT ";N$2WвЕ P$│"2" з Й "DAY CHANGE TO WHAT ";D2ГмЕ P$│"3" з Й "AMOUNT CHANGE TO WHAT ";A2░╢Е P$│"4" з Й "CODE TO WHAT (I OR E) ";C$2╒└Е P$│"5" з Й "ACTUAL TO WHAT ";P2ц╩Е P$│"W" з Р2ё╘Бе 8402ў▐Ъ3
ш╥ NI$3Є╓ NO$ е NI$3№Бе 27039u0Е MO$│"JAN"зV$│"January"3Wu:Е MO$│"FEB"зV$│"February"3ruDЕ MO$│"MAR"зV$│"March"3НuNЕ MO$│"APR"зV$│"April"3жuXЕ MO$│"MAY"зV$│"May"3└ubЕ MO$│"JUN"зV$│"June"3┌ulЕ MO$│"JUL"зV$│"July"3ЎuvЕ MO$│"AUG"зV$│"August"4uАЕ MO$│"SEP"зV$│"September"42uКЕ MO$│"OCT"зV$│"October"4PuФЕ MO$│"NOV"зV$│"November"4nuЮЕ MO$│"DEC"зV$│"December"4tuиРЕ MO$│"APR"зV$│"April"3жuXЕ MO$│"MAY"зV$│"May"3└ubЕ MO$│"JUN"зV$│"June"3┌ulЕ MO$│"JUL"зV$│"July"3ЎuvЕ MO$│"AUG"зV$│"August"4uАЕ MO                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "STORAGE", 1, 90,"E", 0
"ELECTRICITY", 1, 298.7,"E", 0
"CHARITY", 4, 640,"E", 0
"GAS CO", 6, 86.5,"E", 0
"CAR INSURANCE", 10, 211,"E", 0
"WATER", 15, 150.64,"E", 0
"INTERNET", 17, 92,"E", 0
"BANK LOAN", 5, 534.9,"E", 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAGE", 25, 1074.24,"E", 0
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 0
"INCOME 1", 1, 1843.56,"I", 0
"INCOME 2", 10, 1048.2,"I", 0
"INCOME 3", 19, 1097,"I", 0
"INCOME 4", 27, 449,"I", 0
"INCOME 5", 30, 1543.47,"I", 0
, 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAG  $$##,###.##";TP(
З(c
"З═"The desired amount withheld at this time should be $$##,###.##";TPнTX(i
,З(й
6З═"The projected end of year looks to be $$##,###.##";GPнTX(╛
@A$│ Т:ЕA$│""з320(╞
JО"*A'╒ЁБе 210'█·Ъ'с
Ю(
З═"Combined Income so far                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "STORAGE", 1, 90,"E", 90
"ELECTRICITY", 1, 298.7,"E", 305
"CHARITY", 4, 640,"E", 640
"GAS CO", 6, 86.5,"E", 156.66
"CAR INSURANCE", 10, 211,"E", 233.52
"WATER", 15, 150.64,"E", 150.04
"INTERNET", 17, 92,"E", 91.09
"BANK LOAN", 5, 534.9,"E", 534.9
"TV CABLE", 25, 81.53,"E", 91.99
"MORTGAGE", 25, 1074.24,"E", 1074.24
"VISA", 25, 750,"E", 1500
"PHONE", 30, 90,"E", 90
"INCOME 1", 1, 1843.56,"I", 2188.69
"INCOME 2", 10, 1048.2,"I", 761.15
"INCOME 3", 19, 1097,"I", 1097
"INCOME 4", 27, 449,"I", 508
"INCOME 5", 30, 1543.47,"I", 1543.47

"MORTGAGE", 25, 1074.24,"E", 1074.24
"VISA", 25, 750,"E", 1500
"PHONE", 30, 90,"E", 90
"INCOME 1", 1, 1843.56,"I", 2188.69
"INCOME 2", 10, 1048.2,"I", 761.15
"INCOME 3", 19, 1097,"I", 1097
"INCOME 4", 27, 449,"I", 508
"INCOME 5", 30ЕA$│""з290)(
,Е A$│"A" з О "SELMNTH.BAS")G
6Е A$│"B" з О "BILLPAY.BAS")f
@Е A$│"C" з О "UTILITY.BAS")Г
JЕ A$│"D"з О "UNPAID.BAS")в
TЕ A$ │ "E" з О"STATUS.BAS")╛
^Е A$│"F" з О "VISA.BAS")▐
hЕ A$│"G" з О "CALENDAR.BAS"*
rЕ A$ │ "H" з О "ACCTLIST.BAS"*:
|Е A$ │ "I" з Ю:Т 65496,0:З"BACKING UP 0 TO 1":▌ 0 е 1*a
ЖВ IF A$ = "J" THEN RUN "JOINT.BAS"*l
РБе 290*z
ЪТ 65496,0*А
дК*Ш
оЩ"I",#1,"JOINT.DAT"*к
╕Е  М(1) з 490*├
┬Й #1,CK$,P$,A,CL$,N$*▌
╠Е CL$ │ "N" з FJ│FJлA*ш
рБе 440*ю
ъЪ*Ї
ЇР+
■Е M$│"JAN" з M$│"January 2023"+;Е M$│"FEB" з M$│"February 2023"+\Е M$│"MAR" з M$│"March 2023"+}Е M$│"APR" з M$│"April 2023"+Ь&Е M$│"MAY" з M$│"May 2023"+╝0Е M$│"JUN" з M$│"June 2023"+▄:Е M$│"JUL" з M$│"July 2023"+■DЕ M$│"AUG" з M$│"August 2022",#NЕ M$│"SEP" з M$│"September 2023",FXЕ M$│"OCT" з M$│"October 2023",jbЕ M$│"NOV" з M$│"November 2023",ОlЕ M$│"DEC" з M$│"December 2023",ФvР2023"+╝0Е M$│"JUN" з M$│"June 2023"+▄:Е M$│"JUL" з M$│"July 2023"+■DЕ M$│"AUG" з M$│"August 2022"2"-%NЕ M$│"NOV" з M$│"November 2022"-IXЕ M$│"DEC" з M$│"December 2022"-ObР2022",wЕ M$│"JUN" з M$│"June 2022",Ч&Е M$│"JUL" з M$│"July 2022",╣0Е M$│"AUG" з M$│"August 2022",▐:Е M$│"SEP" з M$│"September 2022"-
DЕ M$│"OCT" з M$│"October 202                                                                                                                                                                                                                                                                 u&
:Г PROGRAM:  BILLPAY.BAS&%:Г&F:Г PROGRAM FOR KEEPING TRACK&h(:Г OF PAYING BILLS EACH MONTH&И2:Г IT ALSO GATHERS DATA FOR&л<:Г WEEK, MONTH, ANNUAL REPORTS&▓F:Г&╔P:Г BY STEVE POWELL&╨Z:Г&чdт 80:у8,54:у0,0:Ю7'nВ LOCATE 28,1:PRINT"PERSONAL BUDGET"'xё 0,3:З" "'7ВЩ"I",#1,"MONTH.DAT"'DМЙ #1,MO$'JЦЪ'}аВ  RESTORE:INPUT"WHAT MONTH (END TO QUIT)";MO$'СкЕ MO$│"END" з К'Ч┤Ю'╣╛Е  З(MO$) ▓ 3 з MO$│ О(MO$,3)'╠╚ET│0:IT│0:AT│0'с╥NI$│MO$л"23.DAT"'Ў▄NO$│MO$л"23.UPD"(
цА X│1 е 12:Н M$(ыБж 30000(NЁЕ  О(MO$, З(MO$)) │  О(M$, З(MO$)) з F$│V$л" 2023"(V·Л X(▓
Ж JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER(ў
C│1:F1│0::Г F1 IS FLAG TO DETERMINE OF PRINTING ACTUAL VS BUDGET)
Т 65497,0)D
"UY$│       " %% %           % ##  $#,###.##              ")Г
,UN$│       " %% %           % ##  $#,###.##    $$#,###.##")├
6UI$│       " %% %           % ##  $#,###.##    $$#,###.## "*
@BS$│       " %% %           % ##  $#,###.##    $$#,###.## -"*E
JBH$│       " %% %           % ##  $#,###.##    $$#,###.## +"*Г
THD$│       "Code    Name     Day   Budgeted       Actual"*┬
^HL$│       " -- -----------  ---   --------      --------"*╦
hIT│0*█
rЩ"I",#1,NI$*щ
|ё0,0:ЗHD$*Є
ЖЗHL$+
РЕ  М(1) з 550+
ЪЙ #1,N$,D,A,C$,P+J
дЕ C$│"E" ░ P│0.00 з F1$│"SET" :Д F1$│"UNSET"+a
оЕ C$│"I" з IT│ITлP+x
╕Е C$│"I" з BT│BTлA+П
┬Е C$│"E" з ET│ETлA+ж
╠Е C$│"E" з AT│ATлP+╡
╓DT │ ITмET+ц
рЕ C$│"E" ░ P ▓ A з З═ BS$;C$,N$,D,A,P:Бе 530,
ъЕ C$│"E" ░ A▓P ░ P▓0 з З═ BH$;C$,N$,D,A,P:Бе 530,A
ЇЕ C$│"E" ░ P│0 з З═ UY$;C$,N$,D,A,i
■Е C$│"E" ░ P▓0 з З═ UN$;C$,N$,D,A,P,ЛЕ C$│"I" з З═ UI$;C$,N$,D,A,P,ХC│Cл1,аБе 400,▐&А L │ 2 е 22:ё 49,L:З"                              ";:ЛL-
0ё 50,8:З═"Actual Income   $$##,###.##";IT;-<:ё 50,7:З═"Income Budgeted $$##,###.##";BT;-lDё 50,9:З     "                -----------";-ЯNё 50,10:З═"Difference of   $$##,###.##";ITмBT;-пXF1$│"UNSET"-яbЕ F1$│"UNSET" з ё 50,13:З═"Expenses Budgeted $#,###.##";ET;./lЕ F1$│"UNSET" з ё 50,14:З═"Actual Expenses   $#,###.##";AT;.pvЕ F1$│"UNSET" з ё 50,15:З     "                  ---------";.│АЕ F1$│"UNSET" з ё 50,16:З═"Difference of    $##,###.##";ETмAT;.цКё 50,20:З═"Monthly Overall  $##,###.##";ITмAT;.ўФё 59,2:З F$;/Юё 0 A&
Ю&:Г VISA.BAS&L:Г ROUTINE TO TALLY BILLS PAID THROUGH VISA CARD&Z(VA│0:VP│0&{2Щ"I",#1,"MONTH.DAT":Й#1,M$:Ъ&У<Щ"I",#1,M$л"23.DAT"&ыFЗ"    For the month of ";M$;" the following was paid through the VISA account.":З:З'5PЗ═"                        BUDGETED         ACTUAL       DIFFERENCE";'~ZЗ═"                        --------        -------        --------";'НdЕ М(1)з190'вnЙ #1,N$,D,A,C$,P'┬xЕ N$│"ELECTRICITY" з Бж 310'▐ВЕ N$│"GAS COS" з Бж 310'√МЕ N$│"INTERNET" з Бж 310(ЦЕ N$│"TV CABLE" з Бж 310(2аЕ N$│"PHONE" з Бж 310(HкЕ N$│"VISA"з TP│P(S┤Бе 100(Y╛Ъ(`╚:Г(f╥З(У▄З═"    BUDGETED           $$#,###.##";VA(└цЗ═"    ACTUAL PAID        $$#,###.##";VP(ыЁЗ═"                        ---------";)·З═"    TOTAL ACTUAL       $$#,###.##";VP)
З)V
З:З═"    The amount paid to VISA was $$#,###.##";TP)й
З:З═"    A difference of #,###.## that was applied to the VISA account.";TPмVP)╛
"A$│ Т:ЕA$│""з290)╟
,О "*)╬
6:Г*"
@З═ "    %             %  $$#,###.##      $$#,###.##      $$#,###.##";N$,A,P,AмP*.
JVA│VAлA*:
TVP│VPлP*@
^Р was $$#,###.##";TP)й
З:З═"    A difference of #,###.## that was applied to the VISA account.";TPмVP)╛
"A$│ Т:ЕA$│""з290)╟
,О "*)╬
6:Г*"
@З═ "    %             %  $$#,###.##      $$#                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "STORAGE", 1, 90,"E", 0
"ELECTRICITY", 1, 298.7,"E", 0
"CHARITY", 4, 640,"E", 0
"GAS CO", 6, 86.5,"E", 0
"CAR INSURANCE", 10, 211,"E", 0
"WATER", 15, 150.64,"E", 0
"INTERNET", 17, 92,"E", 0
"BANK LOAN", 5, 534.9,"E", 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAGE", 25, 1074.24,"E", 0
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 0
"INCOME 1", 1, 1843.56,"I", 0
"INCOME 2", 10, 1048.2,"I", 0
"INCOME 3", 19, 1097,"I", 0
"INCOME 4", 27, 449,"I", 0
"INCOME 5", 30, 1543.47,"I", 0
, 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAG, 1543.47
"MELINDA PAT", 20, 0,"I", 0
4.24
"VISA", 25, 750,"E", 1500
"PHONE", 30, 90,"E", 90
"AIR FORCE", 1, 1843.56,"I", 2188.69
"CISCO COLLEGE", 10, 1048.2,"I", 761.15
"STEVE SSN", 19, 1097,"I", 1097
"MELINDA SSN", 27, 449,"I", 508
"TRS", 30, 1543.47,"I"A │ MAлA:AM│AMлP)<▄Е N$│"MORTGAGE"з       MO │ MOлA:OM│OMлP)cсЕ N$│"MOTORHOME" з MH│MHлA:HM│HMлP)РцЕ N$│"PHONE"   з       PH │ PHлA:HP│HPлP)╜ЁЕ N$│"AIR FORCE" з     AF │ AFлA:FA│FAлP)ъ·Е N$│"CISCO COLLEGE"з  CC │ CCлA:XC│XCлP*
Е N$│"STEVE SSN" з     SS │ SSлA:XS│XSлP*D
Е N$│"MELINDA SSN" з   MM │ MMлA:SM│SMлP*q
Е N$│"TRS"         з   TR │ TRлA:RT│RTлP*Ю
"Е N$│"MELINDA PAT" з   MP │ MPлA:PM│PMлP*и
,Бе 80*о
6Ъ*╝
;В PRINTMC*─
@Л T*╩
JЮ+
OЗ"   NAME                      BUDGET      ACTUAL    END OF ";Z$;" SHOULD BE"+j
TL$ │ "%           %............. ##,###.##   ##,###.##         ##,###.##"+Н
^З═ L$;"STORAGE",ST,TS,STо12нMS+м
hЗ═ L$;"TXU",TX,XT,TXо12нMS+╬
rЗ═ L$;"TITHES",TI,IT,TIо12нMS+я
|З═ L$;"ATMOS",AT,TA,ATо12нMS,
ЖЗ═ L$;"VISA",VI,IV,VIо12нMS,5
РЗ═ L$;"STATE FARM",SF,FS,SFо12нMS,V
ЪЗ═ L$;"WATER",WA,AW,WAо12нMS,z
дЗ═ L$;"INTERNET",IN,NI,INо12нMS,Ъ
оЗ═ L$;"HULU",HU,UH,HUо12нMS,╕
╕З═ L$;"MA",MA,AM,MAо12нMS,▄
┬З═ L$;"MORTGAGE",MO,OM,MOо12нMS-

╟З═ L$;"MOTORHOME",MH,HM,MHо12нMS-"
╠З═ L$;"PHONE",PH,HP,PHо12нMS-P
╤GT│STлTXлTIлATлVIлSFлWAлINлHUлMAлMHлMOлPH-~
╥GP│TSлXTлITлTAлIVлFSлAWлNIлUHлAMлHMлOMлHP-╩
╓З═"                           ---------   ---------         ---------";.$
рЗ═"  TOTAL ANNUAL EXPENSES   $##,###.##  $##,###.##        $##,###.##";GT,GP,GTо12нMS.o
ъЗ "  ======================= ==========  ==========        ==========".Ф
ЇЗ═ L$;"AIR FORCE",AF,FA,AFо12нMS.╜
■З═ L$;"CISCO COLLEGE",CC,XC,CCо12нMS.тЗ═ L$;"STEVE SSN",SS,XS,SSо12нMS/	З═ L$;"MELINDA SSN",MM,S 
┘&7
Ж JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC&HА T │ 1 е 12&Q#Н M$&i(Щ"I",#1,M$л"23.DAT"&Б2Щ"O",#2,M$л"23.UPD"&Р<Е М(1)з500&еFЙ #1,N$,D,A,C$,P&─PЕ N$│"STORAGE" з A│90:P│90&уZЕ N$│"ATMOS" з N$│"GAS CO"'dЕ N$│"TITHES" з N$ │ "CHARITY"'*nЕ N$│"TXU" з N$ │ "ELECTRICITY"'LxЕ N$│"HULU" з N$ │ "TV CABLE"'yВЕ N$│"STATE FARM" з N$ │ "CAR INSURANCE"'ОМ┘ #2,N$,D,A,C$,P'ШЦБе 60'Ю
ЇЪ'░
■╥ M$л"23.DAT"'╨╓ M$л"23.UPD" е M$л"23.DAT"'╪Л T"GAS CO"'dЕ N$│"TITHES" з N$ │ "C 20, 1200,"I", 1200
.68
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 90
"AIR FORCE", 1, 2005.26,"I", 2005.26
"CISCO COLLEGE", 10, 1048.2,"I", 899.67
"STEVE SSN", 19, 990,"I", 990
"MELINDA SSN", 27, 449,"I", 449
"TRS", 30, 1543.47,"I", 1543.47
"MELINDA PAT",                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "STORAGE", 1, 90,"E", 0
"ELECTRICITY", 1, 298.7,"E", 0
"CHARITY", 4, 640,"E", 0
"GAS CO", 6, 86.5,"E", 0
"CAR INSURANCE", 10, 211,"E", 0
"WATER", 15, 150.64,"E", 0
"INTERNET", 17, 92,"E", 0
"BANK LOAN", 5, 534.9,"E", 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAGE", 25, 1074.24,"E", 0
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 0
"INCOME 1", 1, 1843.56,"I", 0
"INCOME 2", 10, 1048.2,"I", 0
"INCOME 3", 19, 1097,"I", 0
"INCOME 4", 27, 449,"I", 0
"INCOME 5", 30, 1543.47,"I", 0
, 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAG3.47

"MORTGAGE", 25, 1074.24,"E", 1074.24
"VISA", 25, 750,"E", 1500
"PHONE", 30, 90,"E", 90
"INCOME 1", 1, 1843.56,"I", 2188.69
"INCOME 2", 10, 1048.2,"I", 761.15
"INCOME 3", 19, 1097,"I", 1097
"INCOME 4", 27, 449,"I", 508
"INCOME 5", 30, 1543.47,"I", 15412 з L│1:З@P(L),L$(L);:З@P(12),H$(12);:Бе 250)kцЕ  К(A$)│10 ░ L┤12 з L│Lл1:З@P(L),L$(L);:З@P(Lм1),H$(Lм1);)ТЁЕ  К(A$)│13 з M$│ О(H$(L),3):Бе260)Э·Бе 190)╡
Щ"O",#1,"MONTH.DAT")┴
┘ #1,M$)╟
Ъ)╒
"О "*.BAS":З@P(Lл1),H$(Lл1);),▄Е  К(A$)│10 ░ L│                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ё&
:Г *.BAS&1:Г MAIN MENU OF BUDGET PROGRAM&_:Г USES MONTH.DAT TO BRING IN THE CURRENT&О(:Г WORKING MONTH. OFFLINE DATA VAIRABLE :)&Э2И Ё Бе 410&│<т80:у8,54:у0,0:Ю7&╥FBC│191 :Г BORDER CHARACTER&рPТ 65497,0'ZЗ:ё 31,1:З"Budgeting Program"'d╔"T255O1DD"'nЗ:З';xЩ"I",#1,"MONTH.DAT":Й#1,M$:Ъ'FВБж 430'mМCH$│"Current Month loaded is "лCM$'ЕЦCC│((80м З(CH$))о2)'Хаё CC,3:ЗCH$'ЫкЗ'╣┤ё30,5:З"(A) Select Month"'╓╛ё30,6:З"(B) Bill Paying"'Ў╚ё30,7:З"(C) Utility Report"(╥ё30,8:З"(D) Yet Unpaid"(9▄ё30,9:З"(E) Income/Expense Status"(Yцё30,10:З"(F) VISA Payments"(tЁё30,11:З"(G) Calendar"(Ц·ё30,12:З"(H) Account Listing"(╢
ё30,13:З"(I) Backup 0 to 1"(╥
ё 30,14:З"(J) Reserved"(Ї
ё 30,16:З"Make Selection : ";)	
"A$│ Т:ЕA$│""з290)(
,Е A$│"A" з О "SELMNTH.BAS")G
6Е A$│"B" з О "BILLPAY.BAS")f
@Е A$│"C" з О "UTILITY.BAS")Г
JЕ A$│"D"з О "UNPAID.BAS")в
TЕ A$ │ "E" з О"STATUS.BAS")╛
^Е A$│"F" з О "VISA.BAS")▐
hЕ A$│"G" з О "CALENDAR.BAS"*
rЕ A$ │ "H" з О "ACCTLIST.BAS"*:
|Е A$ │ "I" з Ю:Т 65496,0:З"BACKING UP 0 TO 1":▌ 0 е 1*a
ЖВ IF A$ = "J" THEN RUN "JOINT.BAS"*l
РБе 290*z
ЪТ 65496,0*А
дК*Я
оЕ M$│"JAN" з CM$│"January"*┐
╕Е M$│"FEB" з CM$│"February"*▄
┬Е M$│"MAR" з CM$│"March"*∙
╠Е M$│"APR" з CM$│"April"+
╓Е M$│"MAY" з CM$│"May"+0
рЕ M$│"JUN" з CM$│"June"+L
ъЕ M$│"JUL" з CM$│"July"+j
ЇЕ M$│"AUG" з CM$│"August"+Л
■Е M$│"SEP" з CM$│"September"+кЕ M$│"OCT" з CM$│"October"+╩Е M$│"NOV" з CM$│"November"+ъЕ M$│"DEC" з CM$│"December"+Ё&РApril"+
╓Е                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "APR"
RTGAGE", 25, 1092.67,"E", 0
"PHONE", 30, 90,"E", 0
"AIR FORCE", 1, 2005.26,"I", 0
"CISCO COLLEGE", 10, 1048.2,"I", 0
"STEVE SSN", 21, 990,"I", 0
"MELINDA SSN", 28, 449,"I", 0
"TRS", 30, 1543.47,"I", 0
"MELINDA PAT", 20, 0,"I", 0
RHOME", 5, 534.9,"E", 0
"MO43.47
"MELINDA PAT", 20, 1000,"I", 1000
GE", 25, 1053.56,"E", 1053.56
"PHONE", 30, 90,"E", 90
"AIR FORCE", 1, 2005.26,"I", 2005.26
"CISCO COLLEGE", 10, 960,"I", 1038.2
"STEVE SSN", 16, 990,"I", 990
"MELINDA SSN", 23, 430,"I", 430
"TRS", 28, 1543.47,"I", 15                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ┬ ├ ┴├─ ┬─╞┬├┼┬ ┬╞┴╟┼%├┬┼┬├─┬├╞┬  ┬                  YEARINCMBAS#ЛJUL23   DAT
 ╫SEP23   DAT
 ╫JUN23   DAT
 &╫MAR23   DAT
 VISA    BASDAUG23   DAT
 (╫FEB23   DAT
 ,OCT23   DAT
 ╫YEARBUDGBAS$ПNOV23   DAT
 +╫BILLPAY BASxDEC23   DAT
 ╫APR23   DAT
 .╫INDVLISTBAS*NLISTED  DAT
 ╢UTILITY BAS0UNPAID  BAS)5SELMNTH BAS┘MAY23   DAT
 1╫YEARUTILBAS-(JAN23   DAT
 ACCTLISTBAS"ЯMONTH   DAT
 !CALENDARBASщSTATUS  BAS/YEAREXP BAS'У*       BAS Ї                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ь&
:Г ACCTLIST.BAS&:Г&7:Г BY MONTH LISTING OF&P(:Г SELECTED ACCOUNT.&V2Ю&`<AC│65&yFЩ"I",#1,"LISTED.DAT"&КPЕ М(1) з 130&ЦZЙ #1,N$&═dЗ═"                ( %%)  %           %"; Л(AC),N$&┘nAC│ACл1&уxБе 80&щВЪ'МЗ:З "Which Account (X for Menu)";'$ЦA$│ Т:ЕA$│""з150'@ЫЕ A$┤"A" ▒ A$▓"Z" з 150'[аЕ A$│"A"зAL$│"STORAGE"'zкЕ A$│"B"зAL$│"ELECTRICITY"'Ф┤Е A$│"C"зAL$│"GAS CO"'м╣Е A$│"D"зAL$│"VISA"'╟╛Е A$│"E"зAL$│"CHARITY"'ш╥Е A$│"F"зAL$│"CAR INSURANCE"(
▄Е A$│"G"зAL$│"WATER"(цЕ A$│"H"зAL$│"INTERNET"(9ЁЕ A$│"I"зAL$│"TV CABLE"(V·Е A$│"J"зAL$│"BANK LOAN"(r
Е A$│"K"зAL$│"MORTGAGE"(Л
Е A$│"L"зAL$│"PHONE"(з
Е A$│"M"зAL$│"INCOME 1"(├
"Е A$│"N"зAL$│"INCOME 2"(▀
,Е A$│"O"зAL$│"INCOME 3"(√
6Е A$│"P"зAL$│"INCOME 4")
@Е A$│"Q"зAL$│"INCOME 5"))
LЕ A$│"X"з О"*)/
OЮ)]
TTI$│"Account listing for "лAL$:TL│ З(TI$))p
VZZ│((80мTL)о2))Е
^ё ZZ,1:З TI$:З:З)╠
hЗ═"                    Mth    Budget      Actual      Difference";*
rЗ═"                    ---   ---------   ---------    ----------";*I
|Ж JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC*Z
ЖА X │ 1 е 12*c
РН M$*|
ЪЩ "I",#1,M$л"23.DAT"*О
дЕ  М(1) з 510*г
оЙ #1,N$,D,A,C$,P*╣
╕Е C$│"E" з DI│AмP*╧
┬Е C$│"I" з DI│PмA*Ў
╠Е N$│AL$ ░ P┤▓0 з PT│PTлP:DT│DTлDI+
╓Е N$│AL$ ░ P┤▓0 з AT│ATлA+%
рЕ P│0 з DI│0+З
ъЕ N$ │ AL$ ░ P┤▓0 з З═"                    % %   #,###.##   ##,###.##    ##,###.##";M$,A,P,DI+Т
ЇБе 420+Ш
■Ъ+аЛ X+цЗ═"                          ---------  ----------   ----------";,3З═"                        $##,###.##  $##,###.##   ###,###.##";AT,PT,DT,u&З:З:З"                      Press any key to return to Menu";,М0A$│ Т:ЕA$│"" з 560,Ы:О"ACCTLIST X+цЗ═"                          ---------  ----------   ----------";,3З═"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  И&
:Г PROGRAM: YEARINCM.BAS&%:Г&G:Г THIS PROGRAM KEEPS CURRENT&j(:Г STATUS OF YOUR BUDGETED IN-&Е2:Г COME VERSUS ACTUAL.&М<:Г&гF:Г BY STEVE POWELL&кP:Г&└Zт80:у8,54:у0,0:Ю7&∙dЗ"                       Year to Date Income Status"'
nЗ:З'7xЖ JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC'}З═"             Month       Budgeted       Actual      Difference";'╟~З═"             -----       --------       ------      ----------";'╪ВА T │ 1 е 12'сМН M$'ЎЦF$ │ M$л"23.DAT"(аЩ"I",#1,F$(кЕ  М(1) з 220(,┤Й #1,N$,D,A,C$,P(M╛Е C$ │ "I" з TA│TAлA:TP│TPлP(n╚Е C$ │ "I" з GA│GAлA:GP│GPлP(y╥Бе 170(▄Ъ(ОцTD │ TPмTA(дЁЕ TP │ 0 з TD │ 0(ў·З═"              % %       ##,###.##    ##,###.##       ##,###.##";M$,TA,TP,TD) TT│TTлTD)
TA│0:TP│0)
Л T)b
З═"                       ---------------------------------------";)▓
"З═"                       $##,###.##   $##,###.##     $###,###.##";GA,GP,TT)╕
&З*
'З═"                         ADJUSTED EXPECTED INCOME  $###,###.##";GAлTT*
5В GA=GA+12000*Y
JЗ:З"                    Press any key to return to the Menu";*u
TA$ │  Т:Е A$ │ "" з 340*З
^О"STATUS.BAS"#   $##,###.##     $###,###.##";GA,GP,TT)╕
&З*
'З═"                         ADJUSTED EXPECTED INCOME  $###,###.##"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 М&
Ю&!
:Г YEAR BUDGET TOTALS&::Г FILENAME YEARBUDG&A:Г&O Т 65497,0&\#Бж 20000&Т(Ж JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC&г2А T │ 1 е 12&м<Н M$&╚Aё0,0:З═"READING % %";M$&╪B╔ "T255O1D"&ёFЩ "I",#1,M$л"23.DAT"'PЕ  М(1) з 310'ZЙ #1,N$,D,A,C$,P'"dВ CLS'MnВ LOCATE0,0:PRINTUSING"READING % %";M$'zxЕ N$│"STORAGE" з       ST │ STлA:TS│TSлP'пВЕ N$│"ELECTRICITY"     з       TX │ TXлA:XT│XTлP'▌МЕ N$│"CHARITY"  з       TI │ TIлA:IT│ITлP(ЦЕ N$│"GAS CO"   з       AT │ ATлA:TA│TAлP(8аЕ N$│"VISA"    з       VI │ VIлA:IV│IVлP(hкЕ N$│"CAR INSURANCE" з    SF │ SFлA:FS│FSлP(Х┤Е N$│"WATER"   з       WA │ WAлA:AW│AWлP(┬╛Е N$│"INTERNET"з       IN │ INлA:NI│NIлP(є╚Е N$│"TV CABLE"    з       HU │ HUлA:UH│UHлP)&╥В IF N$="MA"      THEN       MA = MA+A:AM=AM+P)S▄Е N$│"MORTGAGE"з       MO │ MOлA:OM│OMлP)zсЕ N$│"BANK LOAN" з MH│MHлA:HM│HMлP)зцЕ N$│"PHONE"   з       PH │ PHлA:HP│HPлP)█ЁЕ N$│"INCOME 1" з     AF │ AFлA:FA│FAлP:XZ│XZлA*·Е N$│"INCOME 2"з  CC │ CCлA:XC│XCлP:XZ│XZлA*?
Е N$│"INCOME 3" з     SS │ SSлA:XS│XSлP:XZ│XZлA*q
Е N$│"INCOME 4" з   MM │ MMлA:SM│SMлP:XZ│XZлA*л
Е N$│"INCOME 5"         з   TR │ TRлA:RT│RTлP:XZ│XZлA*╡
,Бе 80*╗
6Ъ*╔
;В PRINTMC*╤
@Л T*╫
JЮ+-
OЗ"       NAME                      BUDGET      ACTUAL    END OF ";Z$;" SHOULD BE"+
TL$ │ "    %           %............. ##,###.##   ##,###.##         ##,###.##"+в
^З═ L$;"STORAGE",ST,TS,STо12нMS+╔
hЗ═ L$;"ELECTRICITY",TX,XT,TXо12нMS+ь
rЗ═ L$;"CHARITY",TI,IT,TIо12нMS,
|З═ L$;"GAS CO",AT,TA,ATо12нMS,.
ЖЗ═ L$;"VISA",VI,IV,VIо12нMS,W
РЗ═ L$;"CAR INSURANCE",SF,FS,SFо12нMS,x
ЪЗ═ L$;"WATER",WA,AW,WAо12нMS,Ь
дЗ═ L$;"INTERNET",IN,NI,INо12нMS,└
оЗ═ L$;"TV CABLE",HU,UH,HUо12нMS,ф
┬З═ L$;"MORTGAGE",MO,OM,MOо12нMS-	
╟З═ L$;"BANK LOAN",MH,HM,MHо12нMS-*
╠З═ L$;"PHONE",PH,HP,PHо12нMS-X
╤GT│STлTXлTIлATлVIлSFлWAлINлHUлMAлMHлMOлPH-Ж
╥GP│TSлXTлITлTAлIVлFSлAWлNIлUHлAMлHMлOMлHP-╓
╓З═"                               ---------   ---------         ---------";.4
рЗ═"      TOTAL ANNUAL EXPENSES   $##,###.##  $##,###.##        $##,###.##";GT,GP,GTо12нMS.Н
ъЗ "==============================================================================="".▒
ЇЗ═ L$;"INCOME 1",AF,FA,AFо12нMS.╒
■З═ L$;"INCOME 2",CC,XC,CCо12нMS.∙З═ L$;"INCOME 3",SS,XS,SSо12нMS/З═ L$;"INCOME 4",MM,SM,MMо12нMS/AЗ═ L$;"INCOME 5",TR,RT,TRо12нMS/С+З═"                               ---------   ---------        ----------";/з:XT│AFлCCлSSлMSлTR/╜?XP│FAлXCлXSлSMлRT0DЗ═"      TOTAL PROJECTED INCOME  $##,###.##  $##,###.##        $##,###.##";XZ,XP,XTо12нMS;0'Iё 0,150<NA$│ Т:ЕA$│""з5900JSТ 65496,00\XО"STATUS.BAS"0tN Щ"I",#1,"MONTH.DAT"0АN*Й #1,Z$0ХN4Е Z$│"JAN"з MS│10кN>Е Z$│"FEB"з MS│20┐NHЕ Z$│"MAR"з MS│30╘NRЕ Z$│"APR"з MS│40щN\Е Z$│"MAY"з MS│50■NfЕ Z$│"JUN"з MS│61NpЕ Z$│"JUL"з MS│71(NzЕ Z$│"AUG"з MS│81=NДЕ Z$│"SEP"з MS│91SNОЕ Z$│"OCT"з MS│101iNШЕ Z$│"NOV"з MS│111NвЕ Z$│"DEC"з MS│121ЕNмЪ1ЛN╢Р"з MS│10кN>Е Z$│"FEB"з MS│20┐NHЕ Z$│"MAR"з MS│30╘NRЕ Z$│"APR"з MS│40щN\Е Z$│"MAY"з MS│50■NfЕ Z$│"JUN"з MS│6 │ MAлA:AM│AMлP);▄Е N$│"MORTGAGE"з       MO │ MOлA:OM│OMлP)bсЕ N$│"MOTORHOME" з MH│MHлA:HM│HMлP)ПцЕ N$│"PHONE"   з       PH │ PHлA:HP│HPлP)╝ЁЕ N$│"AIR FORCE" з     AF │ AFлA:FA│FAлP)щ·Е N$│"CISCO COLLEGE"з  CC │ CCлA:XC│XCлP*
Е N$│"STEVE SSN" з     SS │ SSлA:XS│XSлP*C
Е N$│"MELINDA SSN" з   MM │ MMлA:SM│SMлP*p
Е N$│"TRS"         з   TR │ TRлA:RT│RTлP*Э
"Е N$│"MELINDA PAT" з   MP │ MPлA:PM│PMлP*з
,Бе 80*н
6Ъ*╗
;В PRINTMC*├
@Л T*╔
JЮ+
OЗ"   NAME                      BUDGET      ACTUAL    END OF ";Z$;" SHOULD BE"+i
TL$ │ "%           %............. ##,###.##   ##,###.##         ##,###.##"+М
^З═ L$;"STORAGE",ST,TS,STо12нMS+л
hЗ═ L$;"TXU",TX,XT,TXо12нMS+═
rЗ═ L$;"TITHES",TI,IT,TIо12нMS+ю
|З═ L$;"ATMOS",AT,TA,ATо12нMS,
ЖЗ═ L$;"VISA",VI,IV,VIо12нMS,4
РЗ═ L$;"STATE FARM",SF,FS,SFо12нMS,U
ЪЗ═ L$;"WATER",WA,AW,WAо12нMS,x
дЗ═ L$;"OPTIMUM",IN,NI,INо12нMS,Ш
оЗ═ L$;"HULU",HU,UH,HUо12нMS,╝
┬З═ L$;"MORTGAGE",MO,OM,MOо12нMS,с
╟З═ L$;"MOTORHOME",MH,HM,MHо12нMS-
╠З═ L$;"PHONE",PH,HP,PHо12нMS-0
╤GT│STлTXлTIлATлVIлSFлWAлINлHUлMAлMHлMOлPH-^
╥GP│TSлXTлITлTAлIVлFSлAWлNIлUHлAMлHMлOMлHP-к
╓З═"                           ---------   ---------         ---------";.
рЗ═"  TOTAL ANNUAL EXPENSES   $##,###.##  $##,###.##        $##,###.##";GT,GP,GTо12нMS.O
ъЗ "  ======================= ==========  ==========        ==========".t
ЇЗ═ L$;"AIR FORCE",AF,FA,AFо12нMS.Э
■З═ L$;"CISCO COLLEGE",CC,XC,CCо12нMS.┬З═ L$;"STEVE SSN",SS,XS,SSо12нMS.щЗ═ L$;"MELINDA SSN",MM,SM,MMо12нMS/З═ L$;"TRS",TR,RT"STORAGE", 1, 90,"E", 0
"ELECTRICITY", 1, 298.7,"E", 0
"CHARITY", 4, 640,"E", 0
"GAS CO", 6, 86.5,"E", 0
"CAR INSURANCE", 10, 211,"E", 0
"WATER", 15, 150.64,"E", 0
"INTERNET", 17, 92,"E", 0
"BANK LOAN", 5, 534.9,"E", 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAGE", 25, 1074.24,"E", 0
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 0
"INCOME 1", 1, 1843.56,"I", 0
"INCOME 2", 10, 1048.2,"I", 0
"INCOME 3", 19, 1097,"I", 0
"INCOME 4", 27, 449,"I", 0
"INCOME 5", 30, 1543.47,"I", 0
, 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAG 1543.47,"I", 1543.47

"MORTGAGE", 25, 1074.24,"E", 1074.24
"VISA", 25, 750,"E", 1500
"PHONE", 30, 90,"E", 90
"INCOME 1", 1, 1843.56,"I", 2188.69
"INCOME 2", 10, 1048.2,"I", 761.15
"INCOME 3", 19, 1097,"I", 1097
"INCOME 4", 27, 449,"I", 508
"INCOME 5", 30,TGAGE"з       MO │ MOлA:OM│OMлP)KцЕ N$│"PHONE"   з       PH │ PHлA:HP│HPлP)xЁЕ N$│"AIR FORCE" з     AF │ AFлA:FA│FAлP)е·Е N$│"CISCO COLLEGE"з  CC │ CCлA:XC│XCлP)╥
Е N$│"STEVE SSN" з     SS │ SSлA:XS│XSлP) 
Е N$│"MELINDA SSN" з   MM │ MMлA:SM│SMлP*,
Е N$│"TRS"         з   TR │ TRлA:RT│RTлP*Y
"Е N$│"MELINDA PAT" з   MP │ MPлA:PM│PMлP*c
,Бе 80*i
6Ъ*q
;ЗMC*y
@Л T*
JЮ*╤
OЗ"   NAME                      BUDGET      ACTUAL    END OF ";Z$;" SHOULD BE"+
TL$ │ "%           %............. ##,###.##   ##,###.##         ##,###.##"+B
^З═ L$;"STORAGE",ST,TS,STо12нMS+a
hЗ═ L$;"TXU",TX,XT,TXо12нMS+Г
rЗ═ L$;"TITHES",TI,IT,TIо12нMS+д
|З═ L$;"ATMOS",AT,TA,ATо12нMS+─
ЖЗ═ L$;"VISA",VI,IV,VIо12нMS+ъ
РЗ═ L$;"STATE FARM",SF,FS,SFо12нMS,
ЪЗ═ L$;"WATER",WA,AW,WAо12нMS,/
дЗ═ L$;"INTERNET",IN,NI,INо12нMS,O
оЗ═ L$;"HULU",HU,UH,HUо12нMS,m
╕З═ L$;"MA",MA,AM,MAо12нMS,С
┬З═ L$;"MORTGAGE",MO,OM,MOо12нMS,▓
╠З═ L$;"PHONE",PH,HP,PHо12нMS,▌
╤GT│STлTXлTIлATлVIлSFлWAлINлHUлMAлMOлPH-
╥GP│TSлXTлITлTAлIVлFSлAWлNIлUHлAMлOMлHP-T
╓З═"                           ---------   ---------         ---------";-о
рЗ═"  TOTAL ANNUAL EXPENSES   $##,###.##  $##,###.##        $##,###.##";GT,GP,GTо12нMS-∙
ъЗ "================================================        ==========".
ЇЗ═ L$;"AIR FORCE",AF,FA,AFо12нMS.G
■З═ L$;"CISCO COLLEGE",CC,XC,CCо12нMS.lЗ═ L$;"STEVE SSN",SS,XS,SSо12нMS.УЗ═ L$;"MELINDA SSN",MM,SM,MMо12нMS.▓З═ L$;"TRS",TR,RT,TRо12нMS.┘&З═ L$;"MELINDA PAT",MP,PM,MPо12нMS/%+З═"                           --- Р&
:Г PROGRAM: YEAREXP.BAS&$:Г&F:Г THIS PROGRAM KEEPS CURRENT&i(:Г STATUS OF YOUR BUDGETED IN-&Д2:Г COME VERSUS ACTUAL.&Л<:Г&вF:Г BY STEVE POWELL&йP:Г&┐Zт80:у8,54:у0,0:Ю7&∙dЗ"                       Year to Date Expense Status"'
nЗ:З'7xЖ JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC'}З═"             Month       Budgeted       Actual      Difference";'╟~З═"             -----       --------       ------      ----------";'╪ВА T │ 1 е 12'сМН M$'ЎЦF$ │ M$л"23.DAT"(аЩ"I",#1,F$(кЕ  М(1) з 220(,┤Й #1,N$,D,A,C$,P(M╛Е C$ │ "E" з TA│TAлA:TP│TPлP(n╚Е C$ │ "E" з GA│GAлA:GP│GPлP(y╥Бе 170(▄Ъ(ОцTD │ TAмTP(дЁЕ TP │ 0 з TD │ 0(ў·З═"              % %       ##,###.##    ##,###.##       ##,###.##";M$,TA,TP,TD) TT│TTлTD)
TA│0:TP│0)
Л T)b
З═"                       ---------------------------------------";)▓
"З═"                       $##,###.##   $##,###.##     $###,###.##";GA,GP,TT)╕
&З*
'В PRINTUSING"                         ADJUSTED EXPECTED EXPENSE $###,###.##";GA+TT*
5GA│GAл12000*a
JЗ:З"                    Press any key to return to the Menu";*}
TA$ │  Т:Е A$ │ "" з 340*П
^О"STATUS.BAS"###.##     $###,###.##";GA,GP,TT)╕
&З*
'В PRINTUSING"                         ADJUSTED EXPECTED EXPENSE $#                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "STORAGE", 1, 90,"E", 0
"ELECTRICITY", 1, 298.7,"E", 0
"CHARITY", 4, 640,"E", 0
"GAS CO", 6, 86.5,"E", 0
"CAR INSURANCE", 10, 211,"E", 0
"WATER", 15, 150.64,"E", 0
"INTERNET", 17, 92,"E", 0
"BANK LOAN", 5, 534.9,"E", 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAGE", 25, 1074.24,"E", 0
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 0
"INCOME 1", 1, 1843.56,"I", 0
"INCOME 2", 10, 1048.2,"I", 0
"INCOME 3", 19, 1097,"I", 0
"INCOME 4", 27, 449,"I", 0
"INCOME 5", 30, 1543.47,"I", 0
, 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAG, 1543.47
TGAGE", 25, 1074.24,"E", 1074.24
"VISA", 25, 750,"E", 1500
"PHONE", 30, 90,"E", 90
"AIR FORCE", 1, 1843.56,"I", 2188.69
"CISCO COLLEGE", 10, 1048.2,"I", 761.15
"STEVE SSN", 19, 1097,"I", 1097
"MELINDA SSN", 27, 449,"I", 508
"TRS", 30, 1543.47,"I"TTлTD)
TA│0:TP│0)
Л T)b
З═"                       ---------------------------------------";)▓
"З═"                       $##,###.##   $##,###.##     $###,###.##";GA,GP,TT)╕
&З*
'З═"                         ADJUSTED EXPECTED INCOME  $###,###.##";GAлTT*
-Щ"O",#1,"TAX.AMT"*'
.┘ #1,GP*-
/Ъ*=
5GA│GAл12000*
JЗ:З"                    Press any key to return to the Menu";*Ы
TA$ │  Т:Е A$ │ "" з 340*н
^О"STATUS.BAS"TT)╕
&З*
'З═"                         ADJUSTED EXPECTED INCOME  $###,###.##"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 2&
:ГPROGRAM: UNPAID.BAS&":Г&B:Г SHOWS BILLS NOT PAID YET&`(:Г ENTERED IN THE BILLPAY&p2:Г PROGRAM.&w<:Г&РF:Г BY: STEVE POWELL &▓PЩ"I",#1,"MONTH.DAT":Й#1,MO$:Ъ&╕ZЮ&╓dЗ "STILL UNPAID FOR ";MO$&▐nЗ:З'
xЗ  "  NAME     DAY    AMT DUE"''}З  "---------  ---   -----------"'KВL$│"%        % ##    $#,###.##"'dМЩ"I",#1,MO$л"23.DAT"'uЦЕ  М(1)з 210'КаЙ #1,N$,D,A,C$,P'┤┤Е C$│"E" ░ P│0 з З═ L$;N$,D,A:TA│TAлA'┐╚Бе 150'┼╥Ъ'╦▄З(цЕ TA ▓ 0 з З═"TOTAL = $$#,###.##";TA :Д З "ALL BILLS ARE PAID!"($ЁA$│ Т:ЕA$│""з240(1·О"*.BAS"     % ##    $#,###.##"'dМЩ"I",#1,MO$л"23.DAT"'uЦЕ  М(1)з 210'КаЙ #1,N$,D,A,C$,P'┤┤Е C$│"E" ░ P│0 з З═ L$;N$,D,A:TA│TAлA'┐╚Бе 150'┼╥Ъ'╦▄З(цЕ TA ▓ 0 з З═"TOTAL = $$#,###.##";TA :Д З "ALL                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  K&
т80:Ю3:°3,2&М N$(30)&)Бж 290&;(А T │ 1 е Cм1&_2З═"## %              %";T,N$(T)&g<Л T&КFЗ:З"WHICH DO YOU WANT TO SEE?"&ТPЙ S&бZS$ │ N$(S)&зdЮ&╬nЗ"LISTING YEAR TOTALS FOR ";S$:З:З'	xЗ═"     MTH   BUDGETED        ACTUAL      DIFFERENCE";'DВЗ═"     ---   --------       --------    -----------";'zМЖ JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC'ЛЦА T │ 1 е 12'ФаН M$'йкM$ │ M$л"22.DAT"'╕┤Щ"I",#1,M$'╩╛Е  М(1) з 250'▀╚Й #1,N$,D,A,C$,P'ъ╥PA│PмA'¤▄Е P │ 0 з PA│0(MцЕ N$ │ S$ з З═"     % %  $##,###.##     $##,###.##    $##,###.##";M$,A,P,PA(XЁБе 190(^·Ъ(f
Л T(Р
	З:З"PRESS ANY KEY TO RETURN TO MENU";(й
A$ │  Т:Е A$│""з 270(▒
О"*(╔
"Щ"I",#1,"JAN22.DAT"(╤
,C│1(у
6Е  М(1) з 370(°
@Й #1,N$,D,A,C$,P)
JЕ C$ │ "E" з N$(C) │ N$))
TЕ C$ │ "I" з 360)3
^C│Cл1)>
hБе 310)D
rЪ)J
|Р(XЁБе 190(^·Ъ(f
Л T(Р
	З:З"PRESS ANY KEY TO RETURN TO MENU";(й
A$ │  Т:Е A$│""з 270(▒
О"*(╔
"Щ"I",#1,"JAN22.DAT"(╤
,C│1(у
6Е  М(1) з 370(°
@Й #1,N$,D,A,C$,P)
JЕ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 "STORAGE", 1, 90,"E", 0
"ELECTRICITY", 1, 298.7,"E", 0
"CHARITY", 4, 640,"E", 0
"GAS CO", 6, 86.5,"E", 0
"CAR INSURANCE", 10, 211,"E", 0
"WATER", 15, 150.64,"E", 0
"INTERNET", 17, 92,"E", 0
"BANK LOAN", 5, 534.9,"E", 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAGE", 25, 1074.24,"E", 0
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 0
"INCOME 1", 1, 1843.56,"I", 0
"INCOME 2", 10, 1048.2,"I", 0
"INCOME 3", 19, 1097,"I", 0
"INCOME 4", 27, 449,"I", 0
"INCOME 5", 30, 1543.47,"I", 0
, 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAG                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "STORAGE", 1, 90,"E", 90
"ELECTRICITY", 1, 298.7,"E", 305
"CHARITY", 4, 640,"E", 640
"GAS CO", 6, 86.5,"E", 204.26
"CAR INSURANCE", 10, 211,"E", 233.52
"WATER", 15, 150.64,"E", 140.38
"INTERNET", 17, 92,"E", 91.09
"BANK LOAN", 5, 534.9,"E", 534.9
"TV CABLE", 25, 81.53,"E", 91.99
"MORTGAGE", 25, 1092.68,"E", 1092.68
"VISA", 25, 750,"E", 1000
"PHONE", 30, 90,"E", 90
"INCOME 1", 1, 2173.56,"I", 2173.56
"INCOME 2", 10, 1048.2,"I", 1084.34
"INCOME 3", 19, 1097,"I", 1097
"INCOME 4", 27, 449,"I", 508
"INCOME 5", 30, 1543.47,"I", 1543.47
"MORTGAGE", 25, 1092.68,"E", 1092.68
"VISA", 25, 750,"E", 1000
"PHONE", 30, 90,"E", 90
"INCOME 1", 1, 2173.56,"I", 2173.56
"INCOME 2", 10, 1048.2,"I", 1084.34
"INCOME 3", 19, 1097,"I", 1097
"INCOME 4", 27, 449,"I", 508
"INCOME 5", 3                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 %&
:Г  YEARUTIL.BAS& т80:Ю&VЖ JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC&g(А T │ 1 е 12&m2Ъ&v<Н M$&└Fё0,0:З═"                        Reading % % for the Year-To-Date.";M$&┘PЩ "I",#1,M$л"23.DAT"&ыZЕ  М(1) з 190&єdC│0'nЙ #1,N$,D,A,C$,P'ExЕ N$ │ "ELECTRICITY"   ░ P ▓ 0 з TA│TAлA:TP│TPлP:TX│TXл1'zВЕ N$ │ "WATER" ░ P ▓ 0 з TA│TAлA:TP│TPлP:WA│WAл1'░МЕ N$ │ "GAS CO" ░ P ▓ 0 з TA│TAлA:TP│TPлP:AT│ATл1'┐ЦF│TXлWAлAT'╒аЕ F │ 1 з DI│DIл1'шкTX│0:WA│0:AT│0'Є┤Бе 90'°╛Ъ(╚Л T(╥Ю(▄TD │ TAмTP(#цDI │ DIо3()ЁЗ(w·З "                This is your Year-To-Date of the three utility bills:"(Б
З:З:З(╝
З "                       ELECTRIC      (ELECTRICITY)"(Є
З "                       GAS           (GAS CO)")2
"З "                       WATER         (CITY OF WHEREVER)"):
,З:З)Н
6З═"                       Budgeted    $##,###.##   Average $#,###.##";TA,TAоDI)р
@З═"                       Actual      $##,###.##   Average $#,###.##";TP,TPоDI*+
JЗ═"                       ------------------------------------------";*h
TЗ═"                       Difference  $##,###.##";TAмTP;*Ц
UЕ (TAмTP)▓0 з З " Pocketed for the year!"*╣
VЕ (TAмTP)┤0 з З " IN THE RED!"+
^ё 0,20:З"                       Press <Any Key> to Return to Menu ";+
hA$│ Т:ЕA$│""з360+$
rО"*.BAS"--";*h
TЗ═"                       Difference  $##,###.##";TAмTP;*Ц
UЕ (TAмTP)▓0 з З " Pocketed for the year!"*╣
VЕ (TAмTP)┤0 з З " IN THE RED!"+
^ё 0,20:З"                       Press <Any Key> to Return to Menu                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "STORAGE", 1, 90,"E", 0
"ELECTRICITY", 1, 298.7,"E", 0
"CHARITY", 4, 640,"E", 0
"GAS CO", 6, 86.5,"E", 0
"CAR INSURANCE", 10, 211,"E", 0
"WATER", 15, 150.64,"E", 0
"INTERNET", 17, 92,"E", 0
"BANK LOAN", 5, 534.9,"E", 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAGE", 25, 1074.24,"E", 0
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 0
"INCOME 1", 1, 1843.56,"I", 0
"INCOME 2", 10, 1048.2,"I", 0
"INCOME 3", 19, 1097,"I", 0
"INCOME 4", 27, 449,"I", 0
"INCOME 5", 30, 1543.47,"I", 0
, 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAG, 29.64, 0
"01102023","USPS","STAMPS", 9.9, 0
"01102023","BROOKSHIRES","FOOD", 10.38, 0
Y","HOBBY", 27.91, 0
"01102023","DENNYS","FOOD", 24.69, 0
"01102023","DOLLAR GENERAL","MISC", 2.98, 0
"01102023","SONIC","FOOD", 3.77, 0
"01102023","BROOKSHIRES","FOOD"TTлTD)
TA│0:TP│0)
Л T)b
З═"                       ---------------------------------------";)▓
"З═"                       $##,###.##   $##,###.##     $###,###.##";GA,GP,TT)╕
&З*
'В PRINTUSING"                         ADJUSTED EXPECTED EXPENSE $###,###.##";GA+TT*%
-Щ"O",#1,"TAX.AMT"*1
.┘ #1,GP*7
/Ъ*G
5GA│GAл12000*Й
JЗ:З"                    Press any key to return to the Menu";*е
TA$ │  Т:Е A$ │ "" з 340*╖
^О"STATUS.BAS"
'В PRINTUSING"                         ADJUSTED EXPECTED EXPENSE $#""з360+
rО"*.BAS"--";*V
TЗ═"                       Difference  $##,###.##";TAмTP;*Д
UЕ (TAмTP)▓0 з З " Pocketed for the year!"*з
VЕ (TAмTP)┤0 з З " IN THE RED!"*Ё
^ё 0,20:З"                       Press <Any Key> to Return to Menu ";+
hA$│ Т:ЕA$│                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 с&
Ю&=Ж JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC&NА T │ 1 е 12&W(Н M$&p2Щ "I",#1,M$л"23.DAT"&В<Е  М(1) з 500&ЧFЙ #1,N$,D,A,C$,P&╚PЗ═ #м2,"##   %                       %";T,N$&╥ZБе 60&╪
ЇЪ&р
■Л T              .##  $$###.##";D$,A,T'xБе 70'JВЗ═"               ---------  --------";'{МЗ═"     TOTAL    $##,###.##  $$###.##";AT,TT'▓ЦЗ:З═"   SHOULD HAVE $#,###.## SET IN TAXES.";ATн.2'╟аA$│ Т:ЕA$│""з160'┌кО"MELMENU.BAS"│TTлT'nЗ═"   %      %    $#,###                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
Ц&
Щ"I",#1,"LISTED.DAT"&3Щ"O",#2,"LISTED.UPD"&EЕ  М(1) з 500&Q(Й #1,A$&s2Е A$│"TXU" з A$│"ELECTRICITY"&Р<Е A$│"ATMOS"зA$│"GAS CO"&▒FЕ A$│"TITHES" з A$│"CHARITY"&▄PЕ A$│"STATE FARM" з A$│"CAR INSURANCE"& ZЕ A$│"OPTIMUM" з A$│"INTERNET"'dЕ A$│"HULU" з A$│"TV CABLE"'DnЕ A$│"MOTORHOME"з A$│"BANK LOAN"'Px┘ #2,A$'ZВБе 30'`
ЇЪ's
■╥ "LISTED.DAT"'Х╓ "LISTED.UPD" е "LISTED.DAT"$│"TITHES" з A$│"CHARITY"&▄PЕ A$│"STATE FARM" з A$│"CAR INSURANCE"& ZЕ A$│"OPTIMUM" з A$│"INTERNET"URCH", 150,"Y",""
"N/A","BIBLE BAPTIST CHURCH", 150,"Y",""
"N/A","AMANDA", 44,"Y","ADAM SALE"
"427","CATHY SYLVESTER", 70,"Y","DOG GROOMERS"
"1092.68","HOUSE MORTGAGE", 1092.68,"Y",""
"333","BIBLE BAPTIST", 150,"Y",""
"222","MA", 85,"Y",""
"N/A","STORAGE", 60,"Y",""
"N/A","VISA", 1000,"Y",""
"WATER","WATER", 150,"Y",""
"N/A","STORAGE", 60,"Y",""
"N/A","MOTORHOME", 534.68,"Y",""
"N/A","STAQTE FARM", 217.23,"Y",""
"N/A","WATER", 140.38,"Y",""
,"BIBLE BAPTIST", 150,"Y",""
"222","MA", 85,"Y",""
"N/A","STORAGE",                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "STORAGE", 1, 90,"E", 0
"ELECTRICITY", 1, 298.7,"E", 0
"CHARITY", 4, 640,"E", 0
"GAS CO", 6, 86.5,"E", 0
"CAR INSURANCE", 10, 211,"E", 0
"WATER", 15, 150.64,"E", 0
"INTERNET", 17, 92,"E", 0
"BANK LOAN", 5, 534.9,"E", 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAGE", 25, 1074.24,"E", 0
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 0
"INCOME 1", 1, 1843.56,"I", 0
"INCOME 2", 10, 1048.2,"I", 0
"INCOME 3", 19, 1097,"I", 0
"INCOME 4", 27, 449,"I", 0
"INCOME 5", 30, 1543.47,"I", 0
, 0
"TV CABLE", 25, 81.53,"E", 0
"MORTGAG0
RHOME", 5, 534.9,"E", 0
"MORTGAGE", 25, 1092.67,"E", 0
"PHONE", 30, 90,"E", 0
"AIR FORCE", 1, 2005.26,"I", 0
"CISCO COLLEGE", 10, 1048.2,"I", 0
"STEVE SSN", 21, 990,"I", 0
"MELINDA SSN", 28, 449,"I", 0
"TRS", 30, 1543.47,"I", 0
"MELINDA PAT", 20, 0,"I",                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
Ю&
Ю&Бе 70&!M│0:J│0:O│0&5A$│ Т:ЕA$│""з30&R(Е A$│"M" з M│Mл1:TV│TVл1&o2Е A$│"J" з J│Jл1:TV│TVл1&М<Е A$│"D" з D│Dл1:TV│TVл1&дFЗ@0,"MCCARTHY = ";M&┐PЗ@32н1,"JEFFRIES = ";J&┌ZЗ@32н2,"DONALDS  = ";D&√dЗ@32н4,    "TOTAL VOTES ";TV'!nЗ@32н10,"REMAINING VOTES ";434мTV'GxЕ A$│"M" з ╔ "T255O5;ABBCCDDEEFF"'mВЕ A$│"J" з ╔ "T255O5;FFEEDDCCBBA"'УМЕ A$│"D" з ╔ "T255O3;DDDDDDDDDDD"'ЭЦБе 30 ";M&┐PЗ@32н1,"JEFFRIES = ";J&┌ZЗ@32н2,"DONALDS  = ";D&√dЗ@32н4,    "TOTAL VOTES ";TV'!NDA PAT", 20, 0,"I", 0
92.68
"VISA", 25, 750,"E", 1500
"PHONE", 30, 90,"E", 90
"AIR FORCE", 1, 2173.56,"I", 2173.56
"CISCO COLLEGE", 10, 1048.2,"I", 899.67
"STEVE SSN", 19, 1097,"I", 990
"MELINDA SSN", 27, 449,"I", 449
"TRS", 30, 1543.47,"I", 1543.47
"MELI 60,"Y",""
"N/A","VISA", 1000,"Y",""
"WATER","WATER", 150,"Y",""
"N/A","STORAGE", 60,"Y",""
"N/A","MOTORHOME", 534.68,"Y",""
"N/A","STAQTE FARM", 217.23,"N",""
"N/A","WATER", 140.38,"Y",""
,"BIBLE BAPTIST", 150,"Y",""
"222","MA", 85,"Y",""
"N/A","STORAGE",                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "STORAGE", 1, 70,"E", 0
"TXU", 1, 298.7,"E", 0
"TITHES", 4, 640,"E", 0
"ATMOS", 6, 86.5,"E", 0
"STATE FARM", 10, 211,"E", 0
"WATER", 15, 150.64,"E", 0
"OPTIMUM", 17, 92,"E", 0
"MOTORHOME", 5, 534.9,"E", 0
"HULU", 25, 81.53,"E", 0
"MORTGAGE", 25, 1074.24,"E", 0
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 0
"AIR FORCE", 1, 1843.56,"I", 0
"CISCO COLLEGE", 10, 1048.2,"I", 0
"STEVE SSN", 19, 1097,"I", 0
"MELINDA SSN", 27, 449,"I", 0
"TRS", 30, 1543.47,"I", 0
"MELINDA PAT", 20, 0,"I", 0
"MORTGAGE", 25, 1074.24,"E PAT", 20, 1200,"I", 0
92.68
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 90
"AIR FORCE", 1, 2173.56,"I", 2173.56
"CISCO COLLEGE", 10, 1048.2,"I", 899.67
"STEVE SSN", 19, 1097,"I", 990
"MELINDA SSN", 27, 449,"I", 449
"TRS", 30, 1543.47,"I", 1543.47
"MELINDA                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 6&
Ю&*З"QUICK BALANCE WORKSHEET":З:З&PЙ "Main Checking Balance    :";MC&vЙ "Joint Checking Balance   :";JC&Ь(Й "Savings (optional)       :";SA&╠2З     "-----------------------------------"&╪7Бж 1000'
<З═"Totals                   $##,###.##";MCлJCлSA'<>З═"      Joint Outstanding  $##,###.##";TT'j@З═"                         -----------";'дBЗ═"      Available Balance  $##,###.##";(MCлJCлSA)мTT'╣dA$│ Т:ЕA$│""з100'┴xО"*'┘шЩ"I",#1,"JOINT.DAT"'ьЄЕ  М(1) з 1500(№Й #1,CK$,P$,A,CL$,N$(Е CL$│"N" з TT│TTлA()Бе 1010(/▄Ъ(5цР";TT'j@З═"                         -----------";'дBЗ═"      Available Balance  $##,###.##";(MCлJCлSA)мTT'╣dA$│ Т:ЕA$│""з100'┴xО"*'┘шЩ"I",#1,"JOINT.DAT"'ьЄЕ  М(1) з 1500(№Й #1,CK$,P$,A,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "STORAGE", 1, 70,"E", 0
"TXU", 1, 298.7,"E", 0
"TITHES", 4, 640,"E", 0
"ATMOS", 6, 86.5,"E", 0
"STATE FARM", 10, 211,"E", 0
"WATER", 15, 150.64,"E", 0
"OPTIMUM", 17, 92,"E", 0
"MOTORHOME", 5, 534.9,"E", 0
"HULU", 25, 81.53,"E", 0
"MORTGAGE", 25, 1074.24,"E", 0
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 0
"AIR FORCE", 1, 1843.56,"I", 0
"CISCO COLLEGE", 10, 1048.2,"I", 0
"STEVE SSN", 19, 1097,"I", 0
"MELINDA SSN", 27, 449,"I", 0
"TRS", 30, 1543.47,"I", 0
"MELINDA PAT", 20, 0,"I", 0
"MORTGAGE", 25, 1074.24,"E PAT", 20, 1200,"I", 1200
68
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 90
"AIR FORCE", 1, 2173.56,"I", 2173.56
"CISCO COLLEGE", 10, 1048.2,"I", 899.67
"STEVE SSN", 19, 1097,"I", 990
"MELINDA SSN", 27, 449,"I", 449
"TRS", 30, 1543.47,"I", 1543.47
"MELINDA                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "STORAGE", 1, 70,"E", 0
"TXU", 1, 298.7,"E", 0
"TITHES", 4, 640,"E", 0
"ATMOS", 6, 86.5,"E", 0
"STATE FARM", 10, 211,"E", 0
"WATER", 15, 150.64,"E", 0
"OPTIMUM", 17, 92,"E", 0
"MOTORHOME", 5, 534.9,"E", 0
"HULU", 25, 81.53,"E", 0
"MORTGAGE", 25, 1074.24,"E", 0
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 0
"AIR FORCE", 1, 1843.56,"I", 0
"CISCO COLLEGE", 10, 1048.2,"I", 0
"STEVE SSN", 19, 1097,"I", 0
"MELINDA SSN", 27, 449,"I", 0
"TRS", 30, 1543.47,"I", 0
"MELINDA PAT", 20, 0,"I", 0
"MORTGAGE", 25, 1074.24,"E PAT", 20, 1200,"I", 1200
68
"VISA", 25, 750,"E", 0
"PHONE", 30, 90,"E", 90
"AIR FORCE", 1, 2005.26,"I", 2173.56
"CISCO COLLEGE", 10, 1048.2,"I", 899.67
"STEVE SSN", 19, 1097,"I", 990
"MELINDA SSN", 27, 508,"I", 449
"TRS", 30, 1543.47,"I", 1543.47
"MELINDA 60,"Y",""
"N/A","VISA", 1000,"Y",""
"WATER","WATER", 150,"Y",""
"N/A","STORAGE", 60,"Y",""
"N/A","MOTORHOME", 534.68,"N",""
"N/A","STAQTE FARM", 217.23,"N",""
"N/A","WATER", 140.38,"Y",""
,"BIBLE BAPTIST", 150,"Y",""
"222","MA", 85,"Y",""
"N/A","STORAGE",                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "STORAGE", 1, 70,"E", 70
"TXU", 1, 298.7,"E", 303
"TITHES", 4, 640,"E", 640
"ATMOS", 6, 86.5,"E", 133.57
"STATE FARM", 10, 211,"E", 233.52
"WATER", 15, 150.64,"E", 133.83
"OPTIMUM", 17, 70,"E", 91.09
"MOTORHOME", 5, 534.9,"E", 534.9
"HULU", 25, 81.53,"E", 91.99
"MORTGAGE", 25, 1092.68,"E", 1092.68
"VISA", 25, 750,"E", 1500
"PHONE", 30, 90,"E", 90
"AIR FORCE", 1, 2173.56,"I", 2173.56
"CISCO COLLEGE", 10, 1048.2,"I", 899.67
"STEVE SSN", 19, 1097,"I", 990
"MELINDA SSN", 27, 449,"I", 449
"TRS", 30, 1543.47,"I", 1543.47
"MELINDA PAT", 20, 0,"I", 0
92.68
"VISA", 25, 750,"E", 1500
"PHONE", 30, 90,"E", 90
"AIR FORCE", 1, 2173.56,"I", 2173.56
"CISCO COLLEGE", 10, 1048.2,"I", 899.67
"STEVE SSN", 19, 1097,"I", 990
"MELINDA SSN", 27, 449,"I", 449
"TRS", 30, 1543.47,"I",