COBOL

IDENTIFICATION DIVISION.
PROGRAM-ID. MENU.
AUTHOR. NOVI.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TAMBAH.
02 A PIC 99.
02 B PIC 99.
02 HASIL PIC 99.
01 KURANG.
02 A PIC 99.
02 B PIC 99.
02 HASIL PIC 99.
01 KALI.
02 A PIC 99.
02 B PIC 99.
02 HASIL PIC 99.
01 BAGI.
02 A PIC 99.
02 B PIC 99.
02 HASIL PIC 99.
77 TEKAN PIC 99.
77 PILIH PIC X.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
01 LAYAR-MENU.
02 LINE 3 COLUMN 20 VALUE '<>'.
02 LINE 6 COLUMN 20 VALUE 'F1.)PENAMBAHAN'.
02 LINE 8 COLUMN 20 VALUE 'F2.)PENGURANGAN'.
02 LINE 10 COLUMN 20 VALUE 'F3.)PERKALIAN'.
02 LINE 12 COLUMN 20 VALUE 'F4.)PEMBAGIAN'.
02 LINE 14 COLUMN 20 VALUE 'ESC.SELESAI'.
02 LINE 20 COLUMN 20 VALUE 'PILIH YANG MANA?'.
02 LINE 20 COLUMN 40 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 = 01.
GO TO SELESAI.
IF TEKAN = 02.
DISPLAY (2,5) 'A= '.
ACCEPT (2, ) A WITH PROMPT.
DISPLAY (3,5) 'B= '.
ACCEPT (3, ) B WITH PROMPT.
COMPUTE HASIL = A+B.
DISPLAY (4,5) 'HASIL= ' HASIL.
GO TO KEMBALI-KE-MENU.
IF TEKAN = 03.
DISPLAY (2,5) 'A= '.
ACCEPT (2, ) A WITH PROMPT.
DISPLAY (3,5) 'B= '.
ACCEPT (3, ) B WITH PROMPT.
COMPUTE HASIL = A-B.
DISPLAY (4,5) 'HASIL= ' HASIL.
GO TO KEMBALI-KE-MENU.
IF TEKAN = 04.
DISPLAY (2,5) 'A= '.
ACCEPT (2, ) A WITH PROMPT.
DISPLAY (3,5) 'B= '.
ACCEPT (3, ) B WITH PROMPT.
COMPUTE HASIL = A*B.
DISPLAY (4,5) 'HASIL= ' HASIL.
GO TO KEMBALI-KE-MENU.
IF TEKAN = 05.
DISPLAY (2,5) 'A= '.
ACCEPT (2, ) A WITH PROMPT.
DISPLAY (3,5) 'B= '.
ACCEPT (3, ) B WITH PROMPT.
COMPUTE HASIL = A/B.
DISPLAY (4,5) 'HASIL= ' HASIL.
GO TO KEMBALI-KE-MENU.
ELSE
GO TO TAMPILKAN-MENU.
KEMBALI-KE-MENU.
DISPLAY (20,5) 'TEKAN SEMBARANG UNTUK KEMBALI KE MENU'.
STOP 'TEKAN SEMBARANG UNTUK KEMBALI KE MENU'.
GO TO TAMPILKAN-MENU.
SELESAI.
STOP RUN.