Listing of file='13B ' on disk='vmedia/glbr_22.wvd.zip'
# Sector 455, program filename = '13B' 0010 PRINT 0020 PRINT "PRINCIPAL"; 0030 INPUT P : PRINT 0040 PRINT "SUM AFTER N YRS."; 0050 INPUT S : PRINT 0060 PRINT "NO. OF YRS."; 0070 INPUT N : PRINT 0080 PRINT 0090 PRINT "EFFECTIVE INTEREST RATE=";((S/P)^(1/N)-1)*100 0100 PRINT : PRINT 0120 PRINT "MORE INPUT (1=YES,0=NO)"; 0130 INPUT P 0140 IF P=1 THEN 10 0150 END