.pc = $801
:BasicUpstart(2061)


         lda $d020    //border color
         sta $0fff
         lda $d021    //background color 0
         sta $0ffe
         sei
         lda #<$a09c
         sta $02
         lda #>$a09c
         sta $03
loop:        ldx $02
         bit $d011    //vic control register 1
         bpl *-3
         bit $d011    //vic control register 1
         bmi *-3
         txa
         ldx #$00
         cmp $d012    //raster position
         bne *-3
         stx $d020    //border color
         stx $d021    //background color 0
         lda #$7b
         sta $d011    //vic control register 1
         lda #$9e
         cmp $d012    //raster position
         bne *-3
         lda $03
         ldx $0fff
         ldy $0ffe
         cmp $d012    //raster position
         bne *-3
         stx $d020    //border color
         sty $d021    //background color 0
         lda #$1b
         sta $d011    //vic control register 1
         inc $03
         inc $03
         dec $02
         dec $02
         lda #$04
         cmp $02
         bne loop
         lda #$7b
         sta $d011    //vic control register 1
         cli
         jmp *