INTEGER ACSEQ , ACTION, AELSE , AFSEQ , AGCONT, AGGOTO 00001 INTEGER AGRET , AGSTNO, AMSEQ , ASSEQ , ATSEQ , BLN 00002 INTEGER NOCALL, CH , CHC , CHSPAC, CHTYP 00003 INTEGER CHTYPE, CHZERO, CLASS , CONTNO, CPOS , CSAVE 00004 INTEGER CURSOR, CWD , DUMMY , ELSNO , ENDNO , ENTNO 00005 INTEGER ERRCL , ERROR , ERRSTK, ERSTOP, ERTYPE, EXTYPE 00006 INTEGER FLXNO , FORTCL, GGOTON, GOTONO, GSTNO , HASH 00007 INTEGER HOLDNO, I , ITEMP , J , KCOND , KDO 00008 INTEGER KELSE , KEND , KFIN , KIF , KREPT , KSELCT 00009 INTEGER KTO , KUNLES, KUNTIL, KWHEN , KWHILE, L 00010 INTEGER LEN , LEVEL , LINENO, LISTCL, LL , LOOPNO 00011 INTEGER LP , LR , LSTLEV, LT , LWIDTH, MAJCNT 00012 INTEGER MAX , MAXSTK, MINCNT, MLINE , NCHPWD, NEWNO 00013 INTEGER NEXTNO, NUNITS, NXIFNO, OFFSET, OFFST2, P 00014 INTEGER PARAM1, PARAM2, PARAM3, PARAM4, PCNT , PDUMMY 00015 INTEGER PENT , PRIME , PTABLE, Q , QM , QP 00016 INTEGER READ , REFNO , RETNO , RETRY , S , SAFETY 00017 INTEGER SASSN1, SASSN2, SB , SB2 , SB4 , SB5 00018 INTEGER SB5I1 , SB6 , SB6I , SB7 , SBGOTO, SCOMMA, SCOND 00019 INTEGER SCONT 00020 INTEGER SCP , SDASH , SDOST , SDUM , SEEDNO, SELSE , SEQ 00021 INTEGER SEND , SENDER, SETUP , SFIN , SFLX , SFORCE 00022 INTEGER SFSPCR, SGOTO , SGOTOI, SGUP1 , SGUP2 , SHOLD 00023 INTEGER SGOTOP 00024 INTEGER SICOND, SIELSE, SIF , SIFIN , SIFIN2, SIFP 00025 INTEGER SIFPN , SIGN , SINSRT, SINS2 , SITODM, SIWHEN, SLIST 00026 INTEGER SLP , SMULER, SNDER1, SNDER2, SNE , SNIER1 00027 INTEGER SNIER2, SOURCE, SOWSE , SP , SPB , SPGOTO 00028 INTEGER SPINV , SPUTGO, SRP , SRTN , SSPACR, SST 00029 INTEGER SRPCI 00030 INTEGER SSTMAX, SSTOP , STABH , STACK , START , STNO 00031 INTEGER STODUM, SVER , SWHEN , SXER1 , SXER2 , SXER3 00032 INTEGER SXER4 , SXER5 , TABLCL, TBLANK, TCEXP , TCOND 00033 INTEGER TDIGIT, TDO , TELSE , TEND , TEOL , TESTNO 00034 INTEGER TEXEC , TFIN , TFORT , THYPHN, TIF , TINVOK 00035 INTEGER TLETTR, TLP , TMAX , TOP , TOPNO , TOPTYP 00036 INTEGER TOTHER, TRP , TRUNTL, TRWHIL, TSELCT, TTO 00037 INTEGER TUNLES, TUNTIL, TWHEN , TWHILE, UDO , UEXP 00038 INTEGER UFORT , ULEN , UOWSE , UPINV , USTART, UTYPE 00039 INTEGER WWIDTH 00040 LOGICAL COGOTO, FAKE , LONG 00041 LOGICAL BADCH , CONT , DONE , ENDFIL, ENDPGM, ERLST 00042 LOGICAL FIRST , FOUND , INDENT, INSERT, INVOKE, MINER 00043 LOGICAL NDERR , NIERR , NOPGM , NOTFLG, PASS , SAVED , SHORT 00044 LOGICAL STREQ , STRLT 00045 DIMENSION UTYPE(3), USTART(3), ULEN(3) 00046 DIMENSION STACK(2000) 00047 DIMENSION ERRSTK(5) 00048 COMMON /PARAM/ PARAM1, PARAM2, PARAM3, PARAM4 00049 DIMENSION SFLX (51) 00050 DIMENSION SHOLD (51) 00051 DIMENSION SLIST (101) 00052 DIMENSION SPINV (41) 00053 DIMENSION SPUTGO (11) 00054 DIMENSION SST (101) 00055 DIMENSION SASSN1 (8) 00056 DIMENSION SASSN2 (4) 00057 DIMENSION SB (2) 00058 DIMENSION SB2 (2) 00059 DIMENSION SB4 (3) 00060 DIMENSION SB5 (4) 00061 DIMENSION SB5I1 (4) 00062 DIMENSION SB6 (4) 00063 DIMENSION SB7 (5) 00064 DIMENSION SB6I (5) 00065 DIMENSION SBGOTO (5) 00066 DIMENSION SCOMMA (2) 00067 DIMENSION SCOND (10) 00068 DIMENSION SCONT (5) 00069 DIMENSION SCP (2) 00070 DIMENSION SDOST (6) 00071 DIMENSION SDASH (21) 00072 DIMENSION SDUM (9) 00073 DIMENSION SELSE (11) 00074 DIMENSION SEND (6) 00075 DIMENSION SENDER (16) 00076 DIMENSION SFIN (6) 00077 DIMENSION SEQ (2) 00078 DIMENSION SFORCE (8) 00079 DIMENSION SFSPCR (3) 00080 DIMENSION SGOTO (7) 00081 DIMENSION SGOTOI (8) 00082 DIMENSION SGOTOP (8) 00083 DIMENSION SGUP1 (30) 00084 DIMENSION SGUP2 (23) 00085 DIMENSION SICOND (28) 00086 DIMENSION SIELSE (21) 00087 DIMENSION SIF (5) 00088 DIMENSION SIFIN (20) 00089 DIMENSION SIFIN2 (8) 00090 DIMENSION SIFP (6) 00091 DIMENSION SIFPN (8) 00092 DIMENSION SIGN (24) 00093 DIMENSION SINSRT (20) 00094 DIMENSION SINS2 (8) 00095 DIMENSION SITODM (26) 00096 DIMENSION SIWHEN (21) 00097 DIMENSION SLP (2) 00098 DIMENSION SNE (3) 00099 DIMENSION SOWSE (7) 00100 DIMENSION SPB (2) 00101 DIMENSION SPGOTO (5) 00102 DIMENSION SMULER (23) 00103 DIMENSION SNDER1 (22) 00104 DIMENSION SNDER2 (23) 00105 DIMENSION SNIER1 (24) 00106 DIMENSION SNIER2 (23) 00107 DIMENSION SRP (2) 00108 DIMENSION SRPCI (3) 00109 DIMENSION SRTN (7) 00110 DIMENSION SSPACR (3) 00111 DIMENSION STABH (20) 00112 DIMENSION STODUM (13) 00113 DIMENSION SSTOP (9) 00114 DIMENSION SVER (12) 00115 DIMENSION SWHEN (16) 00116 DIMENSION SXER1 (28) 00117 DIMENSION SXER2 (28) 00118 DIMENSION SXER3 (26) 00119 DIMENSION SXER4 (16) 00120 DIMENSION SXER5 (26) 00121 DIMENSION KCOND (7) 00122 DIMENSION KDO (2) 00123 DIMENSION KELSE (3) 00124 DIMENSION KEND (3) 00125 DIMENSION KFIN (3) 00126 DIMENSION KIF (2) 00127 DIMENSION KREPT (4) 00128 DIMENSION KSELCT (4) 00129 DIMENSION KTO (2) 00130 DIMENSION KUNLES (4) 00131 DIMENSION KUNTIL (4) 00132 DIMENSION KWHEN (3) 00133 DIMENSION KWHILE (4) 00134 DATA FORTCL /1/, LISTCL /2/, ERRCL /3/ 00135 DATA ACSEQ/1/, AELSE/2/, AFSEQ/3/, AGCONT/4/, AGGOTO/5/ 00136 DATA AGSTNO/6/, AMSEQ/7/, AGRET/8/, ASSEQ/9/, ATSEQ/10/ 00137 DATA UEXP/1/, UFORT/2/, UOWSE/3/, UPINV/4/, UDO/5/ 00138 DATA TLETTR/1/, TDIGIT/2/, THYPHN/3/, TLP/4/, TRP/5/ 00139 DATA TBLANK/6/, TOTHER/7/, TEOL/8/ 00140 DATA TCEXP/1/, TELSE/2/, TEND/3/, TEXEC/4/, TFIN/5/, TTO/6/ 00141 DATA TCOND/1/, TDO/2/, TFORT/3/, TIF/4/, TINVOK/5/, TRUNTL/6/ 00142 DATA TRWHIL/7/, TSELCT/8/, TUNLES/9/, TUNTIL/10/, TWHEN/11/ 00143 DATA TWHILE/12/ 00144 DATA SETUP /1/, RETRY /2/, READ /3/ 00145 DATA CHC /67/ 00146 DATA LWIDTH /132/ 00147 DATA MAXSTK /2000/ 00148 DATA NCHPWD /2/ 00149 DATA PRIME /53/ 00150 DATA SAFETY /35/ 00151 DATA SEEDNO /32760/ 00152 DATA LONG /.FALSE./ 00153 DATA SHORT /.TRUE./ 00154 DATA FAKE /.FALSE./ 00155 DATA COGOTO /.FALSE./ 00156 DATA CHSPAC /32/ 00157 DATA CHZERO /48/ 00158 DATA SSTMAX /200/ 00159 DATA SASSN1 / 13, 2H , 2H , 2H , 2HAS, 2HSI, 2HGN, 1H / 00160 DATA SASSN2 / 5, 2H T, 2HO , 1HI/ 00161 DATA SB / 1, 1H / 00162 DATA SB2 / 2, 2H / 00163 DATA SB4 / 4, 2H , 2H / 00164 DATA SB5 / 5, 2H , 2H , 1H / 00165 DATA SB5I1 / 6, 2H , 2H , 2H 1/ 00166 DATA SB6 / 6, 2H , 2H , 2H / 00167 DATA SB7 / 7, 2H , 2H , 2H , 1H / 00168 DATA SB6I / 7, 2H , 2H , 2H , 1HI/ 00169 DATA SBGOTO / 7, 2H G, 2HO , 2HTO, 1H / 00170 DATA SCOMMA / 1, 1H,/ 00171 DATA SCOND / 17, 2H , 2H , 2H , 2HCO, 2HND, 2HIT, 2HIO, 2HNA 00172 1 , 1HL/ 00173 DATA SCONT / 8, 2HCO, 2HNT, 2HIN, 2HUE/ 00173 DATA SCP / 2, 2H,(/ 00174 DATA SDOST / 9, 2H , 2H , 2H , 2HDO, 1H / 00175 DATA SDASH / 40, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H-- 00176 1 , 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H-- 00177 1 , 2H--, 2H--, 2H--, 2H--/ 00177 DATA SDUM / 15, 2HDU, 2HMM, 2HY-, 2HPR, 2HOC, 2HED, 2HUR, 1HE/ 00177 DATA SELSE / 19, 2H , 2H , 2H , 2HEL, 2HSE, 2H C, 2HON, 2HTI 00178 1 , 2HNU, 1HE/ 00179 DATA SEND / 9, 2H , 2H , 2H , 2HEN, 1HD/ 00179 DATA SENDER / 30, 2H**, 2H**, 2H* , 2HEN, 2HD , 2HST, 2HAT, 2HEM 00180 1 , 2HEN, 2HT , 2HIS, 2H M, 2HIS, 2HSI, 2HNG/ 00181 DATA SFIN / 9, 2H , 2H , 2H , 2HFI, 1HN/ 00181 DATA SEQ / 1, 1H=/ 00182 DATA SFORCE / 14, 2H , 2H , 2H , 2HCO, 2HNT, 2HIN, 2HUE/ 00183 DATA SFSPCR / 3, 2H.., 1H./ 00184 DATA SGOTO / 12, 2H , 2H , 2H , 2HGO, 2H T, 2HO / 00185 DATA SGOTOI / 13, 2H , 2H , 2H , 2HGO, 2H T, 2HO , 1HI/ 00186 DATA SGOTOP / 13, 2H , 2H , 2H , 2HGO, 2H T, 2HO , 1H(/ 00187 DATA SGUP1 / 57, 2H**, 2H**, 2H* , 2HTR, 2HAN, 2HSL, 2HAT, 2HOR 00188 1 , 2H H, 2HAS, 2H U, 2HSE, 2HD , 2HUP, 2H I, 2HTS 00189 1 , 2H A, 2HLL, 2HOT, 2HED, 2H S, 2HPA, 2HCE, 2H F 00189 1 , 2HOR, 2H T, 2HAB, 2HLE, 1HS/ 00189 DATA SGUP2 / 44, 2H**, 2H**, 2H* , 2HTR, 2HAN, 2HSL, 2HAT, 2HIO 00189 1 , 2HN , 2HMU, 2HST, 2H T, 2HER, 2HMI, 2HNA, 2HTE 00190 1 , 2H I, 2HMM, 2HED, 2HIA, 2HTE, 2HLY/ 00190 DATA SICOND / 54, 2H**, 2H**, 2H* , 2H , 2H (, 2HCO, 2HND, 2HIT 00190 1 , 2HIO, 2HNA, 2HL , 2HOR, 2H S, 2HEL, 2HEC, 2HT 00191 1 , 2HIS, 2H A, 2HPP, 2HAR, 2HEN, 2HTL, 2HY , 2HMI 00191 1 , 2HSS, 2HIN, 2HG)/ 00191 DATA SIELSE / 39, 2H**, 2H**, 2H* , 2H , 2H (, 2HEL, 2HSE, 2H N 00191 1 , 2HEC, 2HES, 2HSA, 2HRY, 2H T, 2HO , 2HMA, 2HTC 00192 1 , 2HH , 2HLI, 2HNE, 1H / 00192 DATA SIF / 8, 2H , 2H , 2H , 2HIF/ 00192 DATA SIFIN / 38, 2H**, 2H**, 2H* , 2H , 2H (, 2HFI, 2HN , 2HNE 00193 1 , 2HCE, 2HSS, 2HAR, 2HY , 2HTO, 2H M, 2HAT, 2HCH 00194 1 , 2H L, 2HIN, 2HE / 00194 DATA SIFIN2 / 14, 2HAS, 2HSU, 2HME, 2HD , 2HAB, 2HOV, 2HE)/ 00194 DATA SIFP / 9, 2H , 2H , 2H , 2HIF, 1H(/ 00195 DATA SIFPN / 14, 2H , 2H , 2H , 2HIF, 2H(., 2HNO, 2HT./ 00196 DATA SIGN / 45, 2H**, 2H**, 2H* , 2H , 2H (, 2HNO, 2H C, 2HON 00197 1 , 2HTR, 2HOL, 2H P, 2HHR, 2HAS, 2HE , 2HFO, 2HR 00198 1 , 2HFI, 2HN , 2HTO, 2H M, 2HAT, 2HCH, 1H)/ 00198 DATA SINSRT / 38, 2H**, 2H**, 2H* , 2HST, 2HAT, 2HEM, 2HEN, 2HT( 00198 1 , 2HS), 2H N, 2HEE, 2HDE, 2HD , 2HBE, 2HFO, 2HRE 00199 1 , 2H L, 2HIN, 2HE / 00199 DATA SINS2 / 13, 2HAS, 2HSU, 2HME, 2HD , 2HBE, 2HLO, 1HW/ 00199 DATA SITODM / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HON, 2HLY, 2H T 00200 1 , 2HO , 2HAN, 2HD , 2HEN, 2HD , 2HAR, 2HE , 2HVA 00201 1 , 2HLI, 2HD , 2HAT, 2H T, 2HHI, 2HS , 2HPO, 2HIN 00201 1 , 2HT)/ 00201 DATA SIWHEN / 39, 2H**, 2H**, 2H* , 2H , 2H (, 2HWH, 2HEN, 2H T 00201 1 , 2HO , 2HMA, 2HTC, 2HH , 2HFO, 2HLL, 2HOW, 2HIN 00202 1 , 2HG , 2HEL, 2HSE, 1H)/ 00202 DATA SLP / 1, 1H(/ 00202 DATA SNE / 4, 2H.N, 2HE./ 00203 DATA SOWSE / 11, 2H(O, 2HTH, 2HER, 2HWI, 2HSE, 1H)/ 00204 DATA SPB / 2, 2H) / 00205 DATA SPGOTO / 8, 2H) , 2HGO, 2H T, 2HO / 00206 DATA SMULER / 44, 2H**, 2H**, 2H* , 2H , 2H (, 2HPR, 2HOC, 2HED 00207 1 , 2HUR, 2HE , 2HAL, 2HRE, 2HAD, 2HY , 2HDE, 2HFI 00208 1 , 2HNE, 2HD , 2HON, 2H L, 2HIN, 2HE / 00208 DATA SNDER1 / 42, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HNE, 2HXT, 2H 00208 1 , 2HPR, 2HOC, 2HED, 2HUR, 2HES, 2H W, 2HER, 2HE 00209 1 , 2HIN, 2HVO, 2HKE, 2HD , 2HON/ 00209 DATA SNDER2 / 44, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HLI, 2HNE, 2HS 00209 1 , 2HGI, 2HVE, 2HN , 2HBU, 2HT , 2HWE, 2HRE, 2H N 00210 1 , 2HEV, 2HER, 2H D, 2HEF, 2HIN, 2HED/ 00210 DATA SNIER1 / 46, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HFO, 2HLL, 2HOW 00210 1 , 2HIN, 2HG , 2HPR, 2HOC, 2HED, 2HUR, 2HES, 2H W 00211 1 , 2HER, 2HE , 2HDE, 2HFI, 2HNE, 2HD , 2HON/ 00211 DATA SNIER2 / 44, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HLI, 2HNE, 2HS 00211 1 , 2HGI, 2HVE, 2HN , 2HBU, 2HT , 2HWE, 2HRE, 2H N 00212 1 , 2HEV, 2HER, 2H I, 2HNV, 2HOK, 2HED/ 00212 DATA SRP / 1, 1H)/ 00212 DATA SRPCI / 4, 2H),, 2H I/ 00213 DATA SRTN / 12, 2H , 2H , 2H , 2HRE, 2HTU, 2HRN/ 00214 DATA SSPACR / 3, 2H. , 1H / 00215 DATA STABH / 37, 2H , 2H , 2H , 2HPR, 2HOC, 2HED, 2HUR, 2HE 00216 1 , 2HCR, 2HOS, 2HS-, 2HRE, 2HFE, 2HRE, 2HNC, 2HE 00217 1 , 2HTA, 2HBL, 1HE/ 00217 DATA STODUM / 24, 2H , 2H , 2H , 2HTO, 2H D, 2HUM, 2HMY, 2H-P 00217 1 , 2HRO, 2HCE, 2HDU, 2HRE/ 00218 DATA SSTOP / 15, 2H , 2H , 2H , 2HCA, 2HLL, 2H E, 2HXI, 1HT/ 00218 DATA SVER / 21, 2H(F, 2HLE, 2HCS, 2H V, 2HER, 2HSI, 2HON, 2H 2 00219 1 , 2H2., 2H37, 1H)/ 00220 DATA SWHEN / 29, 2H , 2H , 2H , 2HWH, 2HEN, 2H (, 2H.T, 2HRU 00220 1 , 2HE., 2H) , 2HCA, 2HLL, 2H E, 2HXI, 1HT/ 00221 DATA SXER1 / 54, 2H**, 2H**, 2H* , 2H , 2H (, 2HIN, 2HVA, 2HLI 00221 1 , 2HD , 2HCH, 2HAR, 2HAC, 2HTE, 2HR , 2HIN, 2H S 00222 1 , 2HTA, 2HTE, 2HME, 2HNT, 2H N, 2HUM, 2HBE, 2HR 00222 1 , 2HFI, 2HEL, 2HD)/ 00222 DATA SXER2 / 53, 2H**, 2H**, 2H* , 2H , 2H (, 2HRE, 2HCO, 2HGN 00222 1 , 2HIZ, 2HAB, 2HLE, 2H S, 2HTA, 2HTE, 2HME, 2HNT 00223 1 , 2H F, 2HOL, 2HLO, 2HWE, 2HD , 2HBY, 2H G, 2HAR 00223 1 , 2HBA, 2HGE, 1H)/ 00223 DATA SXER3 / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HLE, 2HFT, 2H P 00223 1 , 2HAR, 2HEN, 2H D, 2HOE, 2HS , 2HNO, 2HT , 2HFO 00224 1 , 2HLL, 2HOW, 2H C, 2HON, 2HTR, 2HOL, 2H W, 2HOR 00224 1 , 2HD)/ 00224 DATA SXER4 / 30, 2H**, 2H**, 2H* , 2H , 2H (, 2HMI, 2HSS, 2HIN 00224 1 , 2HG , 2HRI, 2HGH, 2HT , 2HPA, 2HRE, 2HN)/ 00225 DATA SXER5 / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HVA, 2HLI, 2HD 00225 1 , 2HPR, 2HOC, 2HED, 2HUR, 2HE , 2HNA, 2HME, 2H D 00226 1 , 2HOE, 2HS , 2HNO, 2HT , 2HFO, 2HLL, 2HOW, 2H T 00226 1 , 2HO)/ 00226 DATA KCOND / 11, 2HCO, 2HND, 2HIT, 2HIO, 2HNA, 1HL/ 00226 DATA KDO / 2, 2HDO/ 00227 DATA KELSE / 4, 2HEL, 2HSE/ 00228 DATA KEND / 3, 2HEN, 1HD/ 00229 DATA KFIN / 3, 2HFI, 1HN/ 00230 DATA KIF / 2, 2HIF/ 00231 DATA KREPT / 6, 2HRE, 2HPE, 2HAT/ 00232 DATA KSELCT / 6, 2HSE, 2HLE, 2HCT/ 00233 DATA KTO / 2, 2HTO/ 00234 DATA KUNLES / 6, 2HUN, 2HLE, 2HSS/ 00235 DATA KUNTIL / 5, 2HUN, 2HTI, 1HL/ 00236 DATA KWHEN / 4, 2HWH, 2HEN/ 00237 DATA KWHILE / 5, 2HWH, 2HIL, 1HE/ 00238 ASSIGN 32757 TO I32758 00239 GO TO 32758 00239 32757 GO TO 32755 00241 32756 IF(DONE) GO TO 32754 00241 32755 NOCALL=NOCALL+1 00244 CALL OPENF(NOCALL,DONE,SVER) 00245 IF(DONE) GO TO 32753 00246 ENDFIL=.FALSE. 00248 MINCNT=0 00249 MAJCNT=0 00250 LINENO=0 00251 GO TO 32751 00252 32752 IF(ENDFIL) GO TO 32750 00252 32751 ASSIGN 32748 TO I32749 00255 GO TO 32749 00255 32748 ASSIGN 32746 TO I32747 00257 GO TO 32747 00257 32746 GO TO 32752 00259 32750 CALL CLOSEF(MINCNT,MAJCNT) 00260 32753 GO TO 32756 00261 32754 CALL EXIT 00262 32745 CONTINUE 00263 IF(.NOT.(SOURCE.EQ.SETUP)) GO TO 32743 00264 SOURCE=RETRY 00264 GO TO 32744 00267 32743 IF(.NOT.(ERROR.EQ.0.AND.ERSTOP.EQ.0)) GO TO 32742 00267 SOURCE=READ 00270 ASSIGN 32740 TO I32741 00271 GO TO 32741 00271 32740 GO TO 32744 00273 32742 MINER=(((ERROR.GE.5).AND.(ERROR.LE.6)).OR. 00274 1 ((ERROR.GE.13).AND.(ERROR.LE.15))) 00275 MINER=MINER.OR.((ERROR.GE.1).AND.(ERROR.LE.3)) 00275 2 .OR.(ERROR.EQ.25) 00276 IF(.NOT.(MINER)) GO TO 32738 00276 MINCNT=MINCNT+1 00276 GO TO 32739 00276 32738 MAJCNT=MAJCNT+1 00280 32739 IF(.NOT.(ERROR.EQ.0)) GO TO 32736 00281 ERTYPE=1 00281 GO TO 32737 00281 32736 IF(.NOT.(ERROR.LE.3)) GO TO 32734 00285 ASSIGN 32732 TO I32733 00285 GO TO 32733 00285 32732 GO TO 32735 00289 32734 IF(.NOT.(ERROR.EQ.4)) GO TO 32731 00289 ASSIGN 32729 TO I32730 00289 GO TO 32730 00289 32729 GO TO 32735 00294 32731 IF(.NOT.(ERROR.LE.6)) GO TO 32728 00294 ERTYPE=3 00294 GO TO 32735 00298 32728 IF(.NOT.(ERROR.EQ.7)) GO TO 32727 00298 ASSIGN 32726 TO I32730 00298 GO TO 32730 00298 32726 GO TO 32735 00303 32727 IF(.NOT.(ERROR.EQ.8)) GO TO 32725 00303 ASSIGN 32723 TO I32724 00303 GO TO 32724 00303 32723 GO TO 32735 00308 32725 IF(.NOT.(ERROR.EQ.9)) GO TO 32722 00308 ASSIGN 32720 TO I32721 00308 GO TO 32721 00308 32720 GO TO 32735 00313 32722 IF(.NOT.(ERROR.EQ.10)) GO TO 32719 00313 ASSIGN 32717 TO I32718 00313 GO TO 32718 00313 32717 GO TO 32735 00318 32719 IF(.NOT.(ERROR.LE.12)) GO TO 32716 00318 ASSIGN 32715 TO I32733 00318 GO TO 32733 00318 32715 GO TO 32735 00323 32716 IF(.NOT.(ERROR.LE.15)) GO TO 32714 00323 ASSIGN 32713 TO I32733 00323 GO TO 32733 00323 32713 GO TO 32735 00328 32714 IF(.NOT.(ERROR.EQ.16)) GO TO 32712 00328 ASSIGN 32711 TO I32730 00328 GO TO 32730 00328 32711 GO TO 32735 00333 32712 IF(.NOT.(ERROR.EQ.17)) GO TO 32710 00333 ASSIGN 32708 TO I32709 00333 GO TO 32709 00333 32708 GO TO 32735 00338 32710 IF(.NOT.(ERROR.EQ.18)) GO TO 32707 00338 ASSIGN 32706 TO I32721 00338 GO TO 32721 00338 32706 GO TO 32735 00343 32707 IF(.NOT.(ERROR.LE.19)) GO TO 32705 00343 ASSIGN 32704 TO I32709 00343 GO TO 32709 00343 32704 GO TO 32735 00348 32705 IF(.NOT.(ERROR.EQ.20)) GO TO 32703 00348 ASSIGN 32702 TO I32730 00348 GO TO 32730 00348 32702 GO TO 32735 00353 32703 IF(.NOT.(ERROR.EQ.21)) GO TO 32701 00353 ASSIGN 32700 TO I32721 00353 GO TO 32721 00353 32700 GO TO 32735 00358 32701 IF(.NOT.(ERROR.LE.23)) GO TO 32699 00358 ASSIGN 32698 TO I32733 00358 GO TO 32733 00358 32698 GO TO 32735 00363 32699 IF(.NOT.(ERROR.EQ.24)) GO TO 32697 00363 ASSIGN 32696 TO I32730 00363 GO TO 32730 00363 32696 GO TO 32735 00368 32697 IF(.NOT.(ERROR.EQ.25)) GO TO 32695 00368 ERTYPE=4 00368 GO TO 32735 00372 32695 IF(.NOT.(ERROR.EQ.26)) GO TO 32694 00372 ERTYPE=5 00372 32694 CONTINUE 00376 32735 CONTINUE 00377 32737 SOURCE=READ 00378 IF((1).NE.(ERTYPE)) GO TO 32692 00379 CALL PUT(-LINENO,SHOLD,ERRCL) 00381 DO 32691 I=1,ERSTOP 00382 IF((1).NE.(ERRSTK(I))) GO TO 32689 00383 CALL PUT(0,SXER1,ERRCL) 00383 GO TO 32690 00386 32689 IF((2).NE.(ERRSTK(I))) GO TO 32688 00386 CALL PUT(0,SXER2,ERRCL) 00386 GO TO 32690 00390 32688 IF((3).NE.(ERRSTK(I))) GO TO 32687 00390 CALL PUT(0,SXER3,ERRCL) 00390 GO TO 32690 00394 32687 IF((4).NE.(ERRSTK(I))) GO TO 32686 00394 CALL PUT(0,SXER4,ERRCL) 00394 GO TO 32690 00398 32686 IF((5).NE.(ERRSTK(I))) GO TO 32685 00398 CALL PUT(0,SXER5,ERRCL) 00398 32685 CONTINUE 00402 32690 CONTINUE 00403 32691 CONTINUE 00403 GO TO 32693 00405 32692 IF((2).NE.(ERTYPE)) GO TO 32684 00405 SOURCE=SETUP 00405 GO TO 32693 00409 32684 IF((3).NE.(ERTYPE)) GO TO 32683 00409 CALL PUT(-LINENO,SFLX,ERRCL) 00412 CALL PUT(0,SIGN,ERRCL) 00413 GO TO 32693 00414 32683 IF((4).NE.(ERTYPE)) GO TO 32682 00414 CALL PUT(0,SENDER,ERRCL) 00414 GO TO 32693 00418 32682 IF((5).NE.(ERTYPE)) GO TO 32681 00418 CALL PUT(LINENO,SFLX,ERRCL) 00421 CALL CPYSTR(SST,SMULER) 00422 CALL CATNUM(SST,MLINE) 00423 CALL CATSTR(SST,SRP) 00424 CALL PUT(0,SST,ERRCL) 00425 32681 CONTINUE 00426 32693 CONTINUE 00427 32744 IF(.NOT.(ENDPGM)) GO TO 32680 00428 ASSIGN 32678 TO I32679 00430 GO TO 32679 00430 32678 ASSIGN 32676 TO I32677 00432 GO TO 32677 00432 32676 CALL PUT(0,SVER,LISTCL) 00434 32680 GO TO I32745 00435 32675 CONTINUE 00436 IF((READ).NE.(SOURCE)) GO TO 32673 00437 ASSIGN 32671 TO I32672 00437 GO TO 32672 00437 32671 GO TO 32674 00441 32673 IF((SETUP).NE.(SOURCE)) GO TO 32670 00441 GO TO 32674 00444 32670 IF((RETRY).NE.(SOURCE)) GO TO 32669 00444 LINENO=HOLDNO 00447 CALL CPYSTR(SFLX,SHOLD) 00448 32669 CONTINUE 00449 32674 ERROR=0 00450 SAVED=.FALSE. 00451 NUNITS=0 00452 ERSTOP=0 00453 CURSOR=0 00454 CWD=2 00455 CPOS=0 00456 CLASS=0 00457 ASSIGN 32667 TO I32668 00458 GO TO 32668 00458 32667 ASSIGN 32665 TO I32666 00460 GO TO 32666 00460 32665 IF(.NOT.(CONT.OR.PASS)) GO TO 32663 00462 CLASS=TEXEC 00464 EXTYPE=TFORT 00465 GO TO 32664 00466 32663 ASSIGN 32661 TO I32662 00467 GO TO 32662 00467 32661 CONTINUE 00467 32664 IF((TEXEC).NE.(CLASS)) GO TO 32659 00470 IF((TFORT).NE.(EXTYPE)) GO TO 32657 00472 GO TO 32658 00474 32657 IF((TINVOK).NE.(EXTYPE)) GO TO 32656 00474 ASSIGN 32654 TO I32655 00474 GO TO 32655 00474 32654 GO TO 32658 00479 32656 IF((TCOND).NE.(EXTYPE)) GO TO 32653 00479 ASSIGN 32652 TO I32655 00479 GO TO 32655 00479 32652 GO TO 32658 00484 32653 IF((TSELCT).NE.(EXTYPE)) GO TO 32651 00484 ASSIGN 32649 TO I32650 00487 GO TO 32650 00487 32649 IF(.NOT.(NUNITS.GT.1)) GO TO 32648 00489 NUNITS=1 00491 CURSOR=USTART(2) 00492 ASSIGN 32646 TO I32647 00493 GO TO 32647 00493 32646 ASSIGN 32645 TO I32655 00495 GO TO 32655 00495 32645 CONTINUE 00497 32648 GO TO 32658 00498 32651 ASSIGN 32644 TO I32650 00498 GO TO 32650 00498 32644 CONTINUE 00501 32658 GO TO 32660 00502 32659 IF((TFIN).NE.(CLASS)) GO TO 32643 00502 ASSIGN 32642 TO I32655 00502 GO TO 32655 00502 32642 GO TO 32660 00507 32643 IF((TEND).NE.(CLASS)) GO TO 32641 00507 GO TO 32660 00510 32641 IF((TELSE).NE.(CLASS)) GO TO 32640 00510 ASSIGN 32638 TO I32639 00510 GO TO 32639 00510 32638 GO TO 32660 00515 32640 IF((TTO).NE.(CLASS)) GO TO 32637 00515 CSAVE=CURSOR 00518 ASSIGN 32635 TO I32636 00519 GO TO 32636 00519 32635 IF(.NOT.(FOUND)) GO TO 32633 00521 ASSIGN 32632 TO I32639 00521 GO TO 32639 00521 32632 GO TO 32634 00521 32633 ERSTOP=ERSTOP+1 00526 ERRSTK(ERSTOP)=5 00527 ASSIGN 32630 TO I32631 00528 GO TO 32631 00528 32630 SFLX(1)=CSAVE 00530 CALL CATSTR(SFLX,SDUM) 00531 CURSOR=CSAVE 00532 ASSIGN 32629 TO I32647 00533 GO TO 32647 00533 32629 ASSIGN 32628 TO I32636 00535 GO TO 32636 00535 32628 CONTINUE 00537 32634 GO TO 32660 00538 32637 IF((TCEXP).NE.(CLASS)) GO TO 32627 00538 ASSIGN 32626 TO I32650 00538 GO TO 32650 00538 32626 CONTINUE 00543 32627 CONTINUE 00543 32660 IF(ERSTOP.GT.0) CLASS=0 00545 LSTLEV=LEVEL 00547 GO TO I32675 00548 32625 CONTINUE 00549 ASSIGN 32623 TO I32624 00550 GO TO 32624 00550 32623 ASSIGN 32621 TO I32622 00552 GO TO 32622 00552 32621 IF(.NOT.(UTYPE(1).EQ.UEXP)) GO TO 32619 00554 GOTONO=NEWNO(0) 00556 STACK(TOP-2)=GOTONO 00557 ASSIGN 32617 TO I32618 00558 GO TO 32618 00558 32617 GO TO 32620 00560 32619 STACK(TOP-2)=0 00561 32620 ASSIGN 32615 TO I32616 00562 GO TO 32616 00562 32615 GO TO I32625 00564 32614 CONTINUE 00565 TOP=TOP+4 00566 STACK(TOP)=ACSEQ 00567 STACK(TOP-1)=LINENO 00568 STACK(TOP-2)=0 00569 STACK(TOP-3)=0 00570 LEVEL=LEVEL+1 00571 ASSIGN 32613 TO I32622 00572 GO TO 32622 00572 32613 GO TO I32614 00574 32612 CONTINUE 00575 CONTNO=NEWNO(0) 00576 ASSIGN 32610 TO I32611 00577 GO TO 32611 00577 32610 CALL CPYSTR(SST,SDOST) 00579 CALL CATNUM(SST,CONTNO) 00580 CALL CATSTR(SST,SB) 00581 CALL CATSUB(SST,SFLX,USTART(1)+1,ULEN(1)-2) 00582 STNO=FLXNO 00583 FLXNO=0 00584 ASSIGN 32608 TO I32609 00585 GO TO 32609 00585 32608 ASSIGN 32607 TO I32616 00587 GO TO 32616 00587 32607 GO TO I32612 00589 32606 CONTINUE 00590 TOP=TOP-2 00591 ASSIGN 32605 TO I32622 00592 GO TO 32622 00592 32605 IF(.NOT.(NUNITS.EQ.1)) GO TO 32603 00594 IF(.NOT.(UTYPE(1).EQ.UPINV)) GO TO 32601 00596 ASSIGN 32599 TO I32600 00596 GO TO 32600 00596 32599 GO TO 32602 00596 32601 CALL CPYSUB(SST,SFLX,USTART(1),ULEN(1)) 00601 IF(STREQ(SST,SCONT)) GO TO 32598 00602 ASSIGN 32596 TO I32597 00602 GO TO 32597 00602 32596 CONTINUE 00602 32598 CONTINUE 00607 32602 GO TO 32604 00608 32603 ASSIGN 32594 TO I32595 00609 GO TO 32595 00609 32594 CONTINUE 00609 32604 GO TO I32606 00612 32593 CONTINUE 00613 ASSIGN 32591 TO I32592 00614 GO TO 32592 00614 32591 IF(.NOT.(LONG.OR.COGOTO)) GO TO 32590 00616 ASSIGN 32588 TO I32589 00616 GO TO 32589 00616 32588 CONTINUE 00616 32590 ASSIGN 32586 TO I32587 00621 GO TO 32587 00621 32586 IF (ENDFIL) ERROR=25 00623 ENDPGM=.TRUE. 00625 GO TO I32593 00626 32585 CONTINUE 00627 IF((TFORT).NE.(EXTYPE)) GO TO 32583 00628 ASSIGN 32582 TO I32587 00628 GO TO 32587 00628 32582 GO TO 32584 00632 32583 IF((TIF).NE.(EXTYPE)) GO TO 32581 00632 ASSIGN 32579 TO I32580 00632 GO TO 32580 00632 32579 GO TO 32584 00637 32581 IF((TUNLES).NE.(EXTYPE)) GO TO 32578 00637 ASSIGN 32576 TO I32577 00637 GO TO 32577 00637 32576 GO TO 32584 00642 32578 IF((TWHEN).NE.(EXTYPE)) GO TO 32575 00642 ASSIGN 32573 TO I32574 00642 GO TO 32574 00642 32573 GO TO 32584 00647 32575 IF((TWHILE).NE.(EXTYPE)) GO TO 32572 00647 ASSIGN 32570 TO I32571 00647 GO TO 32571 00647 32570 GO TO 32584 00652 32572 IF((TUNTIL).NE.(EXTYPE)) GO TO 32569 00652 ASSIGN 32567 TO I32568 00652 GO TO 32568 00652 32567 GO TO 32584 00657 32569 IF((TRWHIL).NE.(EXTYPE)) GO TO 32566 00657 ASSIGN 32564 TO I32565 00657 GO TO 32565 00657 32564 GO TO 32584 00662 32566 IF((TRUNTL).NE.(EXTYPE)) GO TO 32563 00662 ASSIGN 32561 TO I32562 00662 GO TO 32562 00662 32561 GO TO 32584 00667 32563 IF((TINVOK).NE.(EXTYPE)) GO TO 32560 00667 ASSIGN 32559 TO I32600 00667 GO TO 32600 00667 32559 GO TO 32584 00672 32560 IF((TCOND).NE.(EXTYPE)) GO TO 32558 00672 ASSIGN 32557 TO I32614 00672 GO TO 32614 00672 32557 GO TO 32584 00677 32558 IF((TSELCT).NE.(EXTYPE)) GO TO 32556 00677 ASSIGN 32554 TO I32555 00677 GO TO 32555 00677 32554 GO TO 32584 00682 32556 IF((TDO).NE.(EXTYPE)) GO TO 32553 00682 ASSIGN 32552 TO I32612 00682 GO TO 32612 00682 32552 CONTINUE 00687 32553 CONTINUE 00687 32584 GO TO I32585 00689 32597 CONTINUE 00690 STNO=FLXNO 00691 CALL CPYSTR(SST,SB6) 00692 IF(.NOT.(UTYPE(1).EQ.UFORT)) GO TO 32550 00693 J=1 00693 GO TO 32551 00693 32550 J=2 00697 32551 CALL CATSUB(SST,SFLX,USTART(J),ULEN(J)) 00698 ASSIGN 32549 TO I32609 00699 GO TO 32609 00699 32549 GO TO I32597 00701 32580 CONTINUE 00702 IF(.NOT.(NUNITS.EQ.2.AND.UTYPE(2).EQ.UFORT)) GO TO 32547 00703 ASSIGN 32546 TO I32587 00703 GO TO 32587 00703 32546 GO TO 32548 00703 32547 ASSIGN 32544 TO I32545 00708 GO TO 32545 00708 32544 CONTINUE 00708 32548 GO TO I32580 00711 32600 CONTINUE 00712 ASSIGN 32542 TO I32543 00713 GO TO 32543 00713 32542 ENTNO=STACK(PENT+1) 00715 RETNO=NEWNO(0) 00716 MAX=MAX-(1+OFFSET) 00717 STACK(MAX+1)=STACK(PENT+3) 00718 STACK(PENT+3)=MAX+1 00719 STACK(MAX+2)=LINENO 00720 IF (LONG.OR.COGOTO) STACK(MAX+3)=RETNO 00721 IF(.NOT.(COGOTO)) GO TO 32540 00723 STACK(PENT-2)=STACK(PENT-2)+1 00725 CALL CPYSTR(SST,SB6I) 00726 CALL CATNUM(SST,ENTNO) 00727 CALL CATSTR(SST,SEQ) 00728 CALL CATNUM(SST,STACK(PENT-2)) 00729 GO TO 32541 00730 32540 CALL CPYSTR(SST,SASSN1) 00731 CALL CATNUM(SST,RETNO) 00732 CALL CATSTR(SST,SASSN2) 00733 CALL CATNUM(SST,ENTNO) 00734 32541 STNO=FLXNO 00735 ASSIGN 32539 TO I32609 00736 GO TO 32609 00736 32539 GOTONO=ENTNO 00738 ASSIGN 32537 TO I32538 00739 GO TO 32538 00739 32537 NEXTNO=RETNO 00741 GO TO I32600 00742 32562 CONTINUE 00743 NOTFLG=.FALSE. 00744 ASSIGN 32536 TO I32565 00745 GO TO 32565 00745 32536 GO TO I32562 00747 32565 CONTINUE 00748 ASSIGN 32535 TO I32622 00749 GO TO 32622 00749 32535 TESTNO=NEWNO(0) 00751 TOPNO=NEWNO(0) 00752 ENDNO=NEWNO(0) 00753 GOTONO=TOPNO 00754 ASSIGN 32534 TO I32538 00755 GO TO 32538 00755 32534 STNO=TESTNO 00757 GOTONO=ENDNO 00758 ASSIGN 32533 TO I32618 00759 GO TO 32618 00759 32533 GSTNO=ENDNO 00761 ASSIGN 32531 TO I32532 00762 GO TO 32532 00762 32531 GGOTON=TESTNO 00764 ASSIGN 32529 TO I32530 00765 GO TO 32530 00765 32529 NEXTNO=TOPNO 00767 ASSIGN 32528 TO I32616 00768 GO TO 32616 00768 32528 GO TO I32565 00770 32555 CONTINUE 00771 ASSIGN 32527 TO I32622 00772 GO TO 32622 00772 32527 LEVEL=LEVEL+1 00774 L=(ULEN(1)-1)/NCHPWD+6 00775 TOP=TOP+L+1 00776 IF(.NOT.(TOP+SAFETY.LT.MAX)) GO TO 32525 00777 STACK(TOP)=ASSEQ 00779 STACK(TOP-1)=LINENO 00780 STACK(TOP-2)=0 00781 STACK(TOP-3)=0 00782 STACK(TOP-4)=L 00783 STACK(TOP-L)=0 00784 CALL CATSUB(STACK(TOP-L),SFLX,USTART(1),ULEN(1)) 00785 GO TO 32526 00786 32525 ASSIGN 32523 TO I32524 00787 GO TO 32524 00787 32523 CONTINUE 00787 32526 GO TO I32555 00790 32522 CONTINUE 00791 LEVEL=LEVEL-1 00792 ASSIGN 32521 TO I32622 00793 GO TO 32622 00793 32521 STNO=STACK(TOP-2) 00795 IF(STNO.EQ.0) GO TO 32520 00796 ASSIGN 32518 TO I32519 00796 GO TO 32519 00796 32518 CONTINUE 00796 32520 ASSIGN 32516 TO I32517 00801 GO TO 32517 00801 32516 NEXTNO=STACK(TOP-3) 00803 ASSIGN 32514 TO I32515 00804 GO TO 32515 00804 32514 GO TO I32522 00806 32513 CONTINUE 00807 ASSIGN 32512 TO I32624 00808 GO TO 32624 00808 32512 ASSIGN 32511 TO I32622 00810 GO TO 32622 00810 32511 IF(.NOT.(UTYPE(1).EQ.UEXP)) GO TO 32509 00812 CALL CPYSTR(SST,SIFP) 00814 CALL CATSUB(SST,SFLX,USTART(1),ULEN(1)) 00815 CALL CATSTR(SST,SNE) 00816 I=STACK(TOP-4) 00817 CALL CATSTR(SST,STACK(TOP-I)) 00818 CALL CATSTR(SST,SPGOTO) 00819 NXIFNO=NEWNO(0) 00820 STACK(TOP-2)=NXIFNO 00821 CALL CATNUM(SST,NXIFNO) 00822 STNO=0 00823 ASSIGN 32508 TO I32609 00824 GO TO 32609 00824 32508 GO TO 32510 00826 32509 STACK(TOP-2)=0 00827 32510 ASSIGN 32507 TO I32616 00828 GO TO 32616 00828 32507 GO TO I32513 00830 32506 CONTINUE 00831 ASSIGN 32505 TO I32622 00832 GO TO 32622 00832 32505 LEVEL=LEVEL-1 00834 TOP=TOP-2 00835 GO TO I32506 00836 32504 CONTINUE 00837 ASSIGN 32503 TO I32543 00838 GO TO 32543 00838 32503 IF(.NOT.(STACK(PENT+2).NE.0)) GO TO 32501 00840 ERROR=26 00842 MLINE=STACK(PENT+2) 00843 ENTNO=NEWNO(0) 00844 GO TO 32502 00845 32501 ENTNO=STACK(PENT+1) 00846 STACK(PENT+2)=LINENO 00847 32502 ASSIGN 32500 TO I32622 00848 GO TO 32622 00848 32500 ASSIGN 32499 TO I32517 00850 GO TO 32517 00850 32499 NEXTNO=ENTNO 00852 ASSIGN 32498 TO I32517 00853 GO TO 32517 00853 32498 TOP=TOP+2 00855 STACK(TOP)=AGRET 00856 IF(.NOT.(SHORT.OR.FAKE)) GO TO 32496 00857 STACK(TOP-1)=ENTNO 00857 GO TO 32497 00857 32496 STACK(TOP-1)=STACK(PENT-1) 00861 32497 UTYPE(1)=0 00862 ASSIGN 32495 TO I32616 00863 GO TO 32616 00863 32495 GO TO I32504 00865 32577 CONTINUE 00866 IF(.NOT.(NUNITS.EQ.2.AND.UTYPE(2).EQ.UFORT)) GO TO 32493 00867 CALL CPYSTR(SST,SIFPN) 00869 CALL CATSUB(SST,SFLX,USTART(1),ULEN(1)) 00870 CALL CATSTR(SST,SPB) 00871 CALL CATSUB(SST,SFLX,USTART(2),ULEN(2)) 00872 STNO=FLXNO 00873 ASSIGN 32492 TO I32609 00874 GO TO 32609 00874 32492 GO TO 32494 00876 32493 NOTFLG=.FALSE. 00877 ASSIGN 32491 TO I32545 00878 GO TO 32545 00878 32491 CONTINUE 00880 32494 GO TO I32577 00881 32568 CONTINUE 00882 NOTFLG=.FALSE. 00883 ASSIGN 32490 TO I32571 00884 GO TO 32571 00884 32490 GO TO I32568 00886 32574 CONTINUE 00887 ENDNO=NEWNO(0) 00888 ELSNO=NEWNO(0) 00889 GSTNO=ENDNO 00890 ASSIGN 32489 TO I32532 00891 GO TO 32532 00891 32489 TOP=TOP+2 00893 STACK(TOP-1)=LINENO 00894 STACK(TOP)=AELSE 00895 GSTNO=ELSNO 00896 ASSIGN 32488 TO I32532 00897 GO TO 32532 00897 32488 GGOTON=ENDNO 00899 ASSIGN 32487 TO I32530 00900 GO TO 32530 00900 32487 GOTONO=ELSNO 00902 STNO=FLXNO 00903 FLXNO=0 00904 ASSIGN 32486 TO I32618 00905 GO TO 32618 00905 32486 ASSIGN 32485 TO I32616 00907 GO TO 32616 00907 32485 GO TO I32574 00909 32571 CONTINUE 00910 IF(.NOT.(FLXNO.NE.0)) GO TO 32483 00911 LOOPNO=FLXNO 00913 FLXNO=0 00914 GO TO 32484 00915 32483 IF(.NOT.(NEXTNO.NE.0)) GO TO 32482 00915 LOOPNO=NEXTNO 00918 NEXTNO=0 00919 GO TO 32484 00920 32482 LOOPNO=NEWNO(0) 00921 32484 ENDNO=NEWNO(0) 00922 GSTNO=ENDNO 00923 ASSIGN 32481 TO I32532 00924 GO TO 32532 00924 32481 GGOTON=LOOPNO 00926 ASSIGN 32480 TO I32530 00927 GO TO 32530 00927 32480 GOTONO=ENDNO 00929 STNO=LOOPNO 00930 ASSIGN 32479 TO I32618 00931 GO TO 32618 00931 32479 ASSIGN 32478 TO I32616 00933 GO TO 32616 00933 32478 GO TO I32571 00935 32616 CONTINUE 00936 IF(.NOT.(NUNITS.EQ.1)) GO TO 32476 00937 ASSIGN 32475 TO I32595 00937 GO TO 32595 00937 32475 GO TO 32477 00941 32476 IF(.NOT.(UTYPE(2).EQ.UPINV)) GO TO 32474 00941 ASSIGN 32473 TO I32600 00941 GO TO 32600 00941 32473 GO TO 32477 00946 32474 CALL CPYSUB(SST,SFLX,USTART(2),ULEN(2)) 00947 IF(STREQ(SST,SCONT)) GO TO 32472 00948 ASSIGN 32471 TO I32597 00948 GO TO 32597 00948 32471 CONTINUE 00948 32472 CONTINUE 00953 32477 GO TO I32616 00954 32543 CONTINUE 00955 IF(.NOT.(UTYPE(1).EQ.UPINV)) GO TO 32469 00956 J=1 00956 GO TO 32470 00956 32469 J=2 00960 32470 CALL CPYSUB(SPINV,SFLX,USTART(J),ULEN(J)) 00961 IF(.NOT.(STREQ(SPINV,SDUM))) GO TO 32467 00962 PENT=PDUMMY 00964 STACK(PENT+2)=0 00965 GO TO 32468 00966 32467 P=MAXSTK-HASH(SPINV,PRIME) 00967 FOUND=.FALSE. 00968 IF(STACK(P).EQ.0) GO TO 32466 00969 GO TO 32464 00971 32465 IF(STACK(P).EQ.0.OR.FOUND) GO TO 32463 00971 32464 P=STACK(P) 00974 IF (STREQ(SPINV,STACK(P+4))) FOUND=.TRUE. 00975 GO TO 32465 00977 32463 CONTINUE 00978 32466 IF(.NOT.(FOUND)) GO TO 32461 00979 PENT=P 00979 GO TO 32462 00979 32461 TMAX=MAX-(4+OFFST2+(SPINV(1)+NCHPWD-1)/NCHPWD) 00983 IF(.NOT.(TMAX.LE.TOP+SAFETY)) GO TO 32459 00984 PENT=PDUMMY 00986 STACK(PENT+2)=0 00987 GO TO 32460 00988 32459 MAX=TMAX 00989 PENT=MAX+OFFST2 00990 IF (LONG.OR.COGOTO) STACK(PENT-1)=NEWNO(0) 00991 IF (COGOTO) STACK(PENT-2)=0 00993 STACK(PENT)=0 00995 STACK(P)=PENT 00996 STACK(PENT+1)=NEWNO(0) 00997 STACK(PENT+2)=0 00998 STACK(PENT+3)=0 00999 CALL CPYSTR(STACK(PENT+4),SPINV) 01000 32460 CONTINUE 01001 32462 CONTINUE 01002 32468 GO TO I32543 01003 32545 CONTINUE 01004 GOTONO=NEWNO(0) 01005 STNO=FLXNO 01006 FLXNO=0 01007 ASSIGN 32458 TO I32618 01008 GO TO 32618 01008 32458 GSTNO=GOTONO 01010 ASSIGN 32457 TO I32532 01011 GO TO 32532 01011 32457 ASSIGN 32456 TO I32616 01013 GO TO 32616 01013 32456 GO TO I32545 01015 32517 CONTINUE 01016 IF(.NOT.(NEXTNO.NE.0)) GO TO 32455 01017 CALL PUTNUM(SFORCE,NEXTNO) 01019 CALL PUT(LINENO,SFORCE,FORTCL) 01020 NEXTNO=0 01021 32455 GO TO I32517 01022 32624 CONTINUE 01023 ENDNO=STACK(TOP-3) 01024 IF(.NOT.(ENDNO.EQ.0)) GO TO 32453 01025 STACK(TOP-3)=NEWNO(0) 01027 GO TO 32454 01028 32453 GOTONO=ENDNO 01029 ASSIGN 32452 TO I32538 01030 GO TO 32538 01030 32452 CONTINUE 01032 32454 IF(.NOT.(NEXTNO.EQ.0)) GO TO 32450 01033 NEXTNO=STACK(TOP-2) 01033 GO TO 32451 01036 32450 IF(.NOT.(STACK(TOP-2).EQ.0)) GO TO 32449 01036 GO TO 32451 01039 32449 ASSIGN 32448 TO I32517 01040 GO TO 32517 01040 32448 NEXTNO=STACK(TOP-2) 01042 32451 GO TO I32624 01043 32447 CONTINUE 01044 STNO=STACK(TOP-1) 01045 ASSIGN 32446 TO I32519 01046 GO TO 32519 01046 32446 TOP=TOP-2 01048 GO TO I32447 01049 32445 CONTINUE 01050 GOTONO=STACK(TOP-1) 01051 ASSIGN 32444 TO I32538 01052 GO TO 32538 01052 32444 TOP=TOP-2 01054 GO TO I32445 01055 32589 CONTINUE 01056 P=PTABLE 01057 32443 IF(P.EQ.0) GO TO 32442 01058 IF(.NOT.(STACK(P+2).NE.0)) GO TO 32440 01060 IF(.NOT.(LONG)) GO TO 32438 01062 CALL CPYSTR(SST,SGOTOI) 01064 CALL CATNUM(SST,STACK(P+1)) 01065 CALL CATSTR(SST,SCP) 01066 GO TO 32439 01067 32438 CALL CPYSTR(SST,SGOTOP) 01068 32439 Q=STACK(P+3) 01069 STNO=STACK(P-1) 01070 IF(.NOT.(Q.EQ.0)) GO TO 32436 01071 CALL CATNUM(SST,STACK(P+1)) 01071 GO TO 32437 01071 32436 GO TO 32434 01075 32435 IF(Q.EQ.0) GO TO 32433 01075 32434 IF(.NOT.(SST(1).GT.SSTMAX-6)) GO TO 32432 01078 ASSIGN 32431 TO I32609 01080 GO TO 32609 01080 32431 CALL CPYSTR(SST,SB5I1) 01082 32432 CALL CATNUM(SST,STACK(Q+2)) 01083 CALL CATSTR(SST,SCOMMA) 01084 Q=STACK(Q) 01085 GO TO 32435 01086 32433 SST(1)=SST(1)-1 01087 32437 IF(.NOT.(LONG)) GO TO 32429 01088 CALL CATSTR(SST,SRP) 01088 GO TO 32430 01088 32429 IF(.NOT.(SST(1).GT.SSTMAX-9)) GO TO 32428 01092 ASSIGN 32427 TO I32609 01094 GO TO 32609 01094 32427 CALL CPYSTR(SST,SB5I1) 01096 32428 CALL CATSTR(SST,SRPCI) 01097 CALL CATNUM(SST,STACK(P+1)) 01098 32430 ASSIGN 32426 TO I32609 01099 GO TO 32609 01099 32426 GO TO 32441 01101 32440 CALL CPYSTR(SST,SSTOP) 01102 STNO=STACK(P+1) 01103 ASSIGN 32425 TO I32609 01104 GO TO 32609 01104 32425 CONTINUE 01106 32441 P=STACK(P) 01107 GO TO 32443 01108 32442 GO TO I32589 01109 32424 CONTINUE 01110 STNO=0 01111 CALL CPYSTR(SST,SGOTOI) 01112 IF (LONG.OR.COGOTO) SST(1)=SST(1)-1 01113 CALL CATNUM(SST,STACK(TOP-1)) 01115 IF(.NOT.(FAKE)) GO TO 32423 01116 CALL CATSTR(SST,SCP) 01118 CALL CATNUM(SST,STACK(TOP-1)) 01119 CALL CATSTR(SST,SRP) 01120 32423 ASSIGN 32422 TO I32609 01121 GO TO 32609 01121 32422 TOP=TOP-2 01123 GO TO I32424 01124 32421 CONTINUE 01125 ASSIGN 32420 TO I32517 01126 GO TO 32517 01126 32420 NEXTNO=STACK(TOP-1) 01128 TOP=TOP-2 01129 GO TO I32421 01130 32419 CONTINUE 01131 CURSOR=CURSOR+1 01132 CPOS=CPOS+1 01133 IF(.NOT.(CPOS.GT.NCHPWD)) GO TO 32418 01134 CWD=CWD+1 01136 CPOS=1 01137 32418 IF(.NOT.(CURSOR.GT.SFLX(1))) GO TO 32416 01138 CHTYPE=TEOL 01138 GO TO 32417 01138 32416 CALL GETCH(SFLX(CWD),CPOS,CH) 01142 CHTYPE=CHTYP(CH) 01143 32417 GO TO I32419 01144 32524 CONTINUE 01145 CALL PUT(0,SGUP1,ERRCL) 01146 CALL PUT(0,SGUP2,ERRCL) 01147 CALL CLOSEF(MINCNT,-1) 01148 IF (.TRUE.) CALL EXIT 01149 GO TO I32524 01151 32709 CONTINUE 01152 ASSIGN 32414 TO I32415 01153 GO TO 32415 01153 32414 CALL CPYSTR(SFLX,SCOND) 01155 CALL PUT(0,SICOND,ERRCL) 01156 GO TO I32709 01157 32730 CONTINUE 01158 ASSIGN 32413 TO I32415 01159 GO TO 32415 01159 32413 CALL CPYSTR(SFLX,SELSE) 01161 CALL CPYSTR(SLIST,SIELSE) 01162 CALL CATNUM(SLIST,STACK(TOP-1)) 01163 CALL CATSTR(SLIST,SRP) 01164 CALL PUT(0,SLIST,ERRCL) 01165 GO TO I32730 01166 32733 CONTINUE 01167 ASSIGN 32412 TO I32415 01168 GO TO 32415 01168 32412 CALL CPYSTR(SFLX,SFIN) 01170 CALL CPYSTR(SLIST,SIFIN) 01171 IF(.NOT.(STACK(TOP-1).EQ.0)) GO TO 32410 01172 CALL CATSTR(SLIST,SIFIN2) 01172 GO TO 32411 01172 32410 CALL CATNUM(SLIST,STACK(TOP-1)) 01176 CALL CATSTR(SLIST,SRP) 01177 32411 CALL PUT(0,SLIST,ERRCL) 01178 GO TO I32733 01179 32721 CONTINUE 01180 ASSIGN 32409 TO I32415 01181 GO TO 32415 01181 32409 CALL CPYSTR(SFLX,STODUM) 01183 CALL PUT(0,SITODM,ERRCL) 01184 GO TO I32721 01185 32724 CONTINUE 01186 ASSIGN 32408 TO I32415 01187 GO TO 32415 01187 32408 CALL CPYSTR(SFLX,SWHEN) 01189 CALL PUT(0,SIWHEN,ERRCL) 01190 GO TO I32724 01191 32718 CONTINUE 01192 IF(.NOT.(TOP.LE.7)) GO TO 32406 01193 ASSIGN 32405 TO I32724 01193 GO TO 32724 01193 32405 GO TO 32407 01197 32406 IF(.NOT.(STACK(TOP-6).EQ.AELSE)) GO TO 32404 01197 ASSIGN 32403 TO I32733 01197 GO TO 32733 01197 32403 GO TO 32407 01202 32404 ASSIGN 32402 TO I32724 01202 GO TO 32724 01202 32402 CONTINUE 01205 32407 GO TO I32718 01206 32677 CONTINUE 01207 LSTLEV=LEVEL 01208 IF(.NOT.(LSTLEV.EQ.0)) GO TO 32400 01209 CALL PUT(BLN,SB,LISTCL) 01209 GO TO 32401 01209 32400 CALL CPYSTR(SLIST,SB6) 01213 DO 32399 I=1,LSTLEV 01214 CALL CATSTR(SLIST,SSPACR) 01214 32399 CONTINUE 01214 IF(.NOT.(SLIST(1).GT.WWIDTH)) GO TO 32397 01217 CALL PUT(BLN,SP,LISTCL) 01217 GO TO 32398 01217 32397 CALL PUT(BLN,SLIST,LISTCL) 01221 32398 CONTINUE 01222 32401 BLN=0 01223 GO TO I32677 01224 32396 CONTINUE 01225 CURSOR=1 01226 ASSIGN 32395 TO I32647 01227 GO TO 32647 01227 32395 INDENT=.TRUE. 01229 I=2 01230 GO TO 32393 01231 32394 IF(.NOT.(I.LE.6.AND.INDENT)) GO TO 32392 01231 32393 ASSIGN 32391 TO I32419 01234 GO TO 32419 01234 32391 IF (CHTYPE.NE.TBLANK.AND.CHTYPE.NE.TEOL) INDENT=.FALSE. 01236 I=I+1 01238 GO TO 32394 01239 32392 IF(.NOT.(INDENT)) GO TO 32389 01240 LSTLEV=LEVEL 01242 CLASS=0 01243 ASSIGN 32388 TO I32741 01244 GO TO 32741 01244 32388 GO TO 32390 01246 32389 CALL PUT(0,SFLX,LISTCL) 01247 32390 GO TO I32396 01248 32387 CONTINUE 01249 CALL PUT(0,SB,LISTCL) 01250 CALL PUT(0,SDASH,LISTCL) 01251 CALL PUT(0,SB,LISTCL) 01252 GO TO I32387 01253 32741 CONTINUE 01254 IF(.NOT.(CLASS.EQ.TTO)) GO TO 32386 01255 ASSIGN 32385 TO I32387 01255 GO TO 32387 01255 32385 CONTINUE 01255 32386 IF (SFLX(1).LT.7) CALL CATSTR(SFLX,SB7) 01260 CALL CPYSUB(SLIST,SFLX,1,6) 01262 IF(LSTLEV.EQ.0) GO TO 32384 01263 DO 32383 I=1,LSTLEV 01265 CALL CATSTR(SLIST,SSPACR) 01265 32383 CONTINUE 01265 32384 IF(.NOT.(CLASS.EQ.TFIN)) GO TO 32382 01268 SLIST(1)=SLIST(1)-SSPACR(1) 01270 CALL CATSTR(SLIST,SFSPCR) 01271 32382 CALL CATSUB(SLIST,SFLX,7,SFLX(1)-6) 01272 IF (SLIST(1).GT.WWIDTH) CALL CPYSTR(SLIST,SFLX) 01273 IF(.NOT.(ERLST)) GO TO 32380 01275 CALL PUT(LINENO,SLIST,ERRCL) 01277 ERLST=.FALSE. 01278 GO TO 32381 01279 32380 IF(.NOT.(CLASS.EQ.0)) GO TO 32378 01280 LLLINE=0 01280 GO TO 32379 01280 32378 LLLINE=LINENO 01284 32379 CALL PUT(LLLINE,SLIST,LISTCL) 01285 32381 GO TO I32741 01286 32758 CONTINUE 01287 NOCALL=0 01288 PARAM1=NCHPWD 01289 PARAM2=CHZERO 01290 PARAM3=CHSPAC 01291 PARAM4=CHC 01292 BLN=0 01293 WWIDTH=LWIDTH-6 01294 REFNO=(LWIDTH-12)/7 01295 IF(.NOT.(SHORT.OR.FAKE)) GO TO 32376 01296 OFFSET=1 01298 OFFST2=1 01299 GO TO 32377 01300 32376 IF(.NOT.(COGOTO)) GO TO 32375 01300 OFFSET=2 01303 OFFST2=3 01304 GO TO 32377 01305 32375 OFFSET=2 01306 OFFST2=3 01307 32377 NOTFLG=.TRUE. 01308 ERLST=.FALSE. 01309 GO TO I32758 01310 32515 CONTINUE 01311 TOPTYP=STACK(TOP) 01312 IF((ASSEQ).NE.(TOPTYP)) GO TO 32373 01313 TOP=TOP-STACK(TOP-4)-1 01313 GO TO 32374 01316 32373 IF((ACSEQ).NE.(TOPTYP)) GO TO 32372 01316 TOP=TOP-4 01316 GO TO 32374 01320 32372 IF((AGGOTO).NE.(TOPTYP)) GO TO 32371 01320 TOP=TOP-2 01320 GO TO 32374 01324 32371 IF((AGCONT).NE.(TOPTYP)) GO TO 32370 01324 TOP=TOP-2 01324 GO TO 32374 01328 32370 IF((AFSEQ).NE.(TOPTYP)) GO TO 32369 01328 TOP=TOP-2 01328 GO TO 32374 01332 32369 IF((AELSE).NE.(TOPTYP)) GO TO 32368 01332 TOP=TOP-2 01332 GO TO 32374 01336 32368 IF((AGSTNO).NE.(TOPTYP)) GO TO 32367 01336 TOP=TOP-2 01336 GO TO 32374 01340 32367 IF((ATSEQ).NE.(TOPTYP)) GO TO 32366 01340 TOP=TOP-1 01340 GO TO 32374 01344 32366 IF((AMSEQ).NE.(TOPTYP)) GO TO 32365 01344 TOP=TOP-1 01344 GO TO 32374 01348 32365 IF((AGRET).NE.(TOPTYP)) GO TO 32364 01348 TOP=TOP-2 01348 32364 CONTINUE 01352 32374 GO TO I32515 01353 32415 CONTINUE 01354 ERTYPE=2 01355 ASSIGN 32363 TO I32631 01356 GO TO 32631 01356 32363 LINENO=0 01358 IF(.NOT.(SOURCE.EQ.READ)) GO TO 32362 01359 CALL CPYSTR(SST,SINSRT) 01361 IF(.NOT.(HOLDNO.GT.0)) GO TO 32360 01362 CALL CATNUM(SST,HOLDNO) 01362 GO TO 32361 01362 32360 CALL CATSTR(SST,SINS2) 01366 32361 CALL PUT(0,SST,ERRCL) 01367 32362 GO TO I32415 01368 32749 CONTINUE 01369 DUMMY=NEWNO(SEEDNO) 01370 ENDPGM=.FALSE. 01371 MAX=MAXSTK-(PRIME+OFFSET+3) 01372 PDUMMY=MAX+OFFSET 01373 DO 32359 I=MAX,MAXSTK 01374 STACK(I)=0 01374 32359 CONTINUE 01374 TOP=1 01377 STACK(TOP)=AMSEQ 01378 ERROR=0 01379 FIRST=.TRUE. 01380 NOPGM=.FALSE. 01381 NEXTNO=0 01382 SOURCE=READ 01383 LEVEL=0 01384 LSTLEV=0 01385 CALL GET(-1,SFLX,ENDFIL) 01386 ASSIGN 32358 TO I32387 01387 GO TO 32387 01387 32358 GO TO I32749 01389 32747 CONTINUE 01390 GO TO 32356 01391 32357 IF(ENDPGM) GO TO 32355 01391 32356 IF(.NOT.(TOP+SAFETY.GT.MAX)) GO TO 32354 01394 ASSIGN 32353 TO I32524 01394 GO TO 32524 01394 32353 CONTINUE 01394 32354 ACTION=STACK(TOP) 01399 IF((AGGOTO).NE.(ACTION)) GO TO 32351 01400 ASSIGN 32350 TO I32445 01400 GO TO 32445 01400 32350 GO TO 32352 01404 32351 IF((AGRET).NE.(ACTION)) GO TO 32349 01404 ASSIGN 32348 TO I32424 01404 GO TO 32424 01404 32348 GO TO 32352 01409 32349 IF((AGCONT).NE.(ACTION)) GO TO 32347 01409 ASSIGN 32346 TO I32447 01409 GO TO 32447 01409 32346 GO TO 32352 01414 32347 IF((AGSTNO).NE.(ACTION)) GO TO 32345 01414 ASSIGN 32344 TO I32421 01414 GO TO 32421 01414 32344 GO TO 32352 01419 32345 ASSIGN 32343 TO I32675 01420 GO TO 32675 01420 32343 IF((AFSEQ).NE.(ACTION)) GO TO 32341 01422 IF((TEXEC).NE.(CLASS)) GO TO 32339 01424 ASSIGN 32338 TO I32585 01424 GO TO 32585 01424 32338 GO TO 32340 01428 32339 IF((TFIN).NE.(CLASS)) GO TO 32337 01428 ASSIGN 32336 TO I32506 01428 GO TO 32506 01428 32336 GO TO 32340 01433 32337 IF((TEND).NE.(CLASS)) GO TO 32335 01433 ERROR=1 01433 GO TO 32340 01437 32335 IF((TELSE).NE.(CLASS)) GO TO 32334 01437 ERROR=10 01437 GO TO 32340 01441 32334 IF((TTO).NE.(CLASS)) GO TO 32333 01441 ERROR=13 01441 GO TO 32340 01445 32333 IF((TCEXP).NE.(CLASS)) GO TO 32332 01445 ERROR=19 01445 32332 CONTINUE 01449 32340 GO TO 32342 01450 32341 IF((AMSEQ).NE.(ACTION)) GO TO 32331 01450 IF((TEXEC).NE.(CLASS)) GO TO 32329 01453 ASSIGN 32328 TO I32585 01453 GO TO 32585 01453 32328 GO TO 32330 01457 32329 IF((TEND).NE.(CLASS)) GO TO 32327 01457 IF(.NOT.(NOPGM)) GO TO 32325 01460 ENDPGM=.TRUE. 01460 GO TO 32326 01460 32325 ASSIGN 32324 TO I32593 01464 GO TO 32593 01464 32324 CONTINUE 01464 32326 GO TO 32330 01467 32327 IF((TFIN).NE.(CLASS)) GO TO 32323 01467 ERROR=5 01467 GO TO 32330 01471 32323 IF((TELSE).NE.(CLASS)) GO TO 32322 01471 ERROR=8 01471 GO TO 32330 01475 32322 IF((TTO).NE.(CLASS)) GO TO 32321 01475 STACK(TOP)=ATSEQ 01478 ASSIGN 32320 TO I32504 01479 GO TO 32504 01479 32320 GO TO 32330 01481 32321 IF((TCEXP).NE.(CLASS)) GO TO 32319 01481 ERROR=17 01481 32319 CONTINUE 01485 32330 GO TO 32342 01486 32331 IF((ASSEQ).NE.(ACTION)) GO TO 32318 01486 IF((TCEXP).NE.(CLASS)) GO TO 32316 01489 ASSIGN 32315 TO I32513 01489 GO TO 32513 01489 32315 GO TO 32317 01493 32316 IF((TFIN).NE.(CLASS)) GO TO 32314 01493 ASSIGN 32313 TO I32522 01493 GO TO 32522 01493 32313 GO TO 32317 01498 32314 IF((TEND).NE.(CLASS)) GO TO 32312 01498 ERROR=3 01498 GO TO 32317 01502 32312 IF((TELSE).NE.(CLASS)) GO TO 32311 01502 ERROR=12 01502 GO TO 32317 01506 32311 IF((TTO).NE.(CLASS)) GO TO 32310 01506 ERROR=15 01506 GO TO 32317 01510 32310 IF((TEXEC).NE.(CLASS)) GO TO 32309 01510 ERROR=23 01510 32309 CONTINUE 01514 32317 GO TO 32342 01515 32318 IF((ACSEQ).NE.(ACTION)) GO TO 32308 01515 IF((TCEXP).NE.(CLASS)) GO TO 32306 01518 ASSIGN 32305 TO I32625 01518 GO TO 32625 01518 32305 GO TO 32307 01522 32306 IF((TFIN).NE.(CLASS)) GO TO 32304 01522 ASSIGN 32303 TO I32522 01522 GO TO 32522 01522 32303 GO TO 32307 01527 32304 IF((TEND).NE.(CLASS)) GO TO 32302 01527 ERROR=2 01527 GO TO 32307 01531 32302 IF((TELSE).NE.(CLASS)) GO TO 32301 01531 ERROR=11 01531 GO TO 32307 01535 32301 IF((TTO).NE.(CLASS)) GO TO 32300 01535 ERROR=14 01535 GO TO 32307 01539 32300 IF((TEXEC).NE.(CLASS)) GO TO 32299 01539 ERROR=22 01539 32299 CONTINUE 01543 32307 GO TO 32342 01544 32308 IF((AELSE).NE.(ACTION)) GO TO 32298 01544 IF((TELSE).NE.(CLASS)) GO TO 32296 01547 ASSIGN 32295 TO I32606 01547 GO TO 32606 01547 32295 GO TO 32297 01551 32296 IF((TEND).NE.(CLASS)) GO TO 32294 01551 ERROR=4 01551 GO TO 32297 01555 32294 IF((TFIN).NE.(CLASS)) GO TO 32293 01555 ERROR=7 01555 GO TO 32297 01559 32293 IF((TTO).NE.(CLASS)) GO TO 32292 01559 ERROR=16 01559 GO TO 32297 01563 32292 IF((TCEXP).NE.(CLASS)) GO TO 32291 01563 ERROR=20 01563 GO TO 32297 01567 32291 IF((TEXEC).NE.(CLASS)) GO TO 32290 01567 ERROR=24 01567 32290 CONTINUE 01571 32297 GO TO 32342 01572 32298 IF((ATSEQ).NE.(ACTION)) GO TO 32289 01572 IF((TTO).NE.(CLASS)) GO TO 32287 01575 ASSIGN 32286 TO I32504 01575 GO TO 32504 01575 32286 GO TO 32288 01579 32287 IF((TEND).NE.(CLASS)) GO TO 32285 01579 ASSIGN 32284 TO I32593 01579 GO TO 32593 01579 32284 GO TO 32288 01584 32285 IF((TFIN).NE.(CLASS)) GO TO 32283 01584 ERROR=6 01584 GO TO 32288 01588 32283 IF((TELSE).NE.(CLASS)) GO TO 32282 01588 ERROR=9 01588 GO TO 32288 01592 32282 IF((TCEXP).NE.(CLASS)) GO TO 32281 01592 ERROR=18 01592 GO TO 32288 01596 32281 IF((TEXEC).NE.(CLASS)) GO TO 32280 01596 ERROR=21 01596 32280 CONTINUE 01600 32288 CONTINUE 01601 32289 CONTINUE 01601 32342 IF(NOPGM) GO TO 32279 01603 ASSIGN 32278 TO I32745 01603 GO TO 32745 01603 32278 CONTINUE 01603 32279 CONTINUE 01608 32352 GO TO 32357 01609 32355 GO TO I32747 01610 32679 CONTINUE 01611 IF(PTABLE.EQ.0) GO TO 32277 01612 TABLCL=LISTCL 01614 ASSIGN 32276 TO I32387 01615 GO TO 32387 01615 32276 CALL PUT(0,STABH,LISTCL) 01617 CALL PUT(0,SB,LISTCL) 01618 P=PTABLE 01619 NDERR=.FALSE. 01620 NIERR=.FALSE. 01621 GO TO 32274 01622 32275 IF(P.EQ.0) GO TO 32273 01622 32274 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 32272 01625 NDERR=.TRUE. 01627 MAJCNT=MAJCNT+1 01628 32272 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 32271 01629 NIERR=.TRUE. 01631 MINCNT=MINCNT+1 01632 32271 ASSIGN 32269 TO I32270 01633 GO TO 32270 01633 32269 P=STACK(P) 01635 GO TO 32275 01636 32273 IF(.NOT.(NDERR)) GO TO 32268 01637 CALL PUT(0,SNDER1,ERRCL) 01639 CALL PUT(0,SNDER2,ERRCL) 01640 ASSIGN 32267 TO I32677 01641 GO TO 32677 01641 32267 P=PTABLE 01643 TABLCL=ERRCL 01644 GO TO 32265 01645 32266 IF(P.EQ.0) GO TO 32264 01645 32265 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 32263 01648 ASSIGN 32262 TO I32270 01648 GO TO 32270 01648 32262 CONTINUE 01648 32263 P=STACK(P) 01653 GO TO 32266 01654 32264 CONTINUE 01655 32268 IF(.NOT.(NIERR)) GO TO 32261 01656 CALL PUT(0,SNIER1,ERRCL) 01658 CALL PUT(0,SNIER2,ERRCL) 01659 ASSIGN 32260 TO I32677 01660 GO TO 32677 01660 32260 P=PTABLE 01662 TABLCL=ERRCL 01663 GO TO 32258 01664 32259 IF(P.EQ.0) GO TO 32257 01664 32258 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 32256 01667 ASSIGN 32255 TO I32270 01667 GO TO 32270 01667 32255 CONTINUE 01667 32256 P=STACK(P) 01672 GO TO 32259 01673 32257 CONTINUE 01674 32261 CONTINUE 01675 32277 GO TO I32679 01676 32270 CONTINUE 01677 CALL CPYSTR(SST,SB6) 01678 IF(.NOT.(STACK(P+2).EQ.0)) CALL PUTNUM(SST,STACK(P+2)) 01679 CALL CATSTR(SST,STACK(P+4)) 01681 CALL PUT(0,SST,TABLCL) 01682 QP=STACK(P+3) 01683 32254 IF(QP.EQ.0) GO TO 32253 01684 CALL CPYSTR(SST,SB4) 01686 I=1 01687 32252 IF(QP.EQ.0.OR.I.GT.REFNO) GO TO 32251 01688 CALL CATSTR(SST,SB2) 01690 CALL CATNUM(SST,STACK(QP+1)) 01691 I=I+1 01692 QP=STACK(QP) 01693 GO TO 32252 01694 32251 CALL PUT(0,SST,TABLCL) 01695 GO TO 32254 01696 32253 CALL PUT(0,SB,LISTCL) 01697 GO TO I32270 01698 32595 CONTINUE 01699 TOP=TOP+2 01700 STACK(TOP-1)=LINENO 01701 STACK(TOP)=AFSEQ 01702 LEVEL=LEVEL+1 01703 GO TO I32595 01704 32611 CONTINUE 01705 TOP=TOP+2 01706 STACK(TOP-1)=CONTNO 01707 STACK(TOP)=AGCONT 01708 GO TO I32611 01709 32530 CONTINUE 01710 TOP=TOP+2 01711 STACK(TOP-1)=GGOTON 01712 STACK(TOP)=AGGOTO 01713 GO TO I32530 01714 32532 CONTINUE 01715 TOP=TOP+2 01716 STACK(TOP-1)=GSTNO 01717 STACK(TOP)=AGSTNO 01718 GO TO I32532 01719 32519 CONTINUE 01720 ASSIGN 32250 TO I32517 01721 GO TO 32517 01721 32250 CALL PUTNUM(SFORCE,STNO) 01723 CALL PUT(LINENO,SFORCE,FORTCL) 01724 STNO=0 01725 GO TO I32519 01726 32587 CONTINUE 01727 IF(.NOT.(NEXTNO.EQ.0)) GO TO 32248 01728 CALL PUT(LINENO,SFLX,FORTCL) 01728 GO TO 32249 01731 32248 IF(.NOT.(FLXNO.NE.0.OR.PASS)) GO TO 32247 01731 ASSIGN 32246 TO I32517 01734 GO TO 32517 01734 32246 CALL PUT(LINENO,SFLX,FORTCL) 01736 GO TO 32249 01737 32247 CALL CPYSTR(SST,SFLX) 01738 CALL PUTNUM(SST,NEXTNO) 01739 CALL PUT(LINENO,SST,FORTCL) 01740 NEXTNO=0 01741 32249 GO TO I32587 01742 32538 CONTINUE 01743 CALL CPYSTR(SPUTGO,SGOTO) 01744 CALL CATNUM(SPUTGO,GOTONO) 01745 IF(.NOT.(NEXTNO.NE.0)) GO TO 32245 01746 CALL PUTNUM(SPUTGO,NEXTNO) 01748 NEXTNO=0 01749 32245 CALL PUT(LINENO,SPUTGO,FORTCL) 01750 GO TO I32538 01751 32618 CONTINUE 01752 IF(.NOT.(NOTFLG)) GO TO 32243 01753 CALL CPYSTR(SST,SIFPN) 01753 GO TO 32244 01753 32243 CALL CPYSTR(SST,SIF) 01757 32244 CALL CATSUB(SST,SFLX,USTART(1),ULEN(1)) 01758 IF(.NOT.(NOTFLG)) GO TO 32241 01759 CALL CATSTR(SST,SPGOTO) 01759 GO TO 32242 01759 32241 CALL CATSTR(SST,SBGOTO) 01763 32242 CALL CATNUM(SST,GOTONO) 01764 ASSIGN 32240 TO I32609 01765 GO TO 32609 01765 32240 NOTFLG=.TRUE. 01767 GO TO I32618 01768 32609 CONTINUE 01769 IF(NEXTNO.EQ.0) GO TO 32239 01770 IF(.NOT.(STNO.EQ.0)) GO TO 32237 01772 STNO=NEXTNO 01774 NEXTNO=0 01775 GO TO 32238 01776 32237 ASSIGN 32236 TO I32517 01777 GO TO 32517 01777 32236 CONTINUE 01777 32238 CONTINUE 01780 32239 IF(STNO.EQ.0) GO TO 32235 01781 CALL PUTNUM(SST,STNO) 01783 STNO=0 01784 32235 IF(.NOT.(SST(1).LE.72)) GO TO 32233 01785 CALL PUT(LINENO,SST,FORTCL) 01785 GO TO 32234 01785 32233 CALL CPYSUB (SLIST,SST,1,72) 01789 CALL PUT(LINENO,SLIST,FORTCL) 01790 S=73 01791 L=66 01792 GO TO 32231 01793 32232 IF(S.GT.SST(1)) GO TO 32230 01793 32231 IF(S+L-1.GT.SST(1)) L=SST(1)-S+1 01796 CALL CPYSTR(SLIST,SB5I1) 01798 CALL CATSUB(SLIST,SST,S,L) 01799 CALL PUT(LINENO,SLIST,FORTCL) 01800 S=S+66 01801 GO TO 32232 01802 32230 CONTINUE 01803 32234 GO TO I32609 01804 32672 CONTINUE 01805 GO TO 32228 01806 32229 IF(FOUND) GO TO 32227 01806 32228 CALL GET(LINENO,SFLX,ENDFIL) 01809 IF(.NOT.(FIRST)) GO TO 32226 01810 32225 IF(SFLX(1).GT.0.OR.ENDFIL) GO TO 32224 01812 CALL GET(LINENO,SFLX,ENDFIL) 01812 GO TO 32225 01812 32224 FIRST=.FALSE. 01816 IF(ENDFIL) NOPGM=.TRUE. 01817 32226 IF(.NOT.(ENDFIL)) GO TO 32223 01819 CALL CPYSTR(SFLX,SEND) 01821 LINENO=0 01822 32223 CALL GETCH(SFLX(2),1,CH) 01823 IF(.NOT.(SFLX(1).EQ.0)) GO TO 32221 01824 BLN=LINENO 01826 ASSIGN 32220 TO I32677 01827 GO TO 32677 01827 32220 FOUND=.FALSE. 01829 GO TO 32222 01830 32221 IF(.NOT.(CH.EQ.CHC)) GO TO 32219 01830 ASSIGN 32218 TO I32396 01833 GO TO 32396 01833 32218 FOUND=.FALSE. 01835 GO TO 32222 01836 32219 FOUND=.TRUE. 01836 32222 GO TO 32229 01838 32227 GO TO I32672 01839 32647 CONTINUE 01840 CURSOR=CURSOR-1 01841 CWD=(CURSOR-1)/NCHPWD+2 01842 CPOS=CURSOR-(CWD-2)*NCHPWD 01843 ASSIGN 32217 TO I32419 01844 GO TO 32419 01844 32217 GO TO I32647 01846 32216 CONTINUE 01847 LL=0 01848 LR=STACK(LP) 01849 32215 IF(LR.EQ.0) GO TO 32214 01850 LT=STACK(LR) 01852 STACK(LR)=LL 01853 LL=LR 01854 LR=LT 01855 GO TO 32215 01856 32214 STACK(LP)=LL 01857 GO TO I32216 01858 32631 CONTINUE 01859 IF(SAVED) GO TO 32213 01860 SAVED=.TRUE. 01862 HOLDNO=LINENO 01863 CALL CPYSTR(SHOLD,SFLX) 01864 32213 GO TO I32631 01865 32666 CONTINUE 01866 ASSIGN 32212 TO I32419 01867 GO TO 32419 01867 32212 IF(.NOT.(CHTYPE.EQ.TEOL)) GO TO 32210 01869 CONT=.FALSE. 01869 GO TO 32211 01872 32210 IF(.NOT.(CH.EQ.CHZERO.OR.CH.EQ.CHSPAC)) GO TO 32209 01872 CONT=.FALSE. 01872 GO TO 32211 01876 32209 CONT=.TRUE. 01876 32211 GO TO I32666 01878 32650 CONTINUE 01879 32208 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 32207 01880 ASSIGN 32206 TO I32419 01880 GO TO 32419 01880 32206 GO TO 32208 01880 32207 START=CURSOR 01885 IF(.NOT.(CHTYPE.NE.TLP)) GO TO 32205 01886 ERSTOP=ERSTOP+1 01888 ERRSTK(ERSTOP)=3 01889 ASSIGN 32204 TO I32631 01890 GO TO 32631 01890 32204 CALL CPYSTR(SST,SFLX) 01892 SFLX(1)=START-1 01893 CALL CATSTR(SFLX,SLP) 01894 CALL CATSUB(SFLX,SST,START,SST(1)-START-1) 01895 32205 PCNT=1 01896 FOUND=.TRUE. 01897 GO TO 32202 01898 32203 IF(PCNT.EQ.0.OR..NOT.FOUND) GO TO 32201 01898 32202 ASSIGN 32200 TO I32419 01901 GO TO 32419 01901 32200 IF((TRP).NE.(CHTYPE)) GO TO 32198 01903 PCNT=PCNT-1 01903 GO TO 32199 01906 32198 IF((TLP).NE.(CHTYPE)) GO TO 32197 01906 PCNT=PCNT+1 01906 GO TO 32199 01910 32197 IF((TEOL).NE.(CHTYPE)) GO TO 32196 01910 FOUND=.FALSE. 01910 32196 CONTINUE 01914 32199 GO TO 32203 01915 32201 IF(FOUND) GO TO 32195 01916 ERSTOP=ERSTOP+1 01918 ERRSTK(ERSTOP)=4 01919 ASSIGN 32194 TO I32631 01920 GO TO 32631 01920 32194 DO 32193 I=1,PCNT 01922 CALL CATSTR(SFLX,SRP) 01922 32193 CONTINUE 01922 CURSOR=SFLX(1) 01925 ASSIGN 32192 TO I32647 01926 GO TO 32647 01926 32192 CONTINUE 01928 32195 ASSIGN 32191 TO I32419 01929 GO TO 32419 01929 32191 NUNITS=NUNITS+1 01931 UTYPE(NUNITS)=UEXP 01932 USTART(NUNITS)=START 01933 ULEN(NUNITS)=CURSOR-START 01934 CALL CPYSUB(SST,SFLX,START,CURSOR-START) 01935 IF(STREQ(SST,SOWSE)) UTYPE(NUNITS)=UOWSE 01936 ASSIGN 32190 TO I32639 01938 GO TO 32639 01938 32190 GO TO I32650 01940 32655 CONTINUE 01941 32189 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 32188 01942 ASSIGN 32187 TO I32419 01942 GO TO 32419 01942 32187 GO TO 32189 01942 32188 IF(.NOT.(CHTYPE.NE.TEOL)) GO TO 32186 01947 ERSTOP=ERSTOP+1 01949 ERRSTK(ERSTOP)=2 01950 ASSIGN 32185 TO I32631 01951 GO TO 32631 01951 32185 SFLX(1)=CURSOR-1 01953 32186 GO TO I32655 01954 32662 CONTINUE 01955 ASSIGN 32184 TO I32419 01956 GO TO 32419 01956 32184 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 32183 01958 ASSIGN 32182 TO I32419 01958 GO TO 32419 01958 32182 GO TO 32184 01958 32183 IF((TLETTR).NE.(CHTYPE)) GO TO 32180 01963 START=CURSOR 01965 INVOKE=.FALSE. 01966 BADCH=.FALSE. 01967 GO TO 32178 01968 32179 IF(BADCH) GO TO 32177 01968 32178 ASSIGN 32176 TO I32419 01971 GO TO 32419 01971 32176 IF(.NOT.(CHTYPE.LE.TDIGIT)) GO TO 32174 01973 GO TO 32175 01975 32174 IF(.NOT.(CHTYPE.EQ.THYPHN)) GO TO 32173 01975 INVOKE=.TRUE. 01975 GO TO 32175 01979 32173 BADCH=.TRUE. 01979 32175 GO TO 32179 01981 32177 LEN=CURSOR-START 01982 IF(.NOT.(INVOKE)) GO TO 32171 01983 CLASS=TEXEC 01985 EXTYPE=TINVOK 01986 NUNITS=1 01987 UTYPE(1)=UPINV 01988 USTART(1)=START 01989 ULEN(1)=LEN 01990 GO TO 32172 01991 32171 CALL CPYSUB(SST,SFLX,START,LEN) 01992 CLASS=TEXEC 01993 EXTYPE=TFORT 01994 IF((2).NE.(SST(1))) GO TO 32169 01995 IF(.NOT.(STREQ(SST,KIF))) GO TO 32167 01997 EXTYPE=TIF 01997 GO TO 32168 02000 32167 IF(.NOT.(STREQ(SST,KTO))) GO TO 32166 02000 CLASS=TTO 02000 GO TO 32168 02004 32166 IF(.NOT.(STREQ(SST,KDO))) GO TO 32165 02004 32164 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 32163 02007 ASSIGN 32162 TO I32419 02007 GO TO 32419 02007 32162 GO TO 32164 02007 32163 IF(.NOT.(CHTYPE.EQ.TDIGIT)) GO TO 32160 02012 EXTYPE=TFORT 02012 GO TO 32161 02012 32160 EXTYPE=TDO 02016 32161 CONTINUE 02017 32165 CONTINUE 02017 32168 GO TO 32170 02019 32169 IF((3).NE.(SST(1))) GO TO 32159 02019 IF(.NOT.(STREQ(SST,KFIN))) GO TO 32157 02022 CLASS=TFIN 02022 GO TO 32158 02025 32157 IF(.NOT.(STREQ(SST,KEND))) GO TO 32156 02025 IF (CHTYPE.EQ.TEOL) CLASS=TEND 02028 32156 CONTINUE 02030 32158 GO TO 32170 02031 32159 IF((4).NE.(SST(1))) GO TO 32155 02031 IF(.NOT.(STREQ(SST,KWHEN))) GO TO 32153 02034 EXTYPE=TWHEN 02034 GO TO 32154 02037 32153 IF(.NOT.(STREQ(SST,KELSE))) GO TO 32152 02037 CLASS=TELSE 02037 32152 CONTINUE 02041 32154 GO TO 32170 02042 32155 IF((5).NE.(SST(1))) GO TO 32151 02042 IF(.NOT.(STREQ(SST,KWHILE))) GO TO 32149 02045 EXTYPE=TWHILE 02045 GO TO 32150 02048 32149 IF(.NOT.(STREQ(SST,KUNTIL))) GO TO 32148 02048 EXTYPE=TUNTIL 02048 32148 CONTINUE 02052 32150 GO TO 32170 02053 32151 IF((6).NE.(SST(1))) GO TO 32147 02053 IF(.NOT.(STREQ(SST,KREPT))) GO TO 32145 02056 32144 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 32143 02058 ASSIGN 32142 TO I32419 02058 GO TO 32419 02058 32142 GO TO 32144 02058 32143 START=CURSOR 02063 32141 IF(.NOT.(CHTYPE.EQ.TLETTR)) GO TO 32140 02064 ASSIGN 32139 TO I32419 02064 GO TO 32419 02064 32139 GO TO 32141 02064 32140 LEN=CURSOR-START 02069 CALL CPYSUB(SST,SFLX,START,LEN) 02070 IF(.NOT.(STREQ(SST,KWHILE))) GO TO 32137 02071 EXTYPE=TRWHIL 02071 GO TO 32138 02074 32137 IF(.NOT.(STREQ(SST,KUNTIL))) GO TO 32136 02074 EXTYPE=TRUNTL 02074 32136 CONTINUE 02078 32138 GO TO 32146 02079 32145 IF(.NOT.(STREQ(SST,KSELCT))) GO TO 32135 02079 EXTYPE=TSELCT 02079 GO TO 32146 02083 32135 IF(.NOT.(STREQ(SST,KUNLES))) GO TO 32134 02083 EXTYPE=TUNLES 02083 32134 CONTINUE 02087 32146 GO TO 32170 02088 32147 IF((11).NE.(SST(1))) GO TO 32133 02088 IF (STREQ(SST,KCOND)) EXTYPE=TCOND 02091 32133 CONTINUE 02093 32170 CONTINUE 02094 32172 GO TO 32181 02095 32180 IF((TLP).NE.(CHTYPE)) GO TO 32132 02095 CLASS=TCEXP 02095 GO TO 32181 02099 32132 CLASS=TEXEC 02100 EXTYPE=TFORT 02101 32181 GO TO I32662 02102 32636 CONTINUE 02103 32131 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 32130 02104 ASSIGN 32129 TO I32419 02104 GO TO 32419 02104 32129 GO TO 32131 02104 32130 FOUND=.FALSE. 02109 IF(.NOT.(CHTYPE.EQ.TLETTR)) GO TO 32128 02110 START=CURSOR 02112 GO TO 32126 02113 32127 IF(CHTYPE.GT.THYPHN) GO TO 32125 02113 32126 ASSIGN 32124 TO I32419 02116 GO TO 32419 02116 32124 IF(CHTYPE.EQ.THYPHN) FOUND=.TRUE. 02118 GO TO 32127 02120 32125 CONTINUE 02121 32128 IF(.NOT.(FOUND)) GO TO 32123 02122 NUNITS=NUNITS+1 02124 UTYPE(NUNITS)=UPINV 02125 USTART(NUNITS)=START 02126 ULEN(NUNITS)=CURSOR-START 02127 32123 GO TO I32636 02128 32639 CONTINUE 02129 32122 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 32121 02130 ASSIGN 32120 TO I32419 02130 GO TO 32419 02130 32120 GO TO 32122 02130 32121 IF(CHTYPE.EQ.TEOL) GO TO 32119 02135 CSAVE=CURSOR 02137 ASSIGN 32118 TO I32636 02138 GO TO 32636 02138 32118 IF(.NOT.(FOUND)) GO TO 32116 02140 ASSIGN 32115 TO I32655 02140 GO TO 32655 02140 32115 GO TO 32117 02140 32116 NUNITS=NUNITS+1 02145 UTYPE(NUNITS)=UFORT 02146 USTART(NUNITS)=CSAVE 02147 ULEN(NUNITS)=SFLX(1)+1-CSAVE 02148 32117 CONTINUE 02149 32119 GO TO I32639 02150 32668 CONTINUE 02151 FLXNO=0 02152 PASS=.FALSE. 02153 DO 32114 I=1,5 02154 ASSIGN 32113 TO I32419 02155 GO TO 32419 02155 32113 IF((TBLANK).NE.(CHTYPE)) GO TO 32111 02157 GO TO 32112 02159 32111 IF((TDIGIT).NE.(CHTYPE)) GO TO 32110 02159 FLXNO=FLXNO*10+CH-CHZERO 02159 GO TO 32112 02163 32110 IF((TEOL).NE.(CHTYPE)) GO TO 32109 02163 GO TO 32112 02166 32109 PASS=.TRUE. 02166 32112 CONTINUE 02168 32114 CONTINUE 02168 GO TO I32668 02170 32622 CONTINUE 02171 IF(.NOT.(FLXNO.NE.0)) GO TO 32108 02172 ASSIGN 32107 TO I32517 02174 GO TO 32517 02174 32107 NEXTNO=FLXNO 02176 FLXNO=0 02177 32108 GO TO I32622 02178 32592 CONTINUE 02179 P=MAX 02180 STACK(MAX)=0 02181 ITEMP=MAXSTK-PRIME+1 02182 DO 32106 I=ITEMP,MAXSTK 02183 IF(STACK(I).EQ.0) GO TO 32105 02184 STACK(P)=STACK(I) 02186 GO TO 32103 02187 32104 IF(STACK(P).EQ.0) GO TO 32102 02187 32103 P=STACK(P) 02190 LP=P+3 02191 ASSIGN 32101 TO I32216 02192 GO TO 32216 02192 32101 GO TO 32104 02194 32102 CONTINUE 02195 32105 CONTINUE 02196 32106 CONTINUE 02196 Q=MAX-1 02198 STACK(Q)=0 02199 32100 IF(STACK(MAX).EQ.0) GO TO 32099 02200 P=STACK(MAX) 02202 STACK(MAX)=STACK(P) 02203 QM=Q 02204 QP=STACK(QM) 02205 INSERT=.FALSE. 02206 32098 IF(INSERT) GO TO 32097 02207 IF(.NOT.(QP.EQ.0)) GO TO 32095 02209 INSERT=.TRUE. 02209 GO TO 32096 02212 32095 IF(.NOT.(STRLT(STACK(P+4),STACK(QP+4)))) GO TO 32094 02212 INSERT=.TRUE. 02212 GO TO 32096 02216 32094 QM=QP 02217 QP=STACK(QM) 02218 32096 GO TO 32098 02219 32097 STACK(P)=QP 02220 STACK(QM)=P 02221 GO TO 32100 02222 32099 PTABLE=STACK(Q) 02223 GO TO I32592 02224 END 02225