The future value program

 
**********************!? What goes here ?!**************************
 ENVIRONMENT DIVISION.
 INPUT-OUTPUT SECTION.
 DATA DIVISION.
 WORKING-STORAGE SECTION.
 
 77 NUMBER-ENTERED PIC 9 VALUE 1.
 77 INVESTMENT-AMOUNT PIC 99999.
 77 NUMBER-OF-YEARS PIC 99.
 77 YEARLY-INTEREST-RATE PIC 99V99.
 
 01 WORK-FIELDS.
 05 FUTURE-VALUE PIC 9(7)V99.
 05 YEAR-COUNTER PIC 999.
  05 EDITED-FUTURE-VALUE PIC Z,ZZZ,ZZZ.99.
 
 PROCEDURE DIVISION.
 
 000-CALCULATE-FUTURE-VALUES.
 PERFORM 100-CALCULATE-FUTURE-VALUE
 UNTIL NUMBER-ENTERED = ZERO.
 DISPLAY "END OF SESSION."
 STOP RUN.
 
 100-CALCULATE-FUTURE-VALUE.
 DISPLAY "--------------------------------------------------".
 DISPLAY "TO END THE PROGRAM, ENTER 0.".
 DISPLAY "TO PERFORM ANOTHER CALCULATION, ENTER 1.".
  ACCEPT NUMBER-ENTERED.
 DISPLAY "--------------------------------------------------".
 
 IF NUMBER-ENTERED = 1
 PERFORM 110-GET-USER-VALUES
 MOVE INVESTMENT-AMOUNT TO FUTURE-VALUE
 MOVE 1 TO YEAR-COUNTER
 PERFORM 120-CALCULATE-NEXT-FV
 UNTIL YEAR-COUNTER > NUMBER-OF-YEARS
 MOVE FUTURE-VALUE TO EDITED-FUTURE-VALUE
 DISPLAY "FUTURE VALUE = " EDITED-FUTURE-VALUE.
 
 110-GET-USER-VALUES.
  DISPLAY "ENTER INVESTMENT AMOUNT (XXXXX).".
 ACCEPT INVESTMENT-AMOUNT.
 DISPLAY "ENTER NUMBER OF YEARS (XX).".
 ACCEPT NUMBER-OF-YEARS.
 DISPLAY "ENTER YEARLY INTEREST RATE (XXX).".
 ACCEPT YEARLY-INTEREST-RATE.
 
 120-CALCULATE-NEXT-FV.
 COMPUTE FUTURE-VALUE ROUNDED = 
 FUTURE-VALUE + (FUTURE-VALUE * YEARLY-INTEREST-RATE / 100).
 ADD 1 TO YEAR-COUNTER.