TUTdEZ2RINPUTE1FH1ADBYAE2QRSTQXQRSTUULIST121PP  !"#$%&'()****************** DEPRSL ******************@@  +11;@,;@,;@,;@,RR;@,;@,;@,;@,;@P,;@P,;@,006.&  ;@P, %%  Π  Ԡ ++ #THIS PROGRAM PRINTS A SCHEDULE FOR -- %DEPRECIATING AN ASSET BY THE STRAIGHT  LINE 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)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>COST---ERROR-ERROR ENTER DATA AGAIN.-@A  A + AHEADING AINITIALIZE! A!COMPUTE AND PRINTHEADING SUB ROUTINEE 4YA 0ENTER ANY CHARACTER WHEN LINEPRINTER IS READYE +//6.%YEAR CURR.DEP ACCUM.DEP BOOK VAL) -@@@" -& ) 0YAP 1+3#STRAIGHT LINE DEPRECIATION SCHEDULE13  53INITIAL COST = 53LIFE OF ASSET(YEARS)=4343(----------------------------------------$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   4Y3 4Y33x))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:DEPRSL