Listing of file='20B' on disk='vmedia/glbr_22.wvd.zip'
# Sector 461, program filename = '20B' 0010 PRINT 0020 PRINT "PRICE"; 0030 INPUT P : PRINT 0040 PRINT "NET SALVAGE VALUE AFTER N YRS."; 0050 INPUT L : PRINT 0060 PRINT "LIFE OF STUDY PERIOD (YRS.)"; 0070 INPUT N : PRINT 0080 PRINT 0090 PRINT "DEPRECIATION RATE=";100*(1-(L/P)^(1/N)) 0100 PRINT : PRINT 0110 PRINT "MORE INPUT (1=YES,0=NO)"; 0120 INPUT P 0130 IF P=1 THEN 10 0140 END