INTEGER ACSEQ , ACTION, AELSE , AFSEQ , AGCONT, AGGOTO 08250 INTEGER AGRET , AGSTNO, AMSEQ ,ASSEQ , ATSEQ 08300 INTEGER BLN , NOCALL, CHC , CHSPAC, CHZERO 08550 INTEGER CLASS , CONTNO, DUMMY , ELSNO , ENDNO , ENTNO 08700 INTEGER ERRCL , ERROR , ERRSTK, ERSTOP, EXTYPE, FLXNO 08750 INTEGER FORTCL, GGOTON, GOTONO, GSTNO , HASH , HOLDNO 08800 INTEGER I , ITEMP , J , L , LEVEL , LINENO 08850 INTEGER LL , LP , LR , LT 08875 INTEGER LISTCL, LOOPNO, LSTLEV, LWIDTH, MAJCNT 08900 INTEGER MAX , MAXSTK, MINCNT, MLINE , NCHPWD, NEWNO 08950 INTEGER NEXTNO, NUNITS, NXIFNO, OFFSET, OFFST2, P 09000 INTEGER PARAM1, PARAM2, PARAM3, PARAM4, PDUMMY, PENT 09050 INTEGER PRIME , PTABLE, Q , QM , QP , READ 09100 INTEGER REFNO , RETNO , RETRY , S , SAFETY, SASSN1 09150 INTEGER SASSN2, SB , SB5I1 , SB6 , SB6I , SB7 , SBGOTO 09200 INTEGER SCONT 09220 INTEGER SCOMMA, SCP , SDASH , SDOST , SDUM , SEEDNO, SEQ 09250 INTEGER SETUP , SFLX , SFORCE, SGOTO , SGOTOI, SGUP1 09300 INTEGER SGOTOP 09310 INTEGER SGUP2 , SHOLD , SIF , SIFP , SIFPN , SLIST 09350 INTEGER SNE , SOURCE, SPB , SPGOTO, SPINV , SPUTGO 09400 INTEGER SRP , SRTN , SSPACR, SST , SSTMAX, SSTOP 09450 INTEGER SRPCI 09460 INTEGER STACK , STNO , SVER , TCEXP , TCOND , TDO 09500 INTEGER TELSE , TEND , TESTNO, TEXEC , TFIN , TFORT 09550 INTEGER TIF , TINVOK, TMAX , TOP , TOPNO , TOPTYP 09600 INTEGER TRUNTL, TRWHIL, TSELCT, TTO , TUNLES, TUNTIL 09650 INTEGER TWHEN , TWHILE, UDO , UEXP , UFORT , ULEN 09700 INTEGER UOWSE , UPINV , USTART, UTYPE , WWIDTH 09750 LOGICAL COGOTO, FAKE , LONG 12275 LOGICAL DONE , ENDFIL, ENDPGM, ERLST , FIRST , FOUND , INSERT 12300 LOGICAL NOPGM , NOTFLG, PASS , SAVED ,SHORT , STREQ , STRLT 12350 DIMENSION UTYPE(3), USTART(3), ULEN(3) 13050 DIMENSION STACK(2000) 13200 DIMENSION ERRSTK(5) 13350 COMMON BLN , CLASS , DONE , ENDFIL, ENDPGM, ERLST 13850 COMMON ERROR , ERRSTK, ERSTOP, EXTYPE, FIRST , FLXNO 13900 COMMON FOUND , HOLDNO, LEVEL , LINENO, LSTLEV, MAJCNT 13950 COMMON MINCNT, MLINE , NOPGM , NUNITS, PASS , PTABLE, QP 14000 COMMON REFNO , SAVED , SFLX , SHOLD , SLIST , SOURCE 14050 COMMON SPINV , SPUTGO, SST , STACK , TOP , ULEN 14100 COMMON USTART, UTYPE , WWIDTH 14150 COMMON /PARAM/ PARAM1, PARAM2, PARAM3, PARAM4 20700 DIMENSION SFLX (51) 21601 DIMENSION SHOLD (51) 21651 DIMENSION SLIST (101) 21701 DIMENSION SPINV (41) 21751 DIMENSION SPUTGO (11) 21801 DIMENSION SST (101) 21851 DIMENSION SASSN1 (8) 22151 DIMENSION SASSN2 (4) 22201 DIMENSION SB (2) 22301 DIMENSION SB5I1 (4) 22701 DIMENSION SB6 (4) 22801 DIMENSION SB7 (5) 22851 DIMENSION SB6I (5) 22921 DIMENSION SBGOTO (5) 22951 DIMENSION SCOMMA (2) 23001 DIMENSION SCONT (5) 23161 DIMENSION SCP (2) 23201 DIMENSION SDOST (6) 23301 DIMENSION SDASH (21) 23401 DIMENSION SDUM (9) 23501 DIMENSION SEQ (2) 23921 DIMENSION SFORCE (8) 23951 DIMENSION SGOTO (7) 24151 DIMENSION SGOTOI (8) 24201 DIMENSION SGOTOP (8) 24226 DIMENSION SGUP1 (28) 24251 DIMENSION SGUP2 (23) 24301 DIMENSION SIF (5) 24601 DIMENSION SIFP (6) 24851 DIMENSION SIFPN (8) 24901 DIMENSION SNE (3) 25401 DIMENSION SPB (2) 25601 DIMENSION SPGOTO (5) 25701 DIMENSION SRP (2) 26201 DIMENSION SRPCI (3) 26276 DIMENSION SRTN (7) 26301 DIMENSION SSPACR (3) 26401 DIMENSION SSTOP (9) 26801 DIMENSION SVER (12) 26951 DATA FORTCL /1/, LISTCL /2/, ERRCL /3/ 30001 DATA ACSEQ/1/, AELSE/2/, AFSEQ/3/, AGCONT/4/, AGGOTO/5/ 30002 DATA AGSTNO/6/, AMSEQ/7/, AGRET/8/, ASSEQ/9/, ATSEQ/10/ 30003 DATA UEXP/1/, UFORT/2/, UOWSE/3/, UPINV/4/, UDO/5/ 30004 DATA TCEXP/1/, TELSE/2/, TEND/3/, TEXEC/4/, TFIN/5/, TTO/6/ 30005 DATA TCOND/1/, TDO/2/, TFORT/3/, TIF/4/, TINVOK/5/, TRUNTL/6/ 30006 DATA TRWHIL/7/, TSELCT/8/, TUNLES/9/, TUNTIL/10/, TWHEN/11/ 30007 DATA TWHILE/12/ 30008 DATA SETUP /1/, RETRY /2/, READ /3/ 30009 DATA CHC /67/ 30010 DATA LWIDTH /132/ 30011 DATA MAXSTK /2000/ 30012 DATA NCHPWD /2/ 30013 DATA PRIME /53/ 30014 DATA SAFETY /35/ 30015 DATA SEEDNO /32760/ 30016 DATA LONG /.FALSE./ 30017 DATA SHORT /.TRUE./ 30018 DATA FAKE /.FALSE./ 30019 DATA COGOTO /.FALSE./ 30020 DATA CHSPAC /32/ 30021 DATA CHZERO /48/ 30022 DATA SSTMAX /200/ 30023 DATA SASSN1 / 13, 2H , 2H , 2H , 2HAS, 2HSI, 2HGN, 1H / 30024 DATA SASSN2 / 5, 2H T, 2HO , 1HI/ 30025 DATA SB / 1, 1H / 30026 DATA SB5I1 / 6, 2H , 2H , 2H 1/ 30027 DATA SB6 / 6, 2H , 2H , 2H / 30028 DATA SB7 / 7, 2H , 2H , 2H , 1H / 30029 DATA SB6I / 7, 2H , 2H , 2H , 1HI/ 30030 DATA SBGOTO / 7, 2H G, 2HO , 2HTO, 1H / 30031 DATA SCOMMA / 1, 1H,/ 30032 DATA SCONT / 8, 2HCO, 2HNT, 2HIN, 2HUE/ 30033 DATA SCP / 2, 2H,(/ 30034 DATA SDOST / 9, 2H , 2H , 2H , 2HDO, 1H / 30035 DATA SDASH / 40, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H-- 30036 1 , 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H-- 30037 1 , 2H--, 2H--, 2H--, 2H--/ 30038 DATA SDUM / 15, 2HDU, 2HMM, 2HY-, 2HPR, 2HOC, 2HED, 2HUR, 1HE/ 30039 DATA SEQ / 1, 1H=/ 30040 DATA SFORCE / 14, 2H , 2H , 2H , 2HCO, 2HNT, 2HIN, 2HUE/ 30041 DATA SGOTO / 12, 2H , 2H , 2H , 2HGO, 2H T, 2HO / 30042 DATA SGOTOI / 13, 2H , 2H , 2H , 2HGO, 2H T, 2HO , 1HI/ 30043 DATA SGOTOP / 13, 2H , 2H , 2H , 2HGO, 2H T, 2HO , 1H(/ 30044 DATA SGUP1 / 53, 2H**, 2H**, 2H* , 2HTR, 2HAN, 2HSL, 2HAT, 2HOR 30045 1 , 2H H, 2HAS, 2H U, 2HSE, 2HD , 2HUP, 2H A, 2HLL 30046 1 , 2HOT, 2HED, 2H S, 2HPA, 2HCE, 2H F, 2HOR, 2H T 30047 1 , 2HAB, 2HLE, 1HS/ 30048 DATA SGUP2 / 44, 2H**, 2H**, 2H* , 2HTR, 2HAN, 2HSL, 2HAT, 2HIO 30049 1 , 2HN , 2HMU, 2HST, 2H T, 2HER, 2HMI, 2HNA, 2HTE 30050 1 , 2H I, 2HMM, 2HED, 2HIA, 2HTE, 2HLY/ 30051 DATA SIF / 8, 2H , 2H , 2H , 2HIF/ 30052 DATA SIFP / 9, 2H , 2H , 2H , 2HIF, 1H(/ 30053 DATA SIFPN / 14, 2H , 2H , 2H , 2HIF, 2H(., 2HNO, 2HT./ 30054 DATA SNE / 4, 2H.N, 2HE./ 30055 DATA SPB / 2, 2H) / 30056 DATA SPGOTO / 8, 2H) , 2HGO, 2H T, 2HO / 30057 DATA SRP / 1, 1H)/ 30058 DATA SRPCI / 4, 2H),, 2H I/ 30059 DATA SRTN / 12, 2H , 2H , 2H , 2HRE, 2HTU, 2HRN/ 30060 DATA SSPACR / 3, 2H. , 1H / 30061 DATA SSTOP / 15, 2H , 2H , 2H , 2HCA, 2HLL, 2H E, 2HXI, 1HT/ 30062 DATA SVER / 21, 2H(F, 2HLE, 2HCS, 2H V, 2HER, 2HSI, 2HON, 2H 2 30063 1 , 2H2., 2H54, 1H)/ 30064 ASSIGN 32758 TO I32759 30350 GO TO 32759 30351 32758 GO TO 32756 30400 32757 IF(DONE) GO TO 32755 30401 32756 NOCALL=NOCALL+1 30550 CALL OPENF(NOCALL,DONE,SVER) 30600 IF(DONE) GO TO 32754 30900 ENDFIL=.FALSE. 30950 MINCNT=0 30960 MAJCNT=0 30961 LINENO=0 30975 GO TO 32752 31000 32753 IF(ENDFIL) GO TO 32751 31001 32752 ASSIGN 32749 TO I32750 31050 GO TO 32750 31051 32749 ASSIGN 32747 TO I32748 31100 GO TO 32748 31101 32747 GO TO 32753 31150 32751 CALL CLOSEF(MINCNT,MAJCNT) 31200 32754 GO TO 32757 31300 32755 CALL EXIT 31315 32746 CONTINUE 39150 ASSIGN 32744 TO I32745 39200 GO TO 32745 39201 32744 ASSIGN 32742 TO I32743 39250 GO TO 32743 39251 32742 IF(.NOT.(UTYPE(1).EQ.UEXP)) GO TO 32740 39300 GOTONO=NEWNO(0) 39350 STACK(TOP-2)=GOTONO 39400 STNO=0 39410 ASSIGN 32738 TO I32739 39450 GO TO 32739 39451 32738 GO TO 32741 39500 32740 STACK(TOP-2)=0 39550 32741 ASSIGN 32736 TO I32737 39822 GO TO 32737 39823 32736 GO TO I32746 39850 32735 CONTINUE 39900 TOP=TOP+4 39950 STACK(TOP)=ACSEQ 40000 STACK(TOP-1)=LINENO 40050 STACK(TOP-2)=0 40100 STACK(TOP-3)=0 40150 LEVEL=LEVEL+1 40200 ASSIGN 32734 TO I32743 40250 GO TO 32743 40251 32734 GO TO I32735 40300 32733 CONTINUE 40350 CONTNO=NEWNO(0) 40400 ASSIGN 32731 TO I32732 40450 GO TO 32732 40451 32731 CALL CPYSTR(SST,SDOST) 40500 CALL CATNUM(SST,CONTNO) 40550 CALL CATSTR(SST,SB) 40600 CALL CATSUB(SST,SFLX,USTART(1)+1,ULEN(1)-2) 40650 STNO=FLXNO 40700 FLXNO=0 40750 ASSIGN 32729 TO I32730 40800 GO TO 32730 40801 32729 ASSIGN 32728 TO I32737 40850 GO TO 32737 40851 32728 GO TO I32733 40900 32727 CONTINUE 40950 TOP=TOP-2 41000 ASSIGN 32726 TO I32743 41050 GO TO 32743 41051 32726 IF(.NOT.(NUNITS.EQ.1)) GO TO 32724 41100 IF(.NOT.(UTYPE(1).EQ.UPINV)) GO TO 32722 41150 ASSIGN 32720 TO I32721 41151 GO TO 32721 41152 32720 GO TO 32723 41153 32722 CALL CPYSUB(SST,SFLX,USTART(1),ULEN(1)) 41204 IF(STREQ(SST,SCONT)) GO TO 32719 41205 ASSIGN 32717 TO I32718 41206 GO TO 32718 41207 32717 CONTINUE 41208 32719 CONTINUE 41209 32723 GO TO 32725 41250 32724 ASSIGN 32715 TO I32716 41300 GO TO 32716 41301 32715 CONTINUE 41302 32725 GO TO I32727 41350 32714 CONTINUE 41400 ASSIGN 32712 TO I32713 41450 GO TO 32713 41451 32712 IF(.NOT.(LONG.OR.COGOTO)) GO TO 32711 41500 ASSIGN 32709 TO I32710 41501 GO TO 32710 41502 32709 CONTINUE 41503 32711 ASSIGN 32707 TO I32708 41800 GO TO 32708 41801 32707 IF (ENDFIL) ERROR=25 41900 ENDPGM=.TRUE. 41950 GO TO I32714 42000 32706 CONTINUE 42050 IF((TFORT).NE.(EXTYPE)) GO TO 32704 42150 ASSIGN 32703 TO I32708 42151 GO TO 32708 42152 32703 GO TO 32705 42200 32704 IF((TIF).NE.(EXTYPE)) GO TO 32702 42201 ASSIGN 32700 TO I32701 42202 GO TO 32701 42203 32700 GO TO 32705 42250 32702 IF((TUNLES).NE.(EXTYPE)) GO TO 32699 42251 ASSIGN 32697 TO I32698 42252 GO TO 32698 42253 32697 GO TO 32705 42300 32699 IF((TWHEN).NE.(EXTYPE)) GO TO 32696 42301 ASSIGN 32694 TO I32695 42302 GO TO 32695 42303 32694 GO TO 32705 42350 32696 IF((TWHILE).NE.(EXTYPE)) GO TO 32693 42351 ASSIGN 32691 TO I32692 42352 GO TO 32692 42353 32691 GO TO 32705 42400 32693 IF((TUNTIL).NE.(EXTYPE)) GO TO 32690 42401 ASSIGN 32688 TO I32689 42402 GO TO 32689 42403 32688 GO TO 32705 42450 32690 IF((TRWHIL).NE.(EXTYPE)) GO TO 32687 42451 ASSIGN 32685 TO I32686 42452 GO TO 32686 42453 32685 GO TO 32705 42500 32687 IF((TRUNTL).NE.(EXTYPE)) GO TO 32684 42501 ASSIGN 32682 TO I32683 42502 GO TO 32683 42503 32682 GO TO 32705 42550 32684 IF((TINVOK).NE.(EXTYPE)) GO TO 32681 42551 ASSIGN 32680 TO I32721 42552 GO TO 32721 42553 32680 GO TO 32705 42600 32681 IF((TCOND).NE.(EXTYPE)) GO TO 32679 42601 ASSIGN 32678 TO I32735 42602 GO TO 32735 42603 32678 GO TO 32705 42650 32679 IF((TSELCT).NE.(EXTYPE)) GO TO 32677 42651 ASSIGN 32675 TO I32676 42652 GO TO 32676 42653 32675 GO TO 32705 42700 32677 IF((TDO).NE.(EXTYPE)) GO TO 32674 42701 ASSIGN 32673 TO I32733 42702 GO TO 32733 42703 32673 CONTINUE 42750 32674 CONTINUE 42751 32705 GO TO I32706 42800 32718 CONTINUE 42850 STNO=FLXNO 42900 CALL CPYSTR(SST,SB6) 42950 IF(.NOT.(UTYPE(1).EQ.UFORT)) GO TO 32671 43000 J=1 43001 GO TO 32672 43002 32671 J=2 43050 32672 CALL CATSUB(SST,SFLX,USTART(J),ULEN(J)) 43100 ASSIGN 32670 TO I32730 43150 GO TO 32730 43151 32670 GO TO I32718 43200 32701 CONTINUE 43250 IF(.NOT.(NUNITS.EQ.2.AND.UTYPE(2).EQ.UFORT)) GO TO 32668 43300 ASSIGN 32667 TO I32708 43301 GO TO 32708 43302 32667 GO TO 32669 43303 32668 ASSIGN 32665 TO I32666 43350 GO TO 32666 43351 32665 CONTINUE 43352 32669 GO TO I32701 43400 32721 CONTINUE 43450 ASSIGN 32663 TO I32664 43500 GO TO 32664 43501 32663 ENTNO=STACK(PENT+1) 43550 RETNO=NEWNO(0) 43600 MAX=MAX-(1+OFFSET) 43650 STACK(MAX+1)=STACK(PENT+3) 43700 STACK(PENT+3)=MAX+1 43750 STACK(MAX+2)=LINENO 43800 IF (LONG.OR.COGOTO) STACK(MAX+3)=RETNO 43850 IF(.NOT.(COGOTO)) GO TO 32661 43852 STACK(PENT-2)=STACK(PENT-2)+1 43854 CALL CPYSTR(SST,SB6I) 43856 CALL CATNUM(SST,ENTNO) 43858 CALL CATSTR(SST,SEQ) 43860 CALL CATNUM(SST,STACK(PENT-2)) 43862 GO TO 32662 43864 32661 CALL CPYSTR(SST,SASSN1) 43900 CALL CATNUM(SST,RETNO) 43950 CALL CATSTR(SST,SASSN2) 44000 CALL CATNUM(SST,ENTNO) 44050 32662 STNO=FLXNO 44100 ASSIGN 32660 TO I32730 44150 GO TO 32730 44151 32660 GOTONO=ENTNO 44200 ASSIGN 32658 TO I32659 44250 GO TO 32659 44251 32658 NEXTNO=RETNO 44300 GO TO I32721 44350 32683 CONTINUE 44400 NOTFLG=.FALSE. 44450 ASSIGN 32657 TO I32686 44500 GO TO 32686 44501 32657 GO TO I32683 44550 32686 CONTINUE 44600 ASSIGN 32656 TO I32743 44650 GO TO 32743 44651 32656 TESTNO=NEWNO(0) 44700 TOPNO=NEWNO(0) 44750 ENDNO=NEWNO(0) 44800 GOTONO=TOPNO 44850 ASSIGN 32655 TO I32659 44900 GO TO 32659 44901 32655 STNO=TESTNO 44950 GOTONO=ENDNO 45000 ASSIGN 32654 TO I32739 45050 GO TO 32739 45051 32654 GSTNO=ENDNO 45100 ASSIGN 32652 TO I32653 45150 GO TO 32653 45151 32652 GGOTON=TESTNO 45200 ASSIGN 32650 TO I32651 45250 GO TO 32651 45251 32650 NEXTNO=TOPNO 45300 ASSIGN 32649 TO I32737 45350 GO TO 32737 45351 32649 GO TO I32686 45400 32676 CONTINUE 45450 ASSIGN 32648 TO I32743 45500 GO TO 32743 45501 32648 LEVEL=LEVEL+1 45550 L=(ULEN(1)-1)/NCHPWD+6 45600 TOP=TOP+L+1 45650 IF(.NOT.(TOP+SAFETY.LT.MAX)) GO TO 32646 45700 STACK(TOP)=ASSEQ 45750 STACK(TOP-1)=LINENO 45800 STACK(TOP-2)=0 45850 STACK(TOP-3)=0 45900 STACK(TOP-4)=L 45950 I=TOP-L 45960 STACK(I)=0 46000 CALL CATSUB(STACK(I),SFLX,USTART(1),ULEN(1)) 46050 GO TO 32647 46100 32646 ASSIGN 32644 TO I32645 46150 GO TO 32645 46151 32644 CONTINUE 46152 32647 GO TO I32676 46200 32643 CONTINUE 46250 LEVEL=LEVEL-1 46300 ASSIGN 32642 TO I32743 46350 GO TO 32743 46351 32642 STNO=STACK(TOP-2) 46400 IF(STNO.EQ.0) GO TO 32641 46450 ASSIGN 32639 TO I32640 46451 GO TO 32640 46452 32639 CONTINUE 46453 32641 ASSIGN 32637 TO I32638 46500 GO TO 32638 46501 32637 NEXTNO=STACK(TOP-3) 46550 ASSIGN 32635 TO I32636 46600 GO TO 32636 46601 32635 GO TO I32643 46650 32634 CONTINUE 46700 ASSIGN 32633 TO I32745 46750 GO TO 32745 46751 32633 ASSIGN 32632 TO I32743 46800 GO TO 32743 46801 32632 IF(.NOT.(UTYPE(1).EQ.UEXP)) GO TO 32630 46850 CALL CPYSTR(SST,SIFP) 46900 CALL CATSUB(SST,SFLX,USTART(1),ULEN(1)) 46950 CALL CATSTR(SST,SNE) 47000 I=TOP-STACK(TOP-4) 47050 CALL CATSTR(SST,STACK(I)) 47100 CALL CATSTR(SST,SPGOTO) 47150 NXIFNO=NEWNO(0) 47200 STACK(TOP-2)=NXIFNO 47250 CALL CATNUM(SST,NXIFNO) 47300 STNO=0 47350 ASSIGN 32629 TO I32730 47400 GO TO 32730 47401 32629 GO TO 32631 47450 32630 STACK(TOP-2)=0 47500 32631 ASSIGN 32628 TO I32737 47550 GO TO 32737 47551 32628 GO TO I32634 47600 32627 CONTINUE 47650 ASSIGN 32626 TO I32743 47700 GO TO 32743 47701 32626 LEVEL=LEVEL-1 47750 TOP=TOP-2 47800 GO TO I32627 47850 32625 CONTINUE 47900 ASSIGN 32624 TO I32664 47950 GO TO 32664 47951 32624 IF(.NOT.(STACK(PENT+2).NE.0)) GO TO 32622 48000 ERROR=26 48050 MLINE=STACK(PENT+2) 48100 ENTNO=NEWNO(0) 48150 GO TO 32623 48200 32622 ENTNO=STACK(PENT+1) 48300 STACK(PENT+2)=LINENO 48350 32623 ASSIGN 32621 TO I32743 48450 GO TO 32743 48451 32621 ASSIGN 32620 TO I32638 48500 GO TO 32638 48501 32620 NEXTNO=ENTNO 48550 ASSIGN 32619 TO I32638 48570 GO TO 32638 48571 32619 TOP=TOP+2 48600 STACK(TOP)=AGRET 48650 IF(.NOT.(SHORT.OR.FAKE)) GO TO 32617 48700 STACK(TOP-1)=ENTNO 48701 GO TO 32618 48702 32617 STACK(TOP-1)=STACK(PENT-1) 48750 32618 UTYPE(1)=0 48800 ASSIGN 32616 TO I32737 48850 GO TO 32737 48851 32616 GO TO I32625 48900 32698 CONTINUE 48950 IF(.NOT.(NUNITS.EQ.2.AND.UTYPE(2).EQ.UFORT)) GO TO 32614 49000 CALL CPYSTR(SST,SIFPN) 49050 CALL CATSUB(SST,SFLX,USTART(1),ULEN(1)) 49100 CALL CATSTR(SST,SPB) 49150 CALL CATSUB(SST,SFLX,USTART(2),ULEN(2)) 49200 STNO=FLXNO 49250 ASSIGN 32613 TO I32730 49300 GO TO 32730 49301 32613 GO TO 32615 49350 32614 NOTFLG=.FALSE. 49450 ASSIGN 32612 TO I32666 49500 GO TO 32666 49501 32612 CONTINUE 49550 32615 GO TO I32698 49600 32689 CONTINUE 49650 NOTFLG=.FALSE. 49700 ASSIGN 32611 TO I32692 49750 GO TO 32692 49751 32611 GO TO I32689 49800 32695 CONTINUE 49850 ENDNO=NEWNO(0) 49900 ELSNO=NEWNO(0) 49950 GSTNO=ENDNO 50000 ASSIGN 32610 TO I32653 50050 GO TO 32653 50051 32610 TOP=TOP+2 50100 STACK(TOP-1)=LINENO 50150 STACK(TOP)=AELSE 50200 GSTNO=ELSNO 50250 ASSIGN 32609 TO I32653 50300 GO TO 32653 50301 32609 GGOTON=ENDNO 50350 ASSIGN 32608 TO I32651 50400 GO TO 32651 50401 32608 GOTONO=ELSNO 50450 STNO=FLXNO 50500 FLXNO=0 50550 ASSIGN 32607 TO I32739 50600 GO TO 32739 50601 32607 ASSIGN 32606 TO I32737 50650 GO TO 32737 50651 32606 GO TO I32695 50700 32692 CONTINUE 50750 IF(.NOT.(FLXNO.NE.0)) GO TO 32604 50850 LOOPNO=FLXNO 50900 FLXNO=0 50950 GO TO 32605 51050 32604 IF(.NOT.(NEXTNO.NE.0)) GO TO 32603 51051 LOOPNO=NEXTNO 51100 NEXTNO=0 51150 GO TO 32605 51250 32603 LOOPNO=NEWNO(0) 51300 32605 ENDNO=NEWNO(0) 51450 GSTNO=ENDNO 51500 ASSIGN 32602 TO I32653 51550 GO TO 32653 51551 32602 GGOTON=LOOPNO 51600 ASSIGN 32601 TO I32651 51650 GO TO 32651 51651 32601 GOTONO=ENDNO 51700 STNO=LOOPNO 51750 ASSIGN 32600 TO I32739 51800 GO TO 32739 51801 32600 ASSIGN 32599 TO I32737 51850 GO TO 32737 51851 32599 GO TO I32692 51900 32737 CONTINUE 51950 IF(.NOT.(NUNITS.EQ.1)) GO TO 32597 52050 ASSIGN 32596 TO I32716 52051 GO TO 32716 52052 32596 GO TO 32598 52100 32597 IF(.NOT.(UTYPE(2).EQ.UPINV)) GO TO 32595 52101 ASSIGN 32594 TO I32721 52102 GO TO 32721 52103 32594 GO TO 32598 52170 32595 CALL CPYSUB(SST,SFLX,USTART(2),ULEN(2)) 52171 IF(STREQ(SST,SCONT)) GO TO 32593 52172 ASSIGN 32592 TO I32718 52173 GO TO 32718 52174 32592 CONTINUE 52175 32593 CONTINUE 52200 32598 GO TO I32737 52250 32664 CONTINUE 52300 IF(.NOT.(UTYPE(1).EQ.UPINV)) GO TO 32590 52350 J=1 52351 GO TO 32591 52352 32590 J=2 52400 32591 CALL CPYSUB(SPINV,SFLX,USTART(J),ULEN(J)) 52450 IF(.NOT.(STREQ(SPINV,SDUM))) GO TO 32588 52500 PENT=PDUMMY 52550 STACK(PENT+2)=0 52600 GO TO 32589 52650 32588 P=MAXSTK-HASH(SPINV,PRIME) 52750 FOUND=.FALSE. 52800 IF(STACK(P).EQ.0) GO TO 32587 52850 GO TO 32585 52900 32586 IF(STACK(P).EQ.0.OR.FOUND) GO TO 32584 52901 32585 P=STACK(P) 52950 IF (STREQ(SPINV,STACK(P+4))) FOUND=.TRUE. 53000 GO TO 32586 53050 32584 CONTINUE 53100 32587 IF(.NOT.(FOUND)) GO TO 32582 53150 PENT=P 53151 GO TO 32583 53152 32582 TMAX=MAX-(4+OFFST2+(SPINV(1)+NCHPWD-1)/NCHPWD) 53250 IF(.NOT.(TMAX.LE.TOP+SAFETY)) GO TO 32580 53300 PENT=PDUMMY 53350 STACK(PENT+2)=0 53400 GO TO 32581 53450 32580 MAX=TMAX 53550 PENT=MAX+OFFST2 53600 IF (LONG.OR.COGOTO) STACK(PENT-1)=NEWNO(0) 53650 IF (COGOTO) STACK(PENT-2)=0 53652 STACK(PENT)=0 53700 STACK(P)=PENT 53750 STACK(PENT+1)=NEWNO(0) 53800 STACK(PENT+2)=0 53850 STACK(PENT+3)=0 53900 CALL CPYSTR(STACK(PENT+4),SPINV) 53950 32581 CONTINUE 54050 32583 CONTINUE 54100 32589 GO TO I32664 54150 32666 CONTINUE 54200 GOTONO=NEWNO(0) 54250 STNO=FLXNO 54300 FLXNO=0 54325 ASSIGN 32579 TO I32739 54350 GO TO 32739 54351 32579 GSTNO=GOTONO 54400 ASSIGN 32578 TO I32653 54450 GO TO 32653 54451 32578 ASSIGN 32577 TO I32737 54500 GO TO 32737 54501 32577 GO TO I32666 54550 32638 CONTINUE 54600 IF(.NOT.(NEXTNO.NE.0)) GO TO 32576 54650 CALL PUTNUM(SFORCE,NEXTNO) 54700 CALL PUT(LINENO,SFORCE,FORTCL) 54750 NEXTNO=0 54800 32576 GO TO I32638 54900 32745 CONTINUE 54950 ENDNO=STACK(TOP-3) 55000 IF(.NOT.(ENDNO.EQ.0)) GO TO 32574 55050 STACK(TOP-3)=NEWNO(0) 55100 GO TO 32575 55150 32574 GOTONO=ENDNO 55250 ASSIGN 32573 TO I32659 55300 GO TO 32659 55301 32573 CONTINUE 55350 32575 IF(.NOT.(NEXTNO.EQ.0)) GO TO 32571 55450 NEXTNO=STACK(TOP-2) 55451 GO TO 32572 55500 32571 IF(.NOT.(STACK(TOP-2).EQ.0)) GO TO 32570 55501 GO TO 32572 55550 32570 ASSIGN 32569 TO I32638 55600 GO TO 32638 55601 32569 NEXTNO=STACK(TOP-2) 55650 32572 GO TO I32745 55800 32568 CONTINUE 56150 STNO=STACK(TOP-1) 56200 ASSIGN 32567 TO I32640 56250 GO TO 32640 56251 32567 TOP=TOP-2 56300 GO TO I32568 56350 32566 CONTINUE 56400 GOTONO=STACK(TOP-1) 56450 ASSIGN 32565 TO I32659 56500 GO TO 32659 56501 32565 TOP=TOP-2 56550 GO TO I32566 56600 32710 CONTINUE 56650 P=PTABLE 56700 32564 IF(P.EQ.0) GO TO 32563 56750 IF(.NOT.(STACK(P+2).NE.0)) GO TO 32561 56800 IF(.NOT.(LONG)) GO TO 32559 56825 CALL CPYSTR(SST,SGOTOI) 56850 CALL CATNUM(SST,STACK(P+1)) 56900 CALL CATSTR(SST,SCP) 56950 GO TO 32560 56960 32559 CALL CPYSTR(SST,SGOTOP) 56970 32560 Q=STACK(P+3) 57000 STNO=STACK(P-1) 57050 IF(.NOT.(Q.EQ.0)) GO TO 32557 57100 CALL CATNUM(SST,STACK(P+1)) 57101 GO TO 32558 57102 32557 GO TO 32555 57200 32556 IF(Q.EQ.0) GO TO 32554 57201 32555 IF(.NOT.(SST(1).GT.SSTMAX-6)) GO TO 32553 57250 ASSIGN 32552 TO I32730 57300 GO TO 32730 57301 32552 CALL CPYSTR(SST,SB5I1) 57350 32553 CALL CATNUM(SST,STACK(Q+2)) 57450 CALL CATSTR(SST,SCOMMA) 57500 Q=STACK(Q) 57550 GO TO 32556 57600 32554 SST(1)=SST(1)-1 57650 32558 IF(.NOT.(LONG)) GO TO 32550 57750 CALL CATSTR(SST,SRP) 57751 GO TO 32551 57752 32550 IF(.NOT.(SST(1).GT.SSTMAX-9)) GO TO 32549 57762 ASSIGN 32548 TO I32730 57764 GO TO 32730 57765 32548 CALL CPYSTR(SST,SB5I1) 57766 32549 CALL CATSTR(SST,SRPCI) 57770 CALL CATNUM(SST,STACK(P+1)) 57780 32551 ASSIGN 32547 TO I32730 57800 GO TO 32730 57801 32547 GO TO 32562 57850 32561 CALL CPYSTR(SST,SSTOP) 57950 STNO=STACK(P+1) 58000 ASSIGN 32546 TO I32730 58050 GO TO 32730 58051 32546 CONTINUE 58100 32562 P=STACK(P) 58150 GO TO 32564 58200 32563 GO TO I32710 58250 32545 CONTINUE 58300 STNO=0 58350 CALL CPYSTR(SST,SGOTOI) 58400 IF (LONG.OR.COGOTO) SST(1)=SST(1)-1 58450 CALL CATNUM(SST,STACK(TOP-1)) 58500 IF(.NOT.(FAKE)) GO TO 32544 58530 CALL CATSTR(SST,SCP) 58532 CALL CATNUM(SST,STACK(TOP-1)) 58534 CALL CATSTR(SST,SRP) 58536 32544 ASSIGN 32543 TO I32730 58550 GO TO 32730 58551 32543 TOP=TOP-2 58600 GO TO I32545 58650 32542 CONTINUE 58700 ASSIGN 32541 TO I32638 58750 GO TO 32638 58751 32541 NEXTNO=STACK(TOP-1) 58800 TOP=TOP-2 58850 GO TO I32542 58900 32645 CONTINUE 59700 CALL PUT(0,SGUP1,ERRCL) 59750 CALL PUT(0,SGUP2,ERRCL) 59800 CALL CLOSEF(MINCNT,-1) 59850 IF (.TRUE.) CALL EXIT 60200 GO TO I32645 60350 32540 CONTINUE 63650 CALL PUT(0,SB,LISTCL) 63700 CALL PUT(0,SDASH,LISTCL) 63750 CALL PUT(0,SB,LISTCL) 63800 GO TO I32540 63850 32759 CONTINUE 64950 NOCALL=0 65100 PARAM1=NCHPWD 65350 PARAM2=CHZERO 65400 PARAM3=CHSPAC 65450 PARAM4=CHC 65500 BLN=0 65650 WWIDTH=LWIDTH-6 65700 REFNO=(LWIDTH-12)/7 65750 IF(.NOT.(SHORT.OR.FAKE)) GO TO 32538 65805 OFFSET=1 65810 OFFST2=1 65815 GO TO 32539 65825 32538 IF(.NOT.(COGOTO)) GO TO 32537 65826 OFFSET=2 65830 OFFST2=3 65835 GO TO 32539 65845 32537 OFFSET=2 65850 OFFST2=3 65855 32539 NOTFLG=.TRUE. 65900 ERLST=.FALSE. 65950 GO TO I32759 66000 32636 CONTINUE 66050 TOPTYP=STACK(TOP) 66100 IF((ASSEQ).NE.(TOPTYP)) GO TO 32535 66200 TOP=TOP-STACK(TOP-4)-1 66201 GO TO 32536 66250 32535 IF((ACSEQ).NE.(TOPTYP)) GO TO 32534 66251 TOP=TOP-4 66252 GO TO 32536 66300 32534 IF((AGGOTO).NE.(TOPTYP)) GO TO 32533 66301 TOP=TOP-2 66302 GO TO 32536 66350 32533 IF((AGCONT).NE.(TOPTYP)) GO TO 32532 66351 TOP=TOP-2 66352 GO TO 32536 66400 32532 IF((AFSEQ).NE.(TOPTYP)) GO TO 32531 66401 TOP=TOP-2 66402 GO TO 32536 66450 32531 IF((AELSE).NE.(TOPTYP)) GO TO 32530 66451 TOP=TOP-2 66452 GO TO 32536 66500 32530 IF((AGSTNO).NE.(TOPTYP)) GO TO 32529 66501 TOP=TOP-2 66502 GO TO 32536 66550 32529 IF((ATSEQ).NE.(TOPTYP)) GO TO 32528 66551 TOP=TOP-1 66552 GO TO 32536 66600 32528 IF((AMSEQ).NE.(TOPTYP)) GO TO 32527 66601 TOP=TOP-1 66602 GO TO 32536 66650 32527 IF((AGRET).NE.(TOPTYP)) GO TO 32526 66651 TOP=TOP-2 66652 32526 CONTINUE 66700 32536 GO TO I32636 66750 32750 CONTINUE 67450 DUMMY=NEWNO(SEEDNO) 67500 ENDPGM=.FALSE. 67550 MAX=MAXSTK-(PRIME+OFFSET+3) 67600 PDUMMY=MAX+OFFSET 67650 DO 32525 I=MAX,MAXSTK 67700 STACK(I)=0 67701 32525 CONTINUE 67702 TOP=1 67750 STACK(TOP)=AMSEQ 67800 ERROR=0 67900 FIRST=.TRUE. 67950 NOPGM=.FALSE. 68000 NEXTNO=0 68025 SOURCE=READ 68050 LEVEL=0 68150 LSTLEV=0 68200 ASSIGN 32524 TO I32540 68250 GO TO 32540 68251 32524 GO TO I32750 68300 32748 CONTINUE 68350 GO TO 32522 68400 32523 IF(ENDPGM) GO TO 32521 68401 32522 IF(.NOT.(TOP+SAFETY.GT.MAX)) GO TO 32520 68450 ASSIGN 32519 TO I32645 68451 GO TO 32645 68452 32519 CONTINUE 68453 32520 ACTION=STACK(TOP) 68500 IF((AGGOTO).NE.(ACTION)) GO TO 32517 68600 ASSIGN 32516 TO I32566 68601 GO TO 32566 68602 32516 GO TO 32518 68650 32517 IF((AGRET).NE.(ACTION)) GO TO 32515 68651 ASSIGN 32514 TO I32545 68652 GO TO 32545 68653 32514 GO TO 32518 68700 32515 IF((AGCONT).NE.(ACTION)) GO TO 32513 68701 ASSIGN 32512 TO I32568 68702 GO TO 32568 68703 32512 GO TO 32518 68750 32513 IF((AGSTNO).NE.(ACTION)) GO TO 32511 68751 ASSIGN 32510 TO I32542 68752 GO TO 32542 68753 32510 GO TO 32518 68800 32511 CALL ANALYZ 69000 IF((AFSEQ).NE.(ACTION)) GO TO 32508 69150 IF((TEXEC).NE.(CLASS)) GO TO 32506 69250 ASSIGN 32505 TO I32706 69251 GO TO 32706 69252 32505 GO TO 32507 69300 32506 IF((TFIN).NE.(CLASS)) GO TO 32504 69301 ASSIGN 32503 TO I32627 69302 GO TO 32627 69303 32503 GO TO 32507 69350 32504 IF((TEND).NE.(CLASS)) GO TO 32502 69351 ERROR=1 69352 GO TO 32507 69400 32502 IF((TELSE).NE.(CLASS)) GO TO 32501 69401 ERROR=10 69402 GO TO 32507 69450 32501 IF((TTO).NE.(CLASS)) GO TO 32500 69451 ERROR=13 69452 GO TO 32507 69500 32500 IF((TCEXP).NE.(CLASS)) GO TO 32499 69501 ERROR=19 69502 32499 CONTINUE 69550 32507 GO TO 32509 69650 32508 IF((AMSEQ).NE.(ACTION)) GO TO 32498 69651 IF((TEXEC).NE.(CLASS)) GO TO 32496 69750 ASSIGN 32495 TO I32706 69751 GO TO 32706 69752 32495 GO TO 32497 69800 32496 IF((TEND).NE.(CLASS)) GO TO 32494 69801 IF(.NOT.(NOPGM)) GO TO 32492 69850 ENDPGM=.TRUE. 69851 GO TO 32493 69852 32492 ASSIGN 32491 TO I32714 69900 GO TO 32714 69901 32491 CONTINUE 69902 32493 GO TO 32497 70000 32494 IF((TFIN).NE.(CLASS)) GO TO 32490 70001 ERROR=5 70002 GO TO 32497 70050 32490 IF((TELSE).NE.(CLASS)) GO TO 32489 70051 ERROR=8 70052 GO TO 32497 70100 32489 IF((TTO).NE.(CLASS)) GO TO 32488 70101 STACK(TOP)=ATSEQ 70200 ASSIGN 32487 TO I32625 70250 GO TO 32625 70251 32487 GO TO 32497 70350 32488 IF((TCEXP).NE.(CLASS)) GO TO 32486 70351 ERROR=17 70352 32486 CONTINUE 70400 32497 GO TO 32509 70500 32498 IF((ASSEQ).NE.(ACTION)) GO TO 32485 70501 IF((TCEXP).NE.(CLASS)) GO TO 32483 70600 ASSIGN 32482 TO I32634 70601 GO TO 32634 70602 32482 GO TO 32484 70650 32483 IF((TFIN).NE.(CLASS)) GO TO 32481 70651 ASSIGN 32480 TO I32643 70652 GO TO 32643 70653 32480 GO TO 32484 70700 32481 IF((TEND).NE.(CLASS)) GO TO 32479 70701 ERROR=3 70702 GO TO 32484 70750 32479 IF((TELSE).NE.(CLASS)) GO TO 32478 70751 ERROR=12 70752 GO TO 32484 70800 32478 IF((TTO).NE.(CLASS)) GO TO 32477 70801 ERROR=15 70802 GO TO 32484 70850 32477 IF((TEXEC).NE.(CLASS)) GO TO 32476 70851 ERROR=23 70852 32476 CONTINUE 70900 32484 GO TO 32509 71000 32485 IF((ACSEQ).NE.(ACTION)) GO TO 32475 71001 IF((TCEXP).NE.(CLASS)) GO TO 32473 71100 ASSIGN 32472 TO I32746 71101 GO TO 32746 71102 32472 GO TO 32474 71150 32473 IF((TFIN).NE.(CLASS)) GO TO 32471 71151 ASSIGN 32470 TO I32643 71152 GO TO 32643 71153 32470 GO TO 32474 71200 32471 IF((TEND).NE.(CLASS)) GO TO 32469 71201 ERROR=2 71202 GO TO 32474 71250 32469 IF((TELSE).NE.(CLASS)) GO TO 32468 71251 ERROR=11 71252 GO TO 32474 71300 32468 IF((TTO).NE.(CLASS)) GO TO 32467 71301 ERROR=14 71302 GO TO 32474 71350 32467 IF((TEXEC).NE.(CLASS)) GO TO 32466 71351 ERROR=22 71352 32466 CONTINUE 71400 32474 GO TO 32509 71500 32475 IF((AELSE).NE.(ACTION)) GO TO 32465 71501 IF((TELSE).NE.(CLASS)) GO TO 32463 71600 ASSIGN 32462 TO I32727 71601 GO TO 32727 71602 32462 GO TO 32464 71650 32463 IF((TEND).NE.(CLASS)) GO TO 32461 71651 ERROR=4 71652 GO TO 32464 71700 32461 IF((TFIN).NE.(CLASS)) GO TO 32460 71701 ERROR=7 71702 GO TO 32464 71750 32460 IF((TTO).NE.(CLASS)) GO TO 32459 71751 ERROR=16 71752 GO TO 32464 71800 32459 IF((TCEXP).NE.(CLASS)) GO TO 32458 71801 ERROR=20 71802 GO TO 32464 71850 32458 IF((TEXEC).NE.(CLASS)) GO TO 32457 71851 ERROR=24 71852 32457 CONTINUE 71900 32464 GO TO 32509 72000 32465 IF((ATSEQ).NE.(ACTION)) GO TO 32456 72001 IF((TTO).NE.(CLASS)) GO TO 32454 72100 ASSIGN 32453 TO I32625 72101 GO TO 32625 72102 32453 GO TO 32455 72150 32454 IF((TEND).NE.(CLASS)) GO TO 32452 72151 ASSIGN 32451 TO I32714 72152 GO TO 32714 72153 32451 GO TO 32455 72200 32452 IF((TFIN).NE.(CLASS)) GO TO 32450 72201 ERROR=6 72202 GO TO 32455 72250 32450 IF((TELSE).NE.(CLASS)) GO TO 32449 72251 ERROR=9 72252 GO TO 32455 72300 32449 IF((TCEXP).NE.(CLASS)) GO TO 32448 72301 ERROR=18 72302 GO TO 32455 72350 32448 IF((TEXEC).NE.(CLASS)) GO TO 32447 72351 ERROR=21 72352 32447 CONTINUE 72400 32455 CONTINUE 72500 32456 CONTINUE 72501 32509 IF(.NOT.(NOPGM)) CALL LIST 72700 32518 GO TO 32523 72900 32521 GO TO I32748 72950 32716 CONTINUE 76100 TOP=TOP+2 76150 STACK(TOP-1)=LINENO 76200 STACK(TOP)=AFSEQ 76250 LEVEL=LEVEL+1 76300 GO TO I32716 76350 32732 CONTINUE 76400 TOP=TOP+2 76450 STACK(TOP-1)=CONTNO 76500 STACK(TOP)=AGCONT 76550 GO TO I32732 76600 32651 CONTINUE 76650 TOP=TOP+2 76700 STACK(TOP-1)=GGOTON 76750 STACK(TOP)=AGGOTO 76800 GO TO I32651 76850 32653 CONTINUE 76900 TOP=TOP+2 76950 STACK(TOP-1)=GSTNO 77000 STACK(TOP)=AGSTNO 77050 GO TO I32653 77100 32640 CONTINUE 77150 ASSIGN 32446 TO I32638 77200 GO TO 32638 77201 32446 CALL PUTNUM(SFORCE,STNO) 77250 CALL PUT(LINENO,SFORCE,FORTCL) 77300 STNO=0 77350 GO TO I32640 77400 32708 CONTINUE 77450 IF(.NOT.(NEXTNO.EQ.0)) GO TO 32444 77550 CALL PUT(LINENO,SFLX,FORTCL) 77551 GO TO 32445 77600 32444 IF(.NOT.(FLXNO.NE.0.OR.PASS)) GO TO 32443 77601 ASSIGN 32442 TO I32638 77650 GO TO 32638 77651 32442 CALL PUT(LINENO,SFLX,FORTCL) 77700 GO TO 32445 77900 32443 CALL CPYSTR(SST,SFLX) 77925 CALL PUTNUM(SST,NEXTNO) 77950 CALL PUT(LINENO,SST,FORTCL) 77975 NEXTNO=0 78000 32445 GO TO I32708 78150 32659 CONTINUE 78200 CALL CPYSTR(SPUTGO,SGOTO) 78250 CALL CATNUM(SPUTGO,GOTONO) 78300 IF(.NOT.(NEXTNO.NE.0)) GO TO 32441 78350 CALL PUTNUM(SPUTGO,NEXTNO) 78400 NEXTNO=0 78450 32441 CALL PUT(LINENO,SPUTGO,FORTCL) 78550 GO TO I32659 78600 32739 CONTINUE 78650 IF(.NOT.(NOTFLG)) GO TO 32439 78700 CALL CPYSTR(SST,SIFPN) 78701 GO TO 32440 78702 32439 CALL CPYSTR(SST,SIF) 78750 32440 CALL CATSUB(SST,SFLX,USTART(1),ULEN(1)) 78800 IF(.NOT.(NOTFLG)) GO TO 32437 78850 CALL CATSTR(SST,SPGOTO) 78851 GO TO 32438 78852 32437 CALL CATSTR(SST,SBGOTO) 78900 32438 CALL CATNUM(SST,GOTONO) 78950 ASSIGN 32436 TO I32730 79000 GO TO 32730 79001 32436 NOTFLG=.TRUE. 79050 GO TO I32739 79100 32730 CONTINUE 79150 IF(NEXTNO.EQ.0) GO TO 32435 79200 IF(.NOT.(STNO.EQ.0)) GO TO 32433 79250 STNO=NEXTNO 79300 NEXTNO=0 79350 GO TO 32434 79400 32433 ASSIGN 32432 TO I32638 79450 GO TO 32638 79451 32432 CONTINUE 79452 32434 CONTINUE 79500 32435 IF(STNO.EQ.0) GO TO 32431 79550 CALL PUTNUM(SST,STNO) 79600 STNO=0 79650 32431 IF(.NOT.(SST(1).LE.72)) GO TO 32429 79750 CALL PUT(LINENO,SST,FORTCL) 79751 GO TO 32430 79752 32429 CALL CPYSUB (SLIST,SST,1,72) 79850 CALL PUT(LINENO,SLIST,FORTCL) 79900 S=73 79950 L=66 80000 GO TO 32427 80050 32428 IF(S.GT.SST(1)) GO TO 32426 80051 32427 IF(S+L-1.GT.SST(1)) L=SST(1)-S+1 80100 CALL CPYSTR(SLIST,SB5I1) 80150 CALL CATSUB(SLIST,SST,S,L) 80200 CALL PUT(LINENO,SLIST,FORTCL) 80250 S=S+66 80300 GO TO 32428 80350 32426 CONTINUE 80400 32430 GO TO I32730 80450 32425 CONTINUE 82200 LL=0 82250 LR=STACK(LP) 82300 32424 IF(LR.EQ.0) GO TO 32423 82350 LT=STACK(LR) 82400 STACK(LR)=LL 82450 LL=LR 82500 LR=LT 82550 GO TO 32424 82600 32423 STACK(LP)=LL 82650 GO TO I32425 82700 32743 CONTINUE 93400 IF(.NOT.(FLXNO.NE.0)) GO TO 32422 93450 ASSIGN 32421 TO I32638 93500 GO TO 32638 93501 32421 NEXTNO=FLXNO 93550 FLXNO=0 93600 32422 GO TO I32743 93700 32713 CONTINUE 93750 P=MAX 93800 STACK(MAX)=0 93850 ITEMP=MAXSTK-PRIME+1 93900 DO 32420 I=ITEMP,MAXSTK 93950 IF(STACK(I).EQ.0) GO TO 32419 94000 STACK(P)=STACK(I) 94050 GO TO 32417 94100 32418 IF(STACK(P).EQ.0) GO TO 32416 94101 32417 P=STACK(P) 94110 LP=P+3 94120 ASSIGN 32415 TO I32425 94130 GO TO 32425 94131 32415 GO TO 32418 94140 32416 CONTINUE 94150 32419 CONTINUE 94200 32420 CONTINUE 94201 Q=MAX-1 94250 STACK(Q)=0 94300 32414 IF(STACK(MAX).EQ.0) GO TO 32413 94350 P=STACK(MAX) 94400 STACK(MAX)=STACK(P) 94450 QM=Q 94500 QP=STACK(QM) 94550 INSERT=.FALSE. 94600 32412 IF(INSERT) GO TO 32411 94650 IF(.NOT.(QP.EQ.0)) GO TO 32409 94720 INSERT=.TRUE. 94721 GO TO 32410 94740 32409 IF(.NOT.(STRLT(STACK(P+4),STACK(QP+4)))) GO TO 32408 94741 INSERT=.TRUE. 94742 GO TO 32410 94760 32408 QM=QP 94780 QP=STACK(QM) 94800 32410 GO TO 32412 94860 32411 STACK(P)=QP 94880 STACK(QM)=P 94900 GO TO 32414 95200 32413 PTABLE=STACK(Q) 95250 GO TO I32713 95300 END 95400 END 95400