Program Kalkulator & Biodata COBOL (LA AP3 1)

       IDENTIFICATION DIVISION.
       PROGRAM-ID. LA1.
       AUTHOR. BAYU.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.     
       01 KALKU.
         02 A PIC 9(3).
         02 B PIC 9(3).
         02 tambah PIC z(4).
         02 kurang PIC z(4).
         02 kali PIC z(4).
         02 bagi PIC z(4).
       01 BIO.
         02 nama PIC x(15).
         02 kelas PIC x(15).
         02 npm PIC x(15).
       PROCEDURE DIVISION.
       MULAI.
         DISPLAY (2 , 4) '=========KALKULATOR=========='.
         DISPLAY (3 , 4) 'Masukan Angka Pertama  : '.
         ACCEPT A.
         DISPLAY (4 , 4) 'Masukan Angka Kedua  : '.
         ACCEPT B.
         DISPLAY (5 , 4) '===========OUTPUT============'.
         COMPUTE tambah = A + B.
         COMPUTE kurang = A - B.
         COMPUTE kali = A * B.
         COMPUTE bagi = A / B.
         DISPLAY (6 , 4) 'HASIL + : ', tambah.
         DISPLAY (7 , 4) 'HASIL - : ', kurang.
         DISPLAY (8 , 4) 'HASIL * : ', kali.
         DISPLAY (9 , 4) 'HASIL / : ', bagi.
         DISPLAY (12 , 4) '===========BIODATA==========='.
         DISPLAY (13 , 4) 'Masukan Nama   : '.
         ACCEPT nama.
         DISPLAY (14 , 4) 'Masukan Kelas  : '.
         ACCEPT kelas.
         DISPLAY (15 , 4) 'Masukan NPM   : '.
         ACCEPT npm.
         DISPLAY (16 , 4) '============OUTPUT==========='.
         DISPLAY (17 , 4) 'Nama   : ', nama.
         DISPLAY (18 , 4) 'Kelas  : ', kelas.
         DISPLAY (19 , 4) 'NPM   : ', npm.
         STOP RUN.