OVERALL                       CAA-SECTION                    ENTRY
OVERALL                       AA-GET-NAME                   YENTRY
OVERALL                       AA-GET-NAME                   CGOTO      AA-GET-NAME
OVERALL                       AA-GET-NAME                   UPERFORM   SET-TABLES
OVERALL                       AA-GET-NAME                   UPERFORM   PROCESS-PROC
OVERALL                       AA-GET-NAME                   USTOP      STOP RUN
OVERALL                       CAA-END                        ENTRY
GET-WORD                      GW-START                      YENTRY
GET-WORD                      GW-START                      UPERFORM   GET-DATA
GET-WORD                      GW-START                      CGOTO      GW-START
GET-WORD                      GW-START                      CPERFORM   SEE-IF-LEVEL
GET-WORD                      GW-START                      CPERFORM   SEE-IF-DATANAME
GET-WORD                      GW-START                      UPERFORM   SCOT
GET-WORD                      GW-END                        YENTRY
SEE-IF-LEVEL                  SL-START                      YENTRY
SEE-IF-LEVEL                  SL-START                      CGOTO      SL-EXIT
SEE-IF-LEVEL                  SL-START                      CGOTO      SL-EXIT
SEE-IF-LEVEL                  SL-START                      CGOTO      SL-EXIT
SEE-IF-LEVEL                  SL-LOOP                       YENTRY
SEE-IF-LEVEL                  SL-LOOP                       CGOTO      SL-FOUND
SEE-IF-LEVEL                  SL-LOOP                       CGOTO      SL-LOOP
SEE-IF-LEVEL                  SL-LOOP                       UGOTO      SL-EXIT
SEE-IF-LEVEL                  SL-FOUND                       ENTRY
SEE-IF-LEVEL                  SL-EXIT                       YENTRY
SEE-IF-DATANAME               SD-START                      YENTRY
SEE-IF-DATANAME               SD-EXIT                       YENTRY
PROCESS-PROC                  KAA-START                     YENTRY
PROCESS-PROC                  KAA-START                     UPERFORM   GET-WORD                      GET-WORD-EXIT
PROCESS-PROC                  KAA-MAIN-LOOP                 YENTRY
PROCESS-PROC                  KAA-MAIN-LOOP                 CGOTO      KAA-MAIN-END
PROCESS-PROC                  KAA-POSIT                     YENTRY
PROCESS-PROC                  KAA-UNTIL                     YENTRY
PROCESS-PROC                  KAA-UNTIL                     CGOTO      KAA-ADMIT
PROCESS-PROC                  KAA-UNTIL                     CGOTO      KAA-END-UNTIL
PROCESS-PROC                  KAA-UNTIL                     UPERFORM   BUILD
PROCESS-PROC                  KAA-UNTIL                     UPERFORM   GET-WORD
PROCESS-PROC                  KAA-UNTIL                     UGOTO      KAA-UNTIL
PROCESS-PROC                  KAA-END-UNTIL                  ENTRY
PROCESS-PROC                  KAA-PROCESS-PROC               ENTRY
PROCESS-PROC                  KBA-LOOP                       ENTRY
PROCESS-PROC                  KBA-LOOP                      CGOTO      KAA-ADMIT
PROCESS-PROC                  KBA-LOOP                      CGOTO      KBA-END
PROCESS-PROC                  KBA-LOOP                      CPERFORM   PRINT-ERROR
PROCESS-PROC                  KBA-LOOP                      CPERFORM   PUT-IGNORE                    PUT-IGNORE-EXIT
PROCESS-PROC                  KBA-LOOP                      CPERFORM   BUILD
PROCESS-PROC                  KBA-LOOP                      UPERFORM   GET-WORD
PROCESS-PROC                  KBA-LOOP                      UGOTO      KBA-LOOP
PROCESS-PROC                  KBA-END                        ENTRY
PROCESS-PROC                  KBA-END                       CPERFORM   PRINT-ERROR
PROCESS-PROC                  KBA-END                       CPERFORM   PRINT-ERROR
PROCESS-PROC                  KBA-END                       UPERFORM   BUILD
PROCESS-PROC                  KBA-END                       UPERFORM   GET-WORD
PROCESS-PROC                  KBE-LOOP                      YENTRY
PROCESS-PROC                  KBE-LOOP                      CPERFORM   PRINT-ERROR
PROCESS-PROC                  KBE-LOOP                      CGOTO      KAA-ADMIT
PROCESS-PROC                  KBE-LOOP                      CPERFORM   BUILD
PROCESS-PROC                  KBE-LOOP                      CPERFORM   GET-WORD
PROCESS-PROC                  KBE-LOOP                      CGOTO      KBE-LOOP
PROCESS-PROC                  KBE-LOOP                      CPERFORM   BUILD
PROCESS-PROC                  KBE-LOOP                      CPERFORM   GET-WORD
PROCESS-PROC                  KBE-LOOP                      CGOTO      KBE-LOOP
PROCESS-PROC                  KBE-LOOP                      CPERFORM   PUT-IGNORE
PROCESS-PROC                  KBE-LOOP                      CPERFORM   PRINT-ERROR
PROCESS-PROC                  KBE-LOOP                      CPERFORM   GET-WORD
PROCESS-PROC                  KBE-LOOP                      CGOTO      KBE-LOOP
PROCESS-PROC                  KBE-LOOP                      UPERFORM   BUILD
PROCESS-PROC                  KBE-LOOP                      UPERFORM   GET-WORD
PROCESS-PROC                  KBB-LOOP                      YENTRY
PROCESS-PROC                  KBB-LOOP                      CPERFORM   PRINT-ERROR
PROCESS-PROC                  KBB-LOOP                      CGOTO      KAA-ADMIT
PROCESS-PROC                  KBB-LOOP                      CGOTO      KBB-NEXT
PROCESS-PROC                  KBB-LOOP                      CGOTO      KBB-END
PROCESS-PROC                  KBB-LOOP                      UPERFORM   BUILD
PROCESS-PROC                  KBB-LOOP                      UPERFORM   GET-WORD
PROCESS-PROC                  KBB-LOOP                      UGOTO      KBB-LOOP
PROCESS-PROC                  KBB-END                        ENTRY
PROCESS-PROC                  KBB-END                       UPERFORM   PUT-WORD
PROCESS-PROC                  KBB-END                       UPERFORM   PUT-FULLSTOP
PROCESS-PROC                  KBB-NEXT                      YENTRY
PROCESS-PROC                  KBB-NEXT                      CPERFORM   PUT-FULLSTOP
PROCESS-PROC                  KBB-NEXT                      CPERFORM   PUT-SPACE
PROCESS-PROC                  KBB-NEXT                      CPERFORM   GET-WORD
PROCESS-PROC                  KBB-NEXT                      UPERFORM   PUT-PARAGRAPH
PROCESS-PROC                  KBB-NEXT                      CGOTO      KBB-EPROC-LOOP
PROCESS-PROC                  KBG-LOOP                      YENTRY
PROCESS-PROC                  KBG-LOOP                      CPERFORM   PRINT-ERROR
PROCESS-PROC                  KBG-LOOP                      CGOTO      KAA-ADMIT
PROCESS-PROC                  KBG-LOOP                      CPERFORM   PRINT-ERROR
PROCESS-PROC                  KBG-LOOP                      CGOTO      KAA-PROCESS-EPROC
PROCESS-PROC                  KBG-LOOP                      CPERFORM   GET-WORD
PROCESS-PROC                  KBG-LOOP                      CGOTO      KBG-PSV
PROCESS-PROC                  KBG-LOOP                      CPERFORM   GET-WORD
PROCESS-PROC                  KBG-LOOP                      CGOTO      KBG-THREAD
PROCESS-PROC                  KBG-LOOP                      CPERFORM   GET-WORD
PROCESS-PROC                  KBG-LOOP                      CGOTO      KBG-END
PROCESS-PROC                  KBG-LOOP                      CGOTO      KBG-END
PROCESS-PROC                  KBG-LOOP                      UPERFORM   BUILD
PROCESS-PROC                  KBG-LOOP                      UPERFORM   GET-WORD
PROCESS-PROC                  KBG-LOOP                      UGOTO      KBG-LOOP
PROCESS-PROC                  KBG-PSV                        ENTRY
PROCESS-PROC                  KBG-PSV                       CPERFORM   PRINT-ERROR
PROCESS-PROC                  KBG-PSV                       CPERFORM   PUT-ENDFILE
PROCESS-PROC                  KBG-PSV                       CGOTO      KAA-ADMIT
PROCESS-PROC                  KBG-PSV                       CPERFORM   BUILD
PROCESS-PROC                  KBG-PSV                       CPERFORM   GET-WORD
PROCESS-PROC                  KBG-PSV                       CGOTO      KBG-PSV
PROCESS-PROC                  KBG-PSV                       CGOTO      KBG-LOOP
PROCESS-PROC                  KBG-PSV                       UPERFORM   GET-WORD
PROCESS-PROC                  KBG-PSV                       UGOTO      KBG-LOOP
PROCESS-PROC                  KBG-THREAD                     ENTRY
PROCESS-PROC                  KBG-THREAD                    CPERFORM   PRINT-ERROR
PROCESS-PROC                  KBG-THREAD                    CPERFORM   PUT-ENDFILE
PROCESS-PROC                  KBG-THREAD                    CGOTO      KAA-ADMIT
PROCESS-PROC                  KBG-THREAD                    CPERFORM   BUILD
PROCESS-PROC                  KBG-THREAD                    CPERFORM   GET-WORD
PROCESS-PROC                  KBG-THREAD                    CGOTO      KBG-THREAD
PROCESS-PROC                  KBG-THREAD                    CGOTO      KBG-LOOP
PROCESS-PROC                  KBG-THREAD                    UPERFORM   GET-WORD
PROCESS-PROC                  KBG-THREAD                    UGOTO      KBG-LOOP
PROCESS-PROC                  KBG-END                        ENTRY
PROCESS-PROC                  KBH-PROCTYPE                   ENTRY
PROCESS-PROC                  KBH-PROCTYPE                  CPERFORM   PUT-WS
PROCESS-PROC                  KBH-PROCTYPE                  CPERFORM   PUT-WS
PROCESS-PROC                  KBH-PROCTYPE                  CPERFORM   PUT-WS
PROCESS-PROC                  KBH-PROCTYPE                  CPERFORM   PUT-WORD
PROCESS-PROC                  KBH-PROCTYPE                  CPERFORM   PUT-FULLSTOP
PROCESS-PROC                  KBH-PROCTYPE                  CPERFORM   PUT-SPACE
PROCESS-PROC                  KBH-PROCTYPE                  CPERFORM   PUT-WS
PROCESS-PROC                  KBH-PROCTYPE                  CPERFORM   PUT-WS
PROCESS-PROC                  KBH-PROCTYPE                  CPERFORM   PUT-WS
PROCESS-PROC                  KBH-PROCTYPE                  CPERFORM   PUT-PSVNAME
PROCESS-PROC                  KBH-PROCTYPE                  CPERFORM   PUT-FULLSTOP
PROCESS-PROC                  KBH-PROCTYPE                  CPERFORM   PUT-SPACE
PROCESS-PROC                  KBH-PROCTYPE                  CPERFORM   PUT-ENTRY
PROCESS-PROC                  KBH-PROCTYPE                  CPERFORM   PUT-GOTO
PROCESS-PROC                  KBH-PROCTYPE                  CPERFORM   PUT-WS
PROCESS-PROC                  KBH-PROCTYPE                  CPERFORM   PUT-FULLSTOP
PROCESS-PROC                  KBH-PROCTYPE                  CPERFORM   PUT-SPACE
PROCESS-PROC                  KBH-PROCTYPE                  CPERFORM   PUT-ENTRY
PROCESS-PROC                  KBB-EPROC-LOOP                YENTRY
PROCESS-PROC                  KBC-LOOP                      YENTRY
PROCESS-PROC                  KBC-LOOP                      CPERFORM   PRINT-ERROR
PROCESS-PROC                  KBC-LOOP                      CGOTO      KAA-PROCESS-EPROC
PROCESS-PROC                  KBC-LOOP                      CGOTO      KAA-PROCESS-EPROC
PROCESS-PROC                  KBC-LOOP                      CPERFORM   BUILD
PROCESS-PROC                  KBC-LOOP                      CPERFORM   GET-WORD
PROCESS-PROC                  KBC-LOOP                      CGOTO      KBC-LOOP
PROCESS-PROC                  KBD-SELECT                    YENTRY
PROCESS-PROC                  KBD-SELECT                    CPERFORM   PROCESS-STRUCTURE
PROCESS-PROC                  KBD-SELECT                    CGOTO      KBD-END
PROCESS-PROC                  KBD-SELECT                    CPERFORM   PROCESS-SREAD
PROCESS-PROC                  KBD-SELECT                    CGOTO      KBD-END
PROCESS-PROC                  KBD-SELECT                    CPERFORM   GET-WORD
PROCESS-PROC                  KBD-SELECT                    CGOTO      KBD-END
PROCESS-PROC                  KBD-SELECT                    UPERFORM   PRINT-ERROR
PROCESS-PROC                  KBD-SELECT                    UPERFORM   GET-WORD
PROCESS-PROC                  KBD-END                       YENTRY
PROCESS-PROC                  KBD-END                       UGOTO      KBB-EPROC-LOOP
PROCESS-PROC                  KAA-PROCESS-EPROC              ENTRY
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-WS
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-WS
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-WS
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-PSVNAME
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-FULLSTOP
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-SPACE
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-UPDATEPSV
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-FULLSTOP
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-SPACE
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-GOTO
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-WORD
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-PARAGRAPH
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-SPACE
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-WS
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-WS
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-WS
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-WORD
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-FULLSTOP
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-SPACE
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-WS
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-WS
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-WS
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-WS
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-GOTO
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-WORD
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-FULLSTOP
PROCESS-PROC                  KAA-PROCESS-EPROC             CPERFORM   PUT-SPACE
PROCESS-PROC                  KAA-PROCESS-EPROC             CGOTO      KAA-WRITE-EPROC
PROCESS-PROC                  KAA-PROCESS-EPROC             UPERFORM   PUT-WS
PROCESS-PROC                  KAA-PROCESS-EPROC             UPERFORM   PUT-PSVNAME
PROCESS-PROC                  KAA-PROCESS-EPROC             UPERFORM   PUT-WS
PROCESS-PROC                  KAA-PROCESS-EPROC             UPERFORM   PUT-WS
PROCESS-PROC                  KAA-PROCESS-EPROC             UPERFORM   PUT-WS
PROCESS-PROC                  KAA-PROCESS-EPROC             UPERFORM   PUT-WS
PROCESS-PROC                  KAA-PROCESS-EPROC             UPERFORM   PUT-WS
PROCESS-PROC                  KAA-PROCESS-EPROC             UPERFORM   PUT-THEN
PROCESS-PROC                  KAA-PROCESS-EPROC             UPERFORM   PUT-WS
PROCESS-PROC                  KAA-PROCESS-EPROC             UPERFORM   PUT-WS
PROCESS-PROC                  KAA-PROCESS-EPROC             UPERFORM   PUT-WS
PROCESS-PROC                  KAA-PROCESS-EPROC             UPERFORM   PUT-PSVNAME
PROCESS-PROC                  KAA-PROCESS-EPROC             UPERFORM   PUT-FULLSTOP
PROCESS-PROC                  KAA-PROCESS-EPROC             UPERFORM   PUT-SPACE
PROCESS-PROC                  KAA-PROCESS-EPROC             UPERFORM   PUT-GOTO
PROCESS-PROC                  KAD-LOOP                      YENTRY
PROCESS-PROC                  KAD-LOOP                      CGOTO      KAD-END
PROCESS-PROC                  KAD-LOOP                      UPERFORM   PUT-WORD
PROCESS-PROC                  KAD-LOOP                      UPERFORM   PUT-COMMA
PROCESS-PROC                  KAD-LOOP                      UPERFORM   PUT-SPACE
PROCESS-PROC                  KAD-LOOP                      UGOTO      KAD-LOOP
PROCESS-PROC                  KAD-END                        ENTRY
PROCESS-PROC                  KAD-END                       UPERFORM   PUT-WS
PROCESS-PROC                  KAD-END                       UPERFORM   PUT-WS
PROCESS-PROC                  KAD-END                       UPERFORM   PUT-PSVNAME
PROCESS-PROC                  KAD-END                       UPERFORM   PUT-FULLSTOP
PROCESS-PROC                  KAD-END                       UPERFORM   PUT-SPACE
PROCESS-PROC                  KAD-END                       UPERFORM   PUT-ENTRY
PROCESS-PROC                  KAA-WRITE-EPROC               YENTRY
PROCESS-PROC                  KAA-WRITE-EPROC               UPERFORM   PUT-PARAGRAPH
PROCESS-PROC                  KAA-WRITE-EPROC               UPERFORM   PUT-EXIT
PROCESS-PROC                  KAA-WRITE-EPROC               UPERFORM   PUT-COMMENT
PROCESS-PROC                  KAA-WRITE-EPROC               CPERFORM   PUT-COMMENT
PROCESS-PROC                  KAA-WRITE-EPROC               UGOTO      KAA-MAIN-LOOP
PROCESS-PROC                  KAA-ADMIT                      ENTRY
PROCESS-PROC                  KAA-ADMIT-END                 YENTRY
PROCESS-PROC                  KAA-MAIN-END                  YENTRY
PROCESS-PROC                  KAA-END                       YENTRY
