end line
  jmp @end_escape_seq
  ; -- 1 -- begin to crsr
:
  cmp #$01
  bne :+
  jsr erase_line_to_cursor    ; erase beg line
  jmp @end_escape_seq
  ; -- 2 -- whole line
:
  cmp #$02
  bne :+      ; par undefined 
  ldx $d6       ; line in X
  jsr erase_line_by_number      ; erase line
  sta $ce       ; del char ..
                ; ..under crsr
:
  jmp @end_escape_seq        
  
; --- f --- same as H
@not_K:
  cmp #$66
  bne @not_f
  jmp @set_cursor_position      ; same as H

; --