Membuat menu pilihan dengan cobol

Disini saya akan membuat program menu pilihan menggunakan cobol. Saya hanya membuat tiga menu pilihan.

LISTING PROGRAM :

        IDENTIFICATION DIVISION.

       PROGRAM-ID. GOTO1.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

       77 JAWAB PIC X.

       PROCEDURE DIVISION.

       TANYAKAN.

               DISPLAY '====================='.

                  DISPLAY '1. MAKAN'.

               DISPLAY '2. MINUM'.

                  DISPLAY '3. EXIT'.

               DISPLAY '====================='.

               DISPLAY 'PILIH KATEGORI YANG KAMU INGINKAN ? '.

                  ACCEPT JAWAB.

       SELEKSI.

                  IF JAWAB = '1' GO TO MAKAN.

                  IF JAWAB = '2' GO TO MINUM.

                  IF JAWAB = '3' GO TO SELESAI.

       MAKAN.

               DISPLAY ' '.

                 DISPLAY 'ANDA HARUS MEMBAYAR Rp.2000'.

                 GO TO SELESAI.

       MINUM.

                 DISPLAY ' '.

              DISPLAY 'ANDA HANYA MEMBAYAR Rp.500'.

             DISPLAY 'UNTUK MINUM SEPUASNYA'.

       SELESAI.

                STOP RUN.

Output yang tampil jika user memilih nomor 1 :

Output yang tampil jika user memilih nomor 2 :

Output yang tampil jika user memilih nomor 3, program akan langsung berhenti (keluar) :