codding 5 waktu indonesia

      IDENTIFICATION DIVISION.

       PROGRAM-ID. HARI.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

       77 pilihan PIC 9.

       PROCEDURE DIVISION.

       pilih-hari.

           DISPLAY(2, 2) "Pilih salah 1 waktu Indonesia ( 1...3 ) = ".

           ACCEPT ( , ) pilihan.

           GO TO waktu-1, waktu-2, waktu-3  DEPENDING ON  pilihan.

           GO TO pesan-salah.

       waktu-1.

           DISPLAY (4, 2) "Waktu Indonesia Bagian Barat".

           GO TO akhir-program.

       waktu-2.

           DISPLAY (4, 2) "Waktu Indonesia Bagian Tengah".

           GO TO akhir-program.

        waktu-3.

           DISPLAY (4, 2) "Waktu Indonesia Bagian Timur".

           GO TO akhir-program.

        pesan-salah.

           DISPLAY (4, 2) "Kode yang dimasukkan salah !!!".

        akhir-program.

           STOP RUN.