      SUBROUTINE LIST                                                   00047 
      INTEGER DTYPE                     !22-JUN-81                      00095 
      COMMON/DIR/DTYPE                                                  00096 
      LOGICAL PASFLG                                    !30JUN81MAO     00098 
      INTEGER CNDLVL                                    !30JUN81MAO     00099 
      INTEGER OFFLVL                                    !30JUN81MAO     00100 
      INTEGER COND                                      !30JUN81MAO     00101 
      INTEGER CNDVAL                                    !30JUN81MAO     00102 
      COMMON/COND/PASFLG,CNDLVL,OFFLVL,COND,CNDVAL(4,10) !30JUN81MAO    00103 
      LOGICAL*2 ALECS,LSTFUL                    !22-JUN-81              00106 
      INTEGER*2 TYPIN,TYPLST,TYPOUT,CHCMNT      !22-JUN-81              00107 
      COMMON/MACVAL/ALECS,TYPIN,TYPLST,TYPOUT,CHCMNT,LSTFUL     !22-JUN-00108 
      INTEGER FORMFD                                    !22-JUN-81      00114 
      INTEGER DPAGE                                     !22-JUN-81      00115 
      INTEGER DINCL                                     !29JUN81MAO     00116 
      INTEGER DPEND,DPIF,DPUNL                  !30JUN81MAO             00117 
      INTEGER DNAME                                     !30JUN81MAO     00118 
      INTEGER SNEST,SFNAM,SOPN                  !29JUN81MAO             00119 
      INTEGER SEPE,SNONAM,STRUN,SMPE                    !30JUN81MAO     00120 
      INTEGER TDIR                                      !22-JUN-81      00121 
      INTEGER TOFF                                      !30JUN81MAO     00122 
      INTEGER SPAGE                                                     00125 
      INTEGER BLN   , CHC   , CHSPAC, CHZERO, CLASS , ERRCL             00128 
      INTEGER CINLIN                                    !25-JAN-80      00129 
      INTEGER ERROR , ERRSTK, ERSTOP, ERTYPE, EXTYPE, FLXNO             00130 
      INTEGER FORTCL, HOLDNO, I     , LEVEL , LINENO                    00131 
      INTEGER LISTCL, LSTLEV                                            00132 
      INTEGER MAJCNT, MINCNT, MLINE , NCHPWD, NUNITS, P                 00133 
      INTEGER PTABLE, QP    , READ  , REFNO , RETRY                     00134 
      INTEGER SB    , SB2   , SB4   , SB6   , SB7   , SCOND             00135 
      INTEGER SDASH , SELSE , SENDER, SETUP , SFIN  , SFLX              00136 
      INTEGER SFSPCR, SHOLD , SICOND, SIELSE, SIFIN , SIFIN2            00137 
      INTEGER SIGN  , SINSRT, SINS2 , SITODM, SIWHEN, SLIST , SMULER    00138 
      INTEGER SNDER1, SNDER2, SNIER1, SNIER2, SOURCE, SP                00139 
      INTEGER SPINV , SPUTGO, SRP   , SSPACR, SST   , SSTMAX            00140 
      INTEGER STABH , STACK , STODUM, SVER  , SWHEN , SXER1             00141 
      INTEGER SXER2 , SXER3 , SXER4 , SXER5 , TABLCL, TCEXP             00142 
      INTEGER TELSE , TEND  , TEXEC , TFIN  , TOP   , TTO               00143 
      INTEGER ULEN  , USTART, UTYPE , WWIDTH                            00144 
      LOGICAL DONE  , ENDFIL, ENDPGM, ERLST , FIRST , FOUND ,MINER      00151 
      LOGICAL NDERR , NIERR , NOPGM , PASS  , SAVED                     00152 
      DIMENSION  UTYPE(3), USTART(3), ULEN(3)                           00160 
      DIMENSION STACK(2000)                                             00163 
      DIMENSION ERRSTK(5)                                               00166 
      COMMON BLN   , CLASS , DONE  , ENDFIL, ENDPGM, ERLST              00175 
      COMMON ERROR , ERRSTK, ERSTOP, EXTYPE, FIRST , FLXNO              00176 
      COMMON FOUND , HOLDNO, LEVEL , LINENO, LSTLEV, MAJCNT             00177 
      COMMON MINCNT, MLINE , NOPGM , NUNITS, PASS  , PTABLE, QP         00178 
      COMMON REFNO , SAVED , SFLX  , SHOLD , SLIST , SOURCE             00179 
      COMMON SPINV , SPUTGO, SST   , STACK , TOP   , ULEN               00180 
      COMMON USTART, UTYPE , WWIDTH                                     00181 
      COMMON /PARAM/ NCHPWD, CHZERO, CHSPAC, CHC, CINLIN   !25-JAN-80   00216 
      DIMENSION SFLX   (51)                                             00229 
      DIMENSION SHOLD  (51)                                             00231 
      DIMENSION SLIST  (101)                                            00233 
      DIMENSION SPINV  (41)                                             00235 
      DIMENSION SPUTGO (11)                                             00237 
      DIMENSION SST    (101)                                            00239 
      DIMENSION SB     (2)                                              00245 
      DIMENSION SB2    (2)                                              00248 
      DIMENSION SB4    (3)                                              00251 
      DIMENSION SB6    (4)                                              00254 
      DIMENSION SB7    (5)                                              00257 
      DIMENSION SCOND  (10)                                             00260 
      DIMENSION SDASH  (21)                                             00264 
      DIMENSION SELSE  (11)                                             00269 
      DIMENSION SENDER (16)                                             00273 
      DIMENSION SEPE(15)                                        !30JUN8100277 
      DIMENSION SFIN   (6)                                              00281 
      DIMENSION SFNAM(16)                                       !29JUN8100284 
      DIMENSION SFSPCR (3)                                              00288 
      DIMENSION SICOND (28)                                             00291 
      DIMENSION SIELSE (21)                                             00297 
      DIMENSION SIFIN  (20)                                             00302 
      DIMENSION SIFIN2 (8)                                              00307 
      DIMENSION SIGN   (24)                                             00310 
      DIMENSION SINSRT (20)                                             00315 
      DIMENSION SINS2  (8)                                              00320 
      DIMENSION SITODM (26)                                             00323 
      DIMENSION SIWHEN (21)                                             00329 
      DIMENSION SMPE(12)                                        !30JUN8100334 
      DIMENSION SMULER (23)                                             00338 
      DIMENSION SNDER1 (22)                                             00343 
      DIMENSION SNDER2 (23)                                             00348 
      DIMENSION SNIER1 (24)                                             00353 
      DIMENSION SNIER2 (23)                                             00358 
      DIMENSION SNEST(19)                                       !29JUN8100363 
      DIMENSION SNONAM(17)                                      !30JUN8100368 
      DIMENSION SOPN(17)                                        !29JUN8100372 
      DIMENSION SPAGE(7)                                                00378 
      DIMENSION SRP    (2)                                              00383 
      DIMENSION SSPACR (3)                                              00386 
      DIMENSION STABH  (20)                                             00389 
      DIMENSION STODUM (13)                                             00394 
      DIMENSION STRUN(25)                                               00398 
      DIMENSION SVER   (12)                                             00404 
      DIMENSION SWHEN  (16)                                             00408 
      DIMENSION SXER1  (28)                                             00412 
      DIMENSION SXER2  (28)                                             00418 
      DIMENSION SXER3  (26)                                             00424 
      DIMENSION SXER4  (16)                                             00430 
      DIMENSION SXER5  (26)                                             00434 
      DATA FORMFD /"14/                                 !22-JUN-81      00445 
      DATA FORTCL /1/, LISTCL /2/, ERRCL /3/                            00446 
      DATA TCEXP/1/, TELSE/2/, TEND/3/, TEXEC/4/, TFIN/5/, TTO/6/       00447 
      DATA TDIR/7/                                      !22-JUN-81      00448 
      DATA TOFF/8/                                      !30JUN81MAO     00449 
      DATA DPAGE/1/                                     !22-JUN-81      00450 
      DATA DINCL/2/                                     !29JUN81MAO     00451 
      DATA DPIF/3/, DPUNL/4/, DPEND/5/          !29JUN81MAO             00452 
      DATA DNAME /6/                                    !30JUN81MAO     00453 
      DATA SETUP /1/, RETRY /2/, READ /3/                               00454 
      DATA SSTMAX /200/                                                 00455 
      DATA SB     /  1, 1H /                                            00456 
      DATA SB2    /  2, 2H  /                                           00457 
      DATA SB4    /  4, 2H  , 2H  /                                     00458 
      DATA SB6    /  6, 2H  , 2H  , 2H  /                               00459 
      DATA SB7    /  7, 2H  , 2H  , 2H  , 1H /                          00460 
      DATA SCOND  / 17, 2H  , 2H  , 2H  , 2HCO, 2HND, 2HIT, 2HIO, 2HNA  00461 
     1                , 1HL/                                            00462 
      DATA SDASH  / 40, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--  00463 
     1                , 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--  00464 
     1                , 2H--, 2H--, 2H--, 2H--/                         00465 
      DATA SELSE  / 19, 2H  , 2H  , 2H  , 2HEL, 2HSE, 2H C, 2HON, 2HTI  00466 
     1                , 2HNU, 1HE/                                      00467 
      DATA SENDER / 30, 2H**, 2H**, 2H* , 2HEN, 2HD , 2HST, 2HAT, 2HEM  00468 
     1                , 2HEN, 2HT , 2HIS, 2H M, 2HIS, 2HSI, 2HNG/       00469 
      DATA SEPE /28, 2H**, 2H**, 2H*  ,2HEX, 2HTR, 2HA  ,2H.P, !30JUN81M00470 
     1 2HAS, 2HSE, 2HND, 2H--, 2HIG, 2HOR, 2HED/                !30JUN8100471 
      DATA SFIN   /  9, 2H  , 2H  , 2H  , 2HFI, 1HN/                    00472 
      DATA SFNAM /30, 2H**, 2H**, 2H* ,2H.I, 2HNC, 2HLU, 2HDE, !29JUN81M00473 
     1 2H F, 2HIL, 2HE , 2HNA, 2HME, 2H E, 2HRR, 2HOR/   !29JUN81MAO    00474 
      DATA SFSPCR /  3, 2H.., 1H./                                      00475 
      DATA SICOND / 54, 2H**, 2H**, 2H* , 2H  , 2H (, 2HCO, 2HND, 2HIT  00476 
     1                , 2HIO, 2HNA, 2HL , 2HOR, 2H S, 2HEL, 2HEC, 2HT   00477 
     1                , 2HIS, 2H A, 2HPP, 2HAR, 2HEN, 2HTL, 2HY , 2HMI  00478 
     1                , 2HSS, 2HIN, 2HG)/                               00479 
      DATA SIELSE / 39, 2H**, 2H**, 2H* , 2H  , 2H (, 2HEL, 2HSE, 2H N  00480 
     1                , 2HEC, 2HES, 2HSA, 2HRY, 2H T, 2HO , 2HMA, 2HTC  00481 
     1                , 2HH , 2HLI, 2HNE, 1H /                          00482 
      DATA SIFIN  / 38, 2H**, 2H**, 2H* , 2H  , 2H (, 2HFI, 2HN , 2HNE  00483 
     1                , 2HCE, 2HSS, 2HAR, 2HY , 2HTO, 2H M, 2HAT, 2HCH  00484 
     1                , 2H L, 2HIN, 2HE /                               00485 
      DATA SIFIN2 / 14, 2HAS, 2HSU, 2HME, 2HD , 2HAB, 2HOV, 2HE)/       00486 
      DATA SIGN   / 45, 2H**, 2H**, 2H* , 2H  , 2H (, 2HNO, 2H C, 2HON  00487 
     1                , 2HTR, 2HOL, 2H P, 2HHR, 2HAS, 2HE , 2HFO, 2HR   00488 
     1                , 2HFI, 2HN , 2HTO, 2H M, 2HAT, 2HCH, 1H)/        00489 
      DATA SINSRT / 38, 2H**, 2H**, 2H* , 2HST, 2HAT, 2HEM, 2HEN, 2HT(  00490 
     1                , 2HS), 2H N, 2HEE, 2HDE, 2HD , 2HBE, 2HFO, 2HRE  00491 
     1                , 2H L, 2HIN, 2HE /                               00492 
      DATA SINS2  / 13, 2HAS, 2HSU, 2HME, 2HD , 2HBE, 2HLO, 1HW/        00493 
      DATA SITODM / 50, 2H**, 2H**, 2H* , 2H  , 2H (, 2HON, 2HLY, 2H T  00494 
     1                , 2HO , 2HAN, 2HD , 2HEN, 2HD , 2HAR, 2HE , 2HVA  00495 
     1                , 2HLI, 2HD , 2HAT, 2H T, 2HHI, 2HS , 2HPO, 2HIN  00496 
     1                , 2HT)/                                           00497 
      DATA SIWHEN / 39, 2H**, 2H**, 2H* , 2H  , 2H (, 2HWH, 2HEN, 2H T  00498 
     1                , 2HO , 2HMA, 2HTC, 2HH , 2HFO, 2HLL, 2HOW, 2HIN  00499 
     1                , 2HG , 2HEL, 2HSE, 1H)/                          00500 
      DATA SMPE / 22, 2H**, 2H**, 2H* , 2HMI, 2HSS, 2HIN,       !30JUN8100501 
     1          2HG , 2H.P, 2HAS, 2HSE, 2HND/           !30JUN81MAO     00502 
      DATA SMULER / 44, 2H**, 2H**, 2H* , 2H  , 2H (, 2HPR, 2HOC, 2HED  00503 
     1                , 2HUR, 2HE , 2HAL, 2HRE, 2HAD, 2HY , 2HDE, 2HFI  00504 
     1                , 2HNE, 2HD , 2HON, 2H L, 2HIN, 2HE /             00505 
      DATA SNDER1 / 42, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HNE, 2HXT, 2H    00506 
     1                , 2HPR, 2HOC, 2HED, 2HUR, 2HES, 2H W, 2HER, 2HE   00507 
     1                , 2HIN, 2HVO, 2HKE, 2HD , 2HON/                   00508 
      DATA SNDER2 / 44, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HLI, 2HNE, 2HS   00509 
     1                , 2HGI, 2HVE, 2HN , 2HBU, 2HT , 2HWE, 2HRE, 2H N  00510 
     1                , 2HEV, 2HER, 2H D, 2HEF, 2HIN, 2HED/             00511 
      DATA SNIER1 / 46, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HFO, 2HLL, 2HOW  00512 
     1                , 2HIN, 2HG , 2HPR, 2HOC, 2HED, 2HUR, 2HES, 2H W  00513 
     1                , 2HER, 2HE , 2HDE, 2HFI, 2HNE, 2HD , 2HON/       00514 
      DATA SNIER2 / 44, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HLI, 2HNE, 2HS   00515 
     1                , 2HGI, 2HVE, 2HN , 2HBU, 2HT , 2HWE, 2HRE, 2H N  00516 
     1                , 2HEV, 2HER, 2H I, 2HNV, 2HOK, 2HED/             00517 
      DATA SNEST /36, 2H**, 2H**, 2H* ,2H.I, 2HNC, 2HLU, 2HDE, !29JUN81M00518 
     1 2H F, 2HIL, 2HES, 2H N, 2HES, 2HTE, 2HD ,2HTO, 2HO ,   !29JUN81MA00519 
     2 2HDE, 2HEP/                                                 !29JU00520 
      DATA SNONAM /31, 2H**, 2H**, 2H*  ,2HNO, 2H N, 2HAM, 2HE , !30JUN800521 
     1 2HGI, 2HVE, 2HN  ,2HWI, 2HTH, 2H ., 2HPA, 2HSS, 1H_/     !30JUN8100522 
      DATA SOPN /32, 2H**, 2H**, 2H* ,2HOP, 2HEN, 2H F, 2HAI, !29JUN81MA00523 
     1 2HL ,2HON, 2H ., 2HIN, 2HCL, 2HUD, 2HE , 2HFI, 2HLE/  !29JUN81MAO00524 
      DATA SPAGE /11, 2H  ,2H  ,2H  ,2H.P ,2HAG ,1HE/                   00527 
      DATA SRP    /  1, 1H)/                                            00530 
      DATA SSPACR /  3, 2H. , 1H /                                      00531 
      DATA STABH  / 37, 2H  , 2H  , 2H  , 2HPR, 2HOC, 2HED, 2HUR, 2HE   00532 
     1                , 2HCR, 2HOS, 2HS-, 2HRE, 2HFE, 2HRE, 2HNC, 2HE   00533 
     1                , 2HTA, 2HBL, 1HE/                                00534 
      DATA STODUM / 24, 2H  , 2H  , 2H  , 2HTO, 2H D, 2HUM, 2HMY, 2H-P  00535 
     1                , 2HRO, 2HCE, 2HDU, 2HRE/                         00536 
      DATA STRUN / 47, 2H**, 2H**, 2H*  ,2H.P, 2HAS, 2HS_,      !30JUN8100537 
     1 2H N, 2HAM, 2HE , 2HHA, 2HS  ,2H> , 2H6  ,2HCH,  !30JUN81MAO     00538 
     2 2HAR, 2HAC, 2HTE, 2HRS, 2H--, 2HTR, 2HUN, 2HCA,  !30JUN81MAO     00539 
     3 2HTE, 1HD/                                               !30JUN8100540 
      DATA SVER   / 21, 2H(F, 2HLE, 2HCS, 2H V, 2HER, 2HSI, 2HON, 2H 2  00541 
     1                , 2H2., 2H38, 1H)/                                00542 
      DATA SWHEN  / 29, 2H  , 2H  , 2H  , 2HWH, 2HEN, 2H (, 2H.T, 2HRU  00543 
     1                , 2HE., 2H) , 2HCA, 2HLL, 2H E, 2HXI, 1HT/        00544 
      DATA SXER1  / 54, 2H**, 2H**, 2H* , 2H  , 2H (, 2HIN, 2HVA, 2HLI  00545 
     1                , 2HD , 2HCH, 2HAR, 2HAC, 2HTE, 2HR , 2HIN, 2H S  00546 
     1                , 2HTA, 2HTE, 2HME, 2HNT, 2H N, 2HUM, 2HBE, 2HR   00547 
     1                , 2HFI, 2HEL, 2HD)/                               00548 
      DATA SXER2  / 53, 2H**, 2H**, 2H* , 2H  , 2H (, 2HRE, 2HCO, 2HGN  00549 
     1                , 2HIZ, 2HAB, 2HLE, 2H S, 2HTA, 2HTE, 2HME, 2HNT  00550 
     1                , 2H F, 2HOL, 2HLO, 2HWE, 2HD , 2HBY, 2H G, 2HAR  00551 
     1                , 2HBA, 2HGE, 1H)/                                00552 
      DATA SXER3  / 50, 2H**, 2H**, 2H* , 2H  , 2H (, 2HLE, 2HFT, 2H P  00553 
     1                , 2HAR, 2HEN, 2H D, 2HOE, 2HS , 2HNO, 2HT , 2HFO  00554 
     1                , 2HLL, 2HOW, 2H C, 2HON, 2HTR, 2HOL, 2H W, 2HOR  00555 
     1                , 2HD)/                                           00556 
      DATA SXER4  / 30, 2H**, 2H**, 2H* , 2H  , 2H (, 2HMI, 2HSS, 2HIN  00557 
     1                , 2HG , 2HRI, 2HGH, 2HT , 2HPA, 2HRE, 2HN)/       00558 
      DATA SXER5  / 50, 2H**, 2H**, 2H* , 2H  , 2H (, 2HVA, 2HLI, 2HD   00559 
     1                , 2HPR, 2HOC, 2HED, 2HUR, 2HE , 2HNA, 2HME, 2H D  00560 
     1                , 2HOE, 2HS , 2HNO, 2HT , 2HFO, 2HLL, 2HOW, 2H T  00561 
     1                , 2HO)/                                           00562 
      IF(.NOT.(SOURCE.EQ.SETUP)) GO TO 32757                            00569 
      SOURCE=RETRY                                                      00569 
      GO TO 32758                                                       00570 
32757 IF(.NOT.(ERROR.EQ.0.AND.ERSTOP.EQ.0)) GO TO 32756                 00570 
      SOURCE=READ       !IF NO ERROR, SET FLAG TO GET NEXT LINE FROM FLX00571 
      ASSIGN 32754 TO I32755                                            00572 
      GO TO 32755                                                       00572 
32754 GO TO 32758                                                       00574 
32756 MINER=(((ERROR.GE.5).AND.(ERROR.LE.6)).OR.                        00575 
     1       ((ERROR.GE.13).AND.(ERROR.LE.15)))                         00576 
      MINER=MINER.OR.((ERROR.GE.1).AND.(ERROR.LE.3)).OR.(ERROR.EQ.25)   00577 
     1 .OR. (ERROR.EQ.404)                                              00578 
      IF(.NOT.(MINER)) GO TO 32752                                      00579 
      MINCNT=MINCNT+1     !INC WARNING COUNT                            00579 
      GO TO 32753                                                       00579 
32752 MAJCNT=MAJCNT+1             !INC ERROR COUNT                      00580 
32753 IF(.NOT.(ERROR.EQ.0)) GO TO 32750                                 00581 
      ERTYPE=1                                                          00581 
      GO TO 32751                                                       00581 
32750 IF(.NOT.(ERROR.LE.3)) GO TO 32748                                 00584 
      ASSIGN 32746 TO I32747                                            00584 
      GO TO 32747                                                       00584 
32746 GO TO 32749                                                       00585 
32748 IF(.NOT.(ERROR.EQ.4)) GO TO 32745                                 00585 
      ASSIGN 32743 TO I32744                                            00585 
      GO TO 32744                                                       00585 
32743 GO TO 32749                                                       00586 
32745 IF(.NOT.(ERROR.LE.6)) GO TO 32742                                 00586 
      ERTYPE=3                                                          00586 
      GO TO 32749                                                       00587 
32742 IF(.NOT.(ERROR.EQ.7)) GO TO 32741                                 00587 
      ASSIGN 32740 TO I32744                                            00587 
      GO TO 32744                                                       00587 
32740 GO TO 32749                                                       00588 
32741 IF(.NOT.(ERROR.EQ.8)) GO TO 32739                                 00588 
      ASSIGN 32737 TO I32738                                            00588 
      GO TO 32738                                                       00588 
32737 GO TO 32749                                                       00589 
32739 IF(.NOT.(ERROR.EQ.9)) GO TO 32736                                 00589 
      ASSIGN 32734 TO I32735                                            00589 
      GO TO 32735                                                       00589 
32734 GO TO 32749                                                       00590 
32736 IF(.NOT.(ERROR.EQ.10)) GO TO 32733                                00590 
      ASSIGN 32731 TO I32732                                            00590 
      GO TO 32732                                                       00590 
32731 GO TO 32749                                                       00591 
32733 IF(.NOT.(ERROR.LE.12)) GO TO 32730                                00591 
      ASSIGN 32729 TO I32747                                            00591 
      GO TO 32747                                                       00591 
32729 GO TO 32749                                                       00592 
32730 IF(.NOT.(ERROR.LE.15)) GO TO 32728                                00592 
      ASSIGN 32727 TO I32747                                            00592 
      GO TO 32747                                                       00592 
32727 GO TO 32749                                                       00593 
32728 IF(.NOT.(ERROR.EQ.16)) GO TO 32726                                00593 
      ASSIGN 32725 TO I32744                                            00593 
      GO TO 32744                                                       00593 
32725 GO TO 32749                                                       00594 
32726 IF(.NOT.(ERROR.EQ.17)) GO TO 32724                                00594 
      ASSIGN 32722 TO I32723                                            00594 
      GO TO 32723                                                       00594 
32722 GO TO 32749                                                       00595 
32724 IF(.NOT.(ERROR.EQ.18)) GO TO 32721                                00595 
      ASSIGN 32720 TO I32735                                            00595 
      GO TO 32735                                                       00595 
32720 GO TO 32749                                                       00596 
32721 IF(.NOT.(ERROR.LE.19)) GO TO 32719                                00596 
      ASSIGN 32718 TO I32723                                            00596 
      GO TO 32723                                                       00596 
32718 GO TO 32749                                                       00597 
32719 IF(.NOT.(ERROR.EQ.20)) GO TO 32717                                00597 
      ASSIGN 32716 TO I32744                                            00597 
      GO TO 32744                                                       00597 
32716 GO TO 32749                                                       00598 
32717 IF(.NOT.(ERROR.EQ.21)) GO TO 32715                                00598 
      ASSIGN 32714 TO I32735                                            00598 
      GO TO 32735                                                       00598 
32714 GO TO 32749                                                       00599 
32715 IF(.NOT.(ERROR.LE.23)) GO TO 32713                                00599 
      ASSIGN 32712 TO I32747                                            00599 
      GO TO 32747                                                       00599 
32712 GO TO 32749                                                       00600 
32713 IF(.NOT.(ERROR.EQ.24)) GO TO 32711                                00600 
      ASSIGN 32710 TO I32744                                            00600 
      GO TO 32744                                                       00600 
32710 GO TO 32749                                                       00601 
32711 IF(.NOT.(ERROR.EQ.25)) GO TO 32709                                00601 
      ERTYPE=4                                                          00601 
      GO TO 32749                                                       00602 
32709 IF(.NOT.(ERROR.EQ.26)) GO TO 32708                                00602 
      ERTYPE=5                                                          00602 
      GO TO 32749                                                       00603 
32708 IF(.NOT.(ERROR.GT.300 .AND. ERROR.LE.303)) GO TO 32707            00603 
      ERTYPE=6         !29JUN81 MAO                                     00603 
      GO TO 32749                                                       00604 
32707 IF(.NOT.(ERROR.GT.400 .AND. ERROR.LE.403)) GO TO 32706            00604 
      ERTYPE=7         !30JUN81MAO                                      00604 
      GO TO 32749                                                       00605 
32706 IF(.NOT.(ERROR.EQ.404)) GO TO 32705                               00605 
      ASSIGN 32703 TO I32704                                            00605 
      GO TO 32704                                                       00605 
32703 CONTINUE                                                          00606 
32705 CONTINUE                                                          00606 
32749 CONTINUE                                                          00607 
32751 SOURCE=READ                                                       00608 
      IF((1).NE.(ERTYPE)) GO TO 32701                                   00610 
      CALL PUT(-LINENO,SHOLD,ERRCL)                                     00611 
      DO 32700 I=1,ERSTOP                                               00612 
      IF((1).NE.(ERRSTK(I))) GO TO 32698                                00614 
      CALL PUT(0,SXER1,ERRCL)                                           00614 
      GO TO 32699                                                       00615 
32698 IF((2).NE.(ERRSTK(I))) GO TO 32697                                00615 
      CALL PUT(0,SXER2,ERRCL)                                           00615 
      GO TO 32699                                                       00616 
32697 IF((3).NE.(ERRSTK(I))) GO TO 32696                                00616 
      CALL PUT(0,SXER3,ERRCL)                                           00616 
      GO TO 32699                                                       00617 
32696 IF((4).NE.(ERRSTK(I))) GO TO 32695                                00617 
      CALL PUT(0,SXER4,ERRCL)                                           00617 
      GO TO 32699                                                       00618 
32695 IF((5).NE.(ERRSTK(I))) GO TO 32694                                00618 
      CALL PUT(0,SXER5,ERRCL)                                           00618 
32694 CONTINUE                                                          00619 
32699 CONTINUE                                                          00620 
32700 CONTINUE                                                          00620 
      GO TO 32702                                                       00622 
32701 IF((2).NE.(ERTYPE)) GO TO 32693                                   00622 
      SOURCE=SETUP          !MISSING STATEMENT INSERTED                 00622 
      GO TO 32702                                                       00623 
32693 IF((3).NE.(ERTYPE)) GO TO 32692                                   00623 
      CALL PUT(-LINENO,SFLX,ERRCL)              !EXTRA FIN              00624 
      CALL PUT(0,SIGN,ERRCL)                                            00625 
      GO TO 32702                                                       00627 
32692 IF((4).NE.(ERTYPE)) GO TO 32691                                   00627 
      CALL PUT(0,SENDER,ERRCL)      !MISSING END                        00627 
      GO TO 32702                                                       00628 
32691 IF((5).NE.(ERTYPE)) GO TO 32690                                   00628 
      CALL PUT(LINENO,SFLX,ERRCL)       !PROCEDURE ALREADY DEFINED      00629 
      CALL CPYSTR(SST,SMULER)                                           00630 
      CALL CATNUM(SST,MLINE)                                            00631 
      CALL CATSTR(SST,SRP)                                              00632 
      CALL PUT(0,SST,ERRCL)                                             00633 
      GO TO 32702                                                       00635 
32690 IF((6).NE.(ERTYPE)) GO TO 32689                                   00635 
      CALL PUT (-LINENO,SFLX,ERRCL)                                     00636 
      IF((301).NE.(ERROR)) GO TO 32687                                  00638 
      CALL PUT (0,SNEST,ERRCL)    !MAX NESTING DEPTH EXCEEDED           00638 
      GO TO 32688                                                       00639 
32687 IF((302).NE.(ERROR)) GO TO 32686                                  00639 
      CALL PUT (0,SFNAM,ERRCL)    !FILE NAME ERROR                      00639 
      GO TO 32688                                                       00640 
32686 IF((303).NE.(ERROR)) GO TO 32685                                  00640 
      CALL PUT (0,SOPN,ERRCL)     !FILE OPEN ERROR                      00640 
32685 CONTINUE                                                          00641 
32688 GO TO 32702                                                       00643 
32689 IF((7).NE.(ERTYPE)) GO TO 32684                                   00643 
      CALL PUT (-LINENO,SFLX,ERRCL)                                     00644 
      IF((401).NE.(ERROR)) GO TO 32682                                  00646 
      CALL PUT (0,SEPE,ERRCL)     !excess .PASSEND                      00646 
      GO TO 32683                                                       00647 
32682 IF((402).NE.(ERROR)) GO TO 32681                                  00647 
      CALL PUT (0,STRUN,ERRCL)    !>6 char in name                      00647 
      GO TO 32683                                                       00648 
32681 IF((403).NE.(ERROR)) GO TO 32680                                  00648 
      CALL PUT (0,SNONAM,ERRCL)   !name not given                       00648 
32680 CONTINUE                                                          00649 
32683 GO TO 32702                                                       00651 
32684 IF((8).NE.(ERTYPE)) GO TO 32679                                   00651 
      SOURCE=RETRY                                                      00651 
32679 CONTINUE                                                          00652 
32702 CONTINUE                                                          00654 
32758 IF(.NOT.(ENDPGM)) GO TO 32678                                     00655 
      ASSIGN 32676 TO I32677                                            00656 
      GO TO 32677                                                       00656 
32676 ASSIGN 32674 TO I32675                                            00657 
      GO TO 32675                                                       00657 
32674 CALL PUT(0,SVER,LISTCL)                                           00658 
32678 RETURN                                                            00660 
32723 CONTINUE                                                          00661 
      ASSIGN 32672 TO I32673                                            00662 
      GO TO 32673                                                       00662 
32672 CALL CPYSTR(SFLX,SCOND)                                           00663 
      CALL PUT(0,SICOND,ERRCL)                                          00664 
      GO TO I32723                                                      00665 
32744 CONTINUE                                                          00666 
      ASSIGN 32671 TO I32673                                            00667 
      GO TO 32673                                                       00667 
32671 CALL CPYSTR(SFLX,SELSE)                                           00668 
      CALL CPYSTR(SLIST,SIELSE)                                         00669 
      CALL CATNUM(SLIST,STACK(TOP-1))                                   00670 
      CALL CATSTR(SLIST,SRP)                                            00671 
      CALL PUT(0,SLIST,ERRCL)                                           00672 
      GO TO I32744                                                      00673 
32747 CONTINUE                                                          00674 
      ASSIGN 32670 TO I32673                                            00675 
      GO TO 32673                                                       00675 
32670 CALL CPYSTR(SFLX,SFIN)                                            00676 
      CALL CPYSTR(SLIST,SIFIN)                                          00677 
      IF(.NOT.(STACK(TOP-1).EQ.0)) GO TO 32668                          00678 
      CALL CATSTR(SLIST,SIFIN2)                                         00678 
      GO TO 32669                                                       00678 
32668 CALL CATNUM(SLIST,STACK(TOP-1))                                   00680 
      CALL CATSTR(SLIST,SRP)                                            00681 
32669 CALL PUT(0,SLIST,ERRCL)                                           00683 
      GO TO I32747                                                      00684 
32704 CONTINUE                                                          00685 
      ASSIGN 32667 TO I32673                                            00686 
      GO TO 32673                                                       00686 
32667 ERTYPE=8                                                          00687 
      DO 32666 I=1,CNDLVL                                               00688 
      CALL PUT (0,SMPE,ERRCL)                                           00689 
32666 CONTINUE                                                          00690 
      CNDLVL=0                                                          00691 
      PASFLG=.TRUE.                                                     00692 
      GO TO I32704                                                      00693 
32735 CONTINUE                                                          00694 
      ASSIGN 32665 TO I32673                                            00695 
      GO TO 32673                                                       00695 
32665 CALL CPYSTR(SFLX,STODUM)                                          00696 
      CALL PUT(0,SITODM,ERRCL)                                          00697 
      GO TO I32735                                                      00698 
32738 CONTINUE                                                          00699 
      ASSIGN 32664 TO I32673                                            00700 
      GO TO 32673                                                       00700 
32664 CALL CPYSTR(SFLX,SWHEN)                                           00701 
      CALL PUT(0,SIWHEN,ERRCL)                                          00702 
      GO TO I32738                                                      00703 
32732 CONTINUE                                                          00704 
      IF(.NOT.(TOP.LE.7)) GO TO 32662                                   00706 
      ASSIGN 32661 TO I32738                                            00706 
      GO TO 32738                                                       00706 
32661 GO TO 32663                                                       00707 
32662 IF(.NOT.(STACK(TOP-6).EQ.TELSE)) GO TO 32660                      00707 
      ASSIGN 32659 TO I32747                                            00707 
      GO TO 32747                                                       00707 
32659 GO TO 32663                                                       00708 
32660 ASSIGN 32658 TO I32738                                            00708 
      GO TO 32738                                                       00708 
32658 CONTINUE                                                          00709 
32663 GO TO I32732                                                      00710 
32675 CONTINUE                                                          00711 
        LSTLEV=LEVEL                                                    00712 
      IF(.NOT.(LSTLEV.EQ.0)) GO TO 32656                                00713 
      CALL PUT(BLN,SB,LISTCL)                                           00713 
      GO TO 32657                                                       00713 
32656 CALL CPYSTR(SLIST,SB6)                                            00715 
      DO 32655 I=1,LSTLEV                                               00716 
      CALL CATSTR(SLIST,SSPACR)                                         00716 
32655 CONTINUE                                                          00716 
      IF(.NOT.(SLIST(1).GT.WWIDTH)) GO TO 32653                         00717 
      CALL PUT(BLN,SP,LISTCL)                                           00717 
      GO TO 32654                                                       00717 
32653 CALL PUT(BLN,SLIST,LISTCL)                                        00718 
32654 CONTINUE                                                          00719 
32657 BLN=0                                                             00720 
      GO TO I32675                                                      00721 
32652 CONTINUE                                                          00722 
      CALL PUT(0,SB,LISTCL)                                             00723 
      CALL PUT(0,SDASH,LISTCL)                                          00724 
      CALL PUT(0,SB,LISTCL)                                             00725 
      GO TO I32652                                                      00726 
32755 CONTINUE                                                          00727 
      IF(.NOT.(CLASS.EQ.TTO)) GO TO 32651                               00728 
      ASSIGN 32650 TO I32652                                            00728 
      GO TO 32652                                                       00728 
32650 CONTINUE                                                          00728 
32651 IF (SFLX(1).LT.7)  CALL CATSTR(SFLX,SB7)                          00729 
      CALL CPYSUB(SLIST,SFLX,1,6)                                       00730 
      IF(LSTLEV.EQ.0) GO TO 32649                                       00731 
      DO 32648 I=1,LSTLEV                                               00732 
      CALL CATSTR(SLIST,SSPACR)                                         00732 
32648 CONTINUE                                                          00732 
32649 IF(.NOT.(CLASS.EQ.TFIN)) GO TO 32647                              00734 
      SLIST(1)=SLIST(1)-SSPACR(1)                                       00735 
      CALL CATSTR(SLIST,SFSPCR)                                         00736 
32647 CALL CATSUB(SLIST,SFLX,7,SFLX(1)-6)                               00738 
      IF (SLIST(1).GT.WWIDTH)  CALL CPYSTR(SLIST,SFLX)                  00742 
      IF(.NOT.(ERLST)) GO TO 32645                                      00743 
      CALL PUT(LINENO,SLIST,ERRCL)                                      00744 
      ERLST=.FALSE.                                                     00745 
      GO TO 32646                                                       00746 
32645 CALL PUT(LINENO,SLIST,LISTCL)                                     00747 
32646 IF(.NOT.(CLASS.EQ.TDIR .AND. DTYPE.EQ.DPAGE .AND. LSTFUL)) GO TO 300751 
     12644                                                              00751 
      IF(.NOT.(ALECS)) GO TO 32642                                      00754 
      CALL PUT (LINENO,SPAGE,FORTCL)       !22-JUN-81                   00754 
      GO TO 32643                                                       00754 
32642 CALL PUTCH (SLIST(2),1,FORMFD)            !put in formfeed !22-JUN00758 
      SLIST(1)=1                                                 !22-JUN00759 
      CALL PUT (LINENO,SLIST,FORTCL)                             !22-JUN00760 
32643 CONTINUE                                                          00766 
32644 GO TO I32755                                                      00767 
32673 CONTINUE                                                          00768 
      ERTYPE=2                                                          00769 
      ASSIGN 32640 TO I32641                                            00770 
      GO TO 32641                                                       00770 
32640 LINENO=0                                                          00771 
      IF(.NOT.(SOURCE.EQ.READ)) GO TO 32639                             00772 
      CALL CPYSTR(SST,SINSRT)                                           00773 
      IF(.NOT.(HOLDNO.GT.0)) GO TO 32637                                00774 
      CALL CATNUM(SST,HOLDNO)                                           00774 
      GO TO 32638                                                       00774 
32637 CALL CATSTR(SST,SINS2)                                            00775 
32638 CALL PUT(0,SST,ERRCL)                                             00776 
32639 GO TO I32673                                                      00778 
32677 CONTINUE                                                          00779 
      IF(PTABLE.EQ.0) GO TO 32636                                       00780 
      TABLCL=LISTCL                                                     00781 
      ASSIGN 32635 TO I32652                                            00782 
      GO TO 32652                                                       00782 
32635 CALL PUT(0,STABH,LISTCL)                                          00783 
      CALL PUT(0,SB,LISTCL)                                             00784 
      P=PTABLE                                                          00785 
      NDERR=.FALSE.                                                     00786 
      NIERR=.FALSE.                                                     00787 
      GO TO 32633                                                       00788 
32634 IF(P.EQ.0) GO TO 32632                                            00788 
32633 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 32631                            00789 
      NDERR=.TRUE.                                                      00790 
      MAJCNT=MAJCNT+1                                                   00791 
32631 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 32630                            00793 
      NIERR=.TRUE.                                                      00794 
      MINCNT=MINCNT+1                                                   00795 
32630 ASSIGN 32628 TO I32629                                            00797 
      GO TO 32629                                                       00797 
32628 P=STACK(P)                                                        00798 
      GO TO 32634                                                       00799 
32632 IF(.NOT.(NDERR)) GO TO 32627                                      00800 
      CALL PUT(0,SNDER1,ERRCL)                                          00801 
      CALL PUT(0,SNDER2,ERRCL)                                          00802 
      ASSIGN 32626 TO I32675                                            00803 
      GO TO 32675                                                       00803 
32626 P=PTABLE                                                          00804 
      TABLCL=ERRCL                                                      00805 
      GO TO 32624                                                       00806 
32625 IF(P.EQ.0) GO TO 32623                                            00806 
32624 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 32622                            00807 
      ASSIGN 32621 TO I32629                                            00807 
      GO TO 32629                                                       00807 
32621 CONTINUE                                                          00807 
32622 P=STACK(P)                                                        00808 
      GO TO 32625                                                       00809 
32623 CONTINUE                                                          00810 
32627 IF(.NOT.(NIERR)) GO TO 32620                                      00811 
      CALL PUT(0,SNIER1,ERRCL)                                          00812 
      CALL PUT(0,SNIER2,ERRCL)                                          00813 
      ASSIGN 32619 TO I32675                                            00814 
      GO TO 32675                                                       00814 
32619 P=PTABLE                                                          00815 
      TABLCL=ERRCL                                                      00816 
      GO TO 32617                                                       00817 
32618 IF(P.EQ.0) GO TO 32616                                            00817 
32617 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 32615                            00818 
      ASSIGN 32614 TO I32629                                            00818 
      GO TO 32629                                                       00818 
32614 CONTINUE                                                          00818 
32615 P=STACK(P)                                                        00819 
      GO TO 32618                                                       00820 
32616 CONTINUE                                                          00821 
32620 CONTINUE                                                          00822 
32636 GO TO I32677                                                      00823 
32629 CONTINUE                                                          00824 
      CALL CPYSTR(SST,SB6)                                              00825 
      IF(.NOT.(STACK(P+2).EQ.0)) CALL PUTNUM(SST,STACK(P+2))            00826 
      CALL CATSTR(SST,STACK(P+4))                                       00827 
      CALL PUT(0,SST,TABLCL)                                            00828 
      QP=STACK(P+3)                                                     00829 
32613 IF(QP.EQ.0) GO TO 32612                                           00830 
      CALL CPYSTR(SST,SB4)                                              00831 
      I=1                                                               00832 
32611 IF(QP.EQ.0.OR.I.GT.REFNO) GO TO 32610                             00833 
      CALL CATSTR(SST,SB2)                                              00834 
      CALL CATNUM(SST,STACK(QP+1))                                      00835 
      I=I+1                                                             00836 
      QP=STACK(QP)                                                      00837 
      GO TO 32611                                                       00838 
32610 CALL PUT(0,SST,TABLCL)                                            00839 
      GO TO 32613                                                       00840 
32612 CALL PUT(0,SB,LISTCL)                                             00841 
      GO TO I32629                                                      00842 
32641 CONTINUE                                                          00843 
      IF(SAVED) GO TO 32609                                             00844 
      SAVED=.TRUE.                                                      00845 
      HOLDNO=LINENO                                                     00846 
      CALL CPYSTR(SHOLD,SFLX)                                           00847 
32609 GO TO I32641                                                      00849 
      END                                                               00850 
