LA - PERTEMUAN 4

       IDENTIFICATION DIVISION.
       PROGRAM-ID. TULIS.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
            SELECT MHS ASSIGN TO DISK
            ORGANIZATION IS LINE SEQUENTIAL
            FILE STATUS IS ERR.
       DATA DIVISION.
       FILE SECTION.
       FD MHS
            LABEL RECORD IS STANDARD
            VALUE OF FILE-ID IS 'DATA.TXT'
            DATA RECORD IS RECMHS.
       01 RECMHS.
            02 NAMA PIC X(25).
            02 NPM PIC X(8).

       WORKING-STORAGE SECTION.
       77 ERR PIC X(2).
       01 ISI-LAGI PIC X.
            88 LAGI VALUE 'Y', 'y'.
            88 TIDAK VALUE 'T', 't'.

       SCREEN SECTION.
       01 HAPUS-LAYAR.
            02 BLANK SCREEN.
       01 ISI-DATA.
            02 LINE 3 COLUMN 5 'NAMA : ' HIGHLIGHT.
            02 COLUMN PLUS 1 PIC X(25) TO NAMA.
            02 LINE 4 COLUMN 5 'NPM : ' HIGHLIGHT.
            02 COLUMN PLUS 1 PIC X(8) TO NPM.
       PROCEDURE DIVISION.
       BUKA-FILE.
            OPEN OUTPUT MHS.
       MULAI.
            DISPLAY HAPUS-LAYAR
            DISPLAY ISI-DATA
            ACCEPT ISI-DATA.
            WRITE RECMHS
            DISPLAY(10, 5) 'ADA DATA LAGI (Y/T) ? '
            ACCEPT( , ) ISI-LAGI.
            IF LAGI GO TO MULAI.
       SELESAI.
            CLOS MHS.
            STOP RUN.