      PROGRAM FLECS                                                     00084 
      INTEGER DTYPE                             !22-JUN-81 (MAO)        00162 
      COMMON/DIR/DTYPE                          !22-JUN-81 (MAO)        00163 
      LOGICAL PASFLG                                    !30JUN81MAO     00165 
      INTEGER CNDLVL                                    !30JUN81MAO     00166 
      INTEGER OFFLVL                                    !30JUN81MAO     00167 
      INTEGER COND                                      !30JUN81MAO     00168 
      INTEGER CNDVAL                                    !30JUN81MAO     00169 
      COMMON/COND/PASFLG,CNDLVL,OFFLVL,COND,CNDVAL(4,10) !30JUN81MAO    00170 
      INTEGER POUND                                     !26-JUN-81 (MAO)00175 
      INTEGER TDIR                                      !22-JUN-81 (MAO)00176 
      INTEGER TOFF                                      !30JUN81MAO     00177 
      INTEGER DPAGE                                     !22-JUN-81 (MAO)00178 
      INTEGER DPIF,DPUNL,DPEND                          !30JUN81MAO     00179 
      INTEGER DNAME                                     !30JUN81MAO     00180 
      INTEGER DINCL                                     !29-JUN-81MAO   00181 
      INTEGER UDIR                                      !29-JUN-81MAO   00182 
      INTEGER ACSEQ , ACTION, AELSE , AFSEQ , AGCONT, AGGOTO            00183 
      INTEGER AGRET , AGSTNO, AMSEQ ,ASSEQ , ATSEQ                      00184 
      INTEGER BLN   , NOCALL, CHC   , CHSPAC, CHZERO                    00185 
      INTEGER CINLIN                                    !25-JAN-80      00186 
      INTEGER CLASS , CONTNO, DUMMY , ELSNO , ENDNO , ENTNO             00187 
      INTEGER ERRCL , ERROR , ERRSTK, ERSTOP, EXTYPE, FLXNO             00188 
      INTEGER FORTCL, GGOTON, GOTONO, GSTNO , HASH  , HOLDNO            00189 
      INTEGER I     , ITEMP , J     , L     , LEVEL , LINENO            00190 
      INTEGER LL    , LP    , LR    , LT                                00191 
      INTEGER LISTCL, LOOPNO, LSTLEV, LWIDTH, MAJCNT                    00192 
      INTEGER MAX   , MAXSTK, MINCNT, MLINE , NCHPWD, NEWNO             00193 
      INTEGER NEXTNO, NUNITS, NXIFNO, OFFSET, OFFST2, P                 00194 
      INTEGER PARAM1, PARAM2, PARAM3, PARAM4, PDUMMY, PENT              00195 
      INTEGER PARAM5                                    !25-JAN-80      00196 
      INTEGER PRIME , PTABLE, Q     , QM    , QP    , READ              00197 
      INTEGER REFNO , RETNO , RETRY , S     , SAFETY, SASSN1            00198 
      INTEGER SASSN2, SB    , SB5I1 , SB6   , SB6I  , SB7   , SBGOTO    00199 
      INTEGER SCONT                                                     00200 
      INTEGER SCOMMA, SCP   , SDASH , SDOST , SDUM  , SEEDNO, SEQ       00201 
      INTEGER SETUP , SFLX  , SFORCE, SGOTO , SGOTOI, SGUP1             00202 
      INTEGER SGOTOP                                                    00203 
      INTEGER SGUP2 , SHOLD , SIF   , SIFP  , SIFPN , SLIST             00204 
      INTEGER SNE   , SOURCE, SPB   , SPGOTO, SPINV , SPUTGO            00205 
      INTEGER SRP   , SRTN  , SSPACR, SST   , SSTMAX, SSTOP             00206 
      INTEGER SRPCI                                                     00207 
      INTEGER STACK , STNO  , SVER  , TCEXP , TCOND , TDO               00208 
      INTEGER TELSE , TEND  , TESTNO, TEXEC , TFIN  , TFORT             00209 
      INTEGER TIF   , TINVOK, TMAX  , TOP   , TOPNO , TOPTYP            00210 
      INTEGER TRUNTL, TRWHIL, TSELCT, TTO   , TUNLES, TUNTIL            00211 
      INTEGER TWHEN , TWHILE, UDO   , UEXP  , UFORT , ULEN              00212 
      INTEGER UOWSE , UPINV , USTART, UTYPE , WWIDTH                    00213 
      LOGICAL ALECS                                     !20-FEB-80      00220 
      LOGICAL COGOTO, FAKE  , LONG                                      00221 
      LOGICAL DONE  , ENDFIL, ENDPGM, ERLST , FIRST , FOUND , INSERT    00222 
      LOGICAL NOPGM , NOTFLG, PASS  , SAVED ,SHORT , STREQ , STRLT      00223 
      DIMENSION  UTYPE(3), USTART(3), ULEN(3)                           00231 
      DIMENSION STACK(2000)                                             00234 
      DIMENSION ERRSTK(5)                                               00237 
      COMMON BLN   , CLASS , DONE  , ENDFIL, ENDPGM, ERLST              00246 
      COMMON ERROR , ERRSTK, ERSTOP, EXTYPE, FIRST , FLXNO              00247 
      COMMON FOUND , HOLDNO, LEVEL , LINENO, LSTLEV, MAJCNT             00248 
      COMMON MINCNT, MLINE , NOPGM , NUNITS, PASS  , PTABLE, QP         00249 
      COMMON REFNO , SAVED , SFLX  , SHOLD , SLIST , SOURCE             00250 
      COMMON SPINV , SPUTGO, SST   , STACK , TOP   , ULEN               00251 
      COMMON USTART, UTYPE , WWIDTH                                     00252 
      COMMON /PARAM/ PARAM1, PARAM2, PARAM3, PARAM4, PARAM5   !25-JAN-8000344 
      DIMENSION SFLX   (51)                                             00357 
      DIMENSION SHOLD  (51)                                             00359 
      DIMENSION SLIST  (101)                                            00361 
      DIMENSION SPINV  (41)                                             00363 
      DIMENSION SPUTGO (11)                                             00365 
      DIMENSION SST    (101)                                            00367 
      DIMENSION SASSN1 (8)                                              00373 
      DIMENSION SASSN2 (4)                                              00376 
      DIMENSION SB     (2)                                              00379 
      DIMENSION SB5I1  (4)                                              00382 
      DIMENSION SB6    (4)                                              00385 
      DIMENSION SB7    (5)                                              00388 
      DIMENSION SB6I   (5)                                              00391 
      DIMENSION SBGOTO (5)                                              00394 
      DIMENSION SCOMMA (2)                                              00397 
      DIMENSION SCONT  (5)                                              00400 
      DIMENSION SCP    (2)                                              00403 
      DIMENSION SDOST  (6)                                              00406 
      DIMENSION SDASH  (21)                                             00409 
      DIMENSION SDUM   (9)                                              00414 
      DIMENSION SEQ    (2)                                              00417 
      DIMENSION SFORCE (8)                                              00420 
      DIMENSION SGOTO  (7)                                              00423 
      DIMENSION SGOTOI (8)                                              00426 
      DIMENSION SGOTOP (8)                                              00429 
      DIMENSION SGUP1  (30)                                             00432 
      DIMENSION SGUP2  (23)                                             00438 
      DIMENSION SIF    (5)                                              00443 
      DIMENSION SIFP   (6)                                              00446 
      DIMENSION SIFPN  (8)                                              00449 
      DIMENSION SNE    (3)                                              00452 
      DIMENSION SPB    (2)                                              00455 
      DIMENSION SPGOTO (5)                                              00458 
      DIMENSION SRP    (2)                                              00461 
      DIMENSION SRPCI  (3)                                              00464 
      DIMENSION SRTN   (7)                                              00467 
      DIMENSION SSPACR (3)                                              00470 
      DIMENSION SSTOP  (9)                                              00473 
      DIMENSION SVER   (12)                                             00476 
      DATA POUND/"43/           !# SIGN FOR COLUMN 1    !26-JUN-81 (MAO)00485 
      DATA FORTCL /1/, LISTCL /2/, ERRCL /3/                            00486 
      DATA ACSEQ/1/, AELSE/2/, AFSEQ/3/, AGCONT/4/, AGGOTO/5/           00487 
      DATA AGSTNO/6/, AMSEQ/7/, AGRET/8/, ASSEQ/9/, ATSEQ/10/           00488 
      DATA UEXP/1/, UFORT/2/, UOWSE/3/, UPINV/4/, UDO/5/                00489 
      DATA UDIR/6/                                              !29-JUN-00490 
      DATA TCEXP/1/, TELSE/2/, TEND/3/, TEXEC/4/, TFIN/5/, TTO/6/       00491 
      DATA TDIR /7/                                             !22-JUN-00492 
      DATA TOFF /8/                                             !30JUN8100493 
      DATA TCOND/1/, TDO/2/, TFORT/3/, TIF/4/, TINVOK/5/, TRUNTL/6/     00494 
      DATA TRWHIL/7/, TSELCT/8/, TUNLES/9/, TUNTIL/10/, TWHEN/11/       00495 
      DATA TWHILE/12/                                                   00496 
      DATA DPAGE /1/                                            !22-JUN-00497 
      DATA DINCL /2/                                            !29-JUN-00498 
      DATA DPIF /3/, DPUNL /4/, DPEND /5/                       !30JUN8100499 
      DATA DNAME /6/                                            !30JUN8100500 
      DATA SETUP /1/, RETRY /2/, READ /3/                               00501 
      DATA CHC /67/                                                     00502 
      DATA CINLIN /33/                                  !25-JAN-80      00503 
      DATA LWIDTH /132/                                                 00504 
      DATA MAXSTK /2000/                                                00505 
      DATA NCHPWD /2/                                                   00506 
      DATA PRIME /53/                                                   00507 
      DATA SAFETY /35/                                                  00508 
      DATA SEEDNO /32760/                                               00509 
      DATA LONG /.FALSE./                                               00510 
      DATA SHORT /.TRUE./                                               00511 
      DATA FAKE /.FALSE./                                               00512 
      DATA COGOTO /.FALSE./                                             00513 
      DATA CHSPAC /32/                                                  00514 
      DATA CHZERO /48/                                                  00515 
      DATA SSTMAX /200/                                                 00516 
      DATA SASSN1 / 13, 2H  , 2H  , 2H  , 2HAS, 2HSI, 2HGN, 1H /        00517 
      DATA SASSN2 /  5, 2H T, 2HO , 1HI/                                00518 
      DATA SB     /  1, 1H /                                            00519 
      DATA SB5I1  /  6, 2H  , 2H  , 2H 1/                               00520 
      DATA SB6    /  6, 2H  , 2H  , 2H  /                               00521 
      DATA SB7    /  7, 2H  , 2H  , 2H  , 1H /                          00522 
      DATA SB6I   /  7, 2H  , 2H  , 2H  , 1HI/                          00523 
      DATA SBGOTO /  7, 2H G, 2HO , 2HTO, 1H /                          00524 
      DATA SCOMMA /  1, 1H,/                                            00525 
      DATA SCONT  /  8, 2HCO, 2HNT, 2HIN, 2HUE/                         00526 
      DATA SCP    /  2, 2H,(/                                           00527 
      DATA SDOST  /  9, 2H  , 2H  , 2H  , 2HDO, 1H /                    00528 
      DATA SDASH  / 40, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--  00529 
     1                , 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--  00530 
     1                , 2H--, 2H--, 2H--, 2H--/                         00531 
      DATA SDUM   / 15, 2HDU, 2HMM, 2HY-, 2HPR, 2HOC, 2HED, 2HUR, 1HE/  00532 
      DATA SEQ    /  1, 1H=/                                            00533 
      DATA SFORCE / 14, 2H  , 2H  , 2H  , 2HCO, 2HNT, 2HIN, 2HUE/       00534 
      DATA SGOTO  / 12, 2H  , 2H  , 2H  , 2HGO, 2H T, 2HO /             00535 
      DATA SGOTOI / 13, 2H  , 2H  , 2H  , 2HGO, 2H T, 2HO , 1HI/        00536 
      DATA SGOTOP / 13, 2H  , 2H  , 2H  , 2HGO, 2H T, 2HO , 1H(/        00537 
      DATA SGUP1  / 57, 2H**, 2H**, 2H* , 2HTR, 2HAN, 2HSL, 2HAT, 2HOR  00538 
     1                , 2H H, 2HAS, 2H U, 2HSE, 2HD , 2HUP, 2H I, 2HTS  00539 
     1                , 2H A, 2HLL, 2HOT, 2HED, 2H S, 2HPA, 2HCE, 2H F  00540 
     1                , 2HOR, 2H T, 2HAB, 2HLE, 1HS/                    00541 
      DATA SGUP2  / 44, 2H**, 2H**, 2H* , 2HTR, 2HAN, 2HSL, 2HAT, 2HIO  00542 
     1                , 2HN , 2HMU, 2HST, 2H T, 2HER, 2HMI, 2HNA, 2HTE  00543 
     1                , 2H I, 2HMM, 2HED, 2HIA, 2HTE, 2HLY/             00544 
      DATA SIF    /  8, 2H  , 2H  , 2H  , 2HIF/                         00545 
      DATA SIFP   /  9, 2H  , 2H  , 2H  , 2HIF, 1H(/                    00546 
      DATA SIFPN  / 14, 2H  , 2H  , 2H  , 2HIF, 2H(., 2HNO, 2HT./       00547 
      DATA SNE    /  4, 2H.N, 2HE./                                     00548 
      DATA SPB    /  2, 2H) /                                           00549 
      DATA SPGOTO /  8, 2H) , 2HGO, 2H T, 2HO /                         00550 
      DATA SRP    /  1, 1H)/                                            00551 
      DATA SRPCI  /  4, 2H),, 2H I/                                     00552 
      DATA SRTN   / 12, 2H  , 2H  , 2H  , 2HRE, 2HTU, 2HRN/             00553 
      DATA SSPACR /  3, 2H. , 1H /                                      00554 
      DATA SSTOP  / 15, 2H  , 2H  , 2H  , 2HCA, 2HLL, 2H E, 2HXI, 1HT/  00555 
      DATA SVER   / 21, 2H(F, 2HLE, 2HCS, 2H V, 2HER, 2HSI, 2HON, 2H 2  00556 
     1                , 2H2., 2H38, 1H)/                                00557 
      ASSIGN 32757 TO I32758                                            00563 
      GO TO 32758                                                       00563 
32757 GO TO 32755                                                       00564 
32756 IF(DONE) GO TO 32754                                              00564 
32755 NOCALL=NOCALL+1           !ONE MORE CALL MADE TO OPENF            00565 
      CALL OPENF(NOCALL,DONE,SVER)      !GET CMD LINE, OPEN FTN,FLL,FLX 00566 
      IF(DONE) GO TO 32753                                              00567 
      ENDFIL=.FALSE.                                                    00568 
      MINCNT=0          !NUMBER OF WARNINGS                             00569 
      MAJCNT=0          !NUMBER OF ERRORS                               00570 
      LINENO=0          !INITIALIZE LINE # FOR FLX FILE                 00571 
      GO TO 32751                                                       00572 
32752 IF(ENDFIL) GO TO 32750                                            00572 
32751 ASSIGN 32748 TO I32749                                            00573 
      GO TO 32749                                                       00573 
32748 ASSIGN 32746 TO I32747                                            00574 
      GO TO 32747                                                       00574 
32746 GO TO 32752                                                       00575 
32750 CALL CLOSEF(MINCNT,MAJCNT)        !CLOSE FLX,FTN,FLL FILES        00576 
32753 GO TO 32756                                                       00578 
32754 CALL EXFLE                        !MAO, 30-APR-80                 00579 
32745 CONTINUE                                                          00580 
      CALL CPYSUB (SST,SFLX,USTART(1),ULEN(1))                          00584 
      CALL NEWNAM (SST(1),SST(2))                                       00585 
      GO TO I32745                                                      00586 
32744 CONTINUE                                                          00587 
      ASSIGN 32742 TO I32743                                            00588 
      GO TO 32743                                                       00588 
32742 ASSIGN 32740 TO I32741                                            00589 
      GO TO 32741                                                       00589 
32740 IF(.NOT.(UTYPE(1).EQ.UEXP)) GO TO 32738                           00590 
      GOTONO=NEWNO(0)                                                   00591 
      STACK(TOP-2)=GOTONO                                               00592 
      ASSIGN 32736 TO I32737                                            00593 
      GO TO 32737                                                       00593 
32736 GO TO 32739                                                       00594 
32738 STACK(TOP-2)=0       !OTHERWISE CLAUSE                            00595 
32739 ASSIGN 32734 TO I32735                                            00596 
      GO TO 32735                                                       00596 
32734 GO TO I32744                                                      00597 
32733 CONTINUE                                                          00598 
      TOP=TOP+4                                                         00603 
      STACK(TOP)=ACSEQ                                                  00604 
      STACK(TOP-1)=LINENO                                               00605 
      STACK(TOP-2)=0                                                    00606 
      STACK(TOP-3)=0                                                    00607 
      LEVEL=LEVEL+1                                                     00608 
      ASSIGN 32732 TO I32741                                            00609 
      GO TO 32741                                                       00609 
32732 GO TO I32733                                                      00610 
32731 CONTINUE                                                          00611 
      IF(.NOT.(ALECS)) GO TO 32729                                      00614 
      ASSIGN 32727 TO I32728                                            00615 
      GO TO 32728                                                       00615 
32727 GSTNO=NEWNO(0)                                                    00616 
      ASSIGN 32725 TO I32726                                            00617 
      GO TO 32726                                                       00617 
32725 NEXTNO=NEWNO(0)           !START OF SCOPE LABEL                   00618 
      CONTNO=NEWNO(0)           !LOOP NON-EXIT LABEL                    00619 
      ASSIGN 32723 TO I32724                                            00620 
      GO TO 32724                                                       00620 
32723 CALL ALEDO(SST,SFLX,USTART(1),ULEN(1),CONTNO,NEXTNO,GSTNO,        00622 
     1 LINENO,MAJCNT,FORTCL,ERRCL)                                      00623 
      GO TO 32730                                                       00624 
32729 CONTNO=NEWNO(0)                                                   00628 
      ASSIGN 32722 TO I32724                                            00629 
      GO TO 32724                                                       00629 
32722 CALL CPYSTR(SST,SDOST)                                            00630 
      CALL CATNUM(SST,CONTNO)                                           00631 
      CALL CATSTR(SST,SB)                                               00632 
      CALL CATSUB(SST,SFLX,USTART(1)+1,ULEN(1)-2)                       00633 
      STNO=FLXNO                                                        00634 
      FLXNO=0                                                           00635 
      ASSIGN 32720 TO I32721                                            00636 
      GO TO 32721                                                       00636 
32720 CONTINUE                                                          00639 
32730 ASSIGN 32719 TO I32735                                            00642 
      GO TO 32735                                                       00642 
32719 GO TO I32731                                                      00643 
32718 CONTINUE                                                          00644 
      TOP=TOP-2                                                         00645 
      ASSIGN 32717 TO I32741                                            00646 
      GO TO 32741                                                       00646 
32717 IF(.NOT.(NUNITS.EQ.1)) GO TO 32715                                00647 
      IF(.NOT.(UTYPE(1).EQ.UPINV)) GO TO 32713                          00648 
      ASSIGN 32711 TO I32712                                            00648 
      GO TO 32712                                                       00648 
32711 GO TO 32714                                                       00648 
32713 CALL CPYSUB(SST,SFLX,USTART(1),ULEN(1))                           00650 
      IF(STREQ(SST,SCONT)) GO TO 32710                                  00651 
      ASSIGN 32708 TO I32709                                            00651 
      GO TO 32709                                                       00651 
32708 CONTINUE                                                          00651 
32710 CONTINUE                                                          00652 
32714 GO TO 32716                                                       00653 
32715 ASSIGN 32706 TO I32707                                            00654 
      GO TO 32707                                                       00654 
32706 CONTINUE                                                          00654 
32716 GO TO I32718                                                      00655 
32705 CONTINUE                                                          00656 
      IF(.NOT.(CNDLVL.NE.0)) GO TO 32703                                00657 
      ERROR=404                              !30JUN81                   00657 
      GO TO 32704                                                       00657 
32703 ASSIGN 32701 TO I32702                                            00659 
      GO TO 32702                                                       00659 
32701 ASSIGN 32699 TO I32700                                            00661 
      GO TO 32700                                                       00661 
32699 IF (ENDFIL)   ERROR=25                                            00662 
      ENDPGM=.TRUE.                                                     00663 
32704 GO TO I32705                                                      00665 
32698 CONTINUE                                                          00666 
      IF((TFORT).NE.(EXTYPE)) GO TO 32696                               00668 
      ASSIGN 32695 TO I32700                                            00668 
      GO TO 32700                                                       00668 
32695 GO TO 32697                                                       00669 
32696 IF((TIF).NE.(EXTYPE)) GO TO 32694                                 00669 
      ASSIGN 32692 TO I32693                                            00669 
      GO TO 32693                                                       00669 
32692 GO TO 32697                                                       00670 
32694 IF((TUNLES).NE.(EXTYPE)) GO TO 32691                              00670 
      ASSIGN 32689 TO I32690                                            00670 
      GO TO 32690                                                       00670 
32689 GO TO 32697                                                       00671 
32691 IF((TWHEN).NE.(EXTYPE)) GO TO 32688                               00671 
      ASSIGN 32686 TO I32687                                            00671 
      GO TO 32687                                                       00671 
32686 GO TO 32697                                                       00672 
32688 IF((TWHILE).NE.(EXTYPE)) GO TO 32685                              00672 
      ASSIGN 32683 TO I32684                                            00672 
      GO TO 32684                                                       00672 
32683 GO TO 32697                                                       00673 
32685 IF((TUNTIL).NE.(EXTYPE)) GO TO 32682                              00673 
      ASSIGN 32680 TO I32681                                            00673 
      GO TO 32681                                                       00673 
32680 GO TO 32697                                                       00674 
32682 IF((TRWHIL).NE.(EXTYPE)) GO TO 32679                              00674 
      ASSIGN 32677 TO I32678                                            00674 
      GO TO 32678                                                       00674 
32677 GO TO 32697                                                       00675 
32679 IF((TRUNTL).NE.(EXTYPE)) GO TO 32676                              00675 
      ASSIGN 32674 TO I32675                                            00675 
      GO TO 32675                                                       00675 
32674 GO TO 32697                                                       00676 
32676 IF((TINVOK).NE.(EXTYPE)) GO TO 32673                              00676 
      ASSIGN 32672 TO I32712                                            00676 
      GO TO 32712                                                       00676 
32672 GO TO 32697                                                       00677 
32673 IF((TCOND).NE.(EXTYPE)) GO TO 32671                               00677 
      ASSIGN 32670 TO I32733                                            00677 
      GO TO 32733                                                       00677 
32670 GO TO 32697                                                       00678 
32671 IF((TSELCT).NE.(EXTYPE)) GO TO 32669                              00678 
      ASSIGN 32667 TO I32668                                            00678 
      GO TO 32668                                                       00678 
32667 GO TO 32697                                                       00679 
32669 IF((TDO).NE.(EXTYPE)) GO TO 32666                                 00679 
      ASSIGN 32665 TO I32731                                            00679 
      GO TO 32731                                                       00679 
32665 CONTINUE                                                          00680 
32666 CONTINUE                                                          00680 
32697 GO TO I32698                                                      00681 
32709 CONTINUE                                                          00682 
      STNO=FLXNO        !IF STMNT # ON FLX LINE, PUT IT ON THIS LINE    00683 
      CALL CPYSTR(SST,SB6)      !PUT IN 6 BLANKS                        00684 
      IF(.NOT.(UTYPE(1).EQ.UFORT)) GO TO 32663                          00685 
      J=1                                                               00685 
      GO TO 32664                                                       00685 
32663 J=2                                                               00686 
32664 CALL CATSUB(SST,SFLX,USTART(J),ULEN(J))   !ADD ON FORTRAN LINE    00687 
      ASSIGN 32662 TO I32721                                            00688 
      GO TO 32721                                                       00688 
32662 GO TO I32709                                                      00689 
32693 CONTINUE                                                          00690 
      IF(.NOT.(ALECS)) GO TO 32660                                      00693 
      ASSIGN 32658 TO I32659                                            00693 
      GO TO 32659                                                       00693 
32658 GO TO 32661                                                       00693 
32660 IF(.NOT.(NUNITS.EQ.2.AND.UTYPE(2).EQ.UFORT)) GO TO 32656          00697 
      ASSIGN 32655 TO I32700                                            00697 
      GO TO 32700                                                       00697 
32655 GO TO 32657                                                       00697 
32656 ASSIGN 32654 TO I32659                                            00698 
      GO TO 32659                                                       00698 
32654 CONTINUE                                                          00698 
32657 CONTINUE                                                          00701 
32661 GO TO I32693                                                      00704 
32712 CONTINUE                                                          00705 
      ASSIGN 32652 TO I32653                                            00706 
      GO TO 32653                                                       00706 
32652 ENTNO=STACK(PENT+1)       !START OF PROCEDURE STMNT #             00707 
      RETNO=NEWNO(0)    !WHERE TO RETURN FROM THIS CALL                 00708 
      MAX=MAX-(1+OFFSET)                                                00709 
      STACK(MAX+1)=STACK(PENT+3)                                        00710 
      STACK(PENT+3)=MAX+1                                               00711 
      STACK(MAX+2)=LINENO                                               00712 
      IF (LONG.OR.COGOTO) STACK(MAX+3)=RETNO                            00713 
      IF(.NOT.(ALECS)) GO TO 32650                                      00716 
      ASSIGN 32649 TO I32728                                            00717 
      GO TO 32728                                                       00717 
32649 CALL ALEINV(ENTNO,LINENO,FORTCL)                                  00718 
      GO TO 32651                                                       00719 
32650 IF(.NOT.(COGOTO)) GO TO 32647                                     00723 
      STACK(PENT-2)=STACK(PENT-2)+1                                     00724 
      CALL CPYSTR(SST,SB6I)                                             00725 
      CALL CATNUM(SST,ENTNO)                                            00726 
      CALL CATSTR(SST,SEQ)                                              00727 
      CALL CATNUM(SST,STACK(PENT-2))                                    00728 
      GO TO 32648                                                       00729 
32647 CALL CPYSTR(SST,SASSN1)                                           00731 
      CALL CATNUM(SST,RETNO)                                            00732 
      CALL CATSTR(SST,SASSN2)                                           00733 
      CALL CATNUM(SST,ENTNO)    !ASSIGN 'RETNO' TO I'ENTNO              00734 
32648 STNO=FLXNO                                                        00736 
      ASSIGN 32646 TO I32721                                            00737 
      GO TO 32721                                                       00737 
32646 GOTONO=ENTNO                                                      00738 
      ASSIGN 32644 TO I32645                                            00739 
      GO TO 32645                                                       00739 
32644 NEXTNO=RETNO      !NEXT STMNT #=RETURN PLACE FROM PROCEDURE       00740 
32651 GO TO I32712                                                      00746 
32675 CONTINUE                                                          00747 
      NOTFLG=.FALSE.                                                    00748 
      ASSIGN 32643 TO I32678                                            00749 
      GO TO 32678                                                       00749 
32643 GO TO I32675                                                      00750 
32678 CONTINUE                                                          00751 
      ASSIGN 32642 TO I32741                                            00752 
      GO TO 32741                                                       00752 
32642 TESTNO=NEWNO(0)   !# ON IF(.NOT.                                  00753 
      TOPNO=NEWNO(0)    !# AT TOP OF SCOPE                              00754 
      ENDNO=NEWNO(0)    !# PAST END OF LOOP                             00755 
      GOTONO=TOPNO                                                      00756 
      ASSIGN 32641 TO I32645                                            00757 
      GO TO 32645                                                       00757 
32641 STNO=TESTNO                                                       00758 
      GOTONO=ENDNO                                                      00759 
      ASSIGN 32640 TO I32737                                            00760 
      GO TO 32737                                                       00760 
32640 GSTNO=ENDNO                                                       00761 
      ASSIGN 32639 TO I32726                                            00762 
      GO TO 32726                                                       00762 
32639 GGOTON=TESTNO                                                     00763 
      ASSIGN 32637 TO I32638                                            00764 
      GO TO 32638                                                       00764 
32637 NEXTNO=TOPNO      !NEXT STMNT #=TOPNO                             00765 
      ASSIGN 32636 TO I32735                                            00766 
      GO TO 32735                                                       00766 
32636 GO TO I32678                                                      00767 
32668 CONTINUE                                                          00768 
      ASSIGN 32635 TO I32741                                            00769 
      GO TO 32741                                                       00769 
32635 LEVEL=LEVEL+1                                                     00770 
      L=(ULEN(1)-1)/NCHPWD+6    !PREPARE TO STORE EXPRESSION ON STACK   00771 
      TOP=TOP+L+1                                                       00772 
      IF(.NOT.(TOP+SAFETY.LT.MAX)) GO TO 32633                          00773 
      STACK(TOP)=ASSEQ                                                  00774 
      STACK(TOP-1)=LINENO                                               00775 
      STACK(TOP-2)=0                                                    00776 
      STACK(TOP-3)=0                                                    00777 
      STACK(TOP-4)=L                                                    00778 
      STACK(TOP-L)=0                                                    00779 
      CALL CATSUB(STACK(TOP-L),SFLX,USTART(1),ULEN(1))  !PUT EXP ON STAC00780 
      GO TO 32634                                                       00781 
32633 ASSIGN 32631 TO I32632                                            00782 
      GO TO 32632                                                       00782 
32631 CONTINUE                                                          00782 
32634 GO TO I32668                                                      00783 
32630 CONTINUE                                                          00784 
      LEVEL=LEVEL-1                                                     00785 
      ASSIGN 32629 TO I32741                                            00786 
      GO TO 32741                                                       00786 
32629 STNO=STACK(TOP-2)                                                 00787 
      IF(STNO.EQ.0) GO TO 32628                                         00788 
      ASSIGN 32626 TO I32627                                            00788 
      GO TO 32627                                                       00788 
32626 CONTINUE                                                          00788 
32628 ASSIGN 32624 TO I32625                                            00789 
      GO TO 32625                                                       00789 
32624 NEXTNO=STACK(TOP-3)       !GET # BEYOND END OF CONDITIONAL        00790 
      ASSIGN 32622 TO I32623                                            00791 
      GO TO 32623                                                       00791 
32622 GO TO I32630                                                      00792 
32621 CONTINUE                                                          00793 
      ASSIGN 32620 TO I32743                                            00794 
      GO TO 32743                                                       00794 
32620 ASSIGN 32619 TO I32741                                            00795 
      GO TO 32741                                                       00795 
32619 IF(.NOT.(UTYPE(1).EQ.UEXP)) GO TO 32617                           00796 
      IF(.NOT.(ALECS)) GO TO 32615                                      00799 
      ASSIGN 32614 TO I32728                                            00800 
      GO TO 32728                                                       00800 
32614 I=STACK(TOP-4)                                                    00801 
      NXIFNO=NEWNO(0)                                                   00802 
      STACK(TOP-2)=NXIFNO                                               00803 
      CALL ALESXP(SST,SFLX,USTART(1),ULEN(1),STACK(TOP-I),              00804 
     1 NXIFNO,LINENO,FORTCL)                                            00805 
      GO TO 32616                                                       00806 
32615 CALL CPYSTR(SST,SIFP)                                             00810 
      CALL CATSUB(SST,SFLX,USTART(1),ULEN(1))                           00811 
      CALL CATSTR(SST,SNE)                                              00812 
      I=STACK(TOP-4)                                                    00813 
      CALL CATSTR(SST,STACK(TOP-I))                                     00814 
      CALL CATSTR(SST,SPGOTO)                                           00815 
      NXIFNO=NEWNO(0)                                                   00816 
      STACK(TOP-2)=NXIFNO                                               00817 
      CALL CATNUM(SST,NXIFNO)   !"IF((E1.NE.(E))GOTO NXIFNO"            00818 
      STNO=0                                                            00819 
      ASSIGN 32613 TO I32721                                            00820 
      GO TO 32721                                                       00820 
32613 CONTINUE                                                          00823 
32616 GO TO 32618                                                       00826 
32617 STACK(TOP-2)=0       !FOR (OTHERWISE)                             00827 
32618 ASSIGN 32612 TO I32735                                            00828 
      GO TO 32735                                                       00828 
32612 GO TO I32621                                                      00829 
32611 CONTINUE                                                          00830 
      ASSIGN 32610 TO I32741                                            00834 
      GO TO 32741                                                       00834 
32610 LEVEL=LEVEL-1                                                     00835 
      TOP=TOP-2                                                         00836 
      GO TO I32611                                                      00837 
32609 CONTINUE                                                          00838 
      ASSIGN 32608 TO I32653                                            00839 
      GO TO 32653                                                       00839 
32608 IF(.NOT.(STACK(PENT+2).NE.0)) GO TO 32606                         00840 
      ERROR=26                                                          00841 
      MLINE=STACK(PENT+2)                                               00842 
      ENTNO=NEWNO(0)                                                    00843 
      GO TO 32607                                                       00844 
32606 ENTNO=STACK(PENT+1)                                               00846 
      STACK(PENT+2)=LINENO                                              00847 
32607 ASSIGN 32605 TO I32741                                            00849 
      GO TO 32741                                                       00849 
32605 ASSIGN 32604 TO I32625                                            00850 
      GO TO 32625                                                       00850 
32604 NEXTNO=ENTNO                                                      00851 
      ASSIGN 32603 TO I32625                                            00852 
      GO TO 32625                                                       00852 
32603 TOP=TOP+2                                                         00853 
      STACK(TOP)=AGRET                                                  00854 
      IF(.NOT.(SHORT.OR.FAKE)) GO TO 32601                              00855 
      STACK(TOP-1)=ENTNO   !SHORT .T. IN THIS VERSI                     00855 
      GO TO 32602                                                       00855 
32601 STACK(TOP-1)=STACK(PENT-1)                                        00856 
32602 UTYPE(1)=0                                                        00857 
      ASSIGN 32600 TO I32735                                            00858 
      GO TO 32735                                                       00858 
32600 GO TO I32609                                                      00859 
32690 CONTINUE                                                          00860 
      IF(.NOT.(ALECS)) GO TO 32598                                      00863 
      NOTFLG=.FALSE.                                                    00864 
      ASSIGN 32597 TO I32659                                            00865 
      GO TO 32659                                                       00865 
32597 GO TO 32599                                                       00866 
32598 IF(.NOT.(NUNITS.EQ.2.AND.UTYPE(2).EQ.UFORT)) GO TO 32595          00870 
      CALL CPYSTR(SST,SIFPN)                                            00871 
      CALL CATSUB(SST,SFLX,USTART(1),ULEN(1))                           00872 
      CALL CATSTR(SST,SPB)                                              00873 
      CALL CATSUB(SST,SFLX,USTART(2),ULEN(2))                           00874 
      STNO=FLXNO                                                        00875 
      ASSIGN 32594 TO I32721                                            00876 
      GO TO 32721                                                       00876 
32594 GO TO 32596                                                       00877 
32595 NOTFLG=.FALSE.                                                    00879 
      ASSIGN 32593 TO I32659                                            00880 
      GO TO 32659                                                       00880 
32593 CONTINUE                                                          00881 
32596 CONTINUE                                                          00884 
32599 GO TO I32690                                                      00887 
32681 CONTINUE                                                          00888 
      NOTFLG=.FALSE.                                                    00889 
      ASSIGN 32592 TO I32684                                            00890 
      GO TO 32684                                                       00890 
32592 GO TO I32681                                                      00891 
32687 CONTINUE                                                          00892 
      ENDNO=NEWNO(0)    !PAST END OF WHEN-ELSE                          00893 
      ELSNO=NEWNO(0)    !START OF ELSE                                  00894 
      GSTNO=ENDNO                                                       00895 
      ASSIGN 32591 TO I32726                                            00896 
      GO TO 32726                                                       00896 
32591 TOP=TOP+2                                                         00897 
      STACK(TOP-1)=LINENO                                               00898 
      STACK(TOP)=AELSE  !STACK CMD TO LOOK FOR ELSE                     00899 
      GSTNO=ELSNO                                                       00900 
      ASSIGN 32590 TO I32726                                            00901 
      GO TO 32726                                                       00901 
32590 GGOTON=ENDNO                                                      00902 
      ASSIGN 32589 TO I32638                                            00903 
      GO TO 32638                                                       00903 
32589 GOTONO=ELSNO      !WHERE TO GO IF LOGICAL CONDITION FALSE         00904 
      STNO=FLXNO                                                        00905 
      FLXNO=0                                                           00906 
      ASSIGN 32588 TO I32737                                            00907 
      GO TO 32737                                                       00907 
32588 ASSIGN 32587 TO I32735                                            00908 
      GO TO 32735                                                       00908 
32587 GO TO I32687                                                      00909 
32684 CONTINUE                                                          00910 
      IF(.NOT.(FLXNO.NE.0)) GO TO 32585                                 00912 
      LOOPNO=FLXNO                                                      00913 
      FLXNO=0                                                           00914 
      GO TO 32586                                                       00916 
32585 IF(.NOT.(NEXTNO.NE.0)) GO TO 32584                                00916 
      LOOPNO=NEXTNO                                                     00917 
      NEXTNO=0                                                          00918 
      GO TO 32586                                                       00920 
32584 LOOPNO=NEWNO(0)                                                   00921 
32586 ENDNO=NEWNO(0)                                                    00924 
      GSTNO=ENDNO                                                       00925 
      ASSIGN 32583 TO I32726                                            00926 
      GO TO 32726                                                       00926 
32583 GGOTON=LOOPNO                                                     00927 
      ASSIGN 32582 TO I32638                                            00928 
      GO TO 32638                                                       00928 
32582 GOTONO=ENDNO                                                      00929 
      STNO=LOOPNO                                                       00930 
      ASSIGN 32581 TO I32737                                            00931 
      GO TO 32737                                                       00931 
32581 ASSIGN 32580 TO I32735                                            00932 
      GO TO 32735                                                       00932 
32580 GO TO I32684                                                      00933 
32735 CONTINUE                                                          00934 
      IF(.NOT.(NUNITS.EQ.1)) GO TO 32578                                00940 
      ASSIGN 32577 TO I32707                                            00940 
      GO TO 32707                                                       00940 
32577 GO TO 32579                                                       00941 
32578 IF(.NOT.(UTYPE(2).EQ.UPINV)) GO TO 32576                          00941 
      ASSIGN 32575 TO I32712                                            00941 
      GO TO 32712                                                       00941 
32575 GO TO 32579                                                       00942 
32576 CALL CPYSUB(SST,SFLX,USTART(2),ULEN(2))   !IS IT JUST "CONTINUE"? 00943 
      IF(STREQ(SST,SCONT)) GO TO 32574                                  00944 
      ASSIGN 32573 TO I32709                                            00944 
      GO TO 32709                                                       00944 
32573 CONTINUE                                                          00944 
32574 CONTINUE                                                          00946 
32579 GO TO I32735                                                      00947 
32653 CONTINUE                                                          00948 
      IF(.NOT.(UTYPE(1).EQ.UPINV)) GO TO 32571                          00949 
      J=1                                                               00949 
      GO TO 32572                                                       00949 
32571 J=2                                                               00950 
32572 CALL CPYSUB(SPINV,SFLX,USTART(J),ULEN(J))                         00951 
      IF(.NOT.(STREQ(SPINV,SDUM))) GO TO 32569                          00952 
      PENT=PDUMMY                                                       00953 
      STACK(PENT+2)=0                                                   00954 
      GO TO 32570                                                       00955 
32569 P=MAXSTK-HASH(SPINV,PRIME)                                        00957 
      FOUND=.FALSE.                                                     00958 
      IF(STACK(P).EQ.0) GO TO 32568                                     00959 
      GO TO 32566                                                       00960 
32567 IF(STACK(P).EQ.0.OR.FOUND) GO TO 32565                            00960 
32566 P=STACK(P)                                                        00961 
      IF (STREQ(SPINV,STACK(P+4))) FOUND=.TRUE.                         00962 
      GO TO 32567                                                       00963 
32565 CONTINUE                                                          00964 
32568 IF(.NOT.(FOUND)) GO TO 32563                                      00965 
      PENT=P                                                            00965 
      GO TO 32564                                                       00965 
32563 TMAX=MAX-(4+OFFST2+(SPINV(1)+NCHPWD-1)/NCHPWD)                    00967 
      IF(.NOT.(TMAX.LE.TOP+SAFETY)) GO TO 32561                         00968 
      PENT=PDUMMY                                                       00969 
      STACK(PENT+2)=0                                                   00970 
      GO TO 32562                                                       00971 
32561 MAX=TMAX                                                          00973 
      PENT=MAX+OFFST2                                                   00974 
      IF (LONG.OR.COGOTO) STACK(PENT-1)=NEWNO(0)                        00975 
      IF (COGOTO) STACK(PENT-2)=0                                       00976 
      STACK(PENT)=0                                                     00977 
      STACK(P)=PENT                                                     00978 
      STACK(PENT+1)=NEWNO(0)                                            00979 
      STACK(PENT+2)=0                                                   00980 
      STACK(PENT+3)=0                                                   00981 
      CALL CPYSTR(STACK(PENT+4),SPINV)                                  00982 
32562 CONTINUE                                                          00984 
32564 CONTINUE                                                          00985 
32570 GO TO I32653                                                      00986 
32659 CONTINUE                                                          00987 
      GOTONO=NEWNO(0)           !GET STMNT # TO GOTO                    00988 
      STNO=FLXNO                                                        00989 
      FLXNO=0                                                           00990 
      ASSIGN 32560 TO I32737                                            00991 
      GO TO 32737                                                       00991 
32560 GSTNO=GOTONO                                                      00992 
      ASSIGN 32559 TO I32726                                            00993 
      GO TO 32726                                                       00993 
32559 ASSIGN 32558 TO I32735                                            00994 
      GO TO 32735                                                       00994 
32558 GO TO I32659                                                      00995 
32625 CONTINUE                                                          00996 
      IF(.NOT.(NEXTNO.NE.0)) GO TO 32557                                01001 
      IF(.NOT.(ALECS)) GO TO 32555                                      01004 
      CALL PUTLBL(NEXTNO,LINENO,FORTCL)                                 01004 
      GO TO 32556                                                       01004 
32555 CALL PUTNUM(SFORCE,NEXTNO)                                        01008 
      CALL PUT(LINENO,SFORCE,FORTCL)                                    01009 
32556 NEXTNO=0                                                          01015 
32557 GO TO I32625                                                      01017 
32728 CONTINUE                                                          01018 
      ASSIGN 32554 TO I32625                                            01023 
      GO TO 32625                                                       01023 
32554 IF(.NOT.(STNO.NE.0)) GO TO 32553                                  01024 
      NEXTNO=STNO                                                       01025 
      ASSIGN 32552 TO I32625                                            01026 
      GO TO 32625                                                       01026 
32552 STNO=0                                                            01027 
32553 IF(.NOT.(FLXNO.NE.0)) GO TO 32551                                 01029 
      NEXTNO=FLXNO                                                      01030 
      ASSIGN 32550 TO I32625                                            01031 
      GO TO 32625                                                       01031 
32550 FLXNO=0                                                           01032 
32551 GO TO I32728                                                      01034 
32743 CONTINUE                                                          01035 
      ENDNO=STACK(TOP-3)                                                01039 
      IF(.NOT.(ENDNO.EQ.0)) GO TO 32548                                 01040 
      STACK(TOP-3)=NEWNO(0)                                             01041 
      GO TO 32549                                                       01042 
32548 GOTONO=ENDNO                                                      01044 
      ASSIGN 32547 TO I32645                                            01045 
      GO TO 32645                                                       01045 
32547 CONTINUE                                                          01046 
32549 IF(.NOT.(NEXTNO.EQ.0)) GO TO 32545                                01048 
      NEXTNO=STACK(TOP-2)                                               01048 
      GO TO 32546                                                       01049 
32545 IF(.NOT.(STACK(TOP-2).EQ.0)) GO TO 32544                          01049 
      GO TO 32546                                                       01050 
32544 ASSIGN 32543 TO I32625                                            01051 
      GO TO 32625                                                       01051 
32543 NEXTNO=STACK(TOP-2)                                               01052 
32546 GO TO I32743                                                      01055 
32542 CONTINUE                                                          01056 
      IF(.NOT.(ALECS)) GO TO 32540                                      01059 
      ASSIGN 32539 TO I32728                                            01060 
      GO TO 32728                                                       01060 
32539 CALL ALEBRI(STACK(TOP-1),LINENO,FORTCL)                           01061 
      GO TO 32541                                                       01062 
32540 STNO=STACK(TOP-1)                                                 01066 
      ASSIGN 32538 TO I32627                                            01067 
      GO TO 32627                                                       01067 
32538 CONTINUE                                                          01070 
32541 TOP=TOP-2                                                         01073 
      GO TO I32542                                                      01074 
32537 CONTINUE                                                          01075 
      GOTONO=STACK(TOP-1)                                               01079 
      ASSIGN 32536 TO I32645                                            01080 
      GO TO 32645                                                       01080 
32536 TOP=TOP-2                                                         01081 
      GO TO I32537                                                      01082 
32535 CONTINUE                                                          01130 
      STNO=0                                                            01131 
      IF(.NOT.(ALECS)) GO TO 32533                                      01134 
      ASSIGN 32532 TO I32728                                            01135 
      GO TO 32728                                                       01135 
32532 CALL ALERTS(LINENO,FORTCL)                                        01136 
      GO TO 32534                                                       01137 
32533 CALL CPYSTR(SST,SGOTOI)                                           01141 
      IF (LONG.OR.COGOTO) SST(1)=SST(1)-1                               01142 
      CALL CATNUM(SST,STACK(TOP-1))             !GOTO I#                01143 
      IF(.NOT.(FAKE)) GO TO 32531                                       01144 
      CALL CATSTR(SST,SCP)                                              01145 
      CALL CATNUM(SST,STACK(TOP-1))                                     01146 
      CALL CATSTR(SST,SRP)                                              01147 
32531 ASSIGN 32530 TO I32721                                            01149 
      GO TO 32721                                                       01149 
32530 CONTINUE                                                          01152 
32534 TOP=TOP-2                                                         01155 
      GO TO I32535                                                      01156 
32529 CONTINUE                                                          01157 
      ASSIGN 32528 TO I32625                                            01162 
      GO TO 32625                                                       01162 
32528 NEXTNO=STACK(TOP-1)                                               01163 
      TOP=TOP-2                                                         01164 
      GO TO I32529                                                      01165 
32632 CONTINUE                                                          01166 
      CALL PUT(0,SGUP1,ERRCL)                                           01167 
      CALL PUT(0,SGUP2,ERRCL)                                           01168 
      CALL CLOSEF(MINCNT,-1)                                            01169 
      CALL EXFLE                        !MAO, 30-APR-80                 01170 
      GO TO I32632                                                      01171 
32527 CONTINUE                                                          01181 
      CALL CPYSUB (SST,SFLX,USTART(1),ULEN(1))                          01185 
      CALL OPNINC (SST(1),SST(2),ERROR)                                 01186 
      IF (ERROR.NE.0) ERROR=ERROR+300                                   01187 
      GO TO I32527                                                      01188 
32758 CONTINUE                                                          01189 
      CALL LAMPFI(ALECS,CHC,CINLIN)             !20-FEB-80              01192 
      NOCALL=0                  !# OF TIMES OPENF HAS BEEN CALLED       01195 
      PARAM1=NCHPWD             !# OF CHARACTERS PER INTEGER WORD       01196 
      PARAM2=CHZERO                                                     01197 
      PARAM3=CHSPAC                                                     01198 
      PARAM4=CHC                !COMMENT CHARACTER                      01199 
      PARAM5=CINLIN             !IN-LINE COMMENT CHAR   !25-JAN-80      01200 
      BLN=0                                                             01201 
      WWIDTH=LWIDTH-10          !11-SEP-75                              01202 
      REFNO=(LWIDTH-16)/7       !11-SEP-75                              01203 
      IF(.NOT.(SHORT.OR.FAKE)) GO TO 32525                              01205 
      OFFSET=1                                                          01206 
      OFFST2=1                                                          01207 
      GO TO 32526                                                       01209 
32525 IF(.NOT.(COGOTO)) GO TO 32524                                     01209 
      OFFSET=2                                                          01210 
      OFFST2=3                                                          01211 
      GO TO 32526                                                       01213 
32524 OFFSET=2                                                          01214 
      OFFST2=3                                                          01215 
32526 NOTFLG=.TRUE.                                                     01218 
      ERLST=.FALSE.                                                     01219 
      GO TO I32758                                                      01220 
32623 CONTINUE                                                          01221 
      TOPTYP=STACK(TOP)                                                 01222 
      IF((ASSEQ).NE.(TOPTYP)) GO TO 32522                               01224 
      TOP=TOP-STACK(TOP-4)-1                                            01224 
      GO TO 32523                                                       01225 
32522 IF((ACSEQ).NE.(TOPTYP)) GO TO 32521                               01225 
      TOP=TOP-4                                                         01225 
      GO TO 32523                                                       01226 
32521 IF((AGGOTO).NE.(TOPTYP)) GO TO 32520                              01226 
      TOP=TOP-2                                                         01226 
      GO TO 32523                                                       01227 
32520 IF((AGCONT).NE.(TOPTYP)) GO TO 32519                              01227 
      TOP=TOP-2                                                         01227 
      GO TO 32523                                                       01228 
32519 IF((AFSEQ).NE.(TOPTYP)) GO TO 32518                               01228 
      TOP=TOP-2                                                         01228 
      GO TO 32523                                                       01229 
32518 IF((AELSE).NE.(TOPTYP)) GO TO 32517                               01229 
      TOP=TOP-2                                                         01229 
      GO TO 32523                                                       01230 
32517 IF((AGSTNO).NE.(TOPTYP)) GO TO 32516                              01230 
      TOP=TOP-2                                                         01230 
      GO TO 32523                                                       01231 
32516 IF((ATSEQ).NE.(TOPTYP)) GO TO 32515                               01231 
      TOP=TOP-1                                                         01231 
      GO TO 32523                                                       01232 
32515 IF((AMSEQ).NE.(TOPTYP)) GO TO 32514                               01232 
      TOP=TOP-1                                                         01232 
      GO TO 32523                                                       01233 
32514 IF((AGRET).NE.(TOPTYP)) GO TO 32513                               01233 
      TOP=TOP-2                                                         01233 
32513 CONTINUE                                                          01234 
32523 GO TO I32623                                                      01235 
32749 CONTINUE                                                          01236 
      DUMMY=NEWNO(SEEDNO)       !INITIALIZE STMNT # GENERATOR           01237 
      ENDPGM=.FALSE.                                                    01238 
      MAX=MAXSTK-(PRIME+OFFSET+3)                                       01239 
      PDUMMY=MAX+OFFSET                                                 01240 
      DO 32512 I=MAX,MAXSTK                                             01241 
      STACK(I)=0                                                        01241 
32512 CONTINUE                                                          01241 
      TOP=1             !START OF STACK                                 01242 
      STACK(TOP)=AMSEQ  !INITIAL CMD IS LOOK FOR FLECS MAIN LINE OR FORT01243 
      ERROR=0                                                           01244 
      FIRST=.TRUE.      !THIS IS FIRST READ ON THIS FILE                01245 
      NOPGM=.FALSE.                                                     01246 
      NEXTNO=0          !STMNT # FOR NEXT STMNT PUT IN FTN FILE         01247 
      SOURCE=READ       !GET INPUT FROM FILE                            01248 
      LEVEL=0                                                           01249 
      LSTLEV=0                                                          01250 
      PASFLG=.TRUE.                                             !30JUN8101251 
      CNDLVL=0                                          !30JUN81MAO     01252 
      OFFLVL=0                                          !30JUN81MAO     01253 
      GO TO I32749                                                      01259 
32511 CONTINUE                                                          01260 
      IF((DPAGE).NE.(DTYPE)) GO TO 32509                                01265 
      ASSIGN 32507 TO I32508                                            01265 
      GO TO 32508                                                       01265 
32507 GO TO 32510                                                       01266 
32509 IF((DINCL).NE.(DTYPE)) GO TO 32506                                01266 
      ASSIGN 32505 TO I32527                                            01266 
      GO TO 32527                                                       01266 
32505 GO TO 32510                                                       01267 
32506 IF((DPIF).NE.(DTYPE)) GO TO 32504                                 01267 
      ASSIGN 32502 TO I32503                                            01267 
      GO TO 32503                                                       01267 
32502 GO TO 32510                                                       01268 
32504 IF((DPUNL).NE.(DTYPE)) GO TO 32501                                01268 
      ASSIGN 32499 TO I32500                                            01268 
      GO TO 32500                                                       01268 
32499 GO TO 32510                                                       01269 
32501 IF((DPEND).NE.(DTYPE)) GO TO 32498                                01269 
      ASSIGN 32496 TO I32497                                            01269 
      GO TO 32497                                                       01269 
32496 GO TO 32510                                                       01270 
32498 IF((DNAME).NE.(DTYPE)) GO TO 32495                                01270 
      ASSIGN 32494 TO I32745                                            01270 
      GO TO 32745                                                       01270 
32494 CONTINUE                                                          01271 
32495 CONTINUE                                                          01271 
32510 GO TO I32511                                                      01272 
32497 CONTINUE                                                          01273 
      ASSIGN 32493 TO I32728                                            01274 
      GO TO 32728                                                       01274 
32493 IF(.NOT.(CNDLVL.EQ.0)) GO TO 32491                                01275 
      ERROR=401      !extra .PASSEND                                    01275 
      GO TO 32492                                                       01275 
32491 IF (CNDLVL.EQ.OFFLVL) PASFLG=.TRUE.       !back on                01277 
      CNDLVL=CNDLVL-1                                                   01278 
32492 GO TO I32497                                                      01280 
32503 CONTINUE                                                          01281 
      ASSIGN 32490 TO I32728                                            01283 
      GO TO 32728                                                       01283 
32490 CNDLVL=CNDLVL+1           !one more level of conditional          01284 
      IF(.NOT.(PASFLG)) GO TO 32489                                     01285 
      CALL CPYSUB (SST,SFLX,USTART(1),ULEN(1))  !get the name           01289 
      IF(.NOT.(SST(1).GT.6)) GO TO 32488                                01290 
      SST(1)=6                                                          01291 
      ERROR=402                                                         01292 
32488 IF (SST(1).LT.1) ERROR=403                !no name given!         01294 
      IF(.NOT.(ERROR.EQ.0)) GO TO 32487                                 01295 
      I=1                                                               01296 
      FOUND=.FALSE.                                                     01297 
32486 IF(I.GT.COND .OR. FOUND) GO TO 32485                              01298 
      FOUND=STREQ (SST,CNDVAL(1,I))                                     01299 
      I=I+1                                                             01300 
      GO TO 32486                                                       01301 
32485 IF(.NOT.(NOTFLG)) FOUND=.NOT.FOUND !invert for .PASSUNLESS        01303 
      IF(FOUND) GO TO 32484                                             01305 
      PASFLG=.FALSE.                                                    01306 
      OFFLVL=CNDLVL                                                     01307 
32484 CONTINUE                                                          01309 
32487 CONTINUE                                                          01310 
32489 GO TO I32503                                                      01311 
32500 CONTINUE                                                          01312 
      NOTFLG=.FALSE.            !signal really PASSUNLESS               01313 
      ASSIGN 32483 TO I32503                                            01314 
      GO TO 32503                                                       01314 
32483 NOTFLG=.TRUE.             !reset to default value                 01315 
      GO TO I32500                                                      01316 
32747 CONTINUE                                                          01317 
      GO TO 32481                                                       01318 
32482 IF(ENDPGM) GO TO 32480                                            01318 
32481 IF(.NOT.(TOP+SAFETY.GT.MAX)) GO TO 32479                          01319 
      ASSIGN 32478 TO I32632                                            01319 
      GO TO 32632                                                       01319 
32478 CONTINUE                                                          01319 
32479 ACTION=STACK(TOP)                 !ON FIRST PASS=AMSEQ            01320 
      IF((AGGOTO).NE.(ACTION)) GO TO 32476                              01322 
      ASSIGN 32475 TO I32537                                            01322 
      GO TO 32537                                                       01322 
32475 GO TO 32477                                                       01323 
32476 IF((AGRET).NE.(ACTION)) GO TO 32474                               01323 
      ASSIGN 32473 TO I32535                                            01323 
      GO TO 32535                                                       01323 
32473 GO TO 32477                                                       01324 
32474 IF((AGCONT).NE.(ACTION)) GO TO 32472                              01324 
      ASSIGN 32471 TO I32542                                            01324 
      GO TO 32542                                                       01324 
32471 GO TO 32477                                                       01325 
32472 IF((AGSTNO).NE.(ACTION)) GO TO 32470                              01325 
      ASSIGN 32469 TO I32529                                            01325 
      GO TO 32529                                                       01325 
32469 GO TO 32477                                                       01326 
32470 CALL ANALYZ       !GET INPUT AND FIGURE OUT WHAT NEEDS DOING      01327 
      IF((AFSEQ).NE.(ACTION)) GO TO 32467                               01329 
      IF((TDIR).NE.(CLASS)) GO TO 32465                                 01331 
      ASSIGN 32464 TO I32511                                            01331 
      GO TO 32511                                                       01331 
32464 GO TO 32466                                                       01332 
32465 IF((TEXEC).NE.(CLASS)) GO TO 32463                                01332 
      ASSIGN 32462 TO I32698                                            01332 
      GO TO 32698                                                       01332 
32462 GO TO 32466                                                       01333 
32463 IF((TFIN).NE.(CLASS)) GO TO 32461                                 01333 
      ASSIGN 32460 TO I32611                                            01333 
      GO TO 32611                                                       01333 
32460 GO TO 32466                                                       01334 
32461 IF((TEND).NE.(CLASS)) GO TO 32459                                 01334 
      ERROR=1                                                           01334 
      GO TO 32466                                                       01335 
32459 IF((TELSE).NE.(CLASS)) GO TO 32458                                01335 
      ERROR=10                                                          01335 
      GO TO 32466                                                       01336 
32458 IF((TTO).NE.(CLASS)) GO TO 32457                                  01336 
      ERROR=13                                                          01336 
      GO TO 32466                                                       01337 
32457 IF((TCEXP).NE.(CLASS)) GO TO 32456                                01337 
      ERROR=19                                                          01337 
      GO TO 32466                                                       01338 
32456 IF((TOFF).NE.(CLASS)) GO TO 32455                                 01338 
      CONTINUE                                            !30JUN81      01338 
32455 CONTINUE                                                          01339 
32466 GO TO 32468                                                       01341 
32467 IF((AMSEQ).NE.(ACTION)) GO TO 32454                               01341 
      IF((TDIR).NE.(CLASS)) GO TO 32452                                 01343 
      ASSIGN 32451 TO I32511                                            01343 
      GO TO 32511                                                       01343 
32451 GO TO 32453                                                       01344 
32452 IF((TEXEC).NE.(CLASS)) GO TO 32450                                01344 
      ASSIGN 32449 TO I32698                                            01344 
      GO TO 32698                                                       01344 
32449 GO TO 32453                                                       01345 
32450 IF((TEND).NE.(CLASS)) GO TO 32448                                 01345 
      IF(.NOT.(NOPGM)) GO TO 32446                                      01346 
      ENDPGM=.TRUE.                                                     01346 
      GO TO 32447                                                       01346 
32446 ASSIGN 32445 TO I32705                                            01347 
      GO TO 32705                                                       01347 
32445 CONTINUE                                                          01347 
32447 GO TO 32453                                                       01349 
32448 IF((TFIN).NE.(CLASS)) GO TO 32444                                 01349 
      ERROR=5                                                           01349 
      GO TO 32453                                                       01350 
32444 IF((TELSE).NE.(CLASS)) GO TO 32443                                01350 
      ERROR=8                                                           01350 
      GO TO 32453                                                       01351 
32443 IF((TTO).NE.(CLASS)) GO TO 32442                                  01351 
      STACK(TOP)=ATSEQ  !NOTE TOP NOT SHIFTED!!-->ONLY PROC DFN LEGAL   01352 
      ASSIGN 32441 TO I32609                                            01353 
      GO TO 32609                                                       01353 
32441 GO TO 32453                                                       01355 
32442 IF((TCEXP).NE.(CLASS)) GO TO 32440                                01355 
      ERROR=17                                                          01355 
      GO TO 32453                                                       01356 
32440 IF((TOFF).NE.(CLASS)) GO TO 32439                                 01356 
      CONTINUE                                            !30JUN81      01356 
32439 CONTINUE                                                          01357 
32453 GO TO 32468                                                       01359 
32454 IF((ASSEQ).NE.(ACTION)) GO TO 32438                               01359 
      IF((TDIR).NE.(CLASS)) GO TO 32436                                 01361 
      ASSIGN 32435 TO I32511                                            01361 
      GO TO 32511                                                       01361 
32435 GO TO 32437                                                       01362 
32436 IF((TCEXP).NE.(CLASS)) GO TO 32434                                01362 
      ASSIGN 32433 TO I32621                                            01362 
      GO TO 32621                                                       01362 
32433 GO TO 32437                                                       01363 
32434 IF((TFIN).NE.(CLASS)) GO TO 32432                                 01363 
      ASSIGN 32431 TO I32630                                            01363 
      GO TO 32630                                                       01363 
32431 GO TO 32437                                                       01364 
32432 IF((TEND).NE.(CLASS)) GO TO 32430                                 01364 
      ERROR=3                                                           01364 
      GO TO 32437                                                       01365 
32430 IF((TELSE).NE.(CLASS)) GO TO 32429                                01365 
      ERROR=12                                                          01365 
      GO TO 32437                                                       01366 
32429 IF((TTO).NE.(CLASS)) GO TO 32428                                  01366 
      ERROR=15                                                          01366 
      GO TO 32437                                                       01367 
32428 IF((TEXEC).NE.(CLASS)) GO TO 32427                                01367 
      ERROR=23                                                          01367 
      GO TO 32437                                                       01368 
32427 IF((TOFF).NE.(CLASS)) GO TO 32426                                 01368 
      CONTINUE                                            !30JUN81      01368 
32426 CONTINUE                                                          01369 
32437 GO TO 32468                                                       01371 
32438 IF((ACSEQ).NE.(ACTION)) GO TO 32425                               01371 
      IF((TDIR).NE.(CLASS)) GO TO 32423                                 01373 
      ASSIGN 32422 TO I32511                                            01373 
      GO TO 32511                                                       01373 
32422 GO TO 32424                                                       01374 
32423 IF((TCEXP).NE.(CLASS)) GO TO 32421                                01374 
      ASSIGN 32420 TO I32744                                            01374 
      GO TO 32744                                                       01374 
32420 GO TO 32424                                                       01375 
32421 IF((TFIN).NE.(CLASS)) GO TO 32419                                 01375 
      ASSIGN 32418 TO I32630                                            01375 
      GO TO 32630                                                       01375 
32418 GO TO 32424                                                       01376 
32419 IF((TEND).NE.(CLASS)) GO TO 32417                                 01376 
      ERROR=2                                                           01376 
      GO TO 32424                                                       01377 
32417 IF((TELSE).NE.(CLASS)) GO TO 32416                                01377 
      ERROR=11                                                          01377 
      GO TO 32424                                                       01378 
32416 IF((TTO).NE.(CLASS)) GO TO 32415                                  01378 
      ERROR=14                                                          01378 
      GO TO 32424                                                       01379 
32415 IF((TEXEC).NE.(CLASS)) GO TO 32414                                01379 
      ERROR=22                                                          01379 
      GO TO 32424                                                       01380 
32414 IF((TOFF).NE.(CLASS)) GO TO 32413                                 01380 
      CONTINUE                                            !30JUN81      01380 
32413 CONTINUE                                                          01381 
32424 GO TO 32468                                                       01383 
32425 IF((AELSE).NE.(ACTION)) GO TO 32412                               01383 
      IF((TDIR).NE.(CLASS)) GO TO 32410                                 01385 
      ASSIGN 32409 TO I32511                                            01385 
      GO TO 32511                                                       01385 
32409 GO TO 32411                                                       01386 
32410 IF((TELSE).NE.(CLASS)) GO TO 32408                                01386 
      ASSIGN 32407 TO I32718                                            01386 
      GO TO 32718                                                       01386 
32407 GO TO 32411                                                       01387 
32408 IF((TEND).NE.(CLASS)) GO TO 32406                                 01387 
      ERROR=4                                                           01387 
      GO TO 32411                                                       01388 
32406 IF((TFIN).NE.(CLASS)) GO TO 32405                                 01388 
      ERROR=7                                                           01388 
      GO TO 32411                                                       01389 
32405 IF((TTO).NE.(CLASS)) GO TO 32404                                  01389 
      ERROR=16                                                          01389 
      GO TO 32411                                                       01390 
32404 IF((TCEXP).NE.(CLASS)) GO TO 32403                                01390 
      ERROR=20                                                          01390 
      GO TO 32411                                                       01391 
32403 IF((TEXEC).NE.(CLASS)) GO TO 32402                                01391 
      ERROR=24                                                          01391 
      GO TO 32411                                                       01392 
32402 IF((TOFF).NE.(CLASS)) GO TO 32401                                 01392 
      CONTINUE                                            !30JUN81      01392 
32401 CONTINUE                                                          01393 
32411 GO TO 32468                                                       01395 
32412 IF((ATSEQ).NE.(ACTION)) GO TO 32400                               01395 
      IF((TDIR).NE.(CLASS)) GO TO 32398                                 01397 
      ASSIGN 32397 TO I32511                                            01397 
      GO TO 32511                                                       01397 
32397 GO TO 32399                                                       01398 
32398 IF((TTO).NE.(CLASS)) GO TO 32396                                  01398 
      ASSIGN 32395 TO I32609                                            01398 
      GO TO 32609                                                       01398 
32395 GO TO 32399                                                       01399 
32396 IF((TEND).NE.(CLASS)) GO TO 32394                                 01399 
      ASSIGN 32393 TO I32705                                            01399 
      GO TO 32705                                                       01399 
32393 GO TO 32399                                                       01400 
32394 IF((TFIN).NE.(CLASS)) GO TO 32392                                 01400 
      ERROR=6                                                           01400 
      GO TO 32399                                                       01401 
32392 IF((TELSE).NE.(CLASS)) GO TO 32391                                01401 
      ERROR=9                                                           01401 
      GO TO 32399                                                       01402 
32391 IF((TCEXP).NE.(CLASS)) GO TO 32390                                01402 
      ERROR=18                                                          01402 
      GO TO 32399                                                       01403 
32390 IF((TEXEC).NE.(CLASS)) GO TO 32389                                01403 
      ERROR=21                                                          01403 
      GO TO 32399                                                       01404 
32389 IF((TOFF).NE.(CLASS)) GO TO 32388                                 01404 
      CONTINUE                                            !30JUN81      01404 
32388 CONTINUE                                                          01405 
32399 CONTINUE                                                          01407 
32400 CONTINUE                                                          01407 
32468 IF(.NOT.(NOPGM .OR. CLASS.EQ.TOFF)) CALL LIST       !30JUN81MAO   01408 
32477 GO TO 32482                                                       01411 
32480 GO TO I32747                                                      01412 
32707 CONTINUE                                                          01413 
      TOP=TOP+2                                                         01414 
      STACK(TOP-1)=LINENO                                               01415 
      STACK(TOP)=AFSEQ                                                  01416 
      LEVEL=LEVEL+1                                                     01417 
      GO TO I32707                                                      01418 
32724 CONTINUE                                                          01419 
      TOP=TOP+2                                                         01420 
      STACK(TOP-1)=CONTNO                                               01421 
      STACK(TOP)=AGCONT                                                 01422 
      GO TO I32724                                                      01423 
32638 CONTINUE                                                          01424 
      TOP=TOP+2                                                         01425 
      STACK(TOP-1)=GGOTON                                               01426 
      STACK(TOP)=AGGOTO                                                 01427 
      GO TO I32638                                                      01428 
32726 CONTINUE                                                          01429 
      TOP=TOP+2                                                         01430 
      STACK(TOP-1)=GSTNO                                                01431 
      STACK(TOP)=AGSTNO                                                 01432 
      GO TO I32726                                                      01433 
32627 CONTINUE                                                          01434 
      ASSIGN 32387 TO I32625                                            01435 
      GO TO 32625                                                       01435 
32387 IF(.NOT.(ALECS)) GO TO 32385                                      01438 
      CALL PUTLBL(STNO,LINENO,FORTCL)                                   01438 
      GO TO 32386                                                       01438 
32385 CALL PUTNUM(SFORCE,STNO)                                          01442 
      CALL PUT(LINENO,SFORCE,FORTCL)                                    01443 
32386 STNO=0                                                            01449 
      GO TO I32627                                                      01450 
32700 CONTINUE                                                          01451 
      CALL CPYSTR (SST,SFLX)                            !26JUN81MAO     01455 
      CALL GETCH (SST(2),1,I)           !# IN COL 1?    !26-JUN-81(MAO) 01456 
      IF (I.EQ.POUND)CALL PUTCH (SST(2),1,CHSPAC) !BLANK OUT !26JUN81MAO01457 
      IF(.NOT.(NEXTNO.EQ.0)) GO TO 32383                                01459 
      CALL PUT(LINENO,SST,FORTCL)         !26JUN81MAO                   01459 
      GO TO 32384                                                       01460 
32383 IF(.NOT.(FLXNO.NE.0.OR.PASS)) GO TO 32382                         01460 
      ASSIGN 32381 TO I32625                                            01461 
      GO TO 32625                                                       01461 
32381 CALL PUT(LINENO,SST,FORTCL)                       !26JUN81MAO     01462 
      GO TO 32384                                                       01464 
32382 IF(.NOT.(ALECS)) GO TO 32379                                      01467 
      CALL PUTLBL(NEXTNO,LINENO,FORTCL)                                 01468 
      CALL PUT(LINENO,SST,FORTCL)                       !26JUN81MAO     01469 
      GO TO 32380                                                       01470 
32379 CALL PUTNUM(SST,NEXTNO)                                           01474 
      CALL PUT(LINENO,SST,FORTCL)                                       01475 
32380 NEXTNO=0                                                          01481 
32384 GO TO I32700                                                      01484 
32645 CONTINUE                                                          01485 
      IF(.NOT.(ALECS)) GO TO 32377                                      01488 
      ASSIGN 32376 TO I32728                                            01489 
      GO TO 32728                                                       01489 
32376 CALL ALEBRI(GOTONO,LINENO,FORTCL)                                 01490 
      GO TO 32378                                                       01491 
32377 CALL CPYSTR(SPUTGO,SGOTO)                                         01495 
      CALL CATNUM(SPUTGO,GOTONO)                                        01496 
      IF(.NOT.(NEXTNO.NE.0)) GO TO 32375                                01497 
      CALL PUTNUM(SPUTGO,NEXTNO)                                        01498 
      NEXTNO=0                                                          01499 
32375 CALL PUT(LINENO,SPUTGO,FORTCL)                                    01501 
32378 GO TO I32645                                                      01507 
32737 CONTINUE                                                          01508 
      IF(.NOT.(ALECS)) GO TO 32373                                      01513 
      ASSIGN 32372 TO I32728                                            01514 
      GO TO 32728                                                       01514 
32372 CALL PUTLOG(SFLX,USTART(1),ULEN(1),NOTFLG,GOTONO,LINENO,          01515 
     1 MAJCNT,FORTCL,ERRCL)                                             01516 
      GO TO 32374                                                       01517 
32373 IF(.NOT.(NOTFLG)) GO TO 32370                                     01521 
      CALL CPYSTR(SST,SIFPN)                                            01521 
      GO TO 32371                                                       01521 
32370 CALL CPYSTR(SST,SIF)                                              01522 
32371 CALL CATSUB(SST,SFLX,USTART(1),ULEN(1))                           01523 
      IF(.NOT.(NOTFLG)) GO TO 32368                                     01524 
      CALL CATSTR(SST,SPGOTO)                                           01524 
      GO TO 32369                                                       01524 
32368 CALL CATSTR(SST,SBGOTO)                                           01525 
32369 CALL CATNUM(SST,GOTONO)                                           01526 
      ASSIGN 32367 TO I32721                                            01527 
      GO TO 32721                                                       01527 
32367 CONTINUE                                                          01530 
32374 NOTFLG=.TRUE.                                                     01533 
      GO TO I32737                                                      01534 
32508 CONTINUE                                                          01535 
      CALL NEWPG                                                        01539 
      GO TO I32508                                                      01540 
32721 CONTINUE                                                          01541 
      IF(NEXTNO.EQ.0) GO TO 32366                                       01542 
      IF(.NOT.(STNO.EQ.0)) GO TO 32364                                  01543 
      STNO=NEXTNO                                                       01544 
      NEXTNO=0                                                          01545 
      GO TO 32365                                                       01546 
32364 ASSIGN 32363 TO I32625                                            01547 
      GO TO 32625                                                       01547 
32363 CONTINUE                                                          01547 
32365 CONTINUE                                                          01548 
32366 IF(STNO.EQ.0) GO TO 32362                                         01549 
      IF(.NOT.(ALECS)) GO TO 32360                                      01552 
      CALL PUTLBL(STNO,LINENO,FORTCL)                                   01552 
      GO TO 32361                                                       01552 
32360 CALL PUTNUM(SST,STNO)                                             01556 
32361 STNO=0                                                            01562 
32362 IF(.NOT.(SST(1).LE.72)) GO TO 32358                               01567 
      CALL PUT(LINENO,SST,FORTCL)                                       01567 
      GO TO 32359                                                       01567 
32358 CALL CPYSUB (SLIST,SST,1,72)                                      01569 
      CALL PUT(LINENO,SLIST,FORTCL)                                     01570 
      S=73                                                              01571 
      L=66                                                              01572 
      GO TO 32356                                                       01573 
32357 IF(S.GT.SST(1)) GO TO 32355                                       01573 
32356 IF(S+L-1.GT.SST(1)) L=SST(1)-S+1                                  01574 
      CALL CPYSTR(SLIST,SB5I1)                                          01575 
      CALL CATSUB(SLIST,SST,S,L)                                        01576 
      CALL PUT(LINENO,SLIST,FORTCL)                                     01577 
      S=S+66                                                            01578 
      GO TO 32357                                                       01579 
32355 CONTINUE                                                          01580 
32359 GO TO I32721                                                      01581 
32354 CONTINUE                                                          01582 
      LL=0                                                              01583 
      LR=STACK(LP)                                                      01584 
32353 IF(LR.EQ.0) GO TO 32352                                           01585 
      LT=STACK(LR)                                                      01586 
      STACK(LR)=LL                                                      01587 
      LL=LR                                                             01588 
      LR=LT                                                             01589 
      GO TO 32353                                                       01590 
32352 STACK(LP)=LL                                                      01591 
      GO TO I32354                                                      01592 
32741 CONTINUE                                                          01593 
      IF(.NOT.(FLXNO.NE.0)) GO TO 32351                                 01594 
      ASSIGN 32350 TO I32625                                            01595 
      GO TO 32625                                                       01595 
32350 NEXTNO=FLXNO                                                      01596 
      FLXNO=0                                                           01597 
32351 GO TO I32741                                                      01599 
32702 CONTINUE                                                          01600 
      P=MAX                                                             01601 
      STACK(MAX)=0                                                      01602 
      ITEMP=MAXSTK-PRIME+1                                              01603 
      DO 32349 I=ITEMP,MAXSTK                                           01604 
      IF(STACK(I).EQ.0) GO TO 32348                                     01605 
      STACK(P)=STACK(I)                                                 01606 
      GO TO 32346                                                       01607 
32347 IF(STACK(P).EQ.0) GO TO 32345                                     01607 
32346 P=STACK(P)                                                        01608 
      LP=P+3                                                            01609 
      ASSIGN 32344 TO I32354                                            01610 
      GO TO 32354                                                       01610 
32344 GO TO 32347                                                       01611 
32345 CONTINUE                                                          01612 
32348 CONTINUE                                                          01613 
32349 CONTINUE                                                          01613 
      Q=MAX-1                                                           01614 
      STACK(Q)=0                                                        01615 
32343 IF(STACK(MAX).EQ.0) GO TO 32342                                   01616 
      P=STACK(MAX)                                                      01617 
      STACK(MAX)=STACK(P)                                               01618 
      QM=Q                                                              01619 
      QP=STACK(QM)                                                      01620 
      INSERT=.FALSE.                                                    01621 
32341 IF(INSERT) GO TO 32340                                            01622 
      IF(.NOT.(QP.EQ.0)) GO TO 32338                                    01624 
      INSERT=.TRUE.                                                     01624 
      GO TO 32339                                                       01625 
32338 IF(.NOT.(STRLT(STACK(P+4),STACK(QP+4)))) GO TO 32337              01625 
      INSERT=.TRUE.                                                     01625 
      GO TO 32339                                                       01626 
32337 QM=QP                                                             01627 
      QP=STACK(QM)                                                      01628 
32339 GO TO 32341                                                       01631 
32340 STACK(P)=QP                                                       01632 
      STACK(QM)=P                                                       01633 
      GO TO 32343                                                       01634 
32342 PTABLE=STACK(Q)                                                   01635 
      GO TO I32702                                                      01636 
      END                                                               01637 
