IDENTIFICATION DIVISION.
       PROGRAM-ID. BANK-SYSTEM.

       DATA DIVISION.
       WORKING-STORAGE SECTION.

       01 SALDO-ASAL        PIC 9(9)V99 VALUE 1000000.00.
       01 SALDO-TUJUAN      PIC 9(9)V99 VALUE 500000.00.
       01 PILIHAN           PIC 9 VALUE 0.
       01 JUMLAH            PIC 9(9)V99 VALUE 0.
       01 LANJUT            PIC X VALUE 'Y'.

       PROCEDURE DIVISION.
       MAIN-PROGRAM.

           PERFORM UNTIL LANJUT = 'N'

               DISPLAY "====================================".
               DISPLAY "        SISTEM BANK SEDERHANA       ".
               DISPLAY "====================================".
               DISPLAY "1. Cek Saldo".
               DISPLAY "2. Setor Uang".
               DISPLAY "3. Tarik Uang".
               DISPLAY "4. Transfer".
               DISPLAY "5. Keluar".
               DISPLAY "Pilih Menu (1-5): ".
               ACCEPT PILIHAN.

               EVALUATE PILIHAN
                   WHEN 1
                       PERFORM CEK-SALDO
                   WHEN 2
                       PERFORM SETOR-UANG
                   WHEN 3
                       PERFORM TARIK-UANG
                   WHEN 4
                       PERFORM TRANSFER-UANG
                   WHEN 5
                       MOVE 'N' TO LANJUT
                   WHEN OTHER
                       DISPLAY "Pilihan Tidak Valid!"
               END-EVALUATE

           END-PERFORM.

           DISPLAY "Terima Kasih Telah Menggunakan Sistem Bank".
           STOP RUN.

       CEK-SALDO.
           DISPLAY "Saldo Anda Saat Ini: ", SALDO-ASAL.

       SETOR-UANG.
           DISPLAY "Masukkan Jumlah Setoran: ".
           ACCEPT JUMLAH.
           ADD JUMLAH TO SALDO-ASAL.
           DISPLAY "Setoran Berhasil!".
           DISPLAY "Saldo Sekarang: ", SALDO-ASAL.

       TARIK-UANG.
           DISPLAY "Masukkan Jumlah Penarikan: ".
           ACCEPT JUMLAH.
           IF JUMLAH > SALDO-ASAL
               DISPLAY "Saldo Tidak Cukup!"
           ELSE
               SUBTRACT JUMLAH FROM SALDO-ASAL
               DISPLAY "Penarikan Berhasil!"
           END-IF.
           DISPLAY "Saldo Sekarang: ", SALDO-ASAL.

       TRANSFER-UANG.
           DISPLAY "Masukkan Jumlah Transfer: ".
           ACCEPT JUMLAH.
           IF JUMLAH > SALDO-ASAL
               DISPLAY "Saldo Tidak Cukup!"
           ELSE
               SUBTRACT JUMLAH FROM SALDO-ASAL
               ADD JUMLAH TO SALDO-TUJUAN
               DISPLAY "Transfer Berhasil!"
           END-IF.
           DISPLAY "Saldo Anda Sekarang: ", SALDO-ASAL.