Source Program Cobol Menu Makanan dan Minuman.

ketikan source ini pada program cobol, dan lihat sendiri hasilnya ^_^ semoga bermanfaat.    


       IDENTIFICATION DIVISION.
       PROGRAM-ID. MENU3.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 MAKAN PIC 9(5)
       01 MINUM PIC 9999.
       01 HARGA PIC 9(5).

       77 TEKAN PIC 99.
       77 PILIH PIC X.
       77 TULIS PIC X.
       77 TULIS2 PIC X.

       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.

       01 LAYAR-MENU.
           02 LINE 3 COLUMN 30 VALUE ' === Daftar Menu === '.
           02 LINE 6 COLUMN 20 VALUE 'F1. Makanan'.
           02 LINE 7 COLUMN 20 VALUE 'F2. Minuman'.
           02 LINE 8 COLUMN 20 VALUE 'F3. Total'.
           02 LINE 10 COLUMN 20 VALUE 'Esc. KELUAR'.
           02 LINE 15 COLUMN 20 VALUE 'Masukan Pilihan : '.
           02 COLUMN PLUS 1 PIC X TO PILIH.
       
       PROCEDURE DIVISION.
       TAMPILKAN-MENU.
           DISPLAY HAPUS-LAYAR.
           MOVE SPACE TO PILIH.
           DISPLAY LAYAR-MENU.
           ACCEPT LAYAR-MENU.
           ACCEPT TEKAN FROM ESCAPE KEY.
           DISPLAY HAPUS-LAYAR.
 
       SELEKSI-PILIHAN.
           IF TEKAN = 01
             GO TO SELESAI.
           IF TEKAN = 02
             GO TO MAKANAN.
           IF TEKAN = 03
             GO TO MINUMAN.
           IF TEKAN = 04
             GO TO TOTAL.
           ELSE
             GO TO TAMPILKAN-MENU.

       MAKANAN.
           DISPLAY HAPUS-LAYAR
           DISPLAY ( 1, 20 ) '###### Daftar Makanan ###### '.
           DISPLAY ( 3, 5 ) 'Nama Makanan'.
           DISPLAY ( 3, 30 ) 'Harga Makanan'.
           DISPLAY ( 5, 5 ) '1. Nasi Goreng'.
           DISPLAY ( 5, 28 ) '| Rp. 10.000'.
           DISPLAY ( 6, 5 ) '2. Soto Ayam + NASI'.
           DISPLAY ( 6, 28 ) '| RP. 12.000'.
           DISPLAY ( 7, 5 ) '3. Ayam Bakar + NASI'.
           DISPLAY ( 7, 28 ) '| RP. 15.000'.
           DISPLAY ( 15, 1 ) 'Masukan Pilihan Makanan : '
           ACCEPT TULIS.

           IF TULIS = 1
           GO TO NASGOR.
           IF TULIS = 2
           GO TO SOTO.
           IF TULIS = 3
           GO TO AYAM
           ELSE
           GO TO MAKANAN.

       NASGOR.
           DISPLAY ( 17, 1 )'Anda memilih Nasi Goreng = Rp 10.000'.
           COMPUTE MAKAN = 10000.
           STOP ' '.
           GO TO TAMPILKAN-MENU.

       SOTO.  
           DISPLAY ( 17, 1 )'Memilih Soto Ayam+Nasi= Rp 12.000'.
           COMPUTE MAKAN = 1200.
           STOP ' '.
           GO TO TAMPILKAN-MENU.
           
       AYAM.
           DISPLAY ( 17, 1 )'Memilih Ayam Bakar+Nasi= Rp 15.000'.
           COMPUTE MAKAN = 15000.
           STOP ' '.
           GO TO TAMPILKAN-MENU.
 
       MINUMAN.
           DISPLAY HAPUS-LAYAR
           DISPLAY ( 1, 20 ) '###### Daftar Minuman ###### '.
           DISPLAY ( 3, 5 ) 'Nama Minuman'.
           DISPLAY ( 3, 30 ) 'Harga Minuman'.
           DISPLAY ( 5, 5 ) '1. Air Mineral'.
           DISPLAY ( 5, 28 ) '| Rp. 1.000'.
           DISPLAY ( 6, 5 ) '2. Teh Manis'.
           DISPLAY ( 6, 28 ) '| RP. 2.000'.
           DISPLAY ( 7, 5 ) '3. Capucino'.
           DISPLAY ( 7, 28 ) '| RP. 5.000'.
           DISPLAY ( 15, 1 ) 'Masukan Pilihan Minuman : '
           ACCEPT TULIS2.

           IF TULIS2 = 1
           GO TO AER.
           IF TULIS2 = 2
           GO TO TEH.
           IF TULIS2 = 3
           GO TO CAPU.
           ELSE
           GO TO MINUMAN.

       AER.
           DISPLAY ( 17, 1 )'Anda memilih Air Mineral = Rp 1.000'.
           COMPUTE MINUM = 1000.
           STOP ' '.
           GO TO TAMPILKAN-MENU.

       TEH.  
           DISPLAY ( 17, 1 )'Anda Memilih Teh Manis = Rp 2.000'.
           COMPUTE MINUM = 2000.
           STOP ' '.
           GO TO TAMPILKAN-MENU.
           
       CAPU.
           DISPLAY ( 17, 1 )'Anda Memilih Capucino = Rp 5.000'.
           COMPUTE MINUM = 5000.
           STOP ' '.
           GO TO TAMPILKAN-MENU.

          
       TOTAL. 
           DISPLAY HAPUS-LAYAR.
           DISPLAY ( 1, 20 ) '###### Total Harga ###### '.
           DISPLAY ( 3, 5 ) ' MAKANAN       : Rp 'MAKAN.
           DISPLAY ( 4, 5 ) ' MINUMAN       : Rp  'MINUM.
           DISPLAY ( 6, 5 ) ' ------------------------ + '.
           COMPUTE HARGA = MAKAN + MINUM.
           DISPLAY ( 8, 5 )' TOTAL HARGA   = Rp ' HARGA.
           STOP ' '.
           GO TO KEMBALI-KE-MENU.
          
       KEMBALI-KE-MENU.
           DISPLAY ( 20, 5 )'TEKAN ENTER UNTUK KEMBALI KE MENU'.
           STOP ' '.
           GO TO TAMPILKAN-MENU.
        SELESAI.
             STOP RUN.