codding letak kampus

      IDENTIFICATION DIVISION.

       PROGRAM-ID. kondisi2.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

       77 Jawab PIC A.

       PROCEDURE DIVISION.

       Tanya.

           DISPLAY "Masukkan Kode Kampus berupa huruf [ D/E/J/K ] ?? " .

           ACCEPT Jawab.

       Seleksi-Jawab.

           IF Jawab = "D" GO TO Kode-D.

           IF Jawab = "E" GO TO Kode-E.

           IF Jawab = "J" GO TO Kode-J.

           IF Jawab = "K" GO TO Kode-K.

       Kode-D.

           DISPLAY "Kampus Depok".

           GO TO Selesai.

       Kode-E.

           DISPLAY "Kampus Kelapa Dua".

           GO TO Selesai.

       Kode-J.

           DISPLAY "Kampus Kalimalang".

           GO TO Selesai.

       Kode-K.

           DISPLAY "Kampus Kemang".

           GO TO Selesai.

       Selesai.

           STOP RUN.