SUBROUTINE LIST 01550 INTEGER BLN , CHC , CHSPAC, CHZERO, CLASS , ERRCL 10850 INTEGER ERROR , ERRSTK, ERSTOP, ERTYPE, EXTYPE, FLXNO 10900 INTEGER FORTCL, HOLDNO, I , LEVEL , LINENO 10950 INTEGER LISTCL, LSTLEV 11000 INTEGER MAJCNT, MINCNT, MLINE , NCHPWD, NUNITS, P 11050 INTEGER PTABLE, QP , READ , REFNO , RETRY 11100 INTEGER SB , SB2 , SB4 , SB6 , SB7 , SCOND 11150 INTEGER SDASH , SELSE , SENDER, SETUP , SFIN , SFLX 11200 INTEGER SFSPCR, SHOLD , SICOND, SIELSE, SIFIN , SIFIN2 11250 INTEGER SIGN , SINSRT, SINS2 , SITODM, SIWHEN, SLIST , SMULER 11300 INTEGER SNDER1, SNDER2, SNIER1, SNIER2, SOURCE, SP 11350 INTEGER SPINV , SPUTGO, SRP , SSPACR, SST , SSTMAX 11400 INTEGER STABH , STACK , STODUM, SVER , SWHEN , SXER1 11450 INTEGER SXER2 , SXER3 , SXER4 , SXER5 , TABLCL, TCEXP 11500 INTEGER TELSE , TEND , TEXEC , TFIN , TOP , TTO 11550 INTEGER ULEN , USTART, UTYPE , WWIDTH 11600 LOGICAL DONE , ENDFIL, ENDPGM, ERLST , FIRST , FOUND ,MINER 12600 LOGICAL NDERR , NIERR , NOPGM , PASS , SAVED 12625 DIMENSION UTYPE(3), USTART(3), ULEN(3) 13050 DIMENSION STACK(2000) 13200 DIMENSION ERRSTK(5) 13350 COMMON BLN , CLASS , DONE , ENDFIL, ENDPGM, ERLST 13850 COMMON ERROR , ERRSTK, ERSTOP, EXTYPE, FIRST , FLXNO 13900 COMMON FOUND , HOLDNO, LEVEL , LINENO, LSTLEV, MAJCNT 13950 COMMON MINCNT, MLINE , NOPGM , NUNITS, PASS , PTABLE, QP 14000 COMMON REFNO , SAVED , SFLX , SHOLD , SLIST , SOURCE 14050 COMMON SPINV , SPUTGO, SST , STACK , TOP , ULEN 14100 COMMON USTART, UTYPE , WWIDTH 14150 COMMON /PARAM/ NCHPWD, CHZERO, CHSPAC, CHC 20900 DIMENSION SFLX (51) 21601 DIMENSION SHOLD (51) 21651 DIMENSION SLIST (101) 21701 DIMENSION SPINV (41) 21751 DIMENSION SPUTGO (11) 21801 DIMENSION SST (101) 21851 DIMENSION SB (2) 22301 DIMENSION SB2 (2) 22401 DIMENSION SB4 (3) 22451 DIMENSION SB6 (4) 22801 DIMENSION SB7 (5) 22851 DIMENSION SCOND (10) 23101 DIMENSION SDASH (21) 23401 DIMENSION SELSE (11) 23601 DIMENSION SENDER (16) 23801 DIMENSION SFIN (6) 23851 DIMENSION SFSPCR (3) 24051 DIMENSION SICOND (28) 24401 DIMENSION SIELSE (21) 24501 DIMENSION SIFIN (20) 24701 DIMENSION SIFIN2 (8) 24751 DIMENSION SIGN (24) 25001 DIMENSION SINSRT (20) 25051 DIMENSION SINS2 (8) 25101 DIMENSION SITODM (26) 25151 DIMENSION SIWHEN (21) 25201 DIMENSION SMULER (23) 25801 DIMENSION SNDER1 (22) 25851 DIMENSION SNDER2 (23) 25901 DIMENSION SNIER1 (24) 26001 DIMENSION SNIER2 (23) 26051 DIMENSION SRP (2) 26201 DIMENSION SSPACR (3) 26401 DIMENSION STABH (20) 26501 DIMENSION STODUM (13) 26551 DIMENSION SVER (12) 26951 DIMENSION SWHEN (16) 27201 DIMENSION SXER1 (28) 27351 DIMENSION SXER2 (28) 27401 DIMENSION SXER3 (26) 27451 DIMENSION SXER4 (16) 27501 DIMENSION SXER5 (26) 27551 DATA FORTCL /1/, LISTCL /2/, ERRCL /3/ 30001 DATA TCEXP/1/, TELSE/2/, TEND/3/, TEXEC/4/, TFIN/5/, TTO/6/ 30002 DATA SETUP /1/, RETRY /2/, READ /3/ 30003 DATA SSTMAX /200/ 30004 DATA SB / 1, 1H / 30005 DATA SB2 / 2, 2H / 30006 DATA SB4 / 4, 2H , 2H / 30007 DATA SB6 / 6, 2H , 2H , 2H / 30008 DATA SB7 / 7, 2H , 2H , 2H , 1H / 30009 DATA SCOND / 17, 2H , 2H , 2H , 2HCO, 2HND, 2HIT, 2HIO, 2HNA 30010 1 , 1HL/ 30011 DATA SDASH / 40, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H-- 30012 1 , 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H-- 30013 1 , 2H--, 2H--, 2H--, 2H--/ 30014 DATA SELSE / 19, 2H , 2H , 2H , 2HEL, 2HSE, 2H C, 2HON, 2HTI 30015 1 , 2HNU, 1HE/ 30016 DATA SENDER / 30, 2H**, 2H**, 2H* , 2HEN, 2HD , 2HST, 2HAT, 2HEM 30017 1 , 2HEN, 2HT , 2HIS, 2H M, 2HIS, 2HSI, 2HNG/ 30018 DATA SFIN / 9, 2H , 2H , 2H , 2HFI, 1HN/ 30019 DATA SFSPCR / 3, 2H.., 1H./ 30020 DATA SICOND / 54, 2H**, 2H**, 2H* , 2H , 2H (, 2HCO, 2HND, 2HIT 30021 1 , 2HIO, 2HNA, 2HL , 2HOR, 2H S, 2HEL, 2HEC, 2HT 30022 1 , 2HIS, 2H A, 2HPP, 2HAR, 2HEN, 2HTL, 2HY , 2HMI 30023 1 , 2HSS, 2HIN, 2HG)/ 30024 DATA SIELSE / 39, 2H**, 2H**, 2H* , 2H , 2H (, 2HEL, 2HSE, 2H N 30025 1 , 2HEC, 2HES, 2HSA, 2HRY, 2H T, 2HO , 2HMA, 2HTC 30026 1 , 2HH , 2HLI, 2HNE, 1H / 30027 DATA SIFIN / 38, 2H**, 2H**, 2H* , 2H , 2H (, 2HFI, 2HN , 2HNE 30028 1 , 2HCE, 2HSS, 2HAR, 2HY , 2HTO, 2H M, 2HAT, 2HCH 30029 1 , 2H L, 2HIN, 2HE / 30030 DATA SIFIN2 / 14, 2HAS, 2HSU, 2HME, 2HD , 2HAB, 2HOV, 2HE)/ 30031 DATA SIGN / 45, 2H**, 2H**, 2H* , 2H , 2H (, 2HNO, 2H C, 2HON 30032 1 , 2HTR, 2HOL, 2H P, 2HHR, 2HAS, 2HE , 2HFO, 2HR 30033 1 , 2HFI, 2HN , 2HTO, 2H M, 2HAT, 2HCH, 1H)/ 30034 DATA SINSRT / 38, 2H**, 2H**, 2H* , 2HST, 2HAT, 2HEM, 2HEN, 2HT( 30035 1 , 2HS), 2H N, 2HEE, 2HDE, 2HD , 2HBE, 2HFO, 2HRE 30036 1 , 2H L, 2HIN, 2HE / 30037 DATA SINS2 / 13, 2HAS, 2HSU, 2HME, 2HD , 2HBE, 2HLO, 1HW/ 30038 DATA SITODM / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HON, 2HLY, 2H T 30039 1 , 2HO , 2HAN, 2HD , 2HEN, 2HD , 2HAR, 2HE , 2HVA 30040 1 , 2HLI, 2HD , 2HAT, 2H T, 2HHI, 2HS , 2HPO, 2HIN 30041 1 , 2HT)/ 30042 DATA SIWHEN / 39, 2H**, 2H**, 2H* , 2H , 2H (, 2HWH, 2HEN, 2H T 30043 1 , 2HO , 2HMA, 2HTC, 2HH , 2HFO, 2HLL, 2HOW, 2HIN 30044 1 , 2HG , 2HEL, 2HSE, 1H)/ 30045 DATA SMULER / 44, 2H**, 2H**, 2H* , 2H , 2H (, 2HPR, 2HOC, 2HED 30046 1 , 2HUR, 2HE , 2HAL, 2HRE, 2HAD, 2HY , 2HDE, 2HFI 30047 1 , 2HNE, 2HD , 2HON, 2H L, 2HIN, 2HE / 30048 DATA SNDER1 / 42, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HNE, 2HXT, 2H 30049 1 , 2HPR, 2HOC, 2HED, 2HUR, 2HES, 2H W, 2HER, 2HE 30050 1 , 2HIN, 2HVO, 2HKE, 2HD , 2HON/ 30051 DATA SNDER2 / 44, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HLI, 2HNE, 2HS 30052 1 , 2HGI, 2HVE, 2HN , 2HBU, 2HT , 2HWE, 2HRE, 2H N 30053 1 , 2HEV, 2HER, 2H D, 2HEF, 2HIN, 2HED/ 30054 DATA SNIER1 / 46, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HFO, 2HLL, 2HOW 30055 1 , 2HIN, 2HG , 2HPR, 2HOC, 2HED, 2HUR, 2HES, 2H W 30056 1 , 2HER, 2HE , 2HDE, 2HFI, 2HNE, 2HD , 2HON/ 30057 DATA SNIER2 / 44, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HLI, 2HNE, 2HS 30058 1 , 2HGI, 2HVE, 2HN , 2HBU, 2HT , 2HWE, 2HRE, 2H N 30059 1 , 2HEV, 2HER, 2H I, 2HNV, 2HOK, 2HED/ 30060 DATA SRP / 1, 1H)/ 30061 DATA SSPACR / 3, 2H. , 1H / 30062 DATA STABH / 37, 2H , 2H , 2H , 2HPR, 2HOC, 2HED, 2HUR, 2HE 30063 1 , 2HCR, 2HOS, 2HS-, 2HRE, 2HFE, 2HRE, 2HNC, 2HE 30064 1 , 2HTA, 2HBL, 1HE/ 30065 DATA STODUM / 24, 2H , 2H , 2H , 2HTO, 2H D, 2HUM, 2HMY, 2H-P 30066 1 , 2HRO, 2HCE, 2HDU, 2HRE/ 30067 DATA SVER / 21, 2H(F, 2HLE, 2HCS, 2H V, 2HER, 2HSI, 2HON, 2H 2 30068 1 , 2H2., 2H34, 1H)/ 30069 DATA SWHEN / 29, 2H , 2H , 2H , 2HWH, 2HEN, 2H (, 2H.T, 2HRU 30070 1 , 2HE., 2H) , 2HCA, 2HLL, 2H E, 2HXI, 1HT/ 30071 DATA SXER1 / 54, 2H**, 2H**, 2H* , 2H , 2H (, 2HIN, 2HVA, 2HLI 30072 1 , 2HD , 2HCH, 2HAR, 2HAC, 2HTE, 2HR , 2HIN, 2H S 30073 1 , 2HTA, 2HTE, 2HME, 2HNT, 2H N, 2HUM, 2HBE, 2HR 30074 1 , 2HFI, 2HEL, 2HD)/ 30075 DATA SXER2 / 53, 2H**, 2H**, 2H* , 2H , 2H (, 2HRE, 2HCO, 2HGN 30076 1 , 2HIZ, 2HAB, 2HLE, 2H S, 2HTA, 2HTE, 2HME, 2HNT 30077 1 , 2H F, 2HOL, 2HLO, 2HWE, 2HD , 2HBY, 2H G, 2HAR 30078 1 , 2HBA, 2HGE, 1H)/ 30079 DATA SXER3 / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HLE, 2HFT, 2H P 30080 1 , 2HAR, 2HEN, 2H D, 2HOE, 2HS , 2HNO, 2HT , 2HFO 30081 1 , 2HLL, 2HOW, 2H C, 2HON, 2HTR, 2HOL, 2H W, 2HOR 30082 1 , 2HD)/ 30083 DATA SXER4 / 30, 2H**, 2H**, 2H* , 2H , 2H (, 2HMI, 2HSS, 2HIN 30084 1 , 2HG , 2HRI, 2HGH, 2HT , 2HPA, 2HRE, 2HN)/ 30085 DATA SXER5 / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HVA, 2HLI, 2HD 30086 1 , 2HPR, 2HOC, 2HED, 2HUR, 2HE , 2HNA, 2HME, 2H D 30087 1 , 2HOE, 2HS , 2HNO, 2HT , 2HFO, 2HLL, 2HOW, 2H T 30088 1 , 2HO)/ 30089 IF(.NOT.(SOURCE.EQ.SETUP)) GO TO 32758 31850 SOURCE=RETRY 31851 GO TO 32759 31900 32758 IF(.NOT.(ERROR.EQ.0.AND.ERSTOP.EQ.0)) GO TO 32757 31901 SOURCE=READ 31950 ASSIGN 32755 TO I32756 32000 GO TO 32756 32001 32755 GO TO 32759 32100 32757 MINER=(((ERROR.GE.5).AND.(ERROR.LE.6)).OR. 32150 1 ((ERROR.GE.13).AND.(ERROR.LE.15))) 32200 MINER=MINER.OR.((ERROR.GE.1).AND.(ERROR.LE.3)) 32225 IF(.NOT.(MINER)) GO TO 32753 32250 MINCNT=MINCNT+1 32251 GO TO 32754 32252 32753 MAJCNT=MAJCNT+1 32300 32754 IF(.NOT.(ERROR.EQ.0)) GO TO 32751 32350 ERTYPE=1 32351 GO TO 32752 32352 32751 IF(.NOT.(ERROR.LE.3)) GO TO 32749 32500 ASSIGN 32747 TO I32748 32501 GO TO 32748 32502 32747 GO TO 32750 32550 32749 IF(.NOT.(ERROR.EQ.4)) GO TO 32746 32551 ASSIGN 32744 TO I32745 32552 GO TO 32745 32553 32744 GO TO 32750 32600 32746 IF(.NOT.(ERROR.LE.6)) GO TO 32743 32601 ERTYPE=3 32602 GO TO 32750 32650 32743 IF(.NOT.(ERROR.EQ.7)) GO TO 32742 32651 ASSIGN 32741 TO I32745 32652 GO TO 32745 32653 32741 GO TO 32750 32700 32742 IF(.NOT.(ERROR.EQ.8)) GO TO 32740 32701 ASSIGN 32738 TO I32739 32702 GO TO 32739 32703 32738 GO TO 32750 32750 32740 IF(.NOT.(ERROR.EQ.9)) GO TO 32737 32751 ASSIGN 32735 TO I32736 32752 GO TO 32736 32753 32735 GO TO 32750 32800 32737 IF(.NOT.(ERROR.EQ.10)) GO TO 32734 32801 ASSIGN 32732 TO I32733 32802 GO TO 32733 32803 32732 GO TO 32750 32850 32734 IF(.NOT.(ERROR.LE.12)) GO TO 32731 32851 ASSIGN 32730 TO I32748 32852 GO TO 32748 32853 32730 GO TO 32750 32900 32731 IF(.NOT.(ERROR.LE.15)) GO TO 32729 32901 ASSIGN 32728 TO I32748 32902 GO TO 32748 32903 32728 GO TO 32750 32950 32729 IF(.NOT.(ERROR.EQ.16)) GO TO 32727 32951 ASSIGN 32726 TO I32745 32952 GO TO 32745 32953 32726 GO TO 32750 33000 32727 IF(.NOT.(ERROR.EQ.17)) GO TO 32725 33001 ASSIGN 32723 TO I32724 33002 GO TO 32724 33003 32723 GO TO 32750 33050 32725 IF(.NOT.(ERROR.EQ.18)) GO TO 32722 33051 ASSIGN 32721 TO I32736 33052 GO TO 32736 33053 32721 GO TO 32750 33100 32722 IF(.NOT.(ERROR.LE.19)) GO TO 32720 33101 ASSIGN 32719 TO I32724 33102 GO TO 32724 33103 32719 GO TO 32750 33150 32720 IF(.NOT.(ERROR.EQ.20)) GO TO 32718 33151 ASSIGN 32717 TO I32745 33152 GO TO 32745 33153 32717 GO TO 32750 33200 32718 IF(.NOT.(ERROR.EQ.21)) GO TO 32716 33201 ASSIGN 32715 TO I32736 33202 GO TO 32736 33203 32715 GO TO 32750 33250 32716 IF(.NOT.(ERROR.LE.23)) GO TO 32714 33251 ASSIGN 32713 TO I32748 33252 GO TO 32748 33253 32713 GO TO 32750 33300 32714 IF(.NOT.(ERROR.EQ.24)) GO TO 32712 33301 ASSIGN 32711 TO I32745 33302 GO TO 32745 33303 32711 GO TO 32750 33350 32712 IF(.NOT.(ERROR.EQ.25)) GO TO 32710 33351 ERTYPE=4 33352 GO TO 32750 33400 32710 IF(.NOT.(ERROR.EQ.26)) GO TO 32709 33401 ERTYPE=5 33402 32709 CONTINUE 33450 32750 CONTINUE 33500 32752 SOURCE=READ 33550 IF((1).NE.(ERTYPE)) GO TO 32707 33650 CALL PUT(-LINENO,SHOLD,ERRCL) 33700 DO 32706 I=1,ERSTOP 33750 IF((1).NE.(ERRSTK(I))) GO TO 32704 33850 CALL PUT(0,SXER1,ERRCL) 33851 GO TO 32705 33900 32704 IF((2).NE.(ERRSTK(I))) GO TO 32703 33901 CALL PUT(0,SXER2,ERRCL) 33902 GO TO 32705 33950 32703 IF((3).NE.(ERRSTK(I))) GO TO 32702 33951 CALL PUT(0,SXER3,ERRCL) 33952 GO TO 32705 34000 32702 IF((4).NE.(ERRSTK(I))) GO TO 32701 34001 CALL PUT(0,SXER4,ERRCL) 34002 GO TO 32705 34050 32701 IF((5).NE.(ERRSTK(I))) GO TO 32700 34051 CALL PUT(0,SXER5,ERRCL) 34052 32700 CONTINUE 34100 32705 CONTINUE 34150 32706 CONTINUE 34151 GO TO 32708 34250 32707 IF((2).NE.(ERTYPE)) GO TO 32699 34251 SOURCE=SETUP 34252 GO TO 32708 34300 32699 IF((3).NE.(ERTYPE)) GO TO 32698 34301 CALL PUT(-LINENO,SFLX,ERRCL) 34350 CALL PUT(0,SIGN,ERRCL) 34400 GO TO 32708 34500 32698 IF((4).NE.(ERTYPE)) GO TO 32697 34501 CALL PUT(0,SENDER,ERRCL) 34502 GO TO 32708 34550 32697 IF((5).NE.(ERTYPE)) GO TO 32696 34551 CALL PUT(LINENO,SFLX,ERRCL) 34600 CALL CPYSTR(SST,SMULER) 34650 CALL CATNUM(SST,MLINE) 34700 CALL CATSTR(SST,SRP) 34750 CALL PUT(0,SST,ERRCL) 34800 32696 CONTINUE 34900 32708 CONTINUE 35000 32759 IF(.NOT.(ENDPGM)) GO TO 32695 35050 ASSIGN 32693 TO I32694 35100 GO TO 32694 35101 32693 ASSIGN 32691 TO I32692 35150 GO TO 32692 35151 32691 CALL PUT(0,SVER,LISTCL) 35200 32695 RETURN 35360 32724 ASSIGN 32689 TO I32690 60500 GO TO 32690 60501 32689 CALL CPYSTR(SFLX,SCOND) 60550 CALL PUT(0,SICOND,ERRCL) 60600 GO TO I32724 60650 32745 ASSIGN 32688 TO I32690 60750 GO TO 32690 60751 32688 CALL CPYSTR(SFLX,SELSE) 60800 CALL CPYSTR(SLIST,SIELSE) 60850 CALL CATNUM(SLIST,STACK(TOP-1)) 60900 CALL CATSTR(SLIST,SRP) 60950 CALL PUT(0,SLIST,ERRCL) 61000 GO TO I32745 61050 32748 ASSIGN 32687 TO I32690 61150 GO TO 32690 61151 32687 CALL CPYSTR(SFLX,SFIN) 61200 CALL CPYSTR(SLIST,SIFIN) 61250 IF(.NOT.(STACK(TOP-1).EQ.0)) GO TO 32685 61300 CALL CATSTR(SLIST,SIFIN2) 61301 GO TO 32686 61302 32685 CALL CATNUM(SLIST,STACK(TOP-1)) 61400 CALL CATSTR(SLIST,SRP) 61450 32686 CALL PUT(0,SLIST,ERRCL) 61550 GO TO I32748 61600 32736 ASSIGN 32684 TO I32690 61700 GO TO 32690 61701 32684 CALL CPYSTR(SFLX,STODUM) 61750 CALL PUT(0,SITODM,ERRCL) 61800 GO TO I32736 61850 32739 ASSIGN 32683 TO I32690 61950 GO TO 32690 61951 32683 CALL CPYSTR(SFLX,SWHEN) 62000 CALL PUT(0,SIWHEN,ERRCL) 62050 GO TO I32739 62100 32733 IF(.NOT.(TOP.LE.7)) GO TO 32681 62107 ASSIGN 32680 TO I32739 62108 GO TO 32739 62109 32680 GO TO 32682 62110 32681 IF(.NOT.(STACK(TOP-6).EQ.AELSE)) GO TO 32679 62111 ASSIGN 32678 TO I32748 62112 GO TO 32748 62113 32678 GO TO 32682 62114 32679 ASSIGN 32677 TO I32739 62115 GO TO 32739 62116 32677 CONTINUE 62117 32682 GO TO I32733 62118 32692 LSTLEV=LEVEL 62220 IF(.NOT.(LSTLEV.EQ.0)) GO TO 32675 62250 CALL PUT(BLN,SB,LISTCL) 62251 GO TO 32676 62252 32675 CALL CPYSTR(SLIST,SB6) 62350 DO 32674 I=1,LSTLEV 62400 CALL CATSTR(SLIST,SSPACR) 62401 32674 CONTINUE 62402 IF(.NOT.(SLIST(1).GT.WWIDTH)) GO TO 32672 62450 CALL PUT(BLN,SP,LISTCL) 62451 GO TO 32673 62452 32672 CALL PUT(BLN,SLIST,LISTCL) 62500 32673 CONTINUE 62550 32676 BLN=0 62600 GO TO I32692 62650 32671 CALL PUT(0,SB,LISTCL) 63700 CALL PUT(0,SDASH,LISTCL) 63750 CALL PUT(0,SB,LISTCL) 63800 GO TO I32671 63850 32756 IF(.NOT.(CLASS.EQ.TTO)) GO TO 32670 64000 ASSIGN 32669 TO I32671 64001 GO TO 32671 64002 32669 CONTINUE 64003 32670 IF (SFLX(1).LT.7) CALL CATSTR(SFLX,SB7) 64050 CALL CPYSUB(SLIST,SFLX,1,6) 64100 IF(LSTLEV.EQ.0) GO TO 32668 64150 DO 32667 I=1,LSTLEV 64200 CALL CATSTR(SLIST,SSPACR) 64201 32667 CONTINUE 64202 32668 IF(.NOT.(CLASS.EQ.TFIN)) GO TO 32666 64300 SLIST(1)=SLIST(1)-SSPACR(1) 64350 CALL CATSTR(SLIST,SFSPCR) 64400 32666 CALL CATSUB(SLIST,SFLX,7,SFLX(1)-6) 64500 IF (SLIST(1).GT.WWIDTH) CALL CPYSTR(SLIST,SFLX) 64550 IF(.NOT.(ERLST)) GO TO 32664 64600 CALL PUT(LINENO,SLIST,ERRCL) 64650 ERLST=.FALSE. 64700 GO TO 32665 64750 32664 CALL PUT(LINENO,SLIST,LISTCL) 64800 32665 GO TO I32756 64850 32690 ERTYPE=2 66900 ASSIGN 32662 TO I32663 66950 GO TO 32663 66951 32662 LINENO=0 67000 IF(.NOT.(SOURCE.EQ.READ)) GO TO 32661 67050 CALL CPYSTR(SST,SINSRT) 67100 IF(.NOT.(HOLDNO.GT.0)) GO TO 32659 67150 CALL CATNUM(SST,HOLDNO) 67151 GO TO 32660 67152 32659 CALL CATSTR(SST,SINS2) 67200 32660 CALL PUT(0,SST,ERRCL) 67250 32661 GO TO I32690 67350 32694 IF(PTABLE.EQ.0) GO TO 32658 73100 TABLCL=LISTCL 73150 ASSIGN 32657 TO I32671 73200 GO TO 32671 73201 32657 CALL PUT(0,STABH,LISTCL) 73250 CALL PUT(0,SB,LISTCL) 73300 P=PTABLE 73350 NDERR=.FALSE. 73400 NIERR=.FALSE. 73450 GO TO 32655 73500 32656 IF(P.EQ.0) GO TO 32654 73501 32655 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 32653 73551 NDERR=.TRUE. 73552 MAJCNT=MAJCNT+1 73553 32653 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 32652 73601 NIERR=.TRUE. 73602 MINCNT=MINCNT+1 73603 32652 ASSIGN 32650 TO I32651 73750 GO TO 32651 73751 32650 P=STACK(P) 73800 GO TO 32656 73850 32654 IF(.NOT.(NDERR)) GO TO 32649 73900 CALL PUT(0,SNDER1,ERRCL) 73950 CALL PUT(0,SNDER2,ERRCL) 74000 ASSIGN 32648 TO I32692 74050 GO TO 32692 74051 32648 P=PTABLE 74100 TABLCL=ERRCL 74150 GO TO 32646 74200 32647 IF(P.EQ.0) GO TO 32645 74201 32646 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 32644 74250 ASSIGN 32643 TO I32651 74251 GO TO 32651 74252 32643 CONTINUE 74253 32644 P=STACK(P) 74300 GO TO 32647 74350 32645 CONTINUE 74400 32649 IF(.NOT.(NIERR)) GO TO 32642 74450 CALL PUT(0,SNIER1,ERRCL) 74500 CALL PUT(0,SNIER2,ERRCL) 74550 ASSIGN 32641 TO I32692 74600 GO TO 32692 74601 32641 P=PTABLE 74650 TABLCL=ERRCL 74700 GO TO 32639 74750 32640 IF(P.EQ.0) GO TO 32638 74751 32639 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 32637 74800 ASSIGN 32636 TO I32651 74801 GO TO 32651 74802 32636 CONTINUE 74803 32637 P=STACK(P) 74850 GO TO 32640 74900 32638 CONTINUE 74950 32642 CONTINUE 75000 32658 GO TO I32694 75050 32651 CALL CPYSTR(SST,SB6) 75150 IF(.NOT.(STACK(P+2).EQ.0)) CALL PUTNUM(SST,STACK(P+2)) 75200 CALL CATSTR(SST,STACK(P+4)) 75250 CALL PUT(0,SST,TABLCL) 75300 QP=STACK(P+3) 75350 32635 IF(QP.EQ.0) GO TO 32634 75400 CALL CPYSTR(SST,SB4) 75450 I=1 75500 32633 IF(QP.EQ.0.OR.I.GT.REFNO) GO TO 32632 75550 CALL CATSTR(SST,SB2) 75600 CALL CATNUM(SST,STACK(QP+1)) 75650 I=I+1 75700 QP=STACK(QP) 75750 GO TO 32633 75800 32632 CALL PUT(0,SST,TABLCL) 75850 GO TO 32635 75900 32634 CALL PUT(0,SB,LISTCL) 75950 GO TO I32651 76000 32663 IF(SAVED) GO TO 32631 82850 SAVED=.TRUE. 82900 HOLDNO=LINENO 82950 CALL CPYSTR(SHOLD,SFLX) 83000 32631 GO TO I32663 83100 END 95400