Program Sederhana COBOL : ARRAY

Codingan :
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ARRAY.
       AUTHOR. JESSY.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 I PIC 9.
       01 J PIC 9.
       01 CETAK.
           02 M1 PIC Z9.
       01 DATA1.
           02 BARIS1 OCCURS 2 TIMES.
              03 MATRIKS1 OCCURS 2 TIMES PIC 999.
       SCREEN SECTION.
       01 HAPUS.
           02 BLANK SCREEN.
       PROCEDURE DIVISION.
       MULAI.
           MOVE 3 TO LIN.
           DISPLAY HAPUS.
           PERFORM ISI1 VARYING I FROM 1 BY 1 UNTIL I > 2
           AFTER J FROM 1 BY 1 UNTIL J > 2.
           COMPUTE LIN = 10.
           DISPLAY HAPUS.
           PERFORM HASIL VARYING I FROM 1 BY 1 UNTIL I > 2
           AFTER J FROM 1 BY 1 UNTIL J > 2.
           GO TO SELESAI.
       ISI1.
           DISPLAY(3 , 2 ) 'MATRIKS A'.
           COMPUTE LIN = LIN + 1.
           DISPLAY(LIN, 2) ' ELEMEN BARIS KE-', I ,
           ' KOLOM KE- ', J , ':'.                    
           ACCEPT MATRIKS1(I, J).
       HASIL.
           MOVE I TO LIN.
           MOVE J TO COL.
           MOVE MATRIKS1(I, J) TO M1.
           COMPUTE LIN = LIN * 2.
           COMPUTE COL = COL * 4.
           DISPLAY(LIN, COL + 1) M1.
           DISPLAY SPACE.
       SELESAI.
           STOP RUN.
             
OUTPUT :