1212121

000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. MENU03.
001100 ENVIRONMENT DIVISION.
001200 DATA DIVISION.
001300 WORKING-STORAGE SECTION.
           01 MENU-PICK PIC X VALUE  "N".
               88 PICK-IS-EXIT VALUE "Y".
           01 THE-LENGTH2 PIC 9(5).
           01 THE-WIDTH PIC 9(5).
           01 PRICEPURCHASE PIC 9(5).
           01 FINALPRICE PIC 9(5).
           01 PRICE PIC 9(5).
       PROCEDURE DIVISION.
       PROGRAM-BEGIN.
           MOVE 1 TO MENU-PICK.
       PERFORM GET-AND-DO-PICK
               UNTIL PICK-IS-EXIT.

       PROGRAM-DONE.
       STOP RUN.

       GET-AND-DO-PICK.
       PERFORM GET-THE-MENU-PICK.
               PERFORM DO-THE-MENU-PICK.
               DISPLAY"CONTINUE SHOPPING? Y/N".
               ACCEPT MENU-PICK.
               GET-THE-MENU-PICK.
               PERFORM DISPLAY-THE-MENU.
               PERFORM GET-THE-PRICE.
       DO-THE-MENU-PICK.
               IF MENU-PICK = 1
               MOVE 5 TO PRICE
               ELSE IF MENU-PICK = 2
               MOVE 10 TO PRICE
               ELSE IF MENU-PICK = 3
               MOVE 13 TO PRICE
               ELSE IF MENU-PICK = 4
               MOVE 18 TO PRICE
               ELSE
               DISPLAY"INVALID KEYWORD".


       GO TO GET-THE-MENU-PICK.
               PERFORM KIRA.
       GET-THE-PRICE.
               ACCEPT MENU-PICK.

       DISPLAY-THE-MENU.
               DISPLAY "Pricing".
               DISPLAY " ".
               DISPLAY "1. Clear Glass                     RM5.00/square meter ".
               DISPLAY "2. Frosted Glass                   RM10.00/square meter".
               DISPLAY "3. Sheet Glass                     RM13.00/square meter".
               DISPLAY "4. Patterned Glass                 RM18.00/square meter".
       KIRA.
           DISPLAY "ENTER LENGTH: ".
           ACCEPT THE-LENGTH2.
           DISPLAY "ENTER WIDTH: ".
           ACCEPT THE-WIDTH.
           PERFORM FINAL-BILL.

       FINAL-BILL.
           COMPUTE PRICEPURCHASE = (THE-LENGTH2*THE-WIDTH) * PRICE.
           MOVE PRICEPURCHASE TO FINALPRICE.
           DISPLAY "TOTAL BILL RM: " FINALPRICE.