Membuat Program Hitung Dengan Array

IDENTIFICATION DIVISION.
PROGRAM-ID. HITUNG.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 PILIHAN PIC 9.
01 OPERAND.
02 OPR1 PIC 9(5)V99.
02 OPR2 PIC 9(5)V99.
02 HASIL PIC -(7)Z(9)9.ZZ.
01 LAGI PIC A.
88 IYA VALUE 'y' , 'Y'.
88 TIDAK VALUE 'T' , 't'.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
01 MENU-PILIHAN.
02 LINE 5 COLUMN 15 VALUE 'MENU'.
FOREGROUND-COLOR 3 HIGHLIGHT BLINK.
02 LINE 7 COLUMN 8 VALUE '1.PENJUMLAHAN'.
02 LINE 8 COLUMN 8 VALUE '2.PENGURANGAN'.
02 LINE 9 COLUMN 8 VALUE '3.PERKALIAN'.
02 LINE 10 COLUMN 8 VALUE '4.PEMBAGIAN'.
02 LINE 11 COLUMN 8 VALUE '5.KELUAR'.
02 LINE 13 COLUMN 8 VALUE 'PILIHAN'.
02 COLUMN PLUS 2 PIC 9 TO PILIHAN REQUIRED.
01 INPUTAN.
02 LINE 17 COLUMN 8 VALUE 'MASUKAN BILANGAN KE 1:'.
02 COLUMN PLUS 2 PIC 9(5)V99 TO OPR1 REQUIRED.
02 LINE 18 COLUMN 8 VALUE MASUKAN BILANGAN KE 2:'.
02 COLUMN PLUS 2 PIC 9(5)V99 TO OPR2 REQUIRED.
PROCEDURE DIVISION.
MULAI.
DISPLAY HAPUS-LAYAR.
DISPLAY MENU-PILIHAN.
ACCEPT MANU-PILIHAN.
SELEKSI.
IF PILIHAN = 1
GO TO PIL1.
IF PILIHAN = 2
GO TO PIL2.
IF PILIHAN = 3
GO TO PIL3.
IF PILIHAN = 4
GO TO PIL4.
IF PILIHAN > 4
GO TO SELESAI.
PIL1.
DISPLAY ( 15 , 8 ) '++PENJUMLAHAN++'.
DISPLAY INPUTAN.
ACCEPT INPUTAN.
ADD OPR1, OPR2 GIVING HASIL.
DISPLAY ( 20 , 8 ) 'HASILNYA : ' HASIL.
GO TO MAU-LAGI.
PIL2.
DISPLAY ( 15 , 8 ) '--PENGURANGAN--'.
DISPLAY INPUTAN.
ACCEPT INPUTAN.
SUBSTRACT OPR2 FROM OPR1 GIVING HASIL.
DISPLAY ( 20 , 8 ) 'HASILNYA : ' HASIL.
GO TO MAU-LAGI.
PIL3.
DISPLAY ( 15 , 8 ) '**PERKALIAN**'.
DISPLAY INPUTAN.
ACCEPT INPUTAN.
MULTIPLY OPR2 BY OPR1 GIVING HASIL.
DISPLAY ( 20 , 8 ) 'HASILNYA : ' HASIL.
GO TO MAU-LAGI.
PIL4.
DISPLAY ( 15 , 8 ) '/PEMBAGIAN/'.
DISPLAY INPUTAN.
ACCEPT INPUTAN.
DEVIDE OPR1 BY OPR2 GIVING HASIL.
DISPLAY ( 20 , 8 ) 'HASILNYA : ' HASIL.
GO TO MAU-LAGI.
PIL5.
GO TO SELESAI.
MAU-LAGI.
DISPLAY ( 23 , 4 ) 'MAU NGITUNG LAGI [Y/T]?'.
ACCEPT ( , ) LAGI.
IF YA GO TO MULAI.
ELSE IF TIDAK GO TO SELESAI.
SELESAI.
STOP RUN.