TUcsEZ2RINPUTE1FH1ADBYAE2QRSTQXQRSTUULIST121PP  !"#$%&'()****************** DEPRDB ******************@@  +11;@,;@,;@,;@,RR;@,;@,;@,;@,;@P,;@P,;@,006.&  ;@P, $$  Π""  Ǡ ** "THIS PROGRAM PRINTS A SCHEDULE FOR,, $DEPRECIATING AN ASSET BY THE DECLIN- ING BALANCE METHOD. #'' INPUTS ARE ITEM COST, ESTIMATED(-- %SALVAGE VALUE & LIFE IN YEARS. OUTPUT--- %IS A YEAR BY YEAR SCHEDULE OF CURRENT2-- %DEPRECIATION,ACCUMULATED DEPRECIATION7 AND BOOK VALUE.9 <)% ENTER ANY CHARACTER TO BEGIN)d +f@ 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 B9 A5+ RATE OF DEPRECIATION(%) /9 B6-'AA ((  SALVAGE VALUE>COST---ERROR-ERROR ENTER DATA AGAIN.-@A  A + AHEADING AINITIALIZE! A!COMPUTE AND PRINTHEADING SUB ROUTINE=9 0ENTER ANY CHARACTER WHEN LINEPRINTER IS READY= +//6.%YEAR CURR.DEP ACCUM.DEP BOOK VAL& -@@@" -& 0YAP 5/3'DECLINING BALANCE DEPRECIATION SCHEDULE53  53INITIAL COST = 53LIFE OF ASSET(YEARS)=1+3RATE OF DEPRECIATION=A$%13  3 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   4Y3;'@"P:'@,& A;ROLLING OFF SCREEN 6-+&,& ! 6-&6-%!6-%@  6-6-6-6-  A   4Y3x))SUBROUTINE TO HOLD OUTPUT ON SCREEN62 )ENTER ANY CHARACTER FOR MORE OF THE TABLE6$PRINTUSING ROUTINEl&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:DEPRDB