TU&7EZ2RINPUTE1FH1ADBYAE2QRSTQXQRSTUULIST121PPA#EVA3@P@ %2 A!V A!V A3 @Aiy5@AiA34%2    * @@@'@7@f&2@ !@"#@$@%@&'A!V(@)  ****************** DEPRDDB ******************@  }11;@,;@,;@,;@,RR;@,;@,;@,;@,;@P,;@P,;@,006.&  ;@P, $$  Π&&  ŠǠ ** "THIS PROGRAM PRINTS A SCHEDULE FOR++ #DEPRECIATING AN ASSET BY THE DOUBLE DECLINING BALANCE METHOD#((  INPUTS ARE ITEM COST, ESTIMATED ()) !SALVAGE VALUE, AND LIFE IN YEARS.-,, $OUTPUT IS A YEAR BY YEAR SCHEDULE OF2)) !CURRENT DEPRECIATION, ACCUMULATED7$$ DEPRECIATION AND BOOK VALUE.8 <)% ENTER ANY CHARACTER TO BEGIN)d +e@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>COST---ERROR-ERROR ENTER DATA AGAIN.-@A  A + AHEADING AINITIALIZE! A!COMPUTE AND PRINTHEADING SUB ROUTINE0YA =9 0ENTER ANY CHARACTER WHEN LINEPRINTER IS READY= }//6.%ҠҮЮͮРˠ   0YAP  @:32DOUBLE DECLING BALANCE DEPRECIATION SCHEDULE@3  53INITIAL COST = 53LIFE OF ASSET(YEARS)= 3 3 $LITITIALIZE SUBROUTINEV6-[& 6-&&AMOUNT TO BE DEPRECIATED` 6-BOOKVALUEe6-PRESENT YEAR~$COMPUTATION AND PRINTINGM 6.=:,6. !6. D6-P:+%>P,$A,'AM6.=:, A   4Y3-@&@556-+@',$+@&@',#+&@,$ 6-&6-%6-%@A` 6-& 6-%&6-%6-% 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%P D:DEPRDDB