ne @not_J
  jsr get_number_from_esc_seq    ; get parameter
  lda escape_parameter      ; in A
  ; -- 0 -- crsr to end
  bne @not_cursor_to_end
  jsr erase_to_end_of_line    ; del rest of line
  ldx $d6       ; get crsr line
@erase_next_line:
  inx           ; next line
  cpx #$19      ; line 25?
  bcs @end_escape_seq     ; then end
  txa
  pha           ; save X
  jsr erase_line_by_number      ; erase line
  pla
  tax           ; restore X
  jmp @erase_next_line      ; next line
  ; -- 1 --