! *** 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 TT2$M_LOCALECHO = x'00000001'
      DECLARE LONG CONSTANT TT2$M_AUTOBAUD = x'00000002'
      DECLARE LONG CONSTANT TT2$M_HANGUP = x'00000004'
      DECLARE LONG CONSTANT TT2$M_MODHANGUP = x'00000008'
      DECLARE LONG CONSTANT TT2$M_BRDCSTMBX = x'00000010'
      DECLARE LONG CONSTANT TT2$M_XON = x'00000020'
      DECLARE LONG CONSTANT TT2$M_DMA = x'00000040'
      DECLARE LONG CONSTANT TT2$M_ALTYPEAHD = x'00000080'
      DECLARE LONG CONSTANT TT2$M_SETSPEED = x'00000100'
      DECLARE LONG CONSTANT TT2$M_DCL_MAILBX = x'00000200'
      DECLARE LONG CONSTANT TT2$M_DECCRT4 = x'00000400'
      DECLARE LONG CONSTANT TT2$M_COMMSYNC = x'00000800'
      DECLARE LONG CONSTANT TT2$M_EDITING = x'00001000'
      DECLARE LONG CONSTANT TT2$M_INSERT = x'00002000'
      DECLARE LONG CONSTANT TT2$M_FALLBACK = x'00004000'
      DECLARE LONG CONSTANT TT2$M_DIALUP = x'00008000'
      DECLARE LONG CONSTANT TT2$M_SECURE = x'00010000'
      DECLARE LONG CONSTANT TT2$M_DISCONNECT = x'00020000'
      DECLARE LONG CONSTANT TT2$M_PASTHRU = x'00040000'
      DECLARE LONG CONSTANT TT2$M_SYSPWD = x'00080000'
      DECLARE LONG CONSTANT TT2$M_SIXEL = x'00100000'
      DECLARE LONG CONSTANT TT2$M_DRCS = x'00200000'
      DECLARE LONG CONSTANT TT2$M_PRINTER = x'00400000'
      DECLARE LONG CONSTANT TT2$M_APP_KEYPAD = x'00800000'
      DECLARE LONG CONSTANT TT2$M_ANSICRT = x'01000000'
      DECLARE LONG CONSTANT TT2$M_REGIS = x'02000000'
      DECLARE LONG CONSTANT TT2$M_BLOCK = x'04000000'
      DECLARE LONG CONSTANT TT2$M_AVO = x'08000000'
      DECLARE LONG CONSTANT TT2$M_EDIT = x'10000000'
      DECLARE LONG CONSTANT TT2$M_DECCRT = x'20000000'
      DECLARE LONG CONSTANT TT2$M_DECCRT2 = x'40000000'
      DECLARE LONG CONSTANT TT2$M_DECCRT3 = x'80000000'
      DECLARE LONG CONSTANT TT2$S_TT2DEF = 4
      record TT2DEF
         variant
            case
               group TT2$R_TT2DEF_BITS
                   !  TEMP DEFINITIONS FOR DCL SPAWN 
                   !  Level 4 terminals (was OUTBAND-obsolete)
                   !  (was DCL_CTRLC-obsolete) 
                   !  enable advanced editing
                   !  INPUT EDITING INSTER DEFAULT
                   !  USE MULTINATIONAL FALLBACK
                   !  TERMINAL IS CONNECTED TO DIALUP
                   !  RECOGNIZE SECURE SERVER
                   !  TERMINAL CAN BE DISCONNECTED
                   !  passall with flowcontrol
                   !  System password required
                   !  SIXEL SUPPORTED
                   !  PRINTER PORT AVAILABLE
                   !  Keypad in applicationis mode
                   !  ANSI, REGIS, BLOCK and AVO 
                   !  must be contiguous for SCRPKG. 
                   !  DECCRT level 2
                   !  DECCRT level 3
                  LONG LOCALECHO_bits   ! COMMENT ADDED BY SDL - LOCALECHO_bits contains bits LOCALECHO through DECCRT3
               end group TT2$R_TT2DEF_BITS
         end variant
      end record TT2DEF