*****************************************************************
      *  WESTBRIDGE INSTITUTE OF HUMAN BEHAVIOR
      *  DEPARTMENT OF COGNITIVE SYSTEMS
      *
      *  PROJECT: NOX
      *  AUTHOR : DR. ELIAS MORTENSEN
      *  DATE   : OCTOBER 17, 1978
      *
      *  PURPOSE:
      *  Behavioral persistence observation under conditions
      *  of ambiguity and delayed feedback.
      *
      *  NOTE:
      *  This system is NOT designed to conclude.
      *****************************************************************

       IDENTIFICATION DIVISION.
       PROGRAM-ID. NOX-CORE.

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.

       01 SUBJECT-STATE.
          05 ATTEMPT-COUNT        PIC 9(05) VALUE ZERO.
          05 CONTINUE-FLAG        PIC X     VALUE 'Y'.
          05 RESPONSE-DELAY       PIC 9(03) VALUE 000.
          05 OBSERVATION-MARKER   PIC X(10) VALUE SPACES.

       01 SYSTEM-STATE.
          05 SILENCE-COUNTER      PIC 9(05) VALUE ZERO.
          05 LOOP-GUARD           PIC 9(05) VALUE ZERO.

       PROCEDURE DIVISION.
       MAIN-LOOP.

           PERFORM INITIAL-OBSERVATION
           PERFORM UNTIL CONTINUE-FLAG NOT = 'Y'
              PERFORM OBSERVE-SUBJECT
              PERFORM WITHHOLD-RESPONSE
              PERFORM RECORD-PERSISTENCE
           END-PERFORM

           STOP RUN.

       INITIAL-OBSERVATION.
           MOVE ZERO TO ATTEMPT-COUNT
           MOVE 'BEGIN' TO OBSERVATION-MARKER
           EXIT.

       OBSERVE-SUBJECT.
           ADD 1 TO ATTEMPT-COUNT
           ADD 1 TO LOOP-GUARD
           IF LOOP-GUARD > 99999
              MOVE 'N' TO CONTINUE-FLAG
           END-IF
           EXIT.

       WITHHOLD-RESPONSE.
           ADD 1 TO SILENCE-COUNTER
           * INTENTIONAL ABSENCE OF FEEDBACK
           * SUBJECT RESPONSE IS NOT REQUIRED
           EXIT.

       RECORD-PERSISTENCE.
           IF ATTEMPT-COUNT > 00010
              MOVE 'QUALIFIED' TO OBSERVATION-MARKER
           END-IF
           EXIT.

      * END OF PROGRAM
      * NOTE: TERMINATION IS A SYSTEM EVENT, NOT A SUBJECT EVENT