Program Cobol : Menu

IDENTIFICATION DIVISION.
PROGRAM-ID. Menu.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 SATU.
    02 NAMA PIC A(20).
    02 NPM PIC X(8).
    02 KELAS PIC X(6).
01 DUA.
    02 ALAS PIC 9(2).
    02 TINGGI PIC 9(2).
    02 LUAS PIC 9(2).
01 TIGA.
    02 UTS PIC 9(2).
    02 UAS PIC 9(2).
    02 NILAI PIC 9(3).
01 TANYA.
    88 LAGI VALUE 'Y','y'.
    88 TIDAK VALUE 'T','t'.
77 PILIH PIC 9(1).
SCREEN SECTION.
01 HAPUS.
    02 BLANK SCREEN.
01 INPUTAN.
    02 LINE 9 COLUMN 10 VALUE 'NAMA: '.
    02 COLUMN PLUS 2 PIC A(20) TO NAMA.
    02 LINE 10 COLUMN 10 VALUE 'NPM: '.
    02 COLUMN PLUS 2 PIC X(8) TO NPM.
    02 LINE 11 COLUMN 10 VALUE 'KELAS: '.
    02 COLUMN PLUS 2 PIC X(7) TO KELAS.
01 MASUKKAN.
    02 LINE 9 COLUMN 10 VALUE 'ALAS: '.
    02 COLUMN PLUS 2 PIC 9(2) TO ALAS.
    02 LINE 10 COLUMN 10 VALUE 'TINGGI: '.
    02 COLUMN PLUS 2 PIC 9(2) TO TINGGI.
01 TES.
    02 LINE 9 COLUMN 10 VALUE 'UTS: '.
    02 COLUMN PLUS 2 PIC 9(2) TO UTS.
    02 LINE 10 COLUMN 10 VALUE 'UAS: '.
    02 COLUMN PLUS 2 PIC 9(2) TO UAS.
01 OUTPUTAN,
    02 LINE 13 COLUMN 10 VALUE 'NAMA ANDA: '.
    02 COLUMN PLUS 1 PIC A(20) FROM NAMA.
    02 LINE 14 COLUMN 10 VALUE 'NPM ANDA: '.
    02 COLUMN PLUS 1 PIC X(2) FROM NPM.
    02 LINE 15 COLUMN 10 VALUE 'KELAS ANDA: '.
    02 COLUMN PLUS 1 PIC X(2) FROM KELAS.
01 KELUARAN.
    02 LINE 13 COLUMN 10 VALUE 'LUAS SEGITIGA: '.
    02 COLUMN PLUS 2 PIC 9(2) FROM LUAS.
01 THB.
    02 LINE 13 COLUMN 10 VALUE 'HASIL UJIAN: '.
    02 COLUMN PLUS 2 PIC 9(2) FROM NILAI.
PROCEDURE DIVISION.
MULAI.
    DISPLAY HAPUS.
    DISPLAY (9 , 10) '1. BIODATA'.
    DISPLAY (10 , 10) '2. LUAS SEGITIGA'.
    DISPLAY (11 , 10) '3. NILAI UJIAN'.
    DISPLAY (12 , 10) '4. EXIT'.
    DISPLAY (13 , 10) 'MASUKKAN PILIHAN [1..4]'.
    ACCEPT PILIH.
    GO TO PIL1, PIL2, PIL3, PIL4 DEPENDING ON PILIH.
    DISPLAY (15, 10) "MAAF PILIHAN TIDAK ADA".
PIL1.
    DISPLAY HAPUS.
    DISPLAY INPUTAN.
    ACCEPT INPUTAN.
    DISPLAY OUTPUTAN.
    GO TO AKU.
PIL2.
    DISPLAY HAPUS.
    DISPLAY MASUKKAN.
    ACCEPT MASUKKAN.
    COMPUTE LUAS = (ALAS * TINGGI) / 2.
    DISPLAY KELUARAN.
    GO TO AKU.
PIL3.
    DISPLAY HAPUS.
    DISPLAY TES.
    ACCEPT TES.
    COMPUTE NILAI = (UTS + UAS) / 2.
    DISPLAY THB.
    IF NILAI > 55 DISPLAY (14, 10) "LULUS".
    IF NILAI < 55 DISPLAY (14, 10) "GAGAL".
PIL4.
   DISPLAY HAPUS.
   DISPLAY (10, 8) 'TERIMA KASIH TELAH MENGGUNAKAN PROGRAM KAMI'.
   GO TO SELESAI.
AKU.
   DISPLAY (20 , 10) 'KEMBALI KE MENU Y/T'.
   ACCEPT TANYA.
   IF LAGI GO TO MULAI ELSE GO TO PIL4.
SELESAI.
   STOP RUN.