IDENTIFICATION DIVISION.
       PROGRAM-ID. MENU.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.

       01 KUBUS.
           02 SISI PIC 99V99.
           02 LUAS-KUBUS PIC Z(8).99.
       01 BALOK.
           02 PANJANG PIC 99V99.
           02 LEBAR PIC 99V99.
           02 TINGGI PIC 99V99.
           02 LUAS-BALOK PIC Z(8).99.
       01 LAYANG-LAYANG.
           02 DIAGONAL1 PIC 99V99.
           02 DIAGONAL2 PIC 99V99.
           02 LUAS-LAYANG-LAYANG PIC Z(8).99.
       77 TEKAN PIC 99.
       77 PILIH PIC X.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       01 LAYAR-MENU.
           02 LINE 3 COLUMN 10 VALUE '< >'.
           02 LINE 5 COLUMN 10 VALUE 'F1. MENGHITUNG LUAS KUBUS'.
           02 LINE 7 COLUMN 10 VALUE 'F2. MENGHITUNG LUAS BALOK'.
           02 LINE 9 COLUMN 10 VALUE 'F3. MENGHITUNG LUAS LAYANG'.
           02 LINE 11 COLUMN 10 VALUE 'ESC. SELESAI'.
           02 LINE 13 COLUMN 10 VALUE 'PILIH YANG MANA ?'.
           02 LINE 13 COLUMN 30 PIC X TO PILIH.
       PROCEDURE DIVISION.
       TAMPILKAN-MENU.
           DISPLAY HAPUS-LAYAR.
           MOVE SPACE TO PILIH.
           DISPLAY LAYAR-MENU.
           ACCEPT LAYAR-MENU.
           ACCEPT TEKAN FROM ESCAPE KEY.
           DISPLAY HAPUS-LAYAR.

       SELEKSI-PILIHAN.
           IF TEKAN = 1
           GO TO SELESAI.

           IF TEKAN = 2
           DISPLAY (2,5) 'SISI KUBUS ?'.
           ACCEPT (2, ) SISI.
           COMPUTE LUAS-KUBUS = SISI*SISI*SISI.
           DISPLAY (4,5)'LUAS KUBUS ADALAH = 'LUAS-KUBUS.
           GO TO KEMBALI-KE-MENU.

           IF TEKAN = 3
           DISPLAY (2,7) 'PANJANG BALOK ?'.
           ACCEPT (2, ) PANJANG.
           DISPLAY (3,7) 'LEBAR BALOK ?'.
           ACCEPT (3, ) LEBAR.
           DISPLAY (5,7) 'TINGGI BALOK ?'.
           ACCEPT (4, ) TINGGI.
           COMPUTE LUAS-BALOK = PANJANG*LEBAR*TINGGI.
           DISPLAY (6,7) 'LUAS BALOK ADALAH = 'LUAS-BALOK.
           GO TO KEMBALI-KE-MENU.

           IF TEKAN = 4
           DISPLAY (2,5) 'DIAGONAL1 LAYANG-LAYANG ?'.
           ACCEPT (2, ) DIAGONAL1.
           DISPLAY (3,5) 'DIAGONAL2 LAYANG-LAYANG ?'.
           ACCEPT (3, ) DIAGONAL2.
           COMPUTE LUAS-LAYANG-LAYANG = 0.5*(DIAGONAL1+DIAGONAL2).
           DISPLAY (5,5) 'LUAS LAYANG-LAYANG ADALAH = 'LUAS-LAYANG-LAYANG.
           GO TO KEMBALI-KE-MENU.
       ELSE
       GO TO TAMPILKAN-MENU.
       KEMBALI-KE-MENU.
           DISPLAY (15,5).
           DISPLAY ' '.
           STOP 'TEKAN SEMBARANG UNTUK KEMBALI KE MENU'.
           GO TO TAMPILKAN-MENU.
       SELESAI.
           STOP RUN.