direct col
  tax         ; font to colour
  lda font_attribute_table,x
  sta $0286   ; set colour
  jmp @end_escape_seq
:
  ; -- set direct colour --
  ldx direct_colour ; colour maping
  lda direct_colour_table,x
  sta $0286   ; set colour
  jmp @end_escape_seq

; --- K --- erase line
@not_m:
  cmp #$4b      ; K?
  bne @not_K
  jsr get_number_from_esc_seq    ; get parameter
  lda escape_parameter      ; in A
  ; -- 0 -- crsr to end of line
  bne :+
  jsr erase_to_end_of_line    ; erase 