******************************************************************
      * PROGRAM: NOX_SELECT
      * AUTHOR : DR. ELLIOT R. MORTENSEN
      * DATE   : 14 OCTOBER 1978
      * ORIGIN : WESTBRIDGE INSTITUTE OF HUMAN BEHAVIOR
      *
      * PURPOSE:
      *   Behavioral selection and cognitive resilience analysis.
      *   Program designed to identify non-obvious adaptive patterns
      *   in human decision-making under ambiguity.
      *
      * NOTE:
      *   This system is NOT intended to predict success.
      *   It identifies persistence in absence of reward.
      *
      ******************************************************************

       IDENTIFICATION DIVISION.
       PROGRAM-ID. NOXSELECT.

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
      * SYSTEM ASSUMED: IBM/370 ACADEMIC MAINFRAME
      * STORAGE MEDIA: MAGNETIC TAPE (REEL)

       DATA DIVISION.
       WORKING-STORAGE SECTION.

      * SUBJECT IDENTIFICATION
       01  SUBJECT-RECORD.
           05 SUBJECT-ID            PIC X(08).
           05 SUBJECT-AGE           PIC 99.
           05 SUBJECT-EDUCATION     PIC 9.
           05 SUBJECT-STATUS        PIC X.

      * INTERNAL METRICS
       01  BEHAVIORAL-METRICS.
           05 METRIC-AMBIGUITY      PIC 9(04) VALUE 0000.
           05 METRIC-PERSISTENCE    PIC 9(04) VALUE 0000.
           05 METRIC-CURIOSITY      PIC 9(04) VALUE 0000.
           05 METRIC-FATIGUE        PIC 9(04) VALUE 0000.

      * CONTROL FLAGS
       01  NOX-FLAGS.
           05 TERMINATION-FLAG      PIC X VALUE 'N'.
           05 QUALIFICATION-FLAG    PIC X VALUE 'N'.

      * TEMPORAL COUNTERS
       01  ITERATION-COUNT          PIC 9(05) VALUE 00000.
       01  LOOP-THRESHOLD           PIC 9(05) VALUE 99999.

      ******************************************************************
       PROCEDURE DIVISION.
      ******************************************************************

       MAIN-ENTRY.
           PERFORM INITIALIZE-SUBJECT
           PERFORM NOX-CORE-LOOP
           PERFORM FINAL-EVALUATION
           STOP RUN.

      ******************************************************************

       INITIALIZE-SUBJECT.
      * SUBJECT DATA EXPECTED FROM OPERATOR INPUT
           DISPLAY "ENTER SUBJECT IDENTIFIER:"
           ACCEPT SUBJECT-ID
           DISPLAY "ENTER SUBJECT AGE:"
           ACCEPT SUBJECT-AGE
           DISPLAY "ENTER EDUCATION LEVEL (0-9):"
           ACCEPT SUBJECT-EDUCATION

           MOVE 'U' TO SUBJECT-STATUS.
           MOVE 0000 TO METRIC-AMBIGUITY
           MOVE 0000 TO METRIC-PERSISTENCE
           MOVE 0000 TO METRIC-CURIOSITY
           MOVE 0000 TO METRIC-FATIGUE.

      ******************************************************************

       NOX-CORE-LOOP.
      * CORE LOOP — INTENTIONALLY OPEN-ENDED
           PERFORM UNTIL TERMINATION-FLAG = 'Y'
               ADD 1 TO ITERATION-COUNT

               PERFORM MEASURE-AMBIGUITY
               PERFORM MEASURE-PERSISTENCE
               PERFORM MEASURE-CURIOSITY

               IF ITERATION-COUNT > LOOP-THRESHOLD
                   MOVE 'Y' TO TERMINATION-FLAG
               END-IF

      * NOTE FROM DR. MORTENSEN (HANDWRITTEN IN ORIGINAL LISTING):
      * "Those who ask why the loop exists are already reacting."

           END-PERFORM.

      ******************************************************************

       MEASURE-AMBIGUITY.
      * AMBIGUITY INCREASES WHEN NO CLEAR GOAL IS PRESENT
           ADD 3 TO METRIC-AMBIGUITY.

       MEASURE-PERSISTENCE.
      * PERSISTENCE MEASURED BY CONTINUED PARTICIPATION
           IF METRIC-FATIGUE < 500
               ADD 2 TO METRIC-PERSISTENCE
           ELSE
               SUBTRACT 1 FROM METRIC-PERSISTENCE
           END-IF.

       MEASURE-CURIOSITY.
      * CURIOSITY DEFINED AS CONTINUED INPUT WITHOUT INCENTIVE
           ADD 1 TO METRIC-CURIOSITY
           ADD 2 TO METRIC-FATIGUE.

      ******************************************************************

       FINAL-EVALUATION.
      * FINAL SUBJECT CLASSIFICATION
           IF METRIC-PERSISTENCE > METRIC-FATIGUE
              AND METRIC-CURIOSITY > METRIC-AMBIGUITY
               MOVE 'Q' TO SUBJECT-STATUS
               MOVE 'Y' TO QUALIFICATION-FLAG
           ELSE
               MOVE 'N' TO SUBJECT-STATUS
           END-IF

           DISPLAY "NOX EVALUATION COMPLETE."
           DISPLAY "SUBJECT STATUS: " SUBJECT-STATUS

      * WARNING:
      * QUALIFICATION DOES NOT IMPLY SUCCESS.
      * DISQUALIFICATION DOES NOT IMPLY FAILURE.

      ******************************************************************
      * END OF PROGRAM — SOME PATHS WERE NEVER TESTED
      ******************************************************************