Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement