COMPVFC 
COMMON
          CTEXT  COMPVFC - VERIFY FORMS CODE. 
          SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   COMPVFC
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          BASE   MIXED
          SPACE  4
***       COMPVFC - VERIFY FORMS CODE.
*         R. A. JAPS.        75/12/01.
          SPACE  4
**        VFC - VERIFY FORMS CODE.
* 
*         *VFC* CHECKS THE FORMS CODE FOR VALIDITY.  THE FORMS
*         CODE MUST BE TWO ALPHANUMERIC CHARACTERS OR ZERO. 
* 
*         ENTRY  (A) = FORMS CODE.
* 
*         EXIT   (A) = -0, IF FORMS CODE NOT ALPHANUMERIC.
*                (A) = FORMS CODE IF VALID. 
*                (T1) = FORMS CODE. 
* 
*         USES   T1.
  
  
 VFC2     LCN    0           FLAG INVALID FORMS CODE
  
 VFC      SUBR               ENTRY/EXIT 
          STD    T1          SAVE FORMS CODE
          ZJN    VFCX        IF NULL FORMS CODE 
          SHN    -6          CHECK FIRST CHARACTER
          ZJN    VFC2        IF NO CHARACTER
          SBN    1R9+1
          PJN    VFC2        IF NOT ALPHANUMERIC
          LDD    T1          CHECK SECOND CHARACTER 
          LPN    77 
          ZJN    VFC2        IF NO CHARACTER
          SBN    1R9+1
          PJN    VFC2        IF NOT ALPHANUMERIC
          LDD    T1          RETURN FORMS CODE
          UJN    VFCX        RETURN 
          SPACE  4
          BASE   *
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 VFC      EQU    /COMPVFC/VFC 
 QUAL$    ENDIF 
          ENDX
