IDENTIFICATION DIVISION.
      *
       PROGRAM-ID.    SHELSRTT.
      *
       DATE-WRITTEN.  05/03/90.
      *
      *    MODIFIED   10/18/97.
      *u
      *        *******************************
      *        *                             *
      *        *     Judson D. McClendon     *
      *        *     Sun Valley Systems      *
      *        *     329 37th Court N.E.     *
      *        *     Birmingham, AL 35215    *
      *        *        205-853-8440         *
      *        *                             *
      *        *******************************
      *
       ENVIRONMENT DIVISION.
      *
       CONFIGURATION SECTION.
      *
       INPUT-OUTPUT SECTION.
      *
       FILE-CONTROL.
      *
       DATA DIVISION.
      *
       FILE SECTION.
      *
       WORKING-STORAGE SECTION.
      *
       COPY wstore.cbl.
      *
       PROCEDURE DIVISION.
      *
           move 7 to ws-elements
      *
      ******************************************************************
      *                                                                *
      *                         C O N T R O L                          *
      *                                                                *
      ******************************************************************
      *
       L000000-cONTROL.
      *
           PERFORM L000200-PROCESS
              THRU L000200-eXIT
               UNTIL (WS-Elements > WS-ANSWER).
      *
       L000000-eXIT.
           STOP RUN.
      *                        P R O C E S S
      *
       L000200-pROCESS.
      *
           PERFORM L000200.
           PERFORM L000200.
           PERFORM L000200.
           PERFORM L000200.
      *
       L000200.
           DISPLAY "HI".
      *
       L000200-eXIT.
           EXIT.