! *** 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
    
    
    ! 
    !  This SDL File Generated by VAX-11 Message V04-00 on  9-MAR-2021 22:27:58.76
    ! 
    !  FILE: STRMSG.MSG  EDIT: JWN2008
    ! 
    ! ****************************************************************************
    ! *									    *
    ! *  COPYRIGHT (C) 1978, 1980, 1982, 1984 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.		    *
    ! * 									    *
    ! *									    *
    ! ****************************************************************************
    ! 
    ! 
    !  2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT.  ADAPTED FROM STRMSG.MSG
    ! 	  VERSION 1-004.  SBL 22-APR-1981
    !  2-005 - ADD .TITLE AND .IDENT.  SBL 28-AUG-1982
    !  2-002 - DON'T DEFINE STR$_NORMAL HERE, DO IT IN STRMSGDEF.MAR.  SBL 27-APR-1981
    !  2-003 - ADD STR$_MATCH AND STR$_NOMATCH.  RKR 2-JUL-1982
    !  2-004 - NOW DEFINE STR$_NORMAL HERE.  SBL 24-AUG-1982
    !  2-006 - ADD DEFINITIONS FOR STR$_INVDELIM (INVALID DELIMITER) AND 
    ! 	  STR$_NOELEM (NO ELEMENT FOUND), TWO NEW STATUS VALUES TO BE
    !       	  USED BY STR$ELEMENT.  ROW 03-NOV-1986
    !  2-007 - ADD STR$_ERRFREDYN, USED WHEN LIB$FREE_VM BARFS ON A STRING
    ! 	  WE ARE TRYING TO FREE. IE. THE USER HAS A CLASS_D DESCR POINTING
    ! 	  AT SOME ARBITRARY MEMORY.
    !  2-008 - REMOVE FIRST LETTER CAPITALIZATION FROM ERROR MESSAGES.  
    ! 							JWN 26-APR-1987
    ! +
    !  SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES:
    ! 
    ! 	STR$_ABCMNOXYZ
    ! 
    !  IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",
    !  AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR
    !  MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS.
    ! 
    ! 
    !  MACRO-32 PROGRAMMING:
    ! 
    !  THE MACRO CALL:
    ! 
    ! 	$STRDEF
    ! 
    !  WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.
    !  THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;
    !  THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER.
    ! -
    ! 
    !  THE FOLLOWING SEVERE ERRORS ARE ALWAYS SIGNALLED.
    ! 
    ! 			; NOTE: ERROR CODES MUST NOT OVERLAP SUCESS CODES???
      DECLARE LONG CONSTANT STR$_FACILITY = 36
      DECLARE LONG CONSTANT STR$_FATINTERR = 2392132
      DECLARE LONG CONSTANT STR$_DIVBY_ZER = 2392140
      DECLARE LONG CONSTANT STR$_ILLSTRCLA = 2392148
      DECLARE LONG CONSTANT STR$_STRIS_INT = 2392156
      DECLARE LONG CONSTANT STR$_WRONUMARG = 2392164
      DECLARE LONG CONSTANT STR$_INSVIRMEM = 2392172
      DECLARE LONG CONSTANT STR$_STRTOOLON = 2392180
      DECLARE LONG CONSTANT STR$_ERRFREDYN = 2392188
    ! 
    !  THE FOLLOWING ARE WARNING ERRORS.
    ! 
    ! 			; GO IN STEPS OF 8.
      DECLARE LONG CONSTANT STR$_TRU = 2392576
      DECLARE LONG CONSTANT STR$_NOMATCH = 2392584
      DECLARE LONG CONSTANT STR$_INVDELIM = 2392592
      DECLARE LONG CONSTANT STR$_NOELEM = 2392600
    ! 
    !  THE FOLLOWING ARE QUALIFIED SUCCESS MESSAGES
    ! 
    ! 			; GO IN STEPS OF 8.
      DECLARE LONG CONSTANT STR$_NEGSTRLEN = 2393089
      DECLARE LONG CONSTANT STR$_ILLSTRPOS = 2393097
      DECLARE LONG CONSTANT STR$_ILLSTRSPE = 2393105
      DECLARE LONG CONSTANT STR$_MATCH = 2393113
    ! 
    !  DEFINE STR$_NORMAL TO BE THE SAME AS SS$_NORMAL.
    ! 
      DECLARE LONG CONSTANT STR$_NORMAL = 1
    !