AnsiCode Derived Type

    type :: AnsiCode
        private
        !> Style descriptor
        logical :: use_style = .false.
        integer(i8) :: style = -1_i8
        !> Foreground color
        logical :: use_fg = .false.
        integer(i16) :: fg = -1_i16
        !> Background color
        logical :: use_bg = .false.
        integer(i16) :: bg = -1_i16
    end type AnsiCode