* = $1000	; sys 4096
border = $d020

	 lda #<border
	 sta modify+1

         lda #$01
	 jsr modify


         inc modify+1

         jsr modify

         rts

modify   sta border
	 rts