! *** 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
    
    
    ! +
    !  PRINTER/TERMINAL CARRIAGE CONTROL SPECIFIERS
    ! --
      DECLARE LONG CONSTANT PCC$M_CHAR = x'0000001F'
      DECLARE LONG CONSTANT PCC$M_EIGHTBIT = x'00000040'
      DECLARE LONG CONSTANT PCC$M_SINGLE = x'00000080'
      DECLARE LONG CONSTANT PCC$M_LINECNT = x'0000007F'
      DECLARE LONG CONSTANT PCC$_FTN_SINGLE = 32  !  SINGLE SPACE 
      DECLARE LONG CONSTANT PCC$_FTN_DOUBLE = 48  !  DOUBLE SPACE 
      DECLARE LONG CONSTANT PCC$_FTN_PAGE = 49  !  PAGE SPACE 
      DECLARE LONG CONSTANT PCC$_FTN_OVRPRT = 43  !  OVER PRINT 
      DECLARE LONG CONSTANT PCC$_FTN_PROMPT = 36  !  PROMPT 
      DECLARE LONG CONSTANT PCC$S_PCCDEF = 4
      record PCCDEF
         WORD PCC$W_FORTRAN                 !  FORTRAN FIELD 
         group PCC$R_PREFIX_OVERLAY         !  PREFIX FIELD 
            variant
               case
                  BYTE PCC$B_PREFIX
               case
                  group PCC$R_PREFIX_BITS0
                     BYTE BITS0_bits   ! COMMENT ADDED BY SDL - BITS0_bits contains bits BITS0 through FILL_49_
                  end group PCC$R_PREFIX_BITS0
               case
                  group PCC$R_PREFIX_BITS1
                     BYTE BITS1_bits   ! COMMENT ADDED BY SDL - BITS1_bits contains bits BITS1 through FILL_50_
                  end group PCC$R_PREFIX_BITS1
            end variant
         end group PCC$R_PREFIX_OVERLAY
         group PCC$R_POSTFIX_OVERLAY
            variant
               case
                  BYTE PCC$B_POSTFIX        !  POSTFIX FIELD 
               case
                  group PCC$R_POSTFIX_BITS0
                      !  CHARACTER FIELD 
                      !  EIGHTBIT CHARACTER SET 
                      !  SINGLE CHARACTER 
                     BYTE CHAR_bits   ! COMMENT ADDED BY SDL - CHAR_bits contains bits CHAR through SINGLE
                  end group PCC$R_POSTFIX_BITS0
               case
                  group PCC$R_POSTFIX_BITS1
                      !  LINE COUNT FOR NEWLINES 
                     BYTE LINECNT_bits   ! COMMENT ADDED BY SDL - LINECNT_bits contains bits LINECNT through FILL_51_
                  end group PCC$R_POSTFIX_BITS1
    !  FORTRAN CONSTANTS 
            end variant
         end group PCC$R_POSTFIX_OVERLAY
      end record PCCDEF