! *** PREDECLARED TYPES
     
      %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$HFLOAT_AXP_DECLARED ) = 0 %THEN
         RECORD BASIC$HFLOAT_AXP
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$HFLOAT_AXP_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_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX_AXP
            BASIC$HFLOAT_AXP REAL_PART
            BASIC$HFLOAT_AXP IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1
      %END %IF
    
    
    ! ***************************************************************************
    ! 									    *
    !   COPYRIGHT (c) 1998 BY						    *
    !   DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS.		    *
    !   ALL RIGHTS RESERVED.						    *
    !  									    *
    !   THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED   *
    !   ONLY IN  ACCORDANCE WITH  THE  TERMS  OF  SUCH  LICENSE  AND WITH THE   *
    !   INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR  ANY  OTHER   *
    !   COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY   *
    !   OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE IS  HEREBY   * 
    !   TRANSFERRED.			       				    *
    !  									    *
    !   THE INFORMATION IN THIS SOFTWARE IS  SUBJECT TO CHANGE WITHOUT NOTICE   *
    !   AND  SHOULD  NOT  BE  CONSTRUED AS  A COMMITMENT BY DIGITAL EQUIPMENT   *
    !   CORPORATION.							    *
    !  									    *
    !   DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE  OR  RELIABILITY OF ITS   *
    !   SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.		    *
    !  									    *
    ! 									    *
    ! ***************************************************************************
    !     
    !     UTIL$CQUAL_FILE_PARSE
    !     
      EXTERNAL LONG FUNCTION  util$cqual_file_parse &
               ( &
                   LONG  BY REF, &
                   LONG  BY REF, &
                  OPTIONAL LONG  BY REF, &
                   LONG  BY REF &
               )
    !     
    !     UTIL$CQUAL_FILE_MATCH
    !     
      EXTERNAL LONG FUNCTION  util$cqual_file_match &
               ( &
                   LONG  BY REF, &
                  OPTIONAL LONG  BY REF, &
                   STRING  BY DESC, &
                   STRING  BY DESC, &
                   STRING  BY DESC, &
                   LONG  BY VALUE, &
                   LONG  BY REF, &
                   LONG  BY REF &
               )
    !     
    !     UTIL$CQUAL_FILE_END
    !     
      EXTERNAL LONG FUNCTION  util$cqual_file_end &
               ( &
                   LONG  BY REF &
               )
    !     
    !     UTIL$CQUAL_CONFIRM_ACT
    !     
      EXTERNAL LONG FUNCTION  util$cqual_confirm_act &
               ( &
                  OPTIONAL STRING  BY DESC, &
                   STRING  BY DESC, &
                   LONG  BY VALUE, &
                   LONG  BY REF &
               )