.pc = $0810 "Main Program routine"


:BasicUpstart2(start)




start:

        jsr $e544
        sei // Set the interupt flag
$Screencolor:
        ldy #$08
        ldx #$0A // Load the X register
        stx $d021
        sty $d020

        //penis and pink
        lda $dc01
        cmp #$bf
        bne Screencolor
        rts