SUBROUTINE  ADVAN 
      EXTERNAL    OLQOT 
      INTEGER     ENTNUM, SOPLST, SNMLST 
 
      INTEGER     ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG 
      INTEGER     PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG 
      INTEGER     LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV 
      INTEGER     NEXT,   NUMBER, I,      IOTYPE 
      INTEGER     J,      K,      L,      LABNLX, M,      N 
      INTEGER     PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE 
      INTEGER     OPTOPX, OPNXTX, TOPX,   NEXTX 
      INTEGER     DUMMY,  OVCHN,  PEEKS 
      INTEGER     LO,     CI,     CO,     LOGICF, LOCSUP 
      INTEGER     VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT 
      INTEGER ICLP05 
      LOGICAL     ENDOK,CONEND 
      COMMON   /LOGOS/  ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG 
      COMMON   /LOGOS/  PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG 
      COMMON   /LOGOS/  LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV 
      COMMON   /LOGOS/  NEXT,   NUMBER, I,      IOTYPE 
      COMMON   /LOGOS/  J,      K,      L,      LABNLX, M,      N 
      COMMON   /LOGOS/  PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE 
      COMMON   /LOGOS/  OPTOPX, OPNXTX, TOPX,   NEXTX 
      COMMON   /LOGOS/  DUMMY,  OVCHN,  PEEKS 
      COMMON   /LOGOS/  LO,     CI,     CO,     LOGICF, LOCSUP 
      COMMON   /LOGOS/  VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT 
      COMMON   /LOGOS/  ICLP05 
      COMMON   /LOGOS/  ENDOK,CONEND 
 
      INTEGER  QUOTEX 
      INTEGER  CONTF 
      INTEGER  CONTRL 
      INTEGER  HEAD 
      INTEGER  EJECT 
      INTEGER  BLANK 
      INTEGER  SLASH 
      INTEGER  CARDC 
      INTEGER  FLINCT (8) 
      INTEGER  EOCC 
      INTEGER  ENDCRD (3) 
      INTEGER  RECORD (66) 
      INTEGER  RECPTR 
      INTEGER  SOURCE (150) 
      INTEGER  SRCEND 
      INTEGER  SLEN 
      INTEGER  TF (3) 
      COMMON   /SRCE/   QUOTEX 
      COMMON   /SRCE/   CONTF 
      COMMON   /SRCE/   CONTRL 
      COMMON   /SRCE/   HEAD 
      COMMON   /SRCE/   EJECT 
      COMMON   /SRCE/   BLANK 
      COMMON   /SRCE/   SLASH 
      COMMON   /SRCE/   CARDC 
      COMMON   /SRCE/   FLINCT 
      COMMON   /SRCE/   EOCC 
      COMMON   /SRCE/   ENDCRD 
      COMMON   /SRCE/   RECORD 
      COMMON   /SRCE/   RECPTR 
      COMMON   /SRCE/   SOURCE 
      COMMON   /SRCE/   SRCEND 
      COMMON   /SRCE/   SLEN 
      COMMON   /SRCE/   TF 
 
      INTEGER  NINE 
      INTEGER  COMMA, SEMIC, PERIOD, COLON, FOR, DOOP, WHILE 
      INTEGER  RBRACE, LBRACE, RETOP, CRUTCH 
      INTEGER  LPAREN, RPAREN, LBK, RBK 
      INTEGER  EQUAL, NEQUAL, GTR, GEQ, LESS, LESSEQ, ARROW 
      INTEGER  PLUS, MINUS, MULT, DIVIDE, MODOP 
      INTEGER  OROP, ANDOP, AOROP, XOROP, AANDOP 
      INTEGER  LSHIFT, RSHIFT, LCYCLE, RCYCLE, ALSHFT, ARSHFT 
      INTEGER  NEG, UPARO, DNARO, COM 
      INTEGER  LOC, GIZZY, QUOTE, ZRL, TEMPL 
      INTEGER  SP, DP, ST, HEX 
      INTEGER  ATSIGN 
      INTEGER  ICLP06 
      COMMON /OPERS/     NINE 
      COMMON /OPERS/     COMMA, SEMIC, PERIOD, COLON, FOR, DOOP, WHILE 
      COMMON /OPERS/     RBRACE, LBRACE, RETOP, CRUTCH 
      COMMON /OPERS/     LPAREN, RPAREN, LBK, RBK 
      COMMON /OPERS/     EQUAL, NEQUAL, GTR, GEQ, LESS, LESSEQ, ARROW 
      COMMON /OPERS/     PLUS, MINUS, MULT, DIVIDE, MODOP 
      COMMON /OPERS/     OROP, ANDOP, AOROP, XOROP, AANDOP 
      COMMON /OPERS/     LSHIFT, RSHIFT, LCYCLE, RCYCLE, ALSHFT, ARSHFT 
      COMMON /OPERS/     NEG, UPARO, DNARO, COM 
      COMMON /OPERS/     LOC, GIZZY, QUOTE, ZRL, TEMPL 
      COMMON /OPERS/     SP, DP, ST, HEX 
      COMMON /OPERS/    ATSIGN 
      COMMON /OPERS/    ICLP06 
 
      INTEGER     STK (20, 13) 
      INTEGER     NAMEX (40) 
      INTEGER     OPX,    STKSIZ, OCBIT,  FUNBIT, SBIAS 
      INTEGER ICLP14 
      COMMON      /SDEFS/ STK,    OPX,    STKSIZ, OCBIT,  FUNBIT, SBIAS 
      COMMON      /SDEFS/ ICLP14 
      EQUIVALENCE (STK (1,1), NAMEX (1)) 
 
      INTEGER     STUFFO, STUFFN 
      COMMON      /CSTUFF/ STUFFO, STUFFN 
 
      INTEGER     NAME (9) 
      COMMON      /NLNAME/ NAME 
      CALL CLRSTK (OPX) 
      IF (.NOT. (STUFFO .NE. 0))GO TO 13000 
 
      NEXTOP = STUFFO 
      STUFFO = 0 
      NAMEX (OPX) = STUFFN 
      RETURN 
13000 CONTINUE 
 
      CUROP = NEXTOP 
      CFLAG = 0 
      CALL FNZS 
      IF (.NOT. (PSYMB  .EQ. 0))GO TO 13002 
 
      CALL RDNAME (-1) 
      NAMEX (OPX) = SNMLST (DUMMY) 
      GO TO 13003 
13002 CONTINUE 
 
      IF (.NOT. (PSYMB .EQ. NINE))GO TO 13004 
 
      CALL RDNUM 
      NAMEX (OPX) = ENTNUM (DUMMY) 
      GO TO 13005 
13004 CONTINUE 
 
      IF (.NOT. (PSYMB .EQ. QUOTE))GO TO 13006 
 
      CALL PQUOTE 
      GO TO 13007 
13006 CONTINUE 
 
      IF (.NOT. (PSYMB .EQ. CONTRL))GO TO 13008 
 
      NEXTOP = CONTRL 
      RETURN 
13008 CONTINUE 
 
13007 CONTINUE 
 
13005 CONTINUE 
 
13003 CONTINUE 
 
      NEXTOP = PSYMB 
      IF (.NOT. (NEXTOP .EQ. GIZZY))GO TO 13010 
 
      CALL FNZS 
      NAME (1) = 0 
      IF (PSYMB .NE. GIZZY) CALL RDNAME (-1) 
      NEXTOP = SOPLST (DUMMY) 
      GO TO 13011 
13010 CONTINUE 
 
      CALL CHEKCO (NEXTOP, J) 
13011 CONTINUE 
 
      RETURN 
      END