! *** 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 TTC$M_RESERVED = x'000000FF'
      DECLARE LONG CONSTANT TTC$M_KANA = x'00000100'
      DECLARE LONG CONSTANT TTC$M_KANJI = x'00000200'
      DECLARE LONG CONSTANT TTC$M_HANZI = x'00000400'
      DECLARE LONG CONSTANT TTC$M_HANGUL = x'00000800'
      DECLARE LONG CONSTANT TTC$M_HANYU = x'00001000'
      DECLARE LONG CONSTANT TTC$M_THAI = x'00002000'
      DECLARE LONG CONSTANT TTC$S_TTCDEF = 2
      record TTCDEF
         variant
            case
               group TTC$R_TTCDEF_BITS
                   !  First byte is reserved
                   !  Katakana
                   !  Kanji
                   !  Hanzi
                   !  Hangul
                   !  Hanyu
                   !  Thai
                  WORD RESERVED_bits   ! COMMENT ADDED BY SDL - RESERVED_bits contains bits RESERVED through FILL_45_
               end group TTC$R_TTCDEF_BITS
         end variant
      end record TTCDEF