rsor_off
; erase chars
  ldy $d3       ; get crsr col
  lda #$20      ; load space
:
  sta ($d1),y   ; clear char
  iny
  cpy #$28      ; pos 40?
  bne :-      ; next char
  sta $ce       ; del char ..
                ; ..under crsr
; set colour
  ldy $d3       ; get crsr col
  lda #charmode_vanilla      ; load vanilla
:
  sta ($f3),y   ; set colour
  iny
  cpy #$28      ; pos 40?
  bne :-      ; next char        
  jsr cursor_on
  rts

; -------------------------------------
; delete