! *** 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
    
    
    ! +
    !  LINE PRINTER CHARACTERISTICS DEFINITIONS
    ! -
      DECLARE LONG CONSTANT LP$M_CR = x'00000001'
      DECLARE LONG CONSTANT LP$M_MECHFORM = x'00000002'
      DECLARE LONG CONSTANT LP$M_PRINTALL = x'00000004'
      DECLARE LONG CONSTANT LP$M_DAVFU = x'00000008'
      DECLARE LONG CONSTANT LP$M_WRAP = x'00000010'
      DECLARE LONG CONSTANT LP$M_TRUNCATE = x'00000020'
      DECLARE LONG CONSTANT LP$M_TAB = x'00000040'
      DECLARE LONG CONSTANT LP$M_LOWER = x'00000080'
      DECLARE LONG CONSTANT LP$M_PASSALL = x'00000100'
      DECLARE LONG CONSTANT LP$M_FALLBACK = x'00000200'
      DECLARE LONG CONSTANT LP$M_SIXELS = x'00000400'
      DECLARE LONG CONSTANT LP$M_BITMAPPED = x'00000800'
      DECLARE LONG CONSTANT LP$M_POLLED = x'00001000'
      DECLARE LONG CONSTANT LP$M_BIDIRECTIONAL = x'00002000'
      DECLARE LONG CONSTANT LP$M_PAGE_L = x'FF000000'
      DECLARE LONG CONSTANT LP$_LP11 = 1
      DECLARE LONG CONSTANT LP$_LA11 = 2
      DECLARE LONG CONSTANT LP$_LA180 = 3
      DECLARE LONG CONSTANT LP$_PC_PRINTER = 8
      DECLARE LONG CONSTANT LP$S_LPDEF = 4
      record LPDEF
         variant
            case
               group LP$R_LPDEF_BITS
                   !  CARRIAGE RETURN NEEDED 
                   !  MECHANICAL FORM FEED 
                   !  NON PRINTABLE CHAR. ACCEPT(DMF-32) 
                   !  DAVFU AVAIL. 
                   !  CHAR. WRAP MODE 
                   !  TRUNCATE output at carriage width
                   !  TAB needed
                   !  PRINTER HAS LOWER CASE 
                   !  PASSALL MODE 
                   !  FALLBACK MODE
                   !  HANDLES SIXELS
                   !  HANDLES BIT MAPS
                   !  Printer will poll device 
                   !  Bidirectional USB printer
                   !  SPARE UNUSED BITS 
                   !  PAGE LENGTH 
                  LONG CR_bits   ! COMMENT ADDED BY SDL - CR_bits contains bits CR through PAGE_L
               end group LP$R_LPDEF_BITS
         end variant
      end record LPDEF