@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}}D |||DDOS DOSDOS SYS }}}CCa}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 2.?}D2:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 10˛ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uYZ33ADHBTOTXDCMCFCLCATMAXEEDERJUSROUNCATMECATHENUMENIAxV}xAARn }  AA A = B@B0BPW}B @@@!@@2@I !X}"#$%& + HOME FINANCE MANAGER AUTHOR: WILLIAM D. SEIVERTWRITTEN Y}JUNE-JULY, 1980#--ADJUST MAXE ON LINE 100 FOR MEMORY SIZE(hh;@ ,;@,;A ,;@,9@,;@Z},9@,;@(,;@,2BBA$ IS GENERAL STRING, D$ IS DATE (MM/DD/YY), H$ IS MENU LIST<TOT IS TOTAL P[}ER DIVISIONFTOT(0) IS GRAND TOTALP';@,;AG,'247=13*19Z//CL$ IS CURRENT CAT, CAT$ IS CATAGORY LIST\}d;6-A;MAXE IS MAXIMUM NUMBER OF ENTRIES ALLOWEDn@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 FO^}R MENU (H$)ABCDEFGHIJKLMNDATA AT 160 IS FOR B$56-B@5ADDRESS OF RIGHT JUSTIFYING ROUTINE-6-B0_}-ADDRESS OF ROUNDING ROUTINE*6-BP*ADDRESS OF CATAGORY MENU56-B 5ADDRESS OF CATAGORY HEADING BUILDE`}RINITIALIZE!"!READ MAIN MENU HEADINGS''67A,. ENTER CHOICE (1-5)  " READ SELECTION LETTERSa}SET UP CATAGORY HEADINGS&&67@,.Automotive &&67@ ,.Business &&67@9,.Clotb}hing &&67@X,.Donations &&67@w,.Entertainment &&67@,.Food c} &&67A,.Gasoline &&67A4,.Home Improvements &&67AS,.Investments &&6d}7Ar,.Taxes &&67A,.Rent/Mortgage &&67A,.Miscellaneous &&67A),.e}Medical B68@,-@-68@,-@B68@ ,-@B68@,-@-68@,-f}@B68@,-@B68@,-@-68@,-@B68@,-@B68@,-@-68@g},-@B68@,-@68@,-@:##@@K:D#6-#NUMBER OF ENTRh}IESNXMAIN MENUb8 +@@)AR@8ERASE CURSORg5@@'@@95SETi} MARGINSl/-@@/6-+&@,$@ v-$@--@@ 6-%-6-@:7<,,j}"@:?,Ap*@  )@? :? :? :?@:1,*@:5,A9AVk}@'AX9AW@!!(INVALID CHOICE, TRY AGAIN-@@%%2A@l}@-@@  %%2   A6-A:>:,,9AVm}@'AX9AW@!!( !-$@!@:*@n}&@2:CHANGE COLOR OF SELECTED NUMBER-@@P $//A A0A@APB.&&NEo}W, DISPLAY, TAPE, CHANGE, EXITENTER NEW DATA ROUTINE%@!A AR@ 2-%@p}2(ENTER CHOICE (A-M) X TO QUIT)@"@:X,A@:A,*@:M,A" -%@*##(q}INVALID CHOICE, TRY AGAIN 4-@@>%%2A@@H-@@ R%%2r}\ f A `2-%@2( +6-&@:A,%@s}+COMPUTE CATAGORY-%@%0(>:%A(,0HIGHLIGHT SELECTED CATAGORY-@@  Bt} 1 +AR1-@@V (6.` @-@@@(%ENTER DATE OF TRANSACTION (MM/DD/YY) u}j o B:,"A$p B:,"@A$ q -B:,%@@r 67<,.  t :-@@v}:( ENTER DESCRIPTION OF TRANSACTIONy $$SHOW USER HOW MUCH ROOM HE HAS~ .-@@.(  w}"-@@"6-B:, -@6@ 6-@:7<,, "@: ,6-@: , 67<,.>:,  *x}-@@*(ENTER AMOUNT $  A& B  6-%@!A 6-$@(&@'y}  68,-SAVE CATAGORY -@@ %67<,.7<,!6-%@%  -@ %67<,.7<,!z}6-%@%   68,-SAVE VALUE A'( ILLEGAL VALUE SUPPLIED2 2-@@2(ILLEGAL VALUE, TR{}Y AGAIN< -@@F %%2A@@P -@@ Z %%2|}d  n =-@@=(# x G-@@=(# }} G A$  BCANCEL TRAP -@@ ++("NEXT ENTRY FOR THIS CATEGORY (Y/N) )@~} >:,4YA#p -@@ --(%  -@@ !!(DIFFER}ENT CATAGORY (Y/N) )@ >:,4YA  # A#RETURN TO MAIN MENU DISPLAY REPORTS "}A8 *-@&68,-*  %-@%ACCUMULATE TOTALS  6-8,CATAGORY NUMBER }68,-8,%8, 68,-8,%8,   -@  6-8, 68,-    +}AR& ( CURRENT TOTALS0 '6-@6-@'6-@: -@@D -%I 28,"}(( 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 AAR@< +-@@<( NO REPORTS TO DISPLAY%-@@} % A< ASAVE TO TAPE1 +@@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-$@(&@}68,-&68,--@@(+'67&@(%<&@(%,.7<,+  @ B A}3-@@3(INVALID CHOICE, TRY AGAIN-@@%%2A@}-@@ %%2-@@  3-@@3( } $$I/O ERROR./-@@/( I/O Error F:A,8-@@B%%2}A@L-@@ V%%2`-@@ j t3}-@@3( ~ ACHANGE OR DELETE BPAR@2-%@}2(ENTER CHOICE (A-M) X TO QUIT)@"@:X,A@:A,*@:M,AR-%@}$$(INVALID CHOICE, TRY AGAIN -@@%%2A@@-@@  }%%2  AP`PZ2-%@2( d+6-&@:A},%@+COMPUTE CATAGORYiE8," -%@;(NO ENTRIES IN CATAGORYE AQn-%@%x0(>:}%A(,0HIGHLIGHT SELECTED CATAGORY-@@  B J-@T8,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-@@;67&@(%<&@(%,.7<,? QAR@:!!(}Change description (Y/N) D)@N@:Y,AWPX/AR/(Enter new descriptionb-AR}@--@@ g7 !B:,-67&@ %<&@ %,. 7 AWEl''67&@ %<&@ %,.7<,}q v(Change amount (Y/N))@@:Y,AX6AR AW6(Enter new amount } B AR@68,- AY (Delete this entry (Y/N) #)@#@:Y,}AY"AXp --&@'0%@(!$@(&67<,. 0 AXU##67<,.7%@(<}%@(, 1 "68,-'68,-1 AXe+68,-8%@,+68,-8%@, 6-&}@ AT`   AP/-@@/6-+&@,$@ (#' +'(ERROR: Table ove}rflow2#++(#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-&@29CON}VERT TO CAPITAL LETTERS&/6-%A(0/67<,.>:,:/6-&@ D/$211ROUTINE TO ROUND X TO 2 DECIMAL PLA}CES IN Y2)&6-P:+%>P,$A,'A)$6RIGHT JUSTIFYING ROUTINE6//GIVEN X, RETURNS XD$, DESTROYS VALUE IN }X66. .0066-$A69967@<@,.>:@:0,%&P:'@,$@,66-P:'@,69967@}<@,.>:@:0,%&P:'@,$@,66-P:'@,7 -@@6@ 7"BA 7--}67<,.>:@: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.BASEDERJUSROUNCATMECATHENUMENIAx1_ PCDTITLEERNURAV@@w &@@ mmĠϠ }ŠŠŠ ٠͠ŠƠɠ ЧӠӠˠBAR GRAPH::Written by } Clark Peterson>>5931 Clydesdale Ave San Jose, Ca 95123XXEnter as many set }s of titles and yearly data as desired in DATA Statements.99Press any key to go from one chart to the next. };@,;@8, A #A ""@@K +@ 0@@ @ } ++ # J F M A M J J A S O N D++ # A E A P A U U U E C O E++ # N B R R Y N L G P T } V CAR@"  *0@@@*BACKGROUND('0@@@ }'@,K,@@`',@@`9,AW@`K,AX@`-',@@@',AX@@ }.',@@ ',AX@ /',@',AX2-@AD@7"<%%6-+ }@y&+$@y'A,,F,@yG /H,%@@yI/%@_ '0@@ }'@-@AD@"%%6-+@y&+$@y'A,,,%@@y/%@ },%@@y/%@,%@@y/%@ "3 F:Ad,"AUA3 }WAIT FOR ANY KEY'AdAU+ @ERROR TRAP!6-F:A,!ERROR NUMBER6%6-AV$F:A, }%F:A,6RETURN ADDRESS="@#A# A=OUT OF DATA, START OVER ( & A C H } A R T 1**100,75,50,25,95,35,65,75,58,65,50,75**100,80,50,70,20,30,40,50,60,55,53,77XC H A R T 2b))95,75,85 },65,95,35,65,75,58,65,50,75l))95,75,85,65,95,35,65,75,58,65,50,75C H A R T 3))80,90,100,20,45,56,5,75,58,65,50, }75))95,75,85,65,95,35,65,75,58,65,50,75 D:CHARTS.BAS@w &@@ mmĠϠ @  -@UBALANCDIPATA **@@ D:BALANCE@@}70@70@@@(>:A%, @5#H-@@H(-What is th}e balance on your bank statement%(]-@@](CWhat are the amounts of the outstanding checks } *D-@@D(*Type 0 after the last outstanding check.-# @E-@!@#2 6-&}7"@p< @@F]-@@](CWhat are the amounts of the outstanding deposits } HE-@@E(+Type 0 after the last outstanding depositK# @u-@$@#P 6-%U}"AZ @pd7 "-@@7(YOUR CHECKBOOK BALANCESi 6-&nP!!-@@}>(THERE IS AN ERROR OF $P( IN YOUR FAVORxQ !-@@A(THERE IS AN ERROR OF $O:,Q( AGAI}NST YOU1-@@"1(Push to recheck. F:B2y,@A@ @$ D:BANKBAL.BAS@{200lAXLPB0NZ }HI<RBNEAAMOUNTNTEMPPRNAMEDATEYEARCC1CBALANCZSMLJJLEPPP&P8 AB}P'PB(j ~   APe @rAF @@@@@}@#@'@8@(;@,;AR,;@,;@,9@'<@',;@,;@},;@@,;@ ,;@,;@ ,;@,[ 6. 67@,. +67@,.16.E-@@ }I"W67<,.>:,[ !!18,20,97,110,100,27,27,83,0 X-@@")67<,.>:,- X27,27,72,47,27,27,83,1},49,48,48,27,27,72 **@@ D:BALANCE@70@70@@}@(>:A%,!-@@!(BALANCE>-@@)-@@7(>:@,; >(-@}@($ 3-@@3(Push for a depositJ-@@;(!Push twice to save ba}lanceJ( on disk A+-@@+(  -@@(#9-@@9(}Amount of check %-@#@( 6-&2 A9-@@9(Amount of deposit}  A-@#@ 6-% @0,5@5@@ D:BAL}ANCE1 @6@;(>:A%,@ 6.=:,.-@B:,!7<,4.$'. A0 ,}"B:,%@,67B:,%@,..00*"B:,&@*67B:,%@,.0 6.+B:,!@+6.7B:,&@}:@',8>:@',D>:@},>:@0,>:@C,>:,+&&(Position check and press START, A`- F:B2y,@A%.XB(}@>:@',0>:@ ,>:@ ,>:@ ,M(@X(@/QF(@>:@',2>:@ ,}>:@ ,>:@ , Q(@1&(@**#(@&$2dd6.ZONETWOTHREEFOURFIVESIXSEVENEIGHTNINETEN}ELEVENTWELVETHIRTEENFOURTEENFIFTEENSIXTEENSEVENTEEN<VV67B:,%@,.>EIGHTEENNINETEENTWENTYTHIRTYFORTYFIFTYSIXTYSEVENTY}EIGHTYNINETYFff1,3,4,6,7,11,12,15,16,19,20,22,23,27,28,32,33,36,37,39,40,45,46,51,52,59,60,67,68,74,75,81,82,90PRR91,98},99,106,107,112,113,118,119,123,124,128,129,133,134,140,141,146,147,152d #APC-@@'".68<@},-?68<@,-C ;(>:A%,(#( Month-Day '7( Year 19-- ;((Pay to 67B:,%@},.,J( (1(# Make sure your printer is ready,4(J(then press START. F:B2y,@Aa A`}@8@@P:B BTARa(>:A%,/6.>:@,/67B:,%@,.>:}@, 6-B:, "Ap @A0 B A0 @$@(>:AS,6(! RE}ADY PRINTER THEN PRESS START@ AD:CHECKPRT.BASBALANCZSMLJJLEPPP&P8 AB=!"BSWTYNXITTITITYC@9@ @5?@@`Ad@! A } @@pevARGd +n;@,x I.R.A. PROJECT }ION.. &USES SIMPLE INTEREST COMPOUNDED YEARLY  ENTER YOUR AGE%% WHAT IS YOUR TAX BRACKET (%) }## AMOUNT OF REGULAR DEPOSITS"" NOMINAL INTEREST RATE (%)$$ NUMBER OF DEPOSITS PER YEAR } AGE YOU PLAN TO RETIRE6-''A"" **************************";;6-+$++@%,#+$@ },&@,',$+@%,,  YEAR AMOUNT6  1 @"" P:$A%?P,'AJ;;6-+$++!}@%,#+$@,&@,',$+@%,T  2 ^"" P:$A%?P,'Ah;;6-+$++@%,#+!}$@,&@,',$+@%,r  3 |"" P:$A%?P,'A;;6-+$++@%,#+$@,&!}@,',$+@%,  4 "" P:$A%?P,'A;;6-+$++@%,#+$@,&@,',!}$+@%,  5 "" P:$A%?P,'A;;6-+$++@%,#+$@,&@,',$+@%!},  10 "" P:$A%?P,'A;;6-+$++@%,#+$@ ,&@,',$+@%,  !}20 "" P:$A%?P,'A "" ************************** ## PRESS 'RETURN' TO CONTINUE!}&0 :"" **************************D)) !ASSUMES YOU CONTINUE CONTRIBUTINGN THROUGH THE AGE LISTEDX6!}-@`&b  AGE AMOUNTl556-+$++@%,#+$,&@,',$+@%,v  60 "" P:$A!}%?P,'A6-@e&556-+$++@%,#+$,&@,',$+@%,  65 "" P:$A! }%?P,'A6-@p&556-+$++@%,#+$,&@,',$+@%,  70 "" P:$A! }%?P,'A"" **************************  AGE    6-& 556-+$++@%,#+$,! }&@,',$+@%, VALUE  "" P:$A%?P,'A* INTEREST 4** +P:$A! }%?P,'A,&+$,> TOTAL DEPOSIT H $R TAX SAVINGS \ $$'Af NET INVESTMENT! } p +$,&+$$'A,z6-+$,&+$$'A, NET GAIN && +P:$A%?P,'A,&!}"" ************************** MONTHLY INCOME 6-$'@"" P:$A%?P,'A YEARLY I!}NCOME  6-$"" P:$A%?P,'A"" **************************  "" PRESS 'RETURN' TO!} CONTINUE++(}DO YOU WISH TO ENTER MORE DATA? SELECT AN OPTION  1 PRINT ANALYSIS  !}2 CHANGE DATA!!  3 ENTER ALL NEW DATA  4 QUIT Ԡν"@A@!}"@A0"@A (}%D:MENU 3IRA DATA SHEET 3 3I.R.A. PROJECTIONN ..3&USES!} SIMPLE INTEREST COMPOUNDED YEARLY 3 3YOUR AGE NOW IS  ""3YOUR TAX BRACKET IS %z ((3AMOUNT OF REGULAR!} DEPOSITS IS  ,,3AT A NOMINAL INTEREST RATE OF %B--3#THE NUMBER OF DEPOSITS PER YEAR IS $$3YOU PLAN TO R!}ETIRE AT AGE 3 6-''A<""3**************************n;;6-+$++@%,#+$@,&@,',$+@!}%,3 YEAR 3AMOUNT3 1 ""3P:$A%?P,'A6;;6-+$++@%,#+$!}@,&@,',$+@%,h3 2 ""3P:$A%?P,'A;;6-+$++@%,#+$@,&@!},',$+@%,3 3 0""3P:$A%?P,'Ab;;6-+$++@%,#+$@,&@,',$+!}@%,3 4 ""3P:$A%?P,'A;;6-+$++@%,#+$@,&@,',$+@%,!}*3 5 \""3P:$A%?P,'A;;6-+$++@%,#+$@,&@,',$+@%,3 10!} ""3P:$A%?P,'A$;;6-+$++@%,#+$@ ,&@,',$+@%,V3 20 !}""3P:$A%?P,'A3""3**************************//3'ASSUMING THAT YOU CONTINUE CONTRIBUTINGJ3!}THROUGH THE AGE LISTED|6-@`&3 AGE 3AMOUNT556-+$++@%,#+$,&@,',$+@!}%,3 60 D""3P:$A%?P,'Av6-@e&556-+$++@%,#+$,&@,',$+@!}%,3 65  ""3P:$A%?P,'A>6-@p&p556-+$++@%,#+$,&@,',$+@! }%,3 70 ""3P:$A%?P,'A""3**************************83 AT AGE j33!!} 6-&556-+$++@%,#+$,&@,',$+@%,23VALUE d""3P:$A%?P,'A!"}3INTEREST **3+P:$A%?P,'A,&+$,3TOTAL DEPOSIT , 3$^3TAX SAVINGS !#}3$$'A3NET INVESTMENT 3+$,&+$$'A,&6-+$,&+$$'A,X3NET GAIN !$}&&3+P:$A%?P,'A,&""3**************************3MONTHLY INCOME 6-$'@ ""3P:$!%}A%?P,'AR3YEARLY INCOME \ 6-$""3P:$A%?P,'A""3************************!&}**33>:A@,L A @..(}"WHICH FIELD DO YOU WANT TO CHANGE?r( 1 AGE (#( 2 TAX B!'}RACKET Z#,,(" 3 AMOUNT OF REGULAR DEPOSITS d#''( 4 NOMINAL INTEREST RATE '--(# 5 NUMBER OF DEPOSITS!(} PER YEAR B'((( 6 AGE YOU PLAN TO RETIRE L'""( 7 TO BEGIN PROCESSINGt'((Ԡν~''(!)}"@$(ENTER YOUR AGE ('."@*(ENTER YOUR TAX BRACKET. (<"@8($ENTER THE AMOUNT OF REG!*}ULAR DEPOSITS<(7"@3(ENTER THE NOMINAL INTEREST RATE7<(="@9(%ENTER THE NUMBER OF DEPOSITS PER !+}YEAR=n(4"@4( ENTER THE AGE YOU PLAN TO RETIRE("@ Ap) A D:IRA.BAS A t  eZ$d@7@@@@P@AeA6P > B'y(oo%-}ǠɠҠȭ Ӡ͠Š ԠŠƠԠҠě;;8,72,165,20,41,16,7%.}4,74,74,141,243,2,104,40,76,62,2335 (}#0@@5AR@;A, @/-@%/}B:,!7<,4 +(7<,/ m%2@@/(7<,C-@@G i2%0}m  ( $ ;.6.$Ӡ̠͠ŠҠ8 @;(;.6.$ԠŠƠΠ%1}ԠҠ8 @;(;.6.$ĠҠؠҠƠӠ8 @;((;.6.$ԠԠΠ٠%2}8 @;(+;.6.$8 @;(-;.6.$Ԡ٠ԠŠՠź8 @%3};(/;.6.$8 @;(3(4(7( <=..(& נϠՠ%4}ԠԠĿҺ>( 1٩?( 2٩@( 3٩A( %5}4٩B( 5̩C( 6̩D ( F..(&ӠàԠԠŠ%6}H..(&ŠӠŠҠƠӠՠJ..(&ԠŠӡMN O( Ԡ%7}ҠPU//(& ҠƠӠӠΠWX(Z"@6-Ae["@6-@%8}R\"@6-@]"@6-@^"@6-@`"@6-@b 6-$%9}c6-'+A$,d336-$++++@%,#,&@,',$+@%,!!(PRESENT VALUE LUMP SUM 4( @Q%:}D:PVPERIOD.BAS$d@7@@@@P@AeA6P > B'y(oo$  eZ$d@3@ oo)<}ǠɠҠȭ Ӡ͠Š ǠĠҠƠ̠;;8,72,165,20,41,16,7)=}4,74,74,141,243,2,104,40,76,62,2335 (}#0@@5AR@;A, @/-@)>}B:,!7<,4 +(7<,/ m%2@@/(7<,C-@@G i2)?}m  ( $ ( ?%%( 1 ٠ 2 ٠A%%( 3 ٠ 4 C%%( )D} 5 6 ̠F ( H))(! ӠàԠԠŠI))(! ŠŠӠŠӠՠJ)))E}(! ŠҠҠǠĮKL N( ̠ԠԠPR ( U//(& ҠƠӠ)F}ӠΠWX(Z"@6-Ae["@6-@R\"@6-@]"@)G}6-@^"@6-@`"@6-@b 6-$c6-'+A$,d336-$'++++@%,)H}#,&@,$+@%,,11((ԠϠԠȠĠ 4( @QD:SINKFUND.BASoo(uzIBJIAP@@?@3 ?BW9 @! @'-J} @1 + !! REGULAR PAYMENT ON A LOAN   TERM IN YEARS(2  PRINCIPAL<F A-K}NNUAL INTEREST RATEPZ # OF PAYMENTS PER YEARdnII6-++'A$','+@&@'++'A,'%@-L},#+$,,,x REGULAR PAYMENT = $}"" P:$A%?P,'A6-'A 6--@$**-M}6-P:+$',$A%?P,'A 6-& 6-&  LAST PAYMENT = $&& P:+%,$A%?P,'A-N}  !! MORE DATA? (1=YES, 0=NO);"@@  D:LOADPAY.BAS ?BW9 @! @',eRSkWW1W2W3W4W5W6W7A1AIDNNAFFCLEARTABCLEARTABSKZGFRee o y1P}"$ J@ @  @8  'e@@@&1Q}@@@@ @e@ !"1R}x,,ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,SEVENEIGHT,NINE11TEN,ELEVEN,TWELVE,THIRTEEN,FOURTEEN,FIFTEEN((SIXTEEN,S1S}EVENTEEN,EIGHTEEN,NINTEEN..TWENTY,THIRTY,FOURTY,FIFTY,SIXTY,SEVENTYEIGHTY,NINETY;;HUNDRED,THOUSAND,MILLION,BILL1T}ION,TRILLION,QUADRILLION;;QUINTILLION,SEXTILLION,SEPTILLION,OCTILLION,NONILLION55DECILLION,UNDECILLIOM,DUODECILLION,T1U}REDECILLION22QUATTUORDECILLION,QUINDECILLION,SEXDECILLION??SEPTENDECILLION,OCTODECILLION,NOVEMDECILLION,VIGINTILLION1V}::VIGINTIUNTILLION,VIGINTIDUOTILLION,VIGINTITRETILLIONAAVIGINTIQUATTOURTILLION,VIGINTIQUINTILLION,VIGINTISEXTILLION1W};;VIGINTISEPTILLION,VIGINTIOCTTILLION,VIGINTINONTILLION"::TRIGINTATILLION,TRIGINTAUNTILLION,TRIGINTADUOTILLION633FIRST1X},SECOND,THIRD,FOURTH,FIFTH,SIXTH,SEVENTH@44EIGHTH,NINTH,TENTH,ELEVENTH,TWELFTH,THIRTEENTHJ;;FOURTEENTH,FIFTEENTH,SIXTEE1Y}NTH,SEVENTEENTH,EIGHTEENTHTNINTEENTH,TWENTIETH,NEXT11;A,;@,;@,;@,11;@4,;1Z}@!,;@6,;@t,&&;@,;A,;@,6-6-TT(L}Hi there! My name i1[}s NUMBERS. What is your name? Please enter your name for(me on the next line.;@%,& 6-B:,01\}@ Ap:APD(N==(Sorry *,but I get tired easily saying long names.b,,($Long numbe1]}rs are my thing, you know.lGG(?Please retype your name now and limit it to 20 letters or less.v6-@ A@1^}6.7@<@%, A"A22(Whew, thank you ! That's much better.(??(1_}Now ., do you want some instructions on what to do?;@,7@,4NA  7@,41`}NOA -@@ (  ..(&I can teach you how to say big numbers*RR(JType in any positive whole num1a}ber and I will print the words to use to say4++(#that number in English. You may use>**("commas to separate groups of t1b}hreeC**("digits if you wish, but you do notH,,($have to. For example, 1093 and 1,093R++(#are the same number to me. 1c}Only theW++(#digits (0 through 9) and commas areX++(#allowed in the numbers you type in.[(\..(&When you wish to 1d}stop,type END or QUITe( ( ((((f'-@AP '6-  ( ((6-%@#!-1e}@@b%"! 6-%@@!A P6-@!//(OK,  . Enter your  number now1f}. 6-B:, @A u&&7@<@,4ENDA(`@A''7@<@,1g}4QUITA(`86-B6-L6-@V-@`6.7<,j@:,"@DA t@:1q})B'DOS SYSB*+DUP SYSBiUFINANCE BASBBARGRAPHBASB BANKBAL BASCBALANCE BMENU B CHECKPRTBASB2IRA BASB,PVPERIODBASB;SINKFUNDBASBILOADPAY BASB<OBIGNUM BASCHOMEFIN DATBFVINV BASBNPV BASB,PRATIO BASBBUSINESSBASBAUTORUN SYS,"@2A ~@:, @HA@:,!@WAApA@:,"@HA 61r}-@6-%@!AA#P 67,. "@A%@:,"@DA!1s}A6-@67<,.0AA++@:7@<@,,@IA#P(-@1t}2@:7<,,!@HA#P< F6-@P A11(Sorry  but the number you enter must++(1u}#contain only digits 0 through 9 and(commas.,,($Please reenter your number correctly A `@ 1v}AH'6-P:+H:,$@6,%@,*#@-@%@D"H H'6-P:+H:,$@t,%@,*#@1w}-@%AD"H  ( (''(  ,THAT WAS  NUMBER!(,6-P:+%@,'@,66-++$@1x},%@,&@( The number J6-@TApAPA0^ A@h6-%@r A`1y}|6-%@-@''AAAA (7<, A  (,6-%@1z}6-%@@A`6-@@xA6.6-@ 1{} A"@A ^6._(b (is spoken in English as:l"A@1|}q6.r(v$( $( ONE GOOGOL6- A 6-++$@,%@,& 1}}((6-@6--@6-A:7<,,A A A!P 6-%"1~}A"-#-@%@ "$ -( +#-@@)"" +(   A"  6-%1}*__%@A"A!A! A! A! A! A! A! A! A! 46-@> A"1}H#I!-@%@"! J ( R A"f 6-%pA!pA" z"@A"1}"A"`"A"0#!-@%@"!  (  A"0#-@1}A:7,," #!-@%@"!  ( @A"#!-@%@("1}!  (  ((6-&@6-@6-6-%@@A#  61}-@  $ A .   (Well , ++(#that number is bigger than a GOOGOL ++(#(1 followed by 100 z1}eros). Before I ((( tell you how to say it, you must ++(#show yourself worthy. Take a pencil --(%and some paper and 1}write down all the ,,($digits in a GOOGOLPLEX. A GOOGOLPLEX ++(#is 1 followed by a GOOGOL number of ,,($zeros. When 1}you have written all the ,,($digits in a GOOGOLPLEX down on paper **("come and type them in for me and I ))(!will kn1}ow you are worthy to speaK %%(numbers larger than a GOOGOL. (Good bye for now. **AHA,BINGO,BOY,BRAVO,EUREKA,GAD 1}ZOOKS( 88GOLLY,GOSH,HEY,HEY THERE,HO HO,HOORAY,MAMA MIA,MAN2 ;;OH BOY,OH HO HO HO,OH ME,OH ME OH MY,OH MY,OHO,OH WOW< 771}OK,O SOL O MI O,RIGHT ON,WHOOPIE,WILD,WOW,YE GADSF ++YES,YIKES,YIPES,YOW,YOWIE,ZINGO,ZOWIEZ 33AN AMPLE,AN AUGUST,A BIG,A1} BRAWNY,A CAPACIOUSd ;;A COMPREHENSIVE,A COLOSSAL,AN ELEPHANTINE,AN ENORMOUSn 88AN EXTENSIVE,A GIGANTIC,A GORGEOUS,A GRAN1}D,A GREATx 99A HUGE,A HUMONGOUS,AN IMMENSE,A LARGE,A MAGNANIMOUS ::A MAJESTIC,A MASSIVE,A MIGHTY,A MONSTROUS,A MUSCULAR1} 55AN OSTENTATIOUS,A POMPOUS,A POWERFUL,A PRINCELY 88A PRODIGIOUS,A REGAL,A SIGNIFICANT,A SOPHISTICATED 88A SPACIOUS,1}A SPLENDID,A STUPENDOUS,A SUPERB,A VAST A WIDE ;;NOT YOUR AVERAGE,NOT YOUR COMMON,NOT YOUR COMMONPLACE 66NOT A CRA1}MPED,NOT A DWARF OF A,NOT AN ELEMENTARY >>NOT YOUR EVERYDAY,NOT A FEEBLE,NOT A FLIMSY,NOT A HUMBLE 88NOT A HUMDRUM,NOT 1}AN INCHOATE,NOT AN INSIGNIFICANT **NOT A LITTLE,NOT A MEAGER,NOT A MEEK 44NOT A MERE WISP OF A,NOT A MINUTE,NOT A MODES1}T 33NOT AN OBSCURE,NOT YOUR ORDINARY,NOT A PALTRY 66NOT A PETTY,NOT A PIGMY,NOT A PUERILE,NOT A PUNY ..NOT A SCANTY,1}NOT TO SHABBY,NOT A SHALLOW 88NOT A SIMPLE,NOT A SMALL,NOT A TINY,NOT A TRIFLING" 99NOT A TRIVIAL,NOT AN UNDERSIZED,NOT 1}AN UNNOTICEABLE,  D:BIGNUM.BASAIDNNAFFCLEARTABCLEARTABSKZGFRee o y0*qFZNN@@? A @AA A 9}%9@,;@,%+ %% FUTURE VALUE OF AN INVESTMENT(((NUMBER OF CASH FLOWS2<$$(9} COST OF CAPITAL (%)FP6-'AZ(d6-n99(1(ENTER INFLOWS AS POSITIVE, OUTFLOWS AS NEGA9}TIVE)x-@!@A`(AMOUNT OF CASH FLOW Ap(  9}6-$+@%,#+&,((6-%+P:$A%?P,'A, (55(# Future Value at the end of period9} = $(@@(7DO YOU WANT TO RE-RUN THIS PROGRAM WITH NEW DATA? (Y/N)4Y@0"0NA`9}, D:FVINV.BASN@@? A @AA A 8p[lCCZA @@%B#V@Ap41 Ap B =} $ +$( NET PRESENT VALUE(9@,;@,2(<( INVESTMENTFP%%6-6P:$A%?P=},'AZ(NUMBER OF YEARSdn$$(REQUIRED RATE OF RETURN (%)x6-'A%@6-=}(AA(9 ENTER CASH FLOW AMOUNTS EACH YEAR( OUTFLOWS AS NEGATIVE)(-@!@A (=}INFLOW FOR YEAR A0(   68,-$$6-P:$A%?P,'A 6=}-%  6-"-@,//6-%P:+8,'#,$A%?P,'A6 @(J(Net Present Value = =}$^(h>> 5DO YOU WANT TO RERUN THE PROGRAM WITH NEW DATA? (Y/N)r|4Y@P0NA`=} D:NPV.BASCZA @@%B#V@Ap41 Ap B < 2 1,12.98,2/3/44 CAR PARTS FOR CAR 4,1,12/13/19GIVEN TO STREET WINOS 8,26,7/134f +AdAUcAAx'A @9@@K@@7Q(}cAR@}++(#++(#| - BUSINESS - DISK #1 |++(#}++(# @ -@A $ GG;@@,;@ ,;@@},;A,;@,;@@, "D1:MENU" &&@@D:*.* 6,6." } 6 @0i6-%@(6.7@<@,A67@ <@ ,..i67@<@,.7@<@,}3 6.|67B:,%@,.367B:,%@,.G67@<@,.(--@B:,:7<,4 G67<,..]} 6.=:, @D67@<@,.7@<@,]67@<@,.0$@(''7@}<@,4FREE@- @ 2() <@F''7@<@,4FREE@K @ P}(7@<@,)|U @0W'!-@6+'@,%@' |Z++(#| |[} ( |  |\++(#xAR[@@9'-@}@"C( SELECTIONM A0Q[ BP:,A00"@&6.7@<@,0 AE}LB6.7+&@,$@%@<+&@,$@%@,L B37@<@,4 36.7@<@},!7@<@,4DOS!.0 6.-@B:,07<,4 AH67B:,%@,.7<,   6.}! 6.D1:!67B:,%@,.?AR@'-@@"?  LOADING ? A@@9}1@@5%? BK-@@"-  CANNOT RUN 7 @A BK A0D:MENU}.BASpPbCCZA  @@A @A A A B <$%DNDTXXCLXHLCHRERROA~  @2 A} @ @4 @@9@ ,&&;@,;@ ,;@P,A}(D(1)=NET SALES2D(2)=BEGINNING INVENTORY<D(3)=ENDING INVENTORYFD(4)=GOGSPD(5)=INTEREST EXPENSEZA}D(6)=PRETAX INCOMEdD(7)=TAXESnD(8)=CASHxD(9)=A/RD(10)=NOTES RECEIVABLED(11)=TOTAL ASSETDA}(12)=C/LD(13)=EQUITYD(14)=SHARES OUTSTANDING""D(15)=MARKET PRICE PER SHARED(16)=DIVIDENDS PAIDA}44NET SALES,BEGINNING INVENTORY,ENDING INVENTORY))COST OF GOODS SOLD,INTEREST EXPENSE''PRE-TAX INCOME,INCOME TAXES, A}CASH77ACCOUNTS RECEIVABLE,NOTES & MARKETABLE SECURITIES&&TOTAL ASSETS,CURRENT LIABILITIES44SHAREHOLDER'S EQUITY,CA}OMMON SHARES OUTSTANDING00MARKET PRICE PER SHARE,DIVIDENDS PER SHARE AvAv A(TURN ONA} PRINTER!(ΠΠ! Av (}**("̠ԠϠ553>:@,"FINANCIAL STATA}EMENT RATIO ANALYSIS3"( NAME OF FIRM')3 NAME OF FIRM 6( MONTH/DAY/YEAR7@3MA}ONTH/DAY/YEAR J#^""(-----Š-----_%%3-----INCOME STATEMENT-----h(ENTER AMOUNTS FOR:iA}3ENTER AMOUNTS FOR:r-@@| A  ENTER BAL. SHEET ACCOUNTS3""(-----ŠA}--------&&3-----BALANCE SHEET-------- (ENTER AMOUNTS FOR:3ENTER AMOUNTS FOR:-@@A} A  (3( ALSO ENTER:3 ALSO ENTER:-@@ A  (A}3 +3(ΠƠ ##3>:@,EVALUATION OF (PERIOD ENDING:##3PERIOD ENDINA}G:>:@,(&""(----------'.'3E-----PROFITABILITY-----.3F06.RETURN ON ASSEA}TS:6-@D**6-+8@,&8@,,'8@,N ApX6.RETURN ON EQUITYb**6-+8@,&8@A},,'8@,l Apv$$6.RETURN ON INVESTED CAPITAL6-@776-+8@,&8@,,'+8@,&8A}@,, Ap6.EARNINGS PER SHARE6-@**6-+8@,&8@,,'8@, ApA}6.OPERATING RATIO6-@**6-+8@,&8@,,'8@, Ap((---------A}-)"3E----LIQUIDITY-----)3F6.NET WORKING CAPITAL 6-@CALC CURRENT ASSETS 336-8@A},%8@ ,%8@,%8@,*CALC LONG TERM DEBT4((6-8@,&8@,&8@,>6-&8@,HA} ApR!!6.ACID TEST (QUICK RATIO)\6-@f!!6-+&8@,,'8@,p Apz6. CURRENT RATA}IO6-'8@, Ap((----------(!3E----ACTIVITY-----(3F6. SALESA} PER DAY6-@6-8@,'Ae Ap 6.DAYS SALES OUTSTANDING6-''6-8@ A},'+8@,'Ae, Ap ( DAYS IF NO INVENTORY DATA, SKIP++8@,%8@,"AA}$$6.INVENTORY TURNOVER (TIMES)$446-8@,'++8@,%8@,,'@,. Ap8( TIMESB(L!!A}(----------M-&3E-----INDEBTEDNESS------3FV%%6.CREDITORS' INTEREST IN FIRM`6-@A}j**6-+8@,&8@,,'8@,t Ap~6.TIMES INTEREST EARNED6-556-+8@,%8@A},%8@,,'8@, Ap6.DEBT TO EQUITY6-@**6-+8@,&8@,,'8@,A} Ap%%6.LONG TERM DEBT TO NET WORTH6-'8@, Ap##6.LONG TERM DEBT TO CAPITAL6-A}'+%8@,, Ap(----------&3E----EQUITY-----&3F((6.SHAREHOLDER'S INTERESTA} IN FIRM(6-@26-+8@,,'8@,< ApF6. PAYOUT RATIOP6-@Z776-8@,'++A}8@,&8@,,'8@,,d Apn6.EARNINGS YIELDx6-@776-++8@,&8@,,'8@A},,'8@, Ap6.BOOK VALUE PER SHARE6-@6-8@,'8@, Ap6.A}PRICE/EARNINGS RATIO6-@776-8@,'++8@,&8@,,'8@,, Ap6.DIVIDEND YIA}ELD6-@6-8@,'8@, Ap(30,(#DO YOU WANT ANOTHER ANALYSIS? (Y/N)04,A}3#DO YOU WANT ANOTHER ANALYSIS? (Y/N)043,4YA60NA`@ A@JDATA ENTRY ROUTINETA}"Y6-@0&B:,&@Z""3D>:A(%,>:A(,^-&@` ( b d(hjA} 68,-m3>:A7, r$| SUBRTN TO PRINT RATIOS AND}TURNOVER DATA$$-@%&B:,&@A} (  (3$$6-P:$A%?P,'ARATIO FORMAT IF X1=1"@AA}FORMAT IF X1=2"@ADOLLAR FORMAT IF X1=3"@A DEFAULT TO NO FORMAT  A}3$( :13 :1$( $A% 3 $A%$ ( $ 3A} $&$0 D2:PRATIO.BASCHRERROA~  @2 @(YZ*aaKENUZAMSGMSG1MSG2MSG3MSG4MSG5MSG6OUTSTANYOURBABANKBAPERAMOUNOUTSTANDINDIYOUBAPCE}OUNPROUNDAREYARDROUNPACTBAPMAPDUMNIIQQAMRATPPYEARAETEMFFFADAMTJWJYPPDDDDJMOHAME}JTAMKKKKKJVOJAFEMAMAJUJUAUSEOCNODEPAHOURTIMTOTARTTTTTTSSSAARYYIMINE} E} E}!@"#$%&'()*+,-./0E}123456789:;<=>?@E}A@B@C@DEFGHIJKLMNOE}PQRSTUVWXYZ[\]^_E}`abcdefghijklmnoE}pqrstuvwxy;@0,;@@,;@5,E};@5,;@5,;@5,;@5,;@5,;@,9@,9@,9@, A27-@E}@#7(PUSH Ԡ TO CONTINUE < F:B2y,"@@`d- (}+-0@n E} ՠx( ( 1AMORITIZATION TABLE%%( 2MONTHLY MORTGAGE PAYMENT""( 3DEPRECIATION SCHEDULEE}( 4SAVINGS AND LOANS( 5FIND THE AVERAGE##( 6SQUARE FEET & SQ. YDS.!!( 7PAYCHECK CALCULATIONE}&&( 8INTEREST ON AN INVESTMENT**( 9WHAT IF MORTGAGE COMPARISONS(10PROPERTY EXPENSES(11MOE}NTHLY BAR GRAPH""(12DECIMAL / HAXADECIMAL(13 U.S. / METRIC(14CHECKBOOK BALANCE(15HELPE} (16RETURN TO DISK MENU*(*(CHOOSE ANY NUMBER THRU "$((YOUR CHOICE = $(}^!! @)!E}@AhAA A0A@APA`ApAABBB B0E}B@BPB`$$(ΠŠҮ̮Ӡ+('(START MONTH OF LOAN (1-12)=+E}-&@ ((LOAN AMOUNT ()= )(%(ANNUAL INTEREST RATE ()=))(%(MONTHLY LOAN PAYMENT ()=E})$!6-@!AR@)( (}((ȠǠΠ.6-$'A8 6-&B 6-&L$$6-E}P:$A%?P,'AV 6-%`$$6-P:$A%?P,'Aj 6-%t$$6-P:$A%?P,'A~E}A0 (6-%@6-%@"@A`A0 Ap -+'@E},&P:'@,6-$@&@**(P:'@,Ӡ Ӡ"( ("(INT. FOR YEAR END= (E} (PRINCIPAL YEAR END=-( (-( PUSH Ԡ TO CONTINUE  F:B2y,"@A06-6-E}'6-*(-(0(A( Ae2AR(}<B5(-٠ԠϠ̠̠E}Š.8(B A(AMOUNT OF LOAN ($)AAHERBERT D. PECKHAM "PROGRAMMING BASIC" T.I. SOFTWARE SERIES)(E}%(WHAT IS INTEREST RATE (%))$( (TERM OF LOAN ()$6-$'A''6-+@%'A,#+@E}$,6-'+@&@', $$6-P:$A%?P,'A!(!(MONTHLY PAYMENT OF $ ( ( @P E}(ASSET VALUE () (ASSET LIFE (YEARS) (6- -@ 6-% AAHERBERT D. PECKHAME} "PROGRAMMING BASIC" T.I. SOFTWARE SERIES 6- -@ 6-+%@&,' 6-$ 6-&& $$6-P:$F}A%?P,'A0 $$6-P:$A%?P,'AX ((Ҡ b ( îӠl ( ŠӠv F}  @P) (})( ӠĠӠ..COMPUTE MAGAZINE--BASICALLY USEFUL BASIC1(1(&1 BALANCEF} OF A LOAN AFTER N PAYMENTS/,($2 MONTHLY PAYMENT TO AMORTIZE LOAN/(/,($3 # OF PAYMENTS TO AMORTIZE A LOAN/(.F}+(#4 ANNUAL % RATE USING AN INTERVAL.(-*("5 MONTHLY PAYMENT & INT. ON LOAN-('$(6 ANNUAL INVESTMENT GROWTH'F}($!(7 PERIODIC SAVINGS PLAN$((%(8 FUTURE PRICE VS INFLATION((##(9 RETURN TO THE MAIN MENU"(( YOF}UR CHOICE="(}OOAAABACADAEAFAGAHA($(ENTER YOUR CURRENF}T BALANCE.(-()(ENTER THE NUMBER OF PAYMENTS.-+('(ENTER YOUR MONTHLY PAYMENT.+"7(3('ENTER YOUR F}ANNUAL INTEREST RATE IN (%).7,6-'A6 6-@-@J6-$+@%,&T Y6-$&+&,ZF}$$6-P:$A%?P,'A[$$6-P:$A%?P,'A^.(.(BALANCE AFTER  PAYMENTS IS $c'('(F } YOU PAID $ IN INTEREST.g AIh%!(ENTER THE # OF PAYMENTS.%r.(*(ENTER THE BALANCE OF THE LOAN..F }|7(3('ENTER YOUR ANNUAL INTEREST RATE IN (%).76-'A006-$$+@'+@&+@%,#+6,,,$F }$6-P:$A%?P,'A ( (YOUR PAYMENTS ARE $ 6-$&$$6-P:$A%?P,'A&(&( YF }OU PAY $ IN INTEREST. AI'#(ENTER THE CURRENT BALANCE.'+('(ENTER YOUR MONTHLY PAYMENT.+7F }(3('ENTER YOUR ANNUAL INTEREST RATE IN (%).76-'A((6-6+K:@&'$,,'K:%@,$$6-P:$AF}%?P,'A+(+( YOU HAVE  PAYMENTS TO MAKE.. 6-$&.6-P:$A%?P,'A+(+(YOU WIF}LL PAY $ IN INTEREST.& AI0,((WHAT IS THE BALANCE OF THE LOAN,:+('(ENTER YOUR MONTHLY PAYMENT.+F}D(($(ENTER THE # OF PAYMENTS.(N6-@P'AX6-]-@@ b6-+%,'@gF} 6-$l$$6-$+@&+@%,#+6,,q 6-v  6-{  6-$&6-A$$$6-P:$F}A%?P,'A*(*(YOUR ANNUAL (%) RATE IS %.((YOUR INTEREST IS $ AI#(HOW MUCHF} WAS YOUR LOAN#:(6(*HOW MANY MONTHLY PAYMENTS MUST YOU MAKE:0(,( WHAT IS YOU INTEREST RATE IN (%)0F}6-'A6-'@ 6-$$6-+%,'$$6-P:$A%?P,'A$$6-P:$A%?PF},'A$($(YOUR PAYMENTS WILL BE $4(4('YOUR INTEREST ON THE ENTIRE LOAN IS $L(L(AIF YOU WANT TO KNF}OW THE ANNUAL PERCENTAGE RATE, EXECUTE PROGRAM 4 AI:6(-HOW MUCH MONEY DO YOU INTEND TO DEPOSIT:9(F}5()WHAT IS THE ANNUAL INTEREST RATE IN (%)9 6-'A6(2(&HOW MANY COMPOUNDING PERIODS EACH YEAR6 F}A(=(1HOW MANY YEARS DO YOU INTEND TO INVEST THIS MONEYA*6-$+@%',#+$,4$$6-P:$A%?P,'AF}>I(I(AT THE END OF  YEARS YOU WILL HAVE  DOLLARS SAVED.H AI\JF(=HOW MUCH MONEY DO YOU INTEND F}TO DEPOSIT EACH PAY PERIODJf5(1(%HOW MUCH IS THE INTEREST RATE IN (%) 5p>(:(.HOW MANY PAYMENT PERIODSF} DO YOU INTEND TO SAVE>z6-'A116-$++@%,#+%@,&+@%,,'$$6-P:$A%?P,'AF}O(O(AT THE END OF  PAY PERIODS YOU WILL HAVE  IN YOUR ANNUITY. AI.*(!WHAT IS THE CURRENT PF}RICE OF ITEM.#((WHAT YEAR IS IT NOW#C(?(3FOR WHAT YEAR DO YOU WISH TO KNOW THE PRICE OF ITEMC 6F}-&<(8(,WHAT IS THE PROJECTED INFLATION RATE IN (%)<6-'A6-$+@%,#Q(Q(THE PRICEF} OF THE ITEM! IN  WILL BE $P:$A%?P,'A AI~1(1(&PRESS Ԡ TO GOTO ӠӠF } F:B2y,"@AI A@(HOW MANY NUMBERSAAHERBERT D. PECKHAM "PROGRAMMING BASIC" T.I. SOFF!}TWARE SERIES*(*(ENTER THE NUMBERS ONE AT A TIME6--@ 6-%  6-'F"}(( THE AVERAGE IS  @PpSQ YARDS & SQ. FEETuAAHERBERT D. PECKHAM "PROGRAMMING BASIC" T.I. SOFTWARE SEF#}RIESz(נ٠ӠS(S(HFOR EACH ROOM, TYPE IN LENGTH AND WIDTH IN FEET SEPERATED BY A COMMA#( (F$}#(͠ Ӡ(--@   -%$ 6-'@ $$6-P:F%}$A%?P,'A(( ѠԠҠ( ѠӠ( ( @PX""PAY CALCULATION BY R.L.LEWISF&}b? +'0@36-?6-l$$( PAYCHECK CALCULATIONvH( (D(5DO YOU WISH TF'}O ADD UP THE HOURS PER YOUR PAY PERIODH4NAq%("(ENTER WHEN FINISHED%(( HOURS WORKED=F(} -%"Aq  Ap`+('(HOW MANY HOURS DID YOU WORK+, (}((WHAT IS YOUR PAY PEF)}R HOUR,, -$,6-P:$A%?P,'A ( (YOUR GROSS PAY IS $ @P@PPBASIC COMPUTER PROGF*}RAMS FOR THE HOME...CHARLES D. STERNBERG...HAYDEN BOOKSJ\6-@ +30@X(ENTER THE AMOUF+}NT TO BE INVESTED\T'(#(ENTER THE INTEREST RATE'Y<(8(,ENTER THE NUMBER OF YEARS TO PROJECT GROWTH<^OF,}(K(?ENTER THE NUMBER OF TIMES PER YEAR THEAMOUNT WILL BE COMPOUNDEDOhA`r@(6(+COMPOUNDING MUSTF-} BE AT LEAST ONCE EACH YEAR@ A0|(6.Y"@AD@(7SHALL I PRINT AFTER EACH COMPOUNDING PERIOF.}D (٠ҠΠ)DP +'0@P($""( INITIAL INVESTMEF/}NT $''( ANNUAL INTEREST RATE %''( COMPOUNDED  X PER YEAR,,($F0}#(#( BEGIN INTEREST))(!YR. AMOUNT AMOUNT TOTAL++(#--- --------- --------- ---------F1}6-$?'6-B-@-@"((6-46-B-@H 6-$&6-P:+%>P,$AF2},46-'A<6-%B6-H6-4YA   A0  6-6- 5-@(-@#(/-F3}@(5(%! )6-%@"@#)6-@ & 6-%0   ( # @P(#FFBASIC COMPUTER PROGRAMS FOF4}R THE HOME. BY STERNBERG..HAYDEN BOOKS<#K +'0@36-@?6-@K6-@F#( F5}ԽP#(ԠŽɠZ#( ӽ٠d#2(.("ENTER THE ITEM TO VARY ɠҠ٠2n#٠ƠF6}Ӡx#0AA #J(D(8ENTER THE BEGINNING AMOUNT, ENDING AMOUNT TO CONSIDERJ#:(6(*ENTER THE INTEF7}RVAL BETWEEN PRINTS I.E.1000:# A#0IA`#H(B(6ENTER THE LOWEST, HIGHEST INTEREST RATE TO CONF8}SIDERH#C(?(3ENTER THE INTERVAL BETWEEN PRINTS I.E., .25 FOR 1/4C# A#0YA#I(C(7ENTF9}ER THE LOWEST, HIGHEST NUMBER OF YEARS TO CONSIDERI#9(5()ENTER THE INTERVAL BETWEEN PRINTS I.E., 59# F:}٠ƠԠӛ#?(%(ENTER THE MORTGAGE AMOUNT)/6-?4IAP#;(#(ENTER THE INTEREST RATE'F;};@A0$6-$A$ 6-$4YA`"$5(+(ENTER THE YEARS OF THE MORTGAGE/56-,$ (F<}}ǠР6$ -@$(%(FOR A MORTGAGE OF  YEARS((J$ -T$-*(USING THE INTEREST RATE OF F=} %-(^$((( MORTGAGE MONTHLY PI TOTALh$**(" AMOUNT PAYMENT INTERESTr$..(&-------- ---------- -F>}-----------|$ -$ΠĠԠ$_6-+'A,'@E6-'++@%,#+$@,&@,%M6F?}-$_6-$$@&$E$6-P:$A%?P,'AE6-P:$A%?P,'A$? ( !-@F:@,F@}&(;-@)F:@,?($ $..(&$   @P'HHàҠFA}ӠҠŠŠ٠îǭΠӛ'!!Ϊ$'i +'0@EFB}( ENTER PROPERTY NAMEi(( just press return when done ))'6->P6. .'4 @P8'I B@FC}(/(ENTER THE MORTGAGE AMOUNT;6-?I BB'O BP(-(ENTER THE INTEREST RATE1; BOFD}@BpL'6-$AV'6-+'A,'@`'C B(5(ENTER THE YEARS OF THE MORTGAGE9C BFE}j'y B(<(&ENTER THE ANNUAL TAXES ON THE PROPERTYH6-LZ6-'@o6-P:+%,$A,y Bt'\FF}6-'A(L(2ENTER THE ANNUAL INSURANCE COST FOR THE PROPERTYX6-\y'46-'@&6-P:+%,$AFG},46-'A~'a B(G(1ENTER THE ANNUAL MAINTENANCE AND REPAIR COSTS6-Wa B'46-'@FH}&6-P:+%,$A,46-'A'` B (F(0ENTER ANY OTHER MONTHLY COSTS THAT APPLYR6-VFI}` B'a B0(A(+ENTER AVERAGE MONTHLY UTILITY COSTSM6-QW(}a B'FJ}Ϊ'l-6-'++@%,#+$@,&@,%56-$J6-P:+%,$A,X6-'Ab6-%%l6-%%'I.(FK}&I(INTEREST RATE %'((( MORTGAGE MORTGAGE YEARS '1(1(&FL}'%(%( Ϋ  '%(%(  '%(%( FM} '..(&----------------- ------------------'!!( SUBTOTAL  SUBTOTAL '&(&(̠٠FN}Ӻ$%'1(1(&( @P*!!MONGRAPH REV. 2 JERRY WHITE+FOR COMPUTE TUTFO}ORIAL + B+g +@'0@@@A0@@@M6-@g0@@ +9FP}6-@6-/6. MONTHLY GRAPH9 Bp*+a,@@ +/AX@ =/AX@uO/@FQ}@ua/@@ 4+ B>+K%6-F:A`,%F:Aa,$AVK6-F:%@,%F:%@,$AVH+b-B:FR},86-BsD%++@:7<,,&@2,$@,N6-%$@ %%&b-@R+#%$@ F:%,  #$\+#FS}-@8,!#6-8,f+ p+6-'@ez+6-@&6-@u&+8,',268,-P:,6 +*BFT} 6-P:'A,* B+*A 6-P:'A,* B+*A 6-P:'@,* B+ 6-P:,+FU}16-'@6-P:&,16-P:&+$@,,+-6-P:&+$@,,-6-P:&+$@,,+3 6.=:,6-@&B:,)6-FV}@3 Bp+!! @)!@B`+3 6.=:,6-@&B:,)6-@$3 Bp+3 6.=:,6-@FW}&B:,)6-@83 Bp+3 6.=:,6-@&B:,)6-@R3 Bp+3 6.=:,6-@&B:,)6-@f3 BFX}p+3@'@@@3AR,2(2('ˠ J F M A M J J A S O N D,//('Š A E AFY} P A U U U E C O E,//('٠ N B R R Y N L G P T V C$,-@6-&.,,@%+$@,FZ}8,8,/@%%+$@,8,B,!!/@%%+$@,@uL,!!/@%+$@,@uV,-@%+$@,F[}8,`,=Ae@=@@S:j,A -@6@928,@=F\} A t,'@@'@@9~,))( ϠՠӠԠ, F:B2y,"@B, F]}A,m +'0@A0@@[0@mAR@,((F^} MONTHLY GRAPH ,.(+( TYPE AMOUNTS FOR EACH MONTH: .(,+(( DO NOT USE NEGATIVE AMOUNTS +(,5 BP(F_}JAN=+68@,-5 B,5 B`(FEB=+68@,-5 B,5 Bp(MAR=+68@F`},-5 B,5 B(APR=+68@,-5 B,5 B(MAY=+68@,-5 B,5Fa} B(JUN=+68@,-5 B,5 B(JUL=+68@,-5 B-5 B (AUG=Fb}+68@,-5 B -5 B0(SEP=+68@ ,-5 B-5 B@(OCT=+68@,-Fc}5 B-5 BP(NOV=+68@,-5 B(-5 B`(DEC=+68@,-5 B2-$Fd}.--(%̠Ϡ̠ĠŠ.HHATARI BASIC REF. MAN. PG H-18 AS MODIFIED BY E. JACKSON & R. LEWIS.$($(Fe}1DEC to HEX conversion.!!(2HEX to DEC conversion.((CHOOSE 1 OR 2 /!! @)!@B 0 Ff}/"@B%/c +AR@"(%(I( ̠Ϡ̠M(c( < 0 / 65535 >/'Fg}-@@# à = '&/)-@#@) ؠ = 0000+/1( (1(#GOTO MENU: ENTER ANY NEGATIVE VALUEFh}0/!! )!BU5A:/*6-@*START THE SHELL SORT RTND/ 6-6-P:'@,N/6-&$@X/'Fi} @67<,.=:,' B!@b/ 67<,.>:&@%@:A,,l/'6-&@' B!v/&-@0%@Fj}& 7<@,/%-@A % B P0b +AR@"(%(I( ̠ϠFk}̠M(b( < 0000 / FFFF >0'-@@# ؠ = '0"-@#@" à = 01( (1(#GOTO MENU: Fl}ENTER ANY NEGATIVE VALUE04-A06-1-@B:,16.7<,20A1-7<,/9Fm}#6-$@%A:,- B&$12AB%.13FB%81%%6-$@%@:,&@:A,%@B1 L1-@(%Fn}@ V1%-@A % B%2DD***SELECTED MEASUREMENT CONVERSIONS FROM ATARI BASIC REF. MAN.2## Fo}DO YOU WANT CONVERSIONS FOR2+(+( () à TO ծӮ STANDARD 2*(*(() ծӮĠ TO à2(( TYFp}PE 1 OR 22B0pB23 B0388***USER SELECTS DESIRED METRIC TO U.S. CONVERSIONS3.*(!WANT LIST OFq}F CONVERSIONS (Y OR N)."34NB1,3-(-("SELECT CONVERSIONS FROM THIS LIST:63!!((1) CENTIMETERS TO INCHESFr}@3((2) METERS TO FEETJ3((3) KILOMETERS TO MILEST3((4) KILOGRAMS TO POUNDS^3((5) GRAMS TO OUNCESh3((6)Fs} LITERS TO QUARTSr3))(!(7) DEGREES CELSIUS TO FAHRENHEITw3((8) RETURN TO MENU|32(.("ENTER NUMBER OF CONVERSION DESFt}IRED23"@A3??B3PB3B40B4pB5B5PB53$388*** USER SELECTS DFu}ESIRED U.S. TO METRI CONVERSIONS3.*(!WANT LIST OF CONVERSIONS (Y OR N).34NB3 3-(-("SELECT CONVERSIONFv}S FROM THIS LIST:3!!((1) INCHES TO CENTIMETERS3((2) FEET TO METERS3((3) MILES TO KILOMETERS3((4) POUNDSFw} TO KILOGRAMS3((5) OUNCES TO GRAMS3((6) QUARTS TO LITERS3))(!(7) DEGREES FAHRENHEIT TO CELSIUS4((8) RETUFx}RN TO MENU42(.("ENTER NUMBER OF CONVERSION DESIRED2 4"@A4??B60B6pB7B7PBFy}7B80B8p4$&4***CM TO INCHES04!(HOW MANY CENTIMETERS!:4,,( CENTIMETERS =$?9 INCHESFz}D4 ( $N4***METERS TO FEETX4(HOW MANY METERSb4%%( METERS =$@( FEETl4 ( $v4***KM TO MILEF{}S4 (HOW MANY KILOMETERS 4**( KILOMETERS =$?b MILES4 ( $4***KG TO POUNDS4(HOW MANY KILF|}OGRAMS4**( KILOGRAMS =$@  POUNDS4 ( $4***GRAMS TO OUNCES4(HOW MANY GRAMS4&&( GF}}RAMS =$?P OUNCES4 ( $4***LITERS TO QUARTS4(HOW MANY LITERS5''( LITERS =$@g QUARF~}TS 5 ( $5***DEGREES C TO DEGREES F 5%!(HOW MANY DEGREES CELSIUS%*5LL( DEGREES CELSIUS =@ $'@F}%@2 DEGREES FAHRENHEIT45 ( $>5***INCHES TO CMH5(HOW MANY INCHESR5,,( INCHES =$@T CENTF}IMETERS\5 ( $f5***FEET TO METERSp5( HOW MANY FEETz5%%( FEET =$?0H METERS5 ( $5***MILESF} TO KM5(HOW MANY MILES5**( MILES =$@` KILOMETERS5 ( $5***POUNDS TO KG5(HOW MANY POUF}NDS5**( POUNDS =$?E KILOGRAMS5 ( $5***OUNCES TO GRAMS5(HOW MANY OUNCES5&&( OUNF}CES =$@(5 GRAMS5 ( $6***QUARTS TO LITERS6(HOW MANY QUARTS6''( QUARTS =$?` LITERSF}$6 ( $.6***DEGREES F TO DEGREES C86($(HOW MANY DEGREES FAHRENHEIT(B6NN( DEGREES FAHRENHEIT =@'@ F}$+&@2, DEGREES CELSIUSL6 ( $6##ATARI BASIC REF. MAN. PG. H-166-65 +(2( F}ˠҠ5(6RR(JYou may make corrections at any time by entering a negative dollar value.6**6. OLD CHECK F} OUTSTANDING6**6. OLD DEPOSIT NOT CREDITED6**6. OLD CHECK JUST CLEARED6**6. OLD DEPOSIT F} JUST CREDITED7**6. NEW CHECK (OR SERVICE CHARGE) 7**6. NEW DEPOSIT (OR INTEREST)7] BA(Y(CF}Enter the beginning balance as shown in your checkbook. ]7] BA(Y(CEnter beginning balance F} from bankstatement. ](7 B27 BA`<71@(1(PRINTER IS NOT OPERATIONAL.F7!!(PLF}EASE CHECK CONNECTIONS.P76-Z7S(O(CWould you like a permanent record on the printer. Sd7F}B:,"BApn7$$7@<@,4NBB`x7$$7@<@,0YBAp7 BA@73TEST PRINF}TER76-@7%%3YOUR BEGINNING BALANCE IS $72/3%BANK STATEMENT BEGINNING BALANCE IS $2371 BB`(1(F}Choose one of the following:7((1) 7((2) 7((3) 7((4) 7((5) 7((6) 7((7) F}DONE8(8%% @)!@BB`8 B"8??BD0BDpBEBEPBFBGBH,F}86&6.NEW CHECKBOOK BALANCE IS ,6-6 BI 686&6.NEW BANK BALANCE IS ,6-6 BI @86&6.OUTSTANDIF}NG CHECKS-DEPOSITS=,6-6 BI J8  3T8 BB`^8$$OLD CHECK -- STILL OUTSTANDINGh8 6. BIPr8 6-%F}|8$8''OLD DEPOSIT -- STILL NOT CREDITED8 6. BIP8 6-&8$8OLD CHECK -- JUST CLEARED8 6. BF}IP8 6-&8$8""OLD DEPOSIT -- JUST CREDITED8 6. BIP8 6-%8$933NEW CHECK (OR SERVICE CHARGF}E) -- JUST CLEARED9 6. BIP9 6-&&92(.("IS NEW CHECK STILL OUTSTANDING 209B:,"BF0F}:9$$7@<@,0NBFD9 6-&N93CHECK HAS CLEARED.X9$]9$$7@<@,0YBF0b9 6F}-%g9''3CHECK IS STILL OUTSTANDING.j9$l9//NEW DEPOSIT (OR INTEREST) --JUST CREDITEDv9 6. BIP9 6-%F}92(.("HAS YOUR NEW DEPOSIT BEEN CREDITED29B:,"BG09$$7@<@,0YBG`9 6-%F}9%%3DEPOSIT HASBEEN CREDITED.9$9$$7@<@,0NBG09 6-&9**3DEPOSIT HAS NOT BEEN CREF}DITED.9$9 DONE9j(j(_BANK'S BALANCE MINUS (OUTSTANDING CHECKS-DEPOSITS) SHOULD NOW EQUAL YOUR CHECKBOOK BALANF}CE.96-&+&,9BHP9E(A(IS $, THE ENDING BALANCE ON YOUR BANK STATEMENT E9B:,"F}BH59]7@<@,4Y(S(/CONGRATULATIONS: YOUR CHECKBOOK BALANCES!] @P9 BH`:Y!F}(2(YOUR CHECKBOOK TOTAL IS $O( OVER YOUR BANK'S TOTAL.Y BH`:E('(YOUR CHECKBOOK TOTAL IS $6E(F} UNDER YOUR BANK'S TOTAL. :.(.(#WOULD YOU LIKE TO MAKE CORRECTIONS?:S(S(HREMEMBER, YOU CAN ENTER A NEGATIVE DOLLAF}R VALUE TO MAKE A CORRECTION. :"((ENTER ٠ OR Π "*:B:,"@P4:7@<@,4Y$9: F} @P>:MSG PRINTING ROUTINEH:(( $R:"@3 $\:$f:MSG PRINT & INPUT ROUTINEp:9 BI`F}(.(Enter the amount for the 2(5(9z: B:"@3 $:$:+@%@:&& @F} :&&(@ GOD GRANT ME :&&(@ THE SERENITY :&&(@ TOF} ACCEPT :&&(@ THE THINGS :&&(@ I CANNOT CHANGE,:&&(@ COURAGE TO F} :&&(@ CHANGE THE THINGS:&&(@ I CAN, AND THE :&&(@ WISDOM TO KNOW ;&&(F}@ THE DIFFERENCE. ;&& @ ;-@A $; A>>ROUTIF}NE TO CALL MENU.>>##( >(LOADING DISK MENU !!>%D:MENU D:BUSINESSBAPCDv +AdAUcAAx'A @9@@K@@7Q(}cAR@}++(#++(#| ANTIC - BUSINESS - DISK #1 |++(#}++(# @ -@A $ GG;@@,;@ ,;@@},;A,;@,;@@, "D1:MENU" &&@@D:*.* 6,6." } 6 @0i6-%@(6.7@<@,A67@ <@ ,..i67@<@,.7@<@,}3 6.|67B:,%@,.367B:,%@,.G67@<@,.(--@B:,:7<,4 G67<,..]} 6.=:, @D67@<@,.7@<@,]67@<@,.0$@(''7@}<@,4FREE@- @ 2() <@F''7@<@,4FREE@K @ P}(7@<@,)|U @0W'!-@6+'@,%@' |Z++(#| |[} ( |  |\++(#xAR[@@9'-@}@"C( SELECTIONM A0Q[ BP:,A00"@&6.7@<@,0 AE}LB6.7+&@,$@%@<+&@,$@%@,L B37@<@,4 36.7@<@},!7@<@,4DOS!.0 6.-@B:,07<,4 AH67B:,%@,.7<,   6.}! 6.D1:!67B:,%@,.?AR@'-@@"?  LOADING ? A@@9}1@@5%? BK-@@"-  CANNOT RUN 7 @A BK A0D:MENU}EiͩkΩ͙kCop j`j {j`Hi͝Νh`J}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`H