Operasi Perkalian dan Pembagian Cobol

Identification Division.
       Program-Id. Menuutama.
       Author. Desintha.

       Data Division.
       Working-Storage Section.
       01 Inputan.
           02 Pil Pic X(1).
               88 Satu Value '1'.
               88 Dua Value '2'.

           02 YaTidak Pic X(1).
               88 Ya Value 'y', 'Y'.
               88 Tidak Value 't', 'T'.
      
           02 Perkalian1 Pic 9(3).
           02 Perkalian2 Pic 9(3).
           02 HasilPerkalian Pic 9(3).

           02 Pembagian1 Pic 9(3).
           02 Pembagian2 Pic 9(3).
           02 HasilPembagian Pic 9(3).
           02 Anykey Pic X(1).

       Screen Section.
       01 Hapus-Layar.
           02 Blank Screen.

       01 Menu-Utama.
           02 Line 6 Column 20 Value '********** Menu Utama **********'
           Foreground-Color 13.
           02 Line 8 Column 20 Value ' 1. Operasi Perkalian           '
           Foreground-Color 13.
           02 Line 9 Column 20 Value ' 2. Operasi Pembagian           '
           Foreground-Color 13.
           02 Line 11 Column 20 Value 'Masukkan Pilihan Anda [1..2] : '
           Foreground-Color 13.
           02 Line 11 Column 51 Pic X To Pil
           Foreground-Color 13.

       Procedure Division.
       Tampilkanmenuutama.
           Display Hapus-Layar.
           Display Menu-Utama.
           Accept Menu-Utama.
           If Satu Go To Inperkalian.
           If Dua Go To Inpembagian.

       Inperkalian.
           Display Hapus-Layar.
           Display 'Masukkan Angka Pertama : '.
           Accept Perkalian1.
           Display 'Masukkan Angka Kedua   : '.
           Accept Perkalian2.
           Display " ".
           Display " ".
           Display 'Ingin masukkan angka lagi? (Y/T) '.
           Accept YaTidak.
           If Ya Go To Inperkalian.
           If Tidak Go To Outperkalian.

       Outperkalian.
           Display Hapus-Layar.
           Compute HasilPerkalian = Perkalian1 * Perkalian2.
           Display '***** Hasil Operasi Perkalian *****'.
           Display 'Angka Pertama : ', Perkalian1.
           Display 'Angka Kedua   : ', Perkalian2.
           Display 'Hasil         : ', HasilPerkalian.
           Display " ".
           Display 'Tekan tombol apa saja untuk kembali '.
           Accept Anykey.
           Go To Tampilkanmenuutama.

       Inpembagian.
           Display Hapus-Layar.
           Display 'Masukkan Angka Pertama : '.
           Accept Pembagian1.
           Display 'Masukkan Angka Kedua   : '.
           Accept Pembagian2.
           Display " ".
           Display " ".
           Display 'Ingin masukkan angka lagi? (Y/T) '.
           Accept YaTidak.
           If Ya Go To Inpembagian.
           If Tidak Go To Outpembagian.

       Outpembagian.
           Display Hapus-Layar.
           Compute HasilPembagian = Pembagian1 / Pembagian2.
           Display '***** Hasil Operasi Pembagian *****'.
           Display 'Angka Pertama : ', Pembagian1.
           Display 'Angka Kedua   : ', Pembagian2.
           Display 'Hasil         : ', HasilPembagian.
           Display " ".
           Display 'Tekan tombol apa saja untuk kembali '.
           Accept Anykey.
           Go To Tampilkanmenuutama.

       Selesai.
           Display Hapus-Layar.
           Stop Run.