program tinggi badan dengan cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. TINGGI.
AUTHOR. DIANCANTIK.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MASUKAN.
02 NAMA PIC X(20).
02 TINGGI PIC X(5).
77 PREDIKAT PIC A(100).
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY (4,4) "NAMA ? ". ACCEPT NAMA.
DISPLAY (6,4) "TINGGI BADAN ANDA ? ". ACCEPT TINGGI.
IF TINGGI>159
MOVE "SELAMAT ANDA TERMASUK TINGGI" TO PREDIKAT
ELSE
MOVE "SAYANG SEKALI ANDA TERMASUK PENDEK" TO PREDIKAT.
DISPLAY HAPUS-LAYAR.
DISPLAY (4,4) "----------- KETERANGAN -----------"
DISPLAY (6,4) "NAMA : ", NAMA.
DISPLAY (8,4) PREDIKAT.
SELESAI.
STOP RUN.