ryo

       IDENTIFICATION DIVISION.
       PROGRAM-ID. TUGAS1.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
           SPECIAL-NAMES.
           DECIMAL-POINT is COMMA.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 PERTAMA.
           02 jumlahmenu pic 9.
       01 KEDUA.
           02 harga PIC 9(6).
           02 makanan pic x(20).
           02 HASIL PIC 9(5).
           02 namaorang pic x(20).
       01 buat-tabel.
           02 menupil PIC 9(6) OCCURS 10 TIMES.
           02 porsi PIC 9(2) OCCURS 10 TIMES.
           02 hasil2 PIC 9(6) OCCURS 10 TIMES.
           02 nama pic x(12) occurs 10 times.
       77 PIL PIC 9.
       77 i pic 9.
       77 garis pic x(52) value all "-".
       77 lanjut pic 9.
       01 TANYA PIC A VALUE SPACE.
           88 YA VALUE "Y" "y".
           88 TIDAK VALUE "T" "t".
       01 JUDUL-1.
           02 FILL PIC X(30) VALUE "TABEL TOTAL HARGA MAKANAN ".
       01 JUDUL-2.
           02 FILler PIC X(2) VALUE "| ".
           02 FILL PIC X(17) VALUE "NAMA MAKANAN".
           02 FILL PIC X(2) VALUE "| ".
           02 FILL PIC X(15) VALUE "JUMLAH MAKANAN ".
           02 FILL PIC X(2) VALUE "| ".
           02 FILL PIC X(13) VALUE "TOTAL HARGA".
           02 FILL PIC X(2) VALUE "| ".

       01 tabel.
           02 FILL PIC X(2) VALUE '| '.
           02 namamakanan PIC X(17).
           02 FILL PIC X(2) VALUE '| '.
           02 jumlahmakanan PIC X(15).
           02 FILL PIC X(2) VALUE '| '.
           02 totalharganya PIC ZZZ.ZZZ.ZZZB.
           02 FILL PIC X(3) VALUE ' | '.

       SCREEN SECTION.
       01 HAPUS.
           02 BLANK SCREEN.
       01 MENU-UTAMA.
           02 LINE 4 COLUMN 5 VALUE "=====DAFTAR MENU MAKANAN===="
              FOREGROUND-COLOR 5.
           02 LINE 5 COLUMN 5 VALUE
           "1. BAKSO (HARGA/PORSI : 5000)".
           02 LINE 6 COLUMN 5 VALUE
           "2. AYAM PENYET (HARGA/PORSI : 7000)".
           02 LINE 7 COLUMN 5 VALUE
           "3. NASI GORENG (HARGA/PORSI : 8000)".
           02 LINE 8 COLUMN 5 VALUE
           "4. MIE AYAM (HARGA/PORSI : 7500)".
           02 LINE 9 COLUMN 5 VALUE "MASUKKAN PILIHAN ANDA: ".
       01 menukedua.
           02 LINE 1 COLUMN 5 VALUE "=====KAMI SEDIA===="
              FOREGROUND-COLOR 5.
           02 LINE 2 COLUMN 5 VALUE
           "BAKSO".
           02 LINE 3 COLUMN 5 VALUE
           "AYAM PENYET".
           02 LINE 4 COLUMN 5 VALUE
           "NASI GORENG".
           02 LINE 5 COLUMN 5 VALUE
           "MIE AYAM".
       01 IDENTITAS.
           02 LINE 1 COLUMN 6 VALUE "IDENTITAS PENJUAL".
           02 LINE 2 COLUMN 3 VALUE "NAMA    : PRIADI HARYO PRASOJO"
              FOREGROUND-COLOR 3.
           02 LINE 3 COLUMN 3 VALUE "KELAS   : 2KA19".
           02 LINE 4 COLUMN 3 VALUE "NPM     : 15115387".
           02 LINE 5 COLUMN 3 VALUE "JURUSAN : SI".
           02 LINE 6 COLUMN 3 VALUE "ALAMAT  : KELAPA DUA WETAN 3".
           02 LINE 9 COLUMN 3 VALUE "ENTER UNTUK MELANJUTKAN".
       01 TAMPILAN.
           02 LINE 1 COLUMN 25 VALUE "=PROGRAM DAFTAR MAKANAN="
              HIGHLIGHT FOREGROUND-COLOR 3, BLINK.
           02 LINE 2 COLUMN 25 VALUE "SELAMAT DATANG DI RESTORAN RYO"
              FOREGROUND-COLOR 12.
           02 LINE 8 COLUMN 25 VALUE "ENTER UNTUK MELANJUTKAN".
       01 MENU.
           02 LINE 1 COLUMN 5 VALUE "=====MENU PROGRAM MAKANAN===="
              FOREGROUND-COLOR 5.
           02 LINE 2 COLUMN 5 VALUE "1. INPUT ORDER".
           02 LINE 3 COLUMN 5 VALUE "2. DAFTAR ORDER".
           02 LINE 4 COLUMN 5 VALUE "3. KELUAR".
           02 LINE 5 COLUMN 5 VALUE "MASUKKAN PILIHAN ANDA: ".
       01 keluar.
           01 line 14 column 10 value "yakin ingin keluar? y/t".
       procedure division.
       mulai.
           display hapus.
           display IDENTITAS.
           accept lanjut.
           display hapus.
           display TAMPILAN.
           accept lanjut.
           display hapus.
       menutama.
           display hapus.
           display menu.
           accept pil.
           go to inputanlup daftarpel selesai depending on pil.


       inputanlup.
           go to inputpela.

       daftarpel.
           display hapus.
           display JUDUL-1.
           display space.
           display garis.
           display JUDUL-2.
           display garis.
           perform cupaproses
           varying i from 1 by 1 until i > jumlahmenu.
           display garis.
           accept lanjut.
           go to menutama.
       percobaan.
           display hapus.
           display "INPUT KE : ", i.
           display menu-utama.
           display space.
           display "masukkan pilihan pelanggan (1-4) : ".
           accept menupil(i).
           display "berapa banyak porsinya ? ".
           accept porsi(i).
       inputpela.
           display hapus.
           display menukedua.
           display space.
           display space.
           display "Mau makan berapa menu ? (1-9)"
           accept jumlahmenu.
           display hapus.
           perform percobaan
           varying i from 1 by 1 until i > jumlahmenu.
       berhenti.
           go to menutama.
       cupaproses.
           if menupil(i) = 1 move 5000 to harga.
           if menupil(i) = 2 move 7000 to harga.
           if menupil(i) = 3 move 8000 to harga.
           if menupil(i) = 4 move 7500 to harga.
           move porsi(i) to jumlahmakanan.
           compute HASIL = harga * porsi(i).
           move hasil to totalharganya.
           if menupil(i) = 1 move "BAKSO" to makanan.
           if menupil(i) = 2 move "AYAM PENYET" to makanan.
           if menupil(i) = 3 move "NASI GORENG" to makanan.
           if menupil(i) = 4 move "MIE AYAM" to makanan.
           move makanan to namamakanan.
           display tabel.

       selesai.
           display space.
           display space.
           display space.
           display space.
           display space.
           display space.
           display "yakin ingin keluar? y/t".
           accept tanya.
           if TIDAK go to menutama.