[LA] AP3 - PERTEMUAN 2

       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.