SUBROUTINE FLXLST (LTYPE)
      IMPLICIT INTEGER (A-Z)
      LOGICAL*1 ASSMBL, CONT  , DONE  , ENDFIL, ENDLIN, ENDPGM
      LOGICAL*1 ERLST , FIRST , FOUND , INCLUD, INDENT, INSERT
      LOGICAL*1 LSTCMT, LSTFIN, LSTFLG, MINER , NDERR , NIERR
      LOGICAL*1 NOPGM , NOTFLG, OPENI , PARMS , PASS  , QUOTE
      LOGICAL*1 SAVED , STREQ , STRLT , VARSET
      INTEGER UTYPE(3), USTART(3), ULEN(3)
      INTEGER ESTACK(10)
      INTEGER SDIGIT(2)
      INTEGER SFNAM(52)
      INTEGER SNUMBR(52)
      INTEGER SPINV(52)
      INTEGER SPUTGO(12)
      INTEGER SSTRNG(52)
      INTEGER SVARBL(52)
      INTEGER SWITCH(52)
      INTEGER KBREAK(4)
      DATA KBREAK/5,2HBR,2HEA,2HK /
      INTEGER KCOND(7)
      DATA KCOND/11,2HCO,2HND,2HIT,2HIO,2HNA,2HL /
      INTEGER KDEFN(5)
      DATA KDEFN/6,2HDE,2HFI,2HNE,1H /
      INTEGER KDO(3)
      DATA KDO/2,2HDO,1H /
      INTEGER KELSE(4)
      DATA KELSE/4,2HEL,2HSE,1H /
      INTEGER KEND(3)
      DATA KEND/3,2HEN,2HD /
      INTEGER KFALSE(4)
      DATA KFALSE/5,2HFA,2HLS,2HE /
      INTEGER KFIN(3)
      DATA KFIN/3,2HFI,2HN /
      INTEGER KIF(3)
      DATA KIF/2,2HIF,1H /
      INTEGER KINCL(5)
      DATA KINCL/7,2HIN,2HCL,2HUD,2HE /
      INTEGER KLIST(4)
      DATA KLIST/4,2HLI,2HST,1H /
      INTEGER KLOOP(4)
      DATA KLOOP/4,2HLO,2HOP,1H /
      INTEGER KNEXT(4)
      DATA KNEXT/4,2HNE,2HXT,1H /
      INTEGER KNOLST(5)
      DATA KNOLST/6,2HNO,2HLI,2HST,1H /
      INTEGER KPAGE(4)
      DATA KPAGE/4,2HPA,2HGE,1H /
      INTEGER KREPT(5)
      DATA KREPT/6,2HRE,2HPE,2HAT,1H /
      INTEGER KRETN(5)
      DATA KRETN/6,2HRE,2HTU,2HRN,1H /
      INTEGER KSELCT(5)
      DATA KSELCT/6,2HSE,2HLE,2HCT,1H /
      INTEGER KSTRNG(5)
      DATA KSTRNG/6,2HST,2HRI,2HNG,1H /
      INTEGER KTHEN(4)
      DATA KTHEN/4,2HTH,2HEN,1H /
      INTEGER KTO(3)
      DATA KTO/2,2HTO,1H /
      INTEGER KTRUE(4)
      DATA KTRUE/4,2HTR,2HUE,1H /
      INTEGER KUNLES(5)
      DATA KUNLES/6,2HUN,2HLE,2HSS,1H /
      INTEGER KUNTIL(4)
      DATA KUNTIL/5,2HUN,2HTI,2HL /
      INTEGER KWHEN(4)
      DATA KWHEN/4,2HWH,2HEN,1H /
      INTEGER KWHILE(4)
      DATA KWHILE/5,2HWH,2HIL,2HE /
      INTEGER SASSN1(8)
      DATA SASSN1/13,2H  ,2H  ,2H  ,2HAS,2HSI,2HGN,2H  /
      INTEGER SASSN2(4)
      DATA SASSN2/5,2H T,2HO ,2HI /
      INTEGER SB(2)
      DATA SB/1,2H  /
      INTEGER SB2(3)
      DATA SB2/2,2H  ,1H /
      INTEGER SB4(4)
      DATA SB4/4,2H  ,2H  ,1H /
      INTEGER SB5I1(5)
      DATA SB5I1/6,2H  ,2H  ,2H 1,1H /
      INTEGER SB6(5)
      DATA SB6/6,2H  ,2H  ,2H  ,1H /
      INTEGER SB6I(5)
      DATA SB6I/7,2H  ,2H  ,2H  ,2HI /
      INTEGER SB7(5)
      DATA SB7/7,2H  ,2H  ,2H  ,2H  /
      INTEGER SBGOTO(5)
      DATA SBGOTO/7,2H G,2HO ,2HTO,2H  /
      INTEGER SBSPCR(3)
      DATA SBSPCR/3,2Hv-,2H- /
      INTEGER SCMTSW(3)
      DATA SCMTSW/2,2H/C,1H /
      INTEGER SCOMMA(2)
      DATA SCOMMA/1,2H, /
      INTEGER SCOND(10)
      DATA SCOND/17,2H  ,2H  ,2H  ,2HCO,2HND,2HIT,2HIO,2HNA,2HL /
      INTEGER SCONT(6)
      DATA SCONT/8,2HCO,2HNT,2HIN,2HUE,1H /
      INTEGER SCP(3)
      DATA SCP/2,2H,(,1H /
      INTEGER SDASH(22)
      DATA SDASH/40,2H--,2H--,2H--,2H--,2H--,2H--,2H--,2H--,2H--,2H--,2H
     1--,2H--,2H--,2H--,2H--,2H--,2H--,2H--,2H--,2H--,1H /
      INTEGER SDATA(7)
      DATA SDATA/11,2H  ,2H  ,2H  ,2HDA,2HTA,2H  /
      INTEGER SDOST(6)
      DATA SDOST/9,2H  ,2H  ,2H  ,2HDO,2H  /
      INTEGER SDSPCR(3)
      DATA SDSPCR/3,2H.-,2H- /
      INTEGER SDUM(9)
      DATA SDUM/15,2HDU,2HMM,2HY-,2HPR,2HOC,2HED,2HUR,2HE /
      INTEGER SEND(6)
      DATA SEND/9,2H  ,2H  ,2H  ,2HEN,2HD /
      INTEGER SEQ(2)
      DATA SEQ/1,2H= /
      INTEGER SFORCE(9)
      DATA SFORCE/14,2H  ,2H  ,2H  ,2HCO,2HNT,2HIN,2HUE,1H /
      INTEGER SFSPCR(3)
      DATA SFSPCR/3,2H..,2H. /
      INTEGER SFUNC(6)
      DATA SFUNC/8,2HFU,2HNC,2HTI,2HON,1H /
      INTEGER SGOTO(8)
      DATA SGOTO/12,2H  ,2H  ,2H  ,2HGO,2H T,2HO ,1H /
      INTEGER SGOTOI(8)
      DATA SGOTOI/13,2H  ,2H  ,2H  ,2HGO,2H T,2HO ,2HI /
      INTEGER SGOTOP(8)
      DATA SGOTOP/13,2H  ,2H  ,2H  ,2HGO,2H T,2HO ,2H( /
      INTEGER SGUP1(25)
      DATA SGUP1/46,2H**,2H**,2H* ,2HTr,2Han,2Hsl,2Hat,2Hor,2H h,2Has,2H
     1 e,2Hxh,2Hau,2Hst,2Hed,2H a,2Hll,2H t,2Hab,2Hle,2H s,2Hpa,2Hce,1H 
     1/
      INTEGER SGUP2(24)
      DATA SGUP2/44,2H**,2H**,2H* ,2HTr,2Han,2Hsl,2Hat,2Hio,2Hn ,2Hmu,2H
     1st,2H t,2Her,2Hmi,2Hna,2Hte,2H i,2Hmm,2Hed,2Hia,2Hte,2Hly,1H /
      INTEGER SH(2)
      DATA SH/1,2HH /
      INTEGER SICATX(25)
      DATA SICATX/47,2H**,2H**,2H* ,2H  ,2H (,2HCo,2Hnd,2Hit,2Hio,2Hna,2
     1Hl ,2Has,2Hse,2Hmb,2Hly,2H t,2Hab,2Hle,2Hs ,2Hex,2Hce,2Hed,2Hed,2H
     1) /
      INTEGER SIF(6)
      DATA SIF/8,2H  ,2H  ,2H  ,2HIF,1H /
      INTEGER SIFP(6)
      DATA SIFP/9,2H  ,2H  ,2H  ,2HIF,2H( /
      INTEGER SIFPN(9)
      DATA SIFPN/14,2H  ,2H  ,2H  ,2HIF,2H(.,2HNO,2HT.,1H /
      INTEGER SIGN(24)
      DATA SIGN/45,2H**,2H**,2H* ,2H  ,2H (,2HNo,2H c,2Hon,2Htr,2Hol,2H 
     1p,2Hhr,2Has,2He ,2Hfo,2Hr ,2HFI,2HN ,2Hto,2H m,2Hat,2Hch,2H) /
      INTEGER SINCSW(3)
      DATA SINCSW/2,2H/D,1H /
      INTEGER SINT(9)
      DATA SINT/14,2H  ,2H  ,2H  ,2HIN,2HTE,2HGE,2HR ,1H /
      INTEGER SISCMD(24)
      DATA SISCMD/45,2H**,2H**,2H* ,2H  ,2H (,2HIn,2Hva,2Hli,2Hd ,2H$<,2
     1Hsy,2Hst,2Hem,2H c,2Hom,2Hma,2Hnd,2H>-,2H-i,2Hgn,2Hor,2Hed,2H) /
      INTEGER SLASH(2)
      DATA SLASH/1,2H/ /
      INTEGER SLP(2)
      DATA SLP/1,2H( /
      INTEGER SNDERR(23)
      DATA SNDERR/43,2H**,2H**,2H* ,2HPr,2Hoc,2Hed,2Hur,2Hes,2H i,2Hnv,2
     1Hok,2Hed,2H b,2Hut,2H n,2Hev,2Her,2H d,2Hef,2Hin,2Hed,2H: /
      INTEGER SNE(4)
      DATA SNE/4,2H.N,2HE.,1H /
      INTEGER SNIERR(23)
      DATA SNIERR/43,2H**,2H**,2H* ,2HPr,2Hoc,2Hed,2Hur,2Hes,2H d,2Hef,2
     1Hin,2Hed,2H b,2Hut,2H n,2Hev,2Her,2H i,2Hnv,2Hok,2Hed,2H: /
      INTEGER SNSPCR(3)
      DATA SNSPCR/3,2H^-,2H- /
      INTEGER SOWSE(7)
      DATA SOWSE/11,2H(O,2HTH,2HER,2HWI,2HSE,2H) /
      INTEGER SPB(3)
      DATA SPB/2,2H) ,1H /
      INTEGER SPGOTO(6)
      DATA SPGOTO/8,2H) ,2HGO,2H T,2HO ,1H /
      INTEGER SRP(2)
      DATA SRP/1,2H) /
      INTEGER SRPCI(4)
      DATA SRPCI/4,2H),,2H I,1H /
      INTEGER SSPACR(3)
      DATA SSPACR/3,2H. ,2H  /
      INTEGER SSTOP(7)
      DATA SSTOP/10,2H  ,2H  ,2H  ,2HST,2HOP,1H /
      INTEGER STABH(20)
      DATA STABH/37,2H  ,2H  ,2H  ,2HPr,2Hoc,2Hed,2Hur,2He ,2HCr,2Hos,2H
     1s-,2HRe,2Hfe,2Hre,2Hnc,2He ,2HTa,2Hbl,2He /
      INTEGER STSPCR(2)
      DATA STSPCR/1,2H  /
      INTEGER SVER(14)
      DATA SVER/25,2H(F,2HLE,2HCS,2H  ,2HVe,2Hrs,2Hio,2Hn ,2H22,2HH(,2H1
     13,2H1),2H) /
      INTEGER SFLX(52)
      INTEGER SHOLD(52)
      DATA   MAXFLX /   100/
      INTEGER SST(102)
      INTEGER SLIST(102)
      DATA   MAXSST /   200/
      INTEGER STACK  (  2000)
      DATA    MAXSTK /  2000/
      INTEGER VSTACK (    10)
      INTEGER VARNAM (    10)
      LOGICAL VARFLG (    10)
      DATA    VARMAX /    10/
      DATA PRIME   /    53/
      DATA SAFETY /    35/
      LOGICAL LONG  , SHORT , FAKE  , COGOTO
      DATA    LONG   /.FALSE./
      DATA    SHORT  /.TRUE. /
      DATA    FAKE   /.FALSE./
      DATA    COGOTO /.FALSE./
      DATA NCHPWD /     2/
      DATA OCHPWD /     2/
      DATA SEEDNO /32767/
      DATA LWIDTH /   132/
      DATA CHSPAC /    32/
      DATA CHTAB  /     9/
      DATA CHC    /    67/
      DATA CHD    /    68/
      DATA CHZERO /    48/
      DATA CHDOLR /    36/
      DATA CHEXCL /    33/
      DATA CHCOMA /    44/
      DATA CHDQOT /    34/
      DATA CHQUOT /    39/
      DATA CHSEMI /    59/
      DATA CHLPRN /    40/
      DATA CHRPRN /    41/
      DATA FORTCL/ 1/, LISTCL/ 2/, ERRCL / 3/, FINCL/4/
      DATA SETUP / 1/, RETRY / 2/, READ  / 3/
      DATA ACSEQ / 1/, AELSE / 2/, AFSEQ / 3/, AGCONT/ 4/, AGGOTO/ 5/
      DATA AGSTNO/ 6/, AMSEQ / 7/, AGRET / 8/, ASSEQ / 9/, ATSEQ /10/
      DATA TCEXP / 1/, TELSE / 2/, TEND  / 3/, TEXEC / 4/, TFIN  / 5/
      DATA TTO   / 6/, TINCL / 7/, TSTRNG/ 8/, TBREAK/ 9/, TNEXT /10/
      DATA TFORT / 1/, TINVOK/ 2/, TIF   / 3/, TUNLES/ 4/, TWHEN / 5/
      DATA TCOND / 6/, TSELCT/ 7/, TDO   / 8/, TWHILE/ 9/, TRWHIL/10/
      DATA TUNTIL/11/, TRUNTL/12/, TLOOP /13/, TRLOOP/14/, TRETN /15/
      DATA UEXP  / 1/, UFORT / 2/, UOWSE / 3/, UPINV / 4/, UDO   / 5/
      DATA UBREAK/ 6/, UNEXT / 7/, URETN/ 8/
      DATA ENONE / 0/, EICOND/ 1/, EIELSE/ 2/, EIEND / 3/, EIFIN / 4/
      DATA EIFINM/ 5/, EILOOP/ 6/, EIPROC/ 7/, EIWFIN/ 8/, EIWHEN/ 9/
      DATA EXFIN /10/, EXPROC/11/
      DATA TLETTR/ 1/, TDIGIT/ 2/, THYPHN/ 3/, TLP   / 4/, TRP   / 5/
      DATA TBLANK/ 6/, TOTHER/ 7/, TEOL  / 8/
      DATA TERROR/ 0/, TCONST/ 1/, TVARBL/ 2/
      DATA LBLANK/ 1/, LCOMNT/ 2/, LDASHS/ 3/, LFLEX /4/, LINFLX/5/
      DATA LINSRC/ 6/
      COMMON /FLXSY1/
     1          ACSEQ   ,ACTION  ,AELSE   ,AFSEQ   ,AGCONT  ,AGGOTO  ,
     1          AGRET   ,AGSTNO  ,AMSEQ   ,ASSEQ   ,         ATSEQ   ,
     1          BLN     ,CALLNO  ,CH      ,CHC     ,CHCOMA  ,CHD     ,
     1          CHDOLR  ,CHDQOT  ,CHEXCL  ,CHLPRN  ,CHQUOT  ,CHRPRN  ,
     1          CHSEMI  ,CHSPAC  ,CHTAB   ,CHTYPE  ,CHZERO  ,CLASS   ,
     1          COGOTO  ,         CONTNO  ,CPOS    ,CSAVE   ,CURSOR  ,  
     1          CWD     ,DIGIT   ,         DUMARG  ,DUMMY   ,EICOND  ,
     1          EIELSE  ,EIEND   ,EIFIN   ,EIFINM  ,EILOOP  ,EIPROC  ,
     1          EIWFIN  ,EIWHEN  ,ELSNO   ,                  ENDNO   ,
     1                   ENONE   ,ENTNO   ,         ERRCL   ,ERROR   ,
     1          ERTYPE  ,ESTACK  ,ESTOP   ,EXFIN   ,EXPROC  ,EXTYPE  ,
     1          FAKE    ,FINCL   ,FINDEX  ,         FLXNO   ,FORTCL  ,  
     1                   GGOTON  ,GOTONO  ,GSTNO   ,HOLDNO  ,I       ,
     1                   INCLVL  ,         INDSRC  ,         ITEMP   ,
     1          J       ,KBREAK  ,KCOND   ,KDEFN   ,KDO     ,KELSE   ,
     1          KEND    ,KFALSE  ,KFIN    ,KIF     ,KINCL   ,KLIST   ,
     1          KLOOP   ,KNEXT   ,KNOLST  ,KPAGE   ,KREPT   ,KRETN   ,
     1          KSELCT  ,KSTRNG  ,KTHEN   ,KTO     ,KTRUE   ,KUNLES  ,  
     1          KUNTIL  ,KWHEN   ,KWHILE  ,L       ,LBLANK  ,LCOMNT  ,
     1          LDASH   ,LDASHS  ,LEN     ,LEVEL   ,LFLEX   ,LINENO  ,
     1          LINFLX  ,LINSRC           ,LISTCL  ,LL      ,LONG    ,
     1          LOOPNO  ,LP      ,LPCURS  ,LR      ,         LSTLEV  ,
     1          LT      ,LTOP             ,LWIDTH  ,MAJCNT  ,MAKFIN  ,
     1          MAX     ,MAXFLX  ,MAXSST  ,MAXSTK  ,MINCNT  ,           
     1          MLINE   ,NCHPWD  ,         NEXTNO  ,NFIN    ,         
     1          NLOOP   ,                  NUMBER  ,NUNITS  ,NUSAV   ,
     1          NXIFNO  ,OCHPWD  ,OFFSET  ,OFFST2  ,P       ,         
     1                   PCNT    ,PDUMMY  ,PENT    ,POWER   ,PRIME   ,
     1          PTABLE           ,Q       ,QM      ,QP      ,         
     1          READ    ,REFNO   ,RETNO   ,RETRY   ,RPCURS  ,S       ,  
     1          SAFETY  ,SASSN1  ,SASSN2  ,         SB      ,SBGOTO  ,
     1          SBSPCR  ,SB2     ,SB4,
     1SB5I1   ,SB6     ,SB6I    ,SB7     ,
     1       SCMTSW  ,
     1          SCNT    ,SCOMMA  ,SCOND   ,SCONT   ,SCP     ,SDASH   ,
     1          SDATA   ,SDIGIT  ,SDOST   ,SDSPCR  ,SDUM    ,SEEDNO  ,
     1          SEND    ,SEQ     ,SETUP   ,
     1          SFLX    ,SFNAM   ,SFORCE  ,SFSPCR  ,SFUNC   ,SGOTO   ,  
     1          SGOTOI  ,SGOTOP  ,SGUP1   ,SGUP2   ,SH      ,SHOLD   ,
     1          SHORT   ,SICATX                    ,SIF     ,
     1          SIFP    ,SIFPN   ,SIGN    ,SINCSW  ,
     1          SINT    ,SISCMD  ,SLASH   ,
     1          SLIST   ,SLP     ,SNDERR  ,SNE     ,SNIERR  ,
     1          SNSPCR  ,SNUMBR  ,SOURCE  ,SOWSE   ,SPB     ,SPGOTO  ,  
     1          SPINV   ,SPUTGO  ,SRP     ,SRPCI   ,SSPACR  ,SST     ,
     1          SSTOP   ,SSTRNG  ,STABH   ,STACK   ,START   ,STNO    ,
     1          STRLEN  ,STRTYP  ,STSPCR  ,SVARBL  ,SVER    ,
     1          SWITCH  ,
     1          S1CPOS  ,S1CURS  ,S1CWD   ,S2CPOS  ,S2CURS  ,S2CWD   ,  
     1          TABLCL  ,TBLANK  ,TBREAK  ,TCEXP   ,TCOND   ,TCONST  ,
     1          TDIGIT  ,TDO     ,TELSE   ,TEND    ,TEOL    ,TERROR  ,
     1          TESTNO  ,TEXEC   ,TFIN    ,TFORT   ,THYPHN  ,TIF     ,
     1          TINCL   ,TINVOK  ,TLETTR  ,TLOOP   ,TLP     ,TMAX    ,
     1          TNEXT   ,TOP     ,TOPNO   ,TOPTYP  ,TOTHER  ,TRETN   ,
     1          TRLOOP  ,TRP     ,TRUNTL  ,TRWHIL  ,TSELCT  ,TSTRNG  ,  
     1          TTO     ,TTOP    ,TUNLES  ,TUNTIL  ,TVARBL  ,TWHEN   ,
     1          TWHILE  ,TYPBN   ,UBREAK  ,UDO     ,UEXP    ,UFORT   ,
     1          ULEN    ,UNEXT   ,UOWSE   ,UPINV   ,URETN   ,USTART  ,
     1          UTYPE   ,VARFLG  ,VARIBL  ,VARMAX  ,VARNAM  ,VARNDX  ,
     1          VARNUM  ,         VSTACK  ,VSTOP   ,WWIDTH  
      COMMON /FLXSY2/ ASSMBL, CONT  , DONE  , ENDFIL, ENDLIN, ENDPGM
      COMMON /FLXSY2/ ERLST , FIRST , FOUND , INCLUD, INDENT, INSERT
      COMMON /FLXSY2/ LSTCMT, LSTFIN, LSTFLG, MINER , NDERR , NIERR
      COMMON /FLXSY2/ NOPGM , NOTFLG, PARMS , PASS  , QUOTE , SAVED
      COMMON /FLXSY2/ VARSET
      GOTO (1,2,3,4,5,6) LTYPE
      IF((LBLANK).NE.(LTYPE)) GO TO 32765
    1 ASSIGN 32763 TO I32764
      GO TO 32764
32763 GO TO 32766
32765 IF((LCOMNT).NE.(LTYPE)) GO TO 32762
    2 ASSIGN 32760 TO I32761
      GO TO 32761
32760 IF(.NOT.(LSTCMT)) GO TO 32759
      ASSIGN 32757 TO I32758
      GO TO 32758
32757 CONTINUE
32759 GO TO 32766
32762 IF((LDASHS).NE.(LTYPE)) GO TO 32756
    3 ASSIGN 32754 TO I32755
      GO TO 32755
32754 GO TO 32766
32756 IF((LFLEX).NE.(LTYPE)) GO TO 32753
    4 ASSIGN 32751 TO I32752
      GO TO 32752
32751 GO TO 32766
32753 IF((LINFLX).NE.(LTYPE)) GO TO 32750
    5 ASSIGN 32748 TO I32749
      GO TO 32749
32748 GO TO 32766
32750 IF((LINSRC).NE.(LTYPE)) GO TO 32747
    6 ASSIGN 32745 TO I32746
      GO TO 32746
32745 CONTINUE
32747 CONTINUE
32766 RETURN
32744 CONTINUE
      CURSOR=CURSOR+1
      CPOS=CPOS+1
      IF(.NOT.(CPOS.GT.NCHPWD)) GO TO 32743
      CWD=CWD+1
      CPOS=1
32743 IF(.NOT.(CURSOR.GT.SFLX(1))) GO TO 32741
      CH = -1
      CHTYPE=TEOL
      GO TO 32742
32741 CALL GETCH(SFLX(CWD),CPOS,CH)
      CHTYPE=CHTYP(CH)
32742 GO TO I32744
32764 CONTINUE
      LSTLEV=LEVEL
      IF(.NOT.(LSTLEV.EQ.0)) GO TO 32739
      CALL PUT(BLN,SB,LISTCL)
      GO TO 32740
32739 CALL CPYSTR(SLIST,SB6)
      DO 32737 I=1,LSTLEV
      CALL CATSTR(SLIST,SSPACR)
32737 CONTINUE
32738 IF(.NOT.(SLIST(1).GT.WWIDTH)) GO TO 32735
      CALL PUT(BLN,SB,LISTCL)
      GO TO 32736
32735 CALL PUT(BLN,SLIST,LISTCL)
32736 CONTINUE
32740 IF(BLN.EQ.0) GO TO 32734
      IF (LSTFIN)  CALL PUT(BLN,SB,FINCL)
      BLN=0
32734 GO TO I32764
32761 CONTINUE
      CURSOR=1
      ASSIGN 32732 TO I32733
      GO TO 32733
32732 INDENT=.TRUE.
      I=2
      GO TO 32730
32731 IF(.NOT.(I.LE.6.AND.INDENT)) GO TO 32729
32730 ASSIGN 32728 TO I32744
      GO TO 32744
32728 IF (CHTYPE.NE.TBLANK.AND.CHTYPE.NE.TEOL) INDENT=.FALSE.
      I=I+1
      GO TO 32731
32729 IF(.NOT.(INDENT)) GO TO 32726
      LSTLEV=LEVEL
      CLASS=0
      ASSIGN 32725 TO I32752
      GO TO 32752
32725 GO TO 32727
32726 CALL PUT(LINENO,SFLX,LISTCL)
      ASSIGN 32724 TO I32746
      GO TO 32746
32724 CONTINUE
32727 GO TO I32761
32758 CONTINUE
      CALL PUT (LINENO,SFLX,FORTCL)
      GO TO I32758
32755 CONTINUE
      CALL PUT(0,SB,LISTCL)
      CALL PUT(0,SDASH,LISTCL)
      CALL PUT(0,SB,LISTCL)
      GO TO I32755
32752 CONTINUE
      IF(.NOT.(CLASS.EQ.TTO .OR. ACTION.EQ.ATSEQ)) GO TO 32723
      ASSIGN 32722 TO I32755
      GO TO 32755
32722 CONTINUE
32723 IF(.NOT.(PARMS.AND.SAVED)) GO TO 32721
      LINENO=HOLDNO
      CALL CPYSTR(SFLX,SHOLD)
32721 IF (SFLX(1).LT.7)  CALL CATSTR(SFLX,SB7)
      CALL CPYSUB(SLIST,SFLX,1,6)
      IF(LSTLEV.EQ.0) GO TO 32720
      DO 32718 I=1,LSTLEV
      CALL CATSTR(SLIST,SSPACR)
32718 CONTINUE
32719 IF(.NOT.(CLASS.EQ.TFIN)) GO TO 32716
      SLIST(1)=SLIST(1)-SSPACR(1)
      CALL CATSTR(SLIST,SFSPCR)
      GO TO 32717
32716 IF(.NOT.(CLASS.EQ.TBREAK .OR. CLASS.EQ.TNEXT)) GO TO 32715
      SLIST(1)=SLIST(1) - 3*NFIN
      IF(.NOT.(CLASS.EQ.TBREAK)) GO TO 32713
      CALL CATSTR(SLIST,SBSPCR)
      GO TO 32714
32713 CALL CATSTR(SLIST,SNSPCR)
32714 I=2
32712 IF(.NOT.(I.LE.NFIN)) GO TO 32711
      CALL CATSTR(SLIST,SDSPCR)
      I = I + 1
      GO TO 32712
32711 CONTINUE
32715 CONTINUE
32717 CONTINUE
32720 CALL CATSUB(SLIST,SFLX,7,SFLX(1)-6)
      IF (SLIST(1).GT.WWIDTH)  CALL CPYSTR(SLIST,SFLX)
      IF(.NOT.(ERLST)) GO TO 32709
      CALL PUT(LINENO,SLIST,ERRCL)
      ERLST=.FALSE.
      GO TO 32710
32709 CALL PUT(LINENO,SLIST,LISTCL)
32710 ASSIGN 32708 TO I32749
      GO TO 32749
32708 GO TO I32752
32749 CONTINUE
      IF(.NOT.(LSTFIN)) GO TO 32707
      CALL CPYSUB(SLIST,SFLX,1,6)
      IF(LSTLEV.EQ.0) GO TO 32706
      DO 32704 I=1,LSTLEV
      CALL CATSTR(SLIST,STSPCR)
32704 CONTINUE
32705 CONTINUE
32706 CALL CATSUB(SLIST,SFLX,7,SFLX(1)-6)
      CALL PUT(LINENO,SLIST,FINCL)
32707 GO TO I32749
32746 CONTINUE
      IF (LSTFIN)  CALL PUT(LINENO,SFLX,FINCL)
      GO TO I32746
32733 CONTINUE
      CURSOR=CURSOR-1
      CWD=(CURSOR-1)/NCHPWD+2
      CPOS=CURSOR-(CWD-2)*NCHPWD
      ASSIGN 32703 TO I32744
      GO TO 32744
32703 GO TO I32733
      END