image of READY prompt

Wang2200.org

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