 :+    ; yes -> branch
  tay
  jmp @skip2
:    
  ldy #$27    ; y=col=left margin
@skip2:
  ldx $d6     ; x is row
  jsr cursor_plot   ; set crsr
  jmp @end_escape_seq

; --- D --- crsr left
@not_C:
  cmp #$44    ; D?
  bne @not_D
  jsr get_number_from_esc_seq  ; get argument
  lda escape_parameter    ; escape_parameter = 0...
  bne :+
  inc escape_parameter    ; .. means 1        
:
  lda $d3     ; get crsr col        
  sec
  sbc escape_parameter    ; col = col - left
  bpl :+      ;