Listing of file='21B' on disk='vmedia/glbr_22.wvd.zip'
# Sector 562, program filename = '21B' 0010 PRINT 0020 PRINT "PRICE"; 0030 INPUT P : PRINT 0040 PRINT "DEPRECIATION RATE (%)"; 0050 INPUT F : PRINT 0060 PRINT "AGE (YRS.)"; 0070 INPUT N : PRINT 0090 PRINT "SALVAGE VALUE=$";INT(100*P*(1-F/100)^N+.5)/100 0100 PRINT : PRINT 0120 PRINT "MORE INPUT (1=YES,0=NO)"; 0130 INPUT P 0140 IF P=1 THEN 10 0150 END