*DECK SYNGN07 
PROC SYNGN07
*CALL LEXID 
          + 
*CALL SUB07 
          + 
*CALL SYNGN00 
      :ACCESS   :01 
            WRONGOVERLAY     / YES
  
      :ALTER    :01 
            WRONGOVERLAY     / YES
  
      :BREAK    :01 
            WRONGOVERLAY     / YES
  
      :COMPILE  :01 
            WRONGOVERLAY     / YES
  
      :CREATE   :01 
            WRONGOVERLAY     / YES
  
      :DATE     :01 
            WRONGOVERLAY     / YES
  
      :DEFINE   :01 
            WRONGOVERLAY     / YES
  
          :DELETE  :1,
                     *UPDMODE, D307, LOST, NO/ #READ-ONLY MODE REJECT  #
                         DEL-UP-SYN       # DELETE SYNTAX              #
                              LOST    NO/ 
                  YES 
  
      :DESCRIBE :01 
            WRONGOVERLAY     / YES
  
      :DETAIL   :01 
            WRONGOVERLAY     / YES
  
      :DIRECTORY  :01 
            WRONGOVERLAY     / YES
  
      :DISPLAY  :01 
            WRONGOVERLAY     / YES
  
      :DUPLICATE   :01
            WRONGOVERLAY     / YES
  
      :ERASE    :01 
            WRONGOVERLAY     / YES
  
      :EVALUATE :01                #-------- E V A L U A T E ----------#
                                   #                                   #
        :05 *CKOVLY                # CHECK IF IN PROPER OVERLAY        #
            WRONGOVERLAY     /     # EXIT, WRONG OVERLAY               #
        :10 *SET40                 # STORE DIRECTIVE INFO IN BASICTABLE#
            *SETCO10         /     # INITIALIZE FOR EVALUATE           #
        :15 DATA-ATTRIB            # IDENTIFY AND SAVE ATTRIBS OF NAME #
            D44           99 /     # UNDEFINED DATA NAME; EXIT         #
        :20 *SAVEVA                # SAVE EVALUATE ENTRY               #
            D144          99 /     # ILLEGAL TYPE OF DATA NAME; EXIT   #
            *CHKNXID      15 /     # TEST IF NEXT WORD IS DIRECTIVE    #
            *SETPOIN      YES/YES  # CLEAR SM$GROUPID                  #
        :99 LOST          NO / NO  # ELIMINATE TRANSMISSION            #
                                   #                                   #
                                   #----- E N D  E V A L U A T E ------#
  
      :EXECUTE  :01 
            WRONGOVERLAY     / YES
  
      :EXHIBIT  :01 
            WRONGOVERLAY     / YES
  
      :EXTRACT  :01 
            WRONGOVERLAY     / YES
  
      :FOLLOW   :01 
            WRONGOVERLAY     / YES
  
      :FOOTING  :01 
            WRONGOVERLAY     / YES
  
      :FORMAT   :01 
            WRONGOVERLAY     / YES
  
      :HEADING  :01 
            WRONGOVERLAY     / YES
  
      :IF       :01 
            WRONGOVERLAY     / YES
  
          :INSERT  :1,
                     *UPDMODE, D307, LOST, NO/ #READ-ONLY MODE REJECT  #
              DEL-UP-SYN, LOST, NO /
             YES
                                                                        002370
      :INVOKE   :01                                                     002380
            WRONGOVERLAY     / YES                                      002390
  
      :LOOKUP   :01 
            WRONGOVERLAY     / YES
  
      :MODIFY   :01 
            WRONGOVERLAY     / YES
  
                                   #----M O V E------------------------#
                                   #                                   #
      :MOVE    :01                 #                                   #
            *CKOVLY                # *YES* IF IN PROPER OVRLY FOR MOVE #
            WRONGOVERLAY     /     #                                   #
            *SET40                 # INITIALIZE FOR FILE ACCESS COMMAND#
            *SETCOD9               # SET BASC CODE (MOVE)              #
                                   #                                   #
        :05 ARITHEXPRESS  99 /     # ANALYZE AND STORE ARITH EXPRESSION#
            *MVEXP        99 /     # *MOVE* AN EXPRESSION              #
            -TO                    # CHECK FOR OPTIONAL KEYWORD *TO*   #
                                   #                                   #
        :10 DATA-ATTRIB            # IDENTIFY AND SAVE ATTRIBS OF NAME #
            D375          99 /     # INVALID *MOVE* DESTINATION        #
            *MOVEXEC      99 / 25  # ISOLATE AREA, BUILD MOVE TABLE    #
                                   #                                   #
        :15 $AND          20 / 05  # CHECK FOR KEYWORD *AND            #
                                   #                                   #
        :20 *EXPRINIT     30 /     # INITIALIZE FOR EXPRESSION ANALYSIS#
                                   #                                   #
        :25 *CHKNXID      15 /     # CHECK IF NEXT WORD A DIRECTIVE    #
            *SETPOIN      YES/     # CLEAR SM$GROUPID TO ZERO          #
        :30 $-                     # CHECK FOR *-*                     #
            -+            35 /     # CHECK FOR *+*                     #
            *UNARYOP               # STACK UNARY MINUS ON OPERATR STACK#
                                   #                                   #
        :35 +LIT          10 /     # CHECK FOR A LITERAL               #
            *STORLIT               # STORE LIT AND RETURN DESCRIPTION  #
          *ENDEXPRESS     NO       # COMPLETE EXPRESSION ANALYSIS      #
                                   #                                   #
        :40 *MVEXP        99 /     # *MOVE* AN EXPRESSION              #
            -TO           10       # CHECK FOR  *-*                    #
                                   #                                   #
        :99 LOST             / NO  #                                   #
                                   #                                   #
                                   #----E N D---M O V E----------------#
  
      :OS       :01 
            WRONGOVERLAY     / YES
  
      :PAGE-NUMBER  :01 
            WRONGOVERLAY     / YES
  
      :PAGE-SIZE:01 
            WRONGOVERLAY     / YES
  
      :PERFORM :01                 #-------P E R F O R M---------------#
                                   #                                   #
                                   # THIS SECTION HANDLES ONLY THE     #
                                   # CONTINUATION OF A *PERFORM* WHICH #
                                   # IS RETURNING FROM AN EXECUTION    #
                                   # OVERLAY.  IF A REAL *PERFORM* IS  #
                                   # ENCOUNTERED, *WRONGOVERLAY* WILL  #
                                   # SEND US TO THE OVERLAY QUALIFIED  #
                                   # TO CRACK A *PERFORM* DIRECTIVE.   #
  
            *ENDBASC               # RELEASE BASIC-TABLE SPACE         #
            LOST          NO /
            *PERINIT      05 /     # INITIALIZE FOR *PERFORM*          #
            WRONGOVERLAY     /YES  # LOAD REAL *PERFORM* OVERLAY       #
  
        :05 *PERBEGIN     YES/     # CONTINUE A *PERFORM*              #
            PERLOOP          /YES  # ENTER *PERFORM* LOOP              #
                                   #                                   #
                                   #----E N D-----P E R F O R M--------#
  
      :PREFACE  :01 
            WRONGOVERLAY     / YES
  
      :PREPARE  :01 
            WRONGOVERLAY     / YES
  
      :PREVIEW  :01 
            WRONGOVERLAY     / YES
  
      :RECAP    :01 
            WRONGOVERLAY     / YES
  
      :RECORDING  :01 
            WRONGOVERLAY     / YES
  
      :RECOVERY :01 
            WRONGOVERLAY     / YES
  
      :REMOVE   :01 
            WRONGOVERLAY     / YES
  
      :RETURN   :01 
            WRONGOVERLAY     / YES
  
      :REWIND   :01 
            WRONGOVERLAY     / YES
  
      :SELECT   :01 
            WRONGOVERLAY     / YES
  
      :SEPARATOR  :01 
            WRONGOVERLAY     / YES
  
      :SORT     :01 
            WRONGOVERLAY     / YES
  
      :SPECIFY  :01 
            WRONGOVERLAY     / YES
  
      :STORE    :01 
            WRONGOVERLAY     / YES
  
      :SUMMARY  :01 
            WRONGOVERLAY     / YES
  
      :TABS     :01 
            WRONGOVERLAY     / YES
  
      :TIME     :01 
            WRONGOVERLAY     / YES
  
      :TITLE    :01 
            WRONGOVERLAY     / YES
  
      :UNIVERSAL  :01 
            WRONGOVERLAY     / YES
  
       :UPDATE      :1, *SET40
                +EOT, 5 / *UPD40, D192, LOST, NO / YES
                   :5  +NAME, 6 / *GETAREANAME, D341, LOST, NO /
                                  +EOT,D344,LOST,NO/*RLSBASC,YES
                   :6 DEL-UP-SYN, LOST, NO / YES
  
      :USE  :01 
            WRONGOVERLAY     / YES
  
      :VERIFY   :01 
            WRONGOVERLAY     / YES
  
      :VERSION  :01 
            WRONGOVERLAY     / YES
  
      :VETO     :01 
            WRONGOVERLAY     / YES
  
      :VIA      :01 
            WRONGOVERLAY     / YES
  
      :WHERE    :01                #----W H E R E----------------------#
            *ISIT77                # IF WE ARE NOT PROCESSING RESTRICTS#
            D077          NO /YES  # THEN THIS IS A USER INITIATED CALL#
                                   # FOR *WHERE* WHICH IS ILLEGAL.     #
                                   #----E N D----W H E R E-------------#
  
#----------------------------------------------------------------------#
#                                                                      #
#        O T H E R   S Y N T A X   S E C T I O N S                     #
#        IN ALPHABETICAL ORDER                                         #
#                                                                      #
#----------------------------------------------------------------------#
  
      :DEL-UP-SYN:01
          *PERM,LOST,NO,/,*CHKNXID,*FLGERR,03,/,20
           :03 *ALGRPID /          # ALLOCATE GROUP ID                 #
               $FROM, 05/LFN,NO/*SETFROM
           :05  $USING, 10 / *SETUSING, 
            *SAVPTR          /     # SAVE PTR TO START OF NEW -SAME-   #
            $SAME         06 /     # IS -SAME- LIST TO BE USED         #
            *GETSAME      NO /     # SWITCH TO -SAME- BUFFER FOR INPUT #
            *RECSAME      30 /     # DON-T CRACK -SAME- IF RECORDING   #
            :06  DATA-ATTRIB, D141, NO /
            :07,*SAVDATA,NO,/,*CHKNXID,72,/,08
            :72,$PASS,75/*SETPV,08
          :75  DATA-ATTRIB, D141, NO / 07 
            :08  *FONDKEY, D142, NO / *MOVSAME, 20
          :10    $KEY, 13/
                 *TEMPONLY,        #SET FLAG TEMPORARY NAME ONLY# 
                 DATA-ATTRIB, D198, NO/ 
                 *STKEY, NO/  15
            :13  DATA-ATTRIB, 20 / *SAVEKEY, D190, NO 
                        /  *STKEY, NO/
            :15  $OF, 20 / DATA-ATTRIB, NO / *FRECNAM, D191, NO / 
        :20 *CHKDIU       NO /
  
        :30 $VETO                  # CHECK FOR -VETO- OR -PASS- OPTION #
            $PASS         YES/
            *SETPV        YES/YES  # FLAG -VETO/PASS- ON               #
END 
