Listing Waktu Cobol

       IDENTIFICATION DIVISION.
       PROGRAM-ID. WAKTU.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 PILIHAN PIC 9.
       PROCEDURE DIVISION.
       PILIH-WAKTU.
           DISPLAY(2, 2) "PILIH SALAH SATU WAKTU INDONESIA (1..3) ?".
           ACCEPT( , ) PILIHAN.
           IF PILIHAN = 1 GO TO WAKTU-1.
           IF PILIHAN = 2 GO TO WAKTU-2.
           IF PILIHAN = 3 GO TO WAKTU-3.
           GO TO LAINNYA.
       WAKTU-1.
           DISPLAY(4, 2) "WIB".
           GO TO AKHIR.
       WAKTU-2.
           DISPLAY(4, 2) "WIT".
           GO TO AKHIR.
       WAKTU-3.
           DISPLAY(4, 2) "WITA".
           GO TO AKHIR.
       LAINNYA.
           DISPLAY(4, 2) "ANDA SALAH PILIH".
       AKHIR.
           STOP RUN.