      SUBROUTINE LIST                                                   00047 
      INTEGER NUMLIN                    !830307 MAO                     00101 
      LOGICAL CNTALL                    !830307 MAO                     00102 
      COMMON/FLINE/CNTALL,NUMLIN        !830307 MAO                     00103 
      INTEGER DTYPE                     !22-JUN-81                      00105 
      COMMON/DIR/DTYPE                                                  00106 
      LOGICAL PASFLG                                    !30JUN81MAO     00108 
      INTEGER CNDLVL                                    !30JUN81MAO     00109 
      INTEGER OFFLVL                                    !30JUN81MAO     00110 
      INTEGER COND                                      !30JUN81MAO     00111 
      INTEGER CNDVAL                                    !30JUN81MAO     00112 
      COMMON/COND/PASFLG,CNDLVL,OFFLVL,COND,CNDVAL(4,10) !30JUN81MAO    00113 
      LOGICAL*2 ALECS,LSTFUL                    !22-JUN-81              00116 
      INTEGER*2 TYPIN,TYPLST,TYPOUT,CHCMNT      !22-JUN-81              00117 
      COMMON/MACVAL/ALECS,TYPIN,TYPLST,TYPOUT,CHCMNT,LSTFUL!22-JUN-81   00118 
      INTEGER ERR1,ERR2                         !821129MAO              00121 
      COMMON/IOERR/ERR1,ERR2                            !821129MAO      00122 
      INTEGER FORMFD                                    !22-JUN-81      00127 
      INTEGER DPAGE                                     !22-JUN-81      00128 
      INTEGER DINCL                                     !29JUN81MAO     00129 
      INTEGER DPEND,DPIF,DPUNL                  !30JUN81MAO             00130 
      INTEGER DNAME                                     !30JUN81MAO     00131 
      INTEGER DIMP                                      !840307MAO      00132 
      INTEGER SNEST,SFNAM,SOPN                  !29JUN81MAO             00133 
      INTEGER SFCONT                                    !830308MAO      00134 
      INTEGER SEPE,SNONAM,STRUN,SMPE                    !30JUN81MAO     00135 
      INTEGER TDIR                                      !22-JUN-81      00136 
      INTEGER TOFF                                      !30JUN81MAO     00137 
      INTEGER SPAGE                                                     00140 
      INTEGER BLN   , CHC   , CHSPAC, CHZERO, CLASS , ERRCL             00143 
      INTEGER CINLIN                                    !25-JAN-80      00144 
      INTEGER ERROR , ERRSTK, ERSTOP, ERTYPE, EXTYPE, FLXNO             00145 
      INTEGER FORTCL, HOLDNO, I     , LEVEL , LINENO                    00146 
      INTEGER LISTCL, LSTLEV                                            00147 
      INTEGER MAJCNT, MINCNT, MLINE , NCHPWD, NUNITS, P                 00148 
      INTEGER PTABLE, QP    , READ  , REFNO , RETRY                     00149 
      INTEGER SB    , SB2   , SB4   , SB6   , SB7   , SCOND             00150 
      INTEGER SDASH , SELSE , SENDER, SETUP , SFIN  , SFLX              00151 
      INTEGER SFSPCR, SHOLD , SICOND, SIELSE, SIFIN , SIFIN2            00152 
      INTEGER SIGN  , SINSRT, SINS2 , SITODM, SIWHEN, SLIST , SMULER    00153 
      INTEGER SNDER1, SNDER2, SNIER1, SNIER2, SOURCE                    00154 
      INTEGER SPINV , SPUTGO, SRDERR, SRP   , SSPACR, SST   , SSTMAX    00155 
      INTEGER STABH , STACK , STODUM, SVER  , SWHEN , SXER1             00156 
      INTEGER SXER2 , SXER3 , SXER4 , SXER5 , TABLCL, TCEXP             00157 
      INTEGER TELSE , TEND  , TEXEC , TFIN  , TOP   , TTO               00158 
      INTEGER ULEN  , USTART, UTYPE , WWIDTH                            00159 
      LOGICAL DONE  , ENDFIL, ENDPGM, ERLST , FIRST , FOUND ,MINER      00166 
      LOGICAL NDERR , NIERR , NOPGM , PASS  , SAVED                     00167 
      DIMENSION  UTYPE(3), USTART(3), ULEN(3)                           00175 
      DIMENSION STACK(2000)                                             00178 
      DIMENSION ERRSTK(5)                                               00181 
      COMMON BLN   , CLASS , DONE  , ENDFIL, ENDPGM, ERLST              00190 
      COMMON ERROR , ERRSTK, ERSTOP, EXTYPE, FIRST , FLXNO              00191 
      COMMON FOUND , HOLDNO, LEVEL , LINENO, LSTLEV, MAJCNT             00192 
      COMMON MINCNT, MLINE , NOPGM , NUNITS, PASS  , PTABLE, QP         00193 
      COMMON REFNO , SAVED , SFLX  , SHOLD , SLIST , SOURCE             00194 
      COMMON SPINV , SPUTGO, SST   , STACK , TOP   , ULEN               00195 
      COMMON USTART, UTYPE , WWIDTH                                     00196 
      COMMON /PARAM/ NCHPWD, CHZERO, CHSPAC, CHC, CINLIN   !25-JAN-80   00232 
      DIMENSION SFLX   (51)                                             00245 
      DIMENSION SHOLD  (51)                                             00247 
      DIMENSION SLIST  (101)                                            00249 
      DIMENSION SPINV  (41)                                             00251 
      DIMENSION SPUTGO (11)                                             00253 
      DIMENSION SST    (101)                                            00255 
      DIMENSION SB     (2)                                              00261 
      DIMENSION SB2    (2)                                              00264 
      DIMENSION SB4    (3)                                              00267 
      DIMENSION SB6    (4)                                              00270 
      DIMENSION SB7    (5)                                              00273 
      DIMENSION SCOND  (10)                                             00276 
      DIMENSION SDASH  (21)                                             00280 
      DIMENSION SELSE  (11)                                             00285 
      DIMENSION SENDER (16)                                             00289 
      DIMENSION SEPE(15)                                !30JUN81MAO     00293 
      DIMENSION SFCONT(26)                              !830308MAO      00297 
      DIMENSION SFIN   (6)                                              00303 
      DIMENSION SFNAM(16)                               !29JUN81MAO     00306 
      DIMENSION SFSPCR (3)                                              00310 
      DIMENSION SICOND (28)                                             00313 
      DIMENSION SIELSE (21)                                             00319 
      DIMENSION SIFIN  (20)                                             00324 
      DIMENSION SIFIN2 (8)                                              00329 
      DIMENSION SIGN   (24)                                             00332 
      DIMENSION SINSRT (20)                                             00337 
      DIMENSION SINS2  (8)                                              00342 
      DIMENSION SITODM (26)                                             00345 
      DIMENSION SIWHEN (21)                                             00351 
      DIMENSION SMPE(12)                                !30JUN81MAO     00356 
      DIMENSION SMULER (23)                                             00360 
      DIMENSION SNDER1 (22)                                             00365 
      DIMENSION SNDER2 (23)                                             00370 
      DIMENSION SNIER1 (24)                                             00375 
      DIMENSION SNIER2 (23)                                             00380 
      DIMENSION SNEST(19)                               !29JUN81MAO     00385 
      DIMENSION SNONAM(17)                              !30JUN81MAO     00390 
      DIMENSION SOPN(17)                                !29JUN81MAO     00394 
      DIMENSION SPAGE(7)                                                00400 
      DIMENSION SRDERR(18)                              !821129MAO      00405 
      DIMENSION SRP    (2)                                              00410 
      DIMENSION SSPACR (3)                                              00413 
      DIMENSION STABH  (20)                                             00416 
      DIMENSION STODUM (13)                                             00421 
      DIMENSION STRUN(25)                                               00425 
      DIMENSION SVER   (12)                                             00431 
      DIMENSION SWHEN  (16)                                             00435 
      DIMENSION SXER1  (28)                                             00439 
      DIMENSION SXER2  (28)                                             00445 
      DIMENSION SXER3  (26)                                             00451 
      DIMENSION SXER4  (16)                                             00457 
      DIMENSION SXER5  (26)                                             00461 
      DATA FORMFD /"14/                                 !22-JUN-81      00472 
      DATA FORTCL /1/, LISTCL /2/, ERRCL /3/                            00473 
      DATA TCEXP/1/, TELSE/2/, TEND/3/, TEXEC/4/, TFIN/5/, TTO/6/       00474 
      DATA TDIR/7/                                      !22-JUN-81      00475 
      DATA TOFF/8/                                      !30JUN81MAO     00476 
      DATA DPAGE/1/                                     !22-JUN-81      00477 
      DATA DINCL/2/                                     !29JUN81MAO     00478 
      DATA DPIF/3/, DPUNL/4/, DPEND/5/          !29JUN81MAO             00479 
      DATA DNAME /6/                                    !30JUN81MAO     00480 
      DATA DIMP  /7/                                    !840307MAO      00481 
      DATA SETUP /1/, RETRY /2/, READ /3/                               00482 
      DATA SSTMAX /200/                                                 00483 
      DATA SB     /  1, 1H /                                            00484 
      DATA SB2    /  2, 2H  /                                           00485 
      DATA SB4    /  4, 2H  , 2H  /                                     00486 
      DATA SB6    /  6, 2H  , 2H  , 2H  /                               00487 
      DATA SB7    /  7, 2H  , 2H  , 2H  , 1H /                          00488 
      DATA SCOND  / 17, 2H  , 2H  , 2H  , 2HCO, 2HND, 2HIT, 2HIO, 2HNA  00489 
     1                , 1HL/                                            00490 
      DATA SDASH  / 40, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--  00491 
     1                , 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--  00492 
     1                , 2H--, 2H--, 2H--, 2H--/                         00493 
      DATA SELSE  / 19, 2H  , 2H  , 2H  , 2HEL, 2HSE, 2H C, 2HON, 2HTI  00494 
     1                , 2HNU, 1HE/                                      00495 
      DATA SENDER / 30, 2H**, 2H**, 2H* , 2HEN, 2HD , 2HST, 2HAT, 2HEM  00496 
     1                , 2HEN, 2HT , 2HIS, 2H M, 2HIS, 2HSI, 2HNG/       00497 
      DATA SEPE /28, 2H**, 2H**, 2H*  ,2HEX, 2HTR, 2HA  ,2H.P, !30JUN81 00498 
     1 2HAS, 2HSE, 2HND, 2H--, 2HIG, 2HOR, 2HED/        !30JUN81        00499 
      DATA SFCONT /49, 2H**, 2H**, 2H* ,2HWA, 2HRN, 2H--,       !830308 00500 
     1 2HIN, 2HPU, 2HT , 2HFO, 2HRC, 2HED, 2H O, 2HUT, 2HPU,    !830308 00501 
     2 2HT , 2HCO, 2HNT, 2HIN, 2HUA, 2HTI, 2HON, 2H L, 2HIN,    !830308 00502 
     3 1HE/                                                             00503 
      DATA SFIN   /  9, 2H  , 2H  , 2H  , 2HFI, 1HN/                    00504 
      DATA SFNAM /30, 2H**, 2H**, 2H* ,2H.I, 2HNC, 2HLU, 2HDE, !29JUN81 00505 
     1 2H F, 2HIL, 2HE , 2HNA, 2HME, 2H E, 2HRR, 2HOR/   !29JUN81       00506 
      DATA SFSPCR /  3, 2H.., 1H./                                      00507 
      DATA SICOND / 54, 2H**, 2H**, 2H* , 2H  , 2H (, 2HCO, 2HND, 2HIT  00508 
     1                , 2HIO, 2HNA, 2HL , 2HOR, 2H S, 2HEL, 2HEC, 2HT   00509 
     1                , 2HIS, 2H A, 2HPP, 2HAR, 2HEN, 2HTL, 2HY , 2HMI  00510 
     1                , 2HSS, 2HIN, 2HG)/                               00511 
      DATA SIELSE / 39, 2H**, 2H**, 2H* , 2H  , 2H (, 2HEL, 2HSE, 2H N  00512 
     1                , 2HEC, 2HES, 2HSA, 2HRY, 2H T, 2HO , 2HMA, 2HTC  00513 
     1                , 2HH , 2HLI, 2HNE, 1H /                          00514 
      DATA SIFIN  / 38, 2H**, 2H**, 2H* , 2H  , 2H (, 2HFI, 2HN , 2HNE  00515 
     1                , 2HCE, 2HSS, 2HAR, 2HY , 2HTO, 2H M, 2HAT, 2HCH  00516 
     1                , 2H L, 2HIN, 2HE /                               00517 
      DATA SIFIN2 / 14, 2HAS, 2HSU, 2HME, 2HD , 2HAB, 2HOV, 2HE)/       00518 
      DATA SIGN   / 45, 2H**, 2H**, 2H* , 2H  , 2H (, 2HNO, 2H C, 2HON  00519 
     1                , 2HTR, 2HOL, 2H P, 2HHR, 2HAS, 2HE , 2HFO, 2HR   00520 
     1                , 2HFI, 2HN , 2HTO, 2H M, 2HAT, 2HCH, 1H)/        00521 
      DATA SINSRT / 38, 2H**, 2H**, 2H* , 2HST, 2HAT, 2HEM, 2HEN, 2HT(  00522 
     1                , 2HS), 2H N, 2HEE, 2HDE, 2HD , 2HBE, 2HFO, 2HRE  00523 
     1                , 2H L, 2HIN, 2HE /                               00524 
      DATA SINS2  / 13, 2HAS, 2HSU, 2HME, 2HD , 2HBE, 2HLO, 1HW/        00525 
      DATA SITODM / 50, 2H**, 2H**, 2H* , 2H  , 2H (, 2HON, 2HLY, 2H T  00526 
     1                , 2HO , 2HAN, 2HD , 2HEN, 2HD , 2HAR, 2HE , 2HVA  00527 
     1                , 2HLI, 2HD , 2HAT, 2H T, 2HHI, 2HS , 2HPO, 2HIN  00528 
     1                , 2HT)/                                           00529 
      DATA SIWHEN / 39, 2H**, 2H**, 2H* , 2H  , 2H (, 2HWH, 2HEN, 2H T  00530 
     1                , 2HO , 2HMA, 2HTC, 2HH , 2HFO, 2HLL, 2HOW, 2HIN  00531 
     1                , 2HG , 2HEL, 2HSE, 1H)/                          00532 
      DATA SMPE / 22, 2H**, 2H**, 2H* , 2HMI, 2HSS, 2HIN, !30JUN81      00533 
     1          2HG , 2H.P, 2HAS, 2HSE, 2HND/       !30JUN81            00534 
      DATA SMULER / 44, 2H**, 2H**, 2H* , 2H  , 2H (, 2HPR, 2HOC, 2HED  00535 
     1                , 2HUR, 2HE , 2HAL, 2HRE, 2HAD, 2HY , 2HDE, 2HFI  00536 
     1                , 2HNE, 2HD , 2HON, 2H L, 2HIN, 2HE /             00537 
      DATA SNDER1 / 42, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HNE, 2HXT, 2H    00538 
     1                , 2HPR, 2HOC, 2HED, 2HUR, 2HES, 2H W, 2HER, 2HE   00539 
     1                , 2HIN, 2HVO, 2HKE, 2HD , 2HON/                   00540 
      DATA SNDER2 / 44, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HLI, 2HNE, 2HS   00541 
     1                , 2HGI, 2HVE, 2HN , 2HBU, 2HT , 2HWE, 2HRE, 2H N  00542 
     1                , 2HEV, 2HER, 2H D, 2HEF, 2HIN, 2HED/             00543 
      DATA SNIER1 / 46, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HFO, 2HLL, 2HOW  00544 
     1                , 2HIN, 2HG , 2HPR, 2HOC, 2HED, 2HUR, 2HES, 2H W  00545 
     1                , 2HER, 2HE , 2HDE, 2HFI, 2HNE, 2HD , 2HON/       00546 
      DATA SNIER2 / 44, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HLI, 2HNE, 2HS   00547 
     1                , 2HGI, 2HVE, 2HN , 2HBU, 2HT , 2HWE, 2HRE, 2H N  00548 
     1                , 2HEV, 2HER, 2H I, 2HNV, 2HOK, 2HED/             00549 
      DATA SNEST /36, 2H**, 2H**, 2H* ,2H.I, 2HNC, 2HLU, 2HDE, !29JUN81 00550 
     1 2H F, 2HIL, 2HES, 2H N, 2HES, 2HTE, 2HD ,2HTO, 2HO ,   !29JUN81  00551 
     2 2HDE, 2HEP/                                         !29JUN81     00552 
      DATA SNONAM /31, 2H**, 2H**, 2H*  ,2HNO, 2H N, 2HAM, !30JUN81     00553 
     1  2HE , 2HGI, 2HVE, 2HN  ,2HWI, 2HTH, 2H ., 2HPA, !30JUN81        00554 
     2  2HSS, 1H_/                                                      00555 
      DATA SOPN /32, 2H**, 2H**, 2H* ,2HOP, 2HEN, 2H F, 2HAI, !29JUN81  00556 
     1 2HL ,2HON, 2H ., 2HIN, 2HCL, 2HUD, 2HE , 2HFI, 2HLE/  !29JUN81   00557 
      DATA SPAGE /11, 2H  ,2H  ,2H  ,2H.P ,2HAG ,1HE/                   00560 
      DATA SRDERR  /33, 2H**, 2H**, 2H* , 2H  , 2H (, 2HRE,     !821129 00563 
     1          2HAD, 2H E, 2HRR, 2H O, 2HN , 2HIN,     !821129         00564 
     2          2HPU, 2HT , 2HLI, 2HNE, 1H)/            !821129         00565 
      DATA SRP    /  1, 1H)/                                            00566 
      DATA SSPACR /  3, 2H. , 1H /                                      00567 
      DATA STABH  / 37, 2H  , 2H  , 2H  , 2HPR, 2HOC, 2HED, 2HUR, 2HE   00568 
     1                , 2HCR, 2HOS, 2HS-, 2HRE, 2HFE, 2HRE, 2HNC, 2HE   00569 
     1                , 2HTA, 2HBL, 1HE/                                00570 
      DATA STODUM / 24, 2H  , 2H  , 2H  , 2HTO, 2H D, 2HUM, 2HMY, 2H-P  00571 
     1                , 2HRO, 2HCE, 2HDU, 2HRE/                         00572 
      DATA STRUN / 47, 2H**, 2H**, 2H*  ,2H.P, 2HAS, 2HS_, !30JUN81     00573 
     1 2H N, 2HAM, 2HE , 2HHA, 2HS  ,2H> , 2H6  ,2HCH,  !30JUN81        00574 
     2 2HAR, 2HAC, 2HTE, 2HRS, 2H--, 2HTR, 2HUN, 2HCA,  !30JUN81        00575 
     3 2HTE, 1HD/                                       !30JUN81        00576 
      DATA SVER   / 21, 2H(F, 2HLE, 2HCS, 2H V, 2HER, 2HSI, 2HON, 2H 2  00577 
     1                , 2H2., 2H38, 1H)/                                00578 
      DATA SWHEN  / 29, 2H  , 2H  , 2H  , 2HWH, 2HEN, 2H (, 2H.T, 2HRU  00579 
     1                , 2HE., 2H) , 2HCA, 2HLL, 2H E, 2HXI, 1HT/        00580 
      DATA SXER1  / 54, 2H**, 2H**, 2H* , 2H  , 2H (, 2HIN, 2HVA, 2HLI  00581 
     1                , 2HD , 2HCH, 2HAR, 2HAC, 2HTE, 2HR , 2HIN, 2H S  00582 
     1                , 2HTA, 2HTE, 2HME, 2HNT, 2H N, 2HUM, 2HBE, 2HR   00583 
     1                , 2HFI, 2HEL, 2HD)/                               00584 
      DATA SXER2  / 53, 2H**, 2H**, 2H* , 2H  , 2H (, 2HRE, 2HCO, 2HGN  00585 
     1                , 2HIZ, 2HAB, 2HLE, 2H S, 2HTA, 2HTE, 2HME, 2HNT  00586 
     1                , 2H F, 2HOL, 2HLO, 2HWE, 2HD , 2HBY, 2H G, 2HAR  00587 
     1                , 2HBA, 2HGE, 1H)/                                00588 
      DATA SXER3  / 50, 2H**, 2H**, 2H* , 2H  , 2H (, 2HLE, 2HFT, 2H P  00589 
     1                , 2HAR, 2HEN, 2H D, 2HOE, 2HS , 2HNO, 2HT , 2HFO  00590 
     1                , 2HLL, 2HOW, 2H C, 2HON, 2HTR, 2HOL, 2H W, 2HOR  00591 
     1                , 2HD)/                                           00592 
      DATA SXER4  / 30, 2H**, 2H**, 2H* , 2H  , 2H (, 2HMI, 2HSS, 2HIN  00593 
     1                , 2HG , 2HRI, 2HGH, 2HT , 2HPA, 2HRE, 2HN)/       00594 
      DATA SXER5  / 50, 2H**, 2H**, 2H* , 2H  , 2H (, 2HVA, 2HLI, 2HD   00595 
     1                , 2HPR, 2HOC, 2HED, 2HUR, 2HE , 2HNA, 2HME, 2H D  00596 
     1                , 2HOE, 2HS , 2HNO, 2HT , 2HFO, 2HLL, 2HOW, 2H T  00597 
     1                , 2HO)/                                           00598 
      IF(.NOT.(SOURCE.EQ.SETUP)) GO TO 32757                            00605 
      SOURCE=RETRY                                                      00605 
      GO TO 32758                                                       00606 
32757 IF(.NOT.(ERROR.EQ.0.AND.ERSTOP.EQ.0)) GO TO 32756                 00606 
      SOURCE=READ       !IF NO ERROR, GET NEXT LINE FROM FLX FILE       00607 
      ASSIGN 32754 TO I32755                                            00608 
      GO TO 32755                                                       00608 
32754 GO TO 32758                                                       00610 
32756 MINER=(((ERROR.GE.5).AND.(ERROR.LE.6)).OR.                        00611 
     1       ((ERROR.GE.13).AND.(ERROR.LE.15)))                         00612 
      MINER=MINER.OR.((ERROR.GE.1).AND.(ERROR.LE.3)).OR.(ERROR.EQ.25)   00613 
     1 .OR. (ERROR.EQ.404) .OR. (ERROR.EQ.500)                          00614 
      IF(.NOT.(MINER)) GO TO 32752                                      00615 
      MINCNT=MINCNT+1     !INC WARNING COUNT                            00615 
      GO TO 32753                                                       00615 
32752 MAJCNT=MAJCNT+1             !INC ERROR COUNT                      00616 
32753 IF(.NOT.(ERROR.EQ.0)) GO TO 32750                                 00617 
      ERTYPE=1                                                          00617 
      GO TO 32751                                                       00617 
32750 IF(.NOT.(ERROR.LE.3)) GO TO 32748                                 00620 
      ASSIGN 32746 TO I32747                                            00620 
      GO TO 32747                                                       00620 
32746 GO TO 32749                                                       00621 
32748 IF(.NOT.(ERROR.EQ.4)) GO TO 32745                                 00621 
      ASSIGN 32743 TO I32744                                            00621 
      GO TO 32744                                                       00621 
32743 GO TO 32749                                                       00622 
32745 IF(.NOT.(ERROR.LE.6)) GO TO 32742                                 00622 
      ERTYPE=3                                                          00622 
      GO TO 32749                                                       00623 
32742 IF(.NOT.(ERROR.EQ.7)) GO TO 32741                                 00623 
      ASSIGN 32740 TO I32744                                            00623 
      GO TO 32744                                                       00623 
32740 GO TO 32749                                                       00624 
32741 IF(.NOT.(ERROR.EQ.8)) GO TO 32739                                 00624 
      ASSIGN 32737 TO I32738                                            00624 
      GO TO 32738                                                       00624 
32737 GO TO 32749                                                       00625 
32739 IF(.NOT.(ERROR.EQ.9)) GO TO 32736                                 00625 
      ASSIGN 32734 TO I32735                                            00625 
      GO TO 32735                                                       00625 
32734 GO TO 32749                                                       00626 
32736 IF(.NOT.(ERROR.EQ.10)) GO TO 32733                                00626 
      ASSIGN 32731 TO I32732                                            00626 
      GO TO 32732                                                       00626 
32731 GO TO 32749                                                       00627 
32733 IF(.NOT.(ERROR.LE.12)) GO TO 32730                                00627 
      ASSIGN 32729 TO I32747                                            00627 
      GO TO 32747                                                       00627 
32729 GO TO 32749                                                       00628 
32730 IF(.NOT.(ERROR.LE.15)) GO TO 32728                                00628 
      ASSIGN 32727 TO I32747                                            00628 
      GO TO 32747                                                       00628 
32727 GO TO 32749                                                       00629 
32728 IF(.NOT.(ERROR.EQ.16)) GO TO 32726                                00629 
      ASSIGN 32725 TO I32744                                            00629 
      GO TO 32744                                                       00629 
32725 GO TO 32749                                                       00630 
32726 IF(.NOT.(ERROR.EQ.17)) GO TO 32724                                00630 
      ASSIGN 32722 TO I32723                                            00630 
      GO TO 32723                                                       00630 
32722 GO TO 32749                                                       00631 
32724 IF(.NOT.(ERROR.EQ.18)) GO TO 32721                                00631 
      ASSIGN 32720 TO I32735                                            00631 
      GO TO 32735                                                       00631 
32720 GO TO 32749                                                       00632 
32721 IF(.NOT.(ERROR.LE.19)) GO TO 32719                                00632 
      ASSIGN 32718 TO I32723                                            00632 
      GO TO 32723                                                       00632 
32718 GO TO 32749                                                       00633 
32719 IF(.NOT.(ERROR.EQ.20)) GO TO 32717                                00633 
      ASSIGN 32716 TO I32744                                            00633 
      GO TO 32744                                                       00633 
32716 GO TO 32749                                                       00634 
32717 IF(.NOT.(ERROR.EQ.21)) GO TO 32715                                00634 
      ASSIGN 32714 TO I32735                                            00634 
      GO TO 32735                                                       00634 
32714 GO TO 32749                                                       00635 
32715 IF(.NOT.(ERROR.LE.23)) GO TO 32713                                00635 
      ASSIGN 32712 TO I32747                                            00635 
      GO TO 32747                                                       00635 
32712 GO TO 32749                                                       00636 
32713 IF(.NOT.(ERROR.EQ.24)) GO TO 32711                                00636 
      ASSIGN 32710 TO I32744                                            00636 
      GO TO 32744                                                       00636 
32710 GO TO 32749                                                       00637 
32711 IF(.NOT.(ERROR.EQ.25)) GO TO 32709                                00637 
      ERTYPE=4                                                          00637 
      GO TO 32749                                                       00638 
32709 IF(.NOT.(ERROR.EQ.26)) GO TO 32708                                00638 
      ERTYPE=5                                                          00638 
      GO TO 32749                                                       00639 
32708 IF(.NOT.(ERROR.GT.300 .AND. ERROR.LE.303)) GO TO 32707            00639 
      ERTYPE=6         !29JUN81 MAO                                     00639 
      GO TO 32749                                                       00640 
32707 IF(.NOT.(ERROR.GT.400 .AND. ERROR.LE.403)) GO TO 32706            00640 
      ERTYPE=7         !30JUN81MAO                                      00640 
      GO TO 32749                                                       00641 
32706 IF(.NOT.(ERROR.EQ.404)) GO TO 32705                               00641 
      ASSIGN 32703 TO I32704                                            00641 
      GO TO 32704                                                       00641 
32703 GO TO 32749                                                       00642 
32705 IF(.NOT.(ERROR.EQ.500)) GO TO 32702                               00642 
      ASSIGN 32701 TO I32755                                            00643 
      GO TO 32755                                                       00643 
32701 CALL PUT(0,SFCONT,ERRCL)  !WARNING MSG    !830308MAO              00644 
32702 CONTINUE                                                          00646 
32749 CONTINUE                                                          00647 
32751 SOURCE=READ                                                       00648 
      IF((1).NE.(ERTYPE)) GO TO 32699                                   00650 
      CALL PUT(-LINENO,SHOLD,ERRCL)                                     00651 
      DO 32698 I=1,ERSTOP                                               00652 
      IF((1).NE.(ERRSTK(I))) GO TO 32696                                00654 
      CALL PUT(0,SXER1,ERRCL)                                           00654 
      GO TO 32697                                                       00655 
32696 IF((2).NE.(ERRSTK(I))) GO TO 32695                                00655 
      CALL PUT(0,SXER2,ERRCL)                                           00655 
      GO TO 32697                                                       00656 
32695 IF((3).NE.(ERRSTK(I))) GO TO 32694                                00656 
      CALL PUT(0,SXER3,ERRCL)                                           00656 
      GO TO 32697                                                       00657 
32694 IF((4).NE.(ERRSTK(I))) GO TO 32693                                00657 
      CALL PUT(0,SXER4,ERRCL)                                           00657 
      GO TO 32697                                                       00658 
32693 IF((5).NE.(ERRSTK(I))) GO TO 32692                                00658 
      CALL PUT(0,SXER5,ERRCL)                                           00658 
32692 CONTINUE                                                          00659 
32697 CONTINUE                                                          00660 
32698 CONTINUE                                                          00660 
      GO TO 32700                                                       00662 
32699 IF((2).NE.(ERTYPE)) GO TO 32691                                   00662 
      SOURCE=SETUP          !MISSING STATEMENT INSERTED                 00662 
      GO TO 32700                                                       00663 
32691 IF((3).NE.(ERTYPE)) GO TO 32690                                   00663 
      CALL PUT(-LINENO,SFLX,ERRCL)              !EXTRA FIN              00664 
      CALL PUT(0,SIGN,ERRCL)                                            00665 
      GO TO 32700                                                       00667 
32690 IF((4).NE.(ERTYPE)) GO TO 32689                                   00667 
      CALL PUT(0,SENDER,ERRCL)      !MISSING END                        00667 
      GO TO 32700                                                       00668 
32689 IF((5).NE.(ERTYPE)) GO TO 32688                                   00668 
      CALL PUT(LINENO,SFLX,ERRCL)       !PROCEDURE ALREADY DEFINED      00669 
      CALL CPYSTR(SST,SMULER)                                           00670 
      CALL CATNUM(SST,MLINE)                                            00671 
      CALL CATSTR(SST,SRP)                                              00672 
      CALL PUT(0,SST,ERRCL)                                             00673 
      GO TO 32700                                                       00675 
32688 IF((6).NE.(ERTYPE)) GO TO 32687                                   00675 
      CALL PUT (-LINENO,SFLX,ERRCL)                                     00676 
      IF((301).NE.(ERROR)) GO TO 32685                                  00678 
      CALL PUT (0,SNEST,ERRCL)    !MAX NESTING DEPTH EXCEEDED           00678 
      GO TO 32686                                                       00679 
32685 IF((302).NE.(ERROR)) GO TO 32684                                  00679 
      CALL PUT (0,SFNAM,ERRCL)    !FILE NAME ERROR                      00679 
      GO TO 32686                                                       00680 
32684 IF((303).NE.(ERROR)) GO TO 32683                                  00680 
      CALL PUT (0,SOPN,ERRCL)     !FILE OPEN ERROR                      00680 
32683 CONTINUE                                                          00681 
32686 GO TO 32700                                                       00683 
32687 IF((7).NE.(ERTYPE)) GO TO 32682                                   00683 
      CALL PUT (-LINENO,SFLX,ERRCL)                                     00684 
      IF((401).NE.(ERROR)) GO TO 32680                                  00686 
      CALL PUT (0,SEPE,ERRCL)     !excess .PASSEND                      00686 
      GO TO 32681                                                       00687 
32680 IF((402).NE.(ERROR)) GO TO 32679                                  00687 
      CALL PUT (0,STRUN,ERRCL)    !>6 char in name                      00687 
      GO TO 32681                                                       00688 
32679 IF((403).NE.(ERROR)) GO TO 32678                                  00688 
      CALL PUT (0,SNONAM,ERRCL)   !name not given                       00688 
32678 CONTINUE                                                          00689 
32681 GO TO 32700                                                       00691 
32682 IF((8).NE.(ERTYPE)) GO TO 32677                                   00691 
      SOURCE=RETRY                                                      00691 
32677 CONTINUE                                                          00692 
32700 CONTINUE                                                          00694 
32758 IF(.NOT.(ERR1.NE.0)) GO TO 32676                                  00695 
      CALL PUT(0,SRDERR,ERRCL)                  !821129MAO              00699 
      MINCNT=MINCNT+1           !INC WARNING COUNTER    !821129MAO      00700 
32676 IF(.NOT.(ENDPGM)) GO TO 32675                                     00703 
      ASSIGN 32673 TO I32674                                            00704 
      GO TO 32674                                                       00704 
32673 ASSIGN 32671 TO I32672                                            00705 
      GO TO 32672                                                       00705 
32671 CALL PUT(0,SVER,LISTCL)                                           00706 
32675 RETURN                                                            00708 
32723 CONTINUE                                                          00709 
      ASSIGN 32669 TO I32670                                            00710 
      GO TO 32670                                                       00710 
32669 CALL CPYSTR(SFLX,SCOND)                                           00711 
      CALL PUT(0,SICOND,ERRCL)                                          00712 
      GO TO I32723                                                      00713 
32744 CONTINUE                                                          00714 
      ASSIGN 32668 TO I32670                                            00715 
      GO TO 32670                                                       00715 
32668 CALL CPYSTR(SFLX,SELSE)                                           00716 
      CALL CPYSTR(SLIST,SIELSE)                                         00717 
      CALL CATNUM(SLIST,STACK(TOP-1))                                   00718 
      CALL CATSTR(SLIST,SRP)                                            00719 
      CALL PUT(0,SLIST,ERRCL)                                           00720 
      GO TO I32744                                                      00721 
32747 CONTINUE                                                          00722 
      ASSIGN 32667 TO I32670                                            00723 
      GO TO 32670                                                       00723 
32667 CALL CPYSTR(SFLX,SFIN)                                            00724 
      CALL CPYSTR(SLIST,SIFIN)                                          00725 
      IF(.NOT.(STACK(TOP-1).EQ.0)) GO TO 32665                          00726 
      CALL CATSTR(SLIST,SIFIN2)                                         00726 
      GO TO 32666                                                       00726 
32665 CALL CATNUM(SLIST,STACK(TOP-1))                                   00728 
      CALL CATSTR(SLIST,SRP)                                            00729 
32666 CALL PUT(0,SLIST,ERRCL)                                           00731 
      GO TO I32747                                                      00732 
32704 CONTINUE                                                          00733 
      ASSIGN 32664 TO I32670                                            00734 
      GO TO 32670                                                       00734 
32664 ERTYPE=8                                                          00735 
      DO 32663 I=1,CNDLVL                                               00736 
      CALL PUT (0,SMPE,ERRCL)                                           00737 
32663 CONTINUE                                                          00738 
      CNDLVL=0                                                          00739 
      PASFLG=.TRUE.                                                     00740 
      GO TO I32704                                                      00741 
32735 CONTINUE                                                          00742 
      ASSIGN 32662 TO I32670                                            00743 
      GO TO 32670                                                       00743 
32662 CALL CPYSTR(SFLX,STODUM)                                          00744 
      CALL PUT(0,SITODM,ERRCL)                                          00745 
      GO TO I32735                                                      00746 
32738 CONTINUE                                                          00747 
      ASSIGN 32661 TO I32670                                            00748 
      GO TO 32670                                                       00748 
32661 CALL CPYSTR(SFLX,SWHEN)                                           00749 
      CALL PUT(0,SIWHEN,ERRCL)                                          00750 
      GO TO I32738                                                      00751 
32732 CONTINUE                                                          00752 
      IF(.NOT.(TOP.LE.7)) GO TO 32659                                   00754 
      ASSIGN 32658 TO I32738                                            00754 
      GO TO 32738                                                       00754 
32658 GO TO 32660                                                       00755 
32659 IF(.NOT.(STACK(TOP-6).EQ.TELSE)) GO TO 32657                      00755 
      ASSIGN 32656 TO I32747                                            00755 
      GO TO 32747                                                       00755 
32656 GO TO 32660                                                       00756 
32657 ASSIGN 32655 TO I32738                                            00756 
      GO TO 32738                                                       00756 
32655 CONTINUE                                                          00757 
32660 GO TO I32732                                                      00758 
32672 CONTINUE                                                          00759 
        LSTLEV=LEVEL                                                    00760 
      IF(.NOT.(LSTLEV.EQ.0)) GO TO 32653                                00761 
      CALL PUT(BLN,SB,LISTCL)                                           00761 
      GO TO 32654                                                       00761 
32653 CALL CPYSTR(SLIST,SB6)                                            00763 
      DO 32652 I=1,LSTLEV                                               00764 
      CALL CATSTR(SLIST,SSPACR)                                         00764 
32652 CONTINUE                                                          00764 
      IF(.NOT.(SLIST(1).GT.WWIDTH)) GO TO 32650                         00765 
      CALL PUT(BLN,SB,LISTCL)                                           00765 
      GO TO 32651                                                       00765 
32650 CALL PUT(BLN,SLIST,LISTCL)                                        00766 
32651 CONTINUE                                                          00767 
32654 BLN=0                                                             00768 
      GO TO I32672                                                      00769 
32649 CONTINUE                                                          00770 
      CALL PUT(0,SB,LISTCL)                                             00771 
      CALL PUT(0,SDASH,LISTCL)                                          00772 
      CALL PUT(0,SB,LISTCL)                                             00773 
      GO TO I32649                                                      00774 
32755 CONTINUE                                                          00775 
      IF(.NOT.(CLASS.EQ.TTO)) GO TO 32648                               00776 
      ASSIGN 32647 TO I32649                                            00776 
      GO TO 32649                                                       00776 
32647 CONTINUE                                                          00776 
32648 IF (SFLX(1).LT.7)  CALL CATSTR(SFLX,SB7)                          00777 
      CALL CPYSUB(SLIST,SFLX,1,6)                                       00778 
      IF(LSTLEV.EQ.0) GO TO 32646                                       00779 
      DO 32645 I=1,LSTLEV                                               00780 
      CALL CATSTR(SLIST,SSPACR)                                         00780 
32645 CONTINUE                                                          00780 
32646 IF(.NOT.(CLASS.EQ.TFIN)) GO TO 32644                              00782 
      SLIST(1)=SLIST(1)-SSPACR(1)                                       00783 
      CALL CATSTR(SLIST,SFSPCR)                                         00784 
32644 CALL CATSUB(SLIST,SFLX,7,SFLX(1)-6)                               00786 
      IF (SLIST(1).GT.WWIDTH)  CALL CPYSTR(SLIST,SFLX)                  00790 
      IF(.NOT.(ERLST)) GO TO 32642                                      00791 
      CALL PUT(LINENO,SLIST,ERRCL)                                      00792 
      ERLST=.FALSE.                                                     00793 
      GO TO 32643                                                       00794 
32642 CALL PUT(LINENO,SLIST,LISTCL)                                     00795 
32643 IF(.NOT.(CLASS.EQ.TDIR)) GO TO 32641                              00799 
      IF(.NOT.( DTYPE.EQ.DPAGE .AND. LSTFUL)) GO TO 32640               00800 
      CALL PUTCH (SLIST(2),1,FORMFD)    !put in formfeed !22-JUN-81     00805 
      SLIST(1)=1                                        !22-JUN-81      00806 
      CALL PUT (LINENO,SLIST,FORTCL)                    !22-JUN-81      00807 
      IF(.NOT.(CNTALL)) NUMLIN=NUMLIN-1   !USUALLY DONT COUNT !830307   00808 
32640 CONTINUE                                                          00811 
32641 GO TO I32755                                                      00812 
32670 CONTINUE                                                          00813 
      ERTYPE=2                                                          00814 
      ASSIGN 32638 TO I32639                                            00815 
      GO TO 32639                                                       00815 
32638 LINENO=0                                                          00816 
      IF(.NOT.(SOURCE.EQ.READ)) GO TO 32637                             00817 
      CALL CPYSTR(SST,SINSRT)                                           00818 
      IF(.NOT.(HOLDNO.GT.0)) GO TO 32635                                00819 
      CALL CATNUM(SST,HOLDNO)                                           00819 
      GO TO 32636                                                       00819 
32635 CALL CATSTR(SST,SINS2)                                            00820 
32636 CALL PUT(0,SST,ERRCL)                                             00821 
32637 GO TO I32670                                                      00823 
32674 CONTINUE                                                          00824 
      IF(PTABLE.EQ.0) GO TO 32634                                       00825 
      TABLCL=LISTCL                                                     00826 
      ASSIGN 32633 TO I32649                                            00827 
      GO TO 32649                                                       00827 
32633 CALL PUT(0,STABH,LISTCL)                                          00828 
      CALL PUT(0,SB,LISTCL)                                             00829 
      P=PTABLE                                                          00830 
      NDERR=.FALSE.                                                     00831 
      NIERR=.FALSE.                                                     00832 
      GO TO 32631                                                       00833 
32632 IF(P.EQ.0) GO TO 32630                                            00833 
32631 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 32629                            00834 
      NDERR=.TRUE.                                                      00835 
      MAJCNT=MAJCNT+1                                                   00836 
32629 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 32628                            00838 
      NIERR=.TRUE.                                                      00839 
      MINCNT=MINCNT+1                                                   00840 
32628 ASSIGN 32626 TO I32627                                            00842 
      GO TO 32627                                                       00842 
32626 P=STACK(P)                                                        00843 
      GO TO 32632                                                       00844 
32630 IF(.NOT.(NDERR)) GO TO 32625                                      00845 
      CALL PUT(0,SNDER1,ERRCL)                                          00846 
      CALL PUT(0,SNDER2,ERRCL)                                          00847 
      ASSIGN 32624 TO I32672                                            00848 
      GO TO 32672                                                       00848 
32624 P=PTABLE                                                          00849 
      TABLCL=ERRCL                                                      00850 
      GO TO 32622                                                       00851 
32623 IF(P.EQ.0) GO TO 32621                                            00851 
32622 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 32620                            00852 
      ASSIGN 32619 TO I32627                                            00852 
      GO TO 32627                                                       00852 
32619 CONTINUE                                                          00852 
32620 P=STACK(P)                                                        00853 
      GO TO 32623                                                       00854 
32621 CONTINUE                                                          00855 
32625 IF(.NOT.(NIERR)) GO TO 32618                                      00856 
      CALL PUT(0,SNIER1,ERRCL)                                          00857 
      CALL PUT(0,SNIER2,ERRCL)                                          00858 
      ASSIGN 32617 TO I32672                                            00859 
      GO TO 32672                                                       00859 
32617 P=PTABLE                                                          00860 
      TABLCL=ERRCL                                                      00861 
      GO TO 32615                                                       00862 
32616 IF(P.EQ.0) GO TO 32614                                            00862 
32615 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 32613                            00863 
      ASSIGN 32612 TO I32627                                            00863 
      GO TO 32627                                                       00863 
32612 CONTINUE                                                          00863 
32613 P=STACK(P)                                                        00864 
      GO TO 32616                                                       00865 
32614 CONTINUE                                                          00866 
32618 CONTINUE                                                          00867 
32634 GO TO I32674                                                      00868 
32627 CONTINUE                                                          00869 
      CALL CPYSTR(SST,SB6)                                              00870 
      IF(.NOT.(STACK(P+2).EQ.0)) CALL PUTNUM(SST,STACK(P+2))            00871 
      CALL CATSTR(SST,STACK(P+4))                                       00872 
      CALL PUT(0,SST,TABLCL)                                            00873 
      QP=STACK(P+3)                                                     00874 
32611 IF(QP.EQ.0) GO TO 32610                                           00875 
      CALL CPYSTR(SST,SB4)                                              00876 
      I=1                                                               00877 
32609 IF(QP.EQ.0.OR.I.GT.REFNO) GO TO 32608                             00878 
      CALL CATSTR(SST,SB2)                                              00879 
      CALL CATNUM(SST,STACK(QP+1))                                      00880 
      I=I+1                                                             00881 
      QP=STACK(QP)                                                      00882 
      GO TO 32609                                                       00883 
32608 CALL PUT(0,SST,TABLCL)                                            00884 
      GO TO 32611                                                       00885 
32610 CALL PUT(0,SB,LISTCL)                                             00886 
      GO TO I32627                                                      00887 
32639 CONTINUE                                                          00888 
      IF(SAVED) GO TO 32607                                             00889 
      SAVED=.TRUE.                                                      00890 
      HOLDNO=LINENO                                                     00891 
      CALL CPYSTR(SHOLD,SFLX)                                           00892 
32607 GO TO I32639                                                      00894 
      END                                                               00895 
