YZ’Ö3ë3A¤D¤H¤B¤TOT¨XD¤CM¨C¤F¤CL¤CAT¤MAXÅE¨ED¨E¤RJUSÔROUNÄCATMEÎCATHEÄNUMÅÉÊËÌÃÓÍØEÓÙÎNÏÄÔÆÁÂIØAÌxx”A¢öAþRn } ÷÷ AA ‡ÉA =Éó àB@B0BPB @@@!@@2@I !"#$%& + HOME FINANCE MANAGER› AUTHOR: WILLIAM D. SEIVERT›WRITTEN JUNE-JULY, 1980›#--ADJUST MAXE ON LINE 100 FOR MEMORY SIZE›(hh€;@ ,;@,‚;A ,ƒ;@,„9@,…;@,†9@,‡;@(,ˆ;@,2BBA$ IS GENERAL STRING, D$ IS DATE (MM/DD/YY), H$ IS MENU LIST›<TOT IS TOTAL PER DIVISION›FTOT(0) IS GRAND TOTAL›P'‰;@,Š;AG,'247=13*19›Z//CL$ IS CURRENT CAT, CAT$ IS CATAGORY LIST›d;6‹-A;MAXE IS MAXIMUM NUMBER OF ENTRIES ALLOWED›n@Œ9‹,9‹,Ž;‹$@(,@ENTRY GROUP, AMT AND DESCRIPTIONS›–ii1. ENTER NEW DATA 2. DISPLAY REPORTS 3. SAVE/RESTORE 4. CHANGE OR DELETE 5. EXIT ?››""DATA AT 150 IS FOR MENU (H$)› ABCDEFGHIJKLMN›¥DATA AT 160 IS FOR B$›ð56-B@5ADDRESS OF RIGHT JUSTIFYING ROUTINE›ú-6-B0-ADDRESS OF ROUNDING ROUTINE›*6‘-BP*ADDRESS OF CATAGORY MENU›56’-B 5ADDRESS OF CATAGORY HEADING BUILDER›INITIALIZE›š!"‚!READ MAIN MENU HEADINGS›Ÿ''6‚7A,. ENTER CHOICE (1-5) ¤ "ƒ READ SELECTION LETTERS›©SET UP CATAGORY HEADINGS›®&&6Š7@,.Automotive ¯&&6Š7@ ,.Business °&&6Š7@9,.Clothing ±&&6Š7@X,.Donations ²&&6Š7@w,.Entertainment ³&&6Š7@–,.Food ´&&6Š7A,.Gasoline µ&&6Š7A4,.Home Improvements ¶&&6Š7AS,.Investments ·&&6Š7Ar,.Taxes ¸&&6Š7A‘,.Rent/Mortgage ¹&&6Š7A,.Miscellaneous º&&6Š7A),.Medical ÂB6†8@,-@-6†8@,-@B6†8@ ,-@ÃB6†8@,-@-6†8@,-@B6†8@,-@ÅB6†8@,-@-6†8@,-@B6†8@,-@ÆB6†8@,-@-6†8@,-@B6†8@,-@Ç6†8@,-@:##@@K:D#6“-#NUMBER OF ENTRIES›N›XMAIN MENU›b8 +@@)AR@8ERASE CURSOR›g5@‚@'@ƒ@95SET MARGINS›l/”-@@/6•-+”&@,$@ v-”$@€-–-@@ 6—-•%–-6˜-@:‚7—<—,,Š˜"@:?,Ap”*@˜ž –¨ ”¼)@™Æ? :? :? :?›Ð™@:1,*™@:5,AÚ9AV@'AX9AW@ä!!(INVALID CHOICE, TRY AGAINî”-@@ø%%2A€@@•-@@ • %%2 ”  Aè6—-A:>:™,,ò9AV@'AX9AW@ü!!( !-—$@!@:*@™&@2:CHANGE COLOR OF SELECTED NUMBER›”-@@P ”$//—A A0A@APB.&&NEW, DISPLAY, TAPE, CHANGE, EXIT›ÐENTER NEW DATA ROUTINE›Ú“%@!‹Aä ‘AR@ 2-”•%@2(ENTER CHOICE (A-M) X TO QUIT)@™™"@:X,A™@:A,*™@:M,A" -”•%@*##(INVALID CHOICE, TRY AGAIN 4—-@@>%%2A€@@H–-@@ –R%%2\ —f A `˜›¢2-”•%@2( ¬+6—-™&@:A,%@+COMPUTE CATAGORY›¶-”%@•%—À0(>:™%A(,0HIGHLIGHT SELECTED CATAGORY›Êš-@@ šÔ ’B 1 +AR1-@@V (‰6.` @-@@@(%ENTER DATE OF TRANSACTION (MM/DD/YY) j o B:,"A$p B:,"@A$ q ”-B:,%@@r 67”<”,.  ”t :-@@:( ENTER DESCRIPTION OF TRANSACTIONy $$SHOW USER HOW MUCH ROOM HE HAS›~ .-@@.( ˆ "-@@€"6¦-B:€,’ ”-¦@6@œ 6˜-@:€7”<”,,¦ ˜"@: ,6˜-@: ,° 6€7”<”,.>:˜, ”º *-@@*(ENTER AMOUNT $Ä  A&› B Î 6“-“%@“!‹AØ 6œ-“$@(&@'â  6Œ8“,-—SAVE CATAGORY›ì ”-@@ö %6Ž7œ<œ,.7”<”,!6œ-œ%@% ” ”-@¦ %6Ž7œ<œ,.€7”<”,!6œ-œ%@% ”  68“,-SAVE VALUE› A'( ILLEGAL VALUE SUPPLIED›2 2-@@2(ILLEGAL VALUE, TRY AGAIN< ”-@@F %%2A€@@P •-@@ •Z %%2d  ”n =-@@=(# x G-@@=(# G A$Œ  BCANCEL TRAP›  -@@ª ++("NEXT ENTRY FOR THIS CATEGORY (Y/N)´ )@™¾ >:™,4YA#pÈ -@@Ò --(% Ü -@@æ !!(DIFFERENT CATAGORY (Y/N)ð )@™ú >:™,4YA  # A#RETURN TO MAIN MENU›¸ DISPLAY REPORTS›½ “"A8 *”-@&6„8”,-* ”Ì %”-@“%ACCUMULATE TOTALS›Ö  6•-Œ8”,CATAGORY NUMBER›à 6„8,-„8,%8”,ê 6„8•,-„8•,%8”,ô  ”þ ”-@  6›-„8”, 6„8”,-  ”  +AR& ( CURRENT TOTALS0 '6”-@6•-@'6š-@: —-@@D -”•%—I 2„8—,"(( Š7š<š%@,2 A2J  6›-„8—, L 6ž-†8—,N (ƒ7—<—, Š7š<š%ž,X %Ÿ-ž@ @!(. % Ÿb -”%@%•%—l ($…€ 6š-š%@ —Š -”•%@” ( GRAND TOTALž ,-”%@%•%@(6›-„8,, ¨ ($…² AR@ä ›î 8-”•%@8("Details of which? Enter X to stop.ø )@™ ™"@:X,A9 ™@:A,*™@:M,A4P 8-”•%@8(" INVALID CHOICE, TRY AGAIN  —-@@* %%2A€@@4 š-@@ š> %%2H  —R A3z 6—-™&@:A,%@„ „8—,A4€Ž B-”•%@8(" NO DETAIL FOR THIS CATAGORY B A3`˜ -”•%—¢ 0(>:™%A(,0HIGHLIGHT SELECTED CATAGORY›¬ š-@@P š¶  ’6˜-À  +6 -Ê ( DETAIL OF ‰Þ ”-@“è Œ8”,—A7ò %6˜-˜%@%˜ @ A5ü >6˜-@.(Press RETURN to continue 2€>6 -@6š-@($” 6›-8”,  "A6@$-@@(.-@@ 855(Ž7š&@'<š&@ , Ž7š&@<š,$…t ”~ 6›-„8—, ƒ8 "@!-@@&(8-@@ ˆ+(+( TOTAL $…’ (Another catagory? (Y/N)œ)@™¦›°™"@:Y,A1º AØAR@â< +-@@<( NO REPORTS TO DISPLAYì%”-@@€ ”% A< A SAVE TO TAPE›¾1 +@‚@1AR@È-@@Ò))(!Save or Restore from file (S/R/X)Ü)@™æ™"@:X,Að+™@:S,*™@:R,! AH+ A@@ú""(Is file Tape or Disk (T/D))@¡+¡@:T,*¡@:D,! AH+ A@$¡@:D,6¢-$ AAP"@AR@(&Enter disk filename (e.g., D:FILE.EXT)'**(" D:HOMEFIN.DAT is assumed filename,%ˆ6¢-@%AR@1&B:ˆ,"&6ˆ. D:HOMEFIN.DAT6 AI@™"@:S,6”-@J™"@:R,6”-@T)¢")@”C:^&¢"@&@”ˆh”"@ACr$ @“$“"ABP|”-@“6—-”$@(†// @Œ8”,,8”,,Ž7—&@'<—, ”š@ AEÌ$@“$“"AC`Ñ9 “!‹/(!TOO MANY ENTRIES FOR THIS VERSION9 AC`Ö”-@“6—-”$@(à&@£¤‡6Œ8”,-£&68”,-¤ê•-@@(ô+'6Ž7—&@(%•<—&@(%•,.‡7•<•,+ •þ ”@” B AÀ›Ê3-@@3(INVALID CHOICE, TRY AGAINÔ—-@@Þ%%2A€@è”-@@ ”ò%%2ü”-@@ ” —3-@@3( $$I/O ERROR›./-@@/( I/O Error F:A•,8—-@@B%%2A€@L”-@@ ”V%%2`”-@@ ”j —t3-@@3( ~ AˆCHANGE OR DELETE›’ BPAR@Ä2-”•%@2(ENTER CHOICE (A-M) X TO QUITÉ)@™Ì™"@:X,AΙ@:A,*™@:M,ARØ-”•%@â$$(INVALID CHOICE, TRY AGAIN ì—-@@ö%%2A€@@–-@@ – %%2 — AP`P›Z2-”•%@2( d+6—-™&@:A,%@+COMPUTE CATAGORY›iE„8—," -”•%@;(NO ENTRIES IN CATAGORYE AQn-”%@•%—x0(>:™%A(,0HIGHLIGHT SELECTED CATAGORY›‚š-@@ šŒ B ››J”-@“TŒ8”,—AY^1 +AR@1-@@h(‰6.r6š-@($”| 6›-8”, à'AR@'-@@ê55(Ž7š&@'<š&@ , Ž7š&@<š,$…ô!!(Change this entry (Y/N/X)þ)@™™"@:X,A™@:Y,AX (Change the date (Y/N) #)@™#™@:Y,AV&?AR)(Enter new date -?AR@0Q•-@@;6Ž7š&@(%•<š&@(%•,.7•<•,? •QAR@:!!(Change description (Y/N) D)@™N™@:Y,AWPX/AR/(Enter new descriptionb-€AR@-•-@@ g7 •!B:€,-6Ž7š&@ %•<š&@ %•,. 7 AWEl''6Ž7š&@ %•<š&@ %•,.€7•<•,q •v(Change amount (Y/N)€)@™Š™@:Y,AX”6AR AW€6(Enter new amount ž› B ¨AR@68”,-² AY¼ (Delete this entry (Y/N) Æ#)@™#™@:Y,AYË”"“AXpÐ •-”“ž-š&@'šÕ0ž%@(!‹$@(&6Ž7ž<ž,. 0 AXUÚ##6Ž7ž<ž,.Ž7ž%@(<ž%@(,ß žà1 •"“6Œ8•,-'68•,-1 AXeä+6Œ8•,-Œ8•%@,+68•,-8•%@,é •î6“-“&@ø” “AT`  ” APÜ/”-@@/6•-+”&@,$@ (#' +'(ERROR: Table overflow2#++(#Some entries must be deleted before<#(more can be added.F#”-@@P#%%2A@@Z#•-@@ •d#%%2n#•-@@ •x# ”‚#6“-“&@ A'”-@A ”'C +AR1@‚@C@ƒ@9$'@à.%%SET UP CATAGORY HEADING GIVEN L›ê.6•-—$@6š-ô. ”-@@6@þ.76˜-@:Š7•<•,,%šB P7NON-BLANK FOUND›/5˜"@: ,B €5DON'T INVERT TRAILING BLANKS›/6š-@/9˜!@:Z,6˜-˜&@29CONVERT TO CAPITAL LETTERS›&/6˜-˜%A(0/6‰7”<”,.>:˜,:/6•-•&@ ”D/$È211ROUTINE TO ROUND X TO 2 DECIMAL PLACES IN Y›Ò2)&6-P:+›%>P,$A,'A)$°6RIGHT JUSTIFYING ROUTINE›º6//GIVEN X, RETURNS XD$, DESTROYS VALUE IN X›Ä66…. .00Î66›-›$AØ6996…7@<@,.>:@:0,%›&P:›'@,$@,â66›-P:›'@,ì6996…7@<@,.>:@:0,%›&P:›'@,$@,ö66›-P:›'@,7 ¥-@@6@ 7›"BA 7--6…7¥<¥,.>:@:0,%›&P:›'@,$@,76›-P:›'@,(7 ¥27$˜:CATAGORY MENU›¢:+ +6”-@%6•-@+-”•¬:(­:-”•%@(| A ®:(Š7@<@, |¯:-”•%@(| B °:(Š7@ <@8, |±:-”•%@(| C ²:(Š7@9<@W, |³:-”•%@(| D ´:(Š7@X<@v, |µ:-”•%@(| E ¶:(Š7@w<@•, |·:-”•%@(| F ¸:(Š7@–<A, |¹:-”•%@(| G º:(Š7A<A3, |»:-”•%@(| H ¼:(Š7A4<AR, |½:-”•%@ (| I ¾:(Š7AS<Aq, |¿:-”•%@(| J À:(Š7Ar<A, |Á:-”•%@(| K Â:(Š7A‘<A , |Ã:-”•%@(| L Ä:(Š7A<A(, |Å:-”•%@(| M Æ:(Š7A)<AG, |Ç:-”•%@È:(Ê:$€ D:FINANCE.BAS