IDENTIFICATION DIVISION.
       PROGRAM-ID. BANKSYSTEM.

       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.