Menu dengan Cobol

IDENTIFICATION DIVISION.
Program-Id. Ujian.
Author. Yopi.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 var.
02 pilih pic 9.
01 nama pic X(30).
01 kelas pic X(10).
01 npm pic X(10).
01 alas pic 9(4).
01 tinggi pic 9(4).
01 luas pic 9(6).
01 nilai pic 9(2).
01 coba-lagi pic X.
88 ya VALUE 'Y', 'y'.
88 tidak VALUE 'T', 't'.
SCREEN SECTION.
01 cls.
02 BLANK SCREEN.
01 masukan.
02 LINE 5 COLUMN 20 VALUE " MENU ".
02 LINE 6 COLUMN 20 VALUE "========================".
02 LINE 7 COLUMN 20 VALUE "1. BIODATA".
02 LINE 8 COLUMN 20 VALUE "2. LUAS SEGITIGA".
02 LINE 9 COLUMN 20 VALUE "3. LULUS".
02 LINE 10 COLUMN 20 VALUE "4. EXIT".
02 LINE 11 COLUMN 20 VALUE "------------------------".
02 LINE 13 COLUMN 20 VALUE "MASUKKAN PILIHAN ANDA".
02 COLUMN PLUS 2 pic 9 to pilih.
01 seleksi.
02 LINE 15 COLUMN 20 VALUE "INGIN MENCOBA LAGI : ".
02 COLUMN PLUS 2 pic X to coba-lagi.
PROCEDURE DIVISION.
mulai.
DISPLAY cls.
DISPLAY masukan.
ACCEPT masukan.
seleksi1.
IF pilih = 1 go to pil1.
IF pilih = 2 go to pil2.
IF pilih = 3 go to pil3.
IF pilih = 4 go to selesai.
pil1.
DISPLAY cls.
DISPLAY (6, 20)"Nama : ".
ACCEPT ( , )nama.
DISPLAY (7, 20)"NPM : ".
ACCEPT ( , )npm.
DISPLAY (8, 20)"Kelas : ".
ACCEPT ( , )kelas.
DISPLAY (10, 20)"Nama Anda : ", nama.
DISPLAY (11, 20)"NPM Anda : ", npm.
DISPLAY (12, 20)"Kelas : ", kelas.
DISPLAY seleksi.
ACCEPT seleksi.
IF ya go to mulai.
IF tidak go to selesai.
STOP RUN.
pil2.
DISPLAY cls.
DISPLAY (6, 20)"Alas : ".
ACCEPT ( , )alas.
DISPLAY (7, 20)"Tinggi : ".
ACCEPT ( , )tinggi.
COMPUTE luas = (alas * tinggi) / 2.
DISPLAY (9, 20)"Luas : ", luas.
DISPLAY seleksi.
ACCEPT seleksi.
IF ya go to mulai.
IF tidak go to selesai.
STOP RUN.
pil3.
DISPLAY cls.
DISPLAY (6, 20)"Masukan Nilai : ".
ACCEPT ( , )nilai.
IF nilai not > 70
DISPLAY (8, 20)"TIDAK LULUS".
IF nilai not < 70
DISPLAY (8, 20)" ANDA LULUS".
DISPLAY seleksi.
ACCEPT seleksi.
IF ya go to mulai.
IF tidak go to selesai.
STOP RUN.
selesai.
DISPLAY cls.
DISPLAY (10, 35) "BERHASIL".
STOP RUN.