FADER    DEC TIME
         BNE EXITFD
         LDX #$00
         LDA DELAY,X
         STA TIME
         LDX POINTER
         INC POINTER
         LDA CLRTBL,X
         CMP #$FF
         BEQ F2
         LDX #$00
F1       STA $00,X     ;D800-DB00
         INX
         CPX #$00      ;HOW MANY CHARS
         BNE F1
         RTS
F2       LDA #$00
         STA POINTER
EXITFD   RTS
POINTER  .BYTE $00
TIME     .BYTE $01
DELAY    .BYTE 10,11,12,13,50
         .BYTE 13,12,11,10
CLRTBL   .BYTE $00,$0B,$0C,$0F
         .BYTE $01,$0F,$0C,$0B,$00,$FF