image of READY prompt

Wang2200.org

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