;:sys36864
	;.opt oo
	*= $c000
port	=1
tmp	=247
line	=249
vekt	=59649
linec	=59888
vic	=$d000
	lda #55
	sta port
	lda #160
	jsr copy
	lda #224
	jsr copy
	lda #<neu
	ldy #>neu
	sta vekt
	sty vekt+1
	lda #53
	sta port
	rts
copy	ldy #0
	sty tmp
	sty line
	ldx #32
	sta tmp+1
cpp	lda (tmp),y
	sta (tmp),y
	iny
	bne cpp
	inc tmp+1
	dex
	bne cpp
	rts
neu	txa
	bne aa
	sei
	lda #6
	sta line
a3	jsr pause
	lda vic+17
	and #240
	ora line
	sta vic+17
	dec line
	bpl a3
a5	ldy #40
a4	cpy vic+18
	bne a4
	lda #128
	bit vic+17
	bne a5
	beq a6
aa	cpx #13
	bne a6
	lda vic+17
	and #240
	ora #7
	sta vic+17
a6	jmp linec
pause	ldy #2
a9	lda #248
a7	cmp vic+18
	bne a7
	lda #249
a8	cmp vic+18
	bne a8
	dey
	bne a9
	rts