SUBROUTINE  FNZS 
 
      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 
      CONTINUE 
13016 CONTINUE 
 
      IF (.NOT. (J .GE. SRCEND))GO TO 13018 
 
      J = 1 
      CALL PSRENT 
      IF (.NOT. (CONTF .EQ. CONTRL))GO TO 13020 
 
      PSYMB = CONTRL 
      GO TO 13017 
 
13020 CONTINUE 
 
13018 CONTINUE 
 
      SYMBOL = SOURCE (J) 
      J = J + 1 
      IF (.NOT. (SYMBOL .EQ. 32 .AND. NOTINQ))GO TO 13022 
 
      GO TO 13016 
 
13022 CONTINUE 
 
      IF (.NOT. (SYMBOL .LT. 32 .OR. SYMBOL .GE. 97))GO TO 13024 
 
      IF (.NOT. (SYMBOL .EQ. CONTRL))GO TO 13026 
 
      PSYMB = CONTRL 
      J = J - 1 
      GO TO 13017 
 
13026 CONTINUE 
 
      CALL FAULTP (88) 
      GO TO 13016 
 
13024 CONTINUE 
 
      PSYMB = SYMTBL (SYMBOL - 31) 
      IF (.NOT.(PSYMB .LT. 0 .AND. NOTINQ))GO TO 13017 
 
      CALL FAULTP (88) 
      GO TO 13016 
13017 CONTINUE 
 
      RETURN 
      END