Simple VIC-20 color scheme applicator

[gdm413229]

Here's a simple Forth word that applies the VIC-20's color scheme to the DurexForth interpreter console.

: apply-vic20cols 
  
  \ vic-20 has cyan border, white bg
  \ and dark blue text
  3 $d020 c! 1 $d021 c!
  31 emit page
;

[Whammo]

Here is a patch to default to these colors.
QUIT on INCLUDE
from f7 on V unneeded

code doit
1 ldx,# $d021 stx, 
0 ldx,#  \ x must be 0
;code

 6 $c19 c! 3 $c08 c!
$20 $c0c c! \  jsr
' doit $c0d !

Here is my work

Intepreter.asm

    ldx #0 ; change to ldx #3 $c08
    stx $d020
    stx $d021 ; change to jsr ' doit $c0c $20 ?

    lda #>TIB
    sta TIB_PTR + 1

    lda #$36 ; ram + i/o + kernal
    sta 1

    ; Yellow text.
    lda #7 ; change to lda #6 $c19
    sta $286