ENVIRONMENT DIVISION.
DATA DIVISION.
01 BIODATA.
02 NAMA PIC A(20).
02 KELAS PIC X(5).
02 NPM PIC X(8)
SCREEN SECTION.
01 HAPUS.
02 BLANK SCREEN.
PROCEDURE DIVISION.
BIODATA-DATA.
DISPLAY (, ) 'INPUT NAMA : '.
ACCEPT NAMA.
DISPLAY (, ) 'INPUT KELAS : '.
ACCEPT KELAS.
DISPLAY (, ) 'INPUT NPM : '.
ACCEPT NPM.
DISPLAY SPACE.
DISPLAY HAPUS.
DISPLAY NAMA.
DISPLAY KELAS.
DISPLAY NPM.
BIODATA-SELESAI.
ACCEPT NAMA.
STOP RUN.
OUTPUT 1 |
OUTPUT 2 |
Tidak ada komentar:
Posting Komentar