Listing of file='10B' on disk='vmedia/glbr_22.wvd.zip'
# Sector 803, program filename = '10B' 0010 PRINT 0020 PRINT "PRICE" 0030 INPUT P : PRINT 0040 PRINT "ANNUAL INTEREST RATE (%)" 0050 INPUT I : PRINT 0060 PRINT "LIFE OF STUDY PERIOD (YRS)" 0070 INPUT N : PRINT 0080 PRINT "PROSPECTIVE NET SALVAGE VALUE AT END OF STUDY PERIOD" 0090 INPUT L : PRINT 0100 PRINT 0110 I=I/100 0120 R=(1+I)^N 0130 R=(P-L)*(I*R/(R-1))+L*I 0140 PRINT "ANNUAL DEBT PAYMENT=$";INT(R*100+.5)/100 0150 PRINT 0160 PRINT 0170 PRINT "MORE INPUT (1=YES,0=NO)" 0180 INPUT P 0190 IF P=1 THEN 10 0200 END