@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED697 FREE SECTORS COPYING---D8:COPY32.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 164ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u05  15 2 2151^116115ύ011$r2ԭ5 3)5)5ԭx GT}@@L00)+& 2 L0=ɛ -L!1LV1L1 /3 3ȹ441L-4 v3 25 2H 2h͔5U}L3L3 2 k3U hh`DOC`QL3P1Lk0S1H /3h0B k3@ VL0LU!#$53 1181118V}1111Ε5 1Lk0552 1Ȍ1i111i11115Lk0pppB4f5&&&&&&&&^6f^6&&&&&W}&&A1@BJ D2ELVK@BHILV^Щ6 2BD2EJ VBD5EHI0 V0%5X}5 2iХiL[2 25 25`D:*.*` i@`8 ``@i `8@`0 BLV525<4Y}5`HH i ԍΗ552 ԍhh@ Lح1Э1Ѣ 24.4 24Z}4`D4E` 2BJ k3LVRH` 2BD4EhK)I JLV333 BASIC languag i}e OBJ > MACHINE language DOC > DOCumentation PIC|MIC|FNT|MVM > Graphics AMS|MUS|MBD > Music LST j} > BASIC LISTing -Some MACHINE language programs can only be run by booting the disk MENU "without" BASIC! -For s k}ome programs, XL/XE models may require a "TRANSLATOR" program to be booted first! [Also available from BELLCOM] - l}Most programs are relatively self-explanatory; however, some have separate DOCumentation files available. Some BASIC m} programs may contain instructions in their program listings. -To use this great MENU program on your own disks, n}simply copy the file "AUTORUN.SYS" onto your disk. * MENU written by DAVID CASTELL * program on your own disks, ^ BANKING PROGRAM by R. Dinning Home 279-3052 Bus 920-5777 p} ================================== This banking program was designed to accomplish two tasks that I regularly foundq} a problem. The first was to tell me where to put money when I went to the bank. I regularly found that I had to tranr}sfer money to the chequing account and withdraw more than pocket money to pay bills over the counter. (Since the bankins}g terminals have come along, I modified the program to take them into account, and since we use the Green Machine, tht}e code used was "G".) The second problem was the fact that I frequently failed to look far enough ahead when budgetinu}g. I would look at my account and see a lot of money and spend it after calculating a week or so ahead. Then I would v}find that a large bill I had forgotten about would arrive and I would be in trouble. This program alows you to put inw} bill estimates for budgeting purposes for any period into the future you like, without worrying later if you rememberx}ed it. You can always go to the computer or your print-out and check. I try to look a year ahead by putting in those y}bills for the following year as they come in this year. This entire process may seem very complicated, but after the z} initial setup, you will find that about 5 to 10 minutes per banking cycle will operate it to do all you need. It is es{}pecially useful for big spending what-if-type operations. Such as can we afford $500 per month in car payments? This |}type of thing can be set up in seconds, then the print run, and the original setup restored. This program reads three }}files which must be maintained via Atariwriter or an other word processing system. They must not include the special ~}line included by Atariwriter as the first line of a file. They may also not inlude any other special characters some }word processing systems throw in unless they are compatible with the BASIC file I/O system. FILE ONE NAME: W}EEK ------------------- This file contains your savings and chequing account balances(optional) and all non}-periodic expenses. The file consists of a description, a date due, a payment method, and the dollar amount followed by} a carriage return. NOTE: Dollar values in all files need not be justified in any way and may or may not include a } decimal point. If cents are needed, then the decimal point must be present. FILE LAYOUT(fields are positional) FIE}LD POSITION CONTENTS ----- -------- -------- TITLE 1-19 DATE 20-25 YYMMDD PAYMENT 26 C}=cheque D=debit memo from chequ- ing account } B=pay cash G=banking machine payment from } savings DOLLAR VALUE 27-37 To include savings account and chequing account balances, the line}s may be included any where in the file but the first 18 columns of the line must read: BANK ACCOUNT(SAVE) or } BANK ACCOUNT(CHEQ). The dollar amount must start in column 27 or later. NOTE: In the week file, if you need to i}ndicate a credit to your chequing account, you may put it in by indicating a cheque but put a minus sign in front of th}e dollar amount. FILE TWO NAME: DATE ------------------- This file contains a list, one per line, }of your banking days in YYMMDD format. Following each date may be zero to 31 character flags. These flags indicate whic}h entries out of the third file called FIXED are to be included in this weeks data. For example if there is an entry }in the fixed file for your morgage payment due the end of the month, you might use the flag "E" to endicate that this} date is the month end. Then in the fixed file you would include an entry covering your morgage payment and the flag "E}" in the appropriate column. The flag may be any valid character except BLANK or "1". FILE LAYOUT FIELD POSIT}ION CONTENTS ----- -------- -------- DATE 1-6 YYMMDD FLAGS 7-? FILE THREE NAME: FIX}ED ---------------------- This file is used to contain regular periodic expenses or income, such as weekly biwe}ekly or monthly pay, monthly expenses etc. Only one type of entry is special, any entry with a "1" in the flag positi}on will be included with every date when the report is printed. This file contains two distinct type of entries. }Fixed entries begin with the flag "F" and are considered to be fixed for the duration of the run. That is they will be} included every time the appropriate flag is encountered in the DATE file. Estimated entries are for those bills, l}ike hydro and phone that vary from month to month. They are indicated by a type "E". To handle these bills, I include a}n estimated entry called UTILITIES. An estimate is treated exactly like a fixed entry unless it is the first or curre}nt date, in which case the entry is ignored. This is making the assumption that by the this time the bills have come }in and you have entered them into the WEEK file and now no longer need the estimate included. FILE LAYOUT FIELD } POSITION CONTENTS ----- -------- -------- TYPE 1 F or E FLAG 2 }Matches with flag in date file. TITLE } 3-19 PAYMENT TYPE 20 B,G,C or BLANK DOLLAR VALUE 21-37 NOTE: The FLAG valu}e may be the digit "1", in this case there need be no matching value in the date file. This will cause the entry to b}e included with every date. It is useful for such things as weekly pay or weekly morgage payments. PRINTED} REPORT -------------- The report contains three main columns. The first is the line item description. The }second is income, and the third is expenses. All other lines should be self explainatory. The field in the first week} printed called SAVINGS is the actual contents you have indicated in your savings account. The field called CHQ ACC i}s the current balance you have input for your chequing account. The field which gives the running balance is labeled }CREDIT if your balance is positive and DEBIT if your balance is negative.which gives the running balance is labeled NOPRECCWCWAFXFXATNTCWFXSACHFIRSTCHTWTCPOINCOUTGLINPAGMTHMT@}@ }HH******************************************************************BANKIN}G PROGRAMHH******************************************************************;;@6,;6.$JANFEBMARAPRMAY}JUNJULAUGSEPOCTNOVDEC  >:A%,dRR;@7,;A,9@@,;A,9@@,;@,;@,6}-6-HH******************************************************************START OF WEEK FIL}E READHH****************************************************************** A''@@}D:WEEKL@M VI-7@<@,4BANK ACCOUNT(SAVE)?6-A:7@(,,I A`I-7@<@},4BANK ACCOUNT(CHEQ)?6-A:7@(,,I A6-%@?!@@5(!TOO MANY ENTRIES IN CURRENT FILE!}? A7767+&@,$@'%@,.7@<@',68,-A:7@(,,)7@'<@',0 )68,-}68, An@x& # TOTAL CURRENT ENTRIES=&  CURRENT FILE OK B:,"AQ}$$7@<@,4YAQ AHH******************************************************************}START OF FIXED FILE READHH****************************************************************** A}(>:A%,((@@D:FIXED@ 6-%@=!@@3(TOO MANY ENT}RIES IN FIXED FILE!= A7767+&@,$@ %@,.7@<@ ,68,-A:7@!,,)7@ <}@ ,0 )68,-68, A@@J! ! TOTAL FIXED ENTRIES=K@(0($NUMBER OF PAGES TO PRINT (DEFA}ULT 1)4@6-@LB:,!6-A:,M##6-+&@,$@`%@PNATHH***********}*******************************************************lv++BEGINNING OF DATE & REPORT PROCESSINGHH*********}*********************************************************''@@D:DATE##@@}P: A6-@96-6-'6--6-96-4@9776-+A:7@}<@,,&@,$@%@>99 @7@<@,-7<%@,-\6-%@a!! @}7@<@,fHH******************************************************************pz))BEGIN PRINTING OF CURR}ENT FILE DATAHH******************************************************************-@8,"}A)##6-+&@,$@'%@` jQ7%@ <%@%,/7@<@,)*7%@ <%@%,4 }[ Bj68,-T  Y HH******************************************************************^ h ''BEGIN PRI}NTING OF FIXED FILE DATAr | HH****************************************************************** -@ ##6}-+&@,$@ %@ * 7&@<&@,41* B    B:,@A@ -@B:,}H 7<,4 A9 -@##6-+&@,$@ %@tTJ7&@<&@,47<,*+")7}&@<&@,4F,T B  < HH******************************************************************}$$BEGIN PRINTING OF BANKING DATAHH******************************************************************PB @} -------- --------P6-%@-- @ TOTAL  6.=:}, B" @, 6.=:, B6 @ @(&!6.CREDIT( AAJ6. }DEBITT6.=:O:&,, B^$$ @  CHEQUESh 6.=:, Br @6-%@}(AxHH @6 SAVINGS 6.=:, B @ } CHQ ACC 6.=:, B @6-%@YY @G } ' @--------'6-%@6.=:&, B&YY @G } DEPOSIT TO CHEQUING0 @6-%@6-6-6-}A @6-%@@ A!(#@@'*HH*******************************}*************************************!!PRINT ONE CURRENT FILE LINE**HH***************************************}***************************\+F;7%@&<%@&,4C)7%@&<%@&,4DF6-&8,f++ 7%@&<%@&,}4B+6-&8,p+8,!6-%8,z+8, 6-&8,+6.=:O:8,,,+ B+6-%@+}8, B$,EE @ 7<%@, 7%@&<%@&,, B,SS @ } 7<%@,  7%@&<%@&,|.-$-EXIT FROM CURRENT FILE PRINT ROUTINE.HH************}******************************************************..PRINT ONE FIXED FILE LINE..HH**********************}********************************************D/F;7%@<%@,4C)7%@<%@,4DF6-&8,N/+ 7%}@<%@,4B+6-&8,X/8,!6-%8,b/8, 6-&8,l/6.=:O:8,,,v/ B/}6-%@/8, B% 0JJ @ 7<%@,  7%@<%@,p0 B)}0UU @ 7<%@,  7%@<%@,d2+$+EXIT FROM FIXED FILE PRINT ROU}TINE0uHH******************************************************************1u2u%%SUBROUTINE TO NORMALIZE DOLLARS3u}4u00PARAMENTER T$(8) CONTAINS $ VALUE ON INPUT5u==ON OUTPUT CONTAINS $ VALUE RIGHT JUSTIFIED ZERO FILLED.6u7uHH****}**************************************************************:u 6.00067@,.Fu0&7B:,&@&7B:,&@67B:,%@,..0}0Xu6. bu 67@&B:,,.7@,lu$vuu$$END OF $ NORMALIZATION ROUTINEuHH********************}********************************************** D:BANK.BASu$$END OF $ NORMALIZATION ROUTINEuHH********************ABANK ACCOUNT(SAVE) 1000BANK ACCOUNT(CHEQ) 50COLUMBIA HOUSE C19.01REMOVE AUTO PAYMENT 8}60227C-300.00YACHT CLUB 860227C100.00LAST OLD PAYMENT 860306C300.00KRISTINA CAMP 860327C200.00RADIO LIC}ENSE 860320C32YACHT INSURANCE 860327C 800SUMMER STORAGE 860425C 950KRISTINA'S COSTUME 850529C120HOUSE} INSURANCE 860930C250WINTER STORAGE 861130C 800R STORAGE 860425C 950KRISTINA'S COSTUME 850529C120HOUSE<860220RG860227E860306RD860313M860320RG860327E860403RD860410M860417RG860424E860501DR860508860515RM860522G860529R}E860605D860612Rm860619G860626RE860703D860710MR860717860724RG860731E860807RD860814M860821RG860828E860904RD86091}1M860918RG860925E861002RD861009M861016R861023G861030RE0724RG860731E860807RD860814M860821RG860828E860904RD86091>RFMY PAY 1000.001FHER PAY 500RFMAID SERVICE C431F*** LIVING *** B260EFDAYCARE C200MF }MORGAGE D1000MFLIFE INSURANCE D31.10GFGAS BILL G67.65DFCABLE TV D11.22EFNEW CAR LOAN C400. }00DFBANK PLAN D5.50EEUTILITIES G100EEYACHT CLUB C100FCABLE TV D11.22EFNEW CAR LOAN C400. L@67p<=J1FM1A1M2J2J3A2SONDC1C2C3C4C5C6C7C8C9C10C11C12C13C14C15C16C17C18C19C20FILBUDD$}1MOBPMONQG1GBUDGBMABMAXGUDCMTONMTOCTOMTCTMCUPCDOWNNNFCOLODPPDDDDPPGGMTGCGCTX$}XG1CB $}$} @!"#$%&'()*+,@-$}./012345@6789:@;@<$}=>?@ABCDEFGHIJKL$}MNO@P@Q@RST@UV@W((OBTAINED FROM TERRY RUTTLE, OC$}T/84 A`-@A  GG;@,;@,;@,;@,;@,;@,GG;@$},;@,;@,;@,;@,;@,+ 6.JAN6.FEB!6.MAR+6.APR+ 6.MAY6.J$}UN!6.JUL+6.AUG+ 6.SEP6.OCT!6.NOV+6.DEC#<<;@,;@,;@,;@,;@,$}(<<;@,;@,;@,;@,;@,-<<;@,;@,;@,;@,;@,2<<$};@,;@,;@,;@,;@,796.MORT6.AUTO REP)6.SEARS96. GROCERIES<5 6.GAS$}6.HYDRO)6. TELEPHONE56.CABLEA>6. HOUSEHOLD 6.TEXACO.6.DENTIST>6. DONATIONSF6.LOANS6.M$}ISCK6-@d };@,;@,9@<@0,;@,;@,;@,;@,9@<$}@0,9@,9,9,f9( ( (&0@96. D:BUDGET.DATgA+@%@'-@@$}A(@ LaN dTi Apj A+@%@n+-@@+(@EW DATAo)-@$}@)(@EVIEWp+-@@+(@RAPHICSq'-@@'(@AVEr&-@$}@&(@NDs##@@K:t)@u 6.>:,v@x&7@<@,$}4R& A0y&7@<@,4G& APz&7@<@,4S& A@{&7@<@,4E& A$}}&7@<@,0N& A +@6-@@6 @INPUT MONTH (1-12) # @$})!@# A0 A%% INPUT CATEGORY #, 0 IF DONE  !( AP"$} A A  INPUT AMOUNT 68<,- A XCORRECTION] (}b ( ( (d( $} e( | |g( |  |i( | |l-( | $}'-@"@-(|n( | |q.( | $(-@"@.(|s( | $} |t( v ( ({ ( ANY CORRECTIONS $$7@<@,4YA0-$}7@<@,0N#(- A5 ( (  ENU OR ONTINUE##@@K:)@%}6.>:,@ 4M A 0C( A` A0  +! ( ( (%  %} CATEGORY MENU*  _____________/( ( (6-@4+ (1 !-@#%@+(8 9+ (2 !-%}@#%@+(9 >+ (3 !-@#%@+(10 C+ (4 !-@#%@+(11 H+ (5 %}!-@#%@+(12 M+ (6 !-@#%@+(13 R+ (7 !-@#%@+(14 f ( %}( ("@6."@6."@6."@6."@6."@%}6."@6. "@6."@ 6."@6."@6."@%}6.$"@6.)"@6.."@6.3"@6.8"@6.="@%}6.B"@6.G"@ 6.L$"@6."@6."@6.%}"@6."@6."@6."@6."@6."@ 6.% }"@6."@6."@6. $ REVIEW +@%@ )-@@)(@% }review )-@@)(@  (-@@ ((@ONTH +-@@+(@% }ATEGORY )-@@)(@EARLY ##@@K: )@6.>:, @% } &7@<@,4C& A2 &7@<@,4Y& A4 &7@<@,0M& A0 +@% } -@@ %%(@INPUT MONTH (1-12)   # @)!@# A01 A  +%} (    ( 6- -@ 6-%8<,   6-@ -@%} A 6-%@ "6-> N -@"($8<,.-@$N( P:+8<,',%}$A,% ">6-   O( __________'-@%@2(_____F-@$%@O(___%}_ H TOTAL"-@%@+($?-@$%@H(100% ( (ANOTHER MONTH ( OR )  ##@%}@K: )@6.>:, @! &7@<@,4Y& A01& ,7@<@,0%}N"(, A0+ (}0 A (} ( ( ( A %%(INPUT CATEGORY #, 0 IF DONE    !%}( A2 "$ A (} ( ( ( (6- -@@ %}6-%8<,   6-@ -@@ A  "6->  $8<, +-@$%}+ P:+8<,',$A,% 6-%@ ">6-   )(________ -@$)(____%} 1(TOTAL$(-@$%@1(100% ( ( ##(ANOTHER CATEGORY ( OR )  ##@@%}K: )@6.>:, @ &7@<@,4Y& A2 ,7@<@,0N"(, A2p%} AH OVERALLJ +R B '-@@'( ٠ 2( (2($ %}  6-@ -@ A "6-> H-@(-@&(8,%}2-@ H(P:+8,',$A, 6-%@   6-@ !-@@! A  H-@$(%}-@)&(8,2-@7H(P:+8,',$A, 6-%@   ">6- 6-@ %}-@@ -@"(   +-@@+(  -@@ (TOTAL -%}@@ ($ 5-@@"5(PRESS ANY KEY FOR  ##@@K: )@%} @ AA+@%@'-@@A(@ WinG tA @@% }-@@-@ @8<,  @ A (}+@%%!}@(-@@ ((@ONTHQ-@@+(@ATEGORY=-@@Q(@EA%"}RLY##@@K:)@6.>:,1@'7@<@,4Y1 AW&7@%#}<@,4M& AU&7@<@,0C& AP A ( (%%(INPUT CATEGORY #, 0 IF DONE %$}" A A6-@-@@8<,!6-8<, 6-'@x%%}-@@68<,-8<,'  +@AR@k0@@70@%&}@@Q0@@@k0@6-@ @9,@'/@%'}@y9/A0@y-@ A0@!!6-P:8'@&@<,,,@x/%(}@x&/&@ @x&-&@ @xAe++@@S:6-%%)}@!@6-@ &&( J F M A M J J A S O N D>>( A E A P A U U U E C O E 7%*}@<@,&&( N B R R Y N L G P T V C##@@K:)@ @ %+}A| MON +@7-@@7(@INPUT MONTH (1-12)  A  +@A%,}R@k0@70@@Q0@@@k0@@@%-}6-@ @9,@'/@@y9/AP@y6-@-@8<,!%.}6-8<, 6-'@x-@68<,-8<,' 6-@-@ AP@%/},@x!!6-P:8<'@&@,,/@x&/&@ @x&-&@ @x%0}Ae6-%@!@6-@++@@S: ++(# M A S G %1} G H T C H T D D L M++(# O U E R A Y E A O E E O O I++(# R T A O S D L B U X N N A S##@%2}@K:)@!@& AD+@%@I)-@@)(@YEARLY%3}N%-@ @%(@byS+-@@+(@ONTH ORX+-@@+(@ATEGORY]%4}##@@K:b)@6.>:,g@{ B&7@<@,4C& AY0%5}&7@<@,0M& AW6-@-@@ 8,!6-8, 6-'@x%6}-@@68,-8,' 6-@ 6-A0 A&&( J F M A M J J A S O N D,,(%7}$ A E A P A U U U E C O E YEAR&&( N B R R Y N L G P T V C ##@@K:%)@%8}&@( A*6-@,-@. 8,!6-8,0 2 @46-'@x6%9}-@868,-8,': <6-@ 6-AP> A`++(# M A S G G H T C H T D D L Mb++(%:}# O U E R A Y E A O E E O O Id++(# R T A O S D L B U X N N A Sf##@@K:h)@%;}j@l Ap+@%@u;@2,;@2,z Aa$6-@6-@%<} Ab-@A 0@@#0@@$8 +@%=}=k0@70@@Q0@k0@B @6-%>}@G%%6-F:A`,%F:Aa,$AVL[+%@,@p/+%@,@E+%@,@[+%@%?},@Q**(" BY DAVE ELDERV #Abp["`"@ Ade ,/%@}/j -oAet++@@S:y Ab5~25,50,25,31,22,31,22,5013,5%A}0,13,31,10,31,10,5022,50,22,47,13,47,13,5022,42,22,39,13,39,13,4222,34,22,31,13,31,13,3450,50,50,31,4%B}7,31,47,5047,50,47,47,38,47,38,5038,50,38,31,35,31,35,5075,50,75,31,72,31,72,5072,50,72,47,63,47,63,5%C}072,34,72,31,63,31,63,3463,50,63,31,60,31,60,5088,50,88,31,85,31,85,50100,34,100,31,88,31,88,34%D}100,50,100,41,97,41,97,5097,50,97,47,88,47,88,5097,44,97,41,92,41,92,44!!125,50,125,47,113,47,113,50!!113%E},50,113,31,110,31,110,50!!125,34,125,31,113,31,113,34!!125,43,125,40,113,40,113,43!!150,34,150,31,135,31,135,34%F}!!144,50,144,34,141,34,141,5099,99,99,99  #Ad5 ""A $ ,/ Ad#%G}10,50,25,50(13,42,22,42-13,34,22,34235,50,50,50760,50,75,50<63,34,72,34A85,50,100,50F88,3%H}4,100,34K93,44,97,44P110,50,125,50U113,43,125,43Z113,34,125,34_113,43,125,43d135,34,150,34i%I}142,50,144,50n999,999,999,999XINPUT DATAg* Ap`*@@l-@@q-%J}@v@{68<,-  @ B A+@+@@%K}%-@@%-@(@  @ B Ap@J+@%L}%@O-@@T""(@Tt' L fLsY-@A ^(# +@-#AR%M}@2#k0@@70@@@Q0@@@k0@7#6-%N}@@<#3,@'/@@y3/@yA#-@F#6-P:8'@&@,,K#7%O},@x!/@x&7/&@ @x&P##-&@ @x#AeU#++@@S%P}:Z#6-%@_#!@6-@d# i#$'+@%@'[-@@+(@STAND BY=-%Q}@@[(@nMbҠCrCIn'6-'-@@$'68,-)' .'-@%R}@3'-@8'68,-8,%8<,='   B'-@G'68,- L'&-@@"6-%%S}8,& Q'%-@%-@@V'68,-8,%8<,`'   e'$50,50,50,31,47,31,47,5047,50,%T}47,47,38,47,38,5038,50,38,31,35,31,35,5075,50,75,31,72,31,72,5072,50,72,47,63,47,63,5072,34,72,31,63,%U}31,63,3463,50,63,31,60,31,60,5088,50,88,31,85,31,85,50100,34,100,31,88,31,88,34100,50,100,41,97,41,97%V},5097,50,97,47,88,47,88,5097,44,97,41,92,41,92,44!!125,50,125,47,113,47,113,50!!113,50,113,31,110,31,110,%W}50!!125,34,125,31,113,31,113,34!!125,43,125,40,113,40,113,43!!150,34,150,31,135,31,135,34!!144,50,144,34,141,%X}34,141,5099,99,99,99  #Ad5 ""A $ ,/ Ad#10,50,25,50(13,4%Y}2,22,42-13,34,22,34235,50,50,50760,50,75,50<63,34,72,34A85,50,100,50F88,34,100,34K93,44,97%Z},44P110,50,125,50U113,43,125,43Z113,34,125,34_113,43,125,43d135,34,150,34i142,50,144,50n99%[}9,999,999,999s #AeEx-@@2}"67,.>:, ) 6.)67@<@,.>:A),$%\}TT104,104,104,72,162,57,160,0,173,0,210,101,20,141,22,208,141,10,212,136,208,242))202,208,237,104,56,233,1,208,228,96X%]}INPUT DATA] @@b-@@g-@l@q68<,-{ %^} @ A@ @ D:BUDGET.BAS A@ ENDE+@%@J-@@%_}O""(@Ha'S lL lK!T-@AY APA`J%`}L lK!T-@AY APA`J$ 33.02 0 0 0 0 0 21.01 0 0 )b} 0 0 0 0 0 433 0 0 0 0 0)c} 0 0 0 0 2050.11 0 0 0 0 0)d} 0 0 0 0 0 0 0 0 0 0 )e} 0 0 0 0 0 0 0 0 0 0 )f} 0 0 0 0 0 0 0 0 0 0 0 )g} 0 0 0 0 0 0 0 0 0 0 )q} b%DOS SYSb*)DUP SYSb SAUTORUN SYSb_HELP DOCb6oBANK DOCb6BANK BASbWEEK bDATE bFIXED b|BUDGET BASbaBUDGET DATb{CHECKBK BASbiFINANCE BASb`ePLANNER BAS 0 0 0 0 0 0 0 0 0 0 0)r} 0 0 0 0 0 0 0 0 0 0 )s} 0 0 0 0 0 0 0 0 0 0 )t}0 0 0 0 0 0 0 0 0 0 0 )u} 0 0 0 0 0 0 0 0 0 0 )v} 0 0 0 0 0 0 0 0 0 0 0 )w} 0 0 0 0 0 0 0 0 0 0 )x} 0 0 0 0 0 0 0 0 0 0 0)y} 0 0 0 0 0 0 0 0 0 0 )z} 0 0 0 0 0 0 0 0 0 0 0 ( D??SORTPMSKNMSKSMSKRCLCNDATEPPAYEEFNFDNDISTAAMTRECNBALBALNCWDEPNWAJBJCSSOEBEGLAST-|}TRECHDOPDZOANTI -}} -~} !"#$%&'()*-}+,-./012345 $$**************************-}**** $$* CHECKBOOK PROGRAM * $$* November 3,1984 * $$* By Marvin J. Florek *$$*******-}*********************** +ll216,104,56,233,3,133,217,104,133,204,104,133,203,104,133,215,104,133,214,104,133,21-}0,104,133,209,162,0kk104,104,157,0,1,232,228,217,208,246,56,165,209,233,2,133,209,165,210,233,0,133,210,48,108,165,209,13-}3(ll211,165,210,133,212,165,204,133,206,133,208,165,203,133,205,24,101,214,133,207,165,208,101,215,133,2082jj160,0,185,-}0,1,190,2,1,134,218,190,1,1,200,200,200,132,216,168,136,177,205,209,207,240,12,165,218,208<ii4,144,16,176,46,144,44,176,10-},200,202,208,234,164,216,196,217,208,210,198,211,169,255,197,211,208,6Fhh166,212,240,11,198,212,165,208,133,206,165,207,24-},144,172,165,213,240,4,134,213,208,148,96,134,213P160,0,177,205,170Z==177,207,145,205,138,145,207,200,196,214,208,241-},240,203d;A,n-@Ax"67<,.>:, <<;@P,;@@,;@@,;@@,-};@@,; 6.##67@ ,.7@,;67@,.7@,; 6._#67@8,.7@,;67@,.7@-},; 6. #67@E,.7@,;67@,.7@,B6.>:@0,*67@@,.7@,B67@,.7@-},]];@,;@,;@@,;@@,;@,;@,;A,;A,11;@,;@,-};@,;@,GG;@,;@,;@,;@,;@,;@`,<<;@,;@,;@-},;@,;@,;@,6.>:AU,&&;@,;@,;A,;@,67@-}<@,.D:CK+6-+67@<@,.D:SO (}Πՠ\-@@/(ˠ-}͠A-@@ \(Please select a number]-@@-(1) ENTER CHECK DATA?-@@](2) DISP-}LAY CHECKS BY DATE"]-@@ 2(3) DISPLAY SORTED CHECKSD-@@](4) CHANGE CHECK DATA,@-@-}@!*(and press return<-@0@!@6!! @)!@A@ A@JԠT-}T-@ *(7@<@8,<-@!Q(7@<@8,T$^E-@A --@ -}B(7@<@@,E$h7-@@ 7(ξr  $|))( ӠξϠ-}Š  $C-@@"<(!ξ򠠧է@C$F-@@ ?($Ԡק-}ˠӠξCF$!!***** INITIALIZE DISK ***** A@1-@@ 1(ϠӠΠ-}E AP-@@ A(ŠӠˠٯΩE4NA@>-@@ >($-}ҧŠ͠Ӡ6-@@!6( ˠٯΩ A@ 4Y6-@-}6 (}-@6(̠Ġ٠,-@@"( NAME: , A--@@#(STR-}EET: - AK-@@/(CITY, STATE, ZIP CODEA-@@K A"@A Y A-}7@@ D:CKHEAD.SYSD @O@Y A P],(7@<@%,7@<@&,0-}?B:, @%]67B:,%@<@%,. )B:,!@%)6.7@<@%,1-@@%$7<,4_1-}67<,.  67B:,%@,.$ Ԡ٠堛6-B:,%@6. &-@-}B:,0"7<,4.6-"6-@: D0067+@&+%@,,%@<@,.N67@<@,.-}.X-@@b7<,4 67<,.0l v$ӠΤ٩>&@@-}D:*.*26->6-@47@<@,4FREE*@4 A0-!7@<@,-}4CKHEAD-6-@&&7@<@,4SYSA`%%7@<@,4SOA`%%7@<@,0CK-}A`@(67B:,%@,.7@<@,66-%@@ A`k A@-@@ H(#Ԡ-}ӠξLV APa@k A@***** SORT DN$ *****!!"*"A@)"-}*"@(}) A NN6-?:C:,  A`H%%67@,.7B:,&@:AS,.-@@ ?( Try Again !!I AprIIA:7@<@-},,!@)A:7@<@,,!@1A0|CCA:7@<@,,!@)*7@<@,402A0uuA:7-}@<@,,!@0*+7@<@,404)7@<@,406)7@<@,409,A0CCA:7@<-}@,,!@0*7@<@,411A0"6-6-"6.!!-@$@@V'7-}<%@,1*7<%@,/H67B:,%@,.7<%@,V6-%@ $٠ӠA (}-}-@ @7(ˠ٠٠ŠA A (} A@/!-@$@@/6-%@-}67@,.7<, @@*@@*@ A@*--}@1@*(7@<@,&X-@1@X(7@<@,-7@<@,-7@<@,-}0*-@1@*(7@<@,:*-@)@ *(7@<@,D*-@@*(7@<@Q,-}N-@@(X*-@@*(7@R<@Y,b:-@@ :(ξ-}l8-@ .(7@<@@,8 Avi B@*-@@ Q(*** LAST CHECK FOR DAT-}E:  ***e-@@i .-@ *(7@<@@,.  A A` (}L 6.-}4@@ D:CKHEAD.SYSA@L@1-@ @1(ˠ٠٠Š"("(7-}@<@%, NO:''(7@&<@P, Š(7@Q<@u, 6."-@!@"(-}Ӻ&-@@&( ٠ϠŠ&-@@ &( Ҡƺ#-@ @ #( Ԡ?-@-}@?(%_____________________________________-@@(󠠠 7@<@,-7-}@<@,-7@<@, to 7@<@,-//(7@<@,-7@<@, +-@-}@+($+-@@+(Ǡź$ $*! (}!٠Ġ45-@-}@5(٠Ġˠ>>&@@D:*.*26-@>6-@H A"@@-}R''7@<@,4FREEA"@\%%7@<@,0SOA! f~ -p(FROM 7@<@,--}87@<@, TO 7@<@ ,-87@<@,~6-%@p%"@6-@% A!z-} B A! ;-@@ ;(!(N)ew Sort; (D)isplay stored sort8-@@!8( OR for D-}irectory A@4N)4nA#04A!  A"PU-@@ ,(ĠƠ-}6 B@ APK@U A!@<-@@ <("ENTER FILENAME TO DISPLAY (MMYMMY)Y-@-}@">(7@<@,7@<@,BYB:,!@A"`D67@<@,.7@@-}D@!!-@$@Y@YS@S(7@<@, 7@<@, 7@-}<@5,  @  A A` ***** NEW SORT **********$ ?-@@ ?(%Ԡ-}٠ΠԠҠ. ''( (A)SCENDING OR (D)ESCENDING8 +4A)4a!6-+ A#B '4D)4d-}6-@' A#L A#PV A` 6-@j /!-@$@@/6-%@t 67@,.-}7<,~ @@ *@@*@ A:,"@A$p -@A:-}, @ 267<%@X,.$6-%@Y26-%@ A:,"@A%   @  $6-}-F:AY,$AY HH6-?:C:,-@@#>(7@<@,7@<@,d n D67@<@,.7@@-}D @x !!-@$@Y@Y  @7<%@X,  @ A&0 -}ˠ 6- ; (}-@@;(Šˠ͠ ;-@@7(ENTER DATE OR-} PRESS ; 4A` ''B:,!@)B:, @A'@ 67@<@,. &&@@-}D:*.* @ &&7@<@,4SYSA' %%7@<@,4SOA' 7@<@-},4FREE*@<-@@ o(NO CHECKS WRITTEN ON DATE: 7@<@,y AP A' %%7@-}<@,0CKA)0 +7@<@,47@<@,6@S@@`@m-}@z@ A(`" A', 8-@@4(CHECK NUMBER OR 86  4@ -}A'@ fB:, @D67@<@&B:,,.7@<@&B:,,`67@&B:,<@,.f6.J A:,A)-}PT @6-%@^ t7@<@,4,-@@ U(CHECK # 7@<@, FOUND`@-}j APt A)`h A(r K@ -@@ K(%ԠˠĠӠξ|  A-}P A' F-@@ 1(CHECK #  NOT FOUND<@F A' 0-@@0(ˠ-}Š /(/(1)CHECK NUMBER : 7@<@, ,,(2)STATUS : 7@<@, ,,(3)AMOUNT $ -}7@<@, ( 4)PAYEE IS: ((7@<@Q, ?(7@<@8,?(5)END BALANCE $7@R<@Y-}, N-@@ @(%ԠҠϠŠҠξDN AP 4A'0 6-A:, !! @-})!@A00 3"@6-@'6-@36-@ 3"@6-@'6-@36-@ 3-}"@6-@'6-@36-@ 3"@6-@'6-@Q36-@8& 3"@6-@R-}'6-@Y36-@0 >-@@ >($ENTER NEW DATA BELOW 5 >-@@!>(7@<@8-},7@<@9,: $B:,! AP$ A1 D /"@)"@6.) A0/6.N U"@*B:-}, @8U67B:,%@,.$ X 67<,.b @@l 4#-@-}+&@,%@0@4 v l @@--@@ N(ŠĠX AP-}b Al A` D:CHECKBKv l @@--@@ N(ŠĠX AP,(YZ33ADHBTOTXDCMCFCLCATMAXEEDERJUSROUNCATMECATHENUMENIAx1}xAARn }  AA A = B@B0BP1}B @@@!@@2@I !1}"#$%& + HOME FINANCE MANAGER AUTHOR: WILLIAM D. SEIVERTWRITTEN 2}JUNE-JULY, 1980#--ADJUST MAXE ON LINE 100 FOR MEMORY SIZE(hh;@ ,;@,;A ,;@,9@,;@2},9@,;@(,;@,2BBA$ IS GENERAL STRING, D$ IS DATE (MM/DD/YY), H$ IS MENU LIST<TOT IS TOTAL P2}ER DIVISIONFTOT(0) IS GRAND TOTALP';@,;AG,'247=13*19Z//CL$ IS CURRENT CAT, CAT$ IS CATAGORY LIST2}d;6-A;MAXE IS MAXIMUM NUMBER OF ENTRIES ALLOWEDn@9,9,;$@(,@ENTRY GROUP, AMT AND DESCRIPTIONS2}ii1. ENTER NEW DATA 2. DISPLAY REPORTS 3. SAVE/RESTORE 4. CHANGE OR DELETE 5. EXIT ?""DATA AT 150 IS FO2}R MENU (H$)ABCDEFGHIJKLMNDATA AT 160 IS FOR B$56-B@5ADDRESS OF RIGHT JUSTIFYING ROUTINE-6-B02}-ADDRESS OF ROUNDING ROUTINE*6-BP*ADDRESS OF CATAGORY MENU56-B 5ADDRESS OF CATAGORY HEADING BUILDE2}RINITIALIZE!"!READ MAIN MENU HEADINGS''67A,. ENTER CHOICE (1-5)  " READ SELECTION LETTERS2}SET UP CATAGORY HEADINGS&&67@,.Automotive &&67@ ,.Business &&67@9,.Clot2 }hing &&67@X,.Donations &&67@w,.Entertainment &&67@,.Food 2 } &&67A,.Gasoline &&67A4,.Home Improvements &&67AS,.Investments &&62 }7Ar,.Taxes &&67A,.Rent/Mortgage &&67A,.Miscellaneous &&67A),.2 }Medical B68@,-@-68@,-@B68@ ,-@B68@,-@-68@,-2 }@B68@,-@B68@,-@-68@,-@B68@,-@B68@,-@-68@2},-@B68@,-@68@,-@:##@@K:D#6-#NUMBER OF ENTR2}IESNXMAIN MENUb8 +@@)AR@8ERASE CURSORg5@@'@@95SET2} MARGINSl/-@@/6-+&@,$@ v-$@--@@ 6-%-6-@:7<,,2}"@:?,Ap*@  )@? :? :? :?@:1,*@:5,A9AV2}@'AX9AW@!!(INVALID CHOICE, TRY AGAIN-@@%%2A@2}@-@@  %%2   A6-A:>:,,9AV2}@'AX9AW@!!( !-$@!@:*@2}&@2:CHANGE COLOR OF SELECTED NUMBER-@@P $//A A0A@APB.&&NE2}W, DISPLAY, TAPE, CHANGE, EXITENTER NEW DATA ROUTINE%@!A AR@ 2-%@2}2(ENTER CHOICE (A-M) X TO QUIT)@"@:X,A@:A,*@:M,A" -%@*##(2}INVALID CHOICE, TRY AGAIN 4-@@>%%2A@@H-@@ R%%22}\ f A `2-%@2( +6-&@:A,%@2}+COMPUTE CATAGORY-%@%0(>:%A(,0HIGHLIGHT SELECTED CATAGORY-@@  B2} 1 +AR1-@@V (6.` @-@@@(%ENTER DATE OF TRANSACTION (MM/DD/YY) 2}j o B:,"A$p B:,"@A$ q -B:,%@@r 67<,.  t :-@@2}:( ENTER DESCRIPTION OF TRANSACTIONy $$SHOW USER HOW MUCH ROOM HE HAS~ .-@@.(  2}"-@@"6-B:, -@6@ 6-@:7<,, "@: ,6-@: , 67<,.>:,  *2}-@@*(ENTER AMOUNT $  A& B  6-%@!A 6-$@(&@'2 }  68,-SAVE CATAGORY -@@ %67<,.7<,!6-%@%  -@ %67<,.7<,!2!}6-%@%   68,-SAVE VALUE A'( ILLEGAL VALUE SUPPLIED2 2-@@2(ILLEGAL VALUE, TR2"}Y AGAIN< -@@F %%2A@@P -@@ Z %%22#}d  n =-@@=(# x G-@@=(# 2$} G A$  BCANCEL TRAP -@@ ++("NEXT ENTRY FOR THIS CATEGORY (Y/N) )@2%} >:,4YA#p -@@ --(%  -@@ !!(DIFFER2&}ENT CATAGORY (Y/N) )@ >:,4YA  # A#RETURN TO MAIN MENU DISPLAY REPORTS "2'}A8 *-@&68,-*  %-@%ACCUMULATE TOTALS  6-8,CATAGORY NUMBER 2(}68,-8,%8, 68,-8,%8,   -@  6-8, 68,-    +2)}AR& ( CURRENT TOTALS0 '6-@6-@'6-@: -@@D -%I 28,"2*}(( 7<%@,2 A2J  6-8, L 6-8,N (7<, 7<%,X %-@ @!(. %2+} b -%@%%l ($ 6-%@  -%@ ( GRAND TOTAL ,-%@%%@(6-82,},,  ($ AR@  8-%@8("Details of which? Enter X to stop. )@ 2-}"@:X,A9 @:A,*@:M,A4P 8-%@8(" INVALID CHOICE, TRY AGAIN  -@@2.}* %%2A@@4 -@@ > %%2H  R A3z 2/}6-&@:A,%@ 8,A4 B-%@8(" NO DETAIL FOR THIS CATAGORY B A3` -%20} 0(>:%A(,0HIGHLIGHT SELECTED CATAGORY -@@P   6-  +6- (21} DETAIL OF  -@ 8,A7 %6-%@% @ A5 >6-@.(Press RETURN to22} continue 2>6-@6-@($ 6-8, "A6@$-@@(.-@@23} 855(7&@'<&@ , 7&@<,$t ~ 6-8, 8"@!-@@&(8-@24}@ +(+( TOTAL $ (Another catagory? (Y/N))@"@:Y,25}A1 AAR@< +-@@<( NO REPORTS TO DISPLAY%-@@26} % A< ASAVE TO TAPE1 +@@1AR@-@@))(!Save27} or Restore from file (S/R/X))@"@:X,A+@:S,*@:R,! AH+ A@@""(Is file28} Tape or Disk (T/D))@+@:T,*@:D,! AH+ A@$@:D,6-$ AAP"@AR29}@(&Enter disk filename (e.g., D:FILE.EXT)'**(" D:HOMEFIN.DAT is assumed filename,%6-@%AR2:}@1&B:,"&6. D:HOMEFIN.DAT6 AI@"@:S,6-@J"@:R,6-@T)"2;})@C:^&"@&@h"@ACr$ @$"ABP|2<}-@6-$@(// @8,,8,,7&@'<, @ AE$@$2=}"AC`9 !/(!TOO MANY ENTRIES FOR THIS VERSION9 AC`-@6-$@(&@2>}68,-&68,--@@(+'67&@(%<&@(%,.7<,+  @ B A2?}3-@@3(INVALID CHOICE, TRY AGAIN-@@%%2A@2@}-@@ %%2-@@  3-@@3( 2A} $$I/O ERROR./-@@/( I/O Error F:A,8-@@B%%22B}A@L-@@ V%%2`-@@ j t32C}-@@3( ~ ACHANGE OR DELETE BPAR@2-%@2D}2(ENTER CHOICE (A-M) X TO QUIT)@"@:X,A@:A,*@:M,AR-%@2E}$$(INVALID CHOICE, TRY AGAIN -@@%%2A@@-@@  2F}%%2  AP`PZ2-%@2( d+6-&@:A2G},%@+COMPUTE CATAGORYiE8," -%@;(NO ENTRIES IN CATAGORYE AQn-%@%x0(>:2H}%A(,0HIGHLIGHT SELECTED CATAGORY-@@  B J-@T8,AY2I}^1 +AR@1-@@h(6.r6-@($| 6-8, 'AR@'-@2J}@55(7&@'<&@ , 7&@<,$!!(Change this entry (Y/N/X))@"@:2K}X,A@:Y,AX (Change the date (Y/N) #)@#@:Y,AV&?AR)(2L}Enter new date -?AR@0Q-@@;67&@(%<&@(%,.7<,? QAR@:!!(2M}Change description (Y/N) D)@N@:Y,AWPX/AR/(Enter new descriptionb-AR2N}@--@@ g7 !B:,-67&@ %<&@ %,. 7 AWEl''67&@ %<&@ %,.7<,2O}q v(Change amount (Y/N))@@:Y,AX6AR AW6(Enter new amount 2P} B AR@68,- AY (Delete this entry (Y/N) #)@#@:Y,2Q}AY"AXp --&@'0%@(!$@(&67<,. 0 AXU##67<,.7%@(<2R}%@(, 1 "68,-'68,-1 AXe+68,-8%@,+68,-8%@, 6-&2S}@ AT`   AP/-@@/6-+&@,$@ (#' +'(ERROR: Table ove2T}rflow2#++(#Some entries must be deleted before<#(more can be added.F#-@@P#%%2A@2U}@Z#-@@ d#%%2n#-@@ x# #6-&@2V} A'-@A 'C +AR1@@C@@9$'@.%%2W}SET UP CATAGORY HEADING GIVEN L.6-$@6-. -@@6@.76-@:7<,,%B2X} P7NON-BLANK FOUND/5"@: ,B 5DON'T INVERT TRAILING BLANKS/6-@/9!@:Z,6-&@29CON2Y}VERT TO CAPITAL LETTERS&/6-%A(0/67<,.>:,:/6-&@ D/$211ROUTINE TO ROUND X TO 2 DECIMAL PLA2Z}CES IN Y2)&6-P:+%>P,$A,'A)$6RIGHT JUSTIFYING ROUTINE6//GIVEN X, RETURNS XD$, DESTROYS VALUE IN 2[}X66. .0066-$A69967@<@,.>:@:0,%&P:'@,$@,66-P:'@,69967@2\}<@,.>:@:0,%&P:'@,$@,66-P:'@,7 -@@6@ 7"BA 7--2]}67<,.>:@:0,%&P:'@,$@,76-P:'@,(7 27$:CATAGORY MENU:+ +6-@%6-@2^}+-:(:-%@(| A :(7@<@, |:-%@(| B :(7@ <@8,2_} |:-%@(| C :(7@9<@W, |:-%@(| D :(7@X<@v, |:-2`}%@(| E :(7@w<@, |:-%@(| F :(7@<A, |:-%@(2a}| G :(7A<A3, |:-%@(| H :(7A4<AR, |:-%@ (| I :(2b}7AS<Aq, |:-%@(| J :(7Ar<A, |:-%@(| K :(7A<A 2c}, |:-%@(| L :(7A<A(, |:-%@(| M :(7A)<AG, |:2d}-%@:(:$ D:FINANCE.BAS<A(, |:-%@(| M :(7A)<AG, |:01R/c/FASTAMONTHDFBLKYDDAYCLNULLMMSTERROMOVBOPC25C6C25CONSOKENUDAYEAMDPSCHOICD6f}COROFYASCSAVAD 6g} 6h} !"#$%&'()*+6i},-.;@9,;@v,;@,;@,;@,;@ ,;@,;@,;AE6j},;A,;@,;@1,5 #A0!-@@9%"167,.>:,5 %6.%6-A@6k}N&;@9,;Ab,;A,:-@@9>"J67,.>:,N 絷?6-AU6-6l}@d'6-AV36-B2y?6-Ad= 6._67Ab,._+67@,.16.76.=6.[+AY%6m}AA7AAIA @[AR@c-@@'@@9@@96n}c(% --(%̠ǠҠ --(%6o} --(%Ǡ砠 0-(%0( $$( 6p}$$( | A JANUARY G JULY |$$( | B FEBRUARY H AUGUST |$$( | C MARCH I SEPTEMBER |$$6q}( | D APRIL J OCTOBER |$$( | E MAY K NOVEMBER |$$( | F JUNE L DECEMBER |$$( 6r}A($( ŠԠȠ6AY@4A@5@@K:*)@56s}@/6-&@d/ @)!@@"#A%"6-$7 6--@@(+6-A6t}76-@%#( ENTER YEAR BELOW (#(&q%(USE Π TO INCREASE YEAR((J(USE Ԡ TO DECREASE YEARM(n6u}(PRESS Ԡ TO SELECT YEARq('(( (( |Һ1985|)@( (AY@4<6v}-@@"@ * 6-F:, "@@B+"@6-%@,"@6-&@-"@6w}6- @P. A6-A/!A6-A05-@('-@@2+ 5 @B26x}-@@((3+(( YOU ENTERED THE FOLLOWING MONTH:+(4(, ((5 (IF THIS IS CORRECT, THEN66y}(PRESS THE START KEY.(7&&(IF IT IS INCORRECT, THEN PRESS8(THE OPTION KEY.9 6-F:, "@@W:#6z}"@ A # @`;.@@$@. @< (}AY'AA9A 6{}@KAAN(`@@r@@9AR@ @b=/,($| | | | | 6|} | | |/$>/(/($?,,($| |@,,($6}}A,,($|SUN |MON |TUE |WED |THR |FRI |SAT |BX-@@@($6~}J @aT @aX F,,($G#( | | |#( | | |H( 6}I6-+@@&B:,,'@J-@(K/-@@(+-@3@/(L AMA6}Y@4PF:,@@Z A6 A^A6-@%@$%6-@A-@@!@6}h-@@7@m"@6-o!@ 6-&@r - (s$7<,4-%@6}$(*v!@ 6-%@w " $x6-%@  $ A@@"%-@"6}%(( OPTION WINDOW /(/(  AP6-@66}-@ 6-F:, "@A "@AO"@6-%@+6-%@7!@C6-@6}O6-@O"@6-&@+6-&@7 @C6-@O6-@-@#@(26}-@#2(7+@$,&@<@$, A 6-6"@#-@@(, 6 @6}"@A"@A #"@ A# @}@@'-@@B(6}V-@@ b-@}( 4 -@@!4(6}*-@@ *(Please enter the*-@@*(date you wish to.-@@"(examine..6}ARm A1-@@-( ~~~:@LAR@U6-A:,m @)!A1t-6}@@ t(Z   B-@6}@*( Ӡ66-@B6-@6.7A$&A,-@@g-@%@ 6}8(7@ $&@<@ $,< N@@`@@2g(o@(@@K:46-6}@@6-@F6.\-%@%@ hARo($)@$"AUAU"@'A6}"A&A`!!!AU* A`A@!!!@'* @2A@!!!A$* A(A@6}!ASA@)6-%@"@2)6-@!@ 6-@   6-U-%@%@ 6}%"AU1(>:,=6-@K67<,.>:,U A@167<,.>:,"AS167<,.>:@, (>:,6} A@έנ&&67@ $&@<@ $,.)6-%@!@)6-@&&6.7@ $&@6}<@ $,%6-@6-AU% APŠ6-&@% @6-@% A@6}3 (_)67%@<%@,._3 A@ A @&&67@ $&@<@ $,. 467<,.  6} A767<,.367A$&A<A$,.7 %@%@@(@##676}@<@,.>:@,<$6-?:C:,<@:AS,9 A%v67B:,%@,..w66}-&Ax67B:,%@,.=:,y<-@@<("DELETING MONTH... z<-@@ <(" 6} {5 A@&@3@2"@5%| A @E( 6} /(ӠE( E(GO TO NEW MONTH/( E(DELETE A MONTH E6}( /(DISK DIRECTORY E( E(EXIT WINDOW /( E(6}UU6.KӠϠϠנŠȠˠ٠Ԡנjj6.`APPOINTMENTS 6}GO TO NEW MONTHDELETE A MONTH GG67B:,%@,./DISK DIRECTORY 6}EXIT WINDOW $ŠȠ@ 6.D: 67B:,%@,.QB:, @(67B:,%@6},..G67B:,%@,.=:&A,Q A >67@<@,..>67@<@,.=:&A,$ A $6}@@@##67@<@,.>:@,$$6-?:C:,<@:@,2 6. 67,. %67@,.2(@F 6._67Ab,._+67@,.8(6}@C@F$RAR@'@@99-@@"R( SELECT=PRINT OUT2-@@#6}2(OPTION=SAVE START=EXIT 6-F:, "@A B"@$&@' A& @6}ԠԠ2@ A 2@@P:5-@B:,(7<,4>:@,567<,.  '6}'(@**********************''(@* APPOINTMENTS *''(@**********************2(@6}'(@ ,2(@=-@A@ 9(@7<%@,= 2(@2(@6}**********************@1-@@"1( 2-@@#2(OPERATION CO6}MPLETE. !-@A !' A @ŠӠƠȠ6-&A#6}A%-@" T #AP-@"# F"@*'@"P:'@,T6-%@$6}3,6,6,2,4,7,2,5,1,3,6,14,7,7,3,5,1,3,6,2,4,7,25,1,1,4,6,2,4,7,3,5,1,36,3,3,6,1,4,6,2,5,7,3,51,4,6}4,7,2,5,7,3,6,1,4,62,5,5,1,3,6,1,4,7,2,5,73,6,6,2,4,7,2,5,1,3,6,14,1,1,4,6,2,4,7,3,5,1,36,2,2,5,7,3,56},1,4,6,2,47,3,3,6,1,4,6,2,5,7,3,51,4,4,7,2,5,7,3,6,1,4,62,6,6,2,4,7,2,5,1,3,6,14,7,7,3,5,1,3,6,2,4,7,6}25,1,1,4,6,2,4,7,3,5,1,36,2,2,5,7,3,5,1,4,6,2,4))31,28,31,30,31,30,31,31,30,31,30,31%%6-F:@,%F:@6},$AV6-&A$6-?:C:,<<<A ,$6-?:C:,<<<A ,$ˠ٠+@6}+@@D:*.*--@@-(--@@-( DISK DIRECTORY --6}@@-(8-@@! A0.@8 A@9-@%@5(6}7@<@, 9 @/-@%@/($-@%@$( 6}/-@%@/(&-@@#&( PRESS STARTF:,@A5 A6}  @//7@<@,4 FREE SECTORSA00 AB-A:7@<@,,!@0$'6-&@6} $ (}7"(THERE IS NOT A FILE FOR 7(ON THIS DISK!!!(= RE-ENTER DATA!!(Ԡ6}= CREATE NEW FILE 6-F:, "@A ="@'@(@3@= @ A 6} EE104,104,104,10,10,10,10,170,169,7,157,66,3,104,157,69,3,104,157 GG68,3,104,157,73,3,104,157,72,3,32,86,228,132,212,1606},0,132,213,96 SS104,104,133,215,104,133,214,104,133,217,104,133,216,104,133,218,104,170,160,0& MM177,214,145,216,200,2086},4,230,215,230,217,202,208,242,198,218,16,238,96ҠŠR+A@p+A @=@@6}O@@9R(&6-F:A,&"ApA@$(AN ERROR HAS OCCOURED!!($(i"AbO(;THERE6} IS NOT ENOUGH ROOM ON THE DISK TO CREATE A FILE FOR R(U(X(f( RUNib"AD_(KTHERE IS NO DISK IN DRIVE6} #1, OR THE DISK HAS A WRITE-PROTECT NOTCH ON IT.b/,(ERROR - >:AU, RUN/YV(4THE FILE FOR THAT6} MONTH IS NOT ON THIS DISKETTE.>:AU, RUNY'JANUARY,31'FEBRUARY,29'MARCH,31'APRIL,306}' MAY,31' JUNE,30' JULY,31'AUGUST,31'SEPTEMBER,30'OCTOBER,31'NOVEMBER,30'DECEMBER,316} D:PLANNER' JUNE,30' JULY,31'AUGUST,31'SEPTEMBER,30'OCTOBER,31'NOVEMBER,30'DECEMBER,314