IDENTIFICATION DIVISION.
       PROGRAM-ID. HITUNG.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 PILIHAN PIC 9.
       01 OPERAND.
           02 OPR1 PIC 9(5).
           02 OPR2 PIC 9(5).
           02 HASIL PIC 9(6).
       01 LAGI PIC A.
       88 IYA VALUE 'Y', 'y'.
       88 TIDAK VALUE 'T', 't'.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       01 MENU-PILIHAN.
           02 LINE 5 COLUMN 15 VALUE 'MENU'
       FOREGROUND-COLOR 3 HIGHLIGHT BLINK.
           02 LINE 7 COLUMN 8 VALUE '1. PENJUMLAHAN'.
           02 LINE 8 COLUMN 8 VALUE '2. PENGURANGAN'.
           02 LINE 9 COLUMN 8 VALUE '3. PERKALIAN'.
           02 LINE 10 COLUMN 8 VALUE '4. PEMBAGIAN'.
           02 LINE 11 COLUMN 8 VALUE '5. KELUAR'.
           02 LINE 13 COLUMN 8 VALUE 'PILIHAN :'.
           02 COLUMN PLUS 2 PIC 9 TO PILIHAN REQUIRED.
       01 INPUTAN.
           02 LINE 17 COLUMN 8 VALUE 'MASUKAN BILANGAN KE 1 : '.
           02 COLUMN PLUS 4 PIC 9(5) TO OPR1.
           02 LINE 18 COLUMN 8 VALUE 'MASUKAN BILANGAN KE 2 : '.
           02 COLUMN PLUS 4 PIC 9(5) TO OPR2.
       01 KELUARAN.
           02 LINE 20 COLUMN 8 VALUE 'HASILNYA :'.
           02 COLUMN PLUS 2 PIC 9(6) FROM HASIL.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY HAPUS-LAYAR.
           DISPLAY MENU-PILIHAN.
           ACCEPT MENU-PILIHAN.
       SELEKSI.
           IF PILIHAN = 1
              GO TO PIL1.
           IF PILIHAN = 2
              GO TO PIL2.
           IF PILIHAN = 3
              GO TO PIL3.
           IF PILIHAN = 4
              GO TO PIL4.
           IF PILIHAN > 4
              GO TO SELESAI.
       PIL1.
           DISPLAY (15, 8) '++PENJUMLAHAN++'.
           DISPLAY INPUTAN.
           ACCEPT INPUTAN.
           COMPUTE HASIL = OPR1 + OPR2.
           DISPLAY (20, 8) 'HASILNYA :', HASIL.
           GO TO MAU-LAGI.
       PIL2.
           DISPLAY (15, 8) '--PENGURANGAN--'.
           DISPLAY INPUTAN.
           ACCEPT INPUTAN.
           SUBTRACT OPR1 FROM OPR2 GIVING HASIL.
           DISPLAY (20, 8) 'HASILNYA :', HASIL.
           GO TO MAU-LAGI.
       PIL3.
           DISPLAY (15, 8) '**PERKALIAN**'.
           DISPLAY INPUTAN.
           ACCEPT INPUTAN.
           MULTIPLY OPR2 BY OPR1 GIVING HASIL.
           DISPLAY (20, 8) 'HASILNYA :', HASIL.
           GO TO MAU-LAGI.
       PIL4.
           DISPLAY (15, 8) '//PEMBAGIAN//'.
           DISPLAY INPUTAN.
           ACCEPT INPUTAN.
           DIVIDE OPR1 BY OPR2 GIVING HASIL.
           DISPLAY (20, 8) 'HASILNYA :', HASIL.
           GO TO MAU-LAGI.
       PIL5.
           GO TO SELESAI.
       MAU-LAGI.
           DISPLAY (23, 4) 'MAU NGITUNG LAGI [Y/T] ? '
           ACCEPT ( , ) LAGI.
           IF IYA GO TO MULAI
           ELSE IF TIDAK GO TO SELESAI.
       SELESAI.
           STOP RUN.