Listing of file='9B' on disk='vmedia/glbr_22.wvd.zip'
# Sector 797, program filename = '9B' 0010 PRINT 0020 PRINT "AMOUNT OF EACH PAYMENT" 0030 INPUT R : PRINT 0040 PRINT "INTEREST RATE/PERIOD (%)" 0050 INPUT I : PRINT 0060 PRINT "TERM OF ANNUITY" 0070 INPUT N : PRINT 0090 I=I/100 0100 PRINT "AMOUNT=$";INT(R*((1+I)^N-1)/I*100+.5)/100 0110 PRINT : PRINT 0120 PRINT "MORE INPUT (1=YES,0=NO)" 0130 INPUT R 0140 IF R=1 THEN 10 0160 END