tugas cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. MENU-HITUNG-FISIKA.
AUTHOR. NANDANG.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 KUBUS.
02 SISI PIC 99.
02 ISI-KUBUS PIC 99.
01 SILINDER.
02 JARI-JARI PIC 99.
02 TINGGI PIC 99.
02 ISI-SILINDER PIC 99.
01 PERSEGI-PANJANG.
02 PANJANG PIC 99.
02 LEBAR PIC 99.
02 LUAS 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 '>MENU<'.
02 LINE 6 COLUMN 20 VALUE 'F1). HITUNG KUBUS'.
02 LINE 8 COLUMN 20 VALUE 'F2). HITUNG SILINDER'.
02 LINE 10 COLUMN 20 VALUE 'F3). MENGHITUNG LUAS'.
02 LINE 12 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) 'SISI KUBUS?'
ACCEPT (2, ) SISI WITH PROMPT
COMPUTE ISI-KUBUS = SISI ** 3
DISPLAY (4,5) 'ISI KUBUS ADALAH ='ISI-KUBUS.
GO TO KEMBALI-KE-MENU.
IF TEKAN = 03
DISPLAY (2,5) 'JARI-JARI LINGKARAN?'.
ACCEPT (2, ) JARI-JARI WITH PROMPT.
DISPLAY (3,5) 'TINGGI SILINDER?'.
ACCEPT (3, ) TINGGI WITH PROMPT.
COMPUTE ISI-SILINDER = 3.14 * JARI-JARI ** 2 * TINGGI
DISPLAY (5,5) 'ISI SILINDER ADALAH ='ISI-SILINDER.
GO TO KEMBALI-KE-MENU.
IF TEKAN = 04
DISPLAY (2,5) 'PANJANG ?'.
ACCEPT (2, )PANJANG WITH PROMPT.
DISPLAY (3,5) 'LEBAR:?'.
ACCEPT (3, ) LEBAR WITH PROMPT.
COMPUTE LUAS = PANJANG * LEBAR
DISPLAY (5,5) 'LUAS PERSEGI PANJANG ADALAH ='LUAS.
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.