Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0124/10c.for
There are 2 other files named 10c.for in the archive. Click here to see a list.
01273 SUBROUTINE FLECS
06050 INTEGER ACSEQ , ACTION, AELSE , AFSEQ , AGCONT, AGGOTO
06100 INTEGER AGRET , AGSTNO, AMSEQ , ASSEQ , ATSEQ , BLN
06250 INTEGER CALLNO, CH , CHC , CHSPAC, CHTYP
06500 INTEGER CHTYPE, CHZERO, CLASS , CONTNO, CPOS , CSAVE
06550 INTEGER CURSOR, CWD , DUMMY , ELSNO , ENDNO , ENTNO
06600 INTEGER ERRCL , ERROR , ERRSTK, ERSTOP, ERTYPE, EXTYPE
06650 INTEGER FLXNO , FORTCL, GGOTON, GOTONO, GSTNO , HASH
06700 INTEGER HOLDNO, I , ITEMP , J , KCOND , KDO
06750 INTEGER KELSE , KEND , KFIN , KIF , KREPT , KSELCT
06800 INTEGER KTO , KUNLES, KUNTIL, KWHEN , KWHILE, L
06850 INTEGER LEN , LEVEL , LINENO, LISTCL, LL , LOOPNO
06900 INTEGER LP , LR , LSTLEV, LT , LWIDTH, MAJCNT
06950 INTEGER MAX , MAXSTK, MINCNT, MLINE , NCHPWD, NEWNO
07000 INTEGER NEXTNO, NUNITS, NXIFNO, OFFSET, OFFST2, P
07050 INTEGER PARAM1, PARAM2, PARAM3, PARAM4, PCNT , PDUMMY
07100 INTEGER PENT , PRIME , PTABLE, Q , QM , QP
07150 INTEGER READ , REFNO , RETNO , RETRY , S , SAFETY
07200 INTEGER SASSN1, SASSN2, SB , SB2 , SB4 , SB5
07250 INTEGER SB5I1 , SB6 , SB6I , SB7 , SBGOTO, SCOMMA, SCOND
07260 INTEGER SCONT
07300 INTEGER SCP , SDASH , SDOST , SDUM , SEEDNO, SELSE , SEQ
07350 INTEGER SEND , SENDER, SETUP , SFIN , SFLX , SFORCE
07400 INTEGER SFSPCR, SGOTO , SGOTOI, SGUP1 , SGUP2 , SHOLD
07410 INTEGER SGOTOP
07450 INTEGER SICOND, SIELSE, SIF , SIFIN , SIFIN2, SIFP
07500 INTEGER SIFPN , SIGN , SINSRT, SINS2 , SITODM, SIWHEN, SLIST
07550 INTEGER SLP , SMULER, SNDER1, SNDER2, SNE , SNIER1
07600 INTEGER SNIER2, SOURCE, SOWSE , SP , SPB , SPGOTO
07650 INTEGER SPINV , SPUTGO, SRP , SRTN , SSPACR, SST
07660 INTEGER SRPCI
07700 INTEGER SSTMAX, SSTOP , STABH , STACK , START , STNO
07750 INTEGER STODUM, SVER , SWHEN , SXER1 , SXER2 , SXER3
07800 INTEGER SXER4 , SXER5 , TABLCL, TBLANK, TCEXP , TCOND
07850 INTEGER TDIGIT, TDO , TELSE , TEND , TEOL , TESTNO
07900 INTEGER TEXEC , TFIN , TFORT , THYPHN, TIF , TINVOK
07950 INTEGER TLETTR, TLP , TMAX , TOP , TOPNO , TOPTYP
08000 INTEGER TOTHER, TRP , TRUNTL, TRWHIL, TSELCT, TTO
08050 INTEGER TUNLES, TUNTIL, TWHEN , TWHILE, UDO , UEXP
08100 INTEGER UFORT , ULEN , UOWSE , UPINV , USTART, UTYPE
08150 INTEGER WWIDTH
12025 LOGICAL COGOTO, FAKE , LONG
12050 LOGICAL BADCH , CONT , DONE , ENDFIL, ENDPGM, ERLST
12100 LOGICAL FIRST , FOUND , INDENT, INSERT, INVOKE, MINER
12150 LOGICAL NDERR , NIERR , NOPGM , NOTFLG, PASS , SAVED , SHORT
12200 LOGICAL STREQ , STRLT
13050 DIMENSION UTYPE(3), USTART(3), ULEN(3)
13200 DIMENSION STACK(2000)
13350 DIMENSION ERRSTK(5)
20700 COMMON /PARAM/ PARAM1, PARAM2, PARAM3, PARAM4
21601 DIMENSION SFLX (21)
21651 DIMENSION SHOLD (21)
21701 DIMENSION SLIST (41)
21751 DIMENSION SPINV (17)
21801 DIMENSION SPUTGO (5)
21851 DIMENSION SST (41)
22151 DIMENSION SASSN1 (4)
22201 DIMENSION SASSN2 (2)
22301 DIMENSION SB (2)
22401 DIMENSION SB2 (2)
22451 DIMENSION SB4 (2)
22601 DIMENSION SB5 (2)
22701 DIMENSION SB5I1 (3)
22801 DIMENSION SB6 (3)
22851 DIMENSION SB7 (3)
22921 DIMENSION SB6I (3)
22951 DIMENSION SBGOTO (3)
23001 DIMENSION SCOMMA (2)
23101 DIMENSION SCOND (5)
23161 DIMENSION SCONT (3)
23201 DIMENSION SCP (2)
23301 DIMENSION SDOST (3)
23401 DIMENSION SDASH (9)
23501 DIMENSION SDUM (4)
23601 DIMENSION SELSE (5)
23701 DIMENSION SEND (3)
23801 DIMENSION SENDER (7)
23851 DIMENSION SFIN (3)
23921 DIMENSION SEQ (2)
23951 DIMENSION SFORCE (4)
24051 DIMENSION SFSPCR (2)
24151 DIMENSION SGOTO (4)
24201 DIMENSION SGOTOI (4)
24226 DIMENSION SGOTOP (4)
24251 DIMENSION SGUP1 (13)
24301 DIMENSION SGUP2 (10)
24401 DIMENSION SICOND (12)
24501 DIMENSION SIELSE (9)
24601 DIMENSION SIF (3)
24701 DIMENSION SIFIN (9)
24751 DIMENSION SIFIN2 (4)
24851 DIMENSION SIFP (3)
24901 DIMENSION SIFPN (4)
25001 DIMENSION SIGN (10)
25051 DIMENSION SINSRT (9)
25101 DIMENSION SINS2 (4)
25151 DIMENSION SITODM (11)
25201 DIMENSION SIWHEN (9)
25301 DIMENSION SLP (2)
25401 DIMENSION SNE (2)
25501 DIMENSION SOWSE (4)
25601 DIMENSION SPB (2)
25701 DIMENSION SPGOTO (3)
25801 DIMENSION SMULER (10)
25851 DIMENSION SNDER1 (10)
25901 DIMENSION SNDER2 (10)
26001 DIMENSION SNIER1 (11)
26051 DIMENSION SNIER2 (10)
26201 DIMENSION SRP (2)
26276 DIMENSION SRPCI (2)
26301 DIMENSION SRTN (4)
26401 DIMENSION SSPACR (2)
26501 DIMENSION STABH (9)
26551 DIMENSION STODUM (6)
26701 DIMENSION SSTOP (3)
26951 DIMENSION SVER (6)
27101 DIMENSION SWHEN (6)
27351 DIMENSION SXER1 (12)
27401 DIMENSION SXER2 (12)
27451 DIMENSION SXER3 (11)
27501 DIMENSION SXER4 (7)
27551 DIMENSION SXER5 (11)
27801 DIMENSION KCOND (4)
27851 DIMENSION KDO (2)
27901 DIMENSION KELSE (2)
27951 DIMENSION KEND (2)
28001 DIMENSION KFIN (2)
28051 DIMENSION KIF (2)
28101 DIMENSION KREPT (3)
28151 DIMENSION KSELCT (3)
28201 DIMENSION KTO (2)
28251 DIMENSION KUNLES (3)
28301 DIMENSION KUNTIL (2)
28351 DIMENSION KWHEN (2)
28401 DIMENSION KWHILE (2)
30001 DATA FORTCL /1/, LISTCL /2/, ERRCL /3/
30002 DATA ACSEQ/1/, AELSE/2/, AFSEQ/3/, AGCONT/4/, AGGOTO/5/
30003 DATA AGSTNO/6/, AMSEQ/7/, AGRET/8/, ASSEQ/9/, ATSEQ/10/
30004 DATA UEXP/1/, UFORT/2/, UOWSE/3/, UPINV/4/, UDO/5/
30005 DATA TLETTR/1/, TDIGIT/2/, THYPHN/3/, TLP/4/, TRP/5/
30006 DATA TBLANK/6/, TOTHER/7/, TEOL/8/
30007 DATA TCEXP/1/, TELSE/2/, TEND/3/, TEXEC/4/, TFIN/5/, TTO/6/
30008 DATA TCOND/1/, TDO/2/, TFORT/3/, TIF/4/, TINVOK/5/, TRUNTL/6/
30009 DATA TRWHIL/7/, TSELCT/8/, TUNLES/9/, TUNTIL/10/, TWHEN/11/
30010 DATA TWHILE/12/
30011 DATA SETUP /1/, RETRY /2/, READ /3/
30012 DATA CHC /67/
30013 DATA LWIDTH /132/
30014 DATA MAXSTK /2000/
30015 DATA NCHPWD /5/
30016 DATA PRIME /53/
30017 DATA SAFETY /35/
30018 DATA SEEDNO /100000/
30019 DATA LONG /.FALSE./
30020 DATA SHORT /.TRUE./
30021 DATA FAKE /.FALSE./
30022 DATA COGOTO /.FALSE./
30023 DATA CHSPAC /32/
30024 DATA CHZERO /48/
30025 DATA SSTMAX /200/
30026 DATA SASSN1 / 13, 5H , 5H ASSI, 3HGN /
30027 DATA SASSN2 / 5, 5H TO I/
30028 DATA SB / 1, 1H /
30029 DATA SB2 / 2, 2H /
30030 DATA SB4 / 4, 4H /
30031 DATA SB5 / 5, 5H /
30032 DATA SB5I1 / 6, 5H , 1H1/
30033 DATA SB6 / 6, 5H , 1H /
30034 DATA SB7 / 7, 5H , 2H /
30035 DATA SB6I / 7, 5H , 2H I/
30036 DATA SBGOTO / 7, 5H GO T, 2HO /
30037 DATA SCOMMA / 1, 1H,/
30038 DATA SCOND / 17, 5H , 5H COND, 5HITION, 2HAL/
30039 DATA SCONT / 8, 5HCONTI, 3HNUE/
30040 DATA SCP / 2, 2H,(/
30041 DATA SDOST / 9, 5H , 4H DO /
30042 DATA SDASH / 40, 5H-----, 5H-----, 5H-----, 5H-----, 5H-----
30043 1 , 5H-----, 5H-----, 5H-----/
30044 DATA SDUM / 15, 5HDUMMY, 5H-PROC, 5HEDURE/
30045 DATA SELSE / 19, 5H , 5H ELSE, 5H CONT, 4HINUE/
30046 DATA SEND / 9, 5H , 4H END/
30047 DATA SENDER / 30, 5H*****, 5H END , 5HSTATE, 5HMENT , 5HIS MI
30048 1 , 5HSSING/
30049 DATA SFIN / 9, 5H , 4H FIN/
30050 DATA SEQ / 1, 1H=/
30051 DATA SFORCE / 14, 5H , 5H CONT, 4HINUE/
30052 DATA SFSPCR / 3, 3H.../
30053 DATA SGOTO / 12, 5H , 5H GO T, 2HO /
30054 DATA SGOTOI / 13, 5H , 5H GO T, 3HO I/
30055 DATA SGOTOP / 13, 5H , 5H GO T, 3HO (/
30056 DATA SGUP1 / 57, 5H*****, 5H TRAN, 5HSLATO, 5HR HAS, 5H USED
30057 1 , 5H UP I, 5HTS AL, 5HLOTED, 5H SPAC, 5HE FOR
30058 1 , 5H TABL, 2HES/
30059 DATA SGUP2 / 44, 5H*****, 5H TRAN, 5HSLATI, 5HON MU, 5HST TE
30060 1 , 5HRMINA, 5HTE IM, 5HMEDIA, 4HTELY/
30061 DATA SICOND / 54, 5H*****, 5H (, 5HCONDI, 5HTIONA, 5HL OR
30062 1 , 5HSELEC, 5HT IS , 5HAPPAR, 5HENTLY, 5H MISS
30063 1 , 4HING)/
30064 DATA SIELSE / 39, 5H*****, 5H (, 5HELSE , 5HNECES, 5HSARY
30065 1 , 5HTO MA, 5HTCH L, 4HINE /
30066 DATA SIF / 8, 5H , 3H IF/
30067 DATA SIFIN / 38, 5H*****, 5H (, 5HFIN N, 5HECESS, 5HARY T
30068 1 , 5HO MAT, 5HCH LI, 3HNE /
30069 DATA SIFIN2 / 14, 5HASSUM, 5HED AB, 4HOVE)/
30070 DATA SIFP / 9, 5H , 4H IF(/
30071 DATA SIFPN / 14, 5H , 5H IF(., 4HNOT./
30072 DATA SIGN / 45, 5H*****, 5H (, 5HNO CO, 5HNTROL, 5H PHRA
30073 1 , 5HSE FO, 5HR FIN, 5H TO M, 5HATCH)/
30074 DATA SINSRT / 38, 5H*****, 5H STAT, 5HEMENT, 5H(S) N, 5HEEDED
30075 1 , 5H BEFO, 5HRE LI, 3HNE /
30076 DATA SINS2 / 13, 5HASSUM, 5HED BE, 3HLOW/
30077 DATA SITODM / 50, 5H*****, 5H (, 5HONLY , 5HTO AN, 5HD END
30078 1 , 5H ARE , 5HVALID, 5H AT T, 5HHIS P, 5HOINT)/
30079 DATA SIWHEN / 39, 5H*****, 5H (, 5HWHEN , 5HTO MA, 5HTCH F
30080 1 , 5HOLLOW, 5HING E, 4HLSE)/
30081 DATA SLP / 1, 1H(/
30082 DATA SNE / 4, 4H.NE./
30083 DATA SOWSE / 11, 5H(OTHE, 5HRWISE, 1H)/
30084 DATA SPB / 2, 2H) /
30085 DATA SPGOTO / 8, 5H) GO , 3HTO /
30086 DATA SMULER / 44, 5H*****, 5H (, 5HPROCE, 5HDURE , 5HALREA
30087 1 , 5HDY DE, 5HFINED, 5H ON L, 4HINE /
30088 DATA SNDER1 / 42, 5H*****, 5H THE , 5HNEXT , 5H PROC, 5HEDURE
30089 1 , 5HS WER, 5HE INV, 5HOKED , 2HON/
30090 DATA SNDER2 / 44, 5H*****, 5H THE , 5HLINES, 5H GIVE, 5HN BUT
30091 1 , 5H WERE, 5H NEVE, 5HR DEF, 4HINED/
30092 DATA SNIER1 / 46, 5H*****, 5H THE , 5HFOLLO, 5HWING , 5HPROCE
30093 1 , 5HDURES, 5H WERE, 5H DEFI, 5HNED O, 1HN/
30094 DATA SNIER2 / 44, 5H*****, 5H THE , 5HLINES, 5H GIVE, 5HN BUT
30095 1 , 5H WERE, 5H NEVE, 5HR INV, 4HOKED/
30096 DATA SRP / 1, 1H)/
30097 DATA SRPCI / 4, 4H), I/
30098 DATA SRTN / 12, 5H , 5H RETU, 2HRN/
30099 DATA SSPACR / 3, 3H. /
30100 DATA STABH / 37, 5H , 5H PROC, 5HEDURE, 5H CROS, 5HS-REF
30101 1 , 5HERENC, 5HE TAB, 2HLE/
30102 DATA STODUM / 24, 5H , 5H TO D, 5HUMMY-, 5HPROCE, 4HDURE/
30103 DATA SSTOP / 10, 5H , 5H STOP/
30104 DATA SVER / 21, 5H(FLEC, 5HS VER, 5HSION , 5H22.35, 1H)/
30105 DATA SWHEN / 24, 5H , 5H WHEN, 5H (.TR, 5HUE.) , 4HSTOP/
30106 DATA SXER1 / 54, 5H*****, 5H (, 5HINVAL, 5HID CH, 5HARACT
30107 1 , 5HER IN, 5H STAT, 5HEMENT, 5H NUMB, 5HER FI
30108 1 , 4HELD)/
30109 DATA SXER2 / 53, 5H*****, 5H (, 5HRECOG, 5HNIZAB, 5HLE ST
30110 1 , 5HATEME, 5HNT FO, 5HLLOWE, 5HD BY , 5HGARBA
30111 1 , 3HGE)/
30112 DATA SXER3 / 50, 5H*****, 5H (, 5HLEFT , 5HPAREN, 5H DOES
30113 1 , 5H NOT , 5HFOLLO, 5HW CON, 5HTROL , 5HWORD)/
30114 DATA SXER4 / 30, 5H*****, 5H (, 5HMISSI, 5HNG RI, 5HGHT P
30115 1 , 5HAREN)/
30116 DATA SXER5 / 50, 5H*****, 5H (, 5HVALID, 5H PROC, 5HEDURE
30117 1 , 5H NAME, 5H DOES, 5H NOT , 5HFOLLO, 5HW TO)/
30118 DATA KCOND / 11, 5HCONDI, 5HTIONA, 1HL/
30119 DATA KDO / 2, 2HDO/
30120 DATA KELSE / 4, 4HELSE/
30121 DATA KEND / 3, 3HEND/
30122 DATA KFIN / 3, 3HFIN/
30123 DATA KIF / 2, 2HIF/
30124 DATA KREPT / 6, 5HREPEA, 1HT/
30125 DATA KSELCT / 6, 5HSELEC, 1HT/
30126 DATA KTO / 2, 2HTO/
30127 DATA KUNLES / 6, 5HUNLES, 1HS/
30128 DATA KUNTIL / 5, 5HUNTIL/
30129 DATA KWHEN / 4, 4HWHEN/
30130 DATA KWHILE / 5, 5HWHILE/
30350 ASSIGN 99998 TO I99999
30351 GO TO 99999
30400 99998 GO TO 99996
30401 99997 IF(DONE) GO TO 99995
30700 99996 CALLNO=CALLNO+1
30750 CALL OPENF(CALLNO,DONE,SVER)
30900 IF(DONE) GO TO 99994
30950 ENDFIL=.FALSE.
30960 MINCNT=0
30961 MAJCNT=0
30975 LINENO=0
31000 GO TO 99992
31001 99993 IF(ENDFIL) GO TO 99991
31050 99992 ASSIGN 99989 TO I99990
31051 GO TO 99990
31100 99989 ASSIGN 99987 TO I99988
31101 GO TO 99988
31150 99987 GO TO 99993
31200 99991 CALL CLOSEF(MINCNT,MAJCNT)
31300 99994 GO TO 99997
31315 99995 CALL EXIT
31700 99986 CONTINUE
31850 IF(.NOT.(SOURCE.EQ.SETUP)) GO TO 99984
31851 SOURCE=RETRY
31900 GO TO 99985
31901 99984 IF(.NOT.(ERROR.EQ.0.AND.ERSTOP.EQ.0)) GO TO 99983
31950 SOURCE=READ
32000 ASSIGN 99981 TO I99982
32001 GO TO 99982
32100 99981 GO TO 99985
32150 99983 MINER=(((ERROR.GE.5).AND.(ERROR.LE.6)).OR.
32200 1 ((ERROR.GE.13).AND.(ERROR.LE.15)))
32225 MINER=MINER.OR.((ERROR.GE.1).AND.(ERROR.LE.3))
32250 IF(.NOT.(MINER)) GO TO 99979
32251 MINCNT=MINCNT+1
32252 GO TO 99980
32300 99979 MAJCNT=MAJCNT+1
32350 99980 IF(.NOT.(ERROR.EQ.0)) GO TO 99977
32351 ERTYPE=1
32352 GO TO 99978
32500 99977 IF(.NOT.(ERROR.LE.3)) GO TO 99975
32501 ASSIGN 99973 TO I99974
32502 GO TO 99974
32550 99973 GO TO 99976
32551 99975 IF(.NOT.(ERROR.EQ.4)) GO TO 99972
32552 ASSIGN 99970 TO I99971
32553 GO TO 99971
32600 99970 GO TO 99976
32601 99972 IF(.NOT.(ERROR.LE.6)) GO TO 99969
32602 ERTYPE=3
32650 GO TO 99976
32651 99969 IF(.NOT.(ERROR.EQ.7)) GO TO 99968
32652 ASSIGN 99967 TO I99971
32653 GO TO 99971
32700 99967 GO TO 99976
32701 99968 IF(.NOT.(ERROR.EQ.8)) GO TO 99966
32702 ASSIGN 99964 TO I99965
32703 GO TO 99965
32750 99964 GO TO 99976
32751 99966 IF(.NOT.(ERROR.EQ.9)) GO TO 99963
32752 ASSIGN 99961 TO I99962
32753 GO TO 99962
32800 99961 GO TO 99976
32801 99963 IF(.NOT.(ERROR.EQ.10)) GO TO 99960
32802 ASSIGN 99958 TO I99959
32803 GO TO 99959
32850 99958 GO TO 99976
32851 99960 IF(.NOT.(ERROR.LE.12)) GO TO 99957
32852 ASSIGN 99956 TO I99974
32853 GO TO 99974
32900 99956 GO TO 99976
32901 99957 IF(.NOT.(ERROR.LE.15)) GO TO 99955
32902 ASSIGN 99954 TO I99974
32903 GO TO 99974
32950 99954 GO TO 99976
32951 99955 IF(.NOT.(ERROR.EQ.16)) GO TO 99953
32952 ASSIGN 99952 TO I99971
32953 GO TO 99971
33000 99952 GO TO 99976
33001 99953 IF(.NOT.(ERROR.EQ.17)) GO TO 99951
33002 ASSIGN 99949 TO I99950
33003 GO TO 99950
33050 99949 GO TO 99976
33051 99951 IF(.NOT.(ERROR.EQ.18)) GO TO 99948
33052 ASSIGN 99947 TO I99962
33053 GO TO 99962
33100 99947 GO TO 99976
33101 99948 IF(.NOT.(ERROR.LE.19)) GO TO 99946
33102 ASSIGN 99945 TO I99950
33103 GO TO 99950
33150 99945 GO TO 99976
33151 99946 IF(.NOT.(ERROR.EQ.20)) GO TO 99944
33152 ASSIGN 99943 TO I99971
33153 GO TO 99971
33200 99943 GO TO 99976
33201 99944 IF(.NOT.(ERROR.EQ.21)) GO TO 99942
33202 ASSIGN 99941 TO I99962
33203 GO TO 99962
33250 99941 GO TO 99976
33251 99942 IF(.NOT.(ERROR.LE.23)) GO TO 99940
33252 ASSIGN 99939 TO I99974
33253 GO TO 99974
33300 99939 GO TO 99976
33301 99940 IF(.NOT.(ERROR.EQ.24)) GO TO 99938
33302 ASSIGN 99937 TO I99971
33303 GO TO 99971
33350 99937 GO TO 99976
33351 99938 IF(.NOT.(ERROR.EQ.25)) GO TO 99936
33352 ERTYPE=4
33400 GO TO 99976
33401 99936 IF(.NOT.(ERROR.EQ.26)) GO TO 99935
33402 ERTYPE=5
33450 99935 CONTINUE
33500 99976 CONTINUE
33550 99978 SOURCE=READ
33650 IF((1).NE.(ERTYPE)) GO TO 99933
33700 CALL PUT(-LINENO,SHOLD,ERRCL)
33750 DO 99932 I=1,ERSTOP
33850 IF((1).NE.(ERRSTK(I))) GO TO 99930
33851 CALL PUT(0,SXER1,ERRCL)
33900 GO TO 99931
33901 99930 IF((2).NE.(ERRSTK(I))) GO TO 99929
33902 CALL PUT(0,SXER2,ERRCL)
33950 GO TO 99931
33951 99929 IF((3).NE.(ERRSTK(I))) GO TO 99928
33952 CALL PUT(0,SXER3,ERRCL)
34000 GO TO 99931
34001 99928 IF((4).NE.(ERRSTK(I))) GO TO 99927
34002 CALL PUT(0,SXER4,ERRCL)
34050 GO TO 99931
34051 99927 IF((5).NE.(ERRSTK(I))) GO TO 99926
34052 CALL PUT(0,SXER5,ERRCL)
34100 99926 CONTINUE
34150 99931 CONTINUE
34151 99932 CONTINUE
34250 GO TO 99934
34251 99933 IF((2).NE.(ERTYPE)) GO TO 99925
34252 SOURCE=SETUP
34300 GO TO 99934
34301 99925 IF((3).NE.(ERTYPE)) GO TO 99924
34350 CALL PUT(-LINENO,SFLX,ERRCL)
34400 CALL PUT(0,SIGN,ERRCL)
34500 GO TO 99934
34501 99924 IF((4).NE.(ERTYPE)) GO TO 99923
34502 CALL PUT(0,SENDER,ERRCL)
34550 GO TO 99934
34551 99923 IF((5).NE.(ERTYPE)) GO TO 99922
34600 CALL PUT(LINENO,SFLX,ERRCL)
34650 CALL CPYSTR(SST,SMULER)
34700 CALL CATNUM(SST,MLINE)
34750 CALL CATSTR(SST,SRP)
34800 CALL PUT(0,SST,ERRCL)
34900 99922 CONTINUE
35000 99934 CONTINUE
35050 99985 IF(.NOT.(ENDPGM)) GO TO 99921
35100 ASSIGN 99919 TO I99920
35101 GO TO 99920
35150 99919 ASSIGN 99917 TO I99918
35151 GO TO 99918
35200 99917 CALL PUT(0,SVER,LISTCL)
35350 99921 GO TO I99986
35750 99916 CONTINUE
35900 IF((READ).NE.(SOURCE)) GO TO 99914
35901 ASSIGN 99912 TO I99913
35902 GO TO 99913
35950 99912 GO TO 99915
35951 99914 IF((SETUP).NE.(SOURCE)) GO TO 99911
36000 GO TO 99915
36001 99911 IF((RETRY).NE.(SOURCE)) GO TO 99910
36050 LINENO=HOLDNO
36100 CALL CPYSTR(SFLX,SHOLD)
36200 99910 CONTINUE
36250 99915 ERROR=0
36300 SAVED=.FALSE.
36350 NUNITS=0
36400 ERSTOP=0
36450 CURSOR=0
36500 CWD=2
36550 CPOS=0
36600 CLASS=0
36650 ASSIGN 99908 TO I99909
36651 GO TO 99909
36700 99908 ASSIGN 99906 TO I99907
36701 GO TO 99907
36750 99906 IF(.NOT.(CONT.OR.PASS)) GO TO 99904
36800 CLASS=TEXEC
36850 EXTYPE=TFORT
36900 GO TO 99905
36950 99904 ASSIGN 99902 TO I99903
36951 GO TO 99903
36952 99902 CONTINUE
37050 99905 IF((TEXEC).NE.(CLASS)) GO TO 99900
37150 IF((TFORT).NE.(EXTYPE)) GO TO 99898
37200 GO TO 99899
37201 99898 IF((TINVOK).NE.(EXTYPE)) GO TO 99897
37202 ASSIGN 99895 TO I99896
37203 GO TO 99896
37250 99895 GO TO 99899
37251 99897 IF((TCOND).NE.(EXTYPE)) GO TO 99894
37252 ASSIGN 99893 TO I99896
37253 GO TO 99896
37300 99893 GO TO 99899
37301 99894 IF((TSELCT).NE.(EXTYPE)) GO TO 99892
37350 ASSIGN 99890 TO I99891
37351 GO TO 99891
37400 99890 IF(.NOT.(NUNITS.GT.1)) GO TO 99889
37450 NUNITS=1
37500 CURSOR=USTART(2)
37550 ASSIGN 99887 TO I99888
37551 GO TO 99888
37600 99887 ASSIGN 99886 TO I99896
37601 GO TO 99896
37650 99886 CONTINUE
37750 99889 GO TO 99899
37751 99892 ASSIGN 99885 TO I99891
37752 GO TO 99891
37800 99885 CONTINUE
37900 99899 GO TO 99901
37901 99900 IF((TFIN).NE.(CLASS)) GO TO 99884
37902 ASSIGN 99883 TO I99896
37903 GO TO 99896
37950 99883 GO TO 99901
37951 99884 IF((TEND).NE.(CLASS)) GO TO 99882
38000 GO TO 99901
38001 99882 IF((TELSE).NE.(CLASS)) GO TO 99881
38002 ASSIGN 99879 TO I99880
38003 GO TO 99880
38050 99879 GO TO 99901
38051 99881 IF((TTO).NE.(CLASS)) GO TO 99878
38100 CSAVE=CURSOR
38150 ASSIGN 99876 TO I99877
38151 GO TO 99877
38200 99876 IF(.NOT.(FOUND)) GO TO 99874
38201 ASSIGN 99873 TO I99880
38202 GO TO 99880
38203 99873 GO TO 99875
38300 99874 ERSTOP=ERSTOP+1
38350 ERRSTK(ERSTOP)=5
38400 ASSIGN 99871 TO I99872
38401 GO TO 99872
38450 99871 SFLX(1)=CSAVE
38500 CALL CATSTR(SFLX,SDUM)
38550 CURSOR=CSAVE
38600 ASSIGN 99870 TO I99888
38601 GO TO 99888
38650 99870 ASSIGN 99869 TO I99877
38651 GO TO 99877
38700 99869 CONTINUE
38800 99875 GO TO 99901
38801 99878 IF((TCEXP).NE.(CLASS)) GO TO 99868
38802 ASSIGN 99867 TO I99891
38803 GO TO 99891
38850 99867 CONTINUE
38851 99868 CONTINUE
38900 99901 IF(ERSTOP.GT.0) CLASS=0
38950 LSTLEV=LEVEL
39050 GO TO I99916
39150 99866 CONTINUE
39200 ASSIGN 99864 TO I99865
39201 GO TO 99865
39250 99864 ASSIGN 99862 TO I99863
39251 GO TO 99863
39300 99862 IF(.NOT.(UTYPE(1).EQ.UEXP)) GO TO 99860
39350 GOTONO=NEWNO(0)
39400 STACK(TOP-2)=GOTONO
39450 ASSIGN 99858 TO I99859
39451 GO TO 99859
39500 99858 GO TO 99861
39550 99860 STACK(TOP-2)=0
39822 99861 ASSIGN 99856 TO I99857
39823 GO TO 99857
39850 99856 GO TO I99866
39900 99855 CONTINUE
39950 TOP=TOP+4
40000 STACK(TOP)=ACSEQ
40050 STACK(TOP-1)=LINENO
40100 STACK(TOP-2)=0
40150 STACK(TOP-3)=0
40200 LEVEL=LEVEL+1
40250 ASSIGN 99854 TO I99863
40251 GO TO 99863
40300 99854 GO TO I99855
40350 99853 CONTINUE
40400 CONTNO=NEWNO(0)
40450 ASSIGN 99851 TO I99852
40451 GO TO 99852
40500 99851 CALL CPYSTR(SST,SDOST)
40550 CALL CATNUM(SST,CONTNO)
40600 CALL CATSTR(SST,SB)
40650 CALL CATSUB(SST,SFLX,USTART(1)+1,ULEN(1)-2)
40700 STNO=FLXNO
40750 FLXNO=0
40800 ASSIGN 99849 TO I99850
40801 GO TO 99850
40850 99849 ASSIGN 99848 TO I99857
40851 GO TO 99857
40900 99848 GO TO I99853
40950 99847 CONTINUE
41000 TOP=TOP-2
41050 ASSIGN 99846 TO I99863
41051 GO TO 99863
41100 99846 IF(.NOT.(NUNITS.EQ.1)) GO TO 99844
41150 IF(.NOT.(UTYPE(1).EQ.UPINV)) GO TO 99842
41151 ASSIGN 99840 TO I99841
41152 GO TO 99841
41153 99840 GO TO 99843
41204 99842 CALL CPYSUB(SST,SFLX,USTART(1),ULEN(1))
41205 IF(STREQ(SST,SCONT)) GO TO 99839
41206 ASSIGN 99837 TO I99838
41207 GO TO 99838
41208 99837 CONTINUE
41209 99839 CONTINUE
41250 99843 GO TO 99845
41300 99844 ASSIGN 99835 TO I99836
41301 GO TO 99836
41302 99835 CONTINUE
41350 99845 GO TO I99847
41400 99834 CONTINUE
41450 ASSIGN 99832 TO I99833
41451 GO TO 99833
41500 99832 IF(.NOT.(LONG.OR.COGOTO)) GO TO 99831
41501 ASSIGN 99829 TO I99830
41502 GO TO 99830
41503 99829 CONTINUE
41800 99831 ASSIGN 99827 TO I99828
41801 GO TO 99828
41900 99827 IF (ENDFIL) ERROR=25
41950 ENDPGM=.TRUE.
42000 GO TO I99834
42050 99826 CONTINUE
42150 IF((TFORT).NE.(EXTYPE)) GO TO 99824
42151 ASSIGN 99823 TO I99828
42152 GO TO 99828
42200 99823 GO TO 99825
42201 99824 IF((TIF).NE.(EXTYPE)) GO TO 99822
42202 ASSIGN 99820 TO I99821
42203 GO TO 99821
42250 99820 GO TO 99825
42251 99822 IF((TUNLES).NE.(EXTYPE)) GO TO 99819
42252 ASSIGN 99817 TO I99818
42253 GO TO 99818
42300 99817 GO TO 99825
42301 99819 IF((TWHEN).NE.(EXTYPE)) GO TO 99816
42302 ASSIGN 99814 TO I99815
42303 GO TO 99815
42350 99814 GO TO 99825
42351 99816 IF((TWHILE).NE.(EXTYPE)) GO TO 99813
42352 ASSIGN 99811 TO I99812
42353 GO TO 99812
42400 99811 GO TO 99825
42401 99813 IF((TUNTIL).NE.(EXTYPE)) GO TO 99810
42402 ASSIGN 99808 TO I99809
42403 GO TO 99809
42450 99808 GO TO 99825
42451 99810 IF((TRWHIL).NE.(EXTYPE)) GO TO 99807
42452 ASSIGN 99805 TO I99806
42453 GO TO 99806
42500 99805 GO TO 99825
42501 99807 IF((TRUNTL).NE.(EXTYPE)) GO TO 99804
42502 ASSIGN 99802 TO I99803
42503 GO TO 99803
42550 99802 GO TO 99825
42551 99804 IF((TINVOK).NE.(EXTYPE)) GO TO 99801
42552 ASSIGN 99800 TO I99841
42553 GO TO 99841
42600 99800 GO TO 99825
42601 99801 IF((TCOND).NE.(EXTYPE)) GO TO 99799
42602 ASSIGN 99798 TO I99855
42603 GO TO 99855
42650 99798 GO TO 99825
42651 99799 IF((TSELCT).NE.(EXTYPE)) GO TO 99797
42652 ASSIGN 99795 TO I99796
42653 GO TO 99796
42700 99795 GO TO 99825
42701 99797 IF((TDO).NE.(EXTYPE)) GO TO 99794
42702 ASSIGN 99793 TO I99853
42703 GO TO 99853
42750 99793 CONTINUE
42751 99794 CONTINUE
42800 99825 GO TO I99826
42850 99838 CONTINUE
42900 STNO=FLXNO
42950 CALL CPYSTR(SST,SB6)
43000 IF(.NOT.(UTYPE(1).EQ.UFORT)) GO TO 99791
43001 J=1
43002 GO TO 99792
43050 99791 J=2
43100 99792 CALL CATSUB(SST,SFLX,USTART(J),ULEN(J))
43150 ASSIGN 99790 TO I99850
43151 GO TO 99850
43200 99790 GO TO I99838
43250 99821 CONTINUE
43300 IF(.NOT.(NUNITS.EQ.2.AND.UTYPE(2).EQ.UFORT)) GO TO 99788
43301 ASSIGN 99787 TO I99828
43302 GO TO 99828
43303 99787 GO TO 99789
43350 99788 ASSIGN 99785 TO I99786
43351 GO TO 99786
43352 99785 CONTINUE
43400 99789 GO TO I99821
43450 99841 CONTINUE
43500 ASSIGN 99783 TO I99784
43501 GO TO 99784
43550 99783 ENTNO=STACK(PENT+1)
43600 RETNO=NEWNO(0)
43650 MAX=MAX-(1+OFFSET)
43700 STACK(MAX+1)=STACK(PENT+3)
43750 STACK(PENT+3)=MAX+1
43800 STACK(MAX+2)=LINENO
43850 IF (LONG.OR.COGOTO) STACK(MAX+3)=RETNO
43852 IF(.NOT.(COGOTO)) GO TO 99781
43854 STACK(PENT-2)=STACK(PENT-2)+1
43856 CALL CPYSTR(SST,SB6I)
43858 CALL CATNUM(SST,ENTNO)
43860 CALL CATSTR(SST,SEQ)
43862 CALL CATNUM(SST,STACK(PENT-2))
43864 GO TO 99782
43900 99781 CALL CPYSTR(SST,SASSN1)
43950 CALL CATNUM(SST,RETNO)
44000 CALL CATSTR(SST,SASSN2)
44050 CALL CATNUM(SST,ENTNO)
44100 99782 STNO=FLXNO
44150 ASSIGN 99780 TO I99850
44151 GO TO 99850
44200 99780 GOTONO=ENTNO
44250 ASSIGN 99778 TO I99779
44251 GO TO 99779
44300 99778 NEXTNO=RETNO
44350 GO TO I99841
44400 99803 CONTINUE
44450 NOTFLG=.FALSE.
44500 ASSIGN 99777 TO I99806
44501 GO TO 99806
44550 99777 GO TO I99803
44600 99806 CONTINUE
44650 ASSIGN 99776 TO I99863
44651 GO TO 99863
44700 99776 TESTNO=NEWNO(0)
44750 TOPNO=NEWNO(0)
44800 ENDNO=NEWNO(0)
44850 GOTONO=TOPNO
44900 ASSIGN 99775 TO I99779
44901 GO TO 99779
44950 99775 STNO=TESTNO
45000 GOTONO=ENDNO
45050 ASSIGN 99774 TO I99859
45051 GO TO 99859
45100 99774 GSTNO=ENDNO
45150 ASSIGN 99772 TO I99773
45151 GO TO 99773
45200 99772 GGOTON=TESTNO
45250 ASSIGN 99770 TO I99771
45251 GO TO 99771
45300 99770 NEXTNO=TOPNO
45350 ASSIGN 99769 TO I99857
45351 GO TO 99857
45400 99769 GO TO I99806
45450 99796 CONTINUE
45500 ASSIGN 99768 TO I99863
45501 GO TO 99863
45550 99768 LEVEL=LEVEL+1
45600 L=(ULEN(1)-1)/NCHPWD+6
45650 TOP=TOP+L+1
45700 IF(.NOT.(TOP+SAFETY.LT.MAX)) GO TO 99766
45750 STACK(TOP)=ASSEQ
45800 STACK(TOP-1)=LINENO
45850 STACK(TOP-2)=0
45900 STACK(TOP-3)=0
45950 STACK(TOP-4)=L
46000 STACK(TOP-L)=0
46050 CALL CATSUB(STACK(TOP-L),SFLX,USTART(1),ULEN(1))
46100 GO TO 99767
46150 99766 ASSIGN 99764 TO I99765
46151 GO TO 99765
46152 99764 CONTINUE
46200 99767 GO TO I99796
46250 99763 CONTINUE
46300 LEVEL=LEVEL-1
46350 ASSIGN 99762 TO I99863
46351 GO TO 99863
46400 99762 STNO=STACK(TOP-2)
46450 IF(STNO.EQ.0) GO TO 99761
46451 ASSIGN 99759 TO I99760
46452 GO TO 99760
46453 99759 CONTINUE
46500 99761 ASSIGN 99757 TO I99758
46501 GO TO 99758
46550 99757 NEXTNO=STACK(TOP-3)
46600 ASSIGN 99755 TO I99756
46601 GO TO 99756
46650 99755 GO TO I99763
46700 99754 CONTINUE
46750 ASSIGN 99753 TO I99865
46751 GO TO 99865
46800 99753 ASSIGN 99752 TO I99863
46801 GO TO 99863
46850 99752 IF(.NOT.(UTYPE(1).EQ.UEXP)) GO TO 99750
46900 CALL CPYSTR(SST,SIFP)
46950 CALL CATSUB(SST,SFLX,USTART(1),ULEN(1))
47000 CALL CATSTR(SST,SNE)
47050 I=STACK(TOP-4)
47100 CALL CATSTR(SST,STACK(TOP-I))
47150 CALL CATSTR(SST,SPGOTO)
47200 NXIFNO=NEWNO(0)
47250 STACK(TOP-2)=NXIFNO
47300 CALL CATNUM(SST,NXIFNO)
47350 STNO=0
47400 ASSIGN 99749 TO I99850
47401 GO TO 99850
47450 99749 GO TO 99751
47500 99750 STACK(TOP-2)=0
47550 99751 ASSIGN 99748 TO I99857
47551 GO TO 99857
47600 99748 GO TO I99754
47650 99747 CONTINUE
47700 ASSIGN 99746 TO I99863
47701 GO TO 99863
47750 99746 LEVEL=LEVEL-1
47800 TOP=TOP-2
47850 GO TO I99747
47900 99745 CONTINUE
47950 ASSIGN 99744 TO I99784
47951 GO TO 99784
48000 99744 IF(.NOT.(STACK(PENT+2).NE.0)) GO TO 99742
48050 ERROR=26
48100 MLINE=STACK(PENT+2)
48150 ENTNO=NEWNO(0)
48200 GO TO 99743
48300 99742 ENTNO=STACK(PENT+1)
48350 STACK(PENT+2)=LINENO
48450 99743 ASSIGN 99741 TO I99863
48451 GO TO 99863
48500 99741 ASSIGN 99740 TO I99758
48501 GO TO 99758
48550 99740 NEXTNO=ENTNO
48570 ASSIGN 99739 TO I99758
48571 GO TO 99758
48600 99739 TOP=TOP+2
48650 STACK(TOP)=AGRET
48700 IF(.NOT.(SHORT.OR.FAKE)) GO TO 99737
48701 STACK(TOP-1)=ENTNO
48702 GO TO 99738
48750 99737 STACK(TOP-1)=STACK(PENT-1)
48800 99738 UTYPE(1)=0
48850 ASSIGN 99736 TO I99857
48851 GO TO 99857
48900 99736 GO TO I99745
48950 99818 CONTINUE
49000 IF(.NOT.(NUNITS.EQ.2.AND.UTYPE(2).EQ.UFORT)) GO TO 99734
49050 CALL CPYSTR(SST,SIFPN)
49100 CALL CATSUB(SST,SFLX,USTART(1),ULEN(1))
49150 CALL CATSTR(SST,SPB)
49200 CALL CATSUB(SST,SFLX,USTART(2),ULEN(2))
49250 STNO=FLXNO
49300 ASSIGN 99733 TO I99850
49301 GO TO 99850
49350 99733 GO TO 99735
49450 99734 NOTFLG=.FALSE.
49500 ASSIGN 99732 TO I99786
49501 GO TO 99786
49550 99732 CONTINUE
49600 99735 GO TO I99818
49650 99809 CONTINUE
49700 NOTFLG=.FALSE.
49750 ASSIGN 99731 TO I99812
49751 GO TO 99812
49800 99731 GO TO I99809
49850 99815 CONTINUE
49900 ENDNO=NEWNO(0)
49950 ELSNO=NEWNO(0)
50000 GSTNO=ENDNO
50050 ASSIGN 99730 TO I99773
50051 GO TO 99773
50100 99730 TOP=TOP+2
50150 STACK(TOP-1)=LINENO
50200 STACK(TOP)=AELSE
50250 GSTNO=ELSNO
50300 ASSIGN 99729 TO I99773
50301 GO TO 99773
50350 99729 GGOTON=ENDNO
50400 ASSIGN 99728 TO I99771
50401 GO TO 99771
50450 99728 GOTONO=ELSNO
50500 STNO=FLXNO
50550 FLXNO=0
50600 ASSIGN 99727 TO I99859
50601 GO TO 99859
50650 99727 ASSIGN 99726 TO I99857
50651 GO TO 99857
50700 99726 GO TO I99815
50750 99812 CONTINUE
50850 IF(.NOT.(FLXNO.NE.0)) GO TO 99724
50900 LOOPNO=FLXNO
50950 FLXNO=0
51050 GO TO 99725
51051 99724 IF(.NOT.(NEXTNO.NE.0)) GO TO 99723
51100 LOOPNO=NEXTNO
51150 NEXTNO=0
51250 GO TO 99725
51300 99723 LOOPNO=NEWNO(0)
51450 99725 ENDNO=NEWNO(0)
51500 GSTNO=ENDNO
51550 ASSIGN 99722 TO I99773
51551 GO TO 99773
51600 99722 GGOTON=LOOPNO
51650 ASSIGN 99721 TO I99771
51651 GO TO 99771
51700 99721 GOTONO=ENDNO
51750 STNO=LOOPNO
51800 ASSIGN 99720 TO I99859
51801 GO TO 99859
51850 99720 ASSIGN 99719 TO I99857
51851 GO TO 99857
51900 99719 GO TO I99812
51950 99857 CONTINUE
52050 IF(.NOT.(NUNITS.EQ.1)) GO TO 99717
52051 ASSIGN 99716 TO I99836
52052 GO TO 99836
52100 99716 GO TO 99718
52101 99717 IF(.NOT.(UTYPE(2).EQ.UPINV)) GO TO 99715
52102 ASSIGN 99714 TO I99841
52103 GO TO 99841
52170 99714 GO TO 99718
52171 99715 CALL CPYSUB(SST,SFLX,USTART(2),ULEN(2))
52172 IF(STREQ(SST,SCONT)) GO TO 99713
52173 ASSIGN 99712 TO I99838
52174 GO TO 99838
52175 99712 CONTINUE
52200 99713 CONTINUE
52250 99718 GO TO I99857
52300 99784 CONTINUE
52350 IF(.NOT.(UTYPE(1).EQ.UPINV)) GO TO 99710
52351 J=1
52352 GO TO 99711
52400 99710 J=2
52450 99711 CALL CPYSUB(SPINV,SFLX,USTART(J),ULEN(J))
52500 IF(.NOT.(STREQ(SPINV,SDUM))) GO TO 99708
52550 PENT=PDUMMY
52600 STACK(PENT+2)=0
52650 GO TO 99709
52750 99708 P=MAXSTK-HASH(SPINV,PRIME)
52800 FOUND=.FALSE.
52850 IF(STACK(P).EQ.0) GO TO 99707
52900 GO TO 99705
52901 99706 IF(STACK(P).EQ.0.OR.FOUND) GO TO 99704
52950 99705 P=STACK(P)
53000 IF (STREQ(SPINV,STACK(P+4))) FOUND=.TRUE.
53050 GO TO 99706
53100 99704 CONTINUE
53150 99707 IF(.NOT.(FOUND)) GO TO 99702
53151 PENT=P
53152 GO TO 99703
53250 99702 TMAX=MAX-(4+OFFST2+(SPINV(1)+NCHPWD-1)/NCHPWD)
53300 IF(.NOT.(TMAX.LE.TOP+SAFETY)) GO TO 99700
53350 PENT=PDUMMY
53400 STACK(PENT+2)=0
53450 GO TO 99701
53550 99700 MAX=TMAX
53600 PENT=MAX+OFFST2
53650 IF (LONG.OR.COGOTO) STACK(PENT-1)=NEWNO(0)
53652 IF (COGOTO) STACK(PENT-2)=0
53700 STACK(PENT)=0
53750 STACK(P)=PENT
53800 STACK(PENT+1)=NEWNO(0)
53850 STACK(PENT+2)=0
53900 STACK(PENT+3)=0
53950 CALL CPYSTR(STACK(PENT+4),SPINV)
54050 99701 CONTINUE
54100 99703 CONTINUE
54150 99709 GO TO I99784
54200 99786 CONTINUE
54250 GOTONO=NEWNO(0)
54300 STNO=FLXNO
54325 FLXNO=0
54350 ASSIGN 99699 TO I99859
54351 GO TO 99859
54400 99699 GSTNO=GOTONO
54450 ASSIGN 99698 TO I99773
54451 GO TO 99773
54500 99698 ASSIGN 99697 TO I99857
54501 GO TO 99857
54550 99697 GO TO I99786
54600 99758 CONTINUE
54650 IF(.NOT.(NEXTNO.NE.0)) GO TO 99696
54700 CALL PUTNUM(SFORCE,NEXTNO)
54750 CALL PUT(LINENO,SFORCE,FORTCL)
54800 NEXTNO=0
54900 99696 GO TO I99758
54950 99865 CONTINUE
55000 ENDNO=STACK(TOP-3)
55050 IF(.NOT.(ENDNO.EQ.0)) GO TO 99694
55100 STACK(TOP-3)=NEWNO(0)
55150 GO TO 99695
55250 99694 GOTONO=ENDNO
55300 ASSIGN 99693 TO I99779
55301 GO TO 99779
55350 99693 CONTINUE
55450 99695 IF(.NOT.(NEXTNO.EQ.0)) GO TO 99691
55451 NEXTNO=STACK(TOP-2)
55500 GO TO 99692
55501 99691 IF(.NOT.(STACK(TOP-2).EQ.0)) GO TO 99690
55550 GO TO 99692
55600 99690 ASSIGN 99689 TO I99758
55601 GO TO 99758
55650 99689 NEXTNO=STACK(TOP-2)
55800 99692 GO TO I99865
56150 99688 CONTINUE
56200 STNO=STACK(TOP-1)
56250 ASSIGN 99687 TO I99760
56251 GO TO 99760
56300 99687 TOP=TOP-2
56350 GO TO I99688
56400 99686 CONTINUE
56450 GOTONO=STACK(TOP-1)
56500 ASSIGN 99685 TO I99779
56501 GO TO 99779
56550 99685 TOP=TOP-2
56600 GO TO I99686
56650 99830 CONTINUE
56700 P=PTABLE
56750 99684 IF(P.EQ.0) GO TO 99683
56800 IF(.NOT.(STACK(P+2).NE.0)) GO TO 99681
56825 IF(.NOT.(LONG)) GO TO 99679
56850 CALL CPYSTR(SST,SGOTOI)
56900 CALL CATNUM(SST,STACK(P+1))
56950 CALL CATSTR(SST,SCP)
56960 GO TO 99680
56970 99679 CALL CPYSTR(SST,SGOTOP)
57000 99680 Q=STACK(P+3)
57050 STNO=STACK(P-1)
57100 IF(.NOT.(Q.EQ.0)) GO TO 99677
57101 CALL CATNUM(SST,STACK(P+1))
57102 GO TO 99678
57200 99677 GO TO 99675
57201 99676 IF(Q.EQ.0) GO TO 99674
57250 99675 IF(.NOT.(SST(1).GT.SSTMAX-6)) GO TO 99673
57300 ASSIGN 99672 TO I99850
57301 GO TO 99850
57350 99672 CALL CPYSTR(SST,SB5I1)
57450 99673 CALL CATNUM(SST,STACK(Q+2))
57500 CALL CATSTR(SST,SCOMMA)
57550 Q=STACK(Q)
57600 GO TO 99676
57650 99674 SST(1)=SST(1)-1
57750 99678 IF(.NOT.(LONG)) GO TO 99670
57751 CALL CATSTR(SST,SRP)
57752 GO TO 99671
57762 99670 IF(.NOT.(SST(1).GT.SSTMAX-9)) GO TO 99669
57764 ASSIGN 99668 TO I99850
57765 GO TO 99850
57766 99668 CALL CPYSTR(SST,SB5I1)
57770 99669 CALL CATSTR(SST,SRPCI)
57780 CALL CATNUM(SST,STACK(P+1))
57800 99671 ASSIGN 99667 TO I99850
57801 GO TO 99850
57850 99667 GO TO 99682
57950 99681 CALL CPYSTR(SST,SSTOP)
58000 STNO=STACK(P+1)
58050 ASSIGN 99666 TO I99850
58051 GO TO 99850
58100 99666 CONTINUE
58150 99682 P=STACK(P)
58200 GO TO 99684
58250 99683 GO TO I99830
58300 99665 CONTINUE
58350 STNO=0
58400 CALL CPYSTR(SST,SGOTOI)
58450 IF (LONG.OR.COGOTO) SST(1)=SST(1)-1
58500 CALL CATNUM(SST,STACK(TOP-1))
58530 IF(.NOT.(FAKE)) GO TO 99664
58532 CALL CATSTR(SST,SCP)
58534 CALL CATNUM(SST,STACK(TOP-1))
58536 CALL CATSTR(SST,SRP)
58550 99664 ASSIGN 99663 TO I99850
58551 GO TO 99850
58600 99663 TOP=TOP-2
58650 GO TO I99665
58700 99662 CONTINUE
58750 ASSIGN 99661 TO I99758
58751 GO TO 99758
58800 99661 NEXTNO=STACK(TOP-1)
58850 TOP=TOP-2
58900 GO TO I99662
59000 99660 CONTINUE
59050 CURSOR=CURSOR+1
59100 CPOS=CPOS+1
59150 IF(.NOT.(CPOS.GT.NCHPWD)) GO TO 99659
59200 CWD=CWD+1
59250 CPOS=1
59350 99659 IF(.NOT.(CURSOR.GT.SFLX(1))) GO TO 99657
59351 CHTYPE=TEOL
59352 GO TO 99658
59450 99657 CALL GETCH(SFLX(CWD),CPOS,CH)
59500 CHTYPE=CHTYP(CH)
59600 99658 GO TO I99660
59700 99765 CONTINUE
59750 CALL PUT(0,SGUP1,ERRCL)
59800 CALL PUT(0,SGUP2,ERRCL)
59850 CALL CLOSEF(MINCNT,-1)
60200 IF (.TRUE.) CALL EXIT
60350 GO TO I99765
60450 99950 CONTINUE
60500 ASSIGN 99655 TO I99656
60501 GO TO 99656
60550 99655 CALL CPYSTR(SFLX,SCOND)
60600 CALL PUT(0,SICOND,ERRCL)
60650 GO TO I99950
60700 99971 CONTINUE
60750 ASSIGN 99654 TO I99656
60751 GO TO 99656
60800 99654 CALL CPYSTR(SFLX,SELSE)
60850 CALL CPYSTR(SLIST,SIELSE)
60900 CALL CATNUM(SLIST,STACK(TOP-1))
60950 CALL CATSTR(SLIST,SRP)
61000 CALL PUT(0,SLIST,ERRCL)
61050 GO TO I99971
61100 99974 CONTINUE
61150 ASSIGN 99653 TO I99656
61151 GO TO 99656
61200 99653 CALL CPYSTR(SFLX,SFIN)
61250 CALL CPYSTR(SLIST,SIFIN)
61300 IF(.NOT.(STACK(TOP-1).EQ.0)) GO TO 99651
61301 CALL CATSTR(SLIST,SIFIN2)
61302 GO TO 99652
61400 99651 CALL CATNUM(SLIST,STACK(TOP-1))
61450 CALL CATSTR(SLIST,SRP)
61550 99652 CALL PUT(0,SLIST,ERRCL)
61600 GO TO I99974
61650 99962 CONTINUE
61700 ASSIGN 99650 TO I99656
61701 GO TO 99656
61750 99650 CALL CPYSTR(SFLX,STODUM)
61800 CALL PUT(0,SITODM,ERRCL)
61850 GO TO I99962
61900 99965 CONTINUE
61950 ASSIGN 99649 TO I99656
61951 GO TO 99656
62000 99649 CALL CPYSTR(SFLX,SWHEN)
62050 CALL PUT(0,SIWHEN,ERRCL)
62100 GO TO I99965
62105 99959 CONTINUE
62107 IF(.NOT.(TOP.LE.7)) GO TO 99647
62108 ASSIGN 99646 TO I99965
62109 GO TO 99965
62110 99646 GO TO 99648
62111 99647 IF(.NOT.(STACK(TOP-6).EQ.AELSE)) GO TO 99645
62112 ASSIGN 99644 TO I99974
62113 GO TO 99974
62114 99644 GO TO 99648
62115 99645 ASSIGN 99643 TO I99965
62116 GO TO 99965
62117 99643 CONTINUE
62118 99648 GO TO I99959
62200 99918 CONTINUE
62220 LSTLEV=LEVEL
62250 IF(.NOT.(LSTLEV.EQ.0)) GO TO 99641
62251 CALL PUT(BLN,SB,LISTCL)
62252 GO TO 99642
62350 99641 CALL CPYSTR(SLIST,SB6)
62400 DO 99640 I=1,LSTLEV
62401 CALL CATSTR(SLIST,SSPACR)
62402 99640 CONTINUE
62450 IF(.NOT.(SLIST(1).GT.WWIDTH)) GO TO 99638
62451 CALL PUT(BLN,SP,LISTCL)
62452 GO TO 99639
62500 99638 CALL PUT(BLN,SLIST,LISTCL)
62550 99639 CONTINUE
62600 99642 BLN=0
62650 GO TO I99918
62750 99637 CONTINUE
62800 CURSOR=1
62850 ASSIGN 99636 TO I99888
62851 GO TO 99888
62900 99636 INDENT=.TRUE.
62950 I=2
63000 GO TO 99634
63001 99635 IF(.NOT.(I.LE.6.AND.INDENT)) GO TO 99633
63050 99634 ASSIGN 99632 TO I99660
63051 GO TO 99660
63100 99632 IF (CHTYPE.NE.TBLANK.AND.CHTYPE.NE.TEOL) INDENT=.FALSE.
63150 I=I+1
63200 GO TO 99635
63250 99633 IF(.NOT.(INDENT)) GO TO 99630
63300 LSTLEV=LEVEL
63325 CLASS=0
63350 ASSIGN 99629 TO I99982
63351 GO TO 99982
63450 99629 GO TO 99631
63500 99630 CALL PUT(LINENO,SFLX,LISTCL)
63550 99631 GO TO I99637
63650 99628 CONTINUE
63700 CALL PUT(0,SB,LISTCL)
63750 CALL PUT(0,SDASH,LISTCL)
63800 CALL PUT(0,SB,LISTCL)
63850 GO TO I99628
63950 99982 CONTINUE
64000 IF(.NOT.(CLASS.EQ.TTO)) GO TO 99627
64001 ASSIGN 99626 TO I99628
64002 GO TO 99628
64003 99626 CONTINUE
64050 99627 IF (SFLX(1).LT.7) CALL CATSTR(SFLX,SB7)
64100 CALL CPYSUB(SLIST,SFLX,1,6)
64150 IF(LSTLEV.EQ.0) GO TO 99625
64200 DO 99624 I=1,LSTLEV
64201 CALL CATSTR(SLIST,SSPACR)
64202 99624 CONTINUE
64300 99625 IF(.NOT.(CLASS.EQ.TFIN)) GO TO 99623
64350 SLIST(1)=SLIST(1)-SSPACR(1)
64400 CALL CATSTR(SLIST,SFSPCR)
64500 99623 CALL CATSUB(SLIST,SFLX,7,SFLX(1)-6)
64550 IF (SLIST(1).GT.WWIDTH) CALL CPYSTR(SLIST,SFLX)
64600 IF(.NOT.(ERLST)) GO TO 99621
64650 CALL PUT(LINENO,SLIST,ERRCL)
64700 ERLST=.FALSE.
64750 GO TO 99622
64800 99621 CALL PUT(LINENO,SLIST,LISTCL)
64850 99622 GO TO I99982
64950 99999 CONTINUE
65200 CALLNO=0
65350 PARAM1=NCHPWD
65400 PARAM2=CHZERO
65450 PARAM3=CHSPAC
65500 PARAM4=CHC
65650 BLN=0
65700 WWIDTH=LWIDTH-6
65750 REFNO=(LWIDTH-12)/7
65805 IF(.NOT.(SHORT.OR.FAKE)) GO TO 99619
65810 OFFSET=1
65815 OFFST2=1
65825 GO TO 99620
65826 99619 IF(.NOT.(COGOTO)) GO TO 99618
65830 OFFSET=2
65835 OFFST2=3
65845 GO TO 99620
65850 99618 OFFSET=2
65855 OFFST2=3
65900 99620 NOTFLG=.TRUE.
65950 ERLST=.FALSE.
66000 GO TO I99999
66050 99756 CONTINUE
66100 TOPTYP=STACK(TOP)
66200 IF((ASSEQ).NE.(TOPTYP)) GO TO 99616
66201 TOP=TOP-STACK(TOP-4)-1
66250 GO TO 99617
66251 99616 IF((ACSEQ).NE.(TOPTYP)) GO TO 99615
66252 TOP=TOP-4
66300 GO TO 99617
66301 99615 IF((AGGOTO).NE.(TOPTYP)) GO TO 99614
66302 TOP=TOP-2
66350 GO TO 99617
66351 99614 IF((AGCONT).NE.(TOPTYP)) GO TO 99613
66352 TOP=TOP-2
66400 GO TO 99617
66401 99613 IF((AFSEQ).NE.(TOPTYP)) GO TO 99612
66402 TOP=TOP-2
66450 GO TO 99617
66451 99612 IF((AELSE).NE.(TOPTYP)) GO TO 99611
66452 TOP=TOP-2
66500 GO TO 99617
66501 99611 IF((AGSTNO).NE.(TOPTYP)) GO TO 99610
66502 TOP=TOP-2
66550 GO TO 99617
66551 99610 IF((ATSEQ).NE.(TOPTYP)) GO TO 99609
66552 TOP=TOP-1
66600 GO TO 99617
66601 99609 IF((AMSEQ).NE.(TOPTYP)) GO TO 99608
66602 TOP=TOP-1
66650 GO TO 99617
66651 99608 IF((AGRET).NE.(TOPTYP)) GO TO 99607
66652 TOP=TOP-2
66700 99607 CONTINUE
66750 99617 GO TO I99756
66850 99656 CONTINUE
66900 ERTYPE=2
66950 ASSIGN 99606 TO I99872
66951 GO TO 99872
67000 99606 LINENO=0
67050 IF(.NOT.(SOURCE.EQ.READ)) GO TO 99605
67100 CALL CPYSTR(SST,SINSRT)
67150 IF(.NOT.(HOLDNO.GT.0)) GO TO 99603
67151 CALL CATNUM(SST,HOLDNO)
67152 GO TO 99604
67200 99603 CALL CATSTR(SST,SINS2)
67250 99604 CALL PUT(0,SST,ERRCL)
67350 99605 GO TO I99656
67450 99990 CONTINUE
67500 DUMMY=NEWNO(SEEDNO)
67550 ENDPGM=.FALSE.
67600 MAX=MAXSTK-(PRIME+OFFSET+3)
67650 PDUMMY=MAX+OFFSET
67700 DO 99602 I=MAX,MAXSTK
67701 STACK(I)=0
67702 99602 CONTINUE
67750 TOP=1
67800 STACK(TOP)=AMSEQ
67900 ERROR=0
67950 FIRST=.TRUE.
68000 NOPGM=.FALSE.
68025 NEXTNO=0
68050 SOURCE=READ
68150 LEVEL=0
68200 LSTLEV=0
68250 ASSIGN 99601 TO I99628
68251 GO TO 99628
68300 99601 GO TO I99990
68350 99988 CONTINUE
68400 GO TO 99599
68401 99600 IF(ENDPGM) GO TO 99598
68450 99599 IF(.NOT.(TOP+SAFETY.GT.MAX)) GO TO 99597
68451 ASSIGN 99596 TO I99765
68452 GO TO 99765
68453 99596 CONTINUE
68500 99597 ACTION=STACK(TOP)
68600 IF((AGGOTO).NE.(ACTION)) GO TO 99594
68601 ASSIGN 99593 TO I99686
68602 GO TO 99686
68650 99593 GO TO 99595
68651 99594 IF((AGRET).NE.(ACTION)) GO TO 99592
68652 ASSIGN 99591 TO I99665
68653 GO TO 99665
68700 99591 GO TO 99595
68701 99592 IF((AGCONT).NE.(ACTION)) GO TO 99590
68702 ASSIGN 99589 TO I99688
68703 GO TO 99688
68750 99589 GO TO 99595
68751 99590 IF((AGSTNO).NE.(ACTION)) GO TO 99588
68752 ASSIGN 99587 TO I99662
68753 GO TO 99662
68800 99587 GO TO 99595
68900 99588 ASSIGN 99586 TO I99916
68901 GO TO 99916
69150 99586 IF((AFSEQ).NE.(ACTION)) GO TO 99584
69250 IF((TEXEC).NE.(CLASS)) GO TO 99582
69251 ASSIGN 99581 TO I99826
69252 GO TO 99826
69300 99581 GO TO 99583
69301 99582 IF((TFIN).NE.(CLASS)) GO TO 99580
69302 ASSIGN 99579 TO I99747
69303 GO TO 99747
69350 99579 GO TO 99583
69351 99580 IF((TEND).NE.(CLASS)) GO TO 99578
69352 ERROR=1
69400 GO TO 99583
69401 99578 IF((TELSE).NE.(CLASS)) GO TO 99577
69402 ERROR=10
69450 GO TO 99583
69451 99577 IF((TTO).NE.(CLASS)) GO TO 99576
69452 ERROR=13
69500 GO TO 99583
69501 99576 IF((TCEXP).NE.(CLASS)) GO TO 99575
69502 ERROR=19
69550 99575 CONTINUE
69650 99583 GO TO 99585
69651 99584 IF((AMSEQ).NE.(ACTION)) GO TO 99574
69750 IF((TEXEC).NE.(CLASS)) GO TO 99572
69751 ASSIGN 99571 TO I99826
69752 GO TO 99826
69800 99571 GO TO 99573
69801 99572 IF((TEND).NE.(CLASS)) GO TO 99570
69850 IF(.NOT.(NOPGM)) GO TO 99568
69851 ENDPGM=.TRUE.
69852 GO TO 99569
69900 99568 ASSIGN 99567 TO I99834
69901 GO TO 99834
69902 99567 CONTINUE
70000 99569 GO TO 99573
70001 99570 IF((TFIN).NE.(CLASS)) GO TO 99566
70002 ERROR=5
70050 GO TO 99573
70051 99566 IF((TELSE).NE.(CLASS)) GO TO 99565
70052 ERROR=8
70100 GO TO 99573
70101 99565 IF((TTO).NE.(CLASS)) GO TO 99564
70200 STACK(TOP)=ATSEQ
70250 ASSIGN 99563 TO I99745
70251 GO TO 99745
70350 99563 GO TO 99573
70351 99564 IF((TCEXP).NE.(CLASS)) GO TO 99562
70352 ERROR=17
70400 99562 CONTINUE
70500 99573 GO TO 99585
70501 99574 IF((ASSEQ).NE.(ACTION)) GO TO 99561
70600 IF((TCEXP).NE.(CLASS)) GO TO 99559
70601 ASSIGN 99558 TO I99754
70602 GO TO 99754
70650 99558 GO TO 99560
70651 99559 IF((TFIN).NE.(CLASS)) GO TO 99557
70652 ASSIGN 99556 TO I99763
70653 GO TO 99763
70700 99556 GO TO 99560
70701 99557 IF((TEND).NE.(CLASS)) GO TO 99555
70702 ERROR=3
70750 GO TO 99560
70751 99555 IF((TELSE).NE.(CLASS)) GO TO 99554
70752 ERROR=12
70800 GO TO 99560
70801 99554 IF((TTO).NE.(CLASS)) GO TO 99553
70802 ERROR=15
70850 GO TO 99560
70851 99553 IF((TEXEC).NE.(CLASS)) GO TO 99552
70852 ERROR=23
70900 99552 CONTINUE
71000 99560 GO TO 99585
71001 99561 IF((ACSEQ).NE.(ACTION)) GO TO 99551
71100 IF((TCEXP).NE.(CLASS)) GO TO 99549
71101 ASSIGN 99548 TO I99866
71102 GO TO 99866
71150 99548 GO TO 99550
71151 99549 IF((TFIN).NE.(CLASS)) GO TO 99547
71152 ASSIGN 99546 TO I99763
71153 GO TO 99763
71200 99546 GO TO 99550
71201 99547 IF((TEND).NE.(CLASS)) GO TO 99545
71202 ERROR=2
71250 GO TO 99550
71251 99545 IF((TELSE).NE.(CLASS)) GO TO 99544
71252 ERROR=11
71300 GO TO 99550
71301 99544 IF((TTO).NE.(CLASS)) GO TO 99543
71302 ERROR=14
71350 GO TO 99550
71351 99543 IF((TEXEC).NE.(CLASS)) GO TO 99542
71352 ERROR=22
71400 99542 CONTINUE
71500 99550 GO TO 99585
71501 99551 IF((AELSE).NE.(ACTION)) GO TO 99541
71600 IF((TELSE).NE.(CLASS)) GO TO 99539
71601 ASSIGN 99538 TO I99847
71602 GO TO 99847
71650 99538 GO TO 99540
71651 99539 IF((TEND).NE.(CLASS)) GO TO 99537
71652 ERROR=4
71700 GO TO 99540
71701 99537 IF((TFIN).NE.(CLASS)) GO TO 99536
71702 ERROR=7
71750 GO TO 99540
71751 99536 IF((TTO).NE.(CLASS)) GO TO 99535
71752 ERROR=16
71800 GO TO 99540
71801 99535 IF((TCEXP).NE.(CLASS)) GO TO 99534
71802 ERROR=20
71850 GO TO 99540
71851 99534 IF((TEXEC).NE.(CLASS)) GO TO 99533
71852 ERROR=24
71900 99533 CONTINUE
72000 99540 GO TO 99585
72001 99541 IF((ATSEQ).NE.(ACTION)) GO TO 99532
72100 IF((TTO).NE.(CLASS)) GO TO 99530
72101 ASSIGN 99529 TO I99745
72102 GO TO 99745
72150 99529 GO TO 99531
72151 99530 IF((TEND).NE.(CLASS)) GO TO 99528
72152 ASSIGN 99527 TO I99834
72153 GO TO 99834
72200 99527 GO TO 99531
72201 99528 IF((TFIN).NE.(CLASS)) GO TO 99526
72202 ERROR=6
72250 GO TO 99531
72251 99526 IF((TELSE).NE.(CLASS)) GO TO 99525
72252 ERROR=9
72300 GO TO 99531
72301 99525 IF((TCEXP).NE.(CLASS)) GO TO 99524
72302 ERROR=18
72350 GO TO 99531
72351 99524 IF((TEXEC).NE.(CLASS)) GO TO 99523
72352 ERROR=21
72400 99523 CONTINUE
72500 99531 CONTINUE
72501 99532 CONTINUE
72600 99585 IF(NOPGM) GO TO 99522
72601 ASSIGN 99521 TO I99986
72602 GO TO 99986
72603 99521 CONTINUE
72850 99522 CONTINUE
72900 99595 GO TO 99600
72950 99598 GO TO I99988
73050 99920 CONTINUE
73100 IF(PTABLE.EQ.0) GO TO 99520
73150 TABLCL=LISTCL
73200 ASSIGN 99519 TO I99628
73201 GO TO 99628
73250 99519 CALL PUT(0,STABH,LISTCL)
73300 CALL PUT(0,SB,LISTCL)
73350 P=PTABLE
73400 NDERR=.FALSE.
73450 NIERR=.FALSE.
73500 GO TO 99517
73501 99518 IF(P.EQ.0) GO TO 99516
73551 99517 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 99515
73552 NDERR=.TRUE.
73553 MAJCNT=MAJCNT+1
73601 99515 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 99514
73602 NIERR=.TRUE.
73603 MINCNT=MINCNT+1
73750 99514 ASSIGN 99512 TO I99513
73751 GO TO 99513
73800 99512 P=STACK(P)
73850 GO TO 99518
73900 99516 IF(.NOT.(NDERR)) GO TO 99511
73950 CALL PUT(0,SNDER1,ERRCL)
74000 CALL PUT(0,SNDER2,ERRCL)
74050 ASSIGN 99510 TO I99918
74051 GO TO 99918
74100 99510 P=PTABLE
74150 TABLCL=ERRCL
74200 GO TO 99508
74201 99509 IF(P.EQ.0) GO TO 99507
74250 99508 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 99506
74251 ASSIGN 99505 TO I99513
74252 GO TO 99513
74253 99505 CONTINUE
74300 99506 P=STACK(P)
74350 GO TO 99509
74400 99507 CONTINUE
74450 99511 IF(.NOT.(NIERR)) GO TO 99504
74500 CALL PUT(0,SNIER1,ERRCL)
74550 CALL PUT(0,SNIER2,ERRCL)
74600 ASSIGN 99503 TO I99918
74601 GO TO 99918
74650 99503 P=PTABLE
74700 TABLCL=ERRCL
74750 GO TO 99501
74751 99502 IF(P.EQ.0) GO TO 99500
74800 99501 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 99499
74801 ASSIGN 99498 TO I99513
74802 GO TO 99513
74803 99498 CONTINUE
74850 99499 P=STACK(P)
74900 GO TO 99502
74950 99500 CONTINUE
75000 99504 CONTINUE
75050 99520 GO TO I99920
75100 99513 CONTINUE
75150 CALL CPYSTR(SST,SB6)
75200 IF(.NOT.(STACK(P+2).EQ.0)) CALL PUTNUM(SST,STACK(P+2))
75250 CALL CATSTR(SST,STACK(P+4))
75300 CALL PUT(0,SST,TABLCL)
75350 QP=STACK(P+3)
75400 99497 IF(QP.EQ.0) GO TO 99496
75450 CALL CPYSTR(SST,SB4)
75500 I=1
75550 99495 IF(QP.EQ.0.OR.I.GT.REFNO) GO TO 99494
75600 CALL CATSTR(SST,SB2)
75650 CALL CATNUM(SST,STACK(QP+1))
75700 I=I+1
75750 QP=STACK(QP)
75800 GO TO 99495
75850 99494 CALL PUT(0,SST,TABLCL)
75900 GO TO 99497
75950 99496 CALL PUT(0,SB,LISTCL)
76000 GO TO I99513
76100 99836 CONTINUE
76150 TOP=TOP+2
76200 STACK(TOP-1)=LINENO
76250 STACK(TOP)=AFSEQ
76300 LEVEL=LEVEL+1
76350 GO TO I99836
76400 99852 CONTINUE
76450 TOP=TOP+2
76500 STACK(TOP-1)=CONTNO
76550 STACK(TOP)=AGCONT
76600 GO TO I99852
76650 99771 CONTINUE
76700 TOP=TOP+2
76750 STACK(TOP-1)=GGOTON
76800 STACK(TOP)=AGGOTO
76850 GO TO I99771
76900 99773 CONTINUE
76950 TOP=TOP+2
77000 STACK(TOP-1)=GSTNO
77050 STACK(TOP)=AGSTNO
77100 GO TO I99773
77150 99760 CONTINUE
77200 ASSIGN 99493 TO I99758
77201 GO TO 99758
77250 99493 CALL PUTNUM(SFORCE,STNO)
77300 CALL PUT(LINENO,SFORCE,FORTCL)
77350 STNO=0
77400 GO TO I99760
77450 99828 CONTINUE
77550 IF(.NOT.(NEXTNO.EQ.0)) GO TO 99491
77551 CALL PUT(LINENO,SFLX,FORTCL)
77600 GO TO 99492
77601 99491 IF(.NOT.(FLXNO.NE.0.OR.PASS)) GO TO 99490
77650 ASSIGN 99489 TO I99758
77651 GO TO 99758
77700 99489 CALL PUT(LINENO,SFLX,FORTCL)
77900 GO TO 99492
77925 99490 CALL CPYSTR(SST,SFLX)
77950 CALL PUTNUM(SST,NEXTNO)
77975 CALL PUT(LINENO,SST,FORTCL)
78000 NEXTNO=0
78150 99492 GO TO I99828
78200 99779 CONTINUE
78250 CALL CPYSTR(SPUTGO,SGOTO)
78300 CALL CATNUM(SPUTGO,GOTONO)
78350 IF(.NOT.(NEXTNO.NE.0)) GO TO 99488
78400 CALL PUTNUM(SPUTGO,NEXTNO)
78450 NEXTNO=0
78550 99488 CALL PUT(LINENO,SPUTGO,FORTCL)
78600 GO TO I99779
78650 99859 CONTINUE
78700 IF(.NOT.(NOTFLG)) GO TO 99486
78701 CALL CPYSTR(SST,SIFPN)
78702 GO TO 99487
78750 99486 CALL CPYSTR(SST,SIF)
78800 99487 CALL CATSUB(SST,SFLX,USTART(1),ULEN(1))
78850 IF(.NOT.(NOTFLG)) GO TO 99484
78851 CALL CATSTR(SST,SPGOTO)
78852 GO TO 99485
78900 99484 CALL CATSTR(SST,SBGOTO)
78950 99485 CALL CATNUM(SST,GOTONO)
79000 ASSIGN 99483 TO I99850
79001 GO TO 99850
79050 99483 NOTFLG=.TRUE.
79100 GO TO I99859
79150 99850 CONTINUE
79200 IF(NEXTNO.EQ.0) GO TO 99482
79250 IF(.NOT.(STNO.EQ.0)) GO TO 99480
79300 STNO=NEXTNO
79350 NEXTNO=0
79400 GO TO 99481
79450 99480 ASSIGN 99479 TO I99758
79451 GO TO 99758
79452 99479 CONTINUE
79500 99481 CONTINUE
79550 99482 IF(STNO.EQ.0) GO TO 99478
79600 CALL PUTNUM(SST,STNO)
79650 STNO=0
79750 99478 IF(.NOT.(SST(1).LE.72)) GO TO 99476
79751 CALL PUT(LINENO,SST,FORTCL)
79752 GO TO 99477
79850 99476 CALL CPYSUB (SLIST,SST,1,72)
79900 CALL PUT(LINENO,SLIST,FORTCL)
79950 S=73
80000 L=66
80050 GO TO 99474
80051 99475 IF(S.GT.SST(1)) GO TO 99473
80100 99474 IF(S+L-1.GT.SST(1)) L=SST(1)-S+1
80150 CALL CPYSTR(SLIST,SB5I1)
80200 CALL CATSUB(SLIST,SST,S,L)
80250 CALL PUT(LINENO,SLIST,FORTCL)
80300 S=S+66
80350 GO TO 99475
80400 99473 CONTINUE
80450 99477 GO TO I99850
80550 99913 CONTINUE
80600 GO TO 99471
80601 99472 IF(FOUND) GO TO 99470
80650 99471 CALL GET(LINENO,SFLX,ENDFIL)
80700 IF(.NOT.(FIRST)) GO TO 99469
80750 FIRST=.FALSE.
80800 IF(ENDFIL) NOPGM=.TRUE.
80900 99469 IF(.NOT.(ENDFIL)) GO TO 99468
80950 CALL CPYSTR(SFLX,SEND)
81000 LINENO=0
81100 99468 CALL GETCH(SFLX(2),1,CH)
81200 IF(.NOT.(SFLX(1).EQ.0)) GO TO 99466
81250 BLN=LINENO
81300 ASSIGN 99465 TO I99918
81301 GO TO 99918
81350 99465 FOUND=.FALSE.
81450 GO TO 99467
81451 99466 IF(.NOT.(CH.EQ.CHC)) GO TO 99464
81500 ASSIGN 99463 TO I99637
81501 GO TO 99637
81550 99463 FOUND=.FALSE.
81650 GO TO 99467
81651 99464 FOUND=.TRUE.
81750 99467 GO TO 99472
81800 99470 GO TO I99913
81850 99888 CONTINUE
81900 CURSOR=CURSOR-1
81950 CWD=(CURSOR-1)/NCHPWD+2
82000 CPOS=CURSOR-(CWD-2)*NCHPWD
82050 ASSIGN 99462 TO I99660
82051 GO TO 99660
82100 99462 GO TO I99888
82200 99461 CONTINUE
82250 LL=0
82300 LR=STACK(LP)
82350 99460 IF(LR.EQ.0) GO TO 99459
82400 LT=STACK(LR)
82450 STACK(LR)=LL
82500 LL=LR
82550 LR=LT
82600 GO TO 99460
82650 99459 STACK(LP)=LL
82700 GO TO I99461
82800 99872 CONTINUE
82850 IF(SAVED) GO TO 99458
82900 SAVED=.TRUE.
82950 HOLDNO=LINENO
83000 CALL CPYSTR(SHOLD,SFLX)
83100 99458 GO TO I99872
83200 99907 CONTINUE
83250 ASSIGN 99457 TO I99660
83251 GO TO 99660
83350 99457 IF(.NOT.(CHTYPE.EQ.TEOL)) GO TO 99455
83351 CONT=.FALSE.
83400 GO TO 99456
83401 99455 IF(.NOT.(CH.EQ.CHZERO.OR.CH.EQ.CHSPAC)) GO TO 99454
83402 CONT=.FALSE.
83450 GO TO 99456
83451 99454 CONT=.TRUE.
83550 99456 GO TO I99907
83600 99891 CONTINUE
83650 99453 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 99452
83651 ASSIGN 99451 TO I99660
83652 GO TO 99660
83653 99451 GO TO 99453
83700 99452 START=CURSOR
83750 IF(.NOT.(CHTYPE.NE.TLP)) GO TO 99450
83800 ERSTOP=ERSTOP+1
83850 ERRSTK(ERSTOP)=3
83900 ASSIGN 99449 TO I99872
83901 GO TO 99872
83950 99449 CALL CPYSTR(SST,SFLX)
84000 SFLX(1)=START-1
84050 CALL CATSTR(SFLX,SLP)
84100 CALL CATSUB(SFLX,SST,START,SST(1)-START-1)
84200 99450 PCNT=1
84250 FOUND=.TRUE.
84300 GO TO 99447
84301 99448 IF(PCNT.EQ.0.OR..NOT.FOUND) GO TO 99446
84350 99447 ASSIGN 99445 TO I99660
84351 GO TO 99660
84450 99445 IF((TRP).NE.(CHTYPE)) GO TO 99443
84451 PCNT=PCNT-1
84500 GO TO 99444
84501 99443 IF((TLP).NE.(CHTYPE)) GO TO 99442
84502 PCNT=PCNT+1
84550 GO TO 99444
84551 99442 IF((TEOL).NE.(CHTYPE)) GO TO 99441
84552 FOUND=.FALSE.
84600 99441 CONTINUE
84650 99444 GO TO 99448
84700 99446 IF(FOUND) GO TO 99440
84750 ERSTOP=ERSTOP+1
84800 ERRSTK(ERSTOP)=4
84850 ASSIGN 99439 TO I99872
84851 GO TO 99872
84900 99439 DO 99438 I=1,PCNT
84901 CALL CATSTR(SFLX,SRP)
84902 99438 CONTINUE
84950 CURSOR=SFLX(1)
85000 ASSIGN 99437 TO I99888
85001 GO TO 99888
85050 99437 CONTINUE
85100 99440 ASSIGN 99436 TO I99660
85101 GO TO 99660
85150 99436 NUNITS=NUNITS+1
85200 UTYPE(NUNITS)=UEXP
85250 USTART(NUNITS)=START
85300 ULEN(NUNITS)=CURSOR-START
85350 CALL CPYSUB(SST,SFLX,START,CURSOR-START)
85400 IF(STREQ(SST,SOWSE)) UTYPE(NUNITS)=UOWSE
85450 ASSIGN 99435 TO I99880
85451 GO TO 99880
85500 99435 GO TO I99891
85550 99896 CONTINUE
85600 99434 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 99433
85601 ASSIGN 99432 TO I99660
85602 GO TO 99660
85603 99432 GO TO 99434
85650 99433 IF(.NOT.(CHTYPE.NE.TEOL)) GO TO 99431
85700 ERSTOP=ERSTOP+1
85750 ERRSTK(ERSTOP)=2
85800 ASSIGN 99430 TO I99872
85801 GO TO 99872
85850 99430 SFLX(1)=CURSOR-1
85950 99431 GO TO I99896
86000 99903 CONTINUE
86050 ASSIGN 99429 TO I99660
86051 GO TO 99660
86100 99429 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 99428
86101 ASSIGN 99427 TO I99660
86102 GO TO 99660
86103 99427 GO TO 99429
86200 99428 IF((TLETTR).NE.(CHTYPE)) GO TO 99425
86250 START=CURSOR
86300 INVOKE=.FALSE.
86350 BADCH=.FALSE.
86400 GO TO 99423
86401 99424 IF(BADCH) GO TO 99422
86450 99423 ASSIGN 99421 TO I99660
86451 GO TO 99660
86550 99421 IF(.NOT.(CHTYPE.LE.TDIGIT)) GO TO 99419
86600 GO TO 99420
86601 99419 IF(.NOT.(CHTYPE.EQ.THYPHN)) GO TO 99418
86602 INVOKE=.TRUE.
86650 GO TO 99420
86651 99418 BADCH=.TRUE.
86750 99420 GO TO 99424
86800 99422 LEN=CURSOR-START
86850 IF(.NOT.(INVOKE)) GO TO 99416
86900 CLASS=TEXEC
86950 EXTYPE=TINVOK
87000 NUNITS=1
87050 UTYPE(1)=UPINV
87100 USTART(1)=START
87150 ULEN(1)=LEN
87200 GO TO 99417
87300 99416 CALL CPYSUB(SST,SFLX,START,LEN)
87350 CLASS=TEXEC
87400 EXTYPE=TFORT
87500 IF((2).NE.(SST(1))) GO TO 99414
87600 IF(.NOT.(STREQ(SST,KIF))) GO TO 99412
87601 EXTYPE=TIF
87650 GO TO 99413
87651 99412 IF(.NOT.(STREQ(SST,KTO))) GO TO 99411
87652 CLASS=TTO
87700 GO TO 99413
87701 99411 IF(.NOT.(STREQ(SST,KDO))) GO TO 99410
87750 99409 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 99408
87751 ASSIGN 99407 TO I99660
87752 GO TO 99660
87753 99407 GO TO 99409
87800 99408 IF(.NOT.(CHTYPE.EQ.TDIGIT)) GO TO 99405
87801 EXTYPE=TFORT
87802 GO TO 99406
87850 99405 EXTYPE=TDO
87950 99406 CONTINUE
87951 99410 CONTINUE
88050 99413 GO TO 99415
88051 99414 IF((3).NE.(SST(1))) GO TO 99404
88150 IF(.NOT.(STREQ(SST,KFIN))) GO TO 99402
88151 CLASS=TFIN
88200 GO TO 99403
88201 99402 IF(.NOT.(STREQ(SST,KEND))) GO TO 99401
88250 IF (CHTYPE.EQ.TEOL) CLASS=TEND
88350 99401 CONTINUE
88450 99403 GO TO 99415
88451 99404 IF((4).NE.(SST(1))) GO TO 99400
88550 IF(.NOT.(STREQ(SST,KWHEN))) GO TO 99398
88551 EXTYPE=TWHEN
88600 GO TO 99399
88601 99398 IF(.NOT.(STREQ(SST,KELSE))) GO TO 99397
88602 CLASS=TELSE
88650 99397 CONTINUE
88750 99399 GO TO 99415
88751 99400 IF((5).NE.(SST(1))) GO TO 99396
88850 IF(.NOT.(STREQ(SST,KWHILE))) GO TO 99394
88851 EXTYPE=TWHILE
88900 GO TO 99395
88901 99394 IF(.NOT.(STREQ(SST,KUNTIL))) GO TO 99393
88902 EXTYPE=TUNTIL
88950 99393 CONTINUE
89050 99395 GO TO 99415
89051 99396 IF((6).NE.(SST(1))) GO TO 99392
89150 IF(.NOT.(STREQ(SST,KREPT))) GO TO 99390
89200 99389 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 99388
89201 ASSIGN 99387 TO I99660
89202 GO TO 99660
89203 99387 GO TO 99389
89250 99388 START=CURSOR
89300 99386 IF(.NOT.(CHTYPE.EQ.TLETTR)) GO TO 99385
89301 ASSIGN 99384 TO I99660
89302 GO TO 99660
89303 99384 GO TO 99386
89350 99385 LEN=CURSOR-START
89400 CALL CPYSUB(SST,SFLX,START,LEN)
89500 IF(.NOT.(STREQ(SST,KWHILE))) GO TO 99382
89501 EXTYPE=TRWHIL
89550 GO TO 99383
89551 99382 IF(.NOT.(STREQ(SST,KUNTIL))) GO TO 99381
89552 EXTYPE=TRUNTL
89600 99381 CONTINUE
89700 99383 GO TO 99391
89701 99390 IF(.NOT.(STREQ(SST,KSELCT))) GO TO 99380
89702 EXTYPE=TSELCT
89750 GO TO 99391
89751 99380 IF(.NOT.(STREQ(SST,KUNLES))) GO TO 99379
89752 EXTYPE=TUNLES
89800 99379 CONTINUE
89900 99391 GO TO 99415
89901 99392 IF((11).NE.(SST(1))) GO TO 99378
89950 IF (STREQ(SST,KCOND)) EXTYPE=TCOND
90050 99378 CONTINUE
90100 99415 CONTINUE
90200 99417 GO TO 99426
90201 99425 IF((TLP).NE.(CHTYPE)) GO TO 99377
90202 CLASS=TCEXP
90250 GO TO 99426
90300 99377 CLASS=TEXEC
90350 EXTYPE=TFORT
90500 99426 GO TO I99903
90550 99877 CONTINUE
90600 99376 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 99375
90601 ASSIGN 99374 TO I99660
90602 GO TO 99660
90603 99374 GO TO 99376
90650 99375 FOUND=.FALSE.
90700 IF(.NOT.(CHTYPE.EQ.TLETTR)) GO TO 99373
90750 START=CURSOR
90800 GO TO 99371
90801 99372 IF(CHTYPE.GT.THYPHN) GO TO 99370
90850 99371 ASSIGN 99369 TO I99660
90851 GO TO 99660
90900 99369 IF(CHTYPE.EQ.THYPHN) FOUND=.TRUE.
90950 GO TO 99372
91000 99370 CONTINUE
91050 99373 IF(.NOT.(FOUND)) GO TO 99368
91100 NUNITS=NUNITS+1
91150 UTYPE(NUNITS)=UPINV
91200 USTART(NUNITS)=START
91250 ULEN(NUNITS)=CURSOR-START
91350 99368 GO TO I99877
91400 99880 CONTINUE
91450 99367 IF(.NOT.(CHTYPE.EQ.TBLANK)) GO TO 99366
91451 ASSIGN 99365 TO I99660
91452 GO TO 99660
91453 99365 GO TO 99367
91500 99366 IF(CHTYPE.EQ.TEOL) GO TO 99364
91550 CSAVE=CURSOR
91600 ASSIGN 99363 TO I99877
91601 GO TO 99877
91650 99363 IF(.NOT.(FOUND)) GO TO 99361
91651 ASSIGN 99360 TO I99896
91652 GO TO 99896
91653 99360 GO TO 99362
91750 99361 NUNITS=NUNITS+1
91800 UTYPE(NUNITS)=UFORT
91850 USTART(NUNITS)=CSAVE
91900 ULEN(NUNITS)=SFLX(1)+1-CSAVE
92000 99362 CONTINUE
92050 99364 GO TO I99880
92100 99909 CONTINUE
92150 FLXNO=0
92175 PASS=.FALSE.
92200 DO 99359 I=1,5
92250 ASSIGN 99358 TO I99660
92251 GO TO 99660
92350 99358 IF((TBLANK).NE.(CHTYPE)) GO TO 99356
92400 GO TO 99357
92401 99356 IF((TDIGIT).NE.(CHTYPE)) GO TO 99355
92402 FLXNO=FLXNO*10+CH-CHZERO
92450 GO TO 99357
92451 99355 IF((TEOL).NE.(CHTYPE)) GO TO 99354
92500 GO TO 99357
92501 99354 PASS=.TRUE.
92850 99357 CONTINUE
92851 99359 CONTINUE
93300 GO TO I99909
93400 99863 CONTINUE
93450 IF(.NOT.(FLXNO.NE.0)) GO TO 99353
93500 ASSIGN 99352 TO I99758
93501 GO TO 99758
93550 99352 NEXTNO=FLXNO
93600 FLXNO=0
93700 99353 GO TO I99863
93750 99833 CONTINUE
93800 P=MAX
93850 STACK(MAX)=0
93900 ITEMP=MAXSTK-PRIME+1
93950 DO 99351 I=ITEMP,MAXSTK
94000 IF(STACK(I).EQ.0) GO TO 99350
94050 STACK(P)=STACK(I)
94100 GO TO 99348
94101 99349 IF(STACK(P).EQ.0) GO TO 99347
94110 99348 P=STACK(P)
94120 LP=P+3
94130 ASSIGN 99346 TO I99461
94131 GO TO 99461
94140 99346 GO TO 99349
94150 99347 CONTINUE
94200 99350 CONTINUE
94201 99351 CONTINUE
94250 Q=MAX-1
94300 STACK(Q)=0
94350 99345 IF(STACK(MAX).EQ.0) GO TO 99344
94400 P=STACK(MAX)
94450 STACK(MAX)=STACK(P)
94500 QM=Q
94550 QP=STACK(QM)
94600 INSERT=.FALSE.
94650 99343 IF(INSERT) GO TO 99342
94720 IF(.NOT.(QP.EQ.0)) GO TO 99340
94721 INSERT=.TRUE.
94740 GO TO 99341
94741 99340 IF(.NOT.(STRLT(STACK(P+4),STACK(QP+4)))) GO TO 99339
94742 INSERT=.TRUE.
94760 GO TO 99341
94780 99339 QM=QP
94800 QP=STACK(QM)
94860 99341 GO TO 99343
94880 99342 STACK(P)=QP
94900 STACK(QM)=P
95200 GO TO 99345
95250 99344 PTABLE=STACK(Q)
95300 GO TO I99833
95400 END