sta $0291        
; --- erase screen ---
  ldx #$18      ; start at ln 24        
@erase_one_line:
  txa
  pha           ; save X
  jsr erase_line_by_number      ; erase line
  pla
  tax           ; restore X
  dex           ; previous line
  bpl @erase_one_line

  lda #charmode_vanilla     ; load vanilla
  sta $0286
; --- crsr on ---
  jsr cursor_off
  jsr cursor_on
; --- put crsr ---
  jsr do_cr
  jsr do_line_feed
  jsr do_line_feed
  
  rts
  


initialise_variables:
  lda #$00