Listing of file='19B ' on disk='vmedia/glbr_22.wvd.zip'
# Sector 676, program filename = '19B' 0010 PRINT 0020 PRINT "PRICE"; 0030 INPUT P : PRINT 0040 PRINT "DEPRECIATION RATE (%)"; 0050 INPUT F : PRINT 0055 F=F/100 0060 PRINT "AGE AT END OF YEAR TO BE CONSIDERED"; 0070 INPUT Y : PRINT 0080 PRINT 0090 P=P*F*(1-F)^(Y-1) 0100 PRINT "DEPRECIATION CHARGE=$";INT(100*P+.5)/100 0110 PRINT : PRINT 0120 PRINT "MORE INPUT (1=YES,0=NO)"; 0130 INPUT P 0140 IF P=1 THEN 10 0150 END