%IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
	RECORD BASIC$QUADWORD
		LONG FILL ( 2 )
	END RECORD
    %LET %BASIC$QUADWORD_DECLARED = 1
    %END %IF
    %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN
	RECORD BASIC$OCTAWORD
		LONG FILL ( 4 )
	END RECORD
    %LET %BASIC$OCTAWORD_DECLARED = 1
    %END %IF
    %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$F_FLOATING_COMPLEX
    		SINGLE REAL_PART
    		SINGLE IMAGINARY_PART
    	END RECORD
    %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
    %END %IF
    %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$D_FLOATING_COMPLEX
    		DOUBLE REAL_PART
    		DOUBLE IMAGINARY_PART
    	END RECORD
    %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
    %END %IF
    %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$G_FLOATING_COMPLEX
    		GFLOAT REAL_PART
    		GFLOAT IMAGINARY_PART
    	END RECORD
    %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
    %END %IF
    %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$H_FLOATING_COMPLEX
    		HFLOAT REAL_PART
    		HFLOAT IMAGINARY_PART
    	END RECORD
    %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1
    %END %IF
    
    
    ! 
    !  Create options table
    ! 
      DECLARE LONG CONSTANT CRE$C_VMSV2 = 2  !  VMS version V04-000 format 
      DECLARE LONG CONSTANT CRE$C_VMSV3 = 3  !  VMS version 3 format 
      DECLARE LONG CONSTANT CRE$M_NOCASECMP = x'00000001'
      DECLARE LONG CONSTANT CRE$M_NOCASENTR = x'00000002'
      DECLARE LONG CONSTANT CRE$M_UPCASNTRY = x'00000004'
      DECLARE LONG CONSTANT CRE$C_HLPCASING = 6  !  Treat upper casing as it is for HELP libs 
      DECLARE LONG CONSTANT CRE$C_OBJCASING = 3  !  Treat upper casing as it is for OBJECT libs 
      DECLARE LONG CONSTANT CRE$C_MACTXTCAS = 0  !  Treat upper casing as it is for MACRO and TEXT libs 
      DECLARE LONG CONSTANT CRE$K_LENGTH = 80  !  
      DECLARE LONG CONSTANT CRE$C_LENGTH = 80  !  
      DECLARE LONG CONSTANT CRE$S_CREDEF = 80
      record CREDEF
         LONG CRE$L_TYPE                    !  Type of library 
    !   (library types defined in $LBRDEF)
         LONG CRE$L_KEYLEN                  !  Length of keys in library 
         LONG CRE$L_ALLOC                   !  Initial file allocation 
         LONG CRE$L_IDXMAX                  !  Maximum number of indices 
         LONG CRE$L_UHDMAX                  !  Size of additional module header data 
         LONG CRE$L_ENTALL                  !  Number of index entries to pre-allocate 
         LONG CRE$L_LUHMAX                  !  Number of library update history records to store 
         LONG CRE$L_VERTYP                  !  Version type of library to create 
         group CRE$R_IDXOPT_OVERLAY
            variant
               case
                  LONG CRE$L_IDXOPT         !  Index options 
               case
                  group CRE$R_IDXOPT_BITS
                      !  Do not upper case the match key 
                      !  Do not upper case the index key when comparing with a match key 
                      !  Upper case the index key when entering it into the library 
                     BYTE NOCASECMP_bits   ! COMMENT ADDED BY SDL - NOCASECMP_bits contains bits NOCASECMP through fill_4
                  end group CRE$R_IDXOPT_BITS
            end variant
         end group CRE$R_IDXOPT_OVERLAY
         LONG CREDEF$$_FILL_1 ( 1 to 11 )      !  Reserved 11 longwords 
      end record CREDEF