Listing Menu COBOL

Listing COBOL (Menu)

IDENTIFICATION DIVISION.
PROGRAM-ID. HITUNG.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION
01 VARIABEL.
02 PILIHAN PIC 9.
02 SISI PIC 999.
02 PANJANG PIC 999.
02 LEBAR PIC 999.
02 ALAS PIC 999.
02 TINGGI PIC 999.
02 LUAS PIC 99999V,99.
02 LAGI PIC A.

SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
01 MENU-PILIHAN.
02 LINE 3 COLUMN 15 VALUE '===MENU==='.
02 LINE 4 COLUMN 8 VALUE '1.LUAS PERSEGI'.
02 LINE 5 COLUMN 8 VALUE '2.LUAS PERSEGI PANJANG'.
02 LINE 6 COLUMN 8 VALUE '3.LUAS SEGITIGA'.
02 LINE 7 COLUMN 8 VALUE '4.KELUAR'.
02 LINE 9 COLUMN 8 VALUE 'PILIHAN:'.
02 COLUMN PLUS 2 PIC 9 TO PILIHAN .

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 (11, 8)'==LUAS PERSEGI=='.
DISPLAY (12, 8) 'SISI : '.
ACCEPT ( , ) SISI.
COMPUTE LUAS = SISI * SISI.
DISPLAY (14, 8)'LUASNYA = ', LUAS.
GO TO MAU-LAGI.
PIL2.

DISPLAY (11, 8)'==LUAS PERSEGI PANJANG=='.
DISPLAY (12, 8) 'PANJANG : '.
ACCEPT ( , ) PANJANG.
DISPLAY (13, 8) 'LEBAR : '.
ACCEPT ( , ) LEBAR.
COMPUTE LUAS = PANJANG * LEBAR.
DISPLAY (14, 8)'LUASNYA = ', LUAS.
GO TO MAU-LAGI.
PIL3.

DISPLAY (11, 8)'==LUAS SEGITIGA=='.
DISPLAY (12, 8) 'ALAS : '.
ACCEPT ( , ) ALAS.
DISPLAY (13, 8) 'TINGGI : '.
ACCEPT ( , ) TINGGI.
COMPUTE LUAS = (ALAS * TINGGI) / 2.
DISPLAY (14, 8)'LUASNYA = ', LUAS.

GO TO MAU-LAGI.

PIL4.
GO TO SELESAI.

MAU-LAGI.
DISPLAY (17, 8) 'MAU NGITUNG LAGI [Y/T] ? '
ACCEPT( , ) LAGI.
IF LAGI = 'Y' GO TO MULAI.
IF LAGI = 'y' GO TO MULAI.
IF LAGI = 'T' GO TO SELESAI.
IF LAGI = 't' GO TO SELESAI.
SELESAI.
STOP RUN.