bwBASIC/BP100/SALVAGE.BAS

5 CLS  
10 PRINT "            SALVAGE VALUE"  
20 PRINT   
30 PRINT "THIS PROGRAM COMPUTES THE SALVAGE (BOOK) VALUE OF  
40 PRINT "AN ITEM DEPRECIATED OVER N YEARS BY THE DECLINING  
50 PRINT "BALANCE METHOD.iNPUT NECESSARY IS THE INITIAL COST,  
60 PRINT "THE DECLINING BALANCE DEPRECIATION RATE(AS A %  HERE),  
70 PRINT "AND THE NUMBER OF YEARS OF DEPRECIATION.  
90 INPUT "PRESS ENTER TO BEGIN";Z9  
100 CLS  
110 INPUT "INPUT INITIAL COST IN DOLLARS";C  
120 INPUT "INPUT DEPRECIATION RATE(AS %)";F  
130 DB=F/100  
140 INPUT "INPUT NUMBER OF YEARS  OF DEPRECIATION";N  
150 BV=C*(1-DB)[N  
160 PRINT :PRINT   
170 B$=" SALVAGE VALUE EQUALS $$######.## "  
180 PRINT USING  B$;BV  
190 PRINT   
200 INPUT "PRESS 1 FOR MORE,0 TO END";Z9  
210 IF  Z9=1 THEN GOTO  100  
220 IF  Z9=0 THEN END  
230 PRINT "INPUT ERROR.TRY AGAIN":PRINT :GOTO   200