; Clear registers
    ldx #$33
:   stz $2100,x
    stz $4200,x
    dex
    bpl :-

    ; Set background color
    lda f:bgcolor+0
    sta $2122
    lda f:bgcolor+1
    sta $2122

    lda #$0F
    sta $2100