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.