! *** 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) 1988 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.		    *
    !  									    *
    ! 									    *
    ! ***************************************************************************
    !     NCS$COMPARE
    !     
    !     Compare Strings
    !     
    !     Compares two strings using specified collating sequence as comparison
    !     basis.
    !     
      EXTERNAL LONG FUNCTION  ncs$compare &
               ( &
                   LONG  BY REF, &
                   STRING  BY DESC, &
                   STRING  BY DESC &
               )
    !     NCS$CONVERT
    !     
    !     Convert String
    !     
    !     Convert a string using the specified conversion function.
    !     
      EXTERNAL LONG FUNCTION  ncs$convert &
               ( &
                   LONG  BY REF, &
                   STRING  BY DESC, &
                   STRING  BY DESC, &
                  OPTIONAL WORD  BY REF, &
                   WORD  BY REF &
               )
    !     NCS$END_CF
    !     
    !     End Conversion Function
    !     
    !     Terminates the use of a conversion function by the calling program.
    !     
      EXTERNAL LONG FUNCTION  ncs$end_cf &
               ( &
                   LONG  BY REF &
               )
    !     NCS$END_CS
    !     
    !     End Collating Sequence
    !     
    !     Terminates the use of a collating sequence by the calling program.
    !     
      EXTERNAL LONG FUNCTION  ncs$end_cs &
               ( &
                   LONG  BY REF &
               )
    !     NCS$GET_CF
    !     
    !     Get Conversion Function
    !     
    !     Retrieves the definition of the named conversion function from the NCS
    !     library.
    !     
      EXTERNAL LONG FUNCTION  ncs$get_cf &
               ( &
                   LONG  BY REF, &
                  OPTIONAL STRING  BY DESC, &
                   STRING  BY DESC &
               )
    !     NCS$GET_CS
    !     
    !     Get Collating Sequence
    !     
    !     Retrieves the definition of the named collating sequence from the NCS
    !     library.
    !     
      EXTERNAL LONG FUNCTION  ncs$get_cs &
               ( &
                   LONG  BY REF, &
                  OPTIONAL STRING  BY DESC, &
                   STRING  BY DESC &
               )
    !     NCS$RESTORE_CF
    !     
    !     Restore Conversion Function
    !     
    !     Permits the calling program to restore the definition of a "saved"
    !     conversion function from a data base or an RMS file.
    !     
      EXTERNAL LONG FUNCTION  ncs$restore_cf &
               ( &
                   LONG  BY REF, &
                  OPTIONAL LONG  BY REF, &
                   LONG  BY REF &
               )
    !     NCS$RESTORE_CS
    !     
    !     Restore Collating Sequence
    !     
    !     Permits the calling program to restore the definition of a "saved" collating
    !     sequence from a data base or an RMS file.
    !     
      EXTERNAL LONG FUNCTION  ncs$restore_cs &
               ( &
                   LONG  BY REF, &
                  OPTIONAL LONG  BY REF, &
                   LONG  BY REF &
               )
    !     NCS$SAVE_CF
    !     
    !     Save Conversion Function
    !     
    !     Provides the calling program with information that permits the application
    !     to store the definition of a conversion function in a local data base or an
    !     RMS file rather than the NCS$LIBRARY.
    !     
      EXTERNAL LONG FUNCTION  ncs$save_cf &
               ( &
                   LONG  BY REF, &
                  OPTIONAL LONG  BY REF, &
                   LONG  BY REF &
               )
    !     NCS$SAVE_CS
    !     
    !     Save Collating Sequence
    !     
    !     Provides the calling program with information that permits the application
    !     to store the definition of a collating sequence in a local data base or an
    !     RMS file rather than the NCS$LIBRARY.
    !     
      EXTERNAL LONG FUNCTION  ncs$save_cs &
               ( &
                   LONG  BY REF, &
                  OPTIONAL LONG  BY REF, &
                   LONG  BY REF &
               )