Listing of file='DEPAMT.BAS;01' on disk='vmedia/ncc_8_real-sector.ccvf'
5 PLOT 27,11,14,6,3,12 10 PRINT TAB( 25)"DEPRECIATION AMOUNT" 12 PLOT 10,15,6,2 13 PRINT "THIS PROGRAM CALCULATES THE DOLLAR AMOUNT DEPRCIATED IN A" 14 PRINT "GIVEN YEAR, FOR A DEPRECIATING INVESTMENT. YOU MUST" 15 PRINT "PROVIDE THE ORIGINAL PRICE OF THE INVESTMENT, ITS" 16 PRINT "DEPRECIATION RATE, AND THE YEAR OF DEPRECIATION..." 20 PLOT 14,10,6,1 30 INPUT "ORIGINAL PRICE = $";P 35 PRINT 50 INPUT "DEPRECIATION RATE = ";I 55 PRINT 70 I= I/ 100 75 PLOT 15,6,2,3,0,23 80 PRINT "--(ENTER YEAR=0 WHEN NO MORE AMOUNTS DESIRED FOR THIS ITEM)--" 85 PLOT 14,6,1,3,0,18,11,9 90 INPUT "YEAR = ";Y 95 Y= ABS (Y) 110 IF Y= 0THEN 155 120 D= P* I* (1- I)^ (Y- I) 125 PLOT 6,3,3,0,26,11 130 PRINT TAB( 23)"DEPRECIATION AMOUNT = $";INT (D* 100+ .5)/ 100 150 GOTO 85 155 PLOT 15,6,2,3,5,30 160 INPUT "MORE DATA (1=YES 0=NO)";X 170 IF X= 1THEN RUN 190 PLOT 1