IDENTIFICATION DIVISION.
PROGRAM-ID. AP3.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MASUKAN.
02 ALAS PIC 9(2).
02 TINGGI PIC 9(2).
02 HASIL PIC Z(3).
02 PIL PIC 9.
01 HITUNG-LAGI PIC X.
88 LAGI VALUE 'Y', 'y'.
88 TIDAK VALUE 'T', 't'.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
01 MENU.
02 LINE 2 COLUMN 30 VALUE 'MENU'.
02 LINE 4 COLUMN 30 VALUE '1. INPUT'.
02 LINE 5 COLUMN 30 VALUE '2. LUAS SEGITIGA'.
02 LINE 6 COLUMN 30 VALUE '3. LUAS PERSEGI'.
02 LINE 7 COLUMN 30 VALUE '4. KELILING PERSEGI'.
02 LINE 8 COLUMN 30 VALUE '5. KELUAR'.
02 LINE 9 COLUMN 30 VALUE '------------------------'.
02 LINE 11 COLUMN 30 VALUE 'PIL [1-5]: '.
02 LINE 11 COLUMN 37 PIC 9 TO PIL.
PROCEDURE DIVISION.
MULAI.
DISPLAY HAPUS-LAYAR.
DISPLAY MENU
ACCEPT MENU.
IF PIL = 1
PERFORM DATA-MASUKAN.
IF PIL = 2
PERFORM LUAS
GO TO TANYA.
IF PIL = 3
PERFORM LUAS-PERSEGI
GO TO TANYA.
IF PIL = 4
PERFORM KEL-PERSEGI
GO TO TANYA.
IF PIL = 5
GO TO SELESAI.
ELSE
GO TO MULAI.
SELESAI.
STOP RUN.

DATA-MASUKAN.
DISPLAY HAPUS-LAYAR.
DISPLAY (4, 2) 'INPUT ALAS / PANJANG : '
ACCEPT ( , ) ALAS.
DISPLAY (5, 2) 'INPUT TINGGI / LEBAR : '
ACCEPT ( , ) TINGGI.

LUAS.
DISPLAY HAPUS-LAYAR.
COMPUTE HASIL = (ALAS * TINGGI) / 2.
DISPLAY (2, 2) "HASIL"
DISPLAY (4, 2) 'LUAS SEGITIGA : ', HASIL.

LUAS-PERSEGI.
DISPLAY HAPUS-LAYAR.
COMPUTE HASIL = (ALAS * TINGGI).
DISPLAY (2, 2) "HASIL"
DISPLAY (4, 2) 'LUAS PERSEGI: ', HASIL.

KEL-PERSEGI.
DISPLAY HAPUS-LAYAR.
COMPUTE HASIL = (2 * ALAS) + (2 * TINGGI).
DISPLAY (2, 2) "HASIL"
DISPLAY (4, 2) 'KELILING PERSEGI: ', HASIL.

TANYA.
DISPLAY (7, 2) 'LAGI [Y/T]:'
ACCEPT HITUNG-LAGI.
IF LAGI GO TO MULAI.
IF TIDAK GO TO SELESAI.
IF NOT LAGI AND NOT TIDAK
DISPLAY (9, 2) 'Y/y ATAU T/t'
GO TO TANYA.