INTEGER ACSEQ , ACTION, AELSE , AFSEQ , AGCONT, AGGOTO 06050 INTEGER AGRET , AGSTNO, AMSEQ , ASSEQ , ATSEQ , BLN 06100 INTEGER NOCALL, CH , CHC , CHSPAC, CHTYP 06350 INTEGER CHTYPE, CHZERO, CLASS , CONTNO, CPOS , CSAVE 06500 INTEGER CURSOR, CWD , DUMMY , ELSNO , ENDNO , ENTNO 06550 INTEGER ERRCL , ERROR , ERRSTK, ERSTOP, ERTYPE, EXTYPE 06600 INTEGER FLXNO , FORTCL, GGOTON, GOTONO, GSTNO , HASH 06650 INTEGER HOLDNO, I , ITEMP , J , KCOND , KDO 06700 INTEGER KELSE , KEND , KFIN , KIF , KREPT , KSELCT 06750 INTEGER KTO , KUNLES, KUNTIL, KWHEN , KWHILE, L 06800 INTEGER LEN , LEVEL , LINENO, LISTCL, LL , LOOPNO 06850 INTEGER LP , LR , LSTLEV, LT , LWIDTH, MAJCNT 06900 INTEGER MAX , MAXSTK, MINCNT, MLINE , NCHPWD, NEWNO 06950 INTEGER NEXTNO, NUNITS, NXIFNO, OFFSET, OFFST2, P 07000 INTEGER PARAM1, PARAM2, PARAM3, PARAM4, PCNT , PDUMMY 07050 INTEGER PENT , PRIME , PTABLE, Q , QM , QP 07100 INTEGER READ , REFNO , RETNO , RETRY , S , SAFETY 07150 INTEGER SASSN1, SASSN2, SB , SB2 , SB4 , SB5 07200 INTEGER SB5I1 , SB6 , SB6I , SB7 , SBGOTO, SCOMMA, SCOND 07250 INTEGER SCONT 07260 INTEGER SCP , SDASH , SDOST , SDUM , SEEDNO, SELSE , SEQ 07300 INTEGER SEND , SENDER, SETUP , SFIN , SFLX , SFORCE 07350 INTEGER SFSPCR, SGOTO , SGOTOI, SGUP1 , SGUP2 , SHOLD 07400 INTEGER SGOTOP 07410 INTEGER SICOND, SIELSE, SIF , SIFIN , SIFIN2, SIFP 07450 INTEGER SIFPN , SIGN , SINSRT, SINS2 , SITODM, SIWHEN, SLIST 07500 INTEGER SLP , SMULER, SNDER1, SNDER2, SNE , SNIER1 07550 INTEGER SNIER2, SOURCE, SOWSE , SP , SPB , SPGOTO 07600 INTEGER SPINV , SPUTGO, SRP , SRTN , SSPACR, SST 07650 INTEGER SRPCI 07660 INTEGER SSTMAX, SSTOP , STABH , STACK , START , STNO 07700 INTEGER STODUM, SVER , SWHEN , SXER1 , SXER2 , SXER3 07750 INTEGER SXER4 , SXER5 , TABLCL, TBLANK, TCEXP , TCOND 07800 INTEGER TDIGIT, TDO , TELSE , TEND , TEOL , TESTNO 07850 INTEGER TEXEC , TFIN , TFORT , THYPHN, TIF , TINVOK 07900 INTEGER TLETTR, TLP , TMAX , TOP , TOPNO , TOPTYP 07950 INTEGER TOTHER, TRP , TRUNTL, TRWHIL, TSELCT, TTO 08000 INTEGER TUNLES, TUNTIL, TWHEN , TWHILE, UDO , UEXP 08050 INTEGER UFORT , ULEN , UOWSE , UPINV , USTART, UTYPE 08100 INTEGER WWIDTH 08150 LOGICAL COGOTO, FAKE , LONG 12025 LOGICAL BADCH , CONT , DONE , ENDFIL, ENDPGM, ERLST 12050 LOGICAL FIRST , FOUND , INDENT, INSERT, INVOKE, MINER 12100 LOGICAL NDERR , NIERR , NOPGM , NOTFLG, PASS , SAVED , SHORT 12150 LOGICAL STREQ , STRLT 12200 DIMENSION UTYPE(3), USTART(3), ULEN(3) 13050 DIMENSION STACK(2000) 13200 DIMENSION ERRSTK(5) 13350 COMMON /PARAM/ PARAM1, PARAM2, PARAM3, PARAM4 20700 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 SASSN1 (8) 22151 DIMENSION SASSN2 (4) 22201 DIMENSION SB (2) 22301 DIMENSION SB2 (2) 22401 DIMENSION SB4 (3) 22451 DIMENSION SB5 (4) 22601 DIMENSION SB5I1 (4) 22701 DIMENSION SB6 (4) 22801 DIMENSION SB7 (5) 22851 DIMENSION SB6I (5) 22921 DIMENSION SBGOTO (5) 22951 DIMENSION SCOMMA (2) 23001 DIMENSION SCOND (10) 23101 DIMENSION SCONT (5) 23161 DIMENSION SCP (2) 23201 DIMENSION SDOST (6) 23301 DIMENSION SDASH (21) 23401 DIMENSION SDUM (9) 23501 DIMENSION SELSE (11) 23601 DIMENSION SEND (6) 23701 DIMENSION SENDER (16) 23801 DIMENSION SFIN (6) 23851 DIMENSION SEQ (2) 23921 DIMENSION SFORCE (8) 23951 DIMENSION SFSPCR (3) 24051 DIMENSION SGOTO (7) 24151 DIMENSION SGOTOI (8) 24201 DIMENSION SGOTOP (8) 24226 DIMENSION SGUP1 (28) 24251 DIMENSION SGUP2 (23) 24301 DIMENSION SICOND (28) 24401 DIMENSION SIELSE (21) 24501 DIMENSION SIF (5) 24601 DIMENSION SIFIN (20) 24701 DIMENSION SIFIN2 (8) 24751 DIMENSION SIFP (6) 24851 DIMENSION SIFPN (8) 24901 DIMENSION SIGN (24) 25001 DIMENSION SINSRT (20) 25051 DIMENSION SINS2 (8) 25101 DIMENSION SITODM (26) 25151 DIMENSION SIWHEN (21) 25201 DIMENSION SLP (2) 25301 DIMENSION SNE (3) 25401 DIMENSION SOWSE (7) 25501 DIMENSION SPB (2) 25601 DIMENSION SPGOTO (5) 25701 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 SRPCI (3) 26276 DIMENSION SRTN (7) 26301 DIMENSION SSPACR (3) 26401 DIMENSION STABH (20) 26501 DIMENSION STODUM (13) 26551 DIMENSION SSTOP (9) 26801 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 DIMENSION KCOND (7) 27801 DIMENSION KDO (2) 27851 DIMENSION KELSE (3) 27901 DIMENSION KEND (3) 27951 DIMENSION KFIN (3) 28001 DIMENSION KIF (2) 28051 DIMENSION KREPT (4) 28101 DIMENSION KSELCT (4) 28151 DIMENSION KTO (2) 28201 DIMENSION KUNLES (4) 28251 DIMENSION KUNTIL (4) 28301 DIMENSION KWHEN (3) 28351 DIMENSION KWHILE (4) 28401 DATA FORTCL /1/, LISTCL /2/, ERRCL /3/ 30001 DATA ACSEQ/1/, AELSE/2/, AFSEQ/3/, AGCONT/4/, AGGOTO/5/ 30002 DATA AGSTNO/6/, AMSEQ/7/, AGRET/8/, ASSEQ/9/, ATSEQ/10/ 30003 DATA UEXP/1/, UFORT/2/, UOWSE/3/, UPINV/4/, UDO/5/ 30004 DATA TLETTR/1/, TDIGIT/2/, THYPHN/3/, TLP/4/, TRP/5/ 30005 DATA TBLANK/6/, TOTHER/7/, TEOL/8/ 30006 DATA TCEXP/1/, TELSE/2/, TEND/3/, TEXEC/4/, TFIN/5/, TTO/6/ 30007 DATA TCOND/1/, TDO/2/, TFORT/3/, TIF/4/, TINVOK/5/, TRUNTL/6/ 30008 DATA TRWHIL/7/, TSELCT/8/, TUNLES/9/, TUNTIL/10/, TWHEN/11/ 30009 DATA TWHILE/12/ 30010 DATA SETUP /1/, RETRY /2/, READ /3/ 30011 DATA CHC /67/ 30012 DATA LWIDTH /132/ 30013 DATA MAXSTK /2000/ 30014 DATA NCHPWD /2/ 30015 DATA PRIME /53/ 30016 DATA SAFETY /35/ 30017 DATA SEEDNO /32760/ 30018 DATA LONG /.FALSE./ 30019 DATA SHORT /.TRUE./ 30020 DATA FAKE /.FALSE./ 30021 DATA COGOTO /.FALSE./ 30022 DATA CHSPAC /32/ 30023 DATA CHZERO /48/ 30024 DATA SSTMAX /200/ 30025 DATA SASSN1 / 13, 2H , 2H , 2H , 2HAS, 2HSI, 2HGN, 1H / 30026 DATA SASSN2 / 5, 2H T, 2HO , 1HI/ 30027 DATA SB / 1, 1H / 30028 DATA SB2 / 2, 2H / 30029 DATA SB4 / 4, 2H , 2H / 30030 DATA SB5 / 5, 2H , 2H , 1H / 30031 DATA SB5I1 / 6, 2H , 2H , 2H 1/ 30032 DATA SB6 / 6, 2H , 2H , 2H / 30033 DATA SB7 / 7, 2H , 2H , 2H , 1H / 30034 DATA SB6I / 7, 2H , 2H , 2H , 1HI/ 30035 DATA SBGOTO / 7, 2H G, 2HO , 2HTO, 1H / 30036 DATA SCOMMA / 1, 1H,/ 30037 DATA SCOND / 17, 2H , 2H , 2H , 2HCO, 2HND, 2HIT, 2HIO, 2HNA 30038 1 , 1HL/ 30039 DATA SCONT / 8, 2HCO, 2HNT, 2HIN, 2HUE/ 30040 DATA SCP / 2, 2H,(/ 30041 DATA SDOST / 9, 2H , 2H , 2H , 2HDO, 1H / 30042 DATA SDASH / 40, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H-- 30043 1 , 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H-- 30044 1 , 2H--, 2H--, 2H--, 2H--/ 30045 DATA SDUM / 15, 2HDU, 2HMM, 2HY-, 2HPR, 2HOC, 2HED, 2HUR, 1HE/ 30046 DATA SELSE / 19, 2H , 2H , 2H , 2HEL, 2HSE, 2H C, 2HON, 2HTI 30047 1 , 2HNU, 1HE/ 30048 DATA SEND / 9, 2H , 2H , 2H , 2HEN, 1HD/ 30049 DATA SENDER / 30, 2H**, 2H**, 2H* , 2HEN, 2HD , 2HST, 2HAT, 2HEM 30050 1 , 2HEN, 2HT , 2HIS, 2H M, 2HIS, 2HSI, 2HNG/ 30051 DATA SFIN / 9, 2H , 2H , 2H , 2HFI, 1HN/ 30052 DATA SEQ / 1, 1H=/ 30053 DATA SFORCE / 14, 2H , 2H , 2H , 2HCO, 2HNT, 2HIN, 2HUE/ 30054 DATA SFSPCR / 3, 2H.., 1H./ 30055 DATA SGOTO / 12, 2H , 2H , 2H , 2HGO, 2H T, 2HO / 30056 DATA SGOTOI / 13, 2H , 2H , 2H , 2HGO, 2H T, 2HO , 1HI/ 30057 DATA SGOTOP / 13, 2H , 2H , 2H , 2HGO, 2H T, 2HO , 1H(/ 30058 DATA SGUP1 / 53, 2H**, 2H**, 2H* , 2HTR, 2HAN, 2HSL, 2HAT, 2HOR 30059 1 , 2H H, 2HAS, 2H U, 2HSE, 2HD , 2HUP, 2H A, 2HLL 30060 1 , 2HOT, 2HED, 2H S, 2HPA, 2HCE, 2H F, 2HOR, 2H T 30061 1 , 2HAB, 2HLE, 1HS/ 30062 DATA SGUP2 / 44, 2H**, 2H**, 2H* , 2HTR, 2HAN, 2HSL, 2HAT, 2HIO 30063 1 , 2HN , 2HMU, 2HST, 2H T, 2HER, 2HMI, 2HNA, 2HTE 30064 1 , 2H I, 2HMM, 2HED, 2HIA, 2HTE, 2HLY/ 30065 DATA SICOND / 54, 2H**, 2H**, 2H* , 2H , 2H (, 2HCO, 2HND, 2HIT 30066 1 , 2HIO, 2HNA, 2HL , 2HOR, 2H S, 2HEL, 2HEC, 2HT 30067 1 , 2HIS, 2H A, 2HPP, 2HAR, 2HEN, 2HTL, 2HY , 2HMI 30068 1 , 2HSS, 2HIN, 2HG)/ 30069 DATA SIELSE / 39, 2H**, 2H**, 2H* , 2H , 2H (, 2HEL, 2HSE, 2H N 30070 1 , 2HEC, 2HES, 2HSA, 2HRY, 2H T, 2HO , 2HMA, 2HTC 30071 1 , 2HH , 2HLI, 2HNE, 1H / 30072 DATA SIF / 8, 2H , 2H , 2H , 2HIF/ 30073 DATA SIFIN / 38, 2H**, 2H**, 2H* , 2H , 2H (, 2HFI, 2HN , 2HNE 30074 1 , 2HCE, 2HSS, 2HAR, 2HY , 2HTO, 2H M, 2HAT, 2HCH 30075 1 , 2H L, 2HIN, 2HE / 30076 DATA SIFIN2 / 14, 2HAS, 2HSU, 2HME, 2HD , 2HAB, 2HOV, 2HE)/ 30077 DATA SIFP / 9, 2H , 2H , 2H , 2HIF, 1H(/ 30078 DATA SIFPN / 14, 2H , 2H , 2H , 2HIF, 2H(., 2HNO, 2HT./ 30079 DATA SIGN / 45, 2H**, 2H**, 2H* , 2H , 2H (, 2HNO, 2H C, 2HON 30080 1 , 2HTR, 2HOL, 2H P, 2HHR, 2HAS, 2HE , 2HFO, 2HR 30081 1 , 2HFI, 2HN , 2HTO, 2H M, 2HAT, 2HCH, 1H)/ 30082 DATA SINSRT / 38, 2H**, 2H**, 2H* , 2HST, 2HAT, 2HEM, 2HEN, 2HT( 30083 1 , 2HS), 2H N, 2HEE, 2HDE, 2HD , 2HBE, 2HFO, 2HRE 30084 1 , 2H L, 2HIN, 2HE / 30085 DATA SINS2 / 13, 2HAS, 2HSU, 2HME, 2HD , 2HBE, 2HLO, 1HW/ 30086 DATA SITODM / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HON, 2HLY, 2H T 30087 1 , 2HO , 2HAN, 2HD , 2HEN, 2HD , 2HAR, 2HE , 2HVA 30088 1 , 2HLI, 2HD , 2HAT, 2H T, 2HHI, 2HS , 2HPO, 2HIN 30089 1 , 2HT)/ 30090 DATA SIWHEN / 39, 2H**, 2H**, 2H* , 2H , 2H (, 2HWH, 2HEN, 2H T 30091 1 , 2HO , 2HMA, 2HTC, 2HH , 2HFO, 2HLL, 2HOW, 2HIN 30092 1 , 2HG , 2HEL, 2HSE, 1H)/ 30093 DATA SLP / 1, 1H(/ 30094 DATA SNE / 4, 2H.N, 2HE./ 30095 DATA SOWSE / 11, 2H(O, 2HTH, 2HER, 2HWI, 2HSE, 1H)/ 30096 DATA SPB / 2, 2H) / 30097 DATA SPGOTO / 8, 2H) , 2HGO, 2H T, 2HO / 30098 DATA SMULER / 44, 2H**, 2H**, 2H* , 2H , 2H (, 2HPR, 2HOC, 2HED 30099 1 , 2HUR, 2HE , 2HAL, 2HRE, 2HAD, 2HY , 2HDE, 2HFI 30100 1 , 2HNE, 2HD , 2HON, 2H L, 2HIN, 2HE / 30101 DATA SNDER1 / 42, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HNE, 2HXT, 2H 30102 1 , 2HPR, 2HOC, 2HED, 2HUR, 2HES, 2H W, 2HER, 2HE 30103 1 , 2HIN, 2HVO, 2HKE, 2HD , 2HON/ 30104 DATA SNDER2 / 44, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HLI, 2HNE, 2HS 30105 1 , 2HGI, 2HVE, 2HN , 2HBU, 2HT , 2HWE, 2HRE, 2H N 30106 1 , 2HEV, 2HER, 2H D, 2HEF, 2HIN, 2HED/ 30107 DATA SNIER1 / 46, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HFO, 2HLL, 2HOW 30108 1 , 2HIN, 2HG , 2HPR, 2HOC, 2HED, 2HUR, 2HES, 2H W 30109 1 , 2HER, 2HE , 2HDE, 2HFI, 2HNE, 2HD , 2HON/ 30110 DATA SNIER2 / 44, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HLI, 2HNE, 2HS 30111 1 , 2HGI, 2HVE, 2HN , 2HBU, 2HT , 2HWE, 2HRE, 2H N 30112 1 , 2HEV, 2HER, 2H I, 2HNV, 2HOK, 2HED/ 30113 DATA SRP / 1, 1H)/ 30114 DATA SRPCI / 4, 2H),, 2H I/ 30115 DATA SRTN / 12, 2H , 2H , 2H , 2HRE, 2HTU, 2HRN/ 30116 DATA SSPACR / 3, 2H. , 1H / 30117 DATA STABH / 37, 2H , 2H , 2H , 2HPR, 2HOC, 2HED, 2HUR, 2HE 30118 1 , 2HCR, 2HOS, 2HS-, 2HRE, 2HFE, 2HRE, 2HNC, 2HE 30119 1 , 2HTA, 2HBL, 1HE/ 30120 DATA STODUM / 24, 2H , 2H , 2H , 2HTO, 2H D, 2HUM, 2HMY, 2H-P 30121 1 , 2HRO, 2HCE, 2HDU, 2HRE/ 30122 DATA SSTOP / 15, 2H , 2H , 2H , 2HCA, 2HLL, 2H E, 2HXI, 1HT/ 30123 DATA SVER / 21, 2H(F, 2HLE, 2HCS, 2H V, 2HER, 2HSI, 2HON, 2H 2 30124 1 , 2H2., 2H54, 1H)/ 30125 DATA SWHEN / 29, 2H , 2H , 2H , 2HWH, 2HEN, 2H (, 2H.T, 2HRU 30126 1 , 2HE., 2H) , 2HCA, 2HLL, 2H E, 2HXI, 1HT/ 30127 DATA SXER1 / 54, 2H**, 2H**, 2H* , 2H , 2H (, 2HIN, 2HVA, 2HLI 30128 1 , 2HD , 2HCH, 2HAR, 2HAC, 2HTE, 2HR , 2HIN, 2H S 30129 1 , 2HTA, 2HTE, 2HME, 2HNT, 2H N, 2HUM, 2HBE, 2HR 30130 1 , 2HFI, 2HEL, 2HD)/ 30131 DATA SXER2 / 53, 2H**, 2H**, 2H* , 2H , 2H (, 2HRE, 2HCO, 2HGN 30132 1 , 2HIZ, 2HAB, 2HLE, 2H S, 2HTA, 2HTE, 2HME, 2HNT 30133 1 , 2H F, 2HOL, 2HLO, 2HWE, 2HD , 2HBY, 2H G, 2HAR 30134 1 , 2HBA, 2HGE, 1H)/ 30135 DATA SXER3 / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HLE, 2HFT, 2H P 30136 1 , 2HAR, 2HEN, 2H D, 2HOE, 2HS , 2HNO, 2HT , 2HFO 30137 1 , 2HLL, 2HOW, 2H C, 2HON, 2HTR, 2HOL, 2H W, 2HOR 30138 1 , 2HD)/ 30139 DATA SXER4 / 30, 2H**, 2H**, 2H* , 2H , 2H (, 2HMI, 2HSS, 2HIN 30140 1 , 2HG , 2HRI, 2HGH, 2HT , 2HPA, 2HRE, 2HN)/ 30141 DATA SXER5 / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HVA, 2HLI, 2HD 30142 1 , 2HPR, 2HOC, 2HED, 2HUR, 2HE , 2HNA, 2HME, 2H D 30143 1 , 2HOE, 2HS , 2HNO, 2HT , 2HFO, 2HLL, 2HOW, 2H T 30144 1 , 2HO)/ 30145 DATA KCOND / 11, 2HCO, 2HND, 2HIT, 2HIO, 2HNA, 1HL/ 30146 DATA KDO / 2, 2HDO/ 30147 DATA KELSE / 4, 2HEL, 2HSE/ 30148 DATA KEND / 3, 2HEN, 1HD/ 30149 DATA KFIN / 3, 2HFI, 1HN/ 30150 DATA KIF / 2, 2HIF/ 30151 DATA KREPT / 6, 2HRE, 2HPE, 2HAT/ 30152 DATA KSELCT / 6, 2HSE, 2HLE, 2HCT/ 30153 DATA KTO / 2, 2HTO/ 30154 DATA KUNLES / 6, 2HUN, 2HLE, 2HSS/ 30155 DATA KUNTIL / 5, 2HUN, 2HTI, 1HL/ 30156 DATA KWHEN / 4, 2HWH, 2HEN/ 30157 DATA KWHILE / 5, 2HWH, 2HIL, 1HE/ 30158 ASSIGN 32758 TO I32759 30350 GO TO 32759 30351 32758 GO TO 32756 30400 32757 IF(DONE) GO TO 32755 30401 32756 NOCALL=NOCALL+1 30550 CALL OPENF(NOCALL,DONE,SVER) 30600 IF(DONE) GO TO 32754 30900 ENDFIL=.FALSE. 30950 MINCNT=0 30960 MAJCNT=0 30961 LINENO=0 30975 GO TO 32752 31000 32753 IF(ENDFIL) GO TO 32751 31001 32752 ASSIGN 32749 TO I32750 31050 GO TO 32750 31051 32749 ASSIGN 32747 TO I32748 31100 GO TO 32748 31101 32747 GO TO 32753 31150 32751 CALL CLOSEF(MINCNT,MAJCNT) 31200 32754 GO TO 32757 31300 32755 CALL EXIT 31315 32746 CONTINUE 31700 IF(.NOT.(SOURCE.EQ.SETUP)) GO TO 32744 31850 SOURCE=RETRY 31851 GO TO 32745 31900 32744 IF(.NOT.(ERROR.EQ.0.AND.ERSTOP.EQ.0)) GO TO 32743 31901 SOURCE=READ 31950 ASSIGN 32741 TO I32742 32000 GO TO 32742 32001 32741 GO TO 32745 32100 32743 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 2 .OR.(ERROR.EQ.25) 32227 IF(.NOT.(MINER)) GO TO 32739 32250 MINCNT=MINCNT+1 32251 GO TO 32740 32252 32739 MAJCNT=MAJCNT+1 32300 32740 IF(.NOT.(ERROR.EQ.0)) GO TO 32737 32350 ERTYPE=1 32351 GO TO 32738 32352 32737 IF(.NOT.(ERROR.LE.3)) GO TO 32735 32500 ASSIGN 32733 TO I32734 32501 GO TO 32734 32502 32733 GO TO 32736 32550 32735 IF(.NOT.(ERROR.EQ.4)) GO TO 32732 32551 ASSIGN 32730 TO I32731 32552 GO TO 32731 32553 32730 GO TO 32736 32600 32732 IF(.NOT.(ERROR.LE.6)) GO TO 32729 32601 ERTYPE=3 32602 GO TO 32736 32650 32729 IF(.NOT.(ERROR.EQ.7)) GO TO 32728 32651 ASSIGN 32727 TO I32731 32652 GO TO 32731 32653 32727 GO TO 32736 32700 32728 IF(.NOT.(ERROR.EQ.8)) GO TO 32726 32701 ASSIGN 32724 TO I32725 32702 GO TO 32725 32703 32724 GO TO 32736 32750 32726 IF(.NOT.(ERROR.EQ.9)) GO TO 32723 32751 ASSIGN 32721 TO I32722 32752 GO TO 32722 32753 32721 GO TO 32736 32800 32723 IF(.NOT.(ERROR.EQ.10)) GO TO 32720 32801 ASSIGN 32718 TO I32719 32802 GO TO 32719 32803 32718 GO TO 32736 32850 32720 IF(.NOT.(ERROR.LE.12)) GO TO 32717 32851 ASSIGN 32716 TO I32734 32852 GO TO 32734 32853 32716 GO TO 32736 32900 32717 IF(.NOT.(ERROR.LE.15)) GO TO 32715 32901 ASSIGN 32714 TO I32734 32902 GO TO 32734 32903 32714 GO TO 32736 32950 32715 IF(.NOT.(ERROR.EQ.16)) GO TO 32713 32951 ASSIGN 32712 TO I32731 32952 GO TO 32731 32953 32712 GO TO 32736 33000 32713 IF(.NOT.(ERROR.EQ.17)) GO TO 32711 33001 ASSIGN 32709 TO I32710 33002 GO TO 32710 33003 32709 GO TO 32736 33050 32711 IF(.NOT.(ERROR.EQ.18)) GO TO 32708 33051 ASSIGN 32707 TO I32722 33052 GO TO 32722 33053 32707 GO TO 32736 33100 32708 IF(.NOT.(ERROR.LE.19)) GO TO 32706 33101 ASSIGN 32705 TO I32710 33102 GO TO 32710 33103 32705 GO TO 32736 33150 32706 IF(.NOT.(ERROR.EQ.20)) GO TO 32704 33151 ASSIGN 32703 TO I32731 33152 GO TO 32731 33153 32703 GO TO 32736 33200 32704 IF(.NOT.(ERROR.EQ.21)) GO TO 32702 33201 ASSIGN 32701 TO I32722 33202 GO TO 32722 33203 32701 GO TO 32736 33250 32702 IF(.NOT.(ERROR.LE.23)) GO TO 32700 33251 ASSIGN 32699 TO I32734 33252 GO TO 32734 33253 32699 GO TO 32736 33300 32700 IF(.NOT.(ERROR.EQ.24)) GO TO 32698 33301 ASSIGN 32697 TO I32731 33302 GO TO 32731 33303 32697 GO TO 32736 33350 32698 IF(.NOT.(ERROR.EQ.25)) GO TO 32696 33351 ERTYPE=4 33352 GO TO 32736 33400 32696 IF(.NOT.(ERROR.EQ.26)) GO TO 32695 33401 ERTYPE=5 33402 32695 CONTINUE 33450 32736 CONTINUE 33500 32738 SOURCE=READ 33550 IF((1).NE.(ERTYPE)) GO TO 32693 33650 CALL PUT(-LINENO,SHOLD,ERRCL) 33700 DO 32692 I=1,ERSTOP 33750 IF((1).NE.(ERRSTK(I))) GO TO 32690 33850 CALL PUT(0,SXER1,ERRCL) 33851 GO TO 32691 33900 32690 IF((2).NE.(ERRSTK(I))) GO TO 32689 33901 CALL PUT(0,SXER2,ERRCL) 33902 GO TO 32691 33950 32689 IF((3).NE.(ERRSTK(I))) GO TO 32688 33951 CALL PUT(0,SXER3,ERRCL) 33952 GO TO 32691 34000 32688 IF((4).NE.(ERRSTK(I))) GO TO 32687 34001 CALL PUT(0,SXER4,ERRCL) 34002 GO TO 32691 34050 32687 IF((5).NE.(ERRSTK(I))) GO TO 32686 34051 CALL PUT(0,SXER5,ERRCL) 34052 32686 CONTINUE 34100 32691 CONTINUE 34150 32692 CONTINUE 34151 GO TO 32694 34250 32693 IF((2).NE.(ERTYPE)) GO TO 32685 34251 SOURCE=SETUP 34252 GO TO 32694 34300 32685 IF((3).NE.(ERTYPE)) GO TO 32684 34301 CALL PUT(-LINENO,SFLX,ERRCL) 34350 CALL PUT(0,SIGN,ERRCL) 34400 GO TO 32694 34500 32684 IF((4).NE.(ERTYPE)) GO TO 32683 34501 CALL PUT(0,SENDER,ERRCL) 34502 GO TO 32694 34550 32683 IF((5).NE.(ERTYPE)) GO TO 32682 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 32682 CONTINUE 34900 32694 CONTINUE 35000 32745 IF(.NOT.(ENDPGM)) GO TO 32681 35050 ASSIGN 32679 TO I32680 35100 GO TO 32680 35101 32679 ASSIGN 32677 TO I32678 35150 GO TO 32678 35151 32677 CALL PUT(0,SVER,LISTCL) 35200 32681 GO TO I32746 35350 32676 CONTINUE 35750 IF((READ).NE.(SOURCE)) GO TO 32674 35900 ASSIGN 32672 TO I32673 35901 GO TO 32673 35902 32672 GO TO 32675 35950 32674 IF((SETUP).NE.(SOURCE)) GO TO 32671 35951 GO TO 32675 36000 32671 IF((RETRY).NE.(SOURCE)) GO TO 32670 36001 LINENO=HOLDNO 36050 CALL CPYSTR(SFLX,SHOLD) 36100 32670 CONTINUE 36200 32675 ERROR=0 36250 SAVED=.FALSE. 36300 NUNITS=0 36350 ERSTOP=0 36400 CURSOR=0 36450 CWD=2 36500 CPOS=0 36550 CLASS=0 36600 ASSIGN 32668 TO I32669 36650 GO TO 32669 36651 32668 ASSIGN 32666 TO I32667 36700 GO TO 32667 36701 32666 IF(.NOT.(CONT.OR.PASS)) GO TO 32664 36750 CLASS=TEXEC 36800 EXTYPE=TFORT 36850 GO TO 32665 36900 32664 ASSIGN 32662 TO I32663 36950 GO TO 32663 36951 32662 CONTINUE 36952 32665 IF((TEXEC).NE.(CLASS)) GO TO 32660 37050 IF((TFORT).NE.(EXTYPE)) GO TO 32658 37150 GO TO 32659 37200 32658 IF((TINVOK).NE.(EXTYPE)) GO TO 32657 37201 ASSIGN 32655 TO I32656 37202 GO TO 32656 37203 32655 GO TO 32659 37250 32657 IF((TCOND).NE.(EXTYPE)) GO TO 32654 37251 ASSIGN 32653 TO I32656 37252 GO TO 32656 37253 32653 GO TO 32659 37300 32654 IF((TSELCT).NE.(EXTYPE)) GO TO 32652 37301 ASSIGN 32650 TO I32651 37350 GO TO 32651 37351 32650 IF(.NOT.(NUNITS.GT.1)) GO TO 32649 37400 NUNITS=1 37450 CURSOR=USTART(2) 37500 ASSIGN 32647 TO I32648 37550 GO TO 32648 37551 32647 ASSIGN 32646 TO I32656 37600 GO TO 32656 37601 32646 CONTINUE 37650 32649 GO TO 32659 37750 32652 ASSIGN 32645 TO I32651 37751 GO TO 32651 37752 32645 CONTINUE 37800 32659 GO TO 32661 37900 32660 IF((TFIN).NE.(CLASS)) GO TO 32644 37901 ASSIGN 32643 TO I32656 37902 GO TO 32656 37903 32643 GO TO 32661 37950 32644 IF((TEND).NE.(CLASS)) GO TO 32642 37951 GO TO 32661 38000 32642 IF((TELSE).NE.(CLASS)) GO TO 32641 38001 ASSIGN 32639 TO I32640 38002 GO TO 32640 38003 32639 GO TO 32661 38050 32641 IF((TTO).NE.(CLASS)) GO TO 32638 38051 CSAVE=CURSOR 38100 ASSIGN 32636 TO I32637 38150 GO TO 32637 38151 32636 IF(.NOT.(FOUND)) GO TO 32634 38200 ASSIGN 32633 TO I32640 38201 GO TO 32640 38202 32633 GO TO 32635 38203 32634 ERSTOP=ERSTOP+1 38300 ERRSTK(ERSTOP)=5 38350 ASSIGN 32631 TO I32632 38400 GO TO 32632 38401 32631 SFLX(1)=CSAVE 38450 CALL CATSTR(SFLX,SDUM) 38500 CURSOR=CSAVE 38550 ASSIGN 32630 TO I32648 38600 GO TO 32648 38601 32630 ASSIGN 32629 TO I32637 38650 GO TO 32637 38651 32629 CONTINUE 38700 32635 GO TO 32661 38800 32638 IF((TCEXP).NE.(CLASS)) GO TO 32628 38801 ASSIGN 32627 TO I32651 38802 GO TO 32651 38803 32627 CONTINUE 38850 32628 CONTINUE 38851 32661 IF(ERSTOP.GT.0) CLASS=0 38900 LSTLEV=LEVEL 38950 GO TO I32676 39050 32626 CONTINUE 39150 ASSIGN 32624 TO I32625 39200 GO TO 32625 39201 32624 ASSIGN 32622 TO I32623 39250 GO TO 32623 39251 32622 IF(.NOT.(UTYPE(1).EQ.UEXP)) GO TO 32620 39300 GOTONO=NEWNO(0) 39350 STACK(TOP-2)=GOTONO 39400 STNO=0 39410 ASSIGN 32618 TO I32619 39450 GO TO 32619 39451 32618 GO TO 32621 39500 32620 STACK(TOP-2)=0 39550 32621 ASSIGN 32616 TO I32617 39822 GO TO 32617 39823 32616 GO TO I32626 39850 32615 CONTINUE 39900 TOP=TOP+4 39950 STACK(TOP)=ACSEQ 40000 STACK(TOP-1)=LINENO 40050 STACK(TOP-2)=0 40100 STACK(TOP-3)=0 40150 LEVEL=LEVEL+1 40200 ASSIGN 32614 TO I32623 40250 GO TO 32623 40251 32614 GO TO I32615 40300 32613 CONTINUE 40350 CONTNO=NEWNO(0) 40400 ASSIGN 32611 TO I32612 40450 GO TO 32612 40451 32611 CALL CPYSTR(SST,SDOST) 40500 CALL CATNUM(SST,CONTNO) 40550 CALL CATSTR(SST,SB) 40600 CALL CATSUB(SST,SFLX,USTART(1)+1,ULEN(1)-2) 40650 STNO=FLXNO 40700 FLXNO=0 40750 ASSIGN 32609 TO I32610 40800 GO TO 32610 40801 32609 ASSIGN 32608 TO I32617 40850 GO TO 32617 40851 32608 GO TO I32613 40900 32607 CONTINUE 40950 TOP=TOP-2 41000 ASSIGN 32606 TO I32623 41050 GO TO 32623 41051 32606 IF(.NOT.(NUNITS.EQ.1)) GO TO 32604 41100 IF(.NOT.(UTYPE(1).EQ.UPINV)) GO TO 32602 41150 ASSIGN 32600 TO I32601 41151 GO TO 32601 41152 32600 GO TO 32603 41153 32602 CALL CPYSUB(SST,SFLX,USTART(1),ULEN(1)) 41204 IF(STREQ(SST,SCONT)) GO TO 32599 41205 ASSIGN 32597 TO I32598 41206 GO TO 32598 41207 32597 CONTINUE 41208 32599 CONTINUE 41209 32603 GO TO 32605 41250 32604 ASSIGN 32595 TO I32596 41300 GO TO 32596 41301 32595 CONTINUE 41302 32605 GO TO I32607 41350 32594 CONTINUE 41400 ASSIGN 32592 TO I32593 41450 GO TO 32593 41451 32592 IF(.NOT.(LONG.OR.COGOTO)) GO TO 32591 41500 ASSIGN 32589 TO I32590 41501 GO TO 32590 41502 32589 CONTINUE 41503 32591 ASSIGN 32587 TO I32588 41800 GO TO 32588 41801 32587 IF (ENDFIL) ERROR=25 41900 ENDPGM=.TRUE. 41950 GO TO I32594 42000 32586 CONTINUE 42050 IF((TFORT).NE.(EXTYPE)) GO TO 32584 42150 ASSIGN 32583 TO I32588 42151 GO TO 32588 42152 32583 GO TO 32585 42200 32584 IF((TIF).NE.(EXTYPE)) GO TO 32582 42201 ASSIGN 32580 TO I32581 42202 GO TO 32581 42203 32580 GO TO 32585 42250 32582 IF((TUNLES).NE.(EXTYPE)) GO TO 32579 42251 ASSIGN 32577 TO I32578 42252 GO TO 32578 42253 32577 GO TO 32585 42300 32579 IF((TWHEN).NE.(EXTYPE)) GO TO 32576 42301 ASSIGN 32574 TO I32575 42302 GO TO 32575 42303 32574 GO TO 32585 42350 32576 IF((TWHILE).NE.(EXTYPE)) GO TO 32573 42351 ASSIGN 32571 TO I32572 42352 GO TO 32572 42353 32571 GO TO 32585 42400 32573 IF((TUNTIL).NE.(EXTYPE)) GO TO 32570 42401 ASSIGN 32568 TO I32569 42402 GO TO 32569 42403 32568 GO TO 32585 42450 32570 IF((TRWHIL).NE.(EXTYPE)) GO TO 32567 42451 ASSIGN 32565 TO I32566 42452 GO TO 32566 42453 32565 GO TO 32585 42500 32567 IF((TRUNTL).NE.(EXTYPE)) GO TO 32564 42501 ASSIGN 32562 TO I32563 42502 GO TO 32563 42503 32562 GO TO 32585 42550 32564 IF((TINVOK).NE.(EXTYPE)) GO TO 32561 42551 ASSIGN 32560 TO I32601 42552 GO TO 32601 42553 32560 GO TO 32585 42600 32561 IF((TCOND).NE.(EXTYPE)) GO TO 32559 42601 ASSIGN 32558 TO I32615 42602 GO TO 32615 42603 32558 GO TO 32585 42650 32559 IF((TSELCT).NE.(EXTYPE)) GO TO 32557 42651 ASSIGN 32555 TO I32556 42652 GO TO 32556 42653 32555 GO TO 32585 42700 32557 IF((TDO).NE.(EXTYPE)) GO TO 32554 42701 ASSIGN 32553 TO I32613 42702 GO TO 32613 42703 32553 CONTINUE 42750 32554 CONTINUE 42751 32585 GO TO I32586 42800 32598 CONTINUE 42850 STNO=FLXNO 42900 CALL CPYSTR(SST,SB6) 42950 IF(.NOT.(UTYPE(1).EQ.UFORT)) GO TO 32551 43000 J=1 43001 GO TO 32552 43002 32551 J=2 43050 32552 CALL CATSUB(SST,SFLX,USTART(J),ULEN(J)) 43100 ASSIGN 32550 TO I32610 43150 GO TO 32610 43151 32550 GO TO I32598 43200 32581 CONTINUE 43250 IF(.NOT.(NUNITS.EQ.2.AND.UTYPE(2).EQ.UFORT)) GO TO 32548 43300 ASSIGN 32547 TO I32588 43301 GO TO 32588 43302 32547 GO TO 32549 43303 32548 ASSIGN 32545 TO I32546 43350 GO TO 32546 43351 32545 CONTINUE 43352 32549 GO TO I32581 43400 32601 CONTINUE 43450 ASSIGN 32543 TO I32544 43500 GO TO 32544 43501 32543 ENTNO=STACK(PENT+1) 43550 RETNO=NEWNO(0) 43600 MAX=MAX-(1+OFFSET) 43650 STACK(MAX+1)=STACK(PENT+3) 43700 STACK(PENT+3)=MAX+1 43750 STACK(MAX+2)=LINENO 43800 IF (LONG.OR.COGOTO) STACK(MAX+3)=RETNO 43850 IF(.NOT.(COGOTO)) GO TO 32541 43852 STACK(PENT-2)=STACK(PENT-2)+1 43854 CALL CPYSTR(SST,SB6I) 43856 CALL CATNUM(SST,ENTNO) 43858 CALL CATSTR(SST,SEQ) 43860 CALL CATNUM(SST,STACK(PENT-2)) 43862 GO TO 32542 43864 32541 CALL CPYSTR(SST,SASSN1) 43900 CALL CATNUM(SST,RETNO) 43950 CALL CATSTR(SST,SASSN2) 44000 CALL CATNUM(SST,ENTNO) 44050 32542 STNO=FLXNO 44100 ASSIGN 32540 TO I32610 44150 GO TO 32610 44151 32540 GOTONO=ENTNO 44200 ASSIGN 32538 TO I32539 44250 GO TO 32539 44251 32538 NEXTNO=RETNO 44300 GO TO I32601 44350 32563 CONTINUE 44400 NOTFLG=.FALSE. 44450 ASSIGN 32537 TO I32566 44500 GO TO 32566 44501 32537 GO TO I32563 44550 32566 CONTINUE 44600 ASSIGN 32536 TO I32623 44650 GO TO 32623 44651 32536 TESTNO=NEWNO(0) 44700 TOPNO=NEWNO(0) 44750 ENDNO=NEWNO(0) 44800 GOTONO=TOPNO 44850 ASSIGN 32535 TO I32539 44900 GO TO 32539 44901 32535 STNO=TESTNO 44950 GOTONO=ENDNO 45000 ASSIGN 32534 TO I32619 45050 GO TO 32619 45051 32534 GSTNO=ENDNO 45100 ASSIGN 32532 TO I32533 45150 GO TO 32533 45151 32532 GGOTON=TESTNO 45200 ASSIGN 32530 TO I32531 45250 GO TO 32531 45251 32530 NEXTNO=TOPNO 45300 ASSIGN 32529 TO I32617 45350 GO TO 32617 45351 32529 GO TO I32566 45400 32556 CONTINUE 45450 ASSIGN 32528 TO I32623 45500 GO TO 32623 45501 32528 LEVEL=LEVEL+1 45550 L=(ULEN(1)-1)/NCHPWD+6 45600 TOP=TOP+L+1 45650 IF(.NOT.(TOP+SAFETY.LT.MAX)) GO TO 32526 45700 STACK(TOP)=ASSEQ 45750 STACK(TOP-1)=LINENO 45800 STACK(TOP-2)=0 45850 STACK(TOP-3)=0 45900 STACK(TOP-4)=L 45950 I=TOP-L 45960 STACK(I)=0 46000 CALL CATSUB(STACK(I),SFLX,USTART(1),ULEN(1)) 46050 GO TO 32527 46100 32526 ASSIGN 32524 TO I32525 46150 GO TO 32525 46151 32524 CONTINUE 46152 32527 GO TO I32556 46200 32523 CONTINUE 46250 LEVEL=LEVEL-1 46300 ASSIGN 32522 TO I32623 46350 GO TO 32623 46351 32522 STNO=STACK(TOP-2) 46400 IF(STNO.EQ.0) GO TO 32521 46450 ASSIGN 32519 TO I32520 46451 GO TO 32520 46452 32519 CONTINUE 46453 32521 ASSIGN 32517 TO I32518 46500 GO TO 32518 46501 32517 NEXTNO=STACK(TOP-3) 46550 ASSIGN 32515 TO I32516 46600 GO TO 32516 46601 32515 GO TO I32523 46650 32514 CONTINUE 46700 ASSIGN 32513 TO I32625 46750 GO TO 32625 46751 32513 ASSIGN 32512 TO I32623 46800 GO TO 32623 46801 32512 IF(.NOT.(UTYPE(1).EQ.UEXP)) GO TO 32510 46850 CALL CPYSTR(SST,SIFP) 46900 CALL CATSUB(SST,SFLX,USTART(1),ULEN(1)) 46950 CALL CATSTR(SST,SNE) 47000 I=TOP-STACK(TOP-4) 47050 CALL CATSTR(SST,STACK(I)) 47100 CALL CATSTR(SST,SPGOTO) 47150 NXIFNO=NEWNO(0) 47200 STACK(TOP-2)=NXIFNO 47250 CALL CATNUM(SST,NXIFNO) 47300 STNO=0 47350 ASSIGN 32509 TO I32610 47400 GO TO 32610 47401 32509 GO TO 32511 47450 32510 STACK(TOP-2)=0 47500 32511 ASSIGN 32508 TO I32617 47550 GO TO 32617 47551 32508 GO TO I32514 47600 32507 CONTINUE 47650 ASSIGN 32506 TO I32623 47700 GO TO 32623 47701 32506 LEVEL=LEVEL-1 47750 TOP=TOP-2 47800 GO TO I32507 47850 32505 CONTINUE 47900 ASSIGN 32504 TO I32544 47950 GO TO 32544 47951 32504 IF(.NOT.(STACK(PENT+2).NE.0)) GO TO 32502 48000 ERROR=26 48050 MLINE=STACK(PENT+2) 48100 ENTNO=NEWNO(0) 48150 GO TO 32503 48200 32502 ENTNO=STACK(PENT+1) 48300 STACK(PENT+2)=LINENO 48350 32503 ASSIGN 32501 TO I32623 48450 GO TO 32623 48451 32501 ASSIGN 32500 TO I32518 48500 GO TO 32518 48501 32500 NEXTNO=ENTNO 48550 ASSIGN 32499 TO I32518 48570 GO TO 32518 48571 32499 TOP=TOP+2 48600 STACK(TOP)=AGRET 48650 IF(.NOT.(SHORT.OR.FAKE)) GO TO 32497 48700 STACK(TOP-1)=ENTNO 48701 GO TO 32498 48702 32497 STACK(TOP-1)=STACK(PENT-1) 48750 32498 UTYPE(1)=0 48800 ASSIGN 32496 TO I32617 48850 GO TO 32617 48851 32496 GO TO I32505 48900 32578 CONTINUE 48950 IF(.NOT.(NUNITS.EQ.2.AND.UTYPE(2).EQ.UFORT)) GO TO 32494 49000 CALL CPYSTR(SST,SIFPN) 49050 CALL CATSUB(SST,SFLX,USTART(1),ULEN(1)) 49100 CALL CATSTR(SST,SPB) 49150 CALL CATSUB(SST,SFLX,USTART(2),ULEN(2)) 49200 STNO=FLXNO 49250 ASSIGN 32493 TO I32610 49300 GO TO 32610 49301 32493 GO TO 32495 49350 32494 NOTFLG=.FALSE. 49450 ASSIGN 32492 TO I32546 49500 GO TO 32546 49501 32492 CONTINUE 49550 32495 GO TO I32578 49600 32569 CONTINUE 49650 NOTFLG=.FALSE. 49700 ASSIGN 32491 TO I32572 49750 GO TO 32572 49751 32491 GO TO I32569 49800 32575 CONTINUE 49850 ENDNO=NEWNO(0) 49900 ELSNO=NEWNO(0) 49950 GSTNO=ENDNO 50000 ASSIGN 32490 TO I32533 50050 GO TO 32533 50051 32490 TOP=TOP+2 50100 STACK(TOP-1)=LINENO 50150 STACK(TOP)=AELSE 50200 GSTNO=ELSNO 50250 ASSIGN 32489 TO I32533 50300 GO TO 32533 50301 32489 GGOTON=ENDNO 50350 ASSIGN 32488 TO I32531 50400 GO TO 32531 50401 32488 GOTONO=ELSNO 50450 STNO=FLXNO 50500 FLXNO=0 50550 ASSIGN 32487 TO I32619 50600 GO TO 32619 50601 32487 ASSIGN 32486 TO I32617 50650 GO TO 32617 50651 32486 GO TO I32575 50700 32572 CONTINUE 50750 IF(.NOT.(FLXNO.NE.0)) GO TO 32484 50850 LOOPNO=FLXNO 50900 FLXNO=0 50950 GO TO 32485 51050 32484 IF(.NOT.(NEXTNO.NE.0)) GO TO 32483 51051 LOOPNO=NEXTNO 51100 NEXTNO=0 51150 GO TO 32485 51250 32483 LOOPNO=NEWNO(0) 51300 32485 ENDNO=NEWNO(0) 51450 GSTNO=ENDNO 51500 ASSIGN 32482 TO I32533 51550 GO TO 32533 51551 32482 GGOTON=LOOPNO 51600 ASSIGN 32481 TO I32531 51650 GO TO 32531 51651 32481 GOTONO=ENDNO 51700 STNO=LOOPNO 51750 ASSIGN 32480 TO I32619 51800 GO TO 32619 51801 32480 ASSIGN 32479 TO I32617 51850 GO TO 32617 51851 32479 GO TO I32572 51900 32617 CONTINUE 51950 IF(.NOT.(NUNITS.EQ.1)) GO TO 32477 52050 ASSIGN 32476 TO I32596 52051 GO TO 32596 52052 32476 GO TO 32478 52100 32477 IF(.NOT.(UTYPE(2).EQ.UPINV)) GO TO 32475 52101 ASSIGN 32474 TO I32601 52102 GO TO 32601 52103 32474 GO TO 32478 52170 32475 CALL CPYSUB(SST,SFLX,USTART(2),ULEN(2)) 52171 IF(STREQ(SST,SCONT)) GO TO 32473 52172 ASSIGN 32472 TO I32598 52173 GO TO 32598 52174 32472 CONTINUE 52175 32473 CONTINUE 52200 32478 GO TO I32617 52250 32544 CONTINUE 52300 IF(.NOT.(UTYPE(1).EQ.UPINV)) GO TO 32470 52350 J=1 52351 GO TO 32471 52352 32470 J=2 52400 32471 CALL CPYSUB(SPINV,SFLX,USTART(J),ULEN(J)) 52450 IF(.NOT.(STREQ(SPINV,SDUM))) GO TO 32468 52500 PENT=PDUMMY 52550 STACK(PENT+2)=0 52600 GO TO 32469 52650 32468 P=MAXSTK-HASH(SPINV,PRIME) 52750 FOUND=.FALSE. 52800 IF(STACK(P).EQ.0) GO TO 32467 52850 GO TO 32465 52900 32466 IF(STACK(P).EQ.0.OR.FOUND) GO TO 32464 52901 32465 P=STACK(P) 52950 IF (STREQ(SPINV,STACK(P+4))) FOUND=.TRUE. 53000 GO TO 32466 53050 32464 CONTINUE 53100 32467 IF(.NOT.(FOUND)) GO TO 32462 53150 PENT=P 53151 GO TO 32463 53152 32462 TMAX=MAX-(4+OFFST2+(SPINV(1)+NCHPWD-1)/NCHPWD) 53250 IF(.NOT.(TMAX.LE.TOP+SAFETY)) GO TO 32460 53300 PENT=PDUMMY 53350 STACK(PENT+2)=0 53400 GO TO 32461 53450 32460 MAX=TMAX 53550 PENT=MAX+OFFST2 53600 IF (LONG.OR.COGOTO) STACK(PENT-1)=NEWNO(0) 53650 IF (COGOTO) STACK(PENT-2)=0 53652 STACK(PENT)=0 53700 STACK(P)=PENT 53750 STACK(PENT+1)=NEWNO(0) 53800 STACK(PENT+2)=0 53850 STACK(PENT+3)=0 53900 CALL CPYSTR(STACK(PENT+4),SPINV) 53950 32461 CONTINUE 54050 32463 CONTINUE 54100 32469 GO TO I32544 54150 32546 CONTINUE 54200 GOTONO=NEWNO(0) 54250 STNO=FLXNO 54300 FLXNO=0 54325 ASSIGN 32459 TO I32619 54350 GO TO 32619 54351 32459 GSTNO=GOTONO 54400 ASSIGN 32458 TO I32533 54450 GO TO 32533 54451 32458 ASSIGN 32457 TO I32617 54500 GO TO 32617 54501 32457 GO TO I32546 54550 32518 CONTINUE 54600 IF(.NOT.(NEXTNO.NE.0)) GO TO 32456 54650 CALL PUTNUM(SFORCE,NEXTNO) 54700 CALL PUT(LINENO,SFORCE,FORTCL) 54750 NEXTNO=0 54800 32456 GO TO I32518 54900 32625 CONTINUE 54950 ENDNO=STACK(TOP-3) 55000 IF(.NOT.(ENDNO.EQ.0)) GO TO 32454 55050 STACK(TOP-3)=NEWNO(0) 55100 GO TO 32455 55150 32454 GOTONO=ENDNO 55250 ASSIGN 32453 TO I32539 55300 GO TO 32539 55301 32453 CONTINUE 55350 32455 IF(.NOT.(NEXTNO.EQ.0)) GO TO 32451 55450 NEXTNO=STACK(TOP-2) 55451 GO TO 32452 55500 32451 IF(.NOT.(STACK(TOP-2).EQ.0)) GO TO 32450 55501 GO TO 32452 55550 32450 ASSIGN 32449 TO I32518 55600 GO TO 32518 55601 32449 NEXTNO=STACK(TOP-2) 55650 32452 GO TO I32625 55800 32448 CONTINUE 56150 STNO=STACK(TOP-1) 56200 ASSIGN 32447 TO I32520 56250 GO TO 32520 56251 32447 TOP=TOP-2 56300 GO TO I32448 56350 32446 CONTINUE 56400 GOTONO=STACK(TOP-1) 56450 ASSIGN 32445 TO I32539 56500 GO TO 32539 56501 32445 TOP=TOP-2 56550 GO TO I32446 56600 32590 CONTINUE 56650 P=PTABLE 56700 32444 IF(P.EQ.0) GO TO 32443 56750 IF(.NOT.(STACK(P+2).NE.0)) GO TO 32441 56800 IF(.NOT.(LONG)) GO TO 32439 56825 CALL CPYSTR(SST,SGOTOI) 56850 CALL CATNUM(SST,STACK(P+1)) 56900 CALL CATSTR(SST,SCP) 56950 GO TO 32440 56960 32439 CALL CPYSTR(SST,SGOTOP) 56970 32440 Q=STACK(P+3) 57000 STNO=STACK(P-1) 57050 IF(.NOT.(Q.EQ.0)) GO TO 32437 57100 CALL CATNUM(SST,STACK(P+1)) 57101 GO TO 32438 57102 32437 GO TO 32435 57200 32436 IF(Q.EQ.0) GO TO 32434 57201 32435 IF(.NOT.(SST(1).GT.SSTMAX-6)) GO TO 32433 57250 ASSIGN 32432 TO I32610 57300 GO TO 32610 57301 32432 CALL CPYSTR(SST,SB5I1) 57350 32433 CALL CATNUM(SST,STACK(Q+2)) 57450 CALL CATSTR(SST,SCOMMA) 57500 Q=STACK(Q) 57550 GO TO 32436 57600 32434 SST(1)=SST(1)-1 57650 32438 IF(.NOT.(LONG)) GO TO 32430 57750 CALL CATSTR(SST,SRP) 57751 GO TO 32431 57752 32430 IF(.NOT.(SST(1).GT.SSTMAX-9)) GO TO 32429 57762 ASSIGN 32428 TO I32610 57764 GO TO 32610 57765 32428 CALL CPYSTR(SST,SB5I1) 57766 32429 CALL CATSTR(SST,SRPCI) 57770 CALL CATNUM(SST,STACK(P+1)) 57780 32431 ASSIGN 32427 TO I32610 57800 GO TO 32610 57801 32427 GO TO 32442 57850 32441 CALL CPYSTR(SST,SSTOP) 57950 STNO=STACK(P+1) 58000 ASSIGN 32426 TO I32610 58050 GO TO 32610 58051 32426 CONTINUE 58100 32442 P=STACK(P) 58150 GO TO 32444 58200 32443 GO TO I32590 58250 32425 CONTINUE 58300 STNO=0 58350 CALL CPYSTR(SST,SGOTOI) 58400 IF (LONG.OR.COGOTO) SST(1)=SST(1)-1 58450 CALL CATNUM(SST,STACK(TOP-1)) 58500 IF(.NOT.(FAKE)) GO TO 32424 58530 CALL CATSTR(SST,SCP) 58532 CALL CATNUM(SST,STACK(TOP-1)) 58534 CALL CATSTR(SST,SRP) 58536 32424 ASSIGN 32423 TO I32610 58550 GO TO 32610 58551 32423 TOP=TOP-2 58600 GO TO I32425 58650 32422 CONTINUE 58700 ASSIGN 32421 TO I32518 58750 GO TO 32518 58751 32421 NEXTNO=STACK(TOP-1) 58800 TOP=TOP-2 58850 GO TO I32422 58900 32420 CONTINUE 59000 CURSOR=CURSOR+1 59050 CPOS=CPOS+1 59100 IF(.NOT.(CPOS.GT.NCHPWD)) GO TO 32419 59150 CWD=CWD+1 59200 CPOS=1 59250 32419 IF(.NOT.(CURSOR.GT.SFLX(1))) GO TO 32417 59350 CHTYPE=TEOL 59351 GO TO 32418 59352 32417 CALL GETCH(SFLX(CWD),CPOS,CH) 59450 CHTYPE=CHTYP(CH) 59500 32418 GO TO I32420 59600 32525 CONTINUE 59700 CALL PUT(0,SGUP1,ERRCL) 59750 CALL PUT(0,SGUP2,ERRCL) 59800 CALL CLOSEF(MINCNT,-1) 59850 IF (.TRUE.) CALL EXIT 60200 GO TO I32525 60350 32710 CONTINUE 60450 ASSIGN 32415 TO I32416 60500 GO TO 32416 60501 32415 CALL CPYSTR(SFLX,SCOND) 60550 CALL PUT(0,SICOND,ERRCL) 60600 GO TO I32710 60650 32731 CONTINUE 60700 ASSIGN 32414 TO I32416 60750 GO TO 32416 60751 32414 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 I32731 61050 32734 CONTINUE 61100 ASSIGN 32413 TO I32416 61150 GO TO 32416 61151 32413 CALL CPYSTR(SFLX,SFIN) 61200 CALL CPYSTR(SLIST,SIFIN) 61250 IF(.NOT.(STACK(TOP-1).EQ.0)) GO TO 32411 61300 CALL CATSTR(SLIST,SIFIN2) 61301 GO TO 32412 61302 32411 CALL CATNUM(SLIST,STACK(TOP-1)) 61400 CALL CATSTR(SLIST,SRP) 61450 32412 CALL PUT(0,SLIST,ERRCL) 61550 GO TO I32734 61600 32722 CONTINUE 61650 ASSIGN 32410 TO I32416 61700 GO TO 32416 61701 32410 CALL CPYSTR(SFLX,STODUM) 61750 CALL PUT(0,SITODM,ERRCL) 61800 GO TO I32722 61850 32725 CONTINUE 61900 ASSIGN 32409 TO I32416 61950 GO TO 32416 61951 32409 CALL CPYSTR(SFLX,SWHEN) 62000 CALL PUT(0,SIWHEN,ERRCL) 62050 GO TO I32725 62100 32719 CONTINUE 62105 IF(.NOT.(TOP.LE.7)) GO TO 32407 62107 ASSIGN 32406 TO I32725 62108 GO TO 32725 62109 32406 GO TO 32408 62110 32407 IF(.NOT.(STACK(TOP-6).EQ.AELSE)) GO TO 32405 62111 ASSIGN 32404 TO I32734 62112 GO TO 32734 62113 32404 GO TO 32408 62114 32405 ASSIGN 32403 TO I32725 62115 GO TO 32725 62116 32403 CONTINUE 62117 32408 GO TO I32719 62118 32678 CONTINUE 62200 LSTLEV=LEVEL 62220 IF(.NOT.(LSTLEV.EQ.0.OR.(SSPACR(1)*LSTLEV+SB6(1).GT.WWIDTH))) GO T 62250 1O 32401 62251 CALL PUT(BLN,SB,LISTCL) 62260 GO TO 32402 62270 32401 CALL CPYSTR(SLIST,SB6) 62350 DO 32400 I=1,LSTLEV 62400 CALL CATSTR(SLIST,SSPACR) 62401 32400 CONTINUE 62402 CALL PUT(BLN,SLIST,LISTCL) 62500 32402 BLN=0 62600 GO TO I32678 62650 32399 CONTINUE 62750 CURSOR=1 62800 ASSIGN 32398 TO I32648 62850 GO TO 32648 62851 32398 INDENT=.TRUE. 62900 I=2 62950 GO TO 32396 63000 32397 IF(.NOT.(I.LE.6.AND.INDENT)) GO TO 32395 63001 32396 ASSIGN 32394 TO I32420 63050 GO TO 32420 63051 32394 IF (CHTYPE.NE.TBLANK.AND.CHTYPE.NE.TEOL) INDENT=.FALSE. 63100 I=I+1 63150 GO TO 32397 63200 32395 IF(.NOT.(INDENT)) GO TO 32392 63250 LSTLEV=LEVEL 63300 CLASS=0 63325 ASSIGN 32391 TO I32742 63350 GO TO 32742 63351 32391 GO TO 32393 63450 32392 CALL PUT(LINENO,SFLX,LISTCL) 63500 32393 GO TO I32399 63550 32390 CONTINUE 63650 CALL PUT(0,SB,LISTCL) 63700 CALL PUT(0,SDASH,LISTCL) 63750 CALL PUT(0,SB,LISTCL) 63800 GO TO I32390 63850 32742 CONTINUE 63950 IF(.NOT.(CLASS.EQ.TTO)) GO TO 32389 64000 ASSIGN 32388 TO I32390 64001 GO TO 32390 64002 32388 CONTINUE 64003 32389 IF (SFLX(1).LT.7) CALL CATSTR(SFLX,SB7) 64050 CALL CPYSUB(SLIST,SFLX,1,6) 64100 IF(LSTLEV.EQ.0.OR.(SSPACR(1)*LSTLEV+SFLX(1).GT.WWIDTH)) GO TO 3238 64150 17 64151 DO 32386 I=1,LSTLEV 64200 CALL CATSTR(SLIST,SSPACR) 64201 32386 CONTINUE 64202 IF(.NOT.(CLASS.EQ.TFIN)) GO TO 32385 64300 SLIST(1)=SLIST(1)-SSPACR(1) 64350 CALL CATSTR(SLIST,SFSPCR) 64400 32385 CONTINUE 64460 32387 CALL CATSUB(SLIST,SFLX,7,SFLX(1)-6) 64500 IF (SLIST(1).GT.WWIDTH) CALL CPYSTR(SLIST,SFLX) 64550 IF(.NOT.(ERLST)) GO TO 32383 64600 CALL PUT(LINENO,SLIST,ERRCL) 64650 ERLST=.FALSE. 64700 GO TO 32384 64750 32383 CALL PUT(LINENO,SLIST,LISTCL) 64800 32384 GO TO I32742 64850 32759 CONTINUE 64950 NOCALL=0 65100 PARAM1=NCHPWD 65350 PARAM2=CHZERO 65400 PARAM3=CHSPAC 65450 PARAM4=CHC 65500 BLN=0 65650 WWIDTH=LWIDTH-6 65700 REFNO=(LWIDTH-12)/7 65750 IF(.NOT.(SHORT.OR.FAKE)) GO TO 32381 65805 OFFSET=1 65810 OFFST2=1 65815 GO TO 32382 65825 32381 IF(.NOT.(COGOTO)) GO TO 32380 65826 OFFSET=2 65830 OFFST2=3 65835 GO TO 32382 65845 32380 OFFSET=2 65850 OFFST2=3 65855 32382 NOTFLG=.TRUE. 65900 ERLST=.FALSE. 65950 GO TO I32759 66000 32516 CONTINUE 66050 TOPTYP=STACK(TOP) 66100 IF((ASSEQ).NE.(TOPTYP)) GO TO 32378 66200 TOP=TOP-STACK(TOP-4)-1 66201 GO TO 32379 66250 32378 IF((ACSEQ).NE.(TOPTYP)) GO TO 32377 66251 TOP=TOP-4 66252 GO TO 32379 66300 32377 IF((AGGOTO).NE.(TOPTYP)) GO TO 32376 66301 TOP=TOP-2 66302 GO TO 32379 66350 32376 IF((AGCONT).NE.(TOPTYP)) GO TO 32375 66351 TOP=TOP-2 66352 GO TO 32379 66400 32375 IF((AFSEQ).NE.(TOPTYP)) GO TO 32374 66401 TOP=TOP-2 66402 GO TO 32379 66450 32374 IF((AELSE).NE.(TOPTYP)) GO TO 32373 66451 TOP=TOP-2 66452 GO TO 32379 66500 32373 IF((AGSTNO).NE.(TOPTYP)) GO TO 32372 66501 TOP=TOP-2 66502 GO TO 32379 66550 32372 IF((ATSEQ).NE.(TOPTYP)) GO TO 32371 66551 TOP=TOP-1 66552 GO TO 32379 66600 32371 IF((AMSEQ).NE.(TOPTYP)) GO TO 32370 66601 TOP=TOP-1 66602 GO TO 32379 66650 32370 IF((AGRET).NE.(TOPTYP)) GO TO 32369 66651 TOP=TOP-2 66652 32369 CONTINUE 66700 32379 GO TO I32516 66750 32416 CONTINUE 66850 ERTYPE=2 66900 ASSIGN 32368 TO I32632 66950 GO TO 32632 66951 32368 LINENO=0 67000 IF(.NOT.(SOURCE.EQ.READ)) GO TO 32367 67050 CALL CPYSTR(SST,SINSRT) 67100 IF(.NOT.(HOLDNO.GT.0)) GO TO 32365 67150 CALL CATNUM(SST,HOLDNO) 67151 GO TO 32366 67152 32365 CALL CATSTR(SST,SINS2) 67200 32366 CALL PUT(0,SST,ERRCL) 67250 32367 GO TO I32416 67350 32750 CONTINUE 67450 DUMMY=NEWNO(SEEDNO) 67500 ENDPGM=.FALSE. 67550 MAX=MAXSTK-(PRIME+OFFSET+3) 67600 PDUMMY=MAX+OFFSET 67650 DO 32364 I=MAX,MAXSTK 67700 STACK(I)=0 67701 32364 CONTINUE 67702 TOP=1 67750 STACK(TOP)=AMSEQ 67800 ERROR=0 67900 FIRST=.TRUE. 67950 NOPGM=.FALSE. 68000 NEXTNO=0 68025 SOURCE=READ 68050 LEVEL=0 68150 LSTLEV=0 68200 ASSIGN 32363 TO I32390 68250 GO TO 32390 68251 32363 GO TO I32750 68300 32748 CONTINUE 68350 GO TO 32361 68400 32362 IF(ENDPGM) GO TO 32360 68401 32361 IF(.NOT.(TOP+SAFETY.GT.MAX)) GO TO 32359 68450 ASSIGN 32358 TO I32525 68451 GO TO 32525 68452 32358 CONTINUE 68453 32359 ACTION=STACK(TOP) 68500 IF((AGGOTO).NE.(ACTION)) GO TO 32356 68600 ASSIGN 32355 TO I32446 68601 GO TO 32446 68602 32355 GO TO 32357 68650 32356 IF((AGRET).NE.(ACTION)) GO TO 32354 68651 ASSIGN 32353 TO I32425 68652 GO TO 32425 68653 32353 GO TO 32357 68700 32354 IF((AGCONT).NE.(ACTION)) GO TO 32352 68701 ASSIGN 32351 TO I32448 68702 GO TO 32448 68703 32351 GO TO 32357 68750 32352 IF((AGSTNO).NE.(ACTION)) GO TO 32350 68751 ASSIGN 32349 TO I32422 68752 GO TO 32422 68753 32349 GO TO 32357 68800 32350 ASSIGN 32348 TO I32676 68900 GO TO 32676 68901 32348 IF((AFSEQ).NE.(ACTION)) GO TO 32346 69150 IF((TEXEC).NE.(CLASS)) GO TO 32344 69250 ASSIGN 32343 TO I32586 69251 GO TO 32586 69252 32343 GO TO 32345 69300 32344 IF((TFIN).NE.(CLASS)) GO TO 32342 69301 ASSIGN 32341 TO I32507 69302 GO TO 32507 69303 32341 GO TO 32345 69350 32342 IF((TEND).NE.(CLASS)) GO TO 32340 69351 ERROR=1 69352 GO TO 32345 69400 32340 IF((TELSE).NE.(CLASS)) GO TO 32339 69401 ERROR=10 69402 GO TO 32345 69450 32339 IF((TTO).NE.(CLASS)) GO TO 32338 69451 ERROR=13 69452 GO TO 32345 69500 32338 IF((TCEXP).NE.(CLASS)) GO TO 32337 69501 ERROR=19 69502 32337 CONTINUE 69550 32345 GO TO 32347 69650 32346 IF((AMSEQ).NE.(ACTION)) GO TO 32336 69651 IF((TEXEC).NE.(CLASS)) GO TO 32334 69750 ASSIGN 32333 TO I32586 69751 GO TO 32586 69752 32333 GO TO 32335 69800 32334 IF((TEND).NE.(CLASS)) GO TO 32332 69801 IF(.NOT.(NOPGM)) GO TO 32330 69850 ENDPGM=.TRUE. 69851 GO TO 32331 69852 32330 ASSIGN 32329 TO I32594 69900 GO TO 32594 69901 32329 CONTINUE 69902 32331 GO TO 32335 70000 32332 IF((TFIN).NE.(CLASS)) GO TO 32328 70001 ERROR=5 70002 GO TO 32335 70050 32328 IF((TELSE).NE.(CLASS)) GO TO 32327 70051 ERROR=8 70052 GO TO 32335 70100 32327 IF((TTO).NE.(CLASS)) GO TO 32326 70101 STACK(TOP)=ATSEQ 70200 ASSIGN 32325 TO I32505 70250 GO TO 32505 70251 32325 GO TO 32335 70350 32326 IF((TCEXP).NE.(CLASS)) GO TO 32324 70351 ERROR=17 70352 32324 CONTINUE 70400 32335 GO TO 32347 70500 32336 IF((ASSEQ).NE.(ACTION)) GO TO 32323 70501 IF((TCEXP).NE.(CLASS)) GO TO 32321 70600 ASSIGN 32320 TO I32514 70601 GO TO 32514 70602 32320 GO TO 32322 70650 32321 IF((TFIN).NE.(CLASS)) GO TO 32319 70651 ASSIGN 32318 TO I32523 70652 GO TO 32523 70653 32318 GO TO 32322 70700 32319 IF((TEND).NE.(CLASS)) GO TO 32317 70701 ERROR=3 70702 GO TO 32322 70750 32317 IF((TELSE).NE.(CLASS)) GO TO 32316 70751 ERROR=12 70752 GO TO 32322 70800 32316 IF((TTO).NE.(CLASS)) GO TO 32315 70801 ERROR=15 70802 GO TO 32322 70850 32315 IF((TEXEC).NE.(CLASS)) GO TO 32314 70851 ERROR=23 70852 32314 CONTINUE 70900 32322 GO TO 32347 71000 32323 IF((ACSEQ).NE.(ACTION)) GO TO 32313 71001 IF((TCEXP).NE.(CLASS)) GO TO 32311 71100 ASSIGN 32310 TO I32626 71101 GO TO 32626 71102 32310 GO TO 32312 71150 32311 IF((TFIN).NE.(CLASS)) GO TO 32309 71151 ASSIGN 32308 TO I32523 71152 GO TO 32523 71153 32308 GO TO 32312 71200 32309 IF((TEND).NE.(CLASS)) GO TO 32307 71201 ERROR=2 71202 GO TO 32312 71250 32307 IF((TELSE).NE.(CLASS)) GO TO 32306 71251 ERROR=11 71252 GO TO 32312 71300 32306 IF((TTO).NE.(CLASS)) GO TO 32305 71301 ERROR=14 71302 GO TO 32312 71350 32305 IF((TEXEC).NE.(CLASS)) GO TO 32304 71351 ERROR=22 71352 32304 CONTINUE 71400 32312 GO TO 32347 71500 32313 IF((AELSE).NE.(ACTION)) GO TO 32303 71501 IF((TELSE).NE.(CLASS)) GO TO 32301 71600 ASSIGN 32300 TO I32607 71601 GO TO 32607 71602 32300 GO TO 32302 71650 32301 IF((TEND).NE.(CLASS)) GO TO 32299 71651 ERROR=4 71652 GO TO 32302 71700 32299 IF((TFIN).NE.(CLASS)) GO TO 32298 71701 ERROR=7 71702 GO TO 32302 71750 32298 IF((TTO).NE.(CLASS)) GO TO 32297 71751 ERROR=16 71752 GO TO 32302 71800 32297 IF((TCEXP).NE.(CLASS)) GO TO 32296 71801 ERROR=20 71802 GO TO 32302 71850 32296 IF((TEXEC).NE.(CLASS)) GO TO 32295 71851 ERROR=24 71852 32295 CONTINUE 71900 32302 GO TO 32347 72000 32303 IF((ATSEQ).NE.(ACTION)) GO TO 32294 72001 IF((TTO).NE.(CLASS)) GO TO 32292 72100 ASSIGN 32291 TO I32505 72101 GO TO 32505 72102 32291 GO TO 32293 72150 32292 IF((TEND).NE.(CLASS)) GO TO 32290 72151 ASSIGN 32289 TO I32594 72152 GO TO 32594 72153 32289 GO TO 32293 72200 32290 IF((TFIN).NE.(CLASS)) GO TO 32288 72201 ERROR=6 72202 GO TO 32293 72250 32288 IF((TELSE).NE.(CLASS)) GO TO 32287 72251 ERROR=9 72252 GO TO 32293 72300 32287 IF((TCEXP).NE.(CLASS)) GO TO 32286 72301 ERROR=18 72302 GO TO 32293 72350 32286 IF((TEXEC).NE.(CLASS)) GO TO 32285 72351 ERROR=21 72352 32285 CONTINUE 72400 32293 CONTINUE 72500 32294 CONTINUE 72501 32347 IF(NOPGM) GO TO 32284 72600 ASSIGN 32283 TO I32746 72601 GO TO 32746 72602 32283 CONTINUE 72603 32284 CONTINUE 72850 32357 GO TO 32362 72900 32360 GO TO I32748 72950 32680 CONTINUE 73050 IF(PTABLE.EQ.0) GO TO 32282 73100 TABLCL=LISTCL 73150 ASSIGN 32281 TO I32390 73200 GO TO 32390 73201 32281 CALL PUT(0,STABH,LISTCL) 73250 CALL PUT(0,SB,LISTCL) 73300 P=PTABLE 73350 NDERR=.FALSE. 73400 NIERR=.FALSE. 73450 GO TO 32279 73500 32280 IF(P.EQ.0) GO TO 32278 73501 32279 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 32277 73551 NDERR=.TRUE. 73552 MAJCNT=MAJCNT+1 73553 32277 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 32276 73601 NIERR=.TRUE. 73602 MINCNT=MINCNT+1 73603 32276 ASSIGN 32274 TO I32275 73750 GO TO 32275 73751 32274 P=STACK(P) 73800 GO TO 32280 73850 32278 IF(.NOT.(NDERR)) GO TO 32273 73900 CALL PUT(0,SNDER1,ERRCL) 73950 CALL PUT(0,SNDER2,ERRCL) 74000 ASSIGN 32272 TO I32678 74050 GO TO 32678 74051 32272 P=PTABLE 74100 TABLCL=ERRCL 74150 GO TO 32270 74200 32271 IF(P.EQ.0) GO TO 32269 74201 32270 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 32268 74250 ASSIGN 32267 TO I32275 74251 GO TO 32275 74252 32267 CONTINUE 74253 32268 P=STACK(P) 74300 GO TO 32271 74350 32269 CONTINUE 74400 32273 IF(.NOT.(NIERR)) GO TO 32266 74450 CALL PUT(0,SNIER1,ERRCL) 74500 CALL PUT(0,SNIER2,ERRCL) 74550 ASSIGN 32265 TO I32678 74600 GO TO 32678 74601 32265 P=PTABLE 74650 TABLCL=ERRCL 74700 GO TO 32263 74750 32264 IF(P.EQ.0) GO TO 32262 74751 32263 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 32261 74800 ASSIGN 32260 TO I32275 74801 GO TO 32275 74802 32260 CONTINUE 74803 32261 P=STACK(P) 74850 GO TO 32264 74900 32262 CONTINUE 74950 32266 CONTINUE 75000 32282 GO TO I32680 75050 32275 CONTINUE 75100 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 32259 IF(QP.EQ.0) GO TO 32258 75400 CALL CPYSTR(SST,SB4) 75450 I=1 75500 32257 IF(QP.EQ.0.OR.I.GT.REFNO) GO TO 32256 75550 CALL CATSTR(SST,SB2) 75600 CALL CATNUM(SST,STACK(QP+1)) 75650 I=I+1 75700 QP=STACK(QP) 75750 GO TO 32257 75800 32256 CALL PUT(0,SST,TABLCL) 75850 GO TO 32259 75900 32258 CALL PUT(0,SB,LISTCL) 75950 GO TO I32275 76000 32596 CONTINUE 76100 TOP=TOP+2 76150 STACK(TOP-1)=LINENO 76200 STACK(TOP)=AFSEQ 76250 LEVEL=LEVEL+1 76300 GO TO I32596 76350 32612 CONTINUE 76400 TOP=TOP+2 76450 STACK(TOP-1)=CONTNO 76500 STACK(TOP)=AGCONT 76550 GO TO I32612 76600 32531 CONTINUE 76650 TOP=TOP+2 76700 STACK(TOP-1)=GGOTON 76750 STACK(TOP)=AGGOTO 76800 GO TO I32531 76850 32533 CONTINUE 76900 TOP=TOP+2 76950 STACK(TOP-1)=GSTNO 77000 STACK(TOP)=AGSTNO 77050 GO TO I32533 77100 32520 CONTINUE 77150 ASSIGN 32255 TO I32518 77200 GO TO 32518 77201 32255 CALL PUTNUM(SFORCE,STNO) 77250 CALL PUT(LINENO,SFORCE,FORTCL) 77300 STNO=0 77350 GO TO I32520 77400 32588 CONTINUE 77450 IF(.NOT.(NEXTNO.EQ.0)) GO TO 32253 77550 CALL PUT(LINENO,SFLX,FORTCL) 77551 GO TO 32254 77600 32253 IF(.NOT.(FLXNO.NE.0.OR.PASS)) GO TO 32252 77601 ASSIGN 32251 TO I32518 77650 GO TO 32518 77651 32251 CALL PUT(LINENO,SFLX,FORTCL) 77700 GO TO 32254 77900 32252 CALL CPYSTR(SST,SFLX) 77925 CALL PUTNUM(SST,NEXTNO) 77950 CALL PUT(LINENO,SST,FORTCL) 77975 NEXTNO=0 78000 32254 GO TO I32588 78150 32539 CONTINUE 78200 CALL CPYSTR(SPUTGO,SGOTO) 78250 CALL CATNUM(SPUTGO,GOTONO) 78300 IF(.NOT.(NEXTNO.NE.0)) GO TO 32250 78350 CALL PUTNUM(SPUTGO,NEXTNO) 78400 NEXTNO=0 78450 32250 CALL PUT(LINENO,SPUTGO,FORTCL) 78550 GO TO I32539 78600 32619 CONTINUE 78650 IF(.NOT.(NOTFLG)) GO TO 32248 78700 CALL CPYSTR(SST,SIFPN) 78701 GO TO 32249 78702 32248 CALL CPYSTR(SST,SIF) 78750 32249 CALL CATSUB(SST,SFLX,USTART(1),ULEN(1)) 78800 IF(.NOT.(NOTFLG)) GO TO 32246 78850 CALL CATSTR(SST,SPGOTO) 78851 GO TO 32247 78852 32246 CALL CATSTR(SST,SBGOTO) 78900 32247 CALL CATNUM(SST,GOTONO) 78950 ASSIGN 32245 TO I32610 79000 GO TO 32610 79001 32245 NOTFLG=.TRUE. 79050 GO TO I32619 79100 32610 CONTINUE 79150 IF(NEXTNO.EQ.0) GO TO 32244 79200 IF(.NOT.(STNO.EQ.0)) GO TO 32242 79250 STNO=NEXTNO 79300 NEXTNO=0 79350 GO TO 32243 79400 32242 ASSIGN 32241 TO I32518 79450 GO TO 32518 79451 32241 CONTINUE 79452 32243 CONTINUE 79500 32244 IF(STNO.EQ.0) GO TO 32240 79550 CALL PUTNUM(SST,STNO) 79600 STNO=0 79650 32240 IF(.NOT.(SST(1).LE.72)) GO TO 32238 79750 CALL PUT(LINENO,SST,FORTCL) 79751 GO TO 32239 79752 32238 CALL CPYSUB (SLIST,SST,1,72) 79850 CALL PUT(LINENO,SLIST,FORTCL) 79900 S=73 79950 L=66 80000 GO TO 32236 80050 32237 IF(S.GT.SST(1)) GO TO 32235 80051 32236 IF(S+L-1.GT.SST(1)) L=SST(1)-S+1 80100 CALL CPYSTR(SLIST,SB5I1) 80150 CALL CATSUB(SLIST,SST,S,L) 80200 CALL PUT(LINENO,SLIST,FORTCL) 80250 S=S+66 80300 GO TO 32237 80350 32235 CONTINUE 80400 32239 GO TO I32610 80450 32673 CONTINUE 80550 GO TO 32233 80600 32234 IF(FOUND) GO TO 32232 80601 32233 CALL GET(LINENO,SFLX,ENDFIL) 80650 IF(.NOT.(FIRST)) GO TO 32231 80700 32230 IF(SFLX(1).GT.0.OR.ENDFIL) GO TO 32229 80725 CALL GET(LINENO,SFLX,ENDFIL) 80726 GO TO 32230 80727 32229 FIRST=.FALSE. 80750 IF(ENDFIL) NOPGM=.TRUE. 80800 32231 IF(.NOT.(ENDFIL)) GO TO 32228 80900 CALL CPYSTR(SFLX,SEND) 80950 LINENO=0 81000 32228 CALL GETCH(SFLX(2),1,CH) 81100 IF(.NOT.(SFLX(1).EQ.0)) GO TO 32226 81200 BLN=LINENO 81250 ASSIGN 32225 TO I32678 81300 GO TO 32678 81301 32225 FOUND=.FALSE. 81350 GO TO 32227 81450 32226 IF(.NOT.(CH.EQ.CHC)) GO TO 32224 81451 ASSIGN 32223 TO I32399 81500 GO TO 32399 81501 32223 FOUND=.FALSE. 81550 GO TO 32227 81650 32224 FOUND=.TRUE. 81651 32227 GO TO 32234 81750 32232 GO TO I32673 81800 32648 CONTINUE 81850 CURSOR=CURSOR-1 81900 CWD=(CURSOR-1)/NCHPWD+2 81950 CPOS=CURSOR-(CWD-2)*NCHPWD 82000 ASSIGN 32222 TO I32420 82050 GO TO 32420 82051 32222 GO TO I32648 82100 32221 CONTINUE 82200 LL=0 82250 LR=STACK(LP) 82300 32220 IF(LR.EQ.0) GO TO 32219 82350 LT=STACK(LR) 82400 STACK(LR)=LL 82450 LL=LR 82500 LR=LT 82550 GO TO 32220 82600 32219 STACK(LP)=LL 82650 GO TO I32221 82700 32632 CONTINUE 82800 IF(SAVED) GO TO 32218 82850 SAVED=.TRUE. 82900 HOLDNO=LINENO 82950 CALL CPYSTR(SHOLD,SFLX) 83000 32218 GO TO I32632 83100 32667 CONTINUE 83200 ASSIGN 32217 TO I32420 83250 GO TO 32420 83251 32217 IF(.NOT.(CHTYPE.EQ.TEOL)) GO TO 32215 83350 CONT=.FALSE. 83351 GO TO 32216 83400 32215 IF(.NOT.(CH.EQ.CHZERO.OR.CH.EQ.CHSPAC)) GO TO 32214 83401 CONT=.FALSE. 83402 GO TO 32216 83450 32214 CONT=.TRUE. 83451 32216 GO TO I32667 83550 32651 CONTINUE 83600 32213 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 32212 83650 ASSIGN 32211 TO I32420 83651 GO TO 32420 83652 32211 GO TO 32213 83653 32212 START=CURSOR 83700 IF(.NOT.(CHTYPE.NE.TLP)) GO TO 32210 83750 ERSTOP=ERSTOP+1 83800 ERRSTK(ERSTOP)=3 83850 ASSIGN 32209 TO I32632 83900 GO TO 32632 83901 32209 CALL CPYSTR(SST,SFLX) 83950 SFLX(1)=START-1 84000 CALL CATSTR(SFLX,SLP) 84050 CALL CATSUB(SFLX,SST,START,SST(1)-START-1) 84100 32210 PCNT=1 84200 FOUND=.TRUE. 84250 GO TO 32207 84300 32208 IF(PCNT.EQ.0.OR..NOT.FOUND) GO TO 32206 84301 32207 ASSIGN 32205 TO I32420 84350 GO TO 32420 84351 32205 IF((TRP).NE.(CHTYPE)) GO TO 32203 84450 PCNT=PCNT-1 84451 GO TO 32204 84500 32203 IF((TLP).NE.(CHTYPE)) GO TO 32202 84501 PCNT=PCNT+1 84502 GO TO 32204 84550 32202 IF((TEOL).NE.(CHTYPE)) GO TO 32201 84551 FOUND=.FALSE. 84552 32201 CONTINUE 84600 32204 GO TO 32208 84650 32206 IF(FOUND) GO TO 32200 84700 ERSTOP=ERSTOP+1 84750 ERRSTK(ERSTOP)=4 84800 ASSIGN 32199 TO I32632 84850 GO TO 32632 84851 32199 DO 32198 I=1,PCNT 84900 CALL CATSTR(SFLX,SRP) 84901 32198 CONTINUE 84902 CURSOR=SFLX(1) 84950 ASSIGN 32197 TO I32648 85000 GO TO 32648 85001 32197 CONTINUE 85050 32200 ASSIGN 32196 TO I32420 85100 GO TO 32420 85101 32196 NUNITS=NUNITS+1 85150 UTYPE(NUNITS)=UEXP 85200 USTART(NUNITS)=START 85250 ULEN(NUNITS)=CURSOR-START 85300 CALL CPYSUB(SST,SFLX,START,CURSOR-START) 85350 IF(STREQ(SST,SOWSE)) UTYPE(NUNITS)=UOWSE 85400 ASSIGN 32195 TO I32640 85450 GO TO 32640 85451 32195 GO TO I32651 85500 32656 CONTINUE 85550 32194 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 32193 85600 ASSIGN 32192 TO I32420 85601 GO TO 32420 85602 32192 GO TO 32194 85603 32193 IF(.NOT.(CHTYPE.NE.TEOL)) GO TO 32191 85650 ERSTOP=ERSTOP+1 85700 ERRSTK(ERSTOP)=2 85750 ASSIGN 32190 TO I32632 85800 GO TO 32632 85801 32190 SFLX(1)=CURSOR-1 85850 32191 GO TO I32656 85950 32663 CONTINUE 86000 ASSIGN 32189 TO I32420 86050 GO TO 32420 86051 32189 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 32188 86100 ASSIGN 32187 TO I32420 86101 GO TO 32420 86102 32187 GO TO 32189 86103 32188 IF((TLETTR).NE.(CHTYPE)) GO TO 32185 86200 START=CURSOR 86250 INVOKE=.FALSE. 86300 BADCH=.FALSE. 86350 GO TO 32183 86400 32184 IF(BADCH) GO TO 32182 86401 32183 ASSIGN 32181 TO I32420 86450 GO TO 32420 86451 32181 IF(.NOT.(CHTYPE.LE.TDIGIT)) GO TO 32179 86550 GO TO 32180 86600 32179 IF(.NOT.(CHTYPE.EQ.THYPHN)) GO TO 32178 86601 INVOKE=.TRUE. 86602 GO TO 32180 86650 32178 BADCH=.TRUE. 86651 32180 GO TO 32184 86750 32182 LEN=CURSOR-START 86800 IF(.NOT.(INVOKE)) GO TO 32176 86850 CLASS=TEXEC 86900 EXTYPE=TINVOK 86950 NUNITS=1 87000 UTYPE(1)=UPINV 87050 USTART(1)=START 87100 ULEN(1)=LEN 87150 GO TO 32177 87200 32176 CALL CPYSUB(SST,SFLX,START,LEN) 87300 CLASS=TEXEC 87350 EXTYPE=TFORT 87400 IF((2).NE.(SST(1))) GO TO 32174 87500 IF(.NOT.(STREQ(SST,KIF))) GO TO 32172 87600 EXTYPE=TIF 87601 GO TO 32173 87650 32172 IF(.NOT.(STREQ(SST,KTO))) GO TO 32171 87651 CLASS=TTO 87652 GO TO 32173 87700 32171 IF(.NOT.(STREQ(SST,KDO))) GO TO 32170 87701 32169 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 32168 87750 ASSIGN 32167 TO I32420 87751 GO TO 32420 87752 32167 GO TO 32169 87753 32168 IF(.NOT.(CHTYPE.EQ.TDIGIT)) GO TO 32165 87800 EXTYPE=TFORT 87801 GO TO 32166 87802 32165 EXTYPE=TDO 87850 32166 CONTINUE 87950 32170 CONTINUE 87951 32173 GO TO 32175 88050 32174 IF((3).NE.(SST(1))) GO TO 32164 88051 IF(.NOT.(STREQ(SST,KFIN))) GO TO 32162 88150 CLASS=TFIN 88151 GO TO 32163 88200 32162 IF(.NOT.(STREQ(SST,KEND))) GO TO 32161 88201 IF (CHTYPE.EQ.TEOL) CLASS=TEND 88250 32161 CONTINUE 88350 32163 GO TO 32175 88450 32164 IF((4).NE.(SST(1))) GO TO 32160 88451 IF(.NOT.(STREQ(SST,KWHEN))) GO TO 32158 88550 EXTYPE=TWHEN 88551 GO TO 32159 88600 32158 IF(.NOT.(STREQ(SST,KELSE))) GO TO 32157 88601 CLASS=TELSE 88602 32157 CONTINUE 88650 32159 GO TO 32175 88750 32160 IF((5).NE.(SST(1))) GO TO 32156 88751 IF(.NOT.(STREQ(SST,KWHILE))) GO TO 32154 88850 EXTYPE=TWHILE 88851 GO TO 32155 88900 32154 IF(.NOT.(STREQ(SST,KUNTIL))) GO TO 32153 88901 EXTYPE=TUNTIL 88902 32153 CONTINUE 88950 32155 GO TO 32175 89050 32156 IF((6).NE.(SST(1))) GO TO 32152 89051 IF(.NOT.(STREQ(SST,KREPT))) GO TO 32150 89150 32149 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 32148 89200 ASSIGN 32147 TO I32420 89201 GO TO 32420 89202 32147 GO TO 32149 89203 32148 START=CURSOR 89250 32146 IF(.NOT.(CHTYPE.EQ.TLETTR)) GO TO 32145 89300 ASSIGN 32144 TO I32420 89301 GO TO 32420 89302 32144 GO TO 32146 89303 32145 LEN=CURSOR-START 89350 CALL CPYSUB(SST,SFLX,START,LEN) 89400 IF(.NOT.(STREQ(SST,KWHILE))) GO TO 32142 89500 EXTYPE=TRWHIL 89501 GO TO 32143 89550 32142 IF(.NOT.(STREQ(SST,KUNTIL))) GO TO 32141 89551 EXTYPE=TRUNTL 89552 32141 CONTINUE 89600 32143 GO TO 32151 89700 32150 IF(.NOT.(STREQ(SST,KSELCT))) GO TO 32140 89701 EXTYPE=TSELCT 89702 GO TO 32151 89750 32140 IF(.NOT.(STREQ(SST,KUNLES))) GO TO 32139 89751 EXTYPE=TUNLES 89752 32139 CONTINUE 89800 32151 GO TO 32175 89900 32152 IF((11).NE.(SST(1))) GO TO 32138 89901 IF (STREQ(SST,KCOND)) EXTYPE=TCOND 89950 32138 CONTINUE 90050 32175 CONTINUE 90100 32177 GO TO 32186 90200 32185 IF((TLP).NE.(CHTYPE)) GO TO 32137 90201 CLASS=TCEXP 90202 GO TO 32186 90250 32137 CLASS=TEXEC 90300 EXTYPE=TFORT 90350 32186 GO TO I32663 90500 32637 CONTINUE 90550 32136 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 32135 90600 ASSIGN 32134 TO I32420 90601 GO TO 32420 90602 32134 GO TO 32136 90603 32135 FOUND=.FALSE. 90650 IF(.NOT.(CHTYPE.EQ.TLETTR)) GO TO 32133 90700 START=CURSOR 90750 GO TO 32131 90800 32132 IF(CHTYPE.GT.THYPHN) GO TO 32130 90801 32131 ASSIGN 32129 TO I32420 90850 GO TO 32420 90851 32129 IF(CHTYPE.EQ.THYPHN) FOUND=.TRUE. 90900 GO TO 32132 90950 32130 CONTINUE 91000 32133 IF(.NOT.(FOUND)) GO TO 32128 91050 NUNITS=NUNITS+1 91100 UTYPE(NUNITS)=UPINV 91150 USTART(NUNITS)=START 91200 ULEN(NUNITS)=CURSOR-START 91250 32128 GO TO I32637 91350 32640 CONTINUE 91400 32127 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 32126 91450 ASSIGN 32125 TO I32420 91451 GO TO 32420 91452 32125 GO TO 32127 91453 32126 IF(CHTYPE.EQ.TEOL) GO TO 32124 91500 CSAVE=CURSOR 91550 ASSIGN 32123 TO I32637 91600 GO TO 32637 91601 32123 IF(.NOT.(FOUND)) GO TO 32121 91650 ASSIGN 32120 TO I32656 91651 GO TO 32656 91652 32120 GO TO 32122 91653 32121 NUNITS=NUNITS+1 91750 UTYPE(NUNITS)=UFORT 91800 USTART(NUNITS)=CSAVE 91850 ULEN(NUNITS)=SFLX(1)+1-CSAVE 91900 32122 CONTINUE 92000 32124 GO TO I32640 92050 32669 CONTINUE 92100 FLXNO=0 92150 PASS=.FALSE. 92175 DO 32119 I=1,5 92200 ASSIGN 32118 TO I32420 92250 GO TO 32420 92251 32118 IF((TBLANK).NE.(CHTYPE)) GO TO 32116 92350 GO TO 32117 92400 32116 IF((TDIGIT).NE.(CHTYPE)) GO TO 32115 92401 FLXNO=FLXNO*10+CH-CHZERO 92402 GO TO 32117 92450 32115 IF((TEOL).NE.(CHTYPE)) GO TO 32114 92451 GO TO 32117 92500 32114 PASS=.TRUE. 92501 32117 CONTINUE 92850 32119 CONTINUE 92851 GO TO I32669 93300 32623 CONTINUE 93400 IF(.NOT.(FLXNO.NE.0)) GO TO 32113 93450 ASSIGN 32112 TO I32518 93500 GO TO 32518 93501 32112 NEXTNO=FLXNO 93550 FLXNO=0 93600 32113 GO TO I32623 93700 32593 CONTINUE 93750 P=MAX 93800 STACK(MAX)=0 93850 ITEMP=MAXSTK-PRIME+1 93900 DO 32111 I=ITEMP,MAXSTK 93950 IF(STACK(I).EQ.0) GO TO 32110 94000 STACK(P)=STACK(I) 94050 GO TO 32108 94100 32109 IF(STACK(P).EQ.0) GO TO 32107 94101 32108 P=STACK(P) 94110 LP=P+3 94120 ASSIGN 32106 TO I32221 94130 GO TO 32221 94131 32106 GO TO 32109 94140 32107 CONTINUE 94150 32110 CONTINUE 94200 32111 CONTINUE 94201 Q=MAX-1 94250 STACK(Q)=0 94300 32105 IF(STACK(MAX).EQ.0) GO TO 32104 94350 P=STACK(MAX) 94400 STACK(MAX)=STACK(P) 94450 QM=Q 94500 QP=STACK(QM) 94550 INSERT=.FALSE. 94600 32103 IF(INSERT) GO TO 32102 94650 IF(.NOT.(QP.EQ.0)) GO TO 32100 94720 INSERT=.TRUE. 94721 GO TO 32101 94740 32100 IF(.NOT.(STRLT(STACK(P+4),STACK(QP+4)))) GO TO 32099 94741 INSERT=.TRUE. 94742 GO TO 32101 94760 32099 QM=QP 94780 QP=STACK(QM) 94800 32101 GO TO 32103 94860 32102 STACK(P)=QP 94880 STACK(QM)=P 94900 GO TO 32105 95200 32104 PTABLE=STACK(Q) 95250 GO TO I32593 95300 END 95400 END 95400