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