@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 O} 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- 170ɛ+,' 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 language TUR > TURBO BASIC OBJ| f}COM > MACHINE language DOC > DOCumentation PIC|MIC|FNT|MVM > Graphics AMS|MUS|MBD > Music LST > BASIC g} LISTing -Some MACHINE language programs can only be run by loading the MENU without BASIC! ------- -For s h}ome programs, XL/XE models may require a "TRANSLATOR" program (available from BELLCOM) to be loaded first! -Most i}programs are relatively self-explanatory; however, some may have separate DOCumentation files. Some BASIC programs m j}ay contain instructions in their program listings. LIST to read. -To view DOCumentation files one page at a time, k} press [START], [Return], or the Joystick Trigger to display the highlighted DOC file. Pressing the [Esc] key cau l}ses a return to MENU. -To print out a hard-copy of any DOCumentation file, [Q]uit the MENU, boot DOS, and then from m} DOS, use the (C)Copy command: D:Filename.DOC,P: -To use this great MENU program on your own disks, simply n} copy the file "AUTORUN.SYS". D:Filename.DOC,P: -To use this great MENU program on your own disks, simply !=>> Z9MACMAJOSZAUSAZ2ZJZISCCMCJCJ@@@@@p}@ q}@***************** ASSIGN **r}***************;@,;@, +#  Ԡ# ** "THE ASSIGNMENT PROBLEM s}EXAMINED IN)) !THIS PROGRAM IS OF THE FOLLOWING -- %TYPE:THERE ARE A FIXED NUMBER OF JOBS-- %TO BE DONE (SAY N JOt}BS), AND THE SAME-- %NUMBER(N) OF POSSIBLE ASSIGNEES, I.E. && THOSE WHO CAN DO THE JOB. THE #-- %ASSIGNEES HAVE DIu}FFERENT EFFICIENCIES%++ #FOR THE DIFFERENT JOBS. IN FACT FOR(,, $EACH JOB-ASSIGNEE COMBINATION WE CAN*** "ASSIGN SOMv}E COST. EACH ASSIGNEE IS-++ #ASSIGNED TO 1 AND ONLY ONE JOB. THE/)) !PROGRAM WILL FIND THE ASSIGNMENT 2## WHICH MINw}IMIZES TOTAL COST.<( ( THIS PROGRAM IS SET UP FOR A >)) !MAXIMUM OF 9 DIFFERENT JOBS AND 9A'' DIFFERENT POSSIBLEx} ASSIGNMENTS.F Z( $ PRESS TO CONTINUE(d6-@ n]]9%@<%@,9%@,9%@y},9%@,9%@,9%@,x +: A0: !HOW MANY JOBS MUST BE ASSIGNED(<=) Bz}. @)!)P:,$ B. A0 -@ FOR JOB -@B A) {} COST FOR ASSIGNEE -868<,-B B     B +JF =IS LINEPRINTER OUT|}PUT OF INITIAL COST ASSIGNMENT DESIRED(Y/N)J(0Y*0N B ( A@4NA/ + PRESS }} WHEN PRINTER READY/-@3FOR JOB -@6-8<,''3 COST FOR ASSIGNEE ~} =    ,*+   *  18-@-@068<,-68<,4 8 @06}--@,68,-0 F--@ 68,--6-6DL-@N8,"@A}BP8<,ABR6-8<,6-V X68,-@Z 6-%\ 68,-^ rSTART SEARCHw6}-@|6-@-@$ "8,6-%@$ A  68,- A 68,-}A6-%@A!-@68,-8,!  6-6-NEW BOUND8&@,A}`&468,- 6-&@4"@A`D A@X 6-8,b6-%@lAv 68,}- 6-&@"A@ A6-&@"6-@"-@""}8,A  A  +/+ "IS LINEPRINTER OUTPUT DESIRED(Y/N)/%0Y*0N B% AP}$ +$ ̠  -@%% JOB 8, GETS ASSIGNEE 6-688,<,!! } COST =    " 6-6%& &  TOTAL COST = *4NA /$3 OPTIMAL }ASSIGNMENT$3 4-@>%%3JOB 8, GETS ASSIGNEE ?3 COST = @ C""3 } TOTAL COST = + ' PRESS TO START AGAIN+ A !-@68,-8,! -@}8,"Ap $)6-%@6-&@) A.6-&@8 -B6-6DL-}@V"@AP`-@j"8,Apt ~8<,Ap6-8<,  6}8,- "@A@&-@"68,-8<8,,& ,6--@(6-%8,, $}': Ԡҡ ٠Ρ3-@A7 :$t'(! PRESS TO CONTINUE%($D:ASSIGN, $qghAAZ9ABNBBTA9ZXNINFIDRDDYBBBJZ8ZZ2VOGRMJF2F5DOSPBCOFYX2S0F6}@@ }@} !"#$%&'()@*+,-.*}**************** AUTOEXP *****************'@'@@97 }7 (}ϠŠŠV+ #THIS SIMPLE PROGRAM WILL PERMIT THEV &INDIVIDUAL TO KEEP A RECORD OF ALL EX-11 (}PENSES PERTAINING TO THE USE OF AN AUTO- .. &MOBILE. FOR EACH EXPENSE THIS PROGRAM  STORES THE FOLLOWING: -- %A}N EXPENSE TYPE CHOSEN FROM GAS, OIL,%% MAIN, TOL INS, PAYM, OR MISC.,, $MAIN MEANS MAINTENACE, INS IS INSUR-// '}ANCE, PAYM IS CAR PAYMENT. IN ADDITION-- %TO TYPE EXPENSE THERE IS DESCRIPTION,-- %DATE, PLACE OF SERVICE, QUANTITY }PUR-// 'CHASED, BILL AMOUNT, AND ODOMETER READ-.. &ING. THIS DATA IS STORED IN A FILE IN// 'MEMORY. THIS FILE M}AY BE SAVED ON DISK.. &AND RECALLED, IT MAY BE EDITED, LISTED ,, $ON CRT OR PRINTER, ETC. A MILES PER"11 (GALLON C}ALCULATION MAY ALSO BE PERFORMED#;@,(5-@"1 PRESS RETURN TO BEGIN 52~~;@@,;@@},;@@,;@0,;@,;@P,;@P,;@P,;A5,9@,;@,Amm;A5,9@p}<@,9@p<@,;A5,;A,;@P,;@@,;@,F AK- }-@@}-  PU-@@p+-@@<68<,-M68<,-Q U U*-@@}&68,-* d<6.2 P-@i}67$@P%@<}+%@,$@P,. 6.7@<A,: }7 (Πՠ: )) !1. ADD} TO FILE OR BEGIN NEW FILE 2. NOT IMPLEMENTED 3. NOT IMPLEMENTED"" 4. READ FILE IN FROM DISK&$$ 5. } WRITE FILE OUT ONTO DISK0  6. EDIT FILE:-- %7. LIST CONTENTS,COMPLETE OR BY TYPED,, $8. ACTUALLY DELETE RECORD} FROM FILEN6-X6 A ( ENTER YOUR CHOICE ,6 BbGGAA A!A"A#}A0APApl AB 8<@,#  NEW AMOUNT '.0B68<@,-A:,,,ADD TO OR START} FILE ALREADY IN MEMORY; }"$  NEW FILE ' * 4 B; }   A" Ae1 INIT}IAL ENTRY DONE ; BA }6-%@ A`INPUT 1 RECORD) } Aa)PRINT OUT 1 RECORD0 }B&7@<@,4N0 A 7@<@,4A$$&6-%@&NEW RECORD ON FILE. B}MORE?8$$7@<@,4YAB7@<@,0Y$47 Bf$READ IN FILE F}ROM DISK7 }7 (ԠˠΠˠŠ4   0 ENTER NAME OF FILE TO READ IN 42. %EN}TER DRIVE NUMBER IN FORM D1,D2,ETC 23 6.67B:,%@,.:367B:,%@,. @@}@-@q 6-6-@ B,@j67$@0%@<+%@,$@0,.7@}<@@,q6.q 6-6-@ B,@j67$@0%@<+%@,$@0,.7@<@@,}q6.q 6-6-@ B,@j67$@0%@<+%@,$@0,.7@<@@,q6.q }6-6-@ B,@j67$@0%@<+%@,$@0,.7@<@@,q6.*@}@*@668<@,-%68<@,-668<@,--@@6-#6-- B}Z6.7$@0%@<+%@,$@0,d B67$@0%@<+%@,$@0,.  @}$WRITE FILE OUT TO DISK } N 2 'ԠˠΠˠŠD-@@N B G }' PRESENT DISK FILE IS  6  NEW FILE :A0G6. 2. %ENTER DRIVE NUMBER IN FORM D1,D2, ETC2 3 6.}67B:,%@,.:367B:,%@,. @@  @$ -@& ` 6-6-@} BL6.7$@0%@<+%@,$@0,Y @`6.( ` 6-6-@ BL6.7$@0%}@<+%@,$@0,Y @`6.* ` 6-6-@ BL6.7$@0%@<+%@,$@0,Y} @`6., ` 6-6-@ BL6.7$@0%@<+%@,$@0,Y @`6.2 K @}8<@,3 @8<@,K @8<@,8  B @L $ EDIT FILE } 6.}N -@ }     Aa !  -@A!    A@ $}EDIT SUBROUTINE } 6- 6--- %CHANGE TYPE CODE TO ZZZZ FOR DELETINGP A@07 %ENTE}R # OF ITEM YOU WISH TO EDIT,0 IFB NONE FP B"6-$ }  Af } }A@ LIST FILE WITH ANALYSISj, #IS A LINE PRINTER TO BE USED (Y/N) 0`7@<@,0Y*7@<@},0Nj B=37@<@,0Y*7@<@,0N= AP: }7 (ՠ}: $$ 1. COMPLETE LIST AS ON FILE 2. LIST BY TYPE 3. END LIST PROGRAM= AP` / ENTER }APPROPRIATE CHOICE 3= B"@$ARAS AP$PCOMPLETE LISTUL }#}7@<@,4Y? PUT PAPER INTO PRINTER B L BV }]b#  COMPLETE LIST<7@<@},4Y?3B3b3 COMPLETE LIST^" 7@<@,4Y"3_W68@,--68@,-}B68@,-W68@,-d-@n Aa 1 RECORD PRINTEDoh-@@@ -" };7@<@,4Yh3(----------------------------------------p?-@#4 PRESS RETURN TO CONTINUE 8}? }q 6-6-@ BN7$@0%@<$@0%@,4GASs68@,-8@,%8<@,}y6-6-8<@,TOTAL GASOLINEt5(68@,-8@,%8<@,5TOTAL COSTu4%68@,-&8<@},4TOAL MILEAGEvM068@,-8<@,&8<@,MTOTAL MILEAGE FOR GASOLINEx0'@"P:'@,} ) B0 }   B.   %7@<@,4Y(3+3.3 B   B$}LIST TYPE' }# ENTER TYPE DESIRED '<B:, @0<67B:,%@,.7@<@0&B:,,W68@,}--68@,-B68@,-W68@,-< }-@@< Ǡ}- 6-6-@ B:007$@0%@<+%@,$@0,: ASK(68@},-8@,%8<@,KTOTAL COST FOR THIS EXPENSE TYPE `8@,"  E " NO ENTRIES OF THAT} TYPE ON FILEY-@A] `$ }##  LIST OF TYPE M7@<@,4Y3"3J3! } LIST OF TYPE M36-   "-$ 6-6-@ B':007$@0}%@<+%@,$@0,: ATP)6-%@, Aa@5'@"P:'@,& B- }1 5 }J T ^/  B$-@@@+ -/ cI7@<@,4YI3(--------------------------------}--------| B0   $pPRINT 1 LINE OF PORTFOLIOxY }*  EXPENSE TYPESV ' GAS OIL MAIN} TOLL INS PAYM MISCY y 6-6-@ Bz` TYPE EXPENSE $3B:, @0]67B:,%@,}.7@<@0&B:,,` {G067$@0%@<+%@,$@0,.G6.7@<@,|LL4GAS )4OIL )4}MAIN)4TOLL)4INS )4PAYM)4MISCA`"0ZZZZ B" A` B@ } $PRINT 1 LI}NE OF PORTFOLIO B@p$**PRINT 1 LINE OF PORTFOLIO ON PRINTER7@<@,0Y$ B`}$dINITIAL INPUTn }x INITIAL INPUT ENTRYz/, $MAKE THIS ENTRY WITH A FULL GAS TANK/ q6-6-}@% Bq67$@0%@<+%@,$@0,.GAS q6-6-@% B}q67$@0%@<+%@,$@0,.INITIAL 6-6-@% BD ENT}ER DATE (MM/DD/YY) HWB:, @067B:,%@,.7@<@0&B:,,0067$@0%@<+%@,$@0},.Q AeP, ENTER ODOMETER READING 0G68<@,-Q B $ 6.NQ }}*  EXPENSE TYPES:N GAS OIL MAIN TOLL INS PAYM MISCQ  6-6-@ BM  %@}   " M 7$@0%@<+%@,$@0,a! NEW EXPENSE TYPE %4B:, @0^67B:,%@},.7@<@0&B:,,a G067$@0%@<+%@,$@0,.G6.7@<@,ND4OIL )4MAIN)4}TOLL)4INS )4PAYM)4MISC)4GAS N Af"0ZZZZ B" AfJ 6-6-@ BJ 7$}@0%@<+%@,$@0,[ NEW DESCR. "1B:, @0:,%@,.7@<@0&B:,},0067$@0%@<+%@,$@0,.J 6-6-@ BJ 7$@0%@<+%@,$@0,}] NEW DATE $3B:, @0]67B:,%@,.7@<@0&B:,,0067$@0%@<+%@},$@0,.J 6-6-@ BJ 7$@0%@<+%@,$@0,[ NEW PLACE OF SERV "1}B:, @0:,%@,.7@<@0&B:,,0067$@0%@<+%@,$@0,.P 8<@,* } NEW QUANTITY .50I68<@,-A:,P6.P 8<@,*  NEW AMOUNT .50I68<@,}-A:,P6.R 8<@,, NEW ODOMETER READING070K68<@,-A:,R6.    +$XDELETE }SBR COMPUTATION].6-@.K=NO. OF RECORDS NOT DELETEDb-@g 6-6-@ Bl=37$@0}%@<$@0%@,4ZZZZ= ApvDO NOT DELETE RECORD-@@5 6-6- B6-}%6-+6-5 BWW67$@0%@<+%@,$@0,.7$@0%@<+%@,$@0, +-}@@'68<,-8<,+ 6-%@ Ap 6-&@6--@--@}@6-#6-- B67$@0%@<+%@,$@0,.7$@0%@<+%@,$@0,[ +}-@@'68<,-8<,+  $(#FORMATTING VARIABLES<#..6.$TYPE DESCR DATE PLACE QUANT AMT ODOMP#}NN6.DTYPE DESCRIPTION DATE PLACE QUANTITY $ AMT. ODOMETER#$'INPUT ERROR SBR'? Ԡҡ}'  TRY AGAIN!;-@A? $'$t';@@4 PRESS RETURN TO CONTINUE 8;$'Y,N,A SBR' }6. '7 3 'ENTER Y IF OK, N IF IN ERROR,A TO ABORT7' 46. '^J7@<@,0Y*7@<@},0N*7@<@,0AT B^ B'$<(Y, N SBRA( 6. F(($ ENTER Y IF OK,N IF IN ERROR(P(G3}7@<@,0Y*7@<@,0N= BG BZ($(MORE ENTRY? SBR( 6. (($ DO YOU DESIRE }MORE ENTRIES ((=37@<@,0Y*7@<@,0N= B)$*00ELIMINATES TRAILING BLANKS OF VARI}ABLE Z8$*B:,"@ B +<7B:, 6-6-@ } BK 7$@0%@<+%@,$@0,]@@c6-o6-@ 7$@0%@<+%@ },$@0,> 6-6-@ B1@@"[ 7$@0%@<$@0%@,m@@1s6- }6-@ B 7$@0%@<+%@,$@0,>X6-8<@, 6-,6-@86-@B } BpT@@@X >6-8<@, 6-@,6-@86-@B BpT@@Y e6-}v6-8<@,6-@6-@ Bp@@" 8<@,>$hBo96.=:P:++%@'@}#+%@,,$@#,,,EK6.T6.00h67B:,%@,.o6.rBCB:, +%,6.6. 267B:,%@},.96.C Bp|BY 6.6.7@<,067B:,%@,..Y67B:,%@,.7B:,&%@}̠ ĠN 8 A * ENTER ORIGINAL PRICE .8 B8 A0* ENTER ?}DISCOUNTED PRICE .8 B>6-+&,'6-A$>6-P:A$%?P,'A$$ DISCOUNT PERCENTAGE = @}%  B$t'(! PRESS TO CONTINUE%($ D2:SIMPDISKA$$ DISCOUNT PERCENTAGE = W  ;_qEDE1********************* STOCKVAL1 **!B}******************* +;@,;@, &&  ŠƠŠƠ )) !WHEN A!C}N INVESTOR BUYS A STOCK HE #,, $HOPES FOR SOME FUTURE RETURN, EITHER(++ #THROUGH DIVIDENDS OR CAPITAL GAINS.--- %HOW!D}EVER STOCKHOLDERS IN GENERAL, OVER2-- %THE LONG HAUL,ONLY GET CASH DIVIDENDS7++ #MANY WHO SUBSCRIBE TO THE PRECEDING<!E}((  BELIEVE THAT ANY STOCK VALUATIONA-- %MODEL SHOULD CONSIDER ONLY DIVIDENDS.F** "SUCH IS THE MODEL OF THIS PROGRAM.!F}K)) !WE SHALL ASSUME THAT WE KNOW THE P,, $PRICE OF A SHARE OF A CERTAIN STOCK,U-- %THE PRESENT ANNUAL CASH DIVIDEND,!G} ANDW-- %AN EXPECTED GROWTH RATE FOR DIVIDENDSZ++ #WHICH WE ASSUME LASTS INDEFINATELY.\** "FROM THIS DATA WE GET OUR!H} EXPECTED^,, $RATE OF RETURN ON INVESTMENT FOR THE_ STOCK.` a)% ENTER ANY CHARACTER TO BEGIN)d +!I}i5 A5 #THE PRESENT PRICE OF 1 SHARE OF THEn STOCK Bx@ A 2  THE PRESENT ANNUAL CASH !J}DIVIDEND6@ BC A05 #EXPECTED RATE OF DIVIDEND GROWTH(%)9C B6-'A6-$+@%!K},'% ;+ #EXPECTED LONG RUN RATE OF RETURN = ; A$% 0, #ENTER ANY CHARACTER FOR MORE STOCKS0!L} A D:STOCKVALG RUN RATE OF RETURN = ; A$% 0, #ENTER ANY CHARACTER FOR MORE STOCKS0 89AZ9ABCF1Z2QBCADXTTTABCJH@@@%N} %O} ******************* ARBCOM%P}P *******************]];@,;@,;@,;@,;@P,;@P,;@,;@,/%Q}/6.% ;@P, ARBCOM +(6-(TOTAL VALUE OF PACKAGE%R}*'  Š* -- %ARBITRAGE IS SIMPLY BUYING AN ARTICLE ((  IN ONE MARKET AND SELLING IT IN%S} #-- %ANOTHER MARKET, HOPEFULLY AT A HIGHER%,, $PRICE. IN THE STOCK MARKET THIS MAY ('' INVOLVE BUYING ONE SECURITY%T} AND*++ #SELLING ANOTHER EQUIVALENT SECURITY-((  IN THE SAME MARKET. THIS TYPE OF/)) !ARBITRAGE OCCURS WHEN MERGERS %U}ARE2'' BEING CONSIDERED. OWNERS OF ONE4'' SECURITY MAY TRADE THEM IN FOR 7-- %ANOTHER PACKAGE OF SECURITIES.IN THI%V}S9-- %CASE THE OWNERS OF THE FIRST SECURITY<((  MAY WONDER WHAT THE VALUE OF THE>'' SECOND PACKAGE IS. THIS PROGRAM%W}A((  EVALUATES THE VALUE OF A PACKAGEC,, $OF DIFFERENT SECURITIES. IN A MERGERF-- %A PACKAGE OF COMPANY A SECURITIES%X} ANDK((  CASH ARE GENERALLY TRADED FOR A P((  PACKAGE OF COMPANY B SECURITIES,U,, $USUALLY SOME SHARES OF COMMON STO%Y}CK.Z% ! PRESS RETURN TO BEGIN%d&&9A,9A,9A,n))A( )=VALUE OF 1 UNIT:B( )=#OF UNITSs%Z}C( )= EXTENDED VALUE +** "FOR EACH SECURITY IN PACKAGE ENTER,, $PRICE/UNIT AND NO. UNITS IN PACKAGE. %[}6-@"" ENTER VALUE OF ONE UNIT OFD AE-  SECURITY  (-1 TO END)1:68,-D B8%\},"6@A ENTER # OF UNITS OF C Ae,  SECURITY  IN PACKAGE0968,-C B68,-%]}8,$8,6-%8,6-%@  A@,FINISH UP AND PRINT66-&@@//6.%VALUE OF UNIT # OF UNIT%^}S TOTAL VAL.^ +h0, #IS LINE PRINTER OUTPUT DESIRED(Y/N)0r7 4Y3 PRESS RETURN WHEN PRINTER READY%_}7| + 4Y3`- %-------------------------------------54Y`3&-------------------------------%`}--------@( 6-8,6-8,6-8,( A 4Y3 6. X6.TOTAL 36%a}-P:+%>,$A,'A<6.=:,H6-@R AX6.6.  AP-- %=====================%b}================5 4Y53%===================================== 4Y3 4Y3 " PRESS RET%c}URN FOR MORE" APRINT USING ROUTINEI&6-P:+%>P,$A,'AI6-P:+%=P,$B,'B%d}&&6-P:+%>,$A,'A 6.=:,6.=:,6.=:,G 6.6-@ A%6.+6.76-@%e}A AG6.'6-@6-@"'6-@4&A 6-B:,,67@<&,.7@<&,A67&%@<,.0E%f} 6-B:,067%@<&,.7%@<&,E67&%@<,.:E 6-B:,067%@<&,.7%@<&,E67&%@%g}<,.D$00SUBROUTINE FOR PUTTING 0'S IN RIGHT PLACES 6-B:,-@7<,4.AP %q}B%DOS SYSB*)DUP SYSB SAUTORUN SYSB_HELP DOCBoASSIGN BASBAUTOEXP BASBAUTOLEASBASB-SIMPDISKBASB ASTOCKVALBASBMARBCOMP BASB4sANNU1 BASBDEPRSL BASBDEPRDB BASBDEPRDDB BASBTIMETR BASBDEPLETE BASB/DEPAMNT BASB3DEPRATE BASB7ANGTOMETBASBLBTWN2DTSBASB ^DAYOFWK BASBgSALVALUEBASBkVARIANCEBASB8zADDRESS BASBDISCBAL BAS 67%@<%@,..9-@267%@%<%@%,.06 9$%"67%@<%@,..00%$%r} "%$-%@%67<,.0    $ D:ARBCOMP06 9$%"67%@<%@,..00%$$N&' ZIZFPMPBAPMZ2Z1EE1F)t} ***************** ANNU1 **)u}***************&&;@,;@,;@, }/@ /-F:@,&@00 ()v}٠Π٠ҮҠ 5@@ 5-F:@,&@- - " AN ANNUITY IS ANY SET )w}OF EQUAL++ #PAYMENTS MADE AT EQUAL INTERVALS OF0&& TIME. WITH AN ORDINARY ANNUITY:,, $PAYMENTS ARE MADE AT THE END)x}S OF THED%% PERIODS DEFINED BY THESE TIMEN)) !INTERVALS. FOR AN ANNUITY DUE THEX-- %PAYMENTS ARE MADE AT THE BEGINN)y}ING OFb-- %THE PERIODS IN QUESTION. THE PRESENTl,, $VALUE OF AN ANNUITY IS THE AMOUNT OFv,, $CASH ONE WOULD ACCEPT )z}NOW INSTEAD OF((  THE SEQUENCE OF FUTURE PAYMENTS.// &BECAUSE MONEY HAS TIME VALUE (INTEREST-- %IS CHARGED)THE P){}RESENT VALUE DOES NOT** "EQUAL THE SUM OF THE PAYMENTS. THE)) !FUTURE VALUE OF AN ANNUITY IS THE-- %AMOUNT OF CAS)|}H WHICH WOULD ACCUMULATE((  BY THE END OF THE ANNUITY IF THE,, $INDIVIDUDAL PAYMENTS ARE INVESTED AT%% THE PREVA)}}ILING INTEREST RATE.<;@, 8 ENTER ANY CHARACTER TO CONTINUE<4 +4 "MANY ANNUITIES ALSO INVOLVE)~} A LAST'' BALLOON PAYMENT. IN THE ANNUITY-- %PROBLEMS WE EXAMINE,THE INTEREST RATE-- %PER PERIOD,PAYMENT PER PER)}IOD,PRESENT ++ #OR FUTURE VALUE,AND BALLOON PAYMENT// &(AT END OF TERM) IF DESIRED. GIVEN ANY ++ #FOUR VALUES OF T)}HE ABOVE VARIABLES *((  THIS PROGRAM WILL FIND THE FIFTH4-- %VARIABLE WHEN CONSIDERING THE PRESENT>,, $VALUE SITUATI)}ON. IN THE FUTURE VALUEH)) !SITUATION NO BALLOON PAYMENTS ARER,, $CONSIDERED AS IN THIS CASE A BALLOON\-- %PAYMENT O)}F A CERTAIN AMOUNT WOULD ADDf-- %THAT AMOUNT TO FUTURE VALUE.NOTE THATp** "INTEREST RATES ARE WRITTEN AS PER z// &CE)}NTS NOT AS DECIMALS(E.G. 6% NOT .06),, $IN ADDITION NOTE THAT INTEREST RATE ** "IS PER PERIOD, I.E. PER MONTH, PER)}  YEAR, ETC.9;@, 5 ENTER ANY CHARACTER TO BEGIN9G }L'' SELECT TYPE OF PROBLEM DESIRED.Q)} V@@ 8 1.ORDINARY ANNUITY-FUTURE VALUE (SINKING FUND)`$$  2.ANNUITY DUE-FUTURE VALUEj** " 3.ORDINARY A)}NNUITY-PRESENT VALUEt%%  4.ANNUITY DUE-PRESENT VALUE~4 AP & MAKE YOUR CHOICE*4 BE A 5IS IN)}TEREST RATE QUOTED PER PERIOD(P) OR ANNUALLLY(A)E%0P*0A ERROR% AU0AA`< AY. )}NUMBER OF PAYMENTS PER YEAR2< B''AAAA00ORDINARY ANNUITY-FUTURE VALUE TYPE P)}ROBLEM } A06-'A/"A/6-$++@%,#&@,'/"A/6-$'++@)}%,#&@,3"A36-K:+$'%@,,'K:@%,$O:&@, ?$ A@ APPRINTOU)}T A06-'A-/"A/6-$++@%,#&@,'2E"AE6-$$+@'+@%,,'+)}+@%,#&@,<A"AA6-K:+$'+$+@%,,%@,,'K:@%,F$O:&@, ?$ AAP)} APPRINTOUTx A0 A0}6-'AI"AI6-$+@',$+&+@%,#+6,,%$+@)}%,#+6,G"AG6-+&$+@%,#+6,,$'+@&+@%,#+6,,9"A#6-+$&,'+$&,96-K:,)}'K:@%,R"A>6-&$+@',$+@&+@%,#+6,,R6-$+@%,#$O:&@, ?$ )}AB AP A0 A06-'A["A[6-$+@%,$+@',$+@&+@%,)}#+6,,%$+@%,#+6,S"AS6-+&$+@%,#+6,,$'+@%,'+@&+@%,#+6,,Q"A;)}6-+$&$+@%,,'+$&$+@%,,Q6-K:,'K:@%,^"AJ6-&$+@%,$+@',$+@&+@)}%,#+6,,^6-$+@%,#$O:&@, ?$ AC AP INPUT SUB ROUTINE S +P >EN)}TER EACH OF THE FOLLOWING. FOR THE UNKNOWN VALUE ENTER 9999S  D A0  @6 FUTURE VALUE ::D )}B D A00@6 PRESENT VALUE ::D B 8 A0@* PAYMENT :.8 B)} 8 A0P* NUMBER OF PAYMENTS :.8 B @ A0U4A2 ANNUAL INTEREST RATE :6@ B)} 4A*A6-' 4AA0p > A0`0 INTEREST RATE PER PERIOD(%): 4> B $ 8 A0)}* BALLOON PAYMENT :.8 A0 $&&I FOR FV REG. ANNU.-SINKING FUND6-?%%6-&'$++@)}%,#&@,GG6-$+$+@%,#&@,'&++@%,#&@,'#@ 6-6 AFO:,?)}$ A@ I FOR FV ANNUITY DUE6-?116-&$+@%,'$++@%,#&@,__6-$++%)}@,$+@%,#&@,'&$++@%,#+%@,&@&,'#@ 6-6" AF,O:,?$)}6 AA hI FOR PV/ORDINARY ANNUITYr6-?|;;6-'$+@&+@%,#+6,,%$+@%,#+6,&ll6)}-$'+%+@%,#+%@,,&'+#@,$+@&+@%,#+6,,&$'+@%,#+%@, AFO:,)}?$ AB I FOR PV/ANNUITY DUE6-?GG6-$+@%,'$+@&+@%,#+6,,%$+@)}%,#+6,&^^6-+@%,$+$'+$+@%,#+%@,,&'+#@,$+@&+@%,#+6,,,DD6-%'$+@)}&+@%,#+6,,&$'+@%,#+%@, AFO:, ?$ ACCOMPUTATION 6-&')} $PRINTOUTI&6-P:+%>P,$A,'AI6-P:+%>P,$A,'A&&6-P:+%=P,$B,'B)}+7"@)"@7 FUTURE VALUE = 7"@)"@7 PRESENT VALUE = )}!! NUMBER OF PAYMENTS = 7 4A7  CONSISTING OF  PAYMENTS ANNUALLY= 4A3 ANNUAL INTEREST RATE = )}A$$= APP)) INT. RATE PER PERIOD = A$&&6-P:+%>P,$A,'A!! PAYMENT )} = &&6-P:+%>P,$A,'A7"@)"@7 BALLOON PAYMENT = , ( ENTER ANY CHA)}RACTER FOR MORE, AD1:ANNU1"@)"@7 BALLOON PAYMENT = , ( ENTER ANY CHA(2TUTdEZ2RINPUTE1FH1ADBYAE2QRSTQXQRSTUULIST121PP-} -} !"-}#$%&'()****************** DEPRSL ******************-}@@  +11;@,;@,;@,;@,RR;@,;@,;@,-};@,;@P,;@P,;@,006.&  ;@P, %%  -}Π  Ԡ ++ #THIS PROGRAM PRINTS A SCHEDULE FOR -- %DEPRECIATING AN A-}SSET BY THE STRAIGHT  LINE METHOD. #((  INPUTS ARE ITEM COST, ESTIMATED ()) !SALVAGE VALUE, AND LIFE IN YEAR-}S.-,, $OUTPUT IS A YEAR BY YEAR SCHEDULE OF2)) !CURRENT DEPRECIATION, ACCUMULATED7$$ DEPRECIATION AND BOOK VALUE.8-} <)% ENTER ANY CHARACTER TO BEGIN)F@d +i40 'DO YOU WANT OUTPUT ON LINEPRINTER (Y/N-})4j0Y*0NAn9 A+ ENTER COST /9 Bx9 A + ENTER SALVAGE VALUE-} /9 B9 A0+ ENTER LIFE IN YEARS /9 BA ((  SALVAGE VALUE>COS-}T---ERROR-ERROR ENTER DATA AGAIN.-@A  A + AHEADING A-}INITIALIZE! A!COMPUTE AND PRINTHEADING SUB ROUTINEE 4YA 0ENTER ANY CHARACTER WHEN LINEPRINT-}ER IS READYE +//6.%YEAR CURR.DEP ACCUM.DEP BOOK VAL) -@@@" -& ) -}0YAP 1+3#STRAIGHT LINE DEPRECIATION SCHEDULE13  53INITIAL COST = 53LIFE OF ASSET(YEARS)=434-}3(----------------------------------------$LITITIALIZE SUBROUTINEV*6-*ACCUMULATED DEPRECIATION[& 6-}-&&AMOUNT TO BE DEPRECIATED` 6-BOOKVALUEe6-PRESENT YEAR~$COMPUTATION AND PRINTINGM 6-}.=:,6. !6. D6-P:+%>P,$A,'AM6.=:, A   4Y3-@&@-}6-+&,' 6-&6-%6-%@A`% 6-6-6-6-% A   4-}Y3;'@"P:'@,& A;ROLLING OFF SCREEN 6-+&,& ! 6-&6-%!6-%@ -} 6-6-6-6-  A   4Y3 4Y33x))SUBROUTINE TO HOLD OUTPUT ON SCREEN-}62 )ENTER ANY CHARACTER FOR MORE OF THE TABLE6- } "-@@@) -- $PRINTUSING ROUTIN-}El&6-P:+%>P,$A,'AI6-P:+%>P,$A,'Al6-P:+%>P,$A,'A&&6-P:+%>P-},$A,'A' 6.=:,6.=:,6.=:,'6.=:,/ 6. A%6.6.) A%/6. 6. A%-}6.36-@6-@'6-@'36-@7A 6-B:,,67@<&,.7@<&,A67&%@<,.-}0 6-B:,067%@<&,.7%@<&,67&%@<,. E 6-B:,067%@<&,.7%@<&,E67-}&%@<,.E 6-B:,067%@<&,.7%@<&,E67&%@<,. $ 00SUBROUTINE TO PLACE ZERO'S IN-} RIGHT PLACES 6-B:, -@ 7<,4.A&   ""67%@<%@,..00 $( -&@-}2 7<,4 67<,.0<  F A%PD:DEPRSL ""67%@<%@,..00 $( -&@,ITUcsEZ2RINPUTE1FH1ADBYAE2QRSTQXQRSTUULIST121PP1} 1} !"1}#$%&'()****************** DEPRDB ******************1}@@  +11;@,;@,;@,;@,RR;@,;@,;@,1};@,;@P,;@P,;@,006.&  ;@P, $$  1}Π""  Ǡ ** "THIS PROGRAM PRINTS A SCHEDULE FOR,, $DEPRECIATING AN A1}SSET BY THE DECLIN- ING BALANCE METHOD. #'' INPUTS ARE ITEM COST, ESTIMATED(-- %SALVAGE VALUE & LIFE IN YE1}ARS. OUTPUT--- %IS A YEAR BY YEAR SCHEDULE OF CURRENT2-- %DEPRECIATION,ACCUMULATED DEPRECIATION7 AND BOOK VALUE.1}9 <)% ENTER ANY CHARACTER TO BEGIN)d +f@ i40 'DO YOU WANT OUTPUT ON LINEPRINTER 1}(Y/N)4j0Y*0NAn9 A+ ENTER COST /9 Bx9 A + ENTER SALVAGE V1}ALUE /9 B9 A0+ ENTER LIFE IN YEARS /9 B9 A5+ RATE OF DEPRECIATION(%) 1}/9 B6-'AA ((  SALVAGE VALUE>COST---ERROR-ERROR ENTER DATA AGAIN.1}-@A  A + AHEADING AINITIALIZE! A!COMPUTE AND PR1}INTHEADING SUB ROUTINE=9 0ENTER ANY CHARACTER WHEN LINEPRINTER IS READY= +//6.%YEAR CURR.D1}EP ACCUM.DEP BOOK VAL& -@@@" -& 0YAP 5/3'DECLINING BALANCE DEPRECIATION SCHED1}ULE53  53INITIAL COST = 53LIFE OF ASSET(YEARS)=1+3RATE OF DEPRECIATION=A$%13  3 3 1}$LITITIALIZE SUBROUTINEV*6-*ACCUMULATED DEPRECIATION[& 6-&&AMOUNT TO BE DEPRECIATED` 6-B1}OOKVALUEe6-PRESENT YEAR~$COMPUTATION AND PRINTINGM 6.=:,6. !6. D6-P:+%>P,1}$A,'AM6.=:, A   4Y3-@&@ 6-$ 6-&6-%6-1}%@A`% 6-6-6-6-% A   4Y3;'@"P:'@,& A;1}ROLLING OFF SCREEN 6-+&,& ! 6-&6-%!6-%@  6-6-6-6-  A   1}4Y3x))SUBROUTINE TO HOLD OUTPUT ON SCREEN62 )ENTER ANY CHARACTER FOR MORE OF THE TABLE6$PR1}INTUSING ROUTINEl&6-P:+%>P,$A,'AI6-P:+%>P,$A,'Al6-P:+%>P,$A,'A1}&&6-P:+%>P,$A,'A' 6.=:,6.=:,6.=:,'6.=:,/ 6. A%6.6.) A%/6.1} 6. A%6.36-@6-@'6-@'36-@7A 6-B:,,67@<&,.7@<&,A67&1}%@<,.0 6-B:,067%@<&,.7%@<&,67&%@<,. E 6-B:,067%@<&,.7%@1}<&,E67&%@<,.E 6-B:,067%@<&,.7%@<&,E67&%@<,. $ 00SUBROUTINE TO 1}PLACE ZERO'S IN RIGHT PLACES 6-B:, -@ 7<,4.A&   ""67%@<%@,..00 1}$( -&@2 7<,4 67<,.0<  F A%PD:DEPRDB ""67%@<%@,..00 0XTU&7EZ2RINPUTE1FH1ADBYAE2QRSTQXQRSTUULIST121PPA#EV5}A3@P@ %2 A!V A!V A3 @Aiy5@AiA34%25}    * @@@'@7@f&2@ !@"5}#@$@%@&'A!V(@)  ****************** DEPRDDB ******************5}@  }11;@,;@,;@,;@,RR;@,;@,;@,;5}@,;@P,;@P,;@,006.&  ;@P, $$  5}Π&&  ŠǠ ** "THIS PROGRAM PRINTS A SCHEDULE FOR++ #DEPRECIATING AN 5}ASSET BY THE DOUBLE DECLINING BALANCE METHOD#((  INPUTS ARE ITEM COST, ESTIMATED ()) !SALVAGE VALUE, AND LIFE IN5} YEARS.-,, $OUTPUT IS A YEAR BY YEAR SCHEDULE OF2)) !CURRENT DEPRECIATION, ACCUMULATED7$$ DEPRECIATION AND BOOK VAL5}UE.8 <)% ENTER ANY CHARACTER TO BEGIN)d +e@i40 'DO YOU WANT OUTPUT ON LINEPRINTER5} (Y/N)4j0Y*0NAn9 A+ ENTER COST /9 Bx9 A + ENTER SALVAGE 5}VALUE /9 B9 A0+ ENTER LIFE IN YEARS /9 BA ((  SALVAGE VALU5}E>COST---ERROR-ERROR ENTER DATA AGAIN.-@A  A + AHEADING5} AINITIALIZE! A!COMPUTE AND PRINTHEADING SUB ROUTINE0YA =9 0ENTER ANY CHARACTE5}R WHEN LINEPRINTER IS READY= }//6.%ҠҮЮͮРˠ   0YAP5}  @:32DOUBLE DECLING BALANCE DEPRECIATION SCHEDULE@3  53INITIAL COST = 53LIFE OF ASSET(YEARS)= 35} 3 $LITITIALIZE SUBROUTINEV6-[& 6-&&AMOUNT TO BE DEPRECIATED` 6-BOOKVALUEe6-5}PRESENT YEAR~$COMPUTATION AND PRINTINGM 6.=:,6. !6. D6-P:+%>P,$A,'A5}M6.=:, A   4Y3-@&@556-+@',$+@&@',#+&@,$5} 6-&6-%6-%@A` 6-& 6-%&6-%6-% 6-6-6-6-% A 5}  4Y3;'@"P:'@,& A;ROLLING OFF SCREEN 6-+&,& ! 6-&6-%!5}6-%@  6-6-6-6-  A   4Y3x))SUBROUTINE TO HOLD OUTPUT ON SCREEN65}2 )ENTER ANY CHARACTER FOR MORE OF THE TABLE6$PRINTUSING ROUTINEl&6-P:+%>P,$A,'AI6-P:5}+%>P,$A,'Al6-P:+%>P,$A,'A&&6-P:+%>P,$A,'A' 6.=:,6.=:,65}.=:,'6.=:,/ 6. A%6.6.) A%/6. 6. A%6.36-@6-@'6-@'5}36-@7A 6-B:,,67@<&,.7@<&,A67&%@<,.0 6-B:,067%@<&,.7%@<&5},67&%@<,. E 6-B:,067%@<&,.7%@<&,E67&%@<,.E 6-B:,067%@<&,5}.7%@<&,E67&%@<,. $ 00SUBROUTINE TO PLACE ZERO'S IN RIGHT PLACES 6-B:, -@ 5}7<,4.A&   ""67%@<%@,..00 $( -&@2 7<,4 67<,.0<  F 6} A%P D:DEPRDDB ""67%@<%@,..00 $( -&@2 7<,4 67<,.0<  F 4>?g Z9ASSSSSSWXYZRTTTTWQMXYZR@@:} :} !"#$:}********************** TIMETR **********************]];@,;@,;@,;@,:};@,;@,;@P,;@P,006.&  / +/  Š:}Ҡ ,, $THIS PROGRAM COMPUTES A LINEAR TREND((  FOR A TIME SERIES. THE DETRENDED66 .VALUES FROM TH:}E SERIES ARE ALSO PRINTED.<% ! PRESS TO BEGIN%d +x  -- %GIVEN AN UPPER BOUND ON:} THE NUMBER OF,, $OBSERVATIONS YOU INTEND TO USE. THIS&& WILL BE THE GREATEST NUMBER OF OBSERVATIONS POSSIBLE: }. * A  NUMBER =  * B9,9, +-- %INPUT OBSERVATIONS 1 BY ONE, PRESSING: }** " AFTER EACH. INPUT 99999 AND PRESS WHEN DONE. ! PRESS ENTER TO BEGIN!, +6: }6-6-;-@@@Z A ;  OBSERVATION %@ (99999) TO END?P68%@,-: }Z BJ""8%@,"B APO -@F:@,&@T6-%@ A ^COMPUTATION_ : } }`#-@@#  c?6-6-'6-36-?6-h-@rF :}6-%6-%#@&6-%8,96-%8,#@F6-%$8,| 56-$&#@%6-+$&$,'56-+$&$,':}##REGRESSION COEFFICIENTS ABOVE-@68,-%$  A%-@E'@"P:':}@,: PRESS RETURN TO CONTINUE>E }| 6--6-P:A$8,%?P,'AQ6-P:A$8,%?P,'A:}|6-P:A$+8,'8,,%?P,'A' 6.=:,6.=:,6.=:,'6.=:,E 6. A6.6.) A:}/6.56.? AE6.36-@6-@'6-@%36-@6A 6-B:,,67@<&,.7@<&:},A67&%@<,.E 6-B:,067%@<&,.7%@<&,E67&%@<,.E 6-B:,067%@<&,.7:}%@<&,E67&%@<,.E 6-B:,067%@<&,.7%@<&,E67&%@<,. &'@ :}"P:'@ ,& A0& 0SUBROUTINE TO PLACE 0'S 6-B:,-@7<,4.A` :}%"67%@<%@,..00%$$"%@$.# 67%@<%@,.0#$ T=  + Y WHERE:} T=  + Y WHERE YEARS FROM ORIGIN. HEADING SUBROUTINE + E$6-P:B$%?P,'B:}E6-P:B$%?P,'B  TREND EQUATION IS  T =  + Y  P / $WHERE T IS THE TREND VALU:}E AND Y IS M NO. OF YEARS FROM ORIGIN.P   YEARS FROM ORIGIN ,, $OBS # OBS VAL. SMTH VAL. DETREND ,, $----:}- -------- ---- ---- ------- $ FULL SCREEN SUBROUTINE %! PRESS TO CONTINUE% + A%:} $D:TIMETR----- $ FULL SCREEN SUBROUTINE %! PRESS TO CONTINUE% + A%8 Z9ZPOAZZdddd@A d >} ,d************** DEPLETE **************'@>}'@@9C +A@"1A@$CA @<<;A,;A,;A>},;A,;A,DEFDBL A-Z }d-@@@ -" E  ΠY-@> }@@` -d  -- %DEPLETION REFERS TO EXHAUSING NATURAL ,, $RESOURCES. DEPRECIATION CHARGES WHEN",, >!}$COMPUTED BY THE DEPLETION METHOD ARE$-- %PROPORTIONAL TO THE PRODUCTION LEVEL.&,, $THIS IS BECAUSE, IN THE CASE OF NON>"}-(// 'REPLACEABLE NATURAL RESOURCES, WHEN THE*-- %RESOURCE IS USED UP THE THE LAND USED,,, $IS OF NO MORE VALUE FOR >#}THAT PURPOSE2// 'IF SOME ESTIMATE CAN BE MADE OF THE TO-7-- %TAL PRODUCTIVE OUTPUT OF A MINE, E.G.<.. &AND OF THE CO>$}ST OF THE MINE TO DEVELOPA** "THEN IN A YEAR IN WHICH 10% OF THED.. &TOTAL REPRODUCTIVE OUTPUT IS MINED 10%F// 'OF T>%}HE ORIGINAL VALUE OF THE MINE WOULDK++ #BE USED AS THE DEPRECIATION AMOUNT.Z% ! PRESS RETURN TO BEGIN% }>&}A A3  COST OF PURCHASE AND DEVELOPMENT7A B A A 3  FINAL SALVAGE VALUE ESTIMATE 7>'}A B A A03  TOTAL REPAIR COST OVER LIFE 7A B I A@; (INPUT ESTIMATE OF LI>(}FE PRODUCTIVE OUTPUT?I B96-++&,%,'9MULTIPLICATION FACTOR ON PRODUCTION 6.0 6. ,( (IN>)}PUT SEVERAL PRODUCTION LEVELS6D A6 #ENTER PRODUCTION LEVEL (-1 TO END) :D B7"6@ A;>*}%-@@@ -" % @6-P:$$A,6.=:,B&A:, A&67B:,%@,.EB:, @ >+}A0G A5J/6-%@%67B:,%@,./ A%O 6.TWW DEPRECIATION CHARGES ARE $7@,}&&@,.7B:,&@&-}[ B^6-h"@ } Ar"@ Au"@ AwL@)@>.})@B ԠҡŠ٠L AB| D:DEPLETEu"@ AwL@)@<Q. +  DEPRECIATION AMOUNT  ORIGINAL PRIB0}CE(2 DEPRECIATION RATE<F6-'AP!! --(ENTER YEAR=0 TO END)--Z YEARdn"B1}A`x##6-$$+@&,#+&@, DEPRECIATION = $"" P:$A%?P,'A  @B2}!! MORE DATA? (1=YES, 0=NO)"@@  D:DEPAMNT%?P,'A  @@V.ar +  DEPRECIATION RATE  ORIGINAL PRICEF4}(2  RESALE PRICE<F YEARSPZ++6-A$+@&+',#+@',,d DEPRECIATION RATEF5} =i&& P:A$%?P,'A%n x!! MORE DATA? (1=YES, 0=NO)"@@  DF6}:DEPRATEP:A$%?P,'A%n x!! MORE DATA? (1=YES, 0=NO)"@@  DD / CA@?b@u@# +  ANGLO TO METRIC 55- ESTABLISH VARIAJ8}BLES FOR 17 CONVERSION FACTORS9@,'22- LOOP TO ASSIGN CONVERSION FACTORS INTO C()(-@@2"J9}4 68,-< E22- DATA TABLE OF SEVENTEEN CONVERSION FACTORSF2.540,30.480,.3048,.9144G1.609,4.929,14.788,J:}.2366H.4732,.9463,3.785,35.24I8.809,28.3495,.4536,907.2P .6214Y99- GET NUMBER OF CONVERSION FROM PROGRAM DESJ;}CRIPTIONZ (TO END PROGRAM TYPE 0)d WHICH CONVERSION e  DO YOU NEEDf g!!  1. INCHES TO CENTIMETERSJ<}h  2. FEET TO CENTIMETERSi  3. FEET TO METERSj  4. YARDS TO METERSk  5. MILES TO KILOMETERSl** " 6.J=} TEASPOONS TO CUBIC CENTIMETERSm,, $ 7. TABLESPOONS TO CUBIC CENTIMETERSn  8. CUPS TO LITERSo  9. PINTS TO LITJ>}ERSp 10. QUARTS TO LITERSq 11. GALLONS TO LITERSr 12. BUSHELS TO LITERSs 13. PECKS TO LITERSt 1J?}4. OUNCES TO GRAMSu 15. POUNDS TO KILOGRAMSv 16. TONS TO KILOGRAMSw55 -17. DEGREES FAHRENHEIT TO DEGREES CELS J@} IUSx  y- END PROGRAM}"A@- CONVERSION AVAILABLE?!@A VALUE TJA}O BE CONVERTED 99- PERFORM CONVERSION USING PROPER CONVERSION FACTOR6-$8,@@- DIRECT PROGRAM TO JB}PROPER CONVERSION UNITS, PRINT RESULTS @AuOO&@ A`AAA A@A`JC}AAOOAAA A@A`AAA A@%%  INCHES =  CENTIJD}METERS A ##  FEET =  CENTIMETERS A  FEET =  METERS A $$7PRINT I; YJE}ARDS = ";R;" ETERS" A ##  MILES =  KILOMETERS A (( TSP. =  CUBIC CENTIMETERS" JF} A ,**  TBSP. =  CUBIC CENTIMETERS6 A @  CUPS =  LITERSJ A T  PINTS =JG}  LITERS^ A h  QUARTS =  LITERSr A |!!  GALLONS =  LITERS A !! JH} BUSHELS =  LITERS A   PECKS =  LITERS A   OUNCES =  GRAMS A JI}""  POUNDS =  KILOGRAMS A !!  TONS =  KILOGRAMS A ##6-+&@2,$@'@ JJ}  DEGREES FAHRENHEIT =  CELSIUS   - RESTART PROGRAM A D:ANGLOJK}2MET  DEGREES FAHRENHEIT =  CELSIUS   - RESTART PROGRAM A D:ANGLOH| MDYMDY NM}  +  DAYS BETWEEN TWO DATES ..- STATEMENTS 30 TO 60 REQUEST USER INPUT  FIRST DATENN}( 2  SECOND DATE< E..- SET VARIABLES TO BE USED IN SUBROUTINEF 6-P 6-Z 6-d ANO}0m((- SAVE COMPUTED NUMBER OF DAYSIN Nn 6-w..- SET VARIABLES TO BE USED IN SUBROUTINEx 6- 6- 6-NP} A0&&- CALCULATE DIFFERENCE AND PRINT 6-&  DIFFERENCE =  DAYS 33- RESTART OR END PRNQ}OGRAM? USER INPUT REQUIRED MORE DATA (1=YES, 0=NO)"@@ - END PROGRAM A`@@NR}- SUBROUTINE TO COMPUTE NUMBER OF DAYS FROM 0/0/0 TO M/D/Y''- START WITH TEST FOR UNREAL DATE??- GO TO CORRECT TEST NS}DEPENDING ON NUMBER OF DAYS IN MONTHggA`AA`A@A`A@A`A`A@A`NT}A@A`  UNREAL DATE11- STOP CALCULATIONS, RETURN TO MAIN PROGRAM$- MONTH HAS 31 DAYS!@1NU}A@ AP''- MONTH IS FEBRUARY; A LEAP YEAR?$$'@P:'@,A"$$'A"P:'ANV},A ,$$'AP:'A,A 5**- NOT A LEAP YEAR; MONTH HAS 29 DAYS6!@(A@?&&- A LEAPNW} YEAR; MONTH HAS 29 DAYS@!@)A@J APS- MONTH HAS 30 DAYST!@0A@]II- TABLE OF NX}NUMBER OF DAYS FROM FIRST OF YEAR TO FIRST OF EACH MONTH^ 0,31,59,90,120,151,181,212_243,273,304,334h#i-@NY}j"k qKK- GET NUMBER OF DAYS FROM JANUARY 1 TO FIRST OF MONTH FROM DATA TABLE{OO- COMPUTE NUMBER OF DAYNZ}S FROM JANUARY 1 TO FIRST OF MONTH FROM DATA TABLE|DD6-%$Ae%P:'@,%%@&P:'A,%P:'A,-N[} POSSIBLY A LEAP YEAR?$$P:'@,'@AP%%- CONTINUE TEST FOR A LEAP YEAR$$'A"P:'A,N\}A0$$'A"P:'A,A@II- IF MONTH IS JANUARY OR FEBRUARY, ADJUST CALCULATED NUMBER OF DAYS!@N]}AP6-&@11- END OF SUBROUTINE, RETURN TO MAIN PROGRAM$ D:BTWN2DTS DAYS!@Ln%@@!@@ +  DAY OF THE WEEK - REQUEST USER INPUT$$ R_}(ENTER 0,0,0 TO END PROGRAM)( MONTH,DAY,YEAR2 ;- TEST FOR END OF PROGRAM<AFR`}APAZ A`c--- NEED TO ADJUST INPUT FOR CALCULATONS?d!@A0mRa}- ADJUST INPUTn6-%@x6-&@- CALCULATE DAY NUMBER[[6-%@$%P:?`$+%@,,%%P:'Rb}@,&P:'A,%P:'A,%@336-P:+'@&P:'@,,$@%?P,88- FIND CORRECT DAY NUMBER,Rc} TRANSLATE TO DAY, PRINT!A SATURDAY A@!@A SUNDAY A@Rd}!@A@ MONDAY A@!@Ap TUESDAY A@!@ARe}  WEDNESDAY" A@,!@A06 THURSDAY@ A@J FRIDAYT ]- RESTART PROGRAMRf}^ @@h D:DAYOFWK!@A06 THURSDAY@ A@J FRIDAYT ]- RESTART PROGRAMP%%{ +   SALVAGE VALUE  ORIGINAL PRICE(2Vh} DEPRECIATION RATE<F!! --(ENTER YEAR=0 TO END)--P YEARSZd"A@n  VALUE = $sVi}88 P:A$$+@&'A,#%?P,'Ax  @!! MORE DATA? (1=YES, 0=NO)"@Vj}@  D:SALVALUE%?P,'Ax  @!! MORE DATA? (1=YES, 0=NO)"@T$"#SPSQTNKTDDMM Zl}  } Ad""OZm}NE WAY ANALYSIS OF VARIANCEn&&A. WACHTEL, PITTSBURGH, PA 15235s6;@@,6.'67@@,.667@,.x Zn}} TREATMENT MEANS#(---------------#15 DASHES?6-6-'6-36-?6-Zo}'6-6-'6-""A AP"AA  6-% 6-%$6-%Zp}@ A 6-%6-%6-% 6-' 6-$' 6-%"6-%@,,,(T=P:$AZq}%?P,'A6 Ap@ 6-$'J 6-&6-&6-&T6-&@6-&^ 6-'6-'6-'hZr} rWW(SOURCE7@<@,SSQ7@<@ ,DF7@<@,MS <( CRUDE!@@Zs}& 8@@#<(A(COR.F @@% 7@@$A(@D( TOTAL!@@Zt}& 8@@#D(&@m(TREAT @@% 7@@#<(N@@1m(P:$Zu}A%?P,'Am(ERROR @@%(7@@#<(N@@1m(P:$A%?P,Zv}'A KK(F( AND  DEGREES OF FREEDOM)=P:$A%?P,'A A0((  USE LINE 1 AND Zw}LINES UP TO 99 TO((  ENTER DATA. PLACE 999 AT THE END!! OF EACH TREATMENT SERIES.&& PLACE 9999 AFTER THE LAST 9Zx}99.## (AVOID 999 OR 9999 AS DATA)   )) !TYPE: LINE # DATA XX,XX,XX,999, && YY,YY,YY,999,ZZ,ZZ,ZZ,999,9999Zy} D:VARIANCER 9999 AS DATA)   )) !TYPE: LINE # DATA XX,XX,XX,999, && YY,YY,YY,999,ZZ,ZZ,ZZ,999,9999XaFILELEFILESUBMLFILENAMEEORALPHAPROMPTCIODATEBOOKMSTARINSTRECORGAREAMAXLESADTRUELEICCOICB^{}ADICBLEICSTA ^|}n!6-I^}}:,&A!;,xhh;AU,;A`,;@,;@,;@,;@(,;@,;@@,;@!^~},6.PERSONAL ADDRESS BOOKY#@@K:-+@G0@YAR@^}v-@@3(@7@<@,E-@@c(@7@<@!,v(Please wait...V67^}@,.>:AU,367@,.>:AU,V6.ӠΠҠΠՠ+-@@"'67,.>:,+ 4^}-@A`"'67,.>:,+ 46-C:,(>:A%,($)@$"AUA0 A***^} MAIN MENU ***1@+1AR@f-@@ %(>:@,) .(B-@@^}P(>:@,T f@@M@@(/(1> Retrieve a name2(J(2> Enter a new nameM(<(^}3> Delete an old name (9(4> Load address book<(R(5> Save address book(9(6> Print address book<(R(7> Disk ^}directory5@@(5(ӠҠƠŠ"O@.@@K:;)@O^}"AUA,GG&@HA0ApAApA`A PA06 A@*** RETRIEVE A NAME^} ***JJ@@'AR4(>:A%,F-@@ J(T/-@@+(Name to retrieve/^}^B:,"A h6-@r""6-?::A%,@-^}@@S(NAME NOT FOUND] A  6-6-""6-?::A%,($(7<%@^},'(G(PRESS SPACE BAR TO RETRIEVEh(NEXT OCCURRENCE OF SAME NAMEAR@(($)@$"AU^}A0'"@26-%@' Ap A0*** ENTER A NAME ***](>:A%,"AR4^}@@7(](&B:, CHARACTERS FREE IN MEMORYF(&(PRESSΠAT THIS PROMPTF(WITHOUT INPUT FOR MAIN MEN^}UI(*(PRESSΠAT ANY NEXT PROMPTI(WITHOUT INPUT TO END ENTRY((NAMEB:,"A0&^}B:,"&67B:,%@,.467B:,%@,.467B:,%@,.>:AU,$( (NEXT LINE OF ADDRESS$&9^}B:,"/67B:,%@,.>:AU,9 A00 A0:*** DELETE A NAME ***D;(>:A%,"AR^}4@@7(;(N5((NAME TO DELETE5B:,"A0X.6-@.6-?::A%,4-@@G(NAME NOT FOUNDJ(N(v$)@$"A^}UA0 A0 6-6-""6-?::A%,"AR@%(6(7<%@^},9(W(PRESSŠҠTO DELETE%(%(PRESSΠFOR MAIN MENU$)@$"AUA0"@2^}A  A6-&%@!!67&@:A%,"AR4-@@ 8( 6-@@2(DEVICE:FILENAME TO LOAD6^}B:,"A0 f A @5@@A-@M6-@2S6-\6-C:,f A*^}4@ 67,.>:AU,* B4 A04z(>:A%,"AR@4-@@O( I/O ERROR #F:A^},a-@@ e(p@z B>$)@$"AUA0H A0R*** SAVE FILE ***\8^}AR"(>:A%,4-@@ 8(f6-@@2(DEVICE:FILENAME TO SAVE6pB:,"A^}0zi A @5@@A-M6-@2V6-B:,_6-C:,i A"@^} B" A0zAR@"(>:A%,4-@@O( I/O ERROR #F:A,a-@@ e(p@^}z B$)@$"AUA0 A *** PRINT FILE ***4@@'AR^}4(>:A%,%(%(BE SURE PRINTER IS ON LINE#( ( (( TODAY'S DATE#B:,"A0B A^}@8@@P:B AM(>:A%,(.( I/O ERROR #F:A,8 BC@M ^}A `I67@,.>:AU,367@,.>:AU,?6-@I B4 @( @UPDATED 46-^}@e667@,.>:,!!@,@6 A0""6-?::A%,%@H@@D:*.*\-@Bi)^}@q(>:,u t@( B~$)@$AUAP A0*** CIO LOAD/SAVE ***^}LLCIO LOAD/SAVE requires file#2 opened, READ=0 for save, READ=1 for loadfile#2,$2036-A46-A6'6-^}A@36-A5<6-P:'AV,$6-&$AV,%<%%@<6-P:'AV,$6-&$AV,%<^}%%@)%@&@$)6-?:C:,<,%%6-F:%,%AV$F:%%@,$*** CIO ML DATA ***^}104,104,104,170,76,86,228*** INSTR ML DATA ***169,0,133,212,133,213 104,201,5,240,18,1410,4,162,0,2^}36,04,208,1,96,104,104(232,169,0,240,243,1042141,5,4,104,141,4<4,104,141,3,4,104F24,109,4,4,141,2P^}4,173,3,4,109,5Z4,141,3,4,104,133d204,104,133,203,104,104n141,1,4,104,133,206x104,24,109,4,4,133^}205,165,206,109,5,4133,206,165,205,56,2331,133,205,165,206,2330,133,206,162,0,1600,177,205,209,203,2^}4037,173,2,4,56,229205,141,0,4,173,34,229,206,13,0,4208,1,96,165,205,24105,1,133,205,165,206^}105,0,133,206,169,0240,209,232,236,1,4208,4,169,0,240,54200,177,205,209,203,24037,173,2,4,56,229^}205,141,0,4,173,3"4,229,206,13,0,4,208,1,96,165,205,246105,1,133,205,165,206@105,0,133,206,169,0J^}240,155,232,236,1,4T240,4,169,0,240,202^173,2,4,56,229,205h141,0,4,173,3,4r229,206,13,0,4,144|30,24^}0,28,165,205,56237,4,4,133,212,165206,237,5,4,133,213165,212,24,105,1,133212,165,213,105,0,133 2^}13,96 D:ADDRESS.BOK4,133,212,165206,237,5,4,133,213165,212,24,105,1,133212,165,213,105,0,133 2\*+ PVIZ9DPSFIIIIPPMVALPVdLddd@Ab} ***************b}* DISCBAL ****************C +AA01AA4CA @GG;A,;Ab},;A,;A,;A,;A, 6. 6.$6.. '@@9'@ }b}[-@@@ -" C  ŠԠ[  A"  Ġb}6-@@@= -A -- %MOST CONSUMER BANK LOANS ARE WHAT ARE.. &CALLED 'DISCOUNT LOANS'. IN A LOAN OFb}11 (THIS TYPE THE FINANCE CHARGE IS PREPAID.-- %FOR EXAMPLE, THE BANK WILL GIVE YOU A.. &LOAN WITH FACE VALUE EQUAb}L TO A STATED -- %AMOUNT (TOTAL OF REPAYMENTS) AND WILL"-- %THEN DEDUCT THE INTEREST CHARGES FROM$** "THE PROCEEDS Ob}F THE LOAN. THUS THE&-- %CONSUMER DOES NOT GET THE FACE VALUE,(// 'BUT SOME LOWER AMOUNT. TO MAKE MATTERS*++ #WORSEb} CHARGES FOR ACCIDENT & HEALTH,-- %INSURANCE, CREDIT LIFE INSURANCE, AND.,, $OFFICIAL FEES MAY BE REQUIRED. THIS0-- b}%PROGRAM COMPUTES THE PROCEEDS AND THE2// 'EFFECTIVE INTEREST RATE IN SUCH A CASE.411 (THE CHARGES SUCH AS A & H ARE Cb}ONSIDERED6-- %AND TEND TO RAISE THE EFFECTIVE RATE.P Z" PRESS RETURN TO BEGIN"d }n@ A2 TOTb}AL REPAYMENTS OF LOAN 6@ Bs x@ A 2 TOTAL INTEREST PREPAID 6@ By z@ b}A"2 TOTAL A & H INSURANCE CHARGES 6@ B{ |@ A$2 TOTAL CREDIT LIFE INS. CHARGES 6@ Bb}} ~@ A&2 TOTAL OFFICIAL FEES CHARGES 6@ B$6-&&&&$PROCEEDS OF LOAN @ A@b}2 MONTHLY LOAN PAYMENT 6@ B @ AP2 TOTAL NUMBER OF MONTHLY PMTS. 6@ Bb} / AB/COMPUTE EFFECTIVE INTEREST RATE%-@@@ -" % ) AP) PROCEEDS OF LOAN b}$6-A$D A`D  ANNUAL EFFECTIVE INTEREST RATE A:,'A % /+ "PRESS RETURN FOR MOREb} COMPUTATIONS/ AhI FOR DISCOUNT LOANr6-?|((6-'$+@&+@%,#+6,,&PP6-$'+b}$+@%,#+%@,,&'+#@,$+@&+@%,#+6,, AFO:,?$ AB COMPUTb}ATION 6-&' $6.=:P:$A,,B:, @AP0 AP@!67B:,%@,.! AP6b}7B:,%@,. 6-A:, 6.6-'A$p6.=:P:$A,,u 6.$zB:, @ A`0b} A`@67B:,%@,.$ D:DISCBAL$p6.=:P:$A,,u 6.$zB:, @ A`0`: