performvsgoto3.cob

       IDENTIFICATION DIVISION.
       PROGRAM-ID.  CRAZY_CODE_CAFE.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       PROCEDURE DIVISION.
       ENTER-ROUTINE.
           PERFORM APPETIZER THRU MAIN-COURSE.
           DISPLAY "PAY CHECK".
           STOP RUN.
       APPETIZER.
           DISPLAY "EAT APPETIZER".
           GO TO DESSERT.
       MAIN-COURSE.
           DISPLAY "EAT MAIN COURSE".
       DESSERT.
           DISPLAY "EAT DESSERT".
           GO TO MAIN-COURSE.