*COMDECK  SKIPEE
          TITLE  SKIP, ELSE, ENDIF
**        ELSEIF1 - ELSEIF PROCESSING.
* 
*         WHEN ELSEIF IS EXECUTED (INSTEAD OF SKIPPED TO) IT IS 
*         TREATED JUST LIKE AN ELSE.  THE EXPRESSION IS EVALUATED 
*         SIMPLY TO GET PAST IT, AND THE RESULT IS IGNORED UNLESS 
*         THERE IS AN ERROR IN THE EXPRESSION.
  
 ELSEIF1  BSS 
          BX7    X7-X7
          SX6    B1 
          SA7    IACICF      CLEAR INTERACTIVE CALL FLAG
          SA6    PROCESS
          RJ     =XCCLEVX    EVALUATE EXPRESSION
  
          NZ     X5,EXIT2    IF ERROR IN EXPRESSION 
  
**        SKIP1  - SKIP PROCESSING
* 
  
 SKIP1    BSS 
  
**        ELSE  -  ELSE PROCESSING
* 
* 
  
 ELSE1    BSS 
          MX7    0
          SA7    TERMT+1     INDICATE END OF TERMINATORS
          RJ     =XCCLLAB    LABEL MUST NOT BE NUMERIC
  
          JP     IF3
  
  
**        ENDIF  -  EXECUTE ENDIF STATEMENT 
* 
*         WHEN ENDIF IS EXECUTED (INSTEAD OF SKIPPED TO) IT IS
*         SIMPLY A NULL OPERATION.  HOWEVER ANY CCL STATEMENT 
*         MAY CONTINUE OVER MORE THAN ONE CARD.  HENCE THE LABEL
*         OF AN ENDIF STATEMENT MUST BE PROCESSED SO THAT IF THE
*         LABEL IS ON THE NEXT CARD OF THE C.S.F.,  THE CARD IS READ. 
  
 ENDIF1   BSS 
          RJ     =XCCLLAB 
  
          JP     EXIT 
