tabel 1 nama -_-

       IDENTIFICATION DIVISION.
       PROGRAM-ID. TABEL.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 BUTUH.
            02 NAMA PIC A(10).
            02 KELAS PIC X(5).
            02 NPM PIC 9(8).
            02 UTS PIC 9(2).
            02 UAS PIC 9(2).
            02 N PIC 9(2).
            02 RATA PIC Z(3),V9(2).

       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.

        01 BUAT.
           02 LINE 01 COLUMN 20 VALUE '--- UNIVERSITAS GUNADARMA ---'.
           02 LINE 02 COLUMN 20 VALUE '---    DATA MAHASISWA     ---'.

       PROCEDURE DIVISION.
       MULAI.
           DISPLAY HAPUS.
           DISPLAY BUAT.
           DISPLAY ' '.
           DISPLAY(05,01) 'Data Mahasiswa yang ingin di masukan : '.
           ACCEPT N.

       KETIGA.
           DISPLAY HAPUS-LAYAR.
           DISPLAY BUAT.
           DISPLAY(15,04)'NAMA'.
           DISPLAY(15,15)'KELAS'.
           DISPLAY(15,22)'NPM'.
           DISPLAY(15,33)'UTS'.
           DISPLAY(15,39)'UAS'.
           DISPLAY(15,44)'RATA-RATA'.

       KEEMPAT.
           DISPLAY(05,01) 'Masukan Nama Mahasiswa : '.
           ACCEPT NAMA.
           DISPLAY(06,01) 'Masukan Kelas          : '.
           ACCEPT KELAS.
           DISPLAY(07,01) 'Masukan NPM            : '.
           ACCEPT NPM.
           DISPLAY(08,01) 'Masukan Nilai UTS      : '.
           ACCEPT UTS.
           DISPLAY(09,01) 'Masukan Nilai UAS      : '.
           ACCEPT UAS.
           COMPUTE RATA = (UTS + UAS) / 2.
           DISPLAY(16,04)NAMA.
           DISPLAY(16,15)KELAS.
           DISPLAY(16,22)NPM.
           DISPLAY(16,33)UTS.
           DISPLAY(16,39)UAS.
           DISPLAY(16,44)RATA.
           STOP ' '.
       SELESAI.
           STOP RUN.