IDENTIFICATION DIVISION.
       PROGRAM-ID. KUIS2.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NAMA PIC X(18).
       01 TGL PIC X(2).
       01 MID PIC 9(4).
       01 FIN PIC 9(4).
       01 HASIL PIC ZZZ.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY ( 2 , 2 ) 'NAMA          : '.
           ACCEPT ( 2 , 18 ) NAMA.
           DISPLAY ( 3 , 2 ) 'TANGGAL LAHIR : '.
           ACCEPT ( 3 , 18 ) TGL.
           DISPLAY ( 4 , 2 ) 'NILAI MID     : '.
           ACCEPT ( 4 , 18 ) MID.
           DISPLAY ( 5 , 2 ) 'NILAI FIN     : '.
           ACCEPT ( 5 , 18 ) FIN.
           COMPUTE HASIL = ( MID + FIN ) / 2.
           DISPLAY ( 6 , 2 ) 'TOTAL         : '.
           DISPLAY ( 6 , 18 ) HASIL.
           DISPLAY HAPUS-LAYAR.
           DISPLAY ( 2 , 2 ) 'NAMA          : ' NAMA.
           DISPLAY ( 3 , 2 ) 'TANGGAL LAHIR : ' TGL.
           DISPLAY ( 4 , 2 ) 'NILAI MID     : ' MID.
           DISPLAY ( 5 , 2 ) 'NILAI FIN     : ' FIN.
           DISPLAY ( 6 , 2 ) 'TOTAL         : ' HASIL.
           STOP ' '.
       SELESAI.
           STOP RUN.