SUBROUTINE LIST INTEGER BLN , CHC , CHSPAC, CHZERO, CLASS , ERRCL INTEGER ERROR , ERRSTK, ERSTOP, ERTYPE, EXTYPE, FLXNO INTEGER FORTCL, HOLDNO, I , LEVEL , LINENO INTEGER LISTCL, LSTLEV INTEGER MAJCNT, MINCNT, MLINE , NCHPWD, NUNITS, P INTEGER PTABLE, QP , READ , REFNO , RETRY INTEGER SB , SB2 , SB4 , SB6 , SB7 , SCOND INTEGER SDASH , SELSE , SENDER, SETUP , SFIN , SFLX INTEGER SFSPCR, SHOLD , SICOND, SIELSE, SIFIN , SIFIN2 INTEGER SIGN , SINSRT, SINS2 , SITODM, SIWHEN, SLIST , SMULER INTEGER SNDER1, SNDER2, SNIER1, SNIER2, SOURCE, SP INTEGER SPINV , SPUTGO, SRP , SSPACR, SST , SSTMAX INTEGER STABH , STACK , STODUM, SVER , SWHEN , SXER1 INTEGER SXER2 , SXER3 , SXER4 , SXER5 , TABLCL, TCEXP INTEGER TELSE , TEND , TEXEC , TFIN , TOP , TTO INTEGER ULEN , USTART, UTYPE , WWIDTH LOGICAL DONE , ENDFIL, ENDPGM, ERLST , FIRST , FOUND ,MINER LOGICAL NDERR , NIERR , NOPGM , PASS , SAVED DIMENSION UTYPE(3), USTART(3), ULEN(3) DIMENSION STACK(2000) DIMENSION ERRSTK(5) COMMON BLN , CLASS , DONE , ENDFIL, ENDPGM, ERLST COMMON ERROR , ERRSTK, ERSTOP, EXTYPE, FIRST , FLXNO COMMON FOUND , HOLDNO, LEVEL , LINENO, LSTLEV, MAJCNT COMMON MINCNT, MLINE , NOPGM , NUNITS, PASS , PTABLE, QP COMMON REFNO , SAVED , SFLX , SHOLD , SLIST , SOURCE COMMON SPINV , SPUTGO, SST , STACK , TOP , ULEN COMMON USTART, UTYPE , WWIDTH COMMON /PARAM/ NCHPWD, CHZERO, CHSPAC, CHC DIMENSION SFLX (51) DIMENSION SHOLD (51) DIMENSION SLIST (101) DIMENSION SPINV (41) DIMENSION SPUTGO (11) DIMENSION SST (101) DIMENSION SB (2) DIMENSION SB2 (2) DIMENSION SB4 (3) DIMENSION SB6 (4) DIMENSION SB7 (5) DIMENSION SCOND (10) DIMENSION SDASH (21) DIMENSION SELSE (11) DIMENSION SENDER (16) DIMENSION SFIN (6) DIMENSION SFSPCR (3) DIMENSION SICOND (28) DIMENSION SIELSE (21) DIMENSION SIFIN (20) DIMENSION SIFIN2 (8) DIMENSION SIGN (24) DIMENSION SINSRT (20) DIMENSION SINS2 (8) DIMENSION SITODM (26) DIMENSION SIWHEN (21) DIMENSION SMULER (23) DIMENSION SNDER1 (22) DIMENSION SNDER2 (23) DIMENSION SNIER1 (24) DIMENSION SNIER2 (23) DIMENSION SRP (2) DIMENSION SSPACR (3) DIMENSION STABH (20) DIMENSION STODUM (13) DIMENSION SVER (12) DIMENSION SWHEN (16) DIMENSION SXER1 (28) DIMENSION SXER2 (28) DIMENSION SXER3 (26) DIMENSION SXER4 (16) DIMENSION SXER5 (26) DATA FORTCL /1/, LISTCL /2/, ERRCL /3/ DATA TCEXP/1/, TELSE/2/, TEND/3/, TEXEC/4/, TFIN/5/, TTO/6/ DATA SETUP /1/, RETRY /2/, READ /3/ DATA SSTMAX /200/ DATA SB / 1, 1H / DATA SB2 / 2, 2H / DATA SB4 / 4, 2H , 2H / DATA SB6 / 6, 2H , 2H , 2H / DATA SB7 / 7, 2H , 2H , 2H , 1H / DATA SCOND / 17, 2H , 2H , 2H , 2HCO, 2HND, 2HIT, 2HIO, 2HNA 1 , 1HL/ DATA SDASH / 40, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H-- 1 , 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H-- 1 , 2H--, 2H--, 2H--, 2H--/ DATA SELSE / 19, 2H , 2H , 2H , 2HEL, 2HSE, 2H C, 2HON, 2HTI 1 , 2HNU, 1HE/ DATA SENDER / 30, 2H**, 2H**, 2H* , 2HEN, 2HD , 2HST, 2HAT, 2HEM 1 , 2HEN, 2HT , 2HIS, 2H M, 2HIS, 2HSI, 2HNG/ DATA SFIN / 9, 2H , 2H , 2H , 2HFI, 1HN/ DATA SFSPCR / 3, 2H.., 1H./ DATA SICOND / 54, 2H**, 2H**, 2H* , 2H , 2H (, 2HCO, 2HND, 2HIT 1 , 2HIO, 2HNA, 2HL , 2HOR, 2H S, 2HEL, 2HEC, 2HT 1 , 2HIS, 2H A, 2HPP, 2HAR, 2HEN, 2HTL, 2HY , 2HMI 1 , 2HSS, 2HIN, 2HG)/ DATA SIELSE / 39, 2H**, 2H**, 2H* , 2H , 2H (, 2HEL, 2HSE, 2H N 1 , 2HEC, 2HES, 2HSA, 2HRY, 2H T, 2HO , 2HMA, 2HTC 1 , 2HH , 2HLI, 2HNE, 1H / DATA SIFIN / 38, 2H**, 2H**, 2H* , 2H , 2H (, 2HFI, 2HN , 2HNE 1 , 2HCE, 2HSS, 2HAR, 2HY , 2HTO, 2H M, 2HAT, 2HCH 1 , 2H L, 2HIN, 2HE / DATA SIFIN2 / 14, 2HAS, 2HSU, 2HME, 2HD , 2HAB, 2HOV, 2HE)/ DATA SIGN / 45, 2H**, 2H**, 2H* , 2H , 2H (, 2HNO, 2H C, 2HON 1 , 2HTR, 2HOL, 2H P, 2HHR, 2HAS, 2HE , 2HFO, 2HR 1 , 2HFI, 2HN , 2HTO, 2H M, 2HAT, 2HCH, 1H)/ DATA SINSRT / 38, 2H**, 2H**, 2H* , 2HST, 2HAT, 2HEM, 2HEN, 2HT( 1 , 2HS), 2H N, 2HEE, 2HDE, 2HD , 2HBE, 2HFO, 2HRE 1 , 2H L, 2HIN, 2HE / DATA SINS2 / 13, 2HAS, 2HSU, 2HME, 2HD , 2HBE, 2HLO, 1HW/ DATA SITODM / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HON, 2HLY, 2H T 1 , 2HO , 2HAN, 2HD , 2HEN, 2HD , 2HAR, 2HE , 2HVA 1 , 2HLI, 2HD , 2HAT, 2H T, 2HHI, 2HS , 2HPO, 2HIN 1 , 2HT)/ DATA SIWHEN / 39, 2H**, 2H**, 2H* , 2H , 2H (, 2HWH, 2HEN, 2H T 1 , 2HO , 2HMA, 2HTC, 2HH , 2HFO, 2HLL, 2HOW, 2HIN 1 , 2HG , 2HEL, 2HSE, 1H)/ DATA SMULER / 44, 2H**, 2H**, 2H* , 2H , 2H (, 2HPR, 2HOC, 2HED 1 , 2HUR, 2HE , 2HAL, 2HRE, 2HAD, 2HY , 2HDE, 2HFI 1 , 2HNE, 2HD , 2HON, 2H L, 2HIN, 2HE / DATA SNDER1 / 42, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HNE, 2HXT, 2H 1 , 2HPR, 2HOC, 2HED, 2HUR, 2HES, 2H W, 2HER, 2HE 1 , 2HIN, 2HVO, 2HKE, 2HD , 2HON/ DATA SNDER2 / 44, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HLI, 2HNE, 2HS 1 , 2HGI, 2HVE, 2HN , 2HBU, 2HT , 2HWE, 2HRE, 2H N 1 , 2HEV, 2HER, 2H D, 2HEF, 2HIN, 2HED/ DATA SNIER1 / 46, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HFO, 2HLL, 2HOW 1 , 2HIN, 2HG , 2HPR, 2HOC, 2HED, 2HUR, 2HES, 2H W 1 , 2HER, 2HE , 2HDE, 2HFI, 2HNE, 2HD , 2HON/ DATA SNIER2 / 44, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HLI, 2HNE, 2HS 1 , 2HGI, 2HVE, 2HN , 2HBU, 2HT , 2HWE, 2HRE, 2H N 1 , 2HEV, 2HER, 2H I, 2HNV, 2HOK, 2HED/ DATA SRP / 1, 1H)/ DATA SSPACR / 3, 2H. , 1H / DATA STABH / 37, 2H , 2H , 2H , 2HPR, 2HOC, 2HED, 2HUR, 2HE 1 , 2HCR, 2HOS, 2HS-, 2HRE, 2HFE, 2HRE, 2HNC, 2HE 1 , 2HTA, 2HBL, 1HE/ DATA STODUM / 24, 2H , 2H , 2H , 2HTO, 2H D, 2HUM, 2HMY, 2H-P 1 , 2HRO, 2HCE, 2HDU, 2HRE/ DATA SVER / 21, 2H(F, 2HLE, 2HCS, 2H V, 2HER, 2HSI, 2HON, 2H 2 1 , 2H2., 2H34, 1H)/ DATA SWHEN / 29, 2H , 2H , 2H , 2HWH, 2HEN, 2H (, 2H.T, 2HRU 1 , 2HE., 2H) , 2HCA, 2HLL, 2H E, 2HXI, 1HT/ DATA SXER1 / 54, 2H**, 2H**, 2H* , 2H , 2H (, 2HIN, 2HVA, 2HLI 1 , 2HD , 2HCH, 2HAR, 2HAC, 2HTE, 2HR , 2HIN, 2H S 1 , 2HTA, 2HTE, 2HME, 2HNT, 2H N, 2HUM, 2HBE, 2HR 1 , 2HFI, 2HEL, 2HD)/ DATA SXER2 / 53, 2H**, 2H**, 2H* , 2H , 2H (, 2HRE, 2HCO, 2HGN 1 , 2HIZ, 2HAB, 2HLE, 2H S, 2HTA, 2HTE, 2HME, 2HNT 1 , 2H F, 2HOL, 2HLO, 2HWE, 2HD , 2HBY, 2H G, 2HAR 1 , 2HBA, 2HGE, 1H)/ DATA SXER3 / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HLE, 2HFT, 2H P 1 , 2HAR, 2HEN, 2H D, 2HOE, 2HS , 2HNO, 2HT , 2HFO 1 , 2HLL, 2HOW, 2H C, 2HON, 2HTR, 2HOL, 2H W, 2HOR 1 , 2HD)/ DATA SXER4 / 30, 2H**, 2H**, 2H* , 2H , 2H (, 2HMI, 2HSS, 2HIN 1 , 2HG , 2HRI, 2HGH, 2HT , 2HPA, 2HRE, 2HN)/ DATA SXER5 / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HVA, 2HLI, 2HD 1 , 2HPR, 2HOC, 2HED, 2HUR, 2HE , 2HNA, 2HME, 2H D 1 , 2HOE, 2HS , 2HNO, 2HT , 2HFO, 2HLL, 2HOW, 2H T 1 , 2HO)/ IF(.NOT.(SOURCE.EQ.SETUP)) GO TO 32758 SOURCE=RETRY GO TO 32759 32758 IF(.NOT.(ERROR.EQ.0.AND.ERSTOP.EQ.0)) GO TO 32757 SOURCE=READ ASSIGN 32755 TO I32756 GO TO 32756 32755 GO TO 32759 32757 MINER=(((ERROR.GE.5).AND.(ERROR.LE.6)).OR. 1 ((ERROR.GE.13).AND.(ERROR.LE.15))) MINER=MINER.OR.((ERROR.GE.1).AND.(ERROR.LE.3)) IF(.NOT.(MINER)) GO TO 32753 MINCNT=MINCNT+1 GO TO 32754 32753 MAJCNT=MAJCNT+1 32754 IF(.NOT.(ERROR.EQ.0)) GO TO 32751 ERTYPE=1 GO TO 32752 32751 IF(.NOT.(ERROR.LE.3)) GO TO 32749 ASSIGN 32747 TO I32748 GO TO 32748 32747 GO TO 32750 32749 IF(.NOT.(ERROR.EQ.4)) GO TO 32746 ASSIGN 32744 TO I32745 GO TO 32745 32744 GO TO 32750 32746 IF(.NOT.(ERROR.LE.6)) GO TO 32743 ERTYPE=3 GO TO 32750 32743 IF(.NOT.(ERROR.EQ.7)) GO TO 32742 ASSIGN 32741 TO I32745 GO TO 32745 32741 GO TO 32750 32742 IF(.NOT.(ERROR.EQ.8)) GO TO 32740 ASSIGN 32738 TO I32739 GO TO 32739 32738 GO TO 32750 32740 IF(.NOT.(ERROR.EQ.9)) GO TO 32737 ASSIGN 32735 TO I32736 GO TO 32736 32735 GO TO 32750 32737 IF(.NOT.(ERROR.EQ.10)) GO TO 32734 ASSIGN 32732 TO I32733 GO TO 32733 32732 GO TO 32750 32734 IF(.NOT.(ERROR.LE.12)) GO TO 32731 ASSIGN 32730 TO I32748 GO TO 32748 32730 GO TO 32750 32731 IF(.NOT.(ERROR.LE.15)) GO TO 32729 ASSIGN 32728 TO I32748 GO TO 32748 32728 GO TO 32750 32729 IF(.NOT.(ERROR.EQ.16)) GO TO 32727 ASSIGN 32726 TO I32745 GO TO 32745 32726 GO TO 32750 32727 IF(.NOT.(ERROR.EQ.17)) GO TO 32725 ASSIGN 32723 TO I32724 GO TO 32724 32723 GO TO 32750 32725 IF(.NOT.(ERROR.EQ.18)) GO TO 32722 ASSIGN 32721 TO I32736 GO TO 32736 32721 GO TO 32750 32722 IF(.NOT.(ERROR.LE.19)) GO TO 32720 ASSIGN 32719 TO I32724 GO TO 32724 32719 GO TO 32750 32720 IF(.NOT.(ERROR.EQ.20)) GO TO 32718 ASSIGN 32717 TO I32745 GO TO 32745 32717 GO TO 32750 32718 IF(.NOT.(ERROR.EQ.21)) GO TO 32716 ASSIGN 32715 TO I32736 GO TO 32736 32715 GO TO 32750 32716 IF(.NOT.(ERROR.LE.23)) GO TO 32714 ASSIGN 32713 TO I32748 GO TO 32748 32713 GO TO 32750 32714 IF(.NOT.(ERROR.EQ.24)) GO TO 32712 ASSIGN 32711 TO I32745 GO TO 32745 32711 GO TO 32750 32712 IF(.NOT.(ERROR.EQ.25)) GO TO 32710 ERTYPE=4 GO TO 32750 32710 IF(.NOT.(ERROR.EQ.26)) GO TO 32709 ERTYPE=5 32709 CONTINUE 32750 CONTINUE 32752 SOURCE=READ IF((1).NE.(ERTYPE)) GO TO 32707 CALL PUT(-LINENO,SHOLD,ERRCL) DO 32706 I=1,ERSTOP IF((1).NE.(ERRSTK(I))) GO TO 32704 CALL PUT(0,SXER1,ERRCL) GO TO 32705 32704 IF((2).NE.(ERRSTK(I))) GO TO 32703 CALL PUT(0,SXER2,ERRCL) GO TO 32705 32703 IF((3).NE.(ERRSTK(I))) GO TO 32702 CALL PUT(0,SXER3,ERRCL) GO TO 32705 32702 IF((4).NE.(ERRSTK(I))) GO TO 32701 CALL PUT(0,SXER4,ERRCL) GO TO 32705 32701 IF((5).NE.(ERRSTK(I))) GO TO 32700 CALL PUT(0,SXER5,ERRCL) 32700 CONTINUE 32705 CONTINUE 32706 CONTINUE GO TO 32708 32707 IF((2).NE.(ERTYPE)) GO TO 32699 SOURCE=SETUP GO TO 32708 32699 IF((3).NE.(ERTYPE)) GO TO 32698 CALL PUT(-LINENO,SFLX,ERRCL) CALL PUT(0,SIGN,ERRCL) GO TO 32708 32698 IF((4).NE.(ERTYPE)) GO TO 32697 CALL PUT(0,SENDER,ERRCL) GO TO 32708 32697 IF((5).NE.(ERTYPE)) GO TO 32696 CALL PUT(LINENO,SFLX,ERRCL) CALL CPYSTR(SST,SMULER) CALL CATNUM(SST,MLINE) CALL CATSTR(SST,SRP) CALL PUT(0,SST,ERRCL) 32696 CONTINUE 32708 CONTINUE 32759 IF(.NOT.(ENDPGM)) GO TO 32695 ASSIGN 32693 TO I32694 GO TO 32694 32693 ASSIGN 32691 TO I32692 GO TO 32692 32691 CALL PUT(0,SVER,LISTCL) 32695 RETURN 32724 ASSIGN 32689 TO I32690 GO TO 32690 32689 CALL CPYSTR(SFLX,SCOND) CALL PUT(0,SICOND,ERRCL) GO TO I32724 32745 ASSIGN 32688 TO I32690 GO TO 32690 32688 CALL CPYSTR(SFLX,SELSE) CALL CPYSTR(SLIST,SIELSE) CALL CATNUM(SLIST,STACK(TOP-1)) CALL CATSTR(SLIST,SRP) CALL PUT(0,SLIST,ERRCL) GO TO I32745 32748 ASSIGN 32687 TO I32690 GO TO 32690 32687 CALL CPYSTR(SFLX,SFIN) CALL CPYSTR(SLIST,SIFIN) IF(.NOT.(STACK(TOP-1).EQ.0)) GO TO 32685 CALL CATSTR(SLIST,SIFIN2) GO TO 32686 32685 CALL CATNUM(SLIST,STACK(TOP-1)) CALL CATSTR(SLIST,SRP) 32686 CALL PUT(0,SLIST,ERRCL) GO TO I32748 32736 ASSIGN 32684 TO I32690 GO TO 32690 32684 CALL CPYSTR(SFLX,STODUM) CALL PUT(0,SITODM,ERRCL) GO TO I32736 32739 ASSIGN 32683 TO I32690 GO TO 32690 32683 CALL CPYSTR(SFLX,SWHEN) CALL PUT(0,SIWHEN,ERRCL) GO TO I32739 32733 IF(.NOT.(TOP.LE.7)) GO TO 32681 ASSIGN 32680 TO I32739 GO TO 32739 32680 GO TO 32682 32681 IF(.NOT.(STACK(TOP-6).EQ.AELSE)) GO TO 32679 ASSIGN 32678 TO I32748 GO TO 32748 32678 GO TO 32682 32679 ASSIGN 32677 TO I32739 GO TO 32739 32677 CONTINUE 32682 GO TO I32733 32692 LSTLEV=LEVEL IF(.NOT.(LSTLEV.EQ.0)) GO TO 32675 CALL PUT(BLN,SB,LISTCL) GO TO 32676 32675 CALL CPYSTR(SLIST,SB6) DO 32674 I=1,LSTLEV CALL CATSTR(SLIST,SSPACR) 32674 CONTINUE IF(.NOT.(SLIST(1).GT.WWIDTH)) GO TO 32672 CALL PUT(BLN,SP,LISTCL) GO TO 32673 32672 CALL PUT(BLN,SLIST,LISTCL) 32673 CONTINUE 32676 BLN=0 GO TO I32692 32671 CALL PUT(0,SB,LISTCL) CALL PUT(0,SDASH,LISTCL) CALL PUT(0,SB,LISTCL) GO TO I32671 32756 IF(.NOT.(CLASS.EQ.TTO)) GO TO 32670 ASSIGN 32669 TO I32671 GO TO 32671 32669 CONTINUE 32670 IF (SFLX(1).LT.7) CALL CATSTR(SFLX,SB7) CALL CPYSUB(SLIST,SFLX,1,6) IF(LSTLEV.EQ.0) GO TO 32668 DO 32667 I=1,LSTLEV CALL CATSTR(SLIST,SSPACR) 32667 CONTINUE 32668 IF(.NOT.(CLASS.EQ.TFIN)) GO TO 32666 SLIST(1)=SLIST(1)-SSPACR(1) CALL CATSTR(SLIST,SFSPCR) 32666 CALL CATSUB(SLIST,SFLX,7,SFLX(1)-6) IF (SLIST(1).GT.WWIDTH) CALL CPYSTR(SLIST,SFLX) IF(.NOT.(ERLST)) GO TO 32664 CALL PUT(LINENO,SLIST,ERRCL) ERLST=.FALSE. GO TO 32665 32664 CALL PUT(LINENO,SLIST,LISTCL) 32665 GO TO I32756 32690 ERTYPE=2 ASSIGN 32662 TO I32663 GO TO 32663 32662 LINENO=0 IF(.NOT.(SOURCE.EQ.READ)) GO TO 32661 CALL CPYSTR(SST,SINSRT) IF(.NOT.(HOLDNO.GT.0)) GO TO 32659 CALL CATNUM(SST,HOLDNO) GO TO 32660 32659 CALL CATSTR(SST,SINS2) 32660 CALL PUT(0,SST,ERRCL) 32661 GO TO I32690 32694 IF(PTABLE.EQ.0) GO TO 32658 TABLCL=LISTCL ASSIGN 32657 TO I32671 GO TO 32671 32657 CALL PUT(0,STABH,LISTCL) CALL PUT(0,SB,LISTCL) P=PTABLE NDERR=.FALSE. NIERR=.FALSE. GO TO 32655 32656 IF(P.EQ.0) GO TO 32654 32655 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 32653 NDERR=.TRUE. MAJCNT=MAJCNT+1 32653 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 32652 NIERR=.TRUE. MINCNT=MINCNT+1 32652 ASSIGN 32650 TO I32651 GO TO 32651 32650 P=STACK(P) GO TO 32656 32654 IF(.NOT.(NDERR)) GO TO 32649 CALL PUT(0,SNDER1,ERRCL) CALL PUT(0,SNDER2,ERRCL) ASSIGN 32648 TO I32692 GO TO 32692 32648 P=PTABLE TABLCL=ERRCL GO TO 32646 32647 IF(P.EQ.0) GO TO 32645 32646 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 32644 ASSIGN 32643 TO I32651 GO TO 32651 32643 CONTINUE 32644 P=STACK(P) GO TO 32647 32645 CONTINUE 32649 IF(.NOT.(NIERR)) GO TO 32642 CALL PUT(0,SNIER1,ERRCL) CALL PUT(0,SNIER2,ERRCL) ASSIGN 32641 TO I32692 GO TO 32692 32641 P=PTABLE TABLCL=ERRCL GO TO 32639 32640 IF(P.EQ.0) GO TO 32638 32639 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 32637 ASSIGN 32636 TO I32651 GO TO 32651 32636 CONTINUE 32637 P=STACK(P) GO TO 32640 32638 CONTINUE 32642 CONTINUE 32658 GO TO I32694 32651 CALL CPYSTR(SST,SB6) IF(.NOT.(STACK(P+2).EQ.0)) CALL PUTNUM(SST,STACK(P+2)) CALL CATSTR(SST,STACK(P+4)) CALL PUT(0,SST,TABLCL) QP=STACK(P+3) 32635 IF(QP.EQ.0) GO TO 32634 CALL CPYSTR(SST,SB4) I=1 32633 IF(QP.EQ.0.OR.I.GT.REFNO) GO TO 32632 CALL CATSTR(SST,SB2) CALL CATNUM(SST,STACK(QP+1)) I=I+1 QP=STACK(QP) GO TO 32633 32632 CALL PUT(0,SST,TABLCL) GO TO 32635 32634 CALL PUT(0,SB,LISTCL) GO TO I32651 32663 IF(SAVED) GO TO 32631 SAVED=.TRUE. HOLDNO=LINENO CALL CPYSTR(SHOLD,SFLX) 32631 GO TO I32663 END