@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, ^EF&)NAUPPMUUUUUUUIPNFF1THISUYRPAIINFINITPVPMTp} q} A0&&;@,;@,;@,;@,r};@, A0)()(PRESS RETURN FOR PROGRAM MENU.4A$A0 +   Aqs}"  "  : # #  1. INTEREST RATE   2. PAYMENT( (  3. t} NUMBER OF PAYMENTS"$ $  4. AMOUNT OF LOAN,+(+( 5. RETURN TO MASTER MENU6 ( ( (@ ENTER Nu}UMBER, PLEASE h6-P:,r!! @)!@A0|"@A''AAA A0v}3 +  3  ŠԠ ( ( A( A0 6-$( A`w}( A  A ( (&76-$A) PERCENTAGE RATE = 3 A7 0>6-$A0 ANNUAL PEx}RCENTAGE RATE = : A> : AD 6-'N6-@'&'#@X 6-$b6-+@%,#6l6-y}@&v 6-&996-++++'+@'%@,%@,$,&@,', 6-' 6-% 6-O:,= z}A$ +   Š ( ( A  A`  A0  {} A    * 6-$46-'A>6-%@H6-$+'+@,,R. PAYMENT AMOUNT: $ 6-|}* A. T6 AMOUNT ACTUALLY PAID: $(6-$2 A6 V9# AMOUNT OF INTEREST PAID: $+6-&5 A9 }}\ Af;6-$A"( DO YOU MEAN, A;( % (Y / N)p)@6.>:,u4NApz6-~}$A$ +  )) ! ŠҠƠ     A  A`  } A  A 6-'A**6-6++K:@&$','K:@%,,,2 NUMBER OF PAYMENTS: $6-.} A2  A +    ŠԠƠ    $ A. 8 A B} L AV ` A0j    t 6-$~6-'A&&6-$++@&+@%,#6,',6 6-$}( AMOUNT ACTUALLY PAID: $2 A6 9 6-&+ AMOUNT OF INTEREST PAID: $5 A9 . 6- AMOUNT OF L}OAN: $* A.  A Ap--ENTER INTEREST RATE-- ENTER INTEREST RATE ' }+' A @ Ap 6- A$--AMOUNT OF LOAN-- ENTER AMOUNT OF LOAN. } # +# Ap 6- A$(!!--ENTER AMOUNT OF PAYMENT--2!!(ENTER AMOUNT OF PAY}MENT. <F#+# A0P AZ$d++--INPUT NUMBER OF PAYMENTS PER YEAR--n++ #ENTER N}UMBER OF PAYMENTS PER YEAR. x' @+' A$ ENTER NUMBER OF YEARS   }A0$ A+ ++( DOES NOT COMPUTE!-@A  A06-$A}%?P 6-P:,6-'A Aq$@ A J%D1:MENUT + D:COMP}UTE.BAS 6-P:,6-'A Aq$@ A J%D1:MENUT + D:COMPqFZNN@@? A @AA A }%9@,;@,%+ %% FUTURE VALUE OF AN INVESTMENT(((NUMBER OF CASH FLOWS2<$$(} COST OF CAPITAL (%)FP6-'AZ(d6-n99(1(ENTER INFLOWS AS POSITIVE, OUTFLOWS AS NEGA}TIVE)x-@!@A`(AMOUNT OF CASH FLOW Ap(  }6-$+@%,#+&,((6-%+P:$A%?P,'A, (55(# Future Value at the end of period} = $(@@(7DO YOU WANT TO RE-RUN THIS PROGRAM WITH NEW DATA? (Y/N)4Y@0"0NA`}, D:FVINV.BAS YOU WANT TO RE-RUN THIS PROGRAM WITH NEW DATA? (Y/N)4Y@0"0NA`!"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.BASSITS PER tzIBJI }  + !! REGULAR PAYMENT ON A LOAN   TERM IN YEARS(2  PRINCIPAL<F A}NNUAL INTEREST RATEPZ # OF PAYMENTS PER YEARdnII6-++'A$','+@&@'++'A,'%@},#+$,,,x REGULAR PAYMENT = $}"" P:$A%?P,'A6-'A 6--@$**}6-P:+$',$A%?P,'A 6-& 6-&  LAST PAYMENT = $&& P:+%,$A%?P,'A}  !! MORE DATA? (1=YES, 0=NO);"@@  D:LOANPAY.BAS%,$A%?P,'Aep[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.BAS5DO YOU WANT TO RERUN THE PROGRAM WITH NEW DATA? (Y/N)r|4Y@P0NA`   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$}m  ( $ ;.6.$Ӡ̠͠ŠҠ8 @;(;.6.$ԠŠƠΠ$}ԠҠ8 @;(;.6.$ĠҠؠҠƠӠ8 @;((;.6.$ԠԠΠ٠$}8 @;(+;.6.$8 @;(-;.6.$Ԡ٠ԠŠՠź8 @$};(/;.6.$8 @;(3(4(7( <=..(& נϠՠ$}ԠԠĿҺ>( 1٩?( 2٩@( 3٩A( $}4٩B( 5̩C( 6̩D ( F..(&ӠàԠԠŠ$}H..(&ŠӠŠҠƠӠՠJ..(&ԠŠӡMN O( Ԡ$}ҠPU//(& ҠƠӠӠΠWX(Z"@6-Ae["@6-@$}R\"@6-@]"@6-@^"@6-@`"@6-@b 6-$$}c6-'+A$,d336-$++++@%,#,&@,',$+@%,!!(PRESENT VALUE LUMP SUM 4( @Q$}D:PVPERIOD.BAS336-$++++@%,#,&@,',$+@%,!!(PRESENT VALUE LUMP SUM 4( @Q$  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%%( (} 5 6 ̠F ( H))(! ӠàԠԠŠI))(! ŠŠӠŠӠՠJ))(}(! ŠҠҠǠĮKL N( ̠ԠԠPR ( U//(& ҠƠӠ(}ӠΠWX(Z"@6-Ae["@6-@R\"@6-@]"@(}6-@^"@6-@`"@6-@b 6-$c6-'+A$,d336-$'++++@%,(}#,&@,$+@%,,11((ԠϠԠȠĠ 4( @QD:SINKFUND.BAS%,(u,,CKCATWHOMFORCATCOMPWHOPAYERD1D2SCRATCHDNENTRIESLEGRANDTTTTTTTFTSTLSLENCTEMPMADO,}NKSLENKSLEKSLENSLENTTFSL ,} ,} !"#$%&'()*,}+ 22嬠䠵~~;@,;@,;@0,;@0,;@,,};@,;@0,;@,;@,;@!,;@,6-@6-@(##@@K,}:2 A$P< +@-@@O(@"DO YOU WISH TO WORK ON EDUCTIONS,a-@@(@,}OURCES OF INCOME,F!!6-"""""""""P+-@@+(@OR UIT?Z!(!(Enter Ġ Ӡ or ,}.d.)@."@)"AA n!!"@)"AA%`x((@6@^,} +@/(@tax deductions, 19A-@@^(@!!(@ ADD MORE ITEMS,}33(@" DEDUCTIONS PRINTED ON THE SCREEN33(@" DEDUCTIONS LISTED ON THE PRINTER00(@ DEDUCT,}IONS SORTED BY CATEGORY//(@ DEDUCTIONS SORTED BY CHECK #%%(@ TOTALS BY CATEGORY##(@,} CHANGING ENTRIES++(@ FINISHED WITH DEDUCTIONS B)@6-&@HGGAPA,}AAAApA0@`ԛ{ +@.(@THE CATEGORIES ARE:H(@ ,}=EDUC. EXP.b(@ =PROF. EXP.{(@ =BUS. EXP.S(@ =DONATIONS9(@=INTEREST PAIDS(,}@ =TAXES PAIDX(@=CAPITOL INV.@(@=DEPRECIARED ITEMSX(@ =FINISHED" @,}@ ,aa(YYOU WILL BE PROMPTED FOR EACH ENTRY. ENTER AN AT THE CATEGORY ENTRY IF YOU ARE DONE.6&( }CAT-}EGORY&4XA@'(CHECK #4R'6.BILLJ( PAID TO WHOMT(FOR WHAT^(AMOUNT-} $h%%(}THIS ENTRY IS $rC(IS THIS CORRECT%)@C"@x)"AA|N(@-}(@*(@7(@D(@N A@ A0%%ǠӠϠ-}* @@*+ A`D@@*@7@D@-}( A02(%(Ӡ٠٠Ϡ2)@@ A0''ǠΠ-}ԠϠқ @@ A%P6-@T3 3T3>:@',>:@,>:@',G -} ̠ؠӬ193>:@',@ ApD@@*@7@D@-}&;;3>:@ ,>:@ ,>:@ ,>:@ ,0 A@:)@3>:@',@) A0D-}ԠŬ٠ٛN @@X( ((b6-&@;$,;,l6-- }@v$-@$ 67<,. $ 6-@-@D@@*@7@- }D@ AP 6. 67B:,%@,. .67B:,%@,..67B:,%@,. .67B:,%@- },..67B:,%@,. .67B:,%@,..67B:,%@,. 67B:,%@,.=:,67<%,. 6-%- } 6-&@@Šԛ+6-&@+6-$+&@,%@ -@6-@- } -@&&* 6-%6-%6-%47<,/7<,AP>6-H)6.7<,67<,.7<-},)67<,.R \Af p((Ԡ٠١()@z` +@`(@EDO YOU WANT THE -} SORTED LIST SENT TO THE CREEN OR THE RINTER?.)@."A)"@A @A-}##ǠĠԠϠΛ6-@+-@(7<%, 6-% C(,(!ĠƠ-}ԻȠΠҠ9)@C A0$$ǠĠԠϠқ A%P6-@Z6-@-}Z3>:@',>:@,>:@',G ̠ؠӬ 193>:@',@-@37<%,-} 6-%$ . A08Ԡ٠ˠB @@L( ((V6-&@-};$,;,`6-@j$-@$ 67<,. $ t6-@-@~D@@-}*@7@D@ AP 6. 67B:,%@,. .67B:,%@,..67B:,%@-},. .67B:,%@,..67B:,%@,. .67B:,%@,..67B:,%@,. 67B:,%@,.=:-},67<%,. 6-% &6-&@@& B A`Ӡ٠ٛ @-}@  AR@@*@7@D@R6-%@4B-}A(4CA 24DA0<4EA@F4GAPP4IA`Z4PApd-}4TAn@ AxǠӛ 6-% A 6-% A 6-% A 6-}-% A 6-% A 6-% A 6-% A 6-% Ah=(5Do you want the to-}tals sent to the creen or rinter?J)@h"@)"AAP6-%%%%%G +*(Total for -}category B=$G(Total for category C=$Z (Total for category D=$=(Total for category E=$Z(Total for catego-}ry G=$Z (Total for category I=$=(Total for category P=$Z(Total for category T=$P(F The total for -}& deductions, not including & is: $P A ǠӠϠқ A%P6-@"D3 3D3>:@- }',>:@,>:@',G ,3>:@',@6 3Total for category B=$@ 3Total for cat-!}egory C=$J 3Total for category D=$T 3Total for category E=$^ 3Total for category G=$h 3Total for -"}category I=$r 3Total for category P=$| 3Total for category T=$ǠĠ̛D3 3D3>:@'-#},>:@,>:@',G Ġ3>:@',@6-%%%%%C?3The total for $ deductions,-$} not including & is C3 @`ǠӠ AZ(@V(@: WHICH CATEGORY DO Y-%}OU WISH TO SORT ON (¬ìĬŬǬɬЬ)?ZG @@G@@ D:SCRATCH A0-&}D@@*@7@D@0A (.)@."@g-'})"@AN(@(@*(@7(@D(@N A&@@-(}0((@3@:N&67@<@,. D1:SCRATCH,N67@<@!,.7@<@,D2(@-)}2@2 A0NŠӠX +(}b:((Do you wish to::(-*} Delete the whole entry?lt(#( Change the Category??( Change the Check #?\( Change to whom paid?t( -+}Change the For?v8+(# Change the amount of the check?8)@#"@I A# A;"@P-(-,}What is the new Category1; A>"@Q(0(What is the new Check #?4> A@"@R(2(--}To whom was the item paid?6@ A="@S(/(For what was the item ?3= A="@T(/(-.}How much was the item ?3= A A I +@:(@ YOU WILL BE SHOWN EACH ENTRY.I(@ -/}W0(@IF YOU WISH TO KEEP IT, TYPE ;T(@ TO CHANGE IT, TYPE .W$((@6-0}@ +@-@@>(@DO YOU WANT TO...f(@ҠӠƠ-1}(@2. list sources of income<((Enter or ()@<"@PA"e +@-@-2}@e(@8you will be prompted for each part of the entry. 7-@7(@ҠϠ-3}Ƞ @@  /("(HIT ANY KEY TO CONTINUE/)@*-( }GROSS INCOME-"-4}A!4( }PAID BY WHO?>(}PAID TO WHOM?H (}FEDERAL TAXES PAID? R0,($}STATE TAXES PAID? ƠϠ-5}ؠ0\0,($}LOCAL TAXES PAID? ƠϠؠ0fT3(This entry is ٯΩ@)@-6}T"@xA pQ(@(@*(@7(@D(@Q(@z A @-7}g +@-@@F(@DO YOU WANT TOTALS ٯΩ?S)@g"@x@`} +@-@-8}@d(@7do you want the totals on the creen or the rinter?g(}(ENTER Ӡ OR Р.)@ -9} @@"@A#0 A#+Q@@-:}*@7@D@Q@(# 6-%6-%6-%#6-% A"`-;}@ d(TOTAL INCOME=$3(FEDERAL TAXES PAID=$L(STATE TAXES PAID=$d(CITY TAXES PAID=$ 9("(-<}Ԡ٠٠Ϡ/)@9 @` $  A%P6-@. HE3>:@',>:@-=},>:@',>:@i,H38 ==3GrossFromPaid toFederalState City TaxesB A$ L Q->}@@*@7@D@Q@V 3` # 6-%6-%6-%#6-?}-%j A#t @3~ d3TOTAL INCOME=$33FEDERAL TAXES PAID=$L3STATE TAXES PAID=$d3CITY TAXES-@} PAID=$ 9("(Ԡ٠٠Ϡ/)@9 @`  d +@-@`(@-A}3WHAT ARE THE LAST 2DIGITS OF THIS TAX YEAR (19)?d U6. D:DEDUCTNS.'6. D:TAXSPAID.>67@<@,.U67-B}@<@,. k-@@O(@,is this your first entry for this tax year?\)@h@k$-C} ;(@Šՠſ,)@8@;$ A%@ + @@+@ + @-D}@+@  B$ : F:@s,"AgA%07(ҠF:@s,: +@--E}@A(@D(U( Ԡ٠١b)@A0AAA" -F}ȠƠ͛ e(@5@M@5@X@b+e -G}ӛ HHFOR RECIPTS, ENTER R FOR CHECK # & BILL WILL BE PUT IN FOR CHECK #( 66THE NUMBER OF ENTRIES IS NOW SET FOR 150 MAXIM-H}UM2 55CATEGORIES CAN CHANGE LABELS, SEE LINES 240-260< ""PROGRAM IS FOR EPSON PRINTER D:TAXESV3 SET FOR 150 MAXIM,k  -@UBALANCDIPATA **@@ D:BALANCE@@1J}70@70@@@(>:A%, @5#H-@@H(-What is th1K}e balance on your bank statement%(]-@@](CWhat are the amounts of the outstanding checks 1L} *D-@@D(*Type 0 after the last outstanding check.-# @E-@!@#2 6-&1M}7"@p< @@F]-@@](CWhat are the amounts of the outstanding deposits 1N} HE-@@E(+Type 0 after the last outstanding depositK# @u-@$@#P 6-%U1O}"AZ @pd7 "-@@7(YOUR CHECKBOOK BALANCESi 6-&nP!!-@@1P}>(THERE IS AN ERROR OF $P( IN YOUR FAVORxQ !-@@A(THERE IS AN ERROR OF $O:,Q( AGAI1Q}NST YOU1-@@"1(Push to recheck. F:B2y,@A@ @$ D:BANKBAL.BASAI0{200YOU1-@@"1(Push to recheck. F:B2y,@A@ @$ D:BANKBAL.BASAI4HI<RBNEAAMOUNTNTEMPPRNAMEDATEYEARCC1CBALANCZSMLJJLEPPP&P8 AB9T}P'PB(j ~   APe @rAF @@@@@9U}@#@'@8@(;@,;AR,;@,;@,9@'<@',;@,;@9V},;@@,;@ ,;@,;@ ,;@,[ 6. 67@,. +67@,.16.E-@@ 9W}I"W67<,.>:,[ !!18,20,97,110,100,27,27,83,0 X-@@")67<,.>:,- X27,27,72,47,27,27,83,19X},49,48,48,27,27,72 **@@ D:BALANCE@70@70@@9Y}@(>:A%,!-@@!(BALANCE>-@@)-@@7(>:@,; >(-@9Z}@($ 3-@@3(Push for a depositJ-@@;(!Push twice to save ba9[}lanceJ( on disk A+-@@+(  -@@(#9-@@9(9\}Amount of check %-@#@( 6-&2 A9-@@9(Amount of deposit9]}  A-@#@ 6-% @0,5@5@@ D:BAL9^}ANCE1 @6@;(>:A%,@ 6.=:,.-@B:,!7<,4.$'. A0 ,9_}"B:,%@,67B:,%@,..00*"B:,&@*67B:,%@,.0 6.+B:,!@+6.7B:,&@9`}:@',8>:@',D>:@9q}b%DOS SYSb*)DUP SYSb SAUTORUN SYSb_HELP DOCboCOMPUTE BASbFVINV BASb2IRA BASbLOANPAY BASbNPV BASbPVPERIODBASbSINKFUNDBASbZTAXESV3 BASb IBANKBAL BASbRBALANCE b SCHECKPRTBASb|BARGRAPHBASb,PRATIO BASbDISKCAT DOCb/DISKCAT BASbBUSINESSBAS,>:@0,>:@C,>:,+&&(Position check and press START, A`- F:B2y,@A%.XB(9r}@>:@',0>:@ ,>:@ ,>:@ ,M(@X(@/QF(@>:@',2>:@ ,9s}>:@ ,>:@ , Q(@1&(@**#(@&$2dd6.ZONETWOTHREEFOURFIVESIXSEVENEIGHTNINETEN9t}ELEVENTWELVETHIRTEENFOURTEENFIFTEENSIXTEENSEVENTEEN<VV67B:,%@,.>EIGHTEENNINETEENTWENTYTHIRTYFORTYFIFTYSIXTYSEVENTY9u}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,989v},99,106,107,112,113,118,119,123,124,128,129,133,134,140,141,146,147,152d #APC-@@'".68<@9w},-?68<@,-C ;(>:A%,(#( Month-Day '7( Year 19-- ;((Pay to 67B:,%@9x},.,J( (1(# Make sure your printer is ready,4(J(then press START. F:B2y,@Aa A`9y}@8@@P:B BTARa(>:A%,/6.>:@,/67B:,%@,.>:9z}@, 6-B:, "Ap @A0 B A0 @$@(>:AS,6(! RE9{}ADY PRINTER THEN PRESS START@ AD:CHECKPRT.BAS B A0 @$@(>:AS,6(! RE8=_ 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.BAS0,75C H A R T 3))80,90,100,20,45,56,5,75,58,65,50,<@$%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.BAS :1$( $A% 3 $A%$ ( $ 3@( ============================ DOCUMENTATION FOR DSKCAT.BAS ============================ For about a year IE} have been happily using the disk cataloging utility by Tom Hamel and Bert Williams, published in ANALOG #11. It's noE}t blazing fast, but it's easy to use and has a nice presentation. INSTRUCTIONS for those unfamiliar with the programE}: CREATING THE DATA FILE ---------------------- Number all the disks you wish to catalog. Run the prograE}m. From the first menu select "File Maker". Then, from the next menu, select "New File". You will be prompted to presE}s Return when ready. Then, for each disk, enter the disk's number. The directory will be read and turned into data E} statements which are appended to the program. When you're finished with all your disks, enter a zero. You'll be promptE}ed to put the data disk in D1. Usually, it's most convenient to have the data file on the program disk. The data statE}ements will be written to the data file: "FILENAME.LST". UPDATING THE DATA FILE ----------------------E} The next time you wish to add new disk directories or update exist- ing ones, run the program and select "File MakerE}" from the first menu and "Update" from the second. If the file is not in memory, there will be a pause while it is rE}ead in. Then, follow the same procedure as above. SEARCHING FOR FILES ------------------- At the firE}st menu, select item one, "File Finder". If your data file is not already in memory, there will be a pause while it iE}s read in. Then, you'll be presented with your searching options. To find a particular file, use selection one. Note: E} wildcards WILL NOT work. You may also display an individual disk, or a list of all cataloged disks. HAND EDITINGE} OF DATA FILE ------------------------- The data file consists of data statements which are read in and merged wE}ith the program. You can edit them by hand if you wish by stopping the program and altering or deleting the approp- rE}iate DATA statements. Notice that the first item in each line is the disk number. by Tim EkdomD}{QQQQQQQQQQQ1Q1Q1Q1Q1Q1Q2Q2Q3Q3Q3Q4Q7Q8Q12Q25Q50Q53Q55Q55Q70Q71Q71Q75Q76Q84QI}99Q100WAIFILECFALINQ1 I} I} !"#$%&'()I}*+,-./012345678I}955ˠǠ٠ FROM ANALOG ISSUE 11 ;;"I}"kk0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,17,20,22,30,31,34,43,75,82,125,255,500,535,555,559,709,71I}0,712,752764,842,999,1000. +%((.( #( (( I} -( atari master 2( 7( <( I} A,( (-$, F;,;,;,KR  +%6-B2y-7(PROGRAM OPTIONI}S=-R( file makerLN -(-!('-0(6-?(E-N(P: -( I}file finder$-:( exit programU3 -(-3(PRESS FOR ZC -#(PRESS FOR I})-C(PRESS FOR _ 6-F:,F:,")" $dF:,")" &iF:,")"%n %sI}#"x  %} %%( &I --(type number for kind of listing3-C( 1 file nameI-I}O( 2 disk number-1(3 cataloged disks9-%O(4 program options 6-F:,")" $ "%I}(>:,  "% $ %  " $Q$(Type in name of desired file,(>>06-I(I'm lookingI}...Q $%4$(type in disk number desired(."4 $#%+%,$! "4 END OF DATA! E*4I} -=(SORRY I COULD NOT FIND DISK ''E $%8 "6-%"2( 7<,/ USED8 %3 4* I}(>:,--(I'm looking...36.E "%-3(I'M GOING TO CLEAR THE SCREEN;-? E6-4 46-%I}-4(  IS ON DISK # - !6-!%6-%'!%-6- -%" $& "( I}' "* %(6-%'6-%? "*  %(6-%'6-%-"396-?-E ""( I} %6-%-6-%3"9?6-E-I "6-6-!-I(#ŠӠŭϠԠӠ% "I}6-F:,"(>:,% $ " $ $ " $%C "*"-;(SORRY I COULD NOT FIND DISK 'I}'C $% = -1( Disk #  7=S "*0-0(I COULD NOT FIND ''3(I}S( PLEASE RECHECK YOUR DATA+ -+(Another disk? Y/N' -%"'(another file? Y/N"" 6-F:,I}"*" " $%' "*  $, "% 1 $&6 ;Y +%-9(" IF new I}file ONLY!?-Y( IF update@K -K(:IF UPDATE, PLACE DISK WITH filename.lst IN DI}B% -%( FOR options E 6-F:," $&J "6- $L "% O %&T#I}"Y  $&^ %%(cB +%-B(% hT -( puI}t disk to #-8( catalog in >-T(when prompted,i -(type in disk m5 -( I}#-5( WHEN READYr 6-F:,"  %%w %&|J  -!(If done, type '-=(and press RETURNI}.C-J( -(Change disk, D -"(type number of disk,(->(and press RETURN.D- "I} &+%, "(>:,-5 ")-%+%,$%%+%,$%%-(1 5 / 6-%+%,$6-/I}D1:*.*& (>:,-( DATA &-1 7<,4FREE)(,,01 $%/ (,-!7:,-I(LIST>:,D1:FILENAME.LST>:,,,$   U -U(Aa file 'FILENAME.LST' haI}s been Ġ on this disk. (-  9  +%!-AF39I}E'6-F:A`,%F:Aa,$AV%1&&9-A%E < - (disk directory&-9( I}<$9  +%!-AF39E'6-F:A`,%F:Aa,$AV%1&&9-A%I}E  < - (disk directory&-9( <$B (>:,-B(ENTER>:,D1:FILENAME.LSTI}>:,( ( ((CONT-  &! &$+D (>:,6-6-6-"6-(6-.6-66. >6. D6-I}0,+%%#),$: 6-6-&?  -%%% %D  $-%% %II}-%%%N$X4 6-(>:, &-1( 4(] #%$$b" " %&eF:%,%(I}(g ( 6-% $%l% -%%(Press RETURN for menuq 6-F:, %v %{H  -3(!Stand byI} while I load the file...;-? E &H$u999,END OF DATA,-1 D:MAINDIR.BASCC ,C> 1-3(!Stand byHlYZ*aaKENUZAMSGMSG1MSG2MSG3MSG4MSG5MSG6OUTSTANYOURBABANKBAPERAMOUNOUTSTANDINDIYOUBAPCM}OUNPROUNDAREYARDROUNPACTBAPMAPDUMNIIQQAMRATPPYEARAETEMFFFADAMTJWJYPPDDDDJMOHAMM}JTAMKKKKKJVOJAFEMAMAJUJUAUSEOCNODEPAHOURTIMTOTARTTTTTTSSSAARYYIMINM} M} M}!@"#$%&'()*+,-./0N}123456789:;<=>?@N}A@B@C@DEFGHIJKLMNON}PQRSTUVWXYZ[\]^_N}`abcdefghijklmnoN}pqrstuvwxy;@0,;@@,;@5,N};@5,;@5,;@5,;@5,;@5,;@,9@,9@,9@, A27-@N}@#7(PUSH Ԡ TO CONTINUE < F:B2y,"@@`d- (}+-0@n N} ՠx( ( 1AMORITIZATION TABLE%%( 2MONTHLY MORTGAGE PAYMENT""( 3DEPRECIATION SCHEDULEN}( 4SAVINGS AND LOANS( 5FIND THE AVERAGE##( 6SQUARE FEET & SQ. YDS.!!( 7PAYCHECK CALCULATIONN }&&( 8INTEREST ON AN INVESTMENT**( 9WHAT IF MORTGAGE COMPARISONS(10PROPERTY EXPENSES(11MON }NTHLY BAR GRAPH""(12DECIMAL / HAXADECIMAL(13 U.S. / METRIC(14CHECKBOOK BALANCE(15HELPN } (16RETURN TO DISK MENU*(*(CHOOSE ANY NUMBER THRU "$((YOUR CHOICE = $(}^!! @)!N }@AhAA A0A@APA`ApAABBB B0N }B@BPB`$$(ΠŠҮ̮Ӡ+('(START MONTH OF LOAN (1-12)=+N}-&@ ((LOAN AMOUNT ()= )(%(ANNUAL INTEREST RATE ()=))(%(MONTHLY LOAN PAYMENT ()=N})$!6-@!AR@)( (}((ȠǠΠ.6-$'A8 6-&B 6-&L$$6-N}P:$A%?P,'AV 6-%`$$6-P:$A%?P,'Aj 6-%t$$6-P:$A%?P,'A~N}A0 (6-%@6-%@"@A`A0 Ap -+'@N},&P:'@,6-$@&@**(P:'@,Ӡ Ӡ"( ("(INT. FOR YEAR END= (N} (PRINCIPAL YEAR END=-( (-( PUSH Ԡ TO CONTINUE  F:B2y,"@A06-6-N}'6-*(-(0(A( Ae2AR(}<B5(-٠ԠϠ̠̠N}Š.8(B A(AMOUNT OF LOAN ($)AAHERBERT D. PECKHAM "PROGRAMMING BASIC" T.I. SOFTWARE SERIES)(N}%(WHAT IS INTEREST RATE (%))$( (TERM OF LOAN ()$6-$'A''6-+@%'A,#+@N}$,6-'+@&@', $$6-P:$A%?P,'A!(!(MONTHLY PAYMENT OF $ ( ( @P N}(ASSET VALUE () (ASSET LIFE (YEARS) (6- -@ 6-% AAHERBERT D. PECKHAMN} "PROGRAMMING BASIC" T.I. SOFTWARE SERIES 6- -@ 6-+%@&,' 6-$ 6-&& $$6-P:$N}A%?P,'A0 $$6-P:$A%?P,'AX ((Ҡ b ( îӠl ( ŠӠv N}  @P) (})( ӠĠӠ..COMPUTE MAGAZINE--BASICALLY USEFUL BASIC1(1(&1 BALANCEN} OF A LOAN AFTER N PAYMENTS/,($2 MONTHLY PAYMENT TO AMORTIZE LOAN/(/,($3 # OF PAYMENTS TO AMORTIZE A LOAN/(.N}+(#4 ANNUAL % RATE USING AN INTERVAL.(-*("5 MONTHLY PAYMENT & INT. ON LOAN-('$(6 ANNUAL INVESTMENT GROWTH'N}($!(7 PERIODIC SAVINGS PLAN$((%(8 FUTURE PRICE VS INFLATION((##(9 RETURN TO THE MAIN MENU"(( YON}UR CHOICE="(}OOAAABACADAEAFAGAHA($(ENTER YOUR CURRENN }T BALANCE.(-()(ENTER THE NUMBER OF PAYMENTS.-+('(ENTER YOUR MONTHLY PAYMENT.+"7(3('ENTER YOUR N!}ANNUAL INTEREST RATE IN (%).7,6-'A6 6-@-@J6-$+@%,&T Y6-$&+&,ZN"}$$6-P:$A%?P,'A[$$6-P:$A%?P,'A^.(.(BALANCE AFTER  PAYMENTS IS $c'('(N#} YOU PAID $ IN INTEREST.g AIh%!(ENTER THE # OF PAYMENTS.%r.(*(ENTER THE BALANCE OF THE LOAN..N$}|7(3('ENTER YOUR ANNUAL INTEREST RATE IN (%).76-'A006-$$+@'+@&+@%,#+6,,,$N%}$6-P:$A%?P,'A ( (YOUR PAYMENTS ARE $ 6-$&$$6-P:$A%?P,'A&(&( YN&}OU PAY $ IN INTEREST. AI'#(ENTER THE CURRENT BALANCE.'+('(ENTER YOUR MONTHLY PAYMENT.+7N'}(3('ENTER YOUR ANNUAL INTEREST RATE IN (%).76-'A((6-6+K:@&'$,,'K:%@,$$6-P:$AN(}%?P,'A+(+( YOU HAVE  PAYMENTS TO MAKE.. 6-$&.6-P:$A%?P,'A+(+(YOU WIN)}LL PAY $ IN INTEREST.& AI0,((WHAT IS THE BALANCE OF THE LOAN,:+('(ENTER YOUR MONTHLY PAYMENT.+N*}D(($(ENTER THE # OF PAYMENTS.(N6-@P'AX6-]-@@ b6-+%,'@gN+} 6-$l$$6-$+@&+@%,#+6,,q 6-v  6-{  6-$&6-A$$$6-P:$N,}A%?P,'A*(*(YOUR ANNUAL (%) RATE IS %.((YOUR INTEREST IS $ AI#(HOW MUCHN-} WAS YOUR LOAN#:(6(*HOW MANY MONTHLY PAYMENTS MUST YOU MAKE:0(,( WHAT IS YOU INTEREST RATE IN (%)0N.}6-'A6-'@ 6-$$6-+%,'$$6-P:$A%?P,'A$$6-P:$A%?PN/},'A$($(YOUR PAYMENTS WILL BE $4(4('YOUR INTEREST ON THE ENTIRE LOAN IS $L(L(AIF YOU WANT TO KNN0}OW THE ANNUAL PERCENTAGE RATE, EXECUTE PROGRAM 4 AI:6(-HOW MUCH MONEY DO YOU INTEND TO DEPOSIT:9(N1}5()WHAT IS THE ANNUAL INTEREST RATE IN (%)9 6-'A6(2(&HOW MANY COMPOUNDING PERIODS EACH YEAR6 N2}A(=(1HOW MANY YEARS DO YOU INTEND TO INVEST THIS MONEYA*6-$+@%',#+$,4$$6-P:$A%?P,'AN3}>I(I(AT THE END OF  YEARS YOU WILL HAVE  DOLLARS SAVED.H AI\JF(=HOW MUCH MONEY DO YOU INTEND N4}TO DEPOSIT EACH PAY PERIODJf5(1(%HOW MUCH IS THE INTEREST RATE IN (%) 5p>(:(.HOW MANY PAYMENT PERIODSN5} DO YOU INTEND TO SAVE>z6-'A116-$++@%,#+%@,&+@%,,'$$6-P:$A%?P,'AN6}O(O(AT THE END OF  PAY PERIODS YOU WILL HAVE  IN YOUR ANNUITY. AI.*(!WHAT IS THE CURRENT PN7}RICE OF ITEM.#((WHAT YEAR IS IT NOW#C(?(3FOR WHAT YEAR DO YOU WISH TO KNOW THE PRICE OF ITEMC 6N8}-&<(8(,WHAT IS THE PROJECTED INFLATION RATE IN (%)<6-'A6-$+@%,#Q(Q(THE PRICEN9} OF THE ITEM! IN  WILL BE $P:$A%?P,'A AI~1(1(&PRESS Ԡ TO GOTO ӠӠN:} F:B2y,"@AI A@(HOW MANY NUMBERSAAHERBERT D. PECKHAM "PROGRAMMING BASIC" T.I. SOFN;}TWARE SERIES*(*(ENTER THE NUMBERS ONE AT A TIME6--@ 6-%  6-'N<}(( THE AVERAGE IS  @PpSQ YARDS & SQ. FEETuAAHERBERT D. PECKHAM "PROGRAMMING BASIC" T.I. SOFTWARE SEN=}RIESz(נ٠ӠS(S(HFOR EACH ROOM, TYPE IN LENGTH AND WIDTH IN FEET SEPERATED BY A COMMA#( (N>}#(͠ Ӡ(--@   -%$ 6-'@ $$6-P:N?}$A%?P,'A(( ѠԠҠ( ѠӠ( ( @PX""PAY CALCULATION BY R.L.LEWISN@}b? +'0@36-?6-l$$( PAYCHECK CALCULATIONvH( (D(5DO YOU WISH TNA}O ADD UP THE HOURS PER YOUR PAY PERIODH4NAq%("(ENTER WHEN FINISHED%(( HOURS WORKED=NB} -%"Aq  Ap`+('(HOW MANY HOURS DID YOU WORK+, (}((WHAT IS YOUR PAY PENC}R HOUR,, -$,6-P:$A%?P,'A ( (YOUR GROSS PAY IS $ @P@PPBASIC COMPUTER PROGND}RAMS FOR THE HOME...CHARLES D. STERNBERG...HAYDEN BOOKSJ\6-@ +30@X(ENTER THE AMOUNE}NT TO BE INVESTED\T'(#(ENTER THE INTEREST RATE'Y<(8(,ENTER THE NUMBER OF YEARS TO PROJECT GROWTH<^ONF}(K(?ENTER THE NUMBER OF TIMES PER YEAR THEAMOUNT WILL BE COMPOUNDEDOhA`r@(6(+COMPOUNDING MUSTNG} BE AT LEAST ONCE EACH YEAR@ A0|(6.Y"@AD@(7SHALL I PRINT AFTER EACH COMPOUNDING PERIONH}D (٠ҠΠ)DP +'0@P($""( INITIAL INVESTMENI}NT $''( ANNUAL INTEREST RATE %''( COMPOUNDED  X PER YEAR,,($NJ}#(#( BEGIN INTEREST))(!YR. AMOUNT AMOUNT TOTAL++(#--- --------- --------- ---------NK}6-$?'6-B-@-@"((6-46-B-@H 6-$&6-P:+%>P,$ANL},46-'A<6-%B6-H6-4YA   A0  6-6- 5-@(-@#(/-NM}@(5(%! )6-%@"@#)6-@ & 6-%0   ( # @P(#FFBASIC COMPUTER PROGRAMS FONN}R THE HOME. BY STERNBERG..HAYDEN BOOKS<#K +'0@36-@?6-@K6-@F#( NO}ԽP#(ԠŽɠZ#( ӽ٠d#2(.("ENTER THE ITEM TO VARY ɠҠ٠2n#٠ƠNP}Ӡx#0AA #J(D(8ENTER THE BEGINNING AMOUNT, ENDING AMOUNT TO CONSIDERJ#:(6(*ENTER THE INTENQ}RVAL BETWEEN PRINTS I.E.1000:# A#0IA`#H(B(6ENTER THE LOWEST, HIGHEST INTEREST RATE TO CONNR}SIDERH#C(?(3ENTER THE INTERVAL BETWEEN PRINTS I.E., .25 FOR 1/4C# A#0YA#I(C(7ENTNS}ER THE LOWEST, HIGHEST NUMBER OF YEARS TO CONSIDERI#9(5()ENTER THE INTERVAL BETWEEN PRINTS I.E., 59# NT}٠ƠԠӛ#?(%(ENTER THE MORTGAGE AMOUNT)/6-?4IAP#;(#(ENTER THE INTEREST RATE'NU};@A0$6-$A$ 6-$4YA`"$5(+(ENTER THE YEARS OF THE MORTGAGE/56-,$ (NV}}ǠР6$ -@$(%(FOR A MORTGAGE OF  YEARS((J$ -T$-*(USING THE INTEREST RATE OF NW} %-(^$((( MORTGAGE MONTHLY PI TOTALh$**(" AMOUNT PAYMENT INTERESTr$..(&-------- ---------- -NX}-----------|$ -$ΠĠԠ$_6-+'A,'@E6-'++@%,#+$@,&@,%M6NY}-$_6-$$@&$E$6-P:$A%?P,'AE6-P:$A%?P,'A$? ( !-@F:@,NZ}&(;-@)F:@,?($ $..(&$   @P'HHàҠN[}ӠҠŠŠ٠îǭΠӛ'!!Ϊ$'i +'0@EN\}( ENTER PROPERTY NAMEi(( just press return when done ))'6->P6. .'4 @P8'I B@N]}(/(ENTER THE MORTGAGE AMOUNT;6-?I BB'O BP(-(ENTER THE INTEREST RATE1; BON^}@BpL'6-$AV'6-+'A,'@`'C B(5(ENTER THE YEARS OF THE MORTGAGE9C BN_}j'y B(<(&ENTER THE ANNUAL TAXES ON THE PROPERTYH6-LZ6-'@o6-P:+%,$A,y Bt'\N`}6-'A(L(2ENTER THE ANNUAL INSURANCE COST FOR THE PROPERTYX6-\y'46-'@&6-P:+%,$ANa},46-'A~'a B(G(1ENTER THE ANNUAL MAINTENANCE AND REPAIR COSTS6-Wa B'46-'@Nb}&6-P:+%,$A,46-'A'` B (F(0ENTER ANY OTHER MONTHLY COSTS THAT APPLYR6-VNc}` B'a B0(A(+ENTER AVERAGE MONTHLY UTILITY COSTSM6-QW(}a B'Nd}Ϊ'l-6-'++@%,#+$@,&@,%56-$J6-P:+%,$A,X6-'Ab6-%%l6-%%'I.(Ne}&I(INTEREST RATE %'((( MORTGAGE MORTGAGE YEARS '1(1(&Nf}'%(%( Ϋ  '%(%(  '%(%( Ng} '..(&----------------- ------------------'!!( SUBTOTAL  SUBTOTAL '&(&(̠٠Nh}Ӻ$%'1(1(&( @P*!!MONGRAPH REV. 2 JERRY WHITE+FOR COMPUTE TUTNi}ORIAL + B+g +@'0@@@A0@@@M6-@g0@@ +9Nj}6-@6-/6. MONTHLY GRAPH9 Bp*+a,@@ +/AX@ =/AX@uO/@Nk}@ua/@@ 4+ B>+K%6-F:A`,%F:Aa,$AVK6-F:%@,%F:%@,$AVH+b-B:Nl},86-BsD%++@:7<,,&@2,$@,N6-%$@ %%&b-@R+#%$@ F:%,  #$\+#Nm}-@8,!#6-8,f+ p+6-'@ez+6-@&6-@u&+8,',268,-P:,6 +*BNn} 6-P:'A,* B+*A 6-P:'A,* B+*A 6-P:'@,* B+ 6-P:,+No}16-'@6-P:&,16-P:&+$@,,+-6-P:&+$@,,-6-P:&+$@,,+3 6.=:,6-@&B:,)6-Np}@3 Bp+!! @)!@B`+3 6.=:,6-@&B:,)6-@$3 Bp+3 6.=:,6-@Nq}&B:,)6-@83 Bp+3 6.=:,6-@&B:,)6-@R3 Bp+3 6.=:,6-@&B:,)6-@f3 BNr}p+3@'@@@3AR,2(2('ˠ J F M A M J J A S O N D,//('Š A E ANs} P A U U U E C O E,//('٠ N B R R Y N L G P T V C$,-@6-&.,,@%+$@,Nt}8,8,/@%%+$@,8,B,!!/@%%+$@,@uL,!!/@%+$@,@uV,-@%+$@,Nu}8,`,=Ae@=@@S:j,A -@6@928,@=Nv} A t,'@@'@@9~,))( ϠՠӠԠ, F:B2y,"@B, Nw}A,m +'0@A0@@[0@mAR@,((Nx} MONTHLY GRAPH ,.(+( TYPE AMOUNTS FOR EACH MONTH: .(,+(( DO NOT USE NEGATIVE AMOUNTS +(,5 BP(Ny}JAN=+68@,-5 B,5 B`(FEB=+68@,-5 B,5 Bp(MAR=+68@Nz},-5 B,5 B(APR=+68@,-5 B,5 B(MAY=+68@,-5 B,5N{} B(JUN=+68@,-5 B,5 B(JUL=+68@,-5 B-5 B (AUG=N|}+68@,-5 B -5 B0(SEP=+68@ ,-5 B-5 B@(OCT=+68@,-N}}5 B-5 BP(NOV=+68@,-5 B(-5 B`(DEC=+68@,-5 B2-$N~}.--(%̠Ϡ̠ĠŠ.HHATARI BASIC REF. MAN. PG H-18 AS MODIFIED BY E. JACKSON & R. LEWIS.$($(N}1DEC to HEX conversion.!!(2HEX to DEC conversion.((CHOOSE 1 OR 2 /!! @)!@B 0 N}/"@B%/c +AR@"(%(I( ̠Ϡ̠M(c( < 0 / 65535 >/'N}-@@# à = '&/)-@#@) ؠ = 0000+/1( (1(#GOTO MENU: ENTER ANY NEGATIVE VALUEN}0/!! )!BU5A:/*6-@*START THE SHELL SORT RTND/ 6-6-P:'@,N/6-&$@X/'N} @67<,.=:,' B!@b/ 67<,.>:&@%@:A,,l/'6-&@' B!v/&-@0%@N}& 7<@,/%-@A % B P0b +AR@"(%(I( ̠ϠN}̠M(b( < 0000 / FFFF >0'-@@# ؠ = '0"-@#@" à = 01( (1(#GOTO MENU: N}ENTER ANY NEGATIVE VALUE04-A06-1-@B:,16.7<,20A1-7<,/9N}#6-$@%A:,- B&$12AB%.13FB%81%%6-$@%@:,&@:A,%@B1 L1-@(%N}@ V1%-@A % B%2DD***SELECTED MEASUREMENT CONVERSIONS FROM ATARI BASIC REF. MAN.2## N}DO YOU WANT CONVERSIONS FOR2+(+( () à TO ծӮ STANDARD 2*(*(() ծӮĠ TO à2(( TYN}PE 1 OR 22B0pB23 B0388***USER SELECTS DESIRED METRIC TO U.S. CONVERSIONS3.*(!WANT LIST ON}F CONVERSIONS (Y OR N)."34NB1,3-(-("SELECT CONVERSIONS FROM THIS LIST:63!!((1) CENTIMETERS TO INCHESN}@3((2) METERS TO FEETJ3((3) KILOMETERS TO MILEST3((4) KILOGRAMS TO POUNDS^3((5) GRAMS TO OUNCESh3((6)N} LITERS TO QUARTSr3))(!(7) DEGREES CELSIUS TO FAHRENHEITw3((8) RETURN TO MENU|32(.("ENTER NUMBER OF CONVERSION DESN}IRED23"@A3??B3PB3B40B4pB5B5PB53$388*** USER SELECTS DN}ESIRED U.S. TO METRI CONVERSIONS3.*(!WANT LIST OF CONVERSIONS (Y OR N).34NB3 3-(-("SELECT CONVERSIONN}S FROM THIS LIST:3!!((1) INCHES TO CENTIMETERS3((2) FEET TO METERS3((3) MILES TO KILOMETERS3((4) POUNDSN} TO KILOGRAMS3((5) OUNCES TO GRAMS3((6) QUARTS TO LITERS3))(!(7) DEGREES FAHRENHEIT TO CELSIUS4((8) RETUN}RN TO MENU42(.("ENTER NUMBER OF CONVERSION DESIRED2 4"@A4??B60B6pB7B7PBN}7B80B8p4$&4***CM TO INCHES04!(HOW MANY CENTIMETERS!:4,,( CENTIMETERS =$?9 INCHESN}D4 ( $N4***METERS TO FEETX4(HOW MANY METERSb4%%( METERS =$@( FEETl4 ( $v4***KM TO MILEN}S4 (HOW MANY KILOMETERS 4**( KILOMETERS =$?b MILES4 ( $4***KG TO POUNDS4(HOW MANY KILN}OGRAMS4**( KILOGRAMS =$@  POUNDS4 ( $4***GRAMS TO OUNCES4(HOW MANY GRAMS4&&( GN}RAMS =$?P OUNCES4 ( $4***LITERS TO QUARTS4(HOW MANY LITERS5''( LITERS =$@g QUARN}TS 5 ( $5***DEGREES C TO DEGREES F 5%!(HOW MANY DEGREES CELSIUS%*5LL( DEGREES CELSIUS =@ $'@N}%@2 DEGREES FAHRENHEIT45 ( $>5***INCHES TO CMH5(HOW MANY INCHESR5,,( INCHES =$@T CENTN}IMETERS\5 ( $f5***FEET TO METERSp5( HOW MANY FEETz5%%( FEET =$?0H METERS5 ( $5***MILESN} TO KM5(HOW MANY MILES5**( MILES =$@` KILOMETERS5 ( $5***POUNDS TO KG5(HOW MANY POUN}NDS5**( POUNDS =$?E KILOGRAMS5 ( $5***OUNCES TO GRAMS5(HOW MANY OUNCES5&&( OUNN}CES =$@(5 GRAMS5 ( $6***QUARTS TO LITERS6(HOW MANY QUARTS6''( QUARTS =$?` LITERSN}$6 ( $.6***DEGREES F TO DEGREES C86($(HOW MANY DEGREES FAHRENHEIT(B6NN( DEGREES FAHRENHEIT =@'@ N}$+&@2, DEGREES CELSIUSL6 ( $6##ATARI BASIC REF. MAN. PG. H-166-65 +(2( N}ˠҠ5(6RR(JYou may make corrections at any time by entering a negative dollar value.6**6. OLD CHECK N} OUTSTANDING6**6. OLD DEPOSIT NOT CREDITED6**6. OLD CHECK JUST CLEARED6**6. OLD DEPOSIT N} JUST CREDITED7**6. NEW CHECK (OR SERVICE CHARGE) 7**6. NEW DEPOSIT (OR INTEREST)7] BA(Y(CN}Enter the beginning balance as shown in your checkbook. ]7] BA(Y(CEnter beginning balance N} from bankstatement. ](7 B27 BA`<71@(1(PRINTER IS NOT OPERATIONAL.F7!!(PLN}EASE CHECK CONNECTIONS.P76-Z7S(O(CWould you like a permanent record on the printer. Sd7N}B:,"BApn7$$7@<@,4NBB`x7$$7@<@,0YBAp7 BA@73TEST PRINN}TER76-@7%%3YOUR BEGINNING BALANCE IS $72/3%BANK STATEMENT BEGINNING BALANCE IS $2371 BB`(1(N}Choose one of the following:7((1) 7((2) 7((3) 7((4) 7((5) 7((6) 7((7) N}DONE8(8%% @)!@BB`8 B"8??BD0BDpBEBEPBFBGBH,N}86&6.NEW CHECKBOOK BALANCE IS ,6-6 BI 686&6.NEW BANK BALANCE IS ,6-6 BI @86&6.OUTSTANDIN}NG CHECKS-DEPOSITS=,6-6 BI J8  3T8 BB`^8$$OLD CHECK -- STILL OUTSTANDINGh8 6. BIPr8 6-%N}|8$8''OLD DEPOSIT -- STILL NOT CREDITED8 6. BIP8 6-&8$8OLD CHECK -- JUST CLEARED8 6. BN}IP8 6-&8$8""OLD DEPOSIT -- JUST CREDITED8 6. BIP8 6-%8$933NEW CHECK (OR SERVICE CHARGN}E) -- JUST CLEARED9 6. BIP9 6-&&92(.("IS NEW CHECK STILL OUTSTANDING 209B:,"BF0N}:9$$7@<@,0NBFD9 6-&N93CHECK HAS CLEARED.X9$]9$$7@<@,0YBF0b9 6N}-%g9''3CHECK IS STILL OUTSTANDING.j9$l9//NEW DEPOSIT (OR INTEREST) --JUST CREDITEDv9 6. BIP9 6-%N}92(.("HAS YOUR NEW DEPOSIT BEEN CREDITED29B:,"BG09$$7@<@,0YBG`9 6-%N}9%%3DEPOSIT HASBEEN CREDITED.9$9$$7@<@,0NBG09 6-&9**3DEPOSIT HAS NOT BEEN CREN}DITED.9$9 DONE9j(j(_BANK'S BALANCE MINUS (OUTSTANDING CHECKS-DEPOSITS) SHOULD NOW EQUAL YOUR CHECKBOOK BALANN}CE.96-&+&,9BHP9E(A(IS $, THE ENDING BALANCE ON YOUR BANK STATEMENT E9B:,"N}BH59]7@<@,4Y(S(/CONGRATULATIONS: YOUR CHECKBOOK BALANCES!] @P9 BH`:Y!N}(2(YOUR CHECKBOOK TOTAL IS $O( OVER YOUR BANK'S TOTAL.Y BH`:E('(YOUR CHECKBOOK TOTAL IS $6E(N} UNDER YOUR BANK'S TOTAL. :.(.(#WOULD YOU LIKE TO MAKE CORRECTIONS?:S(S(HREMEMBER, YOU CAN ENTER A NEGATIVE DOLLAN}R VALUE TO MAKE A CORRECTION. :"((ENTER ٠ OR Π "*:B:,"@P4:7@<@,4Y$9: N} @P>:MSG PRINTING ROUTINEH:(( $R:"@3 $\:$f:MSG PRINT & INPUT ROUTINEp:9 BI`N}(.(Enter the amount for the 2(5(9z: B:"@3 $:$:+@%@:&& @N} :&&(@ GOD GRANT ME :&&(@ THE SERENITY :&&(@ TON} ACCEPT :&&(@ THE THINGS :&&(@ I CANNOT CHANGE,:&&(@ COURAGE TO N} :&&(@ CHANGE THE THINGS:&&(@ I CAN, AND THE :&&(@ WISDOM TO KNOW ;&&(N}@ THE DIFFERENCE. ;&& @ ;-@A $; A>>ROUTIN}NE TO CALL MENU.>>##( >(LOADING DISK MENU !!>%D:MENU D:BUSINESSROUTILv