SUBROUTINE  PEEKA 
    
      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  FCHRTS   
      INTEGER  SCFLAG   
      INTEGER  QMODE
      INTEGER  LBIAS
      INTEGER  SCOUNT   
      INTEGER  QINDEX   
      LOGICAL  NOTINQ   
      COMMON   /SRCEX/  FCHRTS  
      COMMON   /SRCEX/  SCFLAG  
      COMMON   /SRCEX/  QMODE   
      COMMON   /SRCEX/  LBIAS   
      COMMON   /SRCEX/  SCOUNT  
      COMMON   /SRCEX/  QINDEX  
      COMMON   /SRCEX/  NOTINQ  
    
      INTEGER  SYMTBL (65)  
      INTEGER ICLP15
      COMMON   /SYMB/   SYMTBL  
      COMMON   /SYMB/   ICLP15  
    
      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     NAME (9)  
      COMMON      /NLNAME/ NAME 
      INTEGER     TS, XGIZZY
      INTEGER     SOPLST
      DATA        XGIZZY /39/   
      CONTINUE  
13000 CONTINUE  
    
      IF (.NOT. (I .GE. SRCEND))GO TO 13002 
    
      CALL PUSH (LOCSUP, I, J)  
      LOCSUP = LOCSUP + 1   
      J = I 
      CALL PSRENT   
      CALL POP (LOCSUP, I, J)   
      IF (.NOT. (CONTF .EQ. CONTRL))GO TO 13004 
    
      PEEKS = CONTRL
      SOURCE (I) = CONTRL   
      GO TO 13001   
    
13004 CONTINUE  
    
13002 CONTINUE  
    
      TS = SOURCE (I)   
      I = I + 1 
      IF (.NOT. (TS .EQ. BLANK .AND. NOTINQ))GO TO 13006
    
      GO TO 13000   
    
13006 CONTINUE  
    
      IF (.NOT. (TS .EQ. CONTRL))GO TO 13008
    
      PEEKS = CONTRL
      GO TO 13009   
13008 CONTINUE  
    
      TS = TS - BLANK + 1   
      PEEKS = SYMTBL (TS)   
13009 CONTINUE  
    
      IF (.NOT. (PEEKS .EQ. GIZZY .AND. NOTINQ ))GO TO 13010
    
      CALL PUSH (PSYMB, J, J)   
      J = I + 1 
      SYMBOL = SOURCE (I)   
      NAME (1) = 0  
      IF (SYMBOL .NE. XGIZZY) CALL RDNAME (-1)  
      PEEKS = SOPLST (DUMMY)
      I = J 
      CALL POP (PSYMB, J, J)
      IF (.NOT.(PEEKS .EQ. 0))GO TO 13001   
    
      GO TO 13000   
13001 CONTINUE  
    
      GO TO 13011   
13010 CONTINUE  
    
      CALL CHEKCO (PEEKS, I)
13011 CONTINUE  
    
      RETURN
      END