! *** 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
    
    
      DECLARE LONG CONSTANT SYSEVT$C_ALL_EVENTS = 1  !  Valid for $Clear_system_event only
      DECLARE LONG CONSTANT SYSEVT$C_ADD_GALAXY_MEMBER = 2  !  One or more instances have joined the
    !  Galaxy community
      DECLARE LONG CONSTANT SYSEVT$C_DEL_GALAXY_MEMBER = 3  !  One or more instances have left the
    !  Galaxy community
      DECLARE LONG CONSTANT SYSEVT$C_ADD_ACTIVE_CPU = 4  !  One or more CPUs have become active
    !  within this VMS instance
      DECLARE LONG CONSTANT SYSEVT$C_DEL_ACTIVE_CPU = 5  !  One or more CPU have become inactive
      DECLARE LONG CONSTANT SYSEVT$C_ADD_CONFIG_CPU = 6  !  One or more CPUs are now part of the
    !  configure set for this instance.
      DECLARE LONG CONSTANT SYSEVT$C_DEL_CONFIG_CPU = 7  !  One or more CPUS have left this instance
      DECLARE LONG CONSTANT SYSEVT$C_CONFIG_TREE = 8  !  An update has occurred to the Galaxy config tree
      DECLARE LONG CONSTANT SYSEVT$C_FASTPATH_CPUS = 9  !  A modification has been made to the system 
    !  parameter, IO_PREFER_CPUS.
      DECLARE LONG CONSTANT SYSEVT$C_TDF_CHANGE = 10  !  time differential change
      DECLARE LONG CONSTANT SYSEVT$C_CPU_POWER = 11  !  CPU power transition
      DECLARE LONG CONSTANT SYSEVT$C_INDICTMENT = 12  !  Component Indictment was performed
      DECLARE LONG CONSTANT SYSEVT$C_CPU_DEALLOCATE = 13  !  CPU deallocated from running system
      DECLARE LONG CONSTANT SYSEVT$C_MAX_EVENT = 14  !  maximum event number
      DECLARE LONG CONSTANT SYSEVT$C_NUM_EVENTS = 13  !  Number of events
      DECLARE LONG CONSTANT SYSEVT$K_NUM_EVENTS = 13
      DECLARE LONG CONSTANT SYSEVT$M_NOTIFY_ONCE = 0  !  indicate one shot request
      DECLARE LONG CONSTANT SYSEVT$M_REPEAT_NOTIFY = 1  !  Bit 0 represents whether the event notification is a
      DECLARE LONG CONSTANT SYSEVT$V_REPEAT_NOTIFY = 0  !  one shot deal or should be a repeating notification.