IDENTIFICATION DIVISION.
		PROGRAM-ID. LA_IVANS_KONDISI.
		AUTHOR. IVANS.

		ENVIRONMENT DIVISION.

		DATA DIVISION.
		WORKING-STORAGE SECTION.
		77 JAWAB PIC 9.
		
		PROCEDURE DIVISION.
		MULAI.
			DISPLAY "MASUKAN KODE HARI [1 .. 7] : ".
			ACCEPT JAWAB.
		SELEKSI.
			IF JAWAB = 1 GO TO SENIN.
			IF JAWAB = 2 GO TO SELASA.
			IF JAWAB = 3 GO TO RABU.
			IF JAWAB = 4 GO TO KAMIS.
			IF JAWAB = 5 GO TO JUMAT.
			IF JAWAB = 6 GO TO SABTU.
			IF JAWAB = 7 GO TO MINGGU.
			GO TO PILIHAN-SALAH
			STOP RUN.
		SENIN.
			DISPLAY "HARI SENIN".
			GO TO SELESAI.
		SELASA.
			DISPLAY "HARI SELASA".
			GO TO SELESAI.
		RABU.
			DISPLAY "HARI RABU".
			GO TO SELESAI.
		KAMIS.
			DISPLAY "HARI KAMIS".
			GO TO SELESAI.
		JUMAT.
			DISPLAY "HARI JUMAT".
			GO TO SELESAI.
		SABTU.
			DISPLAY "HARI SABTU".
			GO TO SELESAI.
		MINGGU.
			DISPLAY "HARI MINGGU".
			GO TO SELESAI.
		PILIHAN-SALAH.
			DISPLAY "KODE YANG DIMASUKAN SALAH".
			GO TO SELESAI.
		SELESAI.
			STOP RUN.