Devie Afriani

     

       IDENTIFICATION DIVISION.
       PROGRAM-ID. KONDISI.
       AUTHOR. DEVIE.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 BNK PIC 9.
       01 PILIH.
           02 X PIC 9.
           02 Y PIC 9.
           02 Z PIC 9 VALUE 1.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       PROCEDURE DIVISION.
       STR.
           DISPLAY HAPUS-LAYAR.
           DISPLAY 'MASUKKAN KOBINASI 2,3 UNTUK BERHENTI'.
           DISPLAY (2, 10) 'ANGKA 1: '.
           ACCEPT X.
           DISPLAY (3, 10) 'ANGKA 2: '.
           ACCEPT Y.
           IF X = 2 AND Y = 3 AND Z < 4 GO TO PROSESDATA         
           ELSE GO TO SALAH.
       PROSESDATA.
           DISPLAY HAPUS-LAYAR.
           DISPLAY 'NAMA :DEVI AFRIANI PRAMITA.
           DISPLAY 'NPM  : 10108549.
           DISPLAY 'KELAS: 2KA08'.
           GO TO SELESAI.
       SALAH.
           DISPLAY HAPUS-LAYAR.
           IF Z = 4 GO TO SEL.
           DISPLAY 'ANDA SALAH MEMASUKKAN KOMBINASI'.
           DISPLAY (2, 1) 'KESALAHAN ANDA :'.
           DISPLAY Z.
           STOP ' '.
           COMPUTE Z = Z + 1.
           GO TO STR.
       SEL.
           DISPLAY HAPUS-LAYAR.
           DISPLAY ' KESEMPATAN ANDA TELAH HABIS'
           STOP ' '.
           STOP RUN.
       SELESAI.
           STOP RUN.